1283 E81E 8D 16 A4 PSL0C STA CURPOS
1284 E821 A2 00 LDX #0
1285 E823 B9 38 A4 PSL0D LDA DIBUFF,Y ;TRANSFER THEM
1286 E826 9D 60 A4 STA IBUFM,X
1287 E829 E8 INX
1288 E82A C8 INY
1289 E82B EC 16 A4 CPX CURPOS ;PRI PNTR
1290 E82E 90 F3 BCC PSL0D
1291 E830 20 38 F0 JSR OUTPR ;CLR PRI BUFF TO THE RIGHT
1292 E833 20 AC EB JSR PLXY ;RESTORE X,Y
1293 E836 60 RTS
1294 E837 A9 2F PSL1 LDA #'/' ;PRINT "/"
1295 E839 D0 91 BNE PR1
1296 E83B
1297 E83B 20 3E E8 BLANK2 JSR BLANK ;TWO SPACES
1298 E83E A9 20 BLANK LDA #' '
1299 E840 D0 8A BNE PR1
1300 E842
1301 E842 ;CHECK TTY/KBD SWITCH (Z=1 FOR TTY)
1302 E842 A9 08 TTYTST LDA #$08 ;CHECK IF TTY OR KB
1303 E844 2C 00 A8 BIT DRB ;TTY OR KB SWICTH =PB3
1304 E847 60 RTS
1305 E848
1306 E848 ;WHERE IS INPUT COMING FROM?
1307 E848 ;SET UP FOR INPUT ACTIVE DEVICE
1308 E848 A0 2A WHEREI LDY #M9-M1 ;PRINT "IN"
1309 E84A 20 70 E9 JSR KEPR ;OUTPUT MSG AND INPUT CHR
1310 E84D 8D 12 A4 STA INFLG
1311 E850 C9 54 CMP #'T'
1312 E852 D0 08 BNE WHE1
1313 E854 A2 00 LDX #0 ;FOR INPUT FILE FLG
1314 E856 20 A2 E8 JSR FNAM ;OPEN FILE FOR TAPE (1 OR 2)
1315 E859 4C 2F E3 JMP LOADTA ;GET FILE
1316 E85C C9 4B WHE1 CMP #'K' ;TAPE WITH KIM FORMAT
1317 E85E D0 08 BNE WHE2
1318 E860 A2 00 LDX #0 ;FOR INPUT FILE FLG
1319 E862 20 A2 E8 JSR FNAM ;OPEN FILE FOR TAP (1 OR 2)
1320 E865 4C A4 E3 JMP LOADKI ;THE WHOLE FILE
1321 E868 C9 55 WHE2 CMP #'U' ;USER RTN?
1322 E86A D0 04 BNE WHE3
1323 E86C 18 CLC ;SET FLG FOR INITIALIZATION
1324 E86D 6C 08 01 JMP (UIN) ;USER INPUT SETUP
1325 E870 60 WHE3 RTS
1326 E871
1327 E871 ;WHERE IS OUTPUT GOING TO?
1328 E871 ;SET UP FOR OUTPUT ACTIVE DEVICE
1329 E871 A0 2D WHEREO LDY #M10-M1 ;PRINT "OUT"
1330 E873 20 70 E9 JSR KEPR ;OUTPUT MSG & INPUT CHR
1331 E876 8D 13 A4 STA OUTFLG ;DEVICE FLG
1332 E879 ;TAPES
1333 E879 C9 54 CMP #'T'
1334 E87B D0 08 BNE WHRO1
1335 E87D A2 01 LDX #1 ;FOR OUTPUT FILE FLG
1336 E87F 20 A2 E8 JSR FNAM ;FILENAME & TAPE (1 OR 2)
1337 E882 4C 6F E5 JMP DUMPTA ;INITIALIZE FILE
1338 E885 C9 4B WHRO1 CMP #'K' ;TAPE WITH KIM FORMAT
1339 E887 D0 05 BNE WHRO2
1340 E889 A2 01 LDX #1 ;FOR OUTPUT FILE FLG
1341 E88B 4C A2 E8 JMP FNAM
1342 E88E ;PRINTER
1343 E88E C9 50 WHRO2 CMP #'P' ;PRINTER?
1344 E890 D0 05 BNE WHRO3