Apple ii Battery Charger User Manual


 
1655 EAA3 CA DEX
1656 EAA4 D0 F9 BNE PAK2
1657 EAA6 AE 2D A4 LDX CPIY+3 ;REST X
1658 EAA9 AD 29 A4 LDA STIY+2
1659 EAAC 18 CLC
1660 EAAD 60 RTS
1661 EAAE
1662 EAAE ;GET FOUR BYTE ADDR ,TAKE LAST FOUR CHR TO...
1663 EAAE ;CALCULATE ADDR .ALLOW DELETE ALSO
1664 EAAE 20 D8 E7 ADDIN JSR EQUAL
1665 EAB1 AD 15 A4 ADDNE LDA CURPO2 ;SAVE POSITION
1666 EAB4 48 PHA
1667 EAB5 A0 00 LDY #0
1668 EAB7 20 5F E9 ADDN1 JSR RDRUP
1669 EABA C9 0D CMP #CR
1670 EABC F0 09 BEQ ADDN2
1671 EABE C9 20 CMP #' '
1672 EAC0 F0 05 BEQ ADDN2
1673 EAC2 C8 INY
1674 EAC3 C0 0B CPY #11 ;ALLOW 10
1675 EAC5 90 F0 BCC ADDN1
1676 EAC7 68 ADDN2 PLA
1677 EAC8 8D 2D A4 STA CPIY+3 ;SAVE
1678 EACB C0 00 CPY #0 ;IF FIRST CHR PUT DEFAULT VALUES
1679 EACD D0 0D BNE ADDN3
1680 EACF A9 02 LDA #$02
1681 EAD1 8D 1D A4 STA ADDR+1 ;DEFAULT OF 0200
1682 EAD4 8D 1E A4 STA CKSUM ;DEFAULT
1683 EAD7 8C 1C A4 STY ADDR
1684 EADA 18 CLC
1685 EADB 60 RTS
1686 EADC A2 00 ADDN3 LDX #0
1687 EADE 88 DEY ;Y-4
1688 EADF 88 DEY
1689 EAE0 88 DEY
1690 EAE1 88 DEY
1691 EAE2 10 13 BPL ADDN5 ;BRANCH IF > 4 CHR
1692 EAE4 98 TYA
1693 EAE5 49 FF EOR #$FF
1694 EAE7 A8 TAY ;# OF LEADING 0
1695 EAE8 A9 30 ADDN4 LDA #$30
1696 EAEA 9D 1C A4 STA ADDR,X
1697 EAED E8 INX
1698 EAEE 88 DEY
1699 EAEF 10 F7 BPL ADDN4
1700 EAF1 AC 2D A4 LDY CPIY+3 ;NOW THE CHR
1701 EAF4 4C FD EA JMP ADDN6
1702 EAF7 98 ADDN5 TYA ;PUT CHR
1703 EAF8 18 CLC
1704 EAF9 6D 2D A4 ADC CPIY+3
1705 EAFC A8 TAY
1706 EAFD B9 38 A4 ADDN6 LDA DIBUFF,Y ;FROM DISP BUFF
1707 EB00 9D 1C A4 STA ADDR,X
1708 EB03 C8 INY
1709 EB04 E8 INX
1710 EB05 E0 04 CPX #4
1711 EB07 D0 F4 BNE ADDN6
1712 EB09 A2 01 LDX #1
1713 EB0B A0 00 LDY #0 ;CNVRT CHR TO HEX
1714 EB0D B9 1C A4 ADDN7 LDA ADDR,Y
1715 EB10 20 7D EA JSR HEX
1716 EB13 B0 16 BCS ADDN8