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