MIG18.SID
FILE INFORMATION
FILENAME(S): MIG18.SID
FILE TYPE(S): DEL
FILE SIZE: 6.1K
FIRST SEEN: 2025-10-19 22:49:33
APPEARS ON: 2 disk(s)
FILE HASH
c0298d128902404c6db920c1cce7115c8125a05c4374536de556cec99d7bc861
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MIGDTL | MIG18.SID | DEL | Radd Maxx | 5 | 11 | DOWNLOAD FILE |
| MIGDTL | MIG18.SID | DEL | DuncanTwain | 5 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 32 59 31 20 3D 20 2A 0D 20 41 53 4C 20 41 0D 20 |2Y1 = *. ASL A. | 00000010: 54 41 59 0D 20 52 54 53 0D 3B 0D 3B 0D 3B 20 57 |TAY. RTS.;.;.; W| 00000020: 4F 52 44 2C 20 57 4F 52 44 28 53 54 4B 29 3D 3E |ORD, WORD(STK)=>| 00000030: 53 54 4B 20 24 30 46 0D 57 52 44 20 4C 44 59 20 |STK $0F.WRD LDY | 00000040: 53 54 4C 2C 58 0D 20 4A 4D 50 20 43 4F 4E 30 0D |STL,X. JMP CON0.| 00000050: 3B 0D 3B 20 20 52 4E 44 2C 20 53 54 4B 2A 52 4E |;.; RND, STK*RN| 00000060: 44 3D 3E 53 54 4B 20 24 30 38 0D 52 4E 44 20 49 |D=>STK $08.RND I| 00000070: 4E 58 20 3B 20 46 41 4B 45 20 53 54 41 43 4B 0D |NX ; FAKE STACK.| 00000080: 20 49 4E 58 0D 20 4C 44 41 20 52 41 4E 44 4F 4D | INX. LDA RANDOM| 00000090: 0D 52 4E 44 45 20 53 54 41 20 53 54 4C 2C 58 0D |.RNDE STA STL,X.| 000000A0: 20 4C 44 41 20 23 24 30 30 0D 20 53 54 41 20 53 | LDA #$00. STA S| 000000B0: 54 48 2C 58 0D 20 53 54 41 20 54 4D 50 31 0D 20 |TH,X. STA TMP1. | 000000C0: 4C 44 41 20 4F 50 48 2C 58 0D 20 42 50 4C 20 52 |LDA OPH,X. BPL R| 000000D0: 4E 44 32 0D 20 4A 53 52 20 4E 45 47 4F 50 52 20 |ND2. JSR NEGOPR | 000000E0: 3B 20 41 42 53 28 4F 50 52 29 0D 20 49 4E 43 20 |; ABS(OPR). INC | 000000F0: 54 4D 50 31 0D 52 4E 44 32 20 4C 44 59 20 23 38 |TMP1.RND2 LDY #8| 00000100: 0D 20 4A 53 52 20 4D 32 20 3B 20 44 4F 20 4D 55 |. JSR M2 ; DO MU| 00000110: 4C 54 0D 20 4C 44 41 20 53 54 58 32 2C 58 0D 20 |LT. LDA STX2,X. | 00000120: 53 54 41 20 4F 50 48 2C 58 0D 20 4C 44 41 20 53 |STA OPH,X. LDA S| 00000130: 54 58 31 2C 58 20 20 3B 20 4E 4F 52 4D 41 4C 49 |TX1,X ; NORMALI| 00000140: 5A 45 0D 20 53 54 41 20 4F 50 4C 2C 58 0D 20 4C |ZE. STA OPL,X. L| 00000150: 44 41 20 54 4D 50 31 0D 20 42 45 51 20 52 4E 44 |DA TMP1. BEQ RND| 00000160: 33 0D 20 4A 53 52 20 4E 45 47 4F 50 52 0D 52 4E |3. JSR NEGOPR.RN| 00000170: 44 33 20 44 45 58 20 3B 20 52 45 53 54 4F 52 45 |D3 DEX ; RESTORE| 00000180: 20 53 54 41 43 4B 0D 20 44 45 58 0D 20 52 54 53 | STACK. DEX. RTS| 00000190: 0D 3B 0D 3B 0D 42 59 54 58 20 4C 44 41 20 23 24 |.;.;.BYTX LDA #$| 000001A0: 30 30 20 3B 20 20 42 59 54 45 2C 20 53 54 4B 26 |00 ; BYTE, STK&| 000001B0: 46 46 3D 3E 53 54 4B 20 24 30 37 0D 20 53 54 41 |FF=>STK $07. STA| 000001C0: 20 53 54 48 2C 58 20 3B 20 30 0D 20 52 54 53 0D | STH,X ; 0. RTS.| 000001D0: 3B 0D 3B 0D 3B 20 20 41 42 53 2C 20 41 42 53 28 |;.;.; ABS, ABS(| 000001E0: 53 54 4B 29 3D 3E 53 54 4B 20 24 30 39 0D 41 42 |STK)=>STK $09.AB| 000001F0: 53 20 4C 44 41 20 53 54 48 2C 58 0D 20 42 50 4C |S LDA STH,X. BPL| 00000200: 20 41 42 53 31 0D 20 4A 53 52 20 4E 45 47 20 3B | ABS1. JSR NEG ;| 00000210: 20 4E 45 47 41 54 45 20 49 46 20 4E 45 47 0D 41 | NEGATE IF NEG.A| 00000220: 42 53 31 20 52 54 53 0D 3B 0D 3B 20 20 53 47 4E |BS1 RTS.;.; SGN| 00000230: 2C 20 53 47 4E 28 53 54 4B 29 3D 3E 53 54 4B 20 |, SGN(STK)=>STK | 00000240: 24 30 41 0D 53 47 4E 20 4C 44 41 20 53 54 48 2C |$0A.SGN LDA STH,| 00000250: 58 0D 20 42 50 4C 20 53 47 4E 31 0D 20 4C 44 59 |X. BPL SGN1. LDY| 00000260: 20 23 24 46 46 20 3B 3C 30 0D 20 4A 4D 50 20 43 | #$FF ;<0. JMP C| 00000270: 4F 4E 30 0D 53 47 4E 31 20 42 45 51 20 53 47 4E |ON0.SGN1 BEQ SGN| 00000280: 32 0D 20 4C 44 59 20 23 24 30 31 0D 20 4A 4D 50 |2. LDY #$01. JMP| 00000290: 20 43 4F 4E 30 20 3B 3E 30 0D 53 47 4E 32 20 4C | CON0 ;>0.SGN2 L| 000002A0: 44 41 20 53 54 4C 2C 58 0D 20 42 4E 45 20 53 47 |DA STL,X. BNE SG| 000002B0: 4E 31 0D 20 4C 44 59 20 23 24 30 30 20 3B 3D 30 |N1. LDY #$00 ;=0| 000002C0: 0D 20 4A 4D 50 20 43 4F 4E 30 0D 3B 0D 3B 20 20 |. JMP CON0.;.; | 000002D0: 50 45 45 4B 2C 20 50 45 45 4B 28 53 54 4B 29 3D |PEEK, PEEK(STK)=| 000002E0: 3E 53 54 4B 20 24 30 42 0D 50 45 45 4B 20 4A 53 |>STK $0B.PEEK JS| 000002F0: 52 20 55 53 52 20 3B 53 54 4B 3D 3E 46 52 30 0D |R USR ;STK=>FR0.| 00000300: 20 4C 44 41 20 23 24 30 30 0D 20 53 54 41 20 53 | LDA #$00. STA S| 00000310: 54 48 2C 58 0D 20 4C 44 59 20 23 24 30 30 0D 20 |TH,X. LDY #$00. | 00000320: 4C 44 41 20 28 46 52 30 29 2C 59 0D 20 53 54 41 |LDA (FR0),Y. STA| 00000330: 20 53 54 4C 2C 58 0D 20 52 54 53 0D 3B 0D 3B 20 | STL,X. RTS.;.; | 00000340: 20 50 4F 4B 45 2C 20 4F 50 52 3D 3E 4C 4F 43 28 | POKE, OPR=>LOC(| 00000350: 53 54 4B 29 20 24 33 30 0D 50 4F 4B 45 20 4A 53 |STK) $30.POKE JS| 00000360: 52 20 55 53 52 20 3B 53 54 4B 3D 3E 46 52 30 0D |R USR ;STK=>FR0.| 00000370: 20 4C 44 59 20 23 24 30 30 0D 50 4F 4B 45 30 20 | LDY #$00.POKE0 | 00000380: 4C 44 41 20 4F 50 4C 2C 58 0D 20 53 54 41 20 28 |LDA OPL,X. STA (| 00000390: 46 52 30 29 2C 59 0D 20 52 54 53 0D 3B 0D 50 4F |FR0),Y. RTS.;.PO| 000003A0: 4B 45 59 20 4A 53 52 20 55 53 52 0D 20 4C 44 59 |KEY JSR USR. LDY| 000003B0: 20 56 41 52 4C 0D 20 4A 4D 50 20 50 4F 4B 45 30 | VARL. JMP POKE0| 000003C0: 0D 3B 0D 3B 20 52 41 4E 47 45 2C 20 56 41 4C 55 |.;.; RANGE, VALU| 000003D0: 45 2C 20 4F 50 52 3D 4C 4F 20 53 54 4B 3D 48 49 |E, OPR=LO STK=HI| 000003E0: 20 24 33 35 0D 3B 20 50 4F 53 49 54 49 56 45 20 | $35.; POSITIVE | 000003F0: 56 41 4C 55 45 53 20 4F 4E 4C 59 20 21 21 0D 52 |VALUES ONLY !!.R| 00000400: 41 4E 47 45 20 4C 44 41 20 4F 50 48 2D 32 2C 58 |ANGE LDA OPH-2,X| 00000410: 0D 20 42 4D 49 20 4F 52 4E 47 4C 4F 0D 20 43 4D |. BMI ORNGLO. CM| 00000420: 50 20 53 54 48 2C 58 0D 20 42 4E 45 20 43 50 48 |P STH,X. BNE CPH| 00000430: 49 0D 20 4C 44 41 20 4F 50 4C 2D 32 2C 58 0D 20 |I. LDA OPL-2,X. | 00000440: 43 4D 50 20 53 54 4C 2C 58 0D 43 50 48 49 20 42 |CMP STL,X.CPHI B| 00000450: 43 53 20 4F 52 4E 47 48 49 0D 20 4C 44 41 20 4F |CS ORNGHI. LDA O| 00000460: 50 48 2D 32 2C 58 0D 20 43 4D 50 20 4F 50 48 2C |PH-2,X. CMP OPH,| 00000470: 58 0D 20 42 4E 45 20 43 50 4C 4F 0D 20 4C 44 41 |X. BNE CPLO. LDA| 00000480: 20 4F 50 4C 2D 32 2C 58 0D 20 43 4D 50 20 4F 50 | OPL-2,X. CMP OP| 00000490: 4C 2C 58 0D 43 50 4C 4F 20 42 43 43 20 4F 52 4E |L,X.CPLO BCC ORN| 000004A0: 47 4C 4F 0D 20 52 54 53 0D 3B 0D 4F 52 4E 47 48 |GLO. RTS.;.ORNGH| 000004B0: 49 20 4C 44 41 20 53 54 48 2C 58 0D 20 53 54 41 |I LDA STH,X. STA| 000004C0: 20 4F 50 48 2D 32 2C 58 0D 20 4C 44 41 20 53 54 | OPH-2,X. LDA ST| 000004D0: 4C 2C 58 0D 20 53 54 41 20 4F 50 4C 2D 32 2C 58 |L,X. STA OPL-2,X| 000004E0: 0D 20 52 54 53 0D 4F 52 4E 47 4C 4F 20 4C 44 41 |. RTS.ORNGLO LDA| 000004F0: 20 4F 50 48 2C 58 0D 20 53 54 41 20 4F 50 48 2D | OPH,X. STA OPH-| 00000500: 32 2C 58 0D 20 4C 44 41 20 4F 50 4C 2C 58 0D 20 |2,X. LDA OPL,X. | 00000510: 53 54 41 20 4F 50 4C 2D 32 2C 58 0D 20 52 54 53 |STA OPL-2,X. RTS| 00000520: 0D 3B 0D 3B 20 20 52 41 4E 47 45 59 2C 20 56 41 |.;.; RANGEY, VA| 00000530: 4C 55 45 2C 20 4F 50 52 3D 4C 4F 20 53 54 4B 3D |LUE, OPR=LO STK=| 00000540: 48 49 20 24 37 32 0D 3B 20 50 4F 53 49 54 49 56 |HI $72.; POSITIV| 00000550: 45 20 56 41 4C 55 45 53 20 4F 4E 4C 59 20 21 21 |E VALUES ONLY !!| 00000560: 0D 52 4E 47 59 20 4C 44 41 20 4F 50 48 2D 32 2C |.RNGY LDA OPH-2,| 00000570: 58 0D 20 42 4D 49 20 4F 52 4E 47 0D 20 43 4D 50 |X. BMI ORNG. CMP| 00000580: 20 53 54 48 2C 58 0D 20 42 4E 45 20 43 50 30 48 | STH,X. BNE CP0H| 00000590: 49 0D 20 4C 44 41 20 4F 50 4C 2D 32 2C 58 0D 20 |I. LDA OPL-2,X. | 000005A0: 43 4D 50 20 53 54 4C 2C 58 0D 43 50 30 48 49 20 |CMP STL,X.CP0HI | 000005B0: 42 43 53 20 4F 52 4E 47 0D 20 4C 44 41 20 4F 50 |BCS ORNG. LDA OP| 000005C0: 48 2D 32 2C 58 0D 20 43 4D 50 20 4F 50 48 2C 58 |H-2,X. CMP OPH,X| 000005D0: 0D 20 42 4E 45 20 43 50 30 4C 4F 0D 20 4C 44 41 |. BNE CP0LO. LDA| 000005E0: 20 4F 50 4C 2D 32 2C 58 0D 20 43 4D 50 20 4F 50 | OPL-2,X. CMP OP| 000005F0: 4C 2C 58 0D 43 50 30 4C 4F 20 42 43 43 20 4F 52 |L,X.CP0LO BCC OR| 00000600: 4E 47 0D 20 52 54 53 0D 4F 52 4E 47 20 4C 44 41 |NG. RTS.ORNG LDA| 00000610: 20 23 30 0D 20 53 54 41 20 4F 50 48 2D 32 2C 58 | #0. STA OPH-2,X| 00000620: 0D 20 54 59 41 0D 20 53 54 41 20 4F 50 4C 2D 32 |. TYA. STA OPL-2| 00000630: 2C 58 0D 20 52 54 53 0D 3B 0D 3B 20 20 53 54 49 |,X. RTS.;.; STI| 00000640: 43 4B 2C 20 28 53 54 4B 29 3D 3E 53 54 4B 2D 58 |CK, (STK)=>STK-X| 00000650: 2C 4F 50 52 2D 59 20 24 31 30 0D 53 54 49 43 4B |,OPR-Y $10.STICK| 00000660: 20 4C 44 59 20 53 54 4C 2C 58 0D 20 4C 44 41 20 | LDY STL,X. LDA | 00000670: 24 44 43 30 30 2C 59 0D 20 4C 44 59 20 23 24 30 |$DC00,Y. LDY #$0| 00000680: 30 0D 20 52 4F 52 20 41 0D 20 42 43 53 20 53 54 |0. ROR A. BCS ST| 00000690: 31 0D 20 4C 44 59 20 23 24 46 46 0D 53 54 31 20 |1. LDY #$FF.ST1 | 000006A0: 52 4F 52 20 41 0D 20 42 43 53 20 53 54 32 0D 20 |ROR A. BCS ST2. | 000006B0: 4C 44 59 20 23 24 30 31 0D 53 54 32 20 50 48 41 |LDY #$01.ST2 PHA| 000006C0: 0D 20 4A 53 52 20 43 4F 4E 30 20 3B 20 44 59 0D |. JSR CON0 ; DY.| 000006D0: 20 50 4C 41 0D 20 4C 44 59 20 23 24 30 30 0D 20 | PLA. LDY #$00. | 000006E0: 52 4F 52 20 41 0D 20 42 43 53 20 53 54 33 0D 20 |ROR A. BCS ST3. | 000006F0: 44 45 59 0D 53 54 33 20 52 4F 52 20 41 0D 20 42 |DEY.ST3 ROR A. B| 00000700: 43 53 20 53 54 34 0D 20 4C 44 59 20 23 24 30 31 |CS ST4. LDY #$01| 00000710: 0D 53 54 34 20 4A 4D 50 20 43 4F 4E 20 3B 20 44 |.ST4 JMP CON ; D| 00000720: 58 0D 3B 0D 3B 20 20 53 54 52 49 47 2C 20 28 53 |X.;.; STRIG, (S| 00000730: 54 4B 29 3D 3E 53 54 4B 20 24 30 34 0D 53 54 52 |TK)=>STK $04.STR| 00000740: 49 47 20 4C 44 59 20 53 54 4C 2C 58 0D 20 4C 44 |IG LDY STL,X. LD| 00000750: 41 20 24 44 43 30 30 2C 59 0D 20 52 4F 52 20 41 |A $DC00,Y. ROR A| 00000760: 0D 20 52 4F 52 20 41 0D 20 52 4F 52 20 41 0D 20 |. ROR A. ROR A. | 00000770: 52 4F 52 20 41 0D 20 41 4E 44 20 23 31 0D 20 45 |ROR A. AND #1. E| 00000780: 4F 52 20 23 31 0D 20 53 54 41 20 53 54 4C 2C 58 |OR #1. STA STL,X| 00000790: 0D 20 4C 44 41 20 23 24 30 30 0D 20 53 54 41 20 |. LDA #$00. STA | 000007A0: 53 54 48 2C 58 0D 20 52 54 53 0D 3B 0D 3B 20 20 |STH,X. RTS.;.; | 000007B0: 49 4E 43 2C 20 53 54 4B 2B 31 3D 3E 53 54 4B 20 |INC, STK+1=>STK | 000007C0: 24 30 35 0D 49 4E 43 52 20 49 4E 43 20 53 54 4C |$05.INCR INC STL| 000007D0: 2C 58 0D 20 42 4E 45 20 49 4E 43 31 0D 20 49 4E |,X. BNE INC1. IN| 000007E0: 43 20 53 54 48 2C 58 0D 49 4E 43 31 20 52 54 53 |C STH,X.INC1 RTS| 000007F0: 0D 3B 0D 3B 20 20 44 45 43 2C 20 53 54 4B 2D 31 |.;.; DEC, STK-1| 00000800: 3D 3E 53 54 4B 20 24 30 36 0D 44 45 43 52 20 4C |=>STK $06.DECR L| 00000810: 44 41 20 53 54 4C 2C 58 0D 20 42 4E 45 20 44 45 |DA STL,X. BNE DE| 00000820: 43 31 0D 20 44 45 43 20 53 54 48 2C 58 0D 44 45 |C1. DEC STH,X.DE| 00000830: 43 31 20 44 45 43 20 53 54 4C 2C 58 0D 20 52 54 |C1 DEC STL,X. RT| 00000840: 53 0D 3B 0D 3B 20 20 44 55 50 2C 20 53 54 4B 3D |S.;.; DUP, STK=| 00000850: 3E 53 54 4B 2B 32 20 24 31 31 0D 44 55 50 20 4C |>STK+2 $11.DUP L| 00000860: 44 41 20 53 54 4C 2C 58 0D 20 53 54 41 20 53 54 |DA STL,X. STA ST| 00000870: 58 31 2C 58 0D 20 4C 44 41 20 53 54 48 2C 58 0D |X1,X. LDA STH,X.| 00000880: 20 53 54 41 20 53 54 58 32 2C 58 0D 20 52 54 53 | STA STX2,X. RTS| 00000890: 0D 3B 0D 3B 20 20 44 50 4F 4B 45 2C 20 4F 50 52 |.;.; DPOKE, OPR| 000008A0: 3D 3E 4C 4F 43 28 53 54 4B 29 20 24 33 34 0D 44 |=>LOC(STK) $34.D| 000008B0: 50 4F 4B 45 20 4C 44 59 20 23 24 30 30 0D 20 4A |POKE LDY #$00. J| 000008C0: 53 52 20 55 53 52 20 3B 53 54 4B 3D 3E 46 52 30 |SR USR ;STK=>FR0| 000008D0: 0D 20 4C 44 41 20 4F 50 4C 2C 58 0D 20 53 54 41 |. LDA OPL,X. STA| 000008E0: 20 28 46 52 30 29 2C 59 0D 20 49 4E 59 0D 20 4C | (FR0),Y. INY. L| 000008F0: 44 41 20 4F 50 48 2C 58 0D 20 53 54 41 20 28 46 |DA OPH,X. STA (F| 00000900: 52 30 29 2C 59 0D 20 52 54 53 0D 3B 0D 3B 20 20 |R0),Y. RTS.;.; | 00000910: 44 50 45 45 4B 2C 20 50 45 45 4B 28 53 54 4B 29 |DPEEK, PEEK(STK)| 00000920: 3D 3E 53 54 4B 20 24 30 44 0D 44 50 45 45 4B 20 |=>STK $0D.DPEEK | 00000930: 4C 44 59 20 23 24 30 30 0D 20 4A 53 52 20 55 53 |LDY #$00. JSR US| 00000940: 52 0D 20 4C 44 41 20 28 46 52 30 29 2C 59 0D 20 |R. LDA (FR0),Y. | 00000950: 53 54 41 20 53 54 4C 2C 58 0D 20 49 4E 59 0D 20 |STA STL,X. INY. | 00000960: 4C 44 41 20 28 46 52 30 29 2C 59 0D 20 53 54 41 |LDA (FR0),Y. STA| 00000970: 20 53 54 48 2C 58 0D 20 52 54 53 0D 3B 0D 3B 20 | STH,X. RTS.;.; | 00000980: 20 44 4F 4E 45 20 24 30 30 0D 44 4F 4E 45 20 50 | DONE $00.DONE P| 00000990: 4C 41 0D 20 50 4C 41 0D 20 4C 44 59 20 46 52 30 |LA. PLA. LDY FR0| 000009A0: 0D 20 4C 44 41 20 46 52 30 2B 31 0D 20 52 54 53 |. LDA FR0+1. RTS| 000009B0: 0D 3B 0D 3B 20 44 49 56 49 44 45 2C 20 4F 50 52 |.;.; DIVIDE, OPR| 000009C0: 2F 53 54 4B 3D 3E 4F 50 52 20 24 32 33 0D 44 49 |/STK=>OPR $23.DI| 000009D0: 56 20 4C 44 41 20 23 24 30 30 0D 20 53 54 41 20 |V LDA #$00. STA | 000009E0: 46 4C 41 47 0D 20 4A 53 52 20 44 49 56 38 0D 20 |FLAG. JSR DIV8. | 000009F0: 44 45 58 0D 20 44 45 58 0D 20 4A 53 52 20 44 49 |DEX. DEX. JSR DI| 00000A00: 56 38 0D 20 49 4E 58 0D 20 49 4E 58 0D 20 4C 44 |V8. INX. INX. LD| 00000A10: 41 20 23 24 30 30 0D 20 53 54 41 20 53 54 58 33 |A #$00. STA STX3| 00000A20: 2C 58 0D 20 53 54 41 20 53 54 58 34 2C 58 0D 20 |,X. STA STX4,X. | 00000A30: 53 54 41 20 53 54 58 31 2C 58 0D 20 53 54 41 20 |STA STX1,X. STA | 00000A40: 53 54 58 32 2C 58 0D 20 4C 44 59 20 23 24 31 30 |STX2,X. LDY #$10| 00000A50: 20 3B 20 31 36 20 42 49 54 53 0D 44 49 56 31 20 | ; 16 BITS.DIV1 | 00000A60: 41 53 4C 20 53 54 58 33 2C 58 0D 20 52 4F 4C 20 |ASL STX3,X. ROL | 00000A70: 53 54 58 34 2C 58 0D 20 41 53 4C 20 4F 50 4C 2C |STX4,X. ASL OPL,| 00000A80: 58 0D 20 52 4F 4C 20 4F 50 48 2C 58 0D 20 52 4F |X. ROL OPH,X. RO| 00000A90: 4C 20 53 54 58 31 2C 58 0D 20 52 4F 4C 20 53 54 |L STX1,X. ROL ST| 00000AA0: 58 32 2C 58 0D 20 53 45 43 0D 20 4C 44 41 20 53 |X2,X. SEC. LDA S| 00000AB0: 54 58 31 2C 58 0D 20 53 42 43 20 53 54 4C 2C 58 |TX1,X. SBC STL,X| 00000AC0: 0D 20 53 54 41 20 54 4D 50 31 20 3B 20 52 45 4D |. STA TMP1 ; REM| 00000AD0: 41 49 4E 44 45 52 0D 20 4C 44 41 20 53 54 58 32 |AINDER. LDA STX2| 00000AE0: 2C 58 0D 20 53 42 43 20 53 54 48 2C 58 0D 20 53 |,X. SBC STH,X. S| 00000AF0: 54 41 20 54 4D 50 32 0D 20 42 43 43 20 44 49 56 |TA TMP2. BCC DIV| 00000B00: 32 0D 20 49 4E 43 20 53 54 58 33 2C 58 20 3B 20 |2. INC STX3,X ; | 00000B10: 52 45 53 55 4C 54 0D 20 4C 44 41 20 54 4D 50 31 |RESULT. LDA TMP1| 00000B20: 20 3B 20 52 45 4D 20 3D 3E 20 44 49 56 0D 20 53 | ; REM => DIV. S| 00000B30: 54 41 20 53 54 58 31 2C 58 0D 20 4C 44 41 20 54 |TA STX1,X. LDA T| 00000B40: 4D 50 32 0D 20 53 54 41 20 53 54 58 32 2C 58 0D |MP2. STA STX2,X.| 00000B50: 44 49 56 32 20 44 45 59 0D 20 42 4E 45 20 44 49 |DIV2 DEY. BNE DI| 00000B60: 56 31 0D 20 4C 44 41 20 53 54 58 34 2C 58 20 3B |V1. LDA STX4,X ;| 00000B70: 20 52 45 53 55 4C 54 20 3D 3E 20 4F 50 52 0D 20 | RESULT => OPR. | 00000B80: 53 54 41 20 53 54 48 2C 58 0D 20 4C 44 41 20 53 |STA STH,X. LDA S| 00000B90: 54 58 33 2C 58 0D 20 53 54 41 20 53 54 4C 2C 58 |TX3,X. STA STL,X| 00000BA0: 0D 20 4C 44 41 20 46 4C 41 47 0D 20 42 45 51 20 |. LDA FLAG. BEQ | 00000BB0: 44 49 56 33 0D 20 4A 53 52 20 4E 45 47 0D 44 49 |DIV3. JSR NEG.DI| 00000BC0: 56 33 20 4A 4D 50 20 50 55 4E 43 48 0D 3B 0D 44 |V3 JMP PUNCH.;.D| 00000BD0: 49 56 38 20 4C 44 41 20 53 54 48 2C 58 0D 20 42 |IV8 LDA STH,X. B| 00000BE0: 50 4C 20 44 49 56 39 0D 20 4A 53 52 20 4E 45 47 |PL DIV9. JSR NEG| 00000BF0: 0D 20 4C 44 41 20 23 24 30 31 0D 20 45 4F 52 20 |. LDA #$01. EOR | 00000C00: 46 4C 41 47 0D 20 53 54 41 20 46 4C 41 47 0D 44 |FLAG. STA FLAG.D| 00000C10: 49 56 39 20 52 54 53 0D 3B 0D 3B 20 20 46 4F 52 |IV9 RTS.;.; FOR| 00000C20: 2C 20 4F 50 52 3D 3E 56 41 52 28 59 29 2C 53 54 |, OPR=>VAR(Y),ST| 00000C30: 4B 3D 3E 4C 49 4D 20 24 37 30 0D 46 4F 52 20 44 |K=>LIM $70.FOR D| 00000C40: 45 58 0D 20 44 45 58 0D 20 54 59 41 20 3B 20 56 |EX. DEX. TYA ; V| 00000C50: 41 52 20 49 4E 44 45 58 0D 20 41 53 4C 20 41 0D |AR INDEX. ASL A.| 00000C60: 20 54 41 59 0D 20 4A 53 52 20 53 54 4F 52 45 20 | TAY. JSR STORE | 00000C70: 3B 20 4F 50 52 3D 3E 56 41 52 28 58 29 0D 20 53 |; OPR=>VAR(X). S| 00000C80: 54 59 20 59 53 41 56 45 0D 20 4C 44 59 20 46 4F |TY YSAVE. LDY FO| 00000C90: 52 50 20 3B 20 46 4F 52 20 50 4E 54 52 0D 20 4C |RP ; FOR PNTR. L| 00000CA0: 44 41 20 53 54 58 31 2C 58 20 3B 20 53 41 56 45 |DA STX1,X ; SAVE| 00000CB0: 20 4C 49 4D 0D 20 53 54 41 20 46 4C 4D 4C 2C 59 | LIM. STA FLML,Y| 00000CC0: 0D 20 4C 44 41 20 53 54 58 32 2C 58 0D 20 53 54 |. LDA STX2,X. ST| 00000CD0: 41 20 46 4C 4D 48 2C 59 0D 20 4C 44 41 20 50 43 |A FLMH,Y. LDA PC| 00000CE0: 4E 54 20 3B 20 53 41 56 45 20 50 43 0D 20 53 54 |NT ; SAVE PC. ST| 00000CF0: 41 20 46 50 43 4C 2C 59 0D 20 4C 44 41 20 50 43 |A FPCL,Y. LDA PC| 00000D00: 4E 54 2B 31 0D 20 53 54 41 20 46 50 43 48 2C 59 |NT+1. STA FPCH,Y| 00000D10: 0D 20 4C 44 41 20 59 53 41 56 45 20 3B 20 53 41 |. LDA YSAVE ; SA| 00000D20: 56 45 20 56 41 52 23 0D 20 53 54 41 20 46 56 41 |VE VAR#. STA FVA| 00000D30: 52 2C 59 0D 20 49 4E 59 20 3B 20 4E 45 58 54 20 |R,Y. INY ; NEXT | 00000D40: 46 53 54 41 43 4B 0D 20 49 4E 59 0D 20 49 4E 59 |FSTACK. INY. INY| 00000D50: 0D 20 49 4E 59 0D 20 49 4E 59 0D 20 53 54 59 20 |. INY. INY. STY | 00000D60: 46 4F 52 50 0D 20 49 4E 58 0D 20 49 4E 58 0D 20 |FORP. INX. INX. | 00000D70: 52 54 53 0D 3B 0D 3B 20 20 4E 45 58 54 2C 20 28 |RTS.;.; NEXT, (| 00000D80: 59 29 20 24 34 30 0D 4E 45 58 54 20 53 54 59 20 |Y) $40.NEXT STY | 00000D90: 59 53 41 56 45 0D 20 41 53 4C 20 59 53 41 56 45 |YSAVE. ASL YSAVE| 00000DA0: 20 3B 20 56 41 52 20 49 4E 44 45 58 0D 20 53 54 | ; VAR INDEX. ST| 00000DB0: 58 20 58 53 41 56 45 0D 20 4C 44 59 20 46 4F 52 |X XSAVE. LDY FOR| 00000DC0: 50 0D 20 53 54 59 20 46 53 41 56 45 0D 4E 58 54 |P. STY FSAVE.NXT| 00000DD0: 31 20 44 45 59 0D 20 44 45 59 0D 20 44 45 59 0D |1 DEY. DEY. DEY.| 00000DE0: 20 44 45 59 0D 20 44 45 59 0D 20 53 54 59 20 46 | DEY. DEY. STY F| 00000DF0: 4F 52 50 0D 20 42 4D 49 20 4E 58 54 39 20 3B 20 |ORP. BMI NXT9 ; | 00000E00: 45 52 52 4F 52 0D 20 4C 44 41 20 46 56 41 52 2C |ERROR. LDA FVAR,| 00000E10: 59 20 3B 20 46 49 4E 44 20 46 4F 52 20 45 4E 54 |Y ; FIND FOR ENT| 00000E20: 52 59 0D 20 43 4D 50 20 59 53 41 56 45 0D 20 42 |RY. CMP YSAVE. B| 00000E30: 4E 45 20 4E 58 54 31 0D 20 4C 44 58 20 59 53 41 |NE NXT1. LDX YSA| 00000E40: 56 45 0D 20 49 4E 43 20 56 41 52 4C 2C 58 0D 20 |VE. INC VARL,X. | 00000E50: 42 4E 45 20 4E 58 54 32 0D 20 49 4E 43 20 56 41 |BNE NXT2. INC VA| 00000E60: 52 48 2C 58 0D 4E 58 54 32 20 53 45 43 0D 20 4C |RH,X.NXT2 SEC. L| 00000E70: 44 41 20 46 4C 4D 4C 2C 59 0D 20 53 42 43 20 56 |DA FLML,Y. SBC V| 00000E80: 41 52 4C 2C 58 0D 20 4C 44 41 20 46 4C 4D 48 2C |ARL,X. LDA FLMH,| 00000E90: 59 0D 20 53 42 43 20 56 41 52 48 2C 58 0D 20 42 |Y. SBC VARH,X. B| 00000EA0: 4D 49 20 4E 58 54 39 0D 20 4C 44 41 20 46 50 43 |MI NXT9. LDA FPC| 00000EB0: 4C 2C 59 20 3B 20 47 4F 20 42 41 43 4B 0D 20 53 |L,Y ; GO BACK. S| 00000EC0: 54 41 20 50 43 4E 54 0D 20 4C 44 41 20 46 50 43 |TA PCNT. LDA FPC| 00000ED0: 48 2C 59 0D 20 53 54 41 20 50 43 4E 54 2B 31 0D |H,Y. STA PCNT+1.| 00000EE0: 20 4C 44 59 20 46 53 41 56 45 0D 20 53 54 59 20 | LDY FSAVE. STY | 00000EF0: 46 4F 52 50 0D 4E 58 54 39 20 4C 44 58 20 58 53 |FORP.NXT9 LDX XS| 00000F00: 41 56 45 0D 20 52 54 53 0D 3B 0D 3B 20 20 47 4F |AVE. RTS.;.; GO| 00000F10: 54 4F 2C 20 59 20 24 34 42 0D 47 4F 54 4F 20 53 |TO, Y $4B.GOTO S| 00000F20: 54 59 20 59 53 41 56 45 0D 20 4A 4D 50 20 47 4F |TY YSAVE. JMP GO| 00000F30: 53 55 42 30 0D 3B 0D 3B 20 20 47 4F 53 55 42 2C |SUB0.;.; GOSUB,| 00000F40: 20 50 43 2B 59 20 24 34 34 0D 47 4F 53 55 42 20 | PC+Y $44.GOSUB | 00000F50: 53 54 59 20 59 53 41 56 45 0D 20 4C 44 59 20 47 |STY YSAVE. LDY G| 00000F60: 4F 50 0D 20 4C 44 41 20 50 43 4E 54 0D 20 53 54 |OP. LDA PCNT. ST| 00000F70: 41 20 47 50 43 4C 2C 59 0D 20 4C 44 41 20 50 43 |A GPCL,Y. LDA PC| 00000F80: 4E 54 2B 31 0D 20 53 54 41 20 47 50 43 48 2C 59 |NT+1. STA GPCH,Y| 00000F90: 0D 20 44 45 59 0D 20 44 45 59 0D 20 53 54 59 20 |. DEY. DEY. STY | 00000FA0: 47 4F 50 0D 47 4F 53 55 42 30 20 4C 44 59 20 59 |GOP.GOSUB0 LDY Y| 00000FB0: 53 41 56 45 0D 20 4C 44 41 20 4A 4D 50 48 49 2C |SAVE. LDA JMPHI,| 00000FC0: 59 0D 20 42 45 51 20 47 4F 53 55 42 33 0D 20 53 |Y. BEQ GOSUB3. S| 00000FD0: 54 41 20 50 43 4E 54 2B 31 0D 20 4C 44 41 20 4A |TA PCNT+1. LDA J| 00000FE0: 4D 50 4C 4F 2C 59 0D 20 53 54 41 20 50 43 4E 54 |MPLO,Y. STA PCNT| 00000FF0: 0D 20 52 54 53 0D 3B 0D 47 4F 53 55 42 33 20 4C |. RTS.;.GOSUB3 L| 00001000: 44 41 20 50 43 53 56 45 0D 20 53 54 41 20 50 43 |DA PCSVE. STA PC| 00001010: 4E 54 0D 20 4C 44 41 20 50 43 53 56 45 2B 31 0D |NT. LDA PCSVE+1.| 00001020: 20 53 54 41 20 50 43 4E 54 2B 31 0D 20 4C 44 59 | STA PCNT+1. LDY| 00001030: 20 23 30 0D 47 4F 53 55 42 31 20 4A 53 52 20 53 | #0.GOSUB1 JSR S| 00001040: 43 41 4E 0D 20 43 4D 50 20 23 24 34 35 20 3B 20 |CAN. CMP #$45 ; | 00001050: 53 42 52 3F 0D 20 42 4E 45 20 47 4F 53 55 42 31 |SBR?. BNE GOSUB1| 00001060: 0D 20 4A 53 52 20 49 4E 43 50 43 0D 20 4C 44 41 |. JSR INCPC. LDA| 00001070: 20 28 50 43 4E 54 29 2C 59 0D 20 43 4D 50 20 59 | (PCNT),Y. CMP Y| 00001080: 53 41 56 45 0D 20 42 45 51 20 47 4F 53 55 42 32 |SAVE. BEQ GOSUB2| 00001090: 0D 20 4A 53 52 20 49 4E 43 50 43 0D 20 4A 4D 50 |. JSR INCPC. JMP| 000010A0: 20 47 4F 53 55 42 31 0D 47 4F 53 55 42 32 20 4C | GOSUB1.GOSUB2 L| 000010B0: 44 59 20 59 53 41 56 45 0D 20 4C 44 41 20 50 43 |DY YSAVE. LDA PC| 000010C0: 4E 54 0D 20 53 54 41 20 4A 4D 50 4C 4F 2C 59 0D |NT. STA JMPLO,Y.| 000010D0: 20 4C 44 41 20 50 43 4E 54 2B 31 0D 20 53 54 41 | LDA PCNT+1. STA| 000010E0: 20 4A 4D 50 48 49 2C 59 0D 20 52 54 53 0D 3B 0D | JMPHI,Y. RTS.;.| 000010F0: 3B 20 20 52 45 54 55 52 4E 2C 20 24 30 31 0D 52 |; RETURN, $01.R| 00001100: 45 54 55 52 4E 20 4C 44 59 20 47 4F 50 0D 20 49 |ETURN LDY GOP. I| 00001110: 4E 59 0D 20 49 4E 59 0D 20 4C 44 41 20 47 50 43 |NY. INY. LDA GPC| 00001120: 4C 2C 59 0D 20 53 54 41 20 50 43 4E 54 0D 20 4C |L,Y. STA PCNT. L| 00001130: 44 41 20 47 50 43 48 2C 59 0D 20 53 54 41 20 50 |DA GPCH,Y. STA P| 00001140: 43 4E 54 2B 31 0D 20 53 54 59 20 47 4F 50 0D 20 |CNT+1. STY GOP. | 00001150: 52 54 53 0D 3B 0D 3B 20 20 55 53 52 2C 20 53 54 |RTS.;.; USR, ST| 00001160: 4B 3D 3E 46 52 30 20 24 32 45 0D 55 53 52 20 4C |K=>FR0 $2E.USR L| 00001170: 44 41 20 53 54 4C 2C 58 0D 20 53 54 41 20 46 52 |DA STL,X. STA FR| 00001180: 30 0D 20 4C 44 41 20 53 54 48 2C 58 0D 20 53 54 |0. LDA STH,X. ST| 00001190: 41 20 46 52 30 2B 31 0D 20 52 54 53 0D 3B 0D 3B |A FR0+1. RTS.;.;| 000011A0: 0D 3B 20 20 50 52 49 4E 54 20 2B 2F 2D 2C 20 53 |.; PRINT +/-, S| 000011B0: 54 4B 20 59 3D 23 42 4C 41 4E 4B 53 20 24 36 32 |TK Y=#BLANKS $62| 000011C0: 0D 3B 0D 3B 20 49 46 2C 20 53 47 4E 28 4F 50 52 |.;.; IF, SGN(OPR| 000011D0: 2D 53 54 4B 29 3D 59 20 24 37 31 0D 49 46 20 53 |-STK)=Y $71.IF S| 000011E0: 54 59 20 59 53 41 56 45 0D 20 4A 53 52 20 53 55 |TY YSAVE. JSR SU| 000011F0: 42 0D 20 44 45 58 0D 20 44 45 58 0D 20 4A 53 52 |B. DEX. DEX. JSR| 00001200: 20 53 47 4E 0D 20 49 4E 58 0D 20 49 4E 58 0D 20 | SGN. INX. INX. | 00001210: 4C 44 41 20 4F 50 4C 2C 58 0D 49 46 39 20 43 4D |LDA OPL,X.IF9 CM| 00001220: 50 20 59 53 41 56 45 0D 20 42 45 51 20 45 45 45 |P YSAVE. BEQ EEE| 00001230: 49 46 20 3B 20 54 52 55 45 0D 45 4C 53 45 20 4C |IF ; TRUE.ELSE L| 00001240: 44 59 20 23 24 30 30 20 3B 45 4C 53 2C 20 24 37 |DY #$00 ;ELS, $7| 00001250: 42 0D 20 53 54 59 20 4C 45 56 45 4C 0D 49 46 31 |B. STY LEVEL.IF1| 00001260: 20 4A 53 52 20 53 43 41 4E 20 3B 20 46 49 4E 44 | JSR SCAN ; FIND| 00001270: 20 45 4E 44 49 46 0D 20 43 4D 50 20 23 24 37 44 | ENDIF. CMP #$7D| 00001280: 0D 20 42 45 51 20 45 49 46 0D 20 43 4D 50 20 23 |. BEQ EIF. CMP #| 00001290: 24 37 43 20 3B 20 4F 52 20 53 55 50 45 52 20 45 |$7C ; OR SUPER E| 000012A0: 49 46 0D 20 42 45 51 20 45 45 45 49 46 0D 20 43 |IF. BEQ EEEIF. C| 000012B0: 4D 50 20 23 24 37 42 20 3B 20 4F 52 20 45 4C 53 |MP #$7B ; OR ELS| 000012C0: 45 0D 20 42 4E 45 20 49 46 32 0D 20 4C 44 41 20 |E. BNE IF2. LDA | 000012D0: 4C 45 56 45 4C 0D 20 42 4E 45 20 49 46 31 0D 20 |LEVEL. BNE IF1. | 000012E0: 42 45 51 20 45 45 45 49 46 0D 49 46 32 20 43 4D |BEQ EEEIF.IF2 CM| 000012F0: 50 20 23 24 32 35 20 3B 20 49 46 54 0D 20 42 45 |P #$25 ; IFT. BE| 00001300: 51 20 49 46 33 0D 20 43 4D 50 20 23 24 32 36 20 |Q IF3. CMP #$26 | 00001310: 3B 20 49 46 46 0D 20 42 45 51 20 49 46 33 0D 20 |; IFF. BEQ IF3. | 00001320: 43 4D 50 20 23 24 36 31 20 3B 20 49 46 30 0D 20 |CMP #$61 ; IF0. | 00001330: 42 45 51 20 49 46 33 0D 20 43 4D 50 20 23 24 37 |BEQ IF3. CMP #$7| 00001340: 31 20 3B 20 49 46 0D 20 42 4E 45 20 49 46 31 0D |1 ; IF. BNE IF1.| 00001350: 49 46 33 20 49 4E 43 20 4C 45 56 45 4C 20 3B 20 |IF3 INC LEVEL ; | 00001360: 50 52 4F 43 45 53 53 20 49 46 0D 20 42 4E 45 20 |PROCESS IF. BNE | 00001370: 49 46 31 20 3B 20 41 4C 57 41 59 53 20 42 52 41 |IF1 ; ALWAYS BRA| 00001380: 4E 43 48 45 53 0D 45 49 46 20 44 45 43 20 4C 45 |NCHES.EIF DEC LE| 00001390: 56 45 4C 20 3B 20 50 52 4F 43 45 53 53 20 45 49 |VEL ; PROCESS EI| 000013A0: 46 53 0D 20 42 50 4C 20 49 46 31 20 3B 20 41 4C |FS. BPL IF1 ; AL| 000013B0: 57 41 59 53 20 42 52 41 4E 43 48 45 53 0D 50 52 |WAYS BRANCHES.PR| 000013C0: 4F 54 45 43 20 20 20 3B 20 24 34 44 0D 45 45 45 |OTEC ; $4D.EEE| 000013D0: 49 46 20 20 20 20 3B 20 53 55 50 45 52 20 45 4E |IF ; SUPER EN| 000013E0: 44 49 46 20 24 37 43 0D 53 42 52 20 20 20 20 20 |DIF $7C.SBR | 000013F0: 20 3B 20 4C 41 42 45 4C 20 4F 50 20 24 34 35 0D | ; LABEL OP $45.| 00001400: 45 4E 44 49 46 20 52 54 53 20 3B 20 45 4E 44 49 |ENDIF RTS ; ENDI| 00001410: 46 20 24 37 44 0D 3B 0D 3B 20 20 49 46 54 2C 20 |F $7D.;.; IFT, | 00001420: 53 47 4E 28 53 54 4B 29 3D 31 20 24 32 35 0D 49 |SGN(STK)=1 $25.I| 00001430: 46 54 20 4C 44 59 20 23 24 30 31 0D 3B 0D 3B 20 |FT LDY #$01.;.; | 00001440: 20 49 46 30 2C 20 53 47 4E 28 53 54 4B 29 3D 59 | IF0, SGN(STK)=Y| 00001450: 20 24 36 31 0D 49 46 30 20 53 54 59 20 59 53 41 | $61.IF0 STY YSA| 00001460: 56 45 0D 20 4A 53 52 20 53 47 4E 0D 20 4C 44 41 |VE. JSR SGN. LDA| 00001470: 20 53 54 4C 2C 58 0D 20 4A 4D 50 20 49 46 39 0D | STL,X. JMP IF9.| 00001480: 3B 0D 3B 20 20 49 46 46 2C 20 53 47 4E 28 53 54 |;.; IFF, SGN(ST| 00001490: 4B 29 3D 30 20 24 32 36 0D 49 46 46 20 4C 44 59 |K)=0 $26.IFF LDY| 000014A0: 20 23 24 30 30 0D 20 4A 4D 50 20 49 46 30 0D 3B | #$00. JMP IF0.;| 000014B0: 0D 53 43 41 4E 20 4C 44 41 20 28 50 43 4E 54 29 |.SCAN LDA (PCNT)| 000014C0: 2C 59 20 3B 59 20 4D 55 53 54 3D 30 0D 20 43 4D |,Y ;Y MUST=0. CM| 000014D0: 50 20 23 24 37 41 0D 20 42 43 53 20 53 43 41 4E |P #$7A. BCS SCAN| 000014E0: 33 0D 20 43 4D 50 20 23 24 34 30 0D 20 42 43 43 |3. CMP #$40. BCC| 000014F0: 20 53 43 41 4E 33 0D 20 43 4D 50 20 23 24 35 31 | SCAN3. CMP #$51| 00001500: 20 3B 4B 31 36 0D 20 42 45 51 20 53 43 41 4E 34 | ;K16. BEQ SCAN4| 00001510: 0D 53 43 41 4E 31 20 43 4D 50 20 23 24 34 36 20 |.SCAN1 CMP #$46 | 00001520: 3B 20 54 58 54 0D 20 42 4E 45 20 53 43 41 4E 32 |; TXT. BNE SCAN2| 00001530: 0D 53 43 41 4E 34 20 4A 53 52 20 49 4E 43 50 43 |.SCAN4 JSR INCPC| 00001540: 0D 53 43 41 4E 32 20 4A 53 52 20 49 4E 43 50 43 |.SCAN2 JSR INCPC| 00001550: 0D 53 43 41 4E 33 20 4A 53 52 20 49 4E 43 50 43 |.SCAN3 JSR INCPC| 00001560: 0D 20 4C 44 41 20 28 50 43 4E 54 29 2C 59 0D 20 |. LDA (PCNT),Y. | 00001570: 52 54 53 0D 3B 0D 3B 20 50 4F 53 54 58 54 2C 20 |RTS.;.; POSTXT, | 00001580: 59 2C 59 3D 43 52 58 2C 43 52 59 20 24 34 36 0D |Y,Y=CRX,CRY $46.| 00001590: 54 50 4F 53 20 53 54 59 20 43 4F 4C 43 52 53 20 |TPOS STY COLCRS | 000015A0: 3B 20 43 52 58 0D 20 4A 53 52 20 49 4E 43 50 43 |; CRX. JSR INCPC| 000015B0: 0D 20 4C 44 59 20 23 30 30 0D 20 4C 44 41 20 28 |. LDY #00. LDA (| 000015C0: 50 43 4E 54 29 2C 59 0D 20 53 54 41 20 52 4F 57 |PCNT),Y. STA ROW| 000015D0: 43 52 53 20 3B 20 43 52 59 0D 20 52 54 53 0D 3B |CRS ; CRY. RTS.;| 000015E0: 0D 3B 20 53 57 41 50 2C 20 4F 50 52 3D 3E 53 54 |.; SWAP, OPR=>ST| 000015F0: 4B 2C 20 53 54 4B 3D 3E 4F 50 52 20 24 30 45 0D |K, STK=>OPR $0E.| 00001600: 53 57 41 50 20 4C 44 59 20 4F 50 4C 2C 58 0D 20 |SWAP LDY OPL,X. | 00001610: 4C 44 41 20 53 54 4C 2C 58 0D 20 53 54 41 20 4F |LDA STL,X. STA O| 00001620: 50 4C 2C 58 0D 20 54 59 41 0D 20 53 54 41 20 53 |PL,X. TYA. STA S| 00001630: 54 4C 2C 58 0D 20 4C 44 59 20 4F 50 48 2C 58 0D |TL,X. LDY OPH,X.| 00001640: 20 4C 44 41 20 53 54 48 2C 58 0D 20 53 54 41 20 | LDA STH,X. STA | 00001650: 4F 50 48 2C 58 0D 20 54 59 41 0D 20 53 54 41 20 |OPH,X. TYA. STA | 00001660: 53 54 48 2C 58 0D 20 52 54 53 0D 3B 0D 3B 20 20 |STH,X. RTS.;.; | 00001670: 41 4E 44 2C 20 53 54 4B 26 59 3D 3E 53 54 4B 20 |AND, STK&Y=>STK | 00001680: 24 34 38 0D 4C 41 4E 44 20 54 59 41 0D 20 41 4E |$48.LAND TYA. AN| 00001690: 44 20 53 54 4C 2C 58 0D 20 53 54 41 20 53 54 4C |D STL,X. STA STL| 000016A0: 2C 58 0D 20 4C 44 41 20 23 24 30 30 0D 20 53 54 |,X. LDA #$00. ST| 000016B0: 41 20 53 54 48 2C 58 0D 20 52 54 53 0D 3B 0D 3B |A STH,X. RTS.;.;| 000016C0: 20 41 4E 44 32 2C 20 53 54 4B 26 4F 50 52 3D 3E | AND2, STK&OPR=>| 000016D0: 4F 50 52 2C 20 24 32 41 0D 4C 41 4E 44 32 20 4C |OPR, $2A.LAND2 L| 000016E0: 44 41 20 53 54 4C 2C 58 0D 20 41 4E 44 20 4F 50 |DA STL,X. AND OP| 000016F0: 4C 2C 58 0D 20 53 54 41 20 4F 50 4C 2C 58 0D 20 |L,X. STA OPL,X. | 00001700: 4C 44 41 20 53 54 48 2C 58 0D 20 41 4E 44 20 4F |LDA STH,X. AND O| 00001710: 50 48 2C 58 0D 20 53 54 41 20 4F 50 48 2C 58 0D |PH,X. STA OPH,X.| 00001720: 20 52 54 53 0D 3B 0D 3B 20 20 4F 52 2C 20 53 54 | RTS.;.; OR, ST| 00001730: 4B 5E 59 3D 3E 53 54 4B 20 24 34 39 0D 4C 4F 52 |K^Y=>STK $49.LOR| 00001740: 20 54 59 41 0D 20 4F 52 41 20 53 54 4C 2C 58 0D | TYA. ORA STL,X.| 00001750: 20 53 54 41 20 53 54 4C 2C 58 0D 20 52 54 53 0D | STA STL,X. RTS.| 00001760: 3B 0D 3B 20 20 58 4F 52 2C 20 53 54 4B 20 58 4F |;.; XOR, STK XO| 00001770: 52 20 59 3D 3E 53 54 4B 20 24 34 41 0D 4C 58 4F |R Y=>STK $4A.LXO| 00001780: 52 20 54 59 41 0D 20 45 4F 52 20 53 54 4C 2C 58 |R TYA. EOR STL,X| 00001790: 0D 20 53 54 41 20 53 54 4C 2C 58 0D 20 52 54 53 |. STA STL,X. RTS| 000017A0: 0D 3B 0D 3B 20 43 4C 52 2C 20 43 4C 45 41 52 20 |.;.; CLR, CLEAR | 000017B0: 53 54 41 43 4B 20 24 37 45 0D 43 4C 52 20 4C 44 |STACK $7E.CLR LD| 000017C0: 58 20 23 24 46 45 0D 20 52 54 53 0D 3B 0D 3B 20 |X #$FE. RTS.;.; | 000017D0: 52 55 4E 2C 20 53 54 41 52 54 20 4F 56 45 52 20 |RUN, START OVER | 000017E0: 24 37 46 0D 52 55 4E 20 4C 44 41 20 50 43 53 56 |$7F.RUN LDA PCSV| 000017F0: 45 2B 31 0D 20 53 54 41 20 50 43 4E 54 2B 31 0D |E+1. STA PCNT+1.| 00001800: 20 4C 44 41 20 50 43 53 56 45 0D 20 53 54 41 20 | LDA PCSVE. STA | 00001810: 50 43 4E 54 0D 52 55 4E 31 20 4C 44 58 20 23 24 |PCNT.RUN1 LDX #$| 00001820: 37 38 0D 20 53 54 58 20 47 4F 50 0D 20 53 54 58 |78. STX GOP. STX| 00001830: 20 56 4C 49 4D 0D 20 4C 44 58 20 23 24 30 30 0D | VLIM. LDX #$00.| 00001840: 20 53 54 58 20 56 50 4C 55 53 0D 20 53 54 58 20 | STX VPLUS. STX | 00001850: 46 4F 52 50 0D 20 44 45 58 0D 20 44 45 58 0D 20 |FORP. DEX. DEX. | 00001860: 52 54 53 0D 3B 0D 20 2E 45 4E 44 0D |RTS.;. .END. |
2Y1 = *. ASL A. TAY. RTS.;.;.; WORD, WOR D(STK)=>STK $0F.WRD LDY STL,X. JMP CON0. ;.; RND, STK*RND=>STK $08.RND INX ; FAK E STACK. INX. LDA RANDOM.RNDE STA STL,X. LDA #$00. STA STH,X. STA TMP1. LDA OPH, X. BPL RND2. JSR NEGOPR ; ABS(OPR). INC TMP1.RND2 LDY #8. JSR M2 ; DO MULT. LDA STX2,X. STA OPH,X. LDA STX1,X ; NORMALI ZE. STA OPL,X. LDA TMP1. BEQ RND3. JSR N EGOPR.RND3 DEX ; RESTORE STACK. DEX. RTS .;.;.BYTX LDA #$00 ; BYTE, STK&FF=>STK $07. STA STH,X ; 0. RTS.;.;.; ABS, ABS( STK)=>STK $09.ABS LDA STH,X. BPL ABS1. J SR NEG ; NEGATE IF NEG.ABS1 RTS.;.; SGN , SGN(STK)=>STK $0A.SGN LDA STH,X. BPL S GN1. LDY #$FF ;<0. JMP CON0.SGN1 BEQ SGN 2. LDY #$01. JMP CON0 ;>0.SGN2 LDA STL,X . BNE SGN1. LDY #$00 ;=0. JMP CON0.;.; PEEK, PEEK(STK)=>STK $0B.PEEK JSR USR ;S TK=>FR0. LDA #$00. STA STH,X. LDY #$00. LDA (FR0),Y. STA STL,X. RTS.;.; POKE, O PR=>LOC(STK) $30.POKE JSR USR ;STK=>FR0. LDY #$00.POKE0 LDA OPL,X. STA (FR0),Y. RTS.;.POKEY JSR USR. LDY VARL. JMP POKE0 .;.; RANGE, VALUE, OPR=LO STK=HI $35.; P OSITIVE VALUES ONLY !!.RANGE LDA OPH-2,X . BMI ORNGLO. CMP STH,X. BNE CPHI. LDA O PL-2,X. CMP STL,X.CPHI BCS ORNGHI. LDA O PH-2,X. CMP OPH,X. BNE CPLO. LDA OPL-2,X . CMP OPL,X.CPLO BCC ORNGLO. RTS.;.ORNGH I LDA STH,X. STA OPH-2,X. LDA STL,X. STA OPL-2,X. RTS.ORNGLO LDA OPH,X. STA OPH- 2,X. LDA OPL,X. STA OPL-2,X. RTS.;.; RA NGEY, VALUE, OPR=LO STK=HI $72.; POSITIV E VALUES ONLY !!.RNGY LDA OPH-2,X. BMI O RNG. CMP STH,X. BNE CP0HI. LDA OPL-2,X. CMP STL,X.CP0HI BCS ORNG. LDA OPH-2,X. C MP OPH,X. BNE CP0LO. LDA OPL-2,X. CMP OP L,X.CP0LO BCC ORNG. RTS.ORNG LDA #0. STA OPH-2,X. TYA. STA OPL-2,X. RTS.;.; STI CK, (STK)=>STK-X,OPR-Y $10.STICK LDY STL ,X. LDA $DC00,Y. LDY #$00. ROR A. BCS ST 1. LDY #$FF.ST1 ROR A. BCS ST2. LDY #$01 .ST2 PHA. JSR CON0 ; DY. PLA. LDY #$00. ROR A. BCS ST3. DEY.ST3 ROR A. BCS ST4. LDY #$01.ST4 JMP CON ; DX.;.; STRIG, (S TK)=>STK $04.STRIG LDY STL,X. LDA $DC00, Y. ROR A. ROR A. ROR A. ROR A. AND #1. E OR #1. STA STL,X. LDA #$00. STA STH,X. R TS.;.; INC, STK+1=>STK $05.INCR INC STL ,X. BNE INC1. INC STH,X.INC1 RTS.;.; DE C, STK-1=>STK $06.DECR LDA STL,X. BNE DE C1. DEC STH,X.DEC1 DEC STL,X. RTS.;.; D UP, STK=>STK+2 $11.DUP LDA STL,X. STA ST X1,X. LDA STH,X. STA STX2,X. RTS.;.; DP OKE, OPR=>LOC(STK) $34.DPOKE LDY #$00. J SR USR ;STK=>FR0. LDA OPL,X. STA (FR0),Y . INY. LDA OPH,X. STA (FR0),Y. RTS.;.; DPEEK, PEEK(STK)=>STK $0D.DPEEK LDY #$00 . JSR USR. LDA (FR0),Y. STA STL,X. INY. LDA (FR0),Y. STA STH,X. RTS.;.; DONE $0 0.DONE PLA. PLA. LDY FR0. LDA FR0+1. RTS .;.; DIVIDE, OPR/STK=>OPR $23.DIV LDA #$ 00. STA FLAG. JSR DIV8. DEX. DEX. JSR DI V8. INX. INX. LDA #$00. STA STX3,X. STA STX4,X. STA STX1,X. STA STX2,X. LDY #$10 ; 16 BITS.DIV1 ASL STX3,X. ROL STX4,X. ASL OPL,X. ROL OPH,X. ROL STX1,X. ROL ST X2,X. SEC. LDA STX1,X. SBC STL,X. STA TM P1 ; REMAINDER. LDA STX2,X. SBC STH,X. S TA TMP2. BCC DIV2. INC STX3,X ; RESULT. LDA TMP1 ; REM => DIV. STA STX1,X. LDA T MP2. STA STX2,X.DIV2 DEY. BNE DIV1. LDA STX4,X ; RESULT => OPR. STA STH,X. LDA S TX3,X. STA STL,X. LDA FLAG. BEQ DIV3. JS R NEG.DIV3 JMP PUNCH.;.DIV8 LDA STH,X. B PL DIV9. JSR NEG. LDA #$01. EOR FLAG. ST A FLAG.DIV9 RTS.;.; FOR, OPR=>VAR(Y),ST K=>LIM $70.FOR DEX. DEX. TYA ; VAR INDEX . ASL A. TAY. JSR STORE ; OPR=>VAR(X). S TY YSAVE. LDY FORP ; FOR PNTR. LDA STX1, X ; SAVE LIM. STA FLML,Y. LDA STX2,X. ST A FLMH,Y. LDA PCNT ; SAVE PC. STA FPCL,Y . LDA PCNT+1. STA FPCH,Y. LDA YSAVE ; SA VE VAR#. STA FVAR,Y. INY ; NEXT FSTACK. INY. INY. INY. INY. STY FORP. INX. INX. RTS.;.; NEXT, (Y) $40.NEXT STY YSAVE. A SL YSAVE ; VAR INDEX. STX XSAVE. LDY FOR P. STY FSAVE.NXT1 DEY. DEY. DEY. DEY. DE Y. STY FORP. BMI NXT9 ; ERROR. LDA FVAR, Y ; FIND FOR ENTRY. CMP YSAVE. BNE NXT1. LDX YSAVE. INC VARL,X. BNE NXT2. INC VA RH,X.NXT2 SEC. LDA FLML,Y. SBC VARL,X. L DA FLMH,Y. SBC VARH,X. BMI NXT9. LDA FPC L,Y ; GO BACK. STA PCNT. LDA FPCH,Y. STA PCNT+1. LDY FSAVE. STY FORP.NXT9 LDX XS AVE. RTS.;.; GOTO, Y $4B.GOTO STY YSAVE . JMP GOSUB0.;.; GOSUB, PC+Y $44.GOSUB STY YSAVE. LDY GOP. LDA PCNT. STA GPCL,Y . LDA PCNT+1. STA GPCH,Y. DEY. DEY. STY GOP.GOSUB0 LDY YSAVE. LDA JMPHI,Y. BEQ G OSUB3. STA PCNT+1. LDA JMPLO,Y. STA PCNT . RTS.;.GOSUB3 LDA PCSVE. STA PCNT. LDA PCSVE+1. STA PCNT+1. LDY #0.GOSUB1 JSR S CAN. CMP #$45 ; SBR?. BNE GOSUB1. JSR IN CPC. LDA (PCNT),Y. CMP YSAVE. BEQ GOSUB2 . JSR INCPC. JMP GOSUB1.GOSUB2 LDY YSAVE . LDA PCNT. STA JMPLO,Y. LDA PCNT+1. STA JMPHI,Y. RTS.;.; RETURN, $01.RETURN LD Y GOP. INY. INY. LDA GPCL,Y. STA PCNT. L DA GPCH,Y. STA PCNT+1. STY GOP. RTS.;.; USR, STK=>FR0 $2E.USR LDA STL,X. STA FR 0. LDA STH,X. STA FR0+1. RTS.;.;.; PRIN T +/-, STK Y=#BLANKS $62.;.; IF, SGN(OPR -STK)=Y $71.IF STY YSAVE. JSR SUB. DEX. DEX. JSR SGN. INX. INX. LDA OPL,X.IF9 CM P YSAVE. BEQ EEEIF ; TRUE.ELSE LDY #$00 ;ELS, $7B. STY LEVEL.IF1 JSR SCAN ; FIND ENDIF. CMP #$7D. BEQ EIF. CMP #$7C ; OR SUPER EIF. BEQ EEEIF. CMP #$7B ; OR ELS E. BNE IF2. LDA LEVEL. BNE IF1. BEQ EEEI F.IF2 CMP #$25 ; IFT. BEQ IF3. CMP #$26 ; IFF. BEQ IF3. CMP #$61 ; IF0. BEQ IF3. CMP #$71 ; IF. BNE IF1.IF3 INC LEVEL ; PROCESS IF. BNE IF1 ; ALWAYS BRANCHES.EI F DEC LEVEL ; PROCESS EIFS. BPL IF1 ; AL WAYS BRANCHES.PROTEC ; $4D.EEEIF ; SUPER ENDIF $7C.SBR ; LABEL OP $45. ENDIF RTS ; ENDIF $7D.;.; IFT, SGN(STK) =1 $25.IFT LDY #$01.;.; IF0, SGN(STK)=Y $61.IF0 STY YSAVE. JSR SGN. LDA STL,X. JMP IF9.;.; IFF, SGN(STK)=0 $26.IFF LDY #$00. JMP IF0.;.SCAN LDA (PCNT),Y ;Y MU ST=0. CMP #$7A. BCS SCAN3. CMP #$40. BCC SCAN3. CMP #$51 ;K16. BEQ SCAN4.SCAN1 C MP #$46 ; TXT. BNE SCAN2.SCAN4 JSR INCPC .SCAN2 JSR INCPC.SCAN3 JSR INCPC. LDA (P CNT),Y. RTS.;.; POSTXT, Y,Y=CRX,CRY $46. TPOS STY COLCRS ; CRX. JSR INCPC. LDY #0 0. LDA (PCNT),Y. STA ROWCRS ; CRY. RTS.; .; SWAP, OPR=>STK, STK=>OPR $0E.SWAP LDY OPL,X. LDA STL,X. STA OPL,X. TYA. STA S TL,X. LDY OPH,X. LDA STH,X. STA OPH,X. T YA. STA STH,X. RTS.;.; AND, STK&Y=>STK $48.LAND TYA. AND STL,X. STA STL,X. LDA #$00. STA STH,X. RTS.;.; AND2, STK&OPR=> OPR, $2A.LAND2 LDA STL,X. AND OPL,X. STA OPL,X. LDA STH,X. AND OPH,X. STA OPH,X. RTS.;.; OR, STK^Y=>STK $49.LOR TYA. OR A STL,X. STA STL,X. RTS.;.; XOR, STK XO R Y=>STK $4A.LXOR TYA. EOR STL,X. STA ST L,X. RTS.;.; CLR, CLEAR STACK $7E.CLR LD X #$FE. RTS.;.; RUN, START OVER $7F.RUN LDA PCSVE+1. STA PCNT+1. LDA PCSVE. STA PCNT.RUN1 LDX #$78. STX GOP. STX VLIM. L DX #$00. STX VPLUS. STX FORP. DEX. DEX. RTS.;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL