Micropower |
Volume 2 · Number 1 · February 1982 |
| Page 23 of 37 |
|---|
| 136: | TYPERR: | LD HL, TEXT12 | ; TYPE ---- A OR B" |
| 137: | LD DE, 090BH | ||
| 138: | LD BC, 29 | ||
| 139: | LDIR | ||
| 140: | DEFB SCAL, TDEL | ; WAIT APPROXIMATELY 2 SECONDS | |
| 141: | DEFB SCAL, TDEL | ||
| 142: | JP ALLOK | ||
| 143: | TYP1K: | LD A, 4 | ; FLAG FOR 2708 |
| 144: | LD (ROMFLG), A | ||
| 145: | LD HL, TXT13A | ; TYPE TO TOPLINE | |
| 146: | LD DE, 0BE8H | ||
| 147: | LD BC, 16 | ||
| 148: | LDIR | ||
| 149: | JR PROMPT | ; FLAG FOR 2K EPROM | |
| 150: | ; | ||
| 151: | LD (ROMFLG), A | ||
| 152: | LD HL, TXT13B | ; TYPE TO TOPLINE | |
| 153: | LD DE, 0BE8H | ||
| 154: | LD BC, 16 | ||
| 155: | LDIR | ||
| 156: | ; | ||
| 157: | PROMPT: | CALL CLRCRT | |
| 158: | LD HL, TEXT2 | ; PROMPT FOR KEY P----. | |
| 159: | LD DE, 094BH | ||
| 160: | LD BC, 25 | ||
| 161: | LDIR | ||
| 162: | LD HL, TEXT2A | ; KEY C---- | |
| 163: | LD DE, 09D2H | ||
| 164: | LD BC, 1EH | ||
| 165: | LDIR | ||
| 166: | LD HL, TEXT2B | ; KEY T---- | |
| 167: | LD DE, 0AD2H | ||
| 168: | LD BC, 1FH | ||
| 169: | LDIR | ||
| 170: | LD HL, TEXT2C | ; KEY E---- | |
| 171: | LD DE, 0AD2H | ||
| 172: | LD BC, 20H | ||
| 173: | LDIR | ||
| 174: | LD HL, TEXT2D | ; KEY D---- | |
| 175: | LD DE, 0B52H | ||
| 176: | LD BC, 1AH | ||
| 177: | LDIR | ||
| 178: | ; | ||
| 179: | OPTION: | XOR A | ; WHICH ROUTINE |
| 180: | DEFB SCAL, KBD | ; SEE IF KEY PRESSED | |
| 181: | JR C, WHICH | ; IF SO, JUMP TO WHICH | |
| 182: | JR OPTION | ; ELSE KEEP LOOKING FOR KEY | |
| 183: | WHICH: | EX AF, AF' | ; SAVE KEY |
| 184: | CALL CLRCRT | ||
| 185: | LD HL, TEXT11 | ; KEY ? ---Y/N? | |
| 186: | LD DE, 090BH | ||
| 187: | LD BC, 27 | ||
| 188: | LDIR | ||
| 189: | LD HL, 090FH | ; SCREEN ADDRESS | |
| 190: | EX AF, AF' | ; RECOVER A | |
| 191: | LD (HL), A | ; PRINT IT | |
| 192: | EX AF, AF' | ; RESAVE IT | |
| 193: | WH1: | DEFB SCAL, KBD | |
| 194: | JR NC, WH1 |
| Page 23 of 37 |
|---|