Apple II User Manual
0365 8206 38 SEC
0366 8207 60 RTS
0367 8208 A2 10 PSHOVE LDX #$10 ;PUSH PARMS DOWN
0367 8208 A2 10 PSHOVE LDX #$10 ;PUSH PARMS DOWN
0368 820A 0E 4A A6 PRM10 ASL P3L
0369 820D 2E 4B A6 ROL P3H
0369 820D 2E 4B A6 ROL P3H
0370 8210 2E 4C A6 ROL P2L
0371 8213 2E 4D A6 ROL P2H
0371 8213 2E 4D A6 ROL P2H
0372 8216 2E 4E A6 ROL P1L
0373 8219 2E 4F A6 ROL P1H
0373 8219 2E 4F A6 ROL P1H
0374 821C CA DEX
0375 821D D0 EB BNE PRM10
0375 821D D0 EB BNE PRM10
0376 821F 60 RTS
0377 8220 20 88 81 PARM JSR SAVER ;GET PARMS - RETURN ON C/R OR ERR
0377 8220 20 88 81 PARM JSR SAVER ;GET PARMS - RETURN ON C/R OR ERR
0378 8223 A9 00 LDA #0
0379 8225 8D 49 A6 STA PARNR
0379 8225 8D 49 A6 STA PARNR
0380 8228 8D 33 A6 STA SCR3
0381 822B 20 08 82 PM1 JSR PSHOVE
0381 822B 20 08 82 PM1 JSR PSHOVE
0382 822E 20 1B 8A PARFIL JSR INCHR
0383 8231 C9 2C CMP #',' ;VALID DELIMETERS - ,
0383 8231 C9 2C CMP #',' ;VALID DELIMETERS - ,
0384 8233 F0 04 BEQ M21
0385 8235 C9 2D CMP #'-'
0385 8235 C9 2D CMP #'-'
0386 8237 D0 11 BNE M22
0387 8239 A2 FF M21 LDX #$FF
0387 8239 A2 FF M21 LDX #$FF
0388 823B 8E 33 A6 STX SCR3
0389 823E EE 49 A6 INC PARNR
0389 823E EE 49 A6 INC PARNR
0390 8241 AE 49 A6 LDX PARNR
0391 8244 E0 03 CPX #$03
0391 8244 E0 03 CPX #$03
0392 8246 D0 E3 BNE PM1
0393 8248 F0 1D BEQ M24
0393 8248 F0 1D BEQ M24
0394 824A 20 75 82 M22 JSR ASCNIB
0395 824D B0 18 BCS M24
0395 824D B0 18 BCS M24
0396 824F A2 04 LDX #4
0397 8251 0E 4A A6 M23 ASL P3L
0397 8251 0E 4A A6 M23 ASL P3L
0398 8254 2E 4B A6 ROL P3H
0399 8257 CA DEX
0399 8257 CA DEX
0400 8258 D0 F7 BNE M23
0401 825A 0D 4A A6 ORA P3L
0401 825A 0D 4A A6 ORA P3L
0402 825D 8D 4A A6 STA P3L
0403 8260 A9 FF LDA #$FF
0403 8260 A9 FF LDA #$FF
0404 8262 8D 33 A6 STA SCR3
0405 8265 D0 C7 BNE PARFIL
0405 8265 D0 C7 BNE PARFIL
0406 8267 2C 33 A6 M24 BIT SCR3
0407 826A F0 03 BEQ M25
0407 826A F0 03 BEQ M25
0408 826C EE 49 A6 INC PARNR
0409 826F C9 0D M25 CMP #$0D
0409 826F C9 0D M25 CMP #$0D
0410 8271 18 CLC
0411 8272 4C B8 81 JMP RESXAF
0411 8272 4C B8 81 JMP RESXAF
0412 8275 C9 0D ASCNIB CMP #$0D ;C/R?
0413 8277 F0 19 BEQ M29
0413 8277 F0 19 BEQ M29
0414 8279 C9 30 CMP #'0'
0415 827B 90 0C BCC M26
0415 827B 90 0C BCC M26
0416 827D C9 47 CMP #'G'
0417 827F B0 08 BCS M26
0417 827F B0 08 BCS M26
0418 8281 C9 41 CMP #'A'
0419 8283 B0 08 BCS M27
0419 8283 B0 08 BCS M27
0420 8285 C9 3A CMP #':'
0421 8287 90 06 BCC M28
0421 8287 90 06 BCC M28
0422 8289 C9 30 M26 CMP #'0'
0423 828B 38 SEC ;CARRY SET - NON HEX
0423 828B 38 SEC ;CARRY SET - NON HEX
0424 828C 60 RTS
0425 828D E9 37 M27 SBC #$37
0425 828D E9 37 M27 SBC #$37
0426 828F 29 0F M28 AND #$0F