Apple ii Battery Charger User Manual


 
0737 8526 A0 00 LDY #$00
0738 8528 91 FE STA ($FE),Y
0739 852A D1 FE CMP ($FE),Y ;VERIFY MEM
0740 852C F0 03 BEQ NXTLOC
0741 852E 20 20 83 JSR OUTQM ;TYPE ? AND CONTINUE
0742 8531 20 B2 82 NXTLOC JSR INCCMP
0743 8534 18 CLC
0744 8535 90 E0 BCC NEWLOC
0745 8537 F0 3E NH42 BEQ EXITM1
0746 8539 50 04 BVC *+6
0747 853B C9 3C CMP #'<'
0748 853D F0 D8 BEQ NEWLOC
0749 853F C9 20 CMP #$20 ;SPACE ?
0750 8541 F0 EE BEQ NXTLOC
0751 8543 C9 3E CMP #'>'
0752 8545 F0 EA BEQ NXTLOC
0753 8547 C9 2B CMP #'+'
0754 8549 F0 10 BEQ LOCP8
0755 854B C9 3C CMP #'<'
0756 854D F0 06 BEQ PRVLOC
0757 854F C9 2D CMP #'-'
0758 8551 F0 16 BEQ LOCM8
0759 8553 38 DEPES SEC
0760 8554 60 RTS
0761 8555 20 BE 82 PRVLOC JSR DECCMP ;BACK ONE BYT
0762 8558 18 CLC
0763 8559 90 BC BCC NEWLOC
0764 855B A5 FE LOCP8 LDA $FE ;GO FWD 8 BYTES
0765 855D 18 CLC
0766 855E 69 08 ADC #$08
0767 8560 85 FE STA $FE
0768 8562 90 02 BCC M42
0769 8564 E6 FF INC $FF
0770 8566 18 M42 CLC
0771 8567 90 AE BCC NEWLOC
0772 8569 A5 FE LOCM8 LDA $FE ;GO BACKWD 8 BYTES
0773 856B 38 SEC
0774 856C E9 08 SBC #$08
0775 856E 85 FE STA $FE
0776 8570 B0 02 BCS M43
0777 8572 C6 FF DEC $FF
0778 8574 18 M43 CLC
0779 8575 90 A0 BCC NEWLOC
0780 8577 18 EXITM1 CLC
0781 8578 60 RTS
0782 8579 C9 47 GO1 CMP #'G' ;GO, 1 PARM (RTRN ADDR ON STK)
0783 857B D0 19 BNE VER1 ; ... PARM IS ADDR TO GO TO
0784 857D 20 4D 83 JSR CRLF
0785 8580 20 9C 8B JSR NACCES ;WRITE PROT MONITR RAM
0786 8583 A2 FF LDX #$FF ;PUSH RETURN ADDR
0787 8585 9A TXS
0788 8586 A9 7F LDA #$7F
0789 8588 48 PHA
0790 8589 A9 FF LDA #$FF
0791 858B 48 PHA
0792 858C AD 4B A6 LDA P3H
0793 858F 48 PHA
0794 8590 AD 4A A6 LDA P3L
0795 8593 4C 08 84 JMP NR10
0796 8596 C9 56 VER1 CMP #'V' ;VERIFY, 1 PARM (8 BYTES, CKSUM)
0797 8598 D0 1A BNE JUMP1
0798 859A AD 4A A6 LDA P3L