AXYML.OBJ
FILE INFORMATION
FILENAME(S): AXYML.OBJ
FILE TYPE(S): SEQ
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:14:10
APPEARS ON: 1 disk(s)
FILE HASH
a7e168993cb2508f04f89a215af71bd2a3e139d2c2f7bc212c9bed3a3eb90296
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VERZAMEL HULP | AXYML.OBJ | SEQ | DuncanTwain | 23 | 8 | 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 2F 55 50 44 41 54 45 |2.04.1983/UPDATE| 000000D0: 20 4D 4C 20 31 39 2F 37 2F 38 33 0D 3B 2A 0D 3B | ML 19/7/83.;*.;| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00000100: 3B 50 55 54 22 40 3A 41 58 59 2E 53 52 43 22 0D |;PUT"@:AXY.SRC".| 00000110: 3B 0D 50 55 54 31 20 3D 24 46 43 0D 50 55 54 32 |;.PUT1 =$FC.PUT2| 00000120: 20 3D 24 46 44 0D 48 4C 50 20 20 3D 24 46 42 0D | =$FD.HLP =$FB.| 00000130: 49 52 51 4C 20 3D 24 30 33 31 34 0D 49 52 51 48 |IRQL =$0314.IRQH| 00000140: 20 3D 24 30 33 31 35 0D 53 54 41 43 4B 20 3D 24 | =$0315.STACK =$| 00000150: 30 31 30 30 0D 43 4F 4C 52 45 47 20 20 3D 24 44 |0100.COLREG =$D| 00000160: 38 30 30 0D 49 52 51 4F 4C 44 20 20 3D 24 45 41 |800.IRQOLD =$EA| 00000170: 33 31 0D 50 49 43 54 20 3D 24 30 34 30 30 0D 4C |31.PICT =$0400.L| 00000180: 4E 48 20 3D 24 30 33 31 35 0D 3B 0D 4C 4E 4C 20 |NH =$0315.;.LNL | 00000190: 3D 24 30 33 31 34 0D 3B 0D 3B 0D 2A 3D 34 39 31 |=$0314.;.;.*=491| 000001A0: 35 32 0D 3B 0D 2E 50 41 47 45 0D 20 20 20 20 20 |52.;..PAGE. | 000001B0: 20 20 20 53 45 49 20 20 20 20 20 20 20 20 20 3B | SEI ;| 000001C0: 4D 41 41 4B 20 45 45 4E 20 4E 49 45 55 57 45 20 |MAAK EEN NIEUWE | 000001D0: 49 52 51 20 56 45 43 54 4F 52 0D 20 20 20 20 20 |IRQ VECTOR. | 000001E0: 20 20 20 4C 44 41 20 23 24 30 44 0D 20 20 20 20 | LDA #$0D. | 000001F0: 20 20 20 20 53 54 41 20 49 52 51 4C 0D 20 20 20 | STA IRQL. | 00000200: 20 20 20 20 20 4C 44 41 20 23 24 43 30 0D 20 20 | LDA #$C0. | 00000210: 20 20 20 20 20 20 53 54 41 20 49 52 51 48 0D 20 | STA IRQH. | 00000220: 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 20 20 | CLI. | 00000230: 20 20 20 52 54 53 0D 53 54 41 52 54 20 20 20 53 | RTS.START S| 00000240: 54 41 20 49 4E 44 45 58 41 20 20 3B 53 54 4F 52 |TA INDEXA ;STOR| 00000250: 45 20 44 45 20 52 45 47 49 53 54 45 52 53 0D 20 |E DE REGISTERS. | 00000260: 20 20 20 20 20 20 20 53 54 59 20 49 4E 44 45 58 | STY INDEX| 00000270: 59 0D 20 20 20 20 20 20 20 20 53 54 58 20 49 4E |Y. STX IN| 00000280: 44 45 58 58 0D 20 20 20 20 20 20 20 20 3B 0D 20 |DEXX. ;. | 00000290: 20 20 20 20 20 20 20 54 53 58 20 20 20 20 20 20 | TSX | 000002A0: 20 20 20 3B 54 52 41 4E 53 46 2E 53 54 41 43 4B | ;TRANSF.STACK| 000002B0: 3E 58 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |>X. STX | 000002C0: 53 50 4F 49 4E 54 0D 20 20 20 20 20 20 20 20 44 |SPOINT. D| 000002D0: 45 58 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |EX. | 000002E0: 20 20 20 20 20 20 20 3B 49 4E 43 20 58 0D 20 20 | ;INC X. | 000002F0: 20 20 20 20 20 20 20 4C 44 41 20 53 54 41 43 4B | LDA STACK| 00000300: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00000310: 53 54 41 43 4B 4C 0D 20 20 20 20 20 20 20 20 20 |STACKL. | 00000320: 4C 44 41 20 53 54 41 43 4B 2B 31 2C 58 0D 20 20 |LDA STACK+1,X. | 00000330: 20 20 20 20 20 20 20 53 54 41 20 53 54 41 43 4B | STA STACK| 00000340: 48 0D 20 20 20 20 20 20 20 20 4A 4D 50 20 52 45 |H. JMP RE| 00000350: 53 54 52 54 0D 53 54 41 43 4B 4C 20 20 20 4E 4F |STRT.STACKL NO| 00000360: 50 0D 53 54 41 43 4B 48 20 20 4E 4F 50 0D 49 4E |P.STACKH NOP.IN| 00000370: 44 45 58 0D 2E 42 59 54 20 27 49 51 3D 20 20 20 |DEX..BYT 'IQ= | 00000380: 20 20 50 43 3D 20 20 20 20 20 20 53 50 3D 20 20 | PC= SP= | 00000390: 20 58 3D 20 20 20 59 3D 20 20 20 41 3D 20 20 20 | X= Y= A= | 000003A0: 20 27 0D 49 4E 44 45 58 32 0D 2E 42 59 54 20 27 | '.INDEX2..BYT '| 000003B0: 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 |0123456789ABCDEF| 000003C0: 27 0D 52 45 53 54 52 54 0D 20 20 20 20 20 20 20 |'.RESTRT. | 000003D0: 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 | LDY #$00. | 000003E0: 20 20 20 20 20 4C 44 41 20 23 24 30 31 0D 43 4F | LDA #$01.CO| 000003F0: 4C 20 20 20 20 53 54 41 20 43 4F 4C 52 45 47 2C |L STA COLREG,| 00000400: 59 20 20 3B 4B 4C 45 55 52 20 44 45 20 42 4F 56 |Y ;KLEUR DE BOV| 00000410: 45 4E 53 54 45 20 52 45 47 45 4C 0D 20 20 20 20 |ENSTE REGEL. | 00000420: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00000430: 43 50 59 20 23 34 30 0D 20 20 20 20 20 20 20 20 |CPY #40. | 00000440: 42 4E 45 20 43 4F 4C 0D 20 20 20 20 20 20 20 4C |BNE COL. L| 00000450: 44 58 20 23 30 0D 4C 4F 4F 50 20 20 20 4C 44 41 |DX #0.LOOP LDA| 00000460: 20 49 4E 44 45 58 2C 58 0D 20 20 20 20 20 20 20 | INDEX,X. | 00000470: 53 54 41 20 50 49 43 54 2C 58 0D 20 20 20 20 20 |STA PICT,X. | 00000480: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 43 50 58 | INX. CPX| 00000490: 20 23 24 32 41 0D 20 20 20 20 20 20 20 42 4E 45 | #$2A. BNE| 000004A0: 20 4C 4F 4F 50 0D 20 20 20 20 20 20 20 4A 53 52 | LOOP. JSR| 000004B0: 20 4A 4F 42 31 0D 20 20 20 20 20 20 20 4A 53 52 | JOB1. JSR| 000004C0: 20 4A 4F 42 32 0D 20 20 20 20 20 20 20 4A 53 52 | JOB2. JSR| 000004D0: 20 53 50 0D 20 20 20 20 20 20 20 4A 53 52 20 52 | SP. JSR R| 000004E0: 45 47 58 0D 20 20 20 20 20 20 20 4A 53 52 20 52 |EGX. JSR R| 000004F0: 45 47 59 0D 20 20 20 20 20 20 4A 53 52 20 52 45 |EGY. JSR RE| 00000500: 47 41 0D 20 20 20 20 20 20 4A 4D 50 20 49 52 51 |GA. JMP IRQ| 00000510: 4F 4C 44 0D 20 20 20 20 20 20 52 54 53 0D 53 50 |OLD. RTS.SP| 00000520: 20 20 20 20 4C 44 41 20 53 50 4F 49 4E 54 0D 20 | LDA SPOINT. | 00000530: 20 20 20 20 20 4A 53 52 20 20 20 20 44 45 56 49 | JSR DEVI| 00000540: 44 45 0D 20 20 20 20 20 4C 44 58 20 50 55 54 31 |DE. LDX PUT1| 00000550: 0D 20 20 20 20 20 20 4C 44 41 20 20 20 20 49 4E |. LDA IN| 00000560: 44 45 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 |DEX2,X. STA | 00000570: 20 20 20 24 30 34 31 34 0D 20 20 20 20 20 4C 44 | $0414. LD| 00000580: 58 20 20 20 20 50 55 54 32 0D 20 20 20 20 20 4C |X PUT2. L| 00000590: 44 41 20 20 20 20 49 4E 44 45 58 32 2C 58 0D 20 |DA INDEX2,X. | 000005A0: 20 20 20 20 53 54 41 20 20 20 20 24 30 34 31 35 | STA $0415| 000005B0: 0D 20 20 20 20 20 52 54 53 0D 52 45 47 58 20 20 |. RTS.REGX | 000005C0: 4C 44 41 20 49 4E 44 45 58 58 0D 20 20 20 20 20 |LDA INDEXX. | 000005D0: 20 4A 53 52 20 20 20 20 44 45 56 49 44 45 0D 20 | JSR DEVIDE. | 000005E0: 20 20 20 20 4C 44 58 20 50 55 54 31 0D 20 20 20 | LDX PUT1. | 000005F0: 20 20 20 4C 44 41 20 20 20 20 49 4E 44 45 58 32 | LDA INDEX2| 00000600: 2C 58 0D 20 20 20 20 20 53 54 41 20 20 20 20 24 |,X. STA $| 00000610: 30 34 31 39 0D 20 20 20 20 20 4C 44 58 20 20 20 |0419. LDX | 00000620: 20 50 55 54 32 0D 20 20 20 20 20 4C 44 41 20 20 | PUT2. LDA | 00000630: 20 20 49 4E 44 45 58 32 2C 58 0D 20 20 20 20 20 | INDEX2,X. | 00000640: 53 54 41 20 20 20 20 24 30 34 31 41 0D 20 20 20 |STA $041A. | 00000650: 20 20 52 54 53 0D 52 45 47 59 20 4C 44 41 20 49 | RTS.REGY LDA I| 00000660: 4E 44 45 58 59 20 3B 44 4F 20 54 48 45 20 58 0D |NDEXY ;DO THE X.| 00000670: 20 20 20 20 20 4A 53 52 20 44 45 56 49 44 45 0D | JSR DEVIDE.| 00000680: 20 20 20 20 20 4C 44 58 20 50 55 54 31 0D 20 20 | LDX PUT1. | 00000690: 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D | LDA INDEX2,X.| 000006A0: 20 20 20 20 20 53 54 41 20 24 30 34 31 45 0D 20 | STA $041E. | 000006B0: 20 20 20 20 4C 44 58 20 50 55 54 32 0D 20 20 20 | LDX PUT2. | 000006C0: 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D 20 | LDA INDEX2,X. | 000006D0: 20 20 20 20 53 54 41 20 24 30 34 31 46 0D 20 20 | STA $041F. | 000006E0: 20 20 20 52 54 53 0D 52 45 47 41 20 4C 44 41 20 | RTS.REGA LDA | 000006F0: 49 4E 44 45 58 41 20 3B 44 4F 20 54 48 45 20 41 |INDEXA ;DO THE A| 00000700: 0D 20 20 20 20 20 4A 53 52 20 44 45 56 49 44 45 |. JSR DEVIDE| 00000710: 0D 20 20 20 20 20 4C 44 58 20 50 55 54 31 0D 20 |. LDX PUT1. | 00000720: 20 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 | LDA INDEX2,X| 00000730: 0D 20 20 20 20 20 53 54 41 20 24 30 34 32 33 0D |. STA $0423.| 00000740: 20 20 20 20 20 4C 44 58 20 50 55 54 32 0D 20 20 | LDX PUT2. | 00000750: 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D | LDA INDEX2,X.| 00000760: 20 20 20 20 20 53 54 41 20 24 30 34 32 34 0D 20 | STA $0424. | 00000770: 20 20 20 20 52 54 53 0D 4A 4F 42 31 20 4C 44 41 | RTS.JOB1 LDA| 00000780: 20 4C 4E 48 20 20 20 20 3B 44 4F 20 54 48 45 20 | LNH ;DO THE | 00000790: 4C 4E 20 4E 52 0D 20 20 20 20 20 4A 53 52 20 44 |LN NR. JSR D| 000007A0: 45 56 49 44 45 0D 20 20 20 20 20 4C 44 58 20 50 |EVIDE. LDX P| 000007B0: 55 54 31 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 |UT1. LDA IND| 000007C0: 45 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 |EX2,X. STA $| 000007D0: 30 34 30 33 0D 20 20 20 20 20 4C 44 58 20 50 55 |0403. LDX PU| 000007E0: 54 32 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 |T2. LDA INDE| 000007F0: 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 |X2,X. STA $0| 00000800: 34 30 34 0D 20 20 20 20 20 4C 44 41 20 4C 4E 4C |404. LDA LNL| 00000810: 20 20 20 20 3B 4C 4F 57 20 42 59 54 45 20 4C 4E | ;LOW BYTE LN| 00000820: 0D 20 20 20 20 20 4A 53 52 20 44 45 56 49 44 45 |. JSR DEVIDE| 00000830: 0D 20 20 20 20 20 4C 44 58 20 50 55 54 31 0D 20 |. LDX PUT1. | 00000840: 20 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 | LDA INDEX2,X| 00000850: 0D 20 20 20 20 20 53 54 41 20 24 30 34 30 35 0D |. STA $0405.| 00000860: 20 20 20 20 20 4C 44 58 20 50 55 54 32 0D 20 20 | LDX PUT2. | 00000870: 20 20 20 4C 44 41 20 49 4E 44 45 58 32 2C 58 0D | LDA INDEX2,X.| 00000880: 20 20 20 20 20 53 54 41 20 24 30 34 30 36 0D 20 | STA $0406. | 00000890: 20 20 20 20 52 54 53 0D 4A 4F 42 32 20 4C 44 41 | RTS.JOB2 LDA| 000008A0: 20 53 54 41 43 4B 48 20 3B 44 4F 20 54 48 45 20 | STACKH ;DO THE | 000008B0: 53 54 41 43 4B 0D 20 20 20 20 20 4A 53 52 20 44 |STACK. JSR D| 000008C0: 45 56 49 44 45 0D 20 20 20 20 20 4C 44 58 20 50 |EVIDE. LDX P| 000008D0: 55 54 31 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 |UT1. LDA IND| 000008E0: 45 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 |EX2,X. STA $| 000008F0: 30 34 30 43 0D 20 20 20 20 20 4C 44 58 20 50 55 |040C. LDX PU| 00000900: 54 32 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 |T2. LDA INDE| 00000910: 58 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 |X2,X. STA $0| 00000920: 34 30 44 0D 20 20 20 20 20 4C 44 41 20 53 54 41 |40D. LDA STA| 00000930: 43 4B 4C 0D 20 20 20 20 20 4A 53 52 20 44 45 56 |CKL. JSR DEV| 00000940: 49 44 45 0D 20 20 20 20 20 4C 44 58 20 50 55 54 |IDE. LDX PUT| 00000950: 31 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 58 |1. LDA INDEX| 00000960: 32 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 34 |2,X. STA $04| 00000970: 30 45 0D 20 20 20 20 20 4C 44 58 20 50 55 54 32 |0E. LDX PUT2| 00000980: 0D 20 20 20 20 20 4C 44 41 20 49 4E 44 45 58 32 |. LDA INDEX2| 00000990: 2C 58 0D 20 20 20 20 20 53 54 41 20 24 30 34 31 |,X. STA $041| 000009A0: 46 0D 20 20 20 20 20 52 54 53 0D 44 45 56 49 44 |F. RTS.DEVID| 000009B0: 45 20 20 20 20 20 20 3B 44 45 45 4C 20 47 45 54 |E ;DEEL GET| 000009C0: 41 4C 20 44 4F 4F 52 20 31 36 0D 20 20 20 20 20 |AL DOOR 16. | 000009D0: 43 4C 43 0D 20 20 20 20 20 54 41 59 0D 20 20 20 |CLC. TAY. | 000009E0: 20 20 4C 53 52 20 41 0D 20 20 20 20 4C 53 52 20 | LSR A. LSR | 000009F0: 41 0D 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 |A. LSR A. | 00000A00: 4C 53 52 20 41 0D 20 20 20 20 53 54 41 20 50 55 |LSR A. STA PU| 00000A10: 54 31 0D 20 20 20 20 41 53 4C 20 41 0D 20 20 20 |T1. ASL A. | 00000A20: 20 41 53 4C 20 41 0D 20 20 20 20 41 53 4C 20 41 | ASL A. ASL A| 00000A30: 0D 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 |. ASL A. | 00000A40: 53 54 41 20 48 4C 50 0D 20 20 20 20 20 53 45 43 |STA HLP. SEC| 00000A50: 0D 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 53 |. TYA. S| 00000A60: 42 43 20 48 4C 50 0D 20 20 20 20 20 53 54 41 20 |BC HLP. STA | 00000A70: 50 55 54 32 0D 52 54 53 0D 49 4E 44 45 58 41 20 |PUT2.RTS.INDEXA | 00000A80: 20 20 4E 4F 50 0D 49 4E 44 45 58 59 20 20 4E 4F | NOP.INDEXY NO| 00000A90: 50 0D 49 4E 44 45 58 58 20 20 4E 4F 50 0D 53 50 |P.INDEXX NOP.SP| 00000AA0: 4F 49 4E 54 20 4E 4F 50 0D 2E 45 4E 44 0D |OINT 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/UPDATE ML 19/7/83.;*.;****************
***************.;PUT"@:AXY.SRC".;.PUT1 =
$FC.PUT2 =$FD.HLP =$FB.IRQL =$0314.IRQH
=$0315.STACK =$0100.COLREG =$D800.IRQO
LD =$EA31.PICT =$0400.LNH =$0315.;.LNL
=$0314.;.;.*=49152.;..PAGE. SEI
;MAAK EEN NIEUWE IRQ VECTOR.
LDA #$0D. STA IRQL. LDA
#$C0. STA IRQH. CLI.
RTS.START STA INDEXA ;STORE DE REG
ISTERS. STY INDEXY. STX IN
DEXX. ;. TSX ;TRAN
SF.STACK>X. STX SPOINT. D
EX. ;INC X. L
DA STACK,X. STA STACKL.
LDA STACK+1,X. STA STACKH.
JMP RESTRT.STACKL NOP.STACKH NOP.IN
DEX..BYT 'IQ= PC= SP= X= Y=
A= '.INDEX2..BYT '0123456789ABCDEF
'.RESTRT. LDY #$00. LDA
#$01.COL STA COLREG,Y ;KLEUR DE BOV
ENSTE REGEL. INY. CPY #40.
BNE COL. LDX #0.LOOP LDA
INDEX,X. STA PICT,X. INX.
CPX #$2A. BNE LOOP. JSR
JOB1. JSR JOB2. JSR SP.
JSR REGX. JSR REGY. JSR RE
GA. JMP IRQOLD. RTS.SP LDA
SPOINT. JSR DEVIDE. LDX PUT1
. LDA INDEX2,X. STA $0414
. LDX PUT2. LDA INDEX2,X.
STA $0415. RTS.REGX LDA INDE
XX. JSR DEVIDE. LDX PUT1.
LDA INDEX2,X. STA $0419.
LDX PUT2. LDA INDEX2,X.
STA $041A. RTS.REGY LDA INDEXY ;D
O THE X. JSR DEVIDE. LDX PUT1.
LDA INDEX2,X. STA $041E. LDX
PUT2. LDA INDEX2,X. STA $041F.
RTS.REGA LDA INDEXA ;DO THE A. JS
R DEVIDE. LDX PUT1. LDA INDEX2,X
. STA $0423. LDX PUT2. LDA I
NDEX2,X. STA $0424. RTS.JOB1 LDA
LNH ;DO THE LN NR. JSR DEVIDE.
LDX PUT1. LDA INDEX2,X. STA $
0403. LDX PUT2. LDA INDEX2,X.
STA $0404. LDA LNL ;LOW BYTE LN
. JSR DEVIDE. LDX PUT1. LDA
INDEX2,X. STA $0405. LDX PUT2.
LDA INDEX2,X. STA $0406. RTS.
JOB2 LDA STACKH ;DO THE STACK. JSR D
EVIDE. LDX PUT1. LDA INDEX2,X.
STA $040C. LDX PUT2. LDA INDE
X2,X. STA $040D. LDA STACKL.
JSR DEVIDE. LDX PUT1. LDA INDEX
2,X. STA $040E. LDX PUT2. LD
A INDEX2,X. STA $041F. RTS.DEVID
E ;DEEL GETAL DOOR 16. CLC.
TAY. LSR A. LSR A. LSR A.
LSR 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.SP
OINT NOP..END.
> CLICK IMAGE PREVIEW FOR FULL MODAL