Apple II Benutzerhandbuch

Seite von 257
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