Micro­power

   

Volume 2 · Number 2 · April 1982
Page 16 of 37
586LD A, 00
587OUT (ACTRL), A; OUTPUT
588RET
589; * * * * * * * * * * * * * * * * * * * * * * * * * * *
590; ROUTINE COMPLETED MESSAGE
591; * * * * * * * * * * * * * * * * * * * * * * * * * * *
593MESS19CALL CLRCRT; CLEAR SCREEN
594LD HL, TEXT19; ROUTINE COMPLETE
595LD DE, 090BH
596LD BC, 16
597LDIR
598DEFB SCAL, TDEL; WAIT 2 SECONDS
599DEFB SCAL, TDEL
600RET
601; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
602; GET START ADDRESS OF 1K OR 2K BLOCK
605; OR 4 DIGIT TYPE NUMBER OF EPROM
606; OR MEMORY START ADDRES OF EPROM
607; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
609ROMADRLD HL, TEXT18; "NORMAL ROM START ADDR?"
610LD DE, 09CBH
611LD BC, 22H
612LDIR
613LD A, 00
614LD (SCNFLG), A; SET JUMP BACK FLAG
615JR SCANT1
616RAMADRLD HL, TEXT6; MESSAGE TO CRT
617LD DE, 09CBH; FOR ADDRESS
618LD BC, 2EH
619LDIR
620LD A, 0FFH
621LD (SCNFLG), A; SET FOR JUMP BACK TO HERE
622SCANT1LD HL, TEXT10; PROMPT "ADDRESS ??"
623LD DE, 0B0BH
624LD BC, 12H
625LDIR
626LD HL, 0B19H; SCREEN ADD. FOR ENTRY
627SCAN1ALD B, 20H
628LD DE, STORLN
629LD A, 20H
630CLRLINLD (DE), A; CLEAR LINE STORE
631INC DE
632DJNZ CLRLIN
633LD IY, STORE; STORE FOR ENTRIES
634LD D, 4; FOUR KEY ENTRIES
635SCAN2XOR A
636SCAN3DEFB SCAL, KBD; GET ENTRIES FROM KEYBOARD
637JR C, SCAN4
638JR SCAN3
639SCAN4CP "O"; ONLY ACCEPT ENTRIES
640JP M, SCAN2; IN THE RANGE 30H – 39H
641CP ":"
642JP P, SCAN5
643LD (HL), A; PRINT IF O.K.
644SUB 30H; CONVERT TO 0 – 9
645LD (IY), A; STORE IT
646INC HL; NEXT SCREEN ADDRESS
647INC IY; NEXT STORE
Page 16 of 37