AXY8.SRC
FILE INFORMATION
FILENAME(S): AXY8.SRC
FILE TYPE(S): SEQ
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:14:10
APPEARS ON: 1 disk(s)
FILE HASH
dcb5cfa29a61dbec5d93e8df4354c3fca355b0d5f3a60a0f7ebecf5984c56508
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VERZAMEL HULP | AXY8.SRC | SEQ | DuncanTwain | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00000020: 3B 2A 20 49 4E 44 45 58 20 53 48 4F 57 45 52 20 |;* INDEX SHOWER | 00000030: 46 4F 52 0D 3B 2A 20 50 52 4F 47 52 41 4D 20 43 |FOR.;* PROGRAM C| 00000040: 4F 55 4E 54 45 52 0D 3B 2A 20 42 41 53 49 43 20 |OUNTER.;* BASIC | 00000050: 4C 49 4E 45 0D 3B 2A 20 41 20 52 45 47 49 53 54 |LINE.;* A REGIST| 00000060: 45 52 0D 3B 2A 20 58 20 52 45 47 49 53 54 45 52 |ER.;* X REGISTER| 00000070: 0D 3B 2A 20 59 20 52 45 47 49 53 54 45 52 0D 3B |.;* Y REGISTER.;| 00000080: 2A 0D 3B 2A 20 42 59 20 4A 4F 48 4E 20 48 4F 4C |*.;* BY JOHN HOL| 00000090: 4C 45 4E 42 45 52 47 0D 3B 2A 0D 3B 2A 20 46 4F |LENBERG.;*.;* FO| 000000A0: 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 43 |R COMMODORE 64 C| 000000B0: 4F 4D 50 55 54 45 52 53 0D 3B 2A 20 44 44 20 32 |OMPUTERS.;* DD 2| 000000C0: 32 2E 30 34 2E 31 39 38 33 0D 3B 2A 0D 3B 2A 2A |2.04.1983.;*.;**| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 50 |*************.;P| 000000F0: 55 54 22 40 3A 41 58 59 2E 53 52 43 22 0D 3B 0D |UT"@:AXY.SRC".;.| 00000100: 50 55 54 31 20 3D 24 46 43 0D 50 55 54 32 20 3D |PUT1 =$FC.PUT2 =| 00000110: 24 46 44 0D 48 4C 50 20 20 3D 24 46 42 0D 49 52 |$FD.HLP =$FB.IR| 00000120: 51 4C 20 3D 24 30 33 31 34 0D 49 52 51 48 20 3D |QL =$0314.IRQH =| 00000130: 24 30 33 31 35 0D 53 54 41 43 4B 3D 24 30 31 30 |$0315.STACK=$010| 00000140: 30 0D 43 4F 4C 52 45 47 20 20 3D 24 44 38 30 30 |0.COLREG =$D800| 00000150: 0D 49 52 51 4F 4C 44 20 20 3D 24 45 41 33 31 0D |.IRQOLD =$EA31.| 00000160: 50 49 43 54 20 3D 24 30 34 30 30 0D 4C 4E 48 20 |PICT =$0400.LNH | 00000170: 3D 24 33 41 0D 3B 0D 4C 4E 4C 20 3D 24 33 39 0D |=$3A.;.LNL =$39.| 00000180: 3B 0D 3B 0D 2A 3D 34 39 31 35 32 0D 3B 0D 20 20 |;.;.*=49152.;. | 00000190: 20 20 20 20 20 20 53 45 49 20 20 20 20 20 20 20 | SEI | 000001A0: 20 20 3B 4D 41 41 4B 20 45 45 4E 20 4E 49 45 55 | ;MAAK EEN NIEU| 000001B0: 57 45 20 49 52 51 20 56 45 43 54 4F 52 0D 20 20 |WE IRQ VECTOR. | 000001C0: 20 20 20 20 20 20 4C 44 41 20 23 24 30 44 0D 20 | LDA #$0D. | 000001D0: 20 20 20 20 20 20 20 53 54 41 20 49 52 51 4C 0D | STA IRQL.| 000001E0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 43 30 | LDA #$C0| 000001F0: 0D 20 20 20 20 20 20 20 20 53 54 41 20 49 52 51 |. STA IRQ| 00000200: 48 0D 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 |H. CLI. | 00000210: 20 20 20 20 20 20 52 54 53 0D 53 54 41 52 54 20 | RTS.START | 00000220: 4C 53 52 20 41 0D 20 50 4C 41 0D 20 53 54 41 20 |LSR A. PLA. STA | 00000230: 49 4E 44 45 58 59 0D 20 50 4C 41 0D 20 53 54 41 |INDEXY. PLA. STA| 00000240: 20 49 4E 44 45 58 58 0D 20 50 4C 41 0D 20 53 54 | INDEXX. PLA. ST| 00000250: 41 20 49 4E 44 45 58 41 0D 20 50 4C 41 0D 20 50 |A INDEXA. PLA. P| 00000260: 4C 41 0D 20 41 44 43 20 23 24 46 46 0D 20 53 54 |LA. ADC #$FF. ST| 00000270: 41 20 53 54 41 43 4B 4C 0D 20 50 4C 41 0D 20 41 |A STACKL. PLA. A| 00000280: 44 43 20 23 24 46 46 0D 20 53 54 41 20 53 54 41 |DC #$FF. STA STA| 00000290: 43 4B 48 0D 20 20 20 20 20 20 20 20 3B 0D 20 20 |CKH. ;. | 000002A0: 20 20 20 20 20 20 54 53 58 20 20 20 20 20 20 20 | TSX | 000002B0: 20 20 3B 54 52 41 4E 53 46 2E 53 54 41 43 4B 3E | ;TRANSF.STACK>| 000002C0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 53 |X. STX S| 000002D0: 50 4F 49 4E 54 0D 20 20 20 20 20 20 20 20 4A 4D |POINT. JM| 000002E0: 50 20 52 45 53 54 52 54 0D 53 54 41 43 4B 4C 20 |P RESTRT.STACKL | 000002F0: 20 20 4E 4F 50 0D 53 54 41 43 4B 48 20 20 4E 4F | NOP.STACKH NO| 00000300: 50 0D 49 4E 44 45 58 0D 2E 42 59 54 20 27 4C 4E |P.INDEX..BYT 'LN| 00000310: 3D 20 20 20 20 20 50 43 3D 20 20 20 20 20 20 53 |= PC= S| 00000320: 50 3D 20 20 20 58 3D 20 20 20 59 3D 20 20 20 41 |P= X= Y= A| 00000330: 3D 20 20 20 20 27 0D 49 4E 44 45 58 32 0D 2E 42 |= '.INDEX2..B| 00000340: 59 54 20 27 30 31 32 33 34 35 36 37 38 39 41 42 |YT '0123456789AB| 00000350: 43 44 45 46 27 0D 52 45 53 54 52 54 0D 20 20 20 |CDEF'.RESTRT. | 00000360: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D | LDY #$00.| 00000370: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 00000380: 31 0D 43 4F 4C 20 20 20 20 53 54 41 20 43 4F 4C |1.COL STA COL| 00000390: 52 45 47 2C 59 20 20 3B 4B 4C 45 55 52 20 44 45 |REG,Y ;KLEUR DE| 000003A0: 20 42 4F 56 45 4E 53 54 45 20 52 45 47 45 4C 0D | BOVENSTE REGEL.| 000003B0: 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 | INY. | 000003C0: 20 20 20 20 43 50 59 20 23 34 30 0D 20 20 20 20 | CPY #40. | 000003D0: 20 20 20 20 42 4E 45 20 43 4F 4C 0D 20 20 20 20 | BNE COL. | 000003E0: 20 20 20 4C 44 58 20 23 30 0D 4C 4F 4F 50 20 20 | LDX #0.LOOP | 000003F0: 20 4C 44 41 20 49 4E 44 45 58 2C 58 0D 20 20 20 | LDA INDEX,X. | 00000400: 20 20 20 20 53 54 41 20 50 49 43 54 2C 58 0D 20 | STA PICT,X. | 00000410: 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 | INX. | 00000420: 20 43 50 58 20 23 24 32 41 0D 20 20 20 20 20 20 | CPX #$2A. | 00000430: 20 42 4E 45 20 4C 4F 4F 50 0D 20 20 20 20 20 20 | BNE LOOP. | 00000440: 20 4A 53 52 20 4A 4F 42 31 0D 20 20 20 20 20 20 | JSR JOB1. | 00000450: 20 4A 53 52 20 4A 4F 42 32 0D 20 20 20 20 20 20 | JSR JOB2. | 00000460: 20 4A 53 52 20 53 50 0D 20 20 20 20 20 20 20 4A | JSR SP. J| 00000470: 53 52 20 52 45 47 58 0D 20 20 20 20 20 20 20 4A |SR REGX. J| 00000480: 53 52 20 52 45 47 59 0D 20 20 20 20 20 20 4A 53 |SR REGY. JS| 00000490: 52 20 52 45 47 41 0D 20 4C 44 58 20 53 50 4F 49 |R REGA. LDX SPOI| 000004A0: 4E 54 0D 20 54 58 53 0D 20 4C 44 41 20 53 54 41 |NT. TXS. LDA STA| 000004B0: 43 4B 48 0D 20 50 48 41 0D 20 4C 44 41 20 53 54 |CKH. PHA. LDA ST| 000004C0: 41 43 4B 4C 0D 20 50 48 41 0D 20 50 48 41 0D 20 |ACKL. PHA. PHA. | 000004D0: 4C 44 41 20 49 4E 44 45 58 41 0D 20 50 48 41 0D |LDA INDEXA. PHA.| 000004E0: 20 4C 44 41 20 49 4E 44 45 58 58 0D 20 50 48 41 | LDA INDEXX. PHA| 000004F0: 0D 20 4C 44 41 20 49 4E 44 45 58 59 0D 20 50 48 |. LDA INDEXY. PH| 00000500: 41 0D 20 20 20 20 20 20 4A 4D 50 20 49 52 51 4F |A. JMP IRQO| 00000510: 4C 44 0D 20 20 20 20 20 20 52 54 53 0D 53 50 20 |LD. RTS.SP | 00000520: 20 20 20 4C 44 41 20 53 50 4F 49 4E 54 0D 20 20 | LDA SPOINT. | 00000530: 20 20 20 20 4A 53 52 20 20 20 20 44 45 56 49 44 | JSR DEVID| 00000540: 45 0D 20 20 20 20 20 4C 44 58 20 50 55 54 31 0D |E. LDX PUT1.| 00000550: 20 20 20 20 20 20 4C 44 41 20 20 20 20 49 4E 44 | LDA IND| 00000560: 45 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 20 |EX2,X. STA | 00000570: 20 20 24 30 34 31 34 0D 20 20 20 20 20 4C 44 58 | $0414. LDX| 00000580: 20 20 20 20 50 55 54 32 0D 20 20 20 20 20 4C 44 | PUT2. LD| 00000590: 41 20 20 20 20 49 4E 44 45 58 32 2C 58 0D 20 20 |A INDEX2,X. | 000005A0: 20 20 20 53 54 41 20 20 20 20 24 30 34 31 35 0D | STA $0415.| 000005B0: 20 20 20 20 20 52 54 53 0D 52 45 47 58 20 20 4C | RTS.REGX L| 000005C0: 44 41 20 49 4E 44 45 58 58 0D 20 20 20 20 20 20 |DA INDEXX. | 000005D0: 4A 53 52 20 20 20 20 44 45 56 49 44 45 0D 20 20 |JSR DEVIDE. | 000005E0: 20 20 20 4C 44 58 20 50 55 54 31 0D 20 20 20 20 | LDX PUT1. | 000005F0: 20 20 4C 44 41 20 20 20 20 49 4E 44 45 58 32 2C | LDA INDEX2,| 00000600: 58 0D 20 20 20 20 20 53 54 41 20 20 20 20 24 30 |X. STA $0| 00000610: 34 31 39 0D 20 20 20 20 20 4C 44 58 20 20 20 20 |419. LDX | 00000620: 50 55 54 32 0D 20 20 20 20 20 4C 44 41 20 20 20 |PUT2. LDA | 00000630: 20 49 4E 44 45 58 32 2C 58 0D 20 20 20 20 20 53 | INDEX2,X. S| 00000640: 54 41 20 20 20 20 24 30 34 31 41 0D 20 20 20 20 |TA $041A. | 00000650: 20 52 54 53 0D 52 45 47 59 20 4C 44 41 20 49 4E | RTS.REGY LDA IN| 00000660: 44 45 58 59 20 3B 44 4F 20 54 48 45 20 58 0D 20 |DEXY ;DO THE X. | 00000670: 20 20 20 20 4A 53 52 20 44 45 56 49 44 45 0D 20 | JSR DEVIDE. | 00000680: 20 20 20 20 4C 44 58 20 50 55 54 31 0D 20 20 20 | LDX PUT1. | 00000690: 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D 20 | LDA INDEX2,X. | 000006A0: 20 20 20 20 53 54 41 20 24 30 34 31 45 0D 20 20 | STA $041E. | 000006B0: 20 20 20 4C 44 58 20 50 55 54 32 0D 20 20 20 20 | LDX PUT2. | 000006C0: 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D 20 20 | LDA INDEX2,X. | 000006D0: 20 20 20 53 54 41 20 24 30 34 31 46 0D 20 20 20 | STA $041F. | 000006E0: 20 20 52 54 53 0D 52 45 47 41 20 4C 44 41 20 49 | RTS.REGA LDA I| 000006F0: 4E 44 45 58 41 20 3B 44 4F 20 54 48 45 20 41 0D |NDEXA ;DO THE A.| 00000700: 20 20 20 20 20 4A 53 52 20 44 45 56 49 44 45 0D | JSR DEVIDE.| 00000710: 20 20 20 20 20 4C 44 58 20 50 55 54 31 0D 20 20 | LDX PUT1. | 00000720: 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D | LDA INDEX2,X.| 00000730: 20 20 20 20 20 53 54 41 20 24 30 34 32 33 0D 20 | STA $0423. | 00000740: 20 20 20 20 4C 44 58 20 50 55 54 32 0D 20 20 20 | LDX PUT2. | 00000750: 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D 20 | LDA INDEX2,X. | 00000760: 20 20 20 20 53 54 41 20 24 30 34 32 34 0D 20 20 | STA $0424. | 00000770: 20 20 20 52 54 53 0D 4A 4F 42 31 20 4C 44 41 20 | RTS.JOB1 LDA | 00000780: 4C 4E 48 20 20 20 20 3B 44 4F 20 54 48 45 20 4C |LNH ;DO THE L| 00000790: 4E 20 4E 52 0D 20 20 20 20 20 4A 53 52 20 44 45 |N NR. JSR DE| 000007A0: 56 49 44 45 0D 20 20 20 20 20 4C 44 58 20 50 55 |VIDE. LDX PU| 000007B0: 54 31 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 |T1. LDA INDE| 000007C0: 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 |X2,X. STA $0| 000007D0: 34 30 33 0D 20 20 20 20 20 4C 44 58 20 50 55 54 |403. LDX PUT| 000007E0: 32 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 58 |2. LDA INDEX| 000007F0: 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 34 |2,X. STA $04| 00000800: 30 34 0D 20 20 20 20 20 4C 44 41 20 4C 4E 4C 20 |04. LDA LNL | 00000810: 20 20 20 3B 4C 4F 57 20 42 59 54 45 20 4C 4E 0D | ;LOW BYTE LN.| 00000820: 20 20 20 20 20 4A 53 52 20 44 45 56 49 44 45 0D | JSR DEVIDE.| 00000830: 20 20 20 20 20 4C 44 58 20 50 55 54 31 0D 20 20 | LDX PUT1. | 00000840: 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D | LDA INDEX2,X.| 00000850: 20 20 20 20 20 53 54 41 20 24 30 34 30 35 0D 20 | STA $0405. | 00000860: 20 20 20 20 4C 44 58 20 50 55 54 32 0D 20 20 20 | LDX PUT2. | 00000870: 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D 20 | LDA INDEX2,X. | 00000880: 20 20 20 20 53 54 41 20 24 30 34 30 36 0D 20 20 | STA $0406. | 00000890: 20 20 20 52 54 53 0D 4A 4F 42 32 20 4C 44 41 20 | RTS.JOB2 LDA | 000008A0: 53 54 41 43 4B 48 20 3B 44 4F 20 54 48 45 20 53 |STACKH ;DO THE S| 000008B0: 54 41 43 4B 0D 20 20 20 20 20 4A 53 52 20 44 45 |TACK. JSR DE| 000008C0: 56 49 44 45 0D 20 20 20 20 20 4C 44 58 20 50 55 |VIDE. LDX PU| 000008D0: 54 31 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 |T1. LDA INDE| 000008E0: 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 |X2,X. STA $0| 000008F0: 34 30 43 0D 20 20 20 20 20 4C 44 58 20 50 55 54 |40C. LDX PUT| 00000900: 32 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 58 |2. LDA INDEX| 00000910: 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 34 |2,X. STA $04| 00000920: 30 44 0D 20 20 20 20 20 4C 44 41 20 53 54 41 43 |0D. LDA STAC| 00000930: 4B 4C 0D 20 20 20 20 20 4A 53 52 20 44 45 56 49 |KL. JSR DEVI| 00000940: 44 45 0D 20 20 20 20 20 4C 44 58 20 50 55 54 31 |DE. LDX PUT1| 00000950: 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 58 32 |. LDA INDEX2| 00000960: 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 34 30 |,X. STA $040| 00000970: 45 0D 20 20 20 20 20 4C 44 58 20 50 55 54 32 0D |E. LDX PUT2.| 00000980: 20 20 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C | LDA INDEX2,| 00000990: 58 0D 20 20 20 20 20 53 54 41 20 24 30 34 31 46 |X. STA $041F| 000009A0: 0D 20 20 20 20 20 52 54 53 0D 44 45 56 49 44 45 |. RTS.DEVIDE| 000009B0: 20 20 20 20 20 20 3B 44 45 45 4C 20 47 45 54 41 | ;DEEL GETA| 000009C0: 4C 20 44 4F 4F 52 20 31 36 0D 20 20 20 20 20 43 |L DOOR 16. C| 000009D0: 4C 43 0D 20 20 20 20 20 54 41 59 0D 20 20 20 20 |LC. TAY. | 000009E0: 20 4C 53 52 20 41 0D 20 20 20 20 4C 53 52 20 41 | LSR A. LSR A| 000009F0: 0D 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 4C |. LSR A. L| 00000A00: 53 52 20 41 0D 20 20 20 20 53 54 41 20 50 55 54 |SR A. STA PUT| 00000A10: 31 0D 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 |1. ASL A. | 00000A20: 41 53 4C 20 41 0D 20 20 20 20 41 53 4C 20 41 0D |ASL A. ASL A.| 00000A30: 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 53 | ASL A. S| 00000A40: 54 41 20 48 4C 50 0D 20 20 20 20 20 53 45 43 0D |TA HLP. SEC.| 00000A50: 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 53 42 | TYA. SB| 00000A60: 43 20 48 4C 50 0D 20 20 20 20 20 53 54 41 20 50 |C HLP. STA P| 00000A70: 55 54 32 0D 52 54 53 0D 49 4E 44 45 58 41 20 20 |UT2.RTS.INDEXA | 00000A80: 20 4E 4F 50 0D 49 4E 44 45 58 59 20 20 4E 4F 50 | NOP.INDEXY NOP| 00000A90: 0D 49 4E 44 45 58 58 20 20 4E 4F 50 0D 53 50 4F |.INDEXX NOP.SPO| 00000AA0: 49 4E 54 20 4E 4F 50 0D 2E 45 4E 44 0D |INT NOP..END. |
;******************************.;* INDEX
SHOWER FOR.;* PROGRAM COUNTER.;* BASIC
LINE.;* A REGISTER.;* X REGISTER.;* Y RE
GISTER.;*.;* BY JOHN HOLLENBERG.;*.;* FO
R COMMODORE 64 COMPUTERS.;* DD 22.04.198
3.;*.;*******************************.;P
UT"@:AXY.SRC".;.PUT1 =$FC.PUT2 =$FD.HLP
=$FB.IRQL =$0314.IRQH =$0315.STACK=$010
0.COLREG =$D800.IRQOLD =$EA31.PICT =$0
400.LNH =$3A.;.LNL =$39.;.;.*=49152.;.
SEI ;MAAK EEN NIEUWE IRQ V
ECTOR. LDA #$0D. STA IRQL.
LDA #$C0. STA IRQH.
CLI. RTS.START LSR A. PLA. STA
INDEXY. PLA. STA INDEXX. PLA. STA INDEXA
. PLA. PLA. ADC #$FF. STA STACKL. PLA. A
DC #$FF. STA STACKH. ;. TS
X ;TRANSF.STACK>X. STX S
POINT. JMP RESTRT.STACKL NOP.ST
ACKH NOP.INDEX..BYT 'LN= PC= S
P= X= Y= A= '.INDEX2..BYT '0123
456789ABCDEF'.RESTRT. LDY #$00.
LDA #$01.COL STA COLREG,Y ;
KLEUR DE BOVENSTE REGEL. INY.
CPY #40. BNE COL. LDX #
0.LOOP LDA INDEX,X. STA PICT,X.
INX. CPX #$2A. BNE LOO
P. JSR JOB1. JSR JOB2.
JSR SP. JSR REGX. JSR REGY.
JSR REGA. LDX SPOINT. TXS. LDA STA
CKH. PHA. LDA STACKL. PHA. PHA. LDA INDE
XA. PHA. LDA INDEXX. PHA. LDA INDEXY. PH
A. JMP IRQOLD. RTS.SP LDA S
POINT. JSR DEVIDE. LDX PUT1.
LDA INDEX2,X. STA $0414.
LDX PUT2. LDA INDEX2,X.
STA $0415. RTS.REGX LDA INDEX
X. JSR DEVIDE. LDX PUT1.
LDA INDEX2,X. STA $0419.
LDX PUT2. LDA INDEX2,X. S
TA $041A. RTS.REGY LDA INDEXY ;DO
THE X. JSR DEVIDE. LDX PUT1.
LDA INDEX2,X. STA $041E. LDX P
UT2. LDA INDEX2,X. STA $041F.
RTS.REGA LDA INDEXA ;DO THE A. JSR
DEVIDE. LDX PUT1. LDA INDEX2,X.
STA $0423. LDX PUT2. LDA IN
DEX2,X. STA $0424. RTS.JOB1 LDA
LNH ;DO THE LN NR. JSR DEVIDE.
LDX PUT1. LDA INDEX2,X. STA $0
403. LDX PUT2. LDA INDEX2,X.
STA $0404. LDA LNL ;LOW BYTE LN.
JSR DEVIDE. LDX PUT1. LDA I
NDEX2,X. STA $0405. LDX PUT2.
LDA INDEX2,X. STA $0406. RTS.J
OB2 LDA STACKH ;DO THE STACK. JSR DE
VIDE. LDX PUT1. LDA INDEX2,X.
STA $040C. LDX PUT2. LDA INDEX
2,X. STA $040D. LDA STACKL.
JSR DEVIDE. LDX PUT1. LDA INDEX2
,X. STA $040E. LDX PUT2. LDA
INDEX2,X. STA $041F. RTS.DEVIDE
;DEEL GETAL DOOR 16. CLC.
TAY. LSR A. LSR A. LSR A. L
SR A. STA PUT1. ASL A. ASL A.
ASL A. ASL A. STA HLP. SEC.
TYA. SBC HLP. STA PUT2.RTS.
INDEXA NOP.INDEXY NOP.INDEXX NOP.SPO
INT NOP..END.
> CLICK IMAGE PREVIEW FOR FULL MODAL