C64 Software  <  SCA: The C64 Software Collection / 86/G.OBJ 4916

  Run
; Load: 4916 ($1334), len: 1376 ($0560) bytes

1334  A9 01       LDA #$01
1336  8D 0D DC    STA $DC0D
1339  A9 37       LDA #$37
133B  85 01       STA $01
133D  20 BC 04    JSR $04BC
1340  A9 3F       LDA #$3F
1342  8D 02 DD    STA $DD02
1345  AD 00 DD    LDA $DD00
1348  09 03       ORA #$03
134A  8D 00 DD    STA $DD00
134D  A9 00       LDA #$00
134F  8D 11 D0    STA $D011
1352  8D 20 D0    STA $D020
1355  20 E7 FF    JSR $FFE7
1358  A9 02       LDA #$02
135A  A2 08       LDX #$08
135C  A8          TAY
135D  20 BA FF    JSR $FFBA
1360  A9 02       LDA #$02
1362  A2 5C       LDX #$5C
1364  A0 06       LDY #$06
1366  20 BD FF    JSR $FFBD
1369  20 C0 FF    JSR $FFC0
136C  A9 0F       LDA #$0F
136E  A2 08       LDX #$08
1370  A8          TAY
1371  20 BA FF    JSR $FFBA
1374  A9 07       LDA #$07
1376  A2 5E       LDX #$5E
1378  A0 06       LDY #$06
137A  20 BD FF    JSR $FFBD
137D  20 C0 FF    JSR $FFC0
1380  A2 02       LDX #$02
1382  20 C9 FF    JSR $FFC9
1385  A2 00       LDX #$00
1387  BD 1A 08    LDA $081A,X
138A  20 CA F1    JSR $F1CA
138D  E8          INX
138E  E0 DC       CPX #$DC
1390  90 F5       BCC $1387
1392  20 CC FF    JSR $FFCC
1395  A2 0F       LDX #$0F
1397  20 C9 FF    JSR $FFC9
139A  A2 05       LDX #$05
139C  BD 65 06    LDA $0665,X
139F  20 CA F1    JSR $F1CA
13A2  CA          DEX
13A3  10 F7       BPL $139C
13A5  20 CC FF    JSR $FFCC
13A8  78          SEI
13A9  A0 2E       LDY #$2E
13AB  B9 2D 06    LDA $062D,Y
13AE  99 00 D0    STA $D000,Y
13B1  88          DEY
13B2  10 F7       BPL $13AB
13B4  C8          INY
13B5  98          TYA
13B6  99 30 DA    STA $DA30,Y
13B9  99 00 DB    STA $DB00,Y
13BC  88          DEY
13BD  D0 F7       BNE $13B6
13BF  A9 0B       LDA #$0B
13C1  8D E1 DB    STA $DBE1
13C4  8D E2 DB    STA $DBE2
13C7  8D E3 DB    STA $DBE3
13CA  8D E4 DB    STA $DBE4
13CD  84 A0       STY $A0
13CF  A9 64       LDA #$64
13D1  85 A1       STA $A1
13D3  A9 04       LDA #$04
13D5  8D 15 03    STA $0315
13D8  A9 C7       LDA #$C7
13DA  8D 14 03    STA $0314
13DD  A9 00       LDA #$00
13DF  20 00 50    JSR $5000
13E2  A9 01       LDA #$01
13E4  85 59       STA $59
13E6  AD 19 D0    LDA $D019
13E9  8D 19 D0    STA $D019
13EC  A9 3B       LDA #$3B
13EE  85 5A       STA $5A
13F0  A9 6B       LDA #$6B
13F2  85 57       STA $57
13F4  A9 06       LDA #$06
13F6  85 58       STA $58
13F8  A0 0E       LDY #$0E
13FA  20 BC 04    JSR $04BC
13FD  88          DEY
13FE  30 FA       BMI $13FA
1400  58          CLI
1401  A2 CF       LDX #$CF
1403  A9 20       LDA #$20
1405  9D 34 03    STA $0334,X
1408  CA          DEX
1409  D0 FA       BNE $1405
140B  AD 00 DD    LDA $DD00
140E  29 03       AND #$03
1410  85 FE       STA $FE
1412  8D 00 DD    STA $DD00
1415  09 10       ORA #$10
1417  85 FD       STA $FD
1419  A0 00       LDY #$00
141B  84 90       STY $90
141D  C8          INY
141E  D0 FD       BNE $141D
1420  20 52 04    JSR $0452
1423  A9 01       LDA #$01
1425  85 AE       STA $AE
1427  20 52 04    JSR $0452
142A  A9 61       LDA #$61
142C  85 AF       STA $AF
142E  20 52 04    JSR $0452
1431  78          SEI
1432  A2 34       LDX #$34
1434  86 01       STX $01
1436  91 AE       STA ($AE),Y
1438  A2 37       LDX #$37
143A  86 01       STX $01
143C  58          CLI
143D  E6 AE       INC $AE
143F  D0 02       BNE $1443
1441  E6 AF       INC $AF
1443  A5 90       LDA $90
1445  F0 E7       BEQ $142E
1447  A5 AE       LDA $AE
1449  85 2D       STA $2D
144B  A5 AF       LDA $AF
144D  85 2E       STA $2E
144F  4C 7E 04    JMP $047E
1452  A9 08       LDA #$08
1454  85 FC       STA $FC
1456  2C 00 DD    BIT $DD00
1459  70 07       BVS $1462
145B  30 F9       BMI $1456
145D  A9 40       LDA #$40
145F  85 90       STA $90
1461  60          RTS
1462  A6 FD       LDX $FD
1464  AD 00 DD    LDA $DD00
1467  8E 00 DD    STX $DD00
146A  0A          ASL A
146B  26 FF       ROL $FF
146D  EA          NOP
146E  A6 FE       LDX $FE
1470  8E 00 DD    STX $DD00
1473  EA          NOP
1474  EA          NOP
1475  C6 FC       DEC $FC
1477  D0 E9       BNE $1462
1479  A5 FF       LDA $FF
147B  49 FF       EOR #$FF
147D  60          RTS
147E  20 BC 04    JSR $04BC
1481  78          SEI
1482  A9 0B       LDA #$0B
1484  8D 11 D0    STA $D011
1487  A9 80       LDA #$80
1489  8D 1A D0    STA $D01A
148C  09 01       ORA #$01
148E  8D 0D DC    STA $DC0D
1491  A2 FF       LDX #$FF
1493  8E 02 DC    STX $DC02
1496  E8          INX
1497  8E 18 D4    STX $D418
149A  A9 34       LDA #$34
149C  85 01       STA $01
149E  A2 7F       LDX #$7F
14A0  BD FC 05    LDA $05FC,X
14A3  9D 00 02    STA $0200,X
14A6  CA          DEX
14A7  10 F7       BPL $14A0
14A9  A9 01       LDA #$01
14AB  A2 61       LDX #$61
14AD  85 5B       STA $5B
14AF  86 5C       STX $5C
14B1  85 5D       STA $5D
14B3  A2 08       LDX #$08
14B5  86 5E       STX $5E
14B7  A0 00       LDY #$00
14B9  4C 00 02    JMP $0200
14BC  AD 11 D0    LDA $D011
14BF  30 FB       BMI $14BC
14C1  AD 12 D0    LDA $D012
14C4  D0 F6       BNE $14BC
14C6  60          RTS
14C7  AD 19 D0    LDA $D019
14CA  8D 19 D0    STA $D019
14CD  A6 59       LDX $59
14CF  F0 06       BEQ $14D7
14D1  E0 01       CPX #$01
14D3  F0 0D       BEQ $14E2
14D5  D0 1A       BNE $14F1
14D7  A9 D8       LDA #$D8
14D9  8D 16 D0    STA $D016
14DC  20 0C 50    JSR $500C
14DF  4C 23 05    JMP $0523
14E2  AD 11 D0    LDA $D011
14E5  29 F7       AND #$F7
14E7  8D 11 D0    STA $D011
14EA  A9 7F       LDA #$7F
14EC  8D 15 D0    STA $D015
14EF  D0 32       BNE $1523
14F1  A5 5A       LDA $5A
14F3  09 08       ORA #$08
14F5  8D 11 D0    STA $D011
14F8  A9 00       LDA #$00
14FA  8D 15 D0    STA $D015
14FD  A9 C8       LDA #$C8
14FF  8D 16 D0    STA $D016
1502  E6 A1       INC $A1
1504  D0 1D       BNE $1523
1506  A9 EA       LDA #$EA
1508  85 A1       STA $A1
150A  A6 A0       LDX $A0
150C  E8          INX
150D  E0 07       CPX #$07
150F  D0 02       BNE $1513
1511  A2 00       LDX #$00
1513  86 A0       STX $A0
1515  A0 C8       LDY #$C8
1517  BD 25 06    LDA $0625,X
151A  99 28 DA    STA $DA28,Y
151D  99 EF DA    STA $DAEF,Y
1520  88          DEY
1521  D0 F7       BNE $151A
1523  A6 59       LDX $59
1525  E8          INX
1526  E0 03       CPX #$03
1528  D0 02       BNE $152C
152A  A2 00       LDX #$00
152C  86 59       STX $59
152E  BD 1F 06    LDA $061F,X
1531  8D 12 D0    STA $D012
1534  AD 11 D0    LDA $D011
1537  29 7F       AND #$7F
1539  1D 22 06    ORA $0622,X
153C  8D 11 D0    STA $D011
153F  8A          TXA
1540  D0 09       BNE $154B
1542  20 51 05    JSR $0551
1545  20 51 05    JSR $0551
1548  20 51 05    JSR $0551
154B  68          PLA
154C  A8          TAY
154D  68          PLA
154E  AA          TAX
154F  68          PLA
1550  40          RTI
1551  AD 00 D0    LDA $D000
1554  C9 09       CMP #$09
1556  90 15       BCC $156D
1558  A2 40       LDX #$40
155A  C9 11       CMP #$11
155C  90 02       BCC $1560
155E  A2 60       LDX #$60
1560  8E 10 D0    STX $D010
1563  A2 0E       LDX #$0E
1565  DE 00 D0    DEC $D000,X
1568  CA          DEX
1569  CA          DEX
156A  10 F9       BPL $1565
156C  60          RTS
156D  A2 10       LDX #$10
156F  BD 2D 06    LDA $062D,X
1572  9D 00 D0    STA $D000,X
1575  CA          DEX
1576  10 F7       BPL $156F
1578  A9 02       LDA #$02
157A  A2 0C       LDX #$0C
157C  85 5B       STA $5B
157E  86 5C       STX $5C
1580  18          CLC
1581  69 3E       ADC #$3E
1583  85 5D       STA $5D
1585  90 01       BCC $1588
1587  E8          INX
1588  86 5E       STX $5E
158A  A2 07       LDX #$07
158C  A0 00       LDY #$00
158E  B1 5D       LDA ($5D),Y
1590  91 5B       STA ($5B),Y
1592  C8          INY
1593  C8          INY
1594  C8          INY
1595  C0 18       CPY #$18
1597  90 F5       BCC $158E
1599  A0 00       LDY #$00
159B  C8          INY
159C  B1 5D       LDA ($5D),Y
159E  88          DEY
159F  91 5D       STA ($5D),Y
15A1  C8          INY
15A2  C0 18       CPY #$18
15A4  90 F5       BCC $159B
15A6  A5 5B       LDA $5B
15A8  18          CLC
15A9  69 40       ADC #$40
15AB  85 5B       STA $5B
15AD  90 02       BCC $15B1
15AF  E6 5C       INC $5C
15B1  A5 5D       LDA $5D
15B3  18          CLC
15B4  69 40       ADC #$40
15B6  85 5D       STA $5D
15B8  90 02       BCC $15BC
15BA  E6 5E       INC $5E
15BC  CA          DEX
15BD  D0 CD       BNE $158C
15BF  A0 00       LDY #$00
15C1  B1 57       LDA ($57),Y
15C3  D0 0A       BNE $15CF
15C5  A9 6B       LDA #$6B
15C7  85 57       STA $57
15C9  A9 06       LDA #$06
15CB  85 58       STA $58
15CD  D0 F2       BNE $15C1
15CF  E6 57       INC $57
15D1  D0 02       BNE $15D5
15D3  E6 58       INC $58
15D5  A0 1B       LDY #$1B
15D7  84 5C       STY $5C
15D9  0A          ASL A
15DA  26 5C       ROL $5C
15DC  0A          ASL A
15DD  26 5C       ROL $5C
15DF  0A          ASL A
15E0  26 5C       ROL $5C
15E2  85 5B       STA $5B
15E4  A9 33       LDA #$33
15E6  85 01       STA $01
15E8  A0 07       LDY #$07
15EA  A2 17       LDX #$17
15EC  B1 5B       LDA ($5B),Y
15EE  9D C0 0D    STA $0DC0,X
15F1  CA          DEX
15F2  CA          DEX
15F3  CA          DEX
15F4  88          DEY
15F5  10 F5       BPL $15EC
15F7  A9 37       LDA #$37
15F9  85 01       STA $01
15FB  60          RTS
15FC  B1 5B       LDA ($5B),Y
15FE  91 5D       STA ($5D),Y
1600  C8          INY
1601  D0 F9       BNE $15FC
1603  E6 5C       INC $5C
1605  E6 5E       INC $5E
1607  D0 F3       BNE $15FC
1609  A9 37       LDA #$37
160B  85 01       STA $01
160D  A9 04       LDA #$04
160F  8D 88 02    STA $0288
1612  20 15 FD    JSR $FD15
1615  20 53 E4    JSR $E453
1618  20 CC FF    JSR $FFCC
161B  58          CLI
161C  4C 00 7D    JMP $7D00
161F  96 F8       STX $F8,Y
1621  01 00       ORA ($00,X)
1623  00          BRK
1624  00          BRK
1625  02          ??
1626  07          ??
1627  05 03       ORA $03
1629  0E 04 06    ASL $0604
162C  00          BRK
162D  17          ??
162E  0B          ??
162F  47          ??
1630  0B          ??
1631  77          ??
1632  0B          ??
1633  A7          ??
1634  0B          ??
1635  D7          ??
1636  0B          ??
1637  07          ??
1638  0B          ??
1639  37          ??
163A  0B          ??
163B  00          BRK
163C  00          BRK
163D  60          RTS
163E  2B          ??
163F  F8          SED
1640  00          BRK
1641  00          BRK
1642  7F          ??
1643  C8          INY
1644  FF          ??
1645  28          PLP
1646  00          BRK
1647  01 00       ORA ($00,X)
1649  00          BRK
164A  7F          ??
164B  00          BRK
164C  00          BRK
164D  00          BRK
164E  00          BRK
164F  00          BRK
1650  00          BRK
1651  00          BRK
1652  00          BRK
1653  00          BRK
1654  03          ??
1655  03          ??
1656  03          ??
1657  03          ??
1658  03          ??
1659  03          ??
165A  03          ??
165B  03          ??
165C  23          ??
165D  33          ??
165E  42          ??
165F  2D 50 20    AND $2050
1662  32          ??
1663  20 30 0D    JSR $0D30
1666  06 00       ASL $00
1668  45 2D       EOR $2D
166A  4D 20 53    EOR $5320
166D  57          ??
166E  49 53       EOR #$53
1670  53          ??
1671  20 43 52    JSR $5243
1674  41 43       EOR ($43,X)
1676  4B          ??
1677  49 4E       EOR #$4E
1679  47          ??
167A  20 41 53    JSR $5341
167D  53          ??
167E  4F          ??
167F  43          ??
1680  49 41       EOR #$41
1682  54          ??
1683  49 4F       EOR #$4F
1685  4E 20 50    LSR $5020
1688  52          ??
1689  45 53       EOR $53
168B  45 4E       EOR $4E
168D  54          ??
168E  53          ??
168F  3A          ??
1690  20 20 54    JSR $5420
1693  48          PHA
1694  45 20       EOR $20
1696  50 45       BVC $16DD
1698  52          ??
1699  46 45       LSR $45
169B  43          ??
169C  54          ??
169D  20 50 41    JSR $4150
16A0  4C 2D 56    JMP $562D
16A3  45 52       EOR $52
16A5  53          ??
16A6  49 4F       EOR #$4F
16A8  4E 20 4F    LSR $4F20
16AB  46 20       LSR $20
16AD  42          ??
16AE  41 4C       EOR ($4C,X)
16B0  4C 42 4C    JMP $4C42
16B3  41 5A       EOR ($5A,X)
16B5  45 52       EOR $52
16B7  20 20 20    JSR $2020
16BA  20 20 20    JSR $2020
16BD  20 47 52    JSR $5247
16C0  45 45       EOR $45
16C2  54          ??
16C3  49 4E       EOR #$4E
16C5  47          ??
16C6  53          ??
16C7  20 54 4F    JSR $4F54
16CA  20 42 49    JSR $4942
16CD  47          ??
16CE  20 41 50    JSR $5041
16D1  50 4C       BVC $171F
16D3  45 2C       EOR $2C
16D5  20 4D 41    JSR $414D
16D8  44          ??
16D9  20 4D 41    JSR $414D
16DC  58          CLI
16DD  2C 20 52    BIT $5220
16E0  41 4D       EOR ($4D,X)
16E2  42          ??
16E3  4F          ??
16E4  2C 20 53    BIT $5320
16E7  41 54       EOR ($54,X)
16E9  55 52       EOR $52,X
16EB  4E 55 53    LSR $5355
16EE  20 54 48    JSR $4854
16F1  45 20       EOR $20
16F3  49 4E       EOR #$4E
16F5  56 49       LSR $49,X
16F7  4E 43 49    LSR $4943
16FA  42          ??
16FB  4C 45 2C    JMP $2C45
16FE  20 53 4D    JSR $4D53
1701  49 54       EOR #$54
1703  48          PHA
1704  20 54 48    JSR $4854
1707  45 20       EOR $20
1709  53          ??
170A  4F          ??
170B  46 54       LSR $54
170D  57          ??
170E  41 52       EOR ($52,X)
1710  45 2D       EOR $2D
1712  50 4F       BVC $1763
1714  50 45       BVC $175B
1716  2C 20 53    BIT $5320
1719  53          ??
171A  49 2C       EOR #$2C
171C  20 46 55    JSR $5546
171F  4E 20 53    LSR $5320
1722  45 52       EOR $52
1724  56 49       LSR $49,X
1726  43          ??
1727  45 20       EOR $20
1729  41 4E       EOR ($4E,X)
172B  44          ??
172C  20 54 48    JSR $4854
172F  45 20       EOR $20
1731  55 4E       EOR $4E,X
1733  49 54       EOR #$54
1735  45 44       EOR $44
1737  20 43 52    JSR $5243
173A  41 43       EOR ($43,X)
173C  4B          ??
173D  49 4E       EOR #$4E
173F  47          ??
1740  20 41 43    JSR $4341
1743  41 44       EOR ($44,X)
1745  45 4D       EOR $4D
1747  59 2E 20    EOR $202E,Y
174A  20 54 48    JSR $4854
174D  41 4E       EOR ($4E,X)
174F  4B          ??
1750  53          ??
1751  20 54 4F    JSR $4F54
1754  20 4D 41    JSR $414D
1757  52          ??
1758  54          ??
1759  49 4E       EOR #$4E
175B  20 47 41    JSR $4147
175E  4C 57 41    JMP $4157
1761  59 20 46    EOR $4620,Y
1764  4F          ??
1765  52          ??
1766  20 54 48    JSR $4854
1769  45 20       EOR $20
176B  53          ??
176C  4F          ??
176D  55 4E       EOR $4E,X
176F  44          ??
1770  20 20 20    JSR $2020
1773  54          ??
1774  41 4B       EOR ($4B,X)
1776  45 20       EOR $20
1778  54          ??
1779  48          PHA
177A  45 20       EOR $20
177C  4E 45 57    LSR $5745
177F  53          ??
1780  52          ??
1781  4F          ??
1782  4F          ??
1783  4D 20 2D    EOR $2D20
1786  20 59 49    JSR $4959
1789  45 20       EOR $20
178B  41 52       EOR ($52,X)
178D  20 4B 55    JSR $554B
1790  4E 47 20    LSR $2047
1793  46 55       LSR $55
1795  20 2D 20    JSR $202D
1798  42          ??
1799  4F          ??
179A  55 4E       EOR $4E,X
179C  44          ??
179D  45 52       EOR $52
179F  20 2D 20    JSR $202D
17A2  54          ??
17A3  48          PHA
17A4  45 20       EOR $20
17A6  45 4C       EOR $4C
17A8  45 56       EOR $56
17AA  41 54       EOR ($54,X)
17AC  4F          ??
17AD  52          ??
17AE  20 41 43    JSR $4341
17B1  54          ??
17B2  49 4F       EOR #$4F
17B4  4E 20 20    LSR $2020
17B7  41 4E       EOR ($4E,X)
17B9  44          ??
17BA  20 41 4C    JSR $4C41
17BD  4C 20 54    JMP $5420
17C0  48          PHA
17C1  45 20       EOR $20
17C3  4F          ??
17C4  54          ??
17C5  48          PHA
17C6  45 52       EOR $52
17C8  20 45 58    JSR $5845
17CB  43          ??
17CC  49 54       EOR #$54
17CE  49 4E       EOR #$4E
17D0  47          ??
17D1  20 53 43    JSR $4353
17D4  41 20       EOR ($20,X)
17D6  50 52       BVC $182A
17D8  4F          ??
17D9  44          ??
17DA  55 43       EOR $43,X
17DC  54          ??
17DD  53          ??
17DE  20 21 21    JSR $2121
17E1  21 20       AND ($20,X)
17E3  20 20 41    JSR $4120
17E6  54          ??
17E7  41 52       EOR ($52,X)
17E9  49 20       EOR #$20
17EB  47          ??
17EC  4F          ??
17ED  20 48 4F    JSR $4F48
17F0  4D 45 2E    EOR $2E45
17F3  2E 2E 20    ROL $202E
17F6  41 4D       EOR ($4D,X)
17F8  49 47       EOR #$47
17FA  41 20       EOR ($20,X)
17FC  49 53       EOR #$53
17FE  20 43 4F    JSR $4F43
1801  4D 49 4E    EOR $4E49
1804  47          ??
1805  20 21 21    JSR $2121
1808  21 20       AND ($20,X)
180A  20 20 20    JSR $2020
180D  20 20 20    JSR $2020
1810  20 20 20    JSR $2020
1813  20 20 20    JSR $2020
1816  20 20 20    JSR $2020
1819  00          BRK
181A  78          SEI
181B  A2 11       LDX #$11
181D  A0 01       LDY #$01
181F  A9 08       LDA #$08
1821  8D 00 18    STA $1800
1824  AD 00 1C    LDA $1C00
1827  49 08       EOR #$08
1829  8D 00 1C    STA $1C00
182C  20 6B 46    JSR $466B
182F  AD 00 1C    LDA $1C00
1832  49 08       EOR #$08
1834  8D 00 1C    STA $1C00
1837  A0 00       LDY #$00
1839  A2 FE       LDX #$FE
183B  AD 00 03    LDA $0300
183E  D0 03       BNE $1843
1840  AE 01 03    LDX $0301
1843  86 8B       STX $8B
1845  B9 02 03    LDA $0302,Y
1848  20 4C 46    JSR $464C
184B  C8          INY
184C  C4 8B       CPY $8B
184E  D0 F5       BNE $1845
1850  AE 00 03    LDX $0300
1853  F0 06       BEQ $185B
1855  AC 01 03    LDY $0301
1858  4C 05 46    JMP $4605
185B  A9 0A       LDA #$0A
185D  8D 00 18    STA $1800
1860  E8          INX
1861  D0 F8       BNE $185B
1863  6C FC FF    JMP ($FFFC)
1866  85 44       STA $44
1868  A2 08       LDX #$08
186A  26 44       ROL $44
186C  2A          ROL A
186D  2A          ROL A
186E  29 02       AND #$02
1870  8D 00 18    STA $1800
1873  AD 00 18    LDA $1800
1876  29 04       AND #$04
1878  D0 F9       BNE $1873
187A  AD 00 18    LDA $1800
187D  29 04       AND #$04
187F  F0 F9       BEQ $187A
1881  CA          DEX
1882  D0 E6       BNE $186A
1884  60          RTS
1885  86 06       STX $06
1887  84 07       STY $07
1889  A9 80       LDA #$80
188B  85 00       STA $00
188D  58          CLI
188E  A5 00       LDA $00
1890  30 FC       BMI $188E
1892  78          SEI
1893  60          RTS
READY.