0489 8308 60 RTS
0490 8309 29 0F NIBASC AND #$0F ;NIBBLE IN A TO ASCII IN A
0491 830B C9 0A CMP #$0A ;LINE FEED
0492 830D B0 04 BCS NIBALF
0493 830F 69 30 ADC #$30
0494 8311 90 02 BCC EXITNB
0495 8313 69 36 NIBALF ADC #$36
0496 8315 60 EXITNB RTS
0497 8316 20 4D 83 CRLFSZ JSR CRLF ;PRINT CRLF, FF, FE
0498 8319 A6 FF LDX $FF
0499 831B A5 FE LDA $FE
0500 831D 4C F4 82 JMP OUTXAH
0501 8320 A9 3F OUTQM LDA #'?'
0502 8322 4C 47 8A JMP OUTCHR
0503 8325 20 3A 83 OCMCK JSR COMMA ;OUT COMMA, CKSUM LO
0504 8328 AD 36 A6 LDA SCR6
0505 832B 4C FA 82 JMP OUTBYT
0506 832E A9 00 ZERCK LDA #0 ;INIT CHECKSUM
0507 8330 8D 36 A6 STA SCR6
0508 8333 8D 37 A6 STA SCR7
0509 8336 60 RTS
0510 8337 20 EE 82 OPCCOM JSR OUTPC ;PC OUT, COMMA OUT
0511 833A 48 COMMA PHA ;COMMA OUT
0512 833B A9 2C LDA #','
0513 833D D0 06 BNE SPCP3
0514 833F 20 42 83 SPC2 JSR SPACE ;2 SPACES OUT
0515 8342 48 SPACE PHA ;1 SPACE OUT
0516 8343 A9 20 LDA #$20 ;SPACE
0517 8345 20 47 8A SPCP3 JSR OUTCHR
0518 8348 68 PLA
0519 8349 60 RTS
0520 834A 20 FA 82 OBCRLF JSR OUTBYT ;BYTE OUT, CRLF OUT
0521 834D 48 CRLF PHA
0522 834E A9 0D LDA #$0D
0523 8350 20 47 8A JSR OUTCHR
0524 8353 A9 0A LDA #$0A ;LINE FEED
0525 8355 20 47 8A JSR OUTCHR
0526 8358 68 PLA
0527 8359 60 RTS
0528 835A AE 56 A6 DELAY LDX TV ;DELAY DEPENDS ON TV
0529 835D 20 88 81 DL1 JSR SAVER
0530 8360 A9 FF LDA #$FF
0531 8362 8D 39 A6 STA SCR9
0532 8365 8D 38 A6 STA SCR8
0533 8368 0E 38 A6 DLY1 ASL SCR8 ;(SCR9,8)=FFFF-2**X
0534 836B 2E 39 A6 ROL SCR9
0535 836E CA DEX
0536 836F D0 F7 BNE DLY1
0537 8371 20 03 89 DLY2 JSR IJSCNV ;SCAN DISPLAY
0538 8374 20 86 83 JSR INSTAT ;SEE IF KEY DOWN
0539 8377 B0 0A BCS DLY0
0540 8379 EE 38 A6 INC SCR8 ;SCAN 2**X+1 TIMES
0541 837C D0 03 BNE *+5
0542 837E EE 39 A6 INC SCR9
0543 8381 D0 EE BNE DLY2
0544 8383 4C BE 81 DLY0 JMP RESXF
0545 8386 ; INSTAT - SEE IF KEY DOWN, RESULT IN CARRY
0546 8386 ; KEYSTAT, TSTAT RETURN IMMEDIATELY W/STATUS
0547 8386 ; INSTAT WAITS FOR RELEASE
0548 8386 20 92 83 INSTAT JSR INJISV
0549 8389 90 06 BCC INST2
0550 838B 20 92 83 INST1 JSR INJISV