Filter
Top Products
1221 E7A9 20 AF E7 TO1 JSR KEP
1222 E7AC 4C B1 EA JMP ADDNE ;GET ADDRESS
1223 E7AF
1224 E7AF ;PRINT MSG POINTED TO BY Y REG
1225 E7AF B9 00 E0 KEP LDA M1,Y
1226 E7B2 48 PHA
1227 E7B3 29 7F AND #$7F ;STRIP OFF MSB
1228 E7B5 20 7A E9 JSR OUTPUT
1229 E7B8 C8 INY
1230 E7B9 68 PLA
1231 E7BA 10 F3 BPL KEP ;MSB =1 ?
1232 E7BC 60 RTS
1233 E7BD
1234 E7BD ;PRINT "*" ,BUT NOT TO TAPE RECORDER, NOR LOADING....
1235 E7BD ;PAPER TAPE OR TO DISPLAY
1236 E7BD AD 12 A4 PROMPT LDA INFLG ;WHICH DEV (FOR EDITOR)
1237 E7C0 C9 54 CMP #'T' ;NO PROMPT IF "T" OR "L"
1238 E7C2 4C EF FE JMP PATC11
1239 E7C5 20 42 E8 PROMP1 JSR TTYTST ;PROMPT ONLY TO TTY
1240 E7C8 D0 05 BNE PR2 ;BRANCH ON KB
1241 E7CA A9 2A LDA #'*'
1242 E7CC 4C 7A E9 PR1 JMP OUTPUT ;ONLY TO TERMIN
1243 E7CF A9 0D PR2 LDA #CR ;CLR DISP
1244 E7D1 4C 05 EF JMP OUTDIS
1245 E7D4
1246 E7D4 A9 3F QM LDA #'?' ;PRINT "?"
1247 E7D6 D0 F4 BNE PR1
1248 E7D8
1249 E7D8 A9 3D EQUAL LDA #'=' ;PRINT "="
1250 E7DA D0 F0 BNE PR1
1251 E7DC
1252 E7DC ;ON DELETE KEY OUTPUT SLASH IF TTY & ....
1253 E7DC ;BACK UP CURSOR IF KB (MAY NEED SCROLLING)
1254 E7DC 20 42 E8 PSLS JSR TTYTST ;TTY OR KB ?
1255 E7DF F0 56 BEQ PSL1 ;BRANCH ON TTY
1256 E7E1 20 9E EB JSR PHXY ;SAVE X,Y
1257 E7E4 CE 15 A4 DEC CURPO2 ;DECR DISP PNTR
1258 E7E7 AE 15 A4 LDX CURPO2
1259 E7EA E0 14 CPX #20 ;IF MORE THAN 20 JUST SCROLL THEM
1260 E7EC B0 0D BCS PSL0
1261 E7EE A9 20 LDA #' ' ;< 20 ,SO CLR CUR
1262 E7F0 20 02 EF JSR OUTDP1
1263 E7F3 CE 15 A4 DEC CURPO2
1264 E7F6 4C 02 E8 JMP PSL00
1265 E7F9 EA NOP
1266 E7FA EA NOP
1267 E7FB 20 F8 FE PSL0 JSR PATC12 ;CLR PRIFLG
1268 E7FE CA DEX ;ONE CHR LESS
1269 E7FF 20 2F EF JSR OUTD2A ;SCROLL THEM
1270 E802 AD 15 A4 PSL00 LDA CURPO2 ;DISBUF---> PRIBUFF
1271 E805 C9 15 CMP #21
1272 E807 90 13 BCC PSL0B
1273 E809 C9 29 CMP #41
1274 E80B 90 07 BCC PSL0A
1275 E80D A0 28 LDY #40 ;CHR 40-59
1276 E80F E9 28 SBC #40
1277 E811 4C 1E E8 JMP PSL0C
1278 E814 A0 14 PSL0A LDY #20 ;CHR 20-39
1279 E816 38 SEC
1280 E817 E9 14 SBC #20
1281 E819 4C 1E E8 JMP PSL0C
1282 E81C A0 00 PSL0B LDY #0 ;CHR 00-19