Apple II User Manual
0613 840C 48 PHA
0614 840D AC 5F A6 LDY YR
0615 8410 AE 5E A6 LDX XR
0615 8410 AE 5E A6 LDX XR
0616 8413 AD 5D A6 LDA AR
0617 8416 40 RTI
0617 8416 40 RTI
0618 8417 C9 11 LPZB CMP #$11 ;LOAD PAPER TAPE
0619 8419 F0 03 BEQ *+5
0619 8419 F0 03 BEQ *+5
0620 841B 4C A7 84 JMP DEPZ
0621 841E 20 88 81 JSR SAVER
0621 841E 20 88 81 JSR SAVER
0622 8421 20 4D 83 JSR CRLF
0623 8424 A9 00 LDA #0
0623 8424 A9 00 LDA #0
0624 8426 8D 52 A6 STA ERCNT
0625 8429 20 2E 83 LPZ JSR ZERCK
0625 8429 20 2E 83 LPZ JSR ZERCK
0626 842C 20 1B 8A LP1 JSR INCHR
0627 842F C9 3B CMP #$3B ;SEMI COLON
0627 842F C9 3B CMP #$3B ;SEMI COLON
0628 8431 D0 F9 BNE LP1
0629 8433 20 A1 84 JSR LDBYTE
0629 8433 20 A1 84 JSR LDBYTE
0630 8436 B0 56 BCS TAPERR
0631 8438 D0 09 BNE NUREC
0631 8438 D0 09 BNE NUREC
0632 843A AD 52 A6 LDA ERCNT ;ERRORS ?
0633 843D F0 01 BEQ *+3
0633 843D F0 01 BEQ *+3
0634 843F 38 SEC
0635 8440 4C B8 81 JMP RESXAF
0635 8440 4C B8 81 JMP RESXAF
0636 8443 8D 3D A6 NUREC STA SCRD
0637 8446 20 A1 84 JSR LDBYTE
0637 8446 20 A1 84 JSR LDBYTE
0638 8449 B0 43 BCS TAPERR
0639 844B 85 FF STA $FF
0639 844B 85 FF STA $FF
0640 844D 20 A1 84 JSR LDBYTE
0641 8450 B0 D7 BCS LPZ
0641 8450 B0 D7 BCS LPZ
0642 8452 85 FE STA $FE
0643 8454 20 A1 84 MORED JSR LDBYTE
0643 8454 20 A1 84 MORED JSR LDBYTE
0644 8457 B0 35 BCS TAPERR
0645 8459 A0 00 LDY #0
0645 8459 A0 00 LDY #0
0646 845B 91 FE STA ($FE),Y
0647 845D D1 FE CMP ($FE),Y
0647 845D D1 FE CMP ($FE),Y
0648 845F F0 0C BEQ LPGD
0649 8461 AD 52 A6 LDA ERCNT
0649 8461 AD 52 A6 LDA ERCNT
0650 8464 29 0F AND #$0F
0651 8466 C9 0F CMP #$0F
0651 8466 C9 0F CMP #$0F
0652 8468 F0 03 BEQ *+5
0653 846A EE 52 A6 INC ERCNT
0653 846A EE 52 A6 INC ERCNT
0654 846D 20 B2 82 LPGD JSR INCCMP
0655 8470 CE 3D A6 DEC SCRD
0655 8470 CE 3D A6 DEC SCRD
0656 8473 D0 DF BNE MORED
0657 8475 20 D9 81 JSR INBYTE
0657 8475 20 D9 81 JSR INBYTE
0658 8478 B0 14 BCS TAPERR
0659 847A CD 37 A6 CMP SCR7
0659 847A CD 37 A6 CMP SCR7
0660 847D D0 0C BNE BADDY
0661 847F 20 D9 81 JSR INBYTE
0661 847F 20 D9 81 JSR INBYTE
0662 8482 B0 0A BCS TAPERR
0663 8484 CD 36 A6 CMP SCR6
0663 8484 CD 36 A6 CMP SCR6
0664 8487 F0 A0 BEQ LPZ
0665 8489 D0 03 BNE TAPERR ;(ALWAYS)
0665 8489 D0 03 BNE TAPERR ;(ALWAYS)
0666 848B 20 D9 81 BADDY JSR INBYTE
0667 848E AD 52 A6 TAPERR LDA ERCNT
0667 848E AD 52 A6 TAPERR LDA ERCNT
0668 8491 29 F0 AND #$F0
0669 8493 C9 F0 CMP #$F0
0669 8493 C9 F0 CMP #$F0
0670 8495 F0 92 BEQ LPZ
0671 8497 AD 52 A6 LDA ERCNT
0671 8497 AD 52 A6 LDA ERCNT
0672 849A 69 10 ADC #$10
0673 849C 8D 52 A6 STA ERCNT
0673 849C 8D 52 A6 STA ERCNT
0674 849F D0 88 BNE LPZ