Apple II User Manual

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