MIG17.SID
FILE INFORMATION
FILENAME(S): MIG17.SID
FILE TYPE(S): DEL
FILE SIZE: 3.6K
FIRST SEEN: 2025-10-19 22:49:33
APPEARS ON: 2 disk(s)
FILE HASH
70b86c8d9b5dfb52bd2a5f2eb003058b23c44c37d62a08383d011bee4d547618
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MIGDTL | MIG17.SID | DEL | Radd Maxx | 5 | 2 | DOWNLOAD FILE |
| MIGDTL | MIG17.SID | DEL | DuncanTwain | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 56 38 0D 20 44 45 58 0D 20 44 45 58 0D 20 4A 53 |V8. DEX. DEX. JS| 00000010: 52 20 44 49 56 38 0D 20 49 4E 58 0D 20 49 4E 58 |R DIV8. INX. INX| 00000020: 0D 20 4C 44 41 20 23 24 30 30 0D 20 53 54 41 20 |. LDA #$00. STA | 00000030: 53 54 58 33 2C 58 0D 20 53 54 41 20 53 54 58 34 |STX3,X. STA STX4| 00000040: 2C 58 0D 20 53 54 41 20 53 54 58 31 2C 58 0D 20 |,X. STA STX1,X. | 00000050: 53 54 41 20 53 54 58 32 2C 58 0D 20 4C 44 59 20 |STA STX2,X. LDY | 00000060: 23 24 31 30 20 3B 20 31 36 20 42 49 54 53 0D 44 |#$10 ; 16 BITS.D| 00000070: 49 56 31 20 41 53 4C 20 53 54 58 33 2C 58 0D 20 |IV1 ASL STX3,X. | 00000080: 52 4F 4C 20 53 54 58 34 2C 58 0D 20 41 53 4C 20 |ROL STX4,X. ASL | 00000090: 4F 50 4C 2C 58 0D 20 52 4F 4C 20 4F 50 48 2C 58 |OPL,X. ROL OPH,X| 000000A0: 0D 20 52 4F 4C 20 53 54 58 31 2C 58 0D 20 52 4F |. ROL STX1,X. RO| 000000B0: 4C 20 53 54 58 32 2C 58 0D 20 53 45 43 0D 20 4C |L STX2,X. SEC. L| 000000C0: 44 41 20 53 54 58 31 2C 58 0D 20 53 42 43 20 53 |DA STX1,X. SBC S| 000000D0: 54 4C 2C 58 0D 20 53 54 41 20 54 4D 50 31 20 3B |TL,X. STA TMP1 ;| 000000E0: 20 52 45 4D 41 49 4E 44 45 52 0D 20 4C 44 41 20 | REMAINDER. LDA | 000000F0: 53 54 58 32 2C 58 0D 20 53 42 43 20 53 54 48 2C |STX2,X. SBC STH,| 00000100: 58 0D 20 53 54 41 20 54 4D 50 32 0D 20 42 43 43 |X. STA TMP2. BCC| 00000110: 20 44 49 56 32 0D 20 49 4E 43 20 53 54 58 33 2C | DIV2. INC STX3,| 00000120: 58 20 3B 20 52 45 53 55 4C 54 0D 20 4C 44 41 20 |X ; RESULT. LDA | 00000130: 54 4D 50 31 20 3B 20 52 45 4D 20 3D 3E 20 44 49 |TMP1 ; REM => DI| 00000140: 56 0D 20 53 54 41 20 53 54 58 31 2C 58 0D 20 4C |V. STA STX1,X. L| 00000150: 44 41 20 54 4D 50 32 0D 20 53 54 41 20 53 54 58 |DA TMP2. STA STX| 00000160: 32 2C 58 0D 44 49 56 32 20 44 45 59 0D 20 42 4E |2,X.DIV2 DEY. BN| 00000170: 45 20 44 49 56 31 0D 20 4C 44 41 20 53 54 58 34 |E DIV1. LDA STX4| 00000180: 2C 58 20 3B 20 52 45 53 55 4C 54 20 3D 3E 20 4F |,X ; RESULT => O| 00000190: 50 52 0D 20 53 54 41 20 53 54 48 2C 58 0D 20 4C |PR. STA STH,X. L| 000001A0: 44 41 20 53 54 58 33 2C 58 0D 20 53 54 41 20 53 |DA STX3,X. STA S| 000001B0: 54 4C 2C 58 0D 20 4C 44 41 20 46 4C 41 47 0D 20 |TL,X. LDA FLAG. | 000001C0: 42 45 51 20 44 49 56 33 0D 20 4A 53 52 20 4E 45 |BEQ DIV3. JSR NE| 000001D0: 47 0D 44 49 56 33 20 4A 4D 50 20 50 55 4E 43 48 |G.DIV3 JMP PUNCH| 000001E0: 0D 3B 0D 44 49 56 38 20 4C 44 41 20 53 54 48 2C |.;.DIV8 LDA STH,| 000001F0: 58 0D 20 42 50 4C 20 44 49 56 39 0D 20 4A 53 52 |X. BPL DIV9. JSR| 00000200: 20 4E 45 47 0D 20 4C 44 41 20 23 24 30 31 0D 20 | NEG. LDA #$01. | 00000210: 45 4F 52 20 46 4C 41 47 0D 20 53 54 41 20 46 4C |EOR FLAG. STA FL| 00000220: 41 47 0D 44 49 56 39 20 52 54 53 0D 3B 0D 3B 20 |AG.DIV9 RTS.;.; | 00000230: 20 46 4F 52 2C 20 4F 50 52 3D 3E 56 41 52 28 59 | FOR, OPR=>VAR(Y| 00000240: 29 2C 53 54 4B 3D 3E 4C 49 4D 20 24 37 30 0D 46 |),STK=>LIM $70.F| 00000250: 4F 52 20 44 45 58 0D 20 44 45 58 0D 20 54 59 41 |OR DEX. DEX. TYA| 00000260: 20 3B 20 56 41 52 20 49 4E 44 45 58 0D 20 41 53 | ; VAR INDEX. AS| 00000270: 4C 20 41 0D 20 54 41 59 0D 20 4A 53 52 20 53 54 |L A. TAY. JSR ST| 00000280: 4F 52 45 20 3B 20 4F 50 52 3D 3E 56 41 52 28 58 |ORE ; OPR=>VAR(X| 00000290: 29 0D 20 53 54 59 20 59 53 41 56 45 0D 20 4C 44 |). STY YSAVE. LD| 000002A0: 59 20 46 4F 52 50 20 3B 20 46 4F 52 20 50 4E 54 |Y FORP ; FOR PNT| 000002B0: 52 0D 20 4C 44 41 20 53 54 58 31 2C 58 20 3B 20 |R. LDA STX1,X ; | 000002C0: 53 41 56 45 20 4C 49 4D 0D 20 53 54 41 20 46 4C |SAVE LIM. STA FL| 000002D0: 4D 4C 2C 59 0D 20 4C 44 41 20 53 54 58 32 2C 58 |ML,Y. LDA STX2,X| 000002E0: 0D 20 53 54 41 20 46 4C 4D 48 2C 59 0D 20 4C 44 |. STA FLMH,Y. LD| 000002F0: 41 20 50 43 4E 54 20 3B 20 53 41 56 45 20 50 43 |A PCNT ; SAVE PC| 00000300: 0D 20 53 54 41 20 46 50 43 4C 2C 59 0D 20 4C 44 |. STA FPCL,Y. LD| 00000310: 41 20 50 43 4E 54 2B 31 0D 20 53 54 41 20 46 50 |A PCNT+1. STA FP| 00000320: 43 48 2C 59 0D 20 4C 44 41 20 59 53 41 56 45 20 |CH,Y. LDA YSAVE | 00000330: 3B 20 53 41 56 45 20 56 41 52 23 0D 20 53 54 41 |; SAVE VAR#. STA| 00000340: 20 46 56 41 52 2C 59 0D 20 49 4E 59 20 3B 20 4E | FVAR,Y. INY ; N| 00000350: 45 58 54 20 46 53 54 41 43 4B 0D 20 49 4E 59 0D |EXT FSTACK. INY.| 00000360: 20 49 4E 59 0D 20 49 4E 59 0D 20 49 4E 59 0D 20 | INY. INY. INY. | 00000370: 53 54 59 20 46 4F 52 50 0D 20 49 4E 58 0D 20 49 |STY FORP. INX. I| 00000380: 4E 58 0D 20 52 54 53 0D 3B 0D 3B 20 20 4E 45 58 |NX. RTS.;.; NEX| 00000390: 54 2C 20 28 59 29 20 24 34 30 0D 4E 45 58 54 20 |T, (Y) $40.NEXT | 000003A0: 53 54 59 20 59 53 41 56 45 0D 20 41 53 4C 20 59 |STY YSAVE. ASL Y| 000003B0: 53 41 56 45 20 3B 20 56 41 52 20 49 4E 44 45 58 |SAVE ; VAR INDEX| 000003C0: 0D 20 53 54 58 20 58 53 41 56 45 0D 20 4C 44 59 |. STX XSAVE. LDY| 000003D0: 20 46 4F 52 50 0D 20 53 54 59 20 46 53 41 56 45 | FORP. STY FSAVE| 000003E0: 0D 4E 58 54 31 20 44 45 59 0D 20 44 45 59 0D 20 |.NXT1 DEY. DEY. | 000003F0: 44 45 59 0D 20 44 45 59 0D 20 44 45 59 0D 20 53 |DEY. DEY. DEY. S| 00000400: 54 59 20 46 4F 52 50 0D 20 42 4D 49 20 4E 58 54 |TY FORP. BMI NXT| 00000410: 39 20 3B 20 45 52 52 4F 52 0D 20 4C 44 41 20 46 |9 ; ERROR. LDA F| 00000420: 56 41 52 2C 59 20 3B 20 46 49 4E 44 20 46 4F 52 |VAR,Y ; FIND FOR| 00000430: 20 45 4E 54 52 59 0D 20 43 4D 50 20 59 53 41 56 | ENTRY. CMP YSAV| 00000440: 45 0D 20 42 4E 45 20 4E 58 54 31 0D 20 4C 44 58 |E. BNE NXT1. LDX| 00000450: 20 59 53 41 56 45 0D 20 49 4E 43 20 56 41 52 4C | YSAVE. INC VARL| 00000460: 2C 58 0D 20 42 4E 45 20 4E 58 54 32 0D 20 49 4E |,X. BNE NXT2. IN| 00000470: 43 20 56 41 52 48 2C 58 0D 4E 58 54 32 20 53 45 |C VARH,X.NXT2 SE| 00000480: 43 0D 20 4C 44 41 20 46 4C 4D 4C 2C 59 0D 20 53 |C. LDA FLML,Y. S| 00000490: 42 43 20 56 41 52 4C 2C 58 0D 20 4C 44 41 20 46 |BC VARL,X. LDA F| 000004A0: 4C 4D 48 2C 59 0D 20 53 42 43 20 56 41 52 48 2C |LMH,Y. SBC VARH,| 000004B0: 58 0D 20 42 4D 49 20 4E 58 54 39 0D 20 4C 44 41 |X. BMI NXT9. LDA| 000004C0: 20 46 50 43 4C 2C 59 20 3B 20 47 4F 20 42 41 43 | FPCL,Y ; GO BAC| 000004D0: 4B 0D 20 53 54 41 20 50 43 4E 54 0D 20 4C 44 41 |K. STA PCNT. LDA| 000004E0: 20 46 50 43 48 2C 59 0D 20 53 54 41 20 50 43 4E | FPCH,Y. STA PCN| 000004F0: 54 2B 31 0D 20 4C 44 59 20 46 53 41 56 45 0D 20 |T+1. LDY FSAVE. | 00000500: 53 54 59 20 46 4F 52 50 0D 4E 58 54 39 20 4C 44 |STY FORP.NXT9 LD| 00000510: 58 20 58 53 41 56 45 0D 20 52 54 53 0D 3B 0D 3B |X XSAVE. RTS.;.;| 00000520: 20 20 47 4F 54 4F 2C 20 59 20 24 34 42 0D 47 4F | GOTO, Y $4B.GO| 00000530: 54 4F 20 53 54 59 20 59 53 41 56 45 0D 20 4A 4D |TO STY YSAVE. JM| 00000540: 50 20 47 4F 53 55 42 30 0D 3B 0D 3B 20 20 47 4F |P GOSUB0.;.; GO| 00000550: 53 55 42 2C 20 50 43 2B 59 20 24 34 34 0D 47 4F |SUB, PC+Y $44.GO| 00000560: 53 55 42 20 53 54 59 20 59 53 41 56 45 0D 20 4C |SUB STY YSAVE. L| 00000570: 44 59 20 47 4F 50 0D 20 4C 44 41 20 50 43 4E 54 |DY GOP. LDA PCNT| 00000580: 0D 20 53 54 41 20 47 50 43 4C 2C 59 0D 20 4C 44 |. STA GPCL,Y. LD| 00000590: 41 20 50 43 4E 54 2B 31 0D 20 53 54 41 20 47 50 |A PCNT+1. STA GP| 000005A0: 43 48 2C 59 0D 20 44 45 59 0D 20 44 45 59 0D 20 |CH,Y. DEY. DEY. | 000005B0: 53 54 59 20 47 4F 50 0D 47 4F 53 55 42 30 20 4C |STY GOP.GOSUB0 L| 000005C0: 44 59 20 59 53 41 56 45 0D 20 4C 44 41 20 4A 4D |DY YSAVE. LDA JM| 000005D0: 50 48 49 2C 59 0D 20 42 45 51 20 47 4F 53 55 42 |PHI,Y. BEQ GOSUB| 000005E0: 33 0D 20 53 54 41 20 50 43 4E 54 2B 31 0D 20 4C |3. STA PCNT+1. L| 000005F0: 44 41 20 4A 4D 50 4C 4F 2C 59 0D 20 53 54 41 20 |DA JMPLO,Y. STA | 00000600: 50 43 4E 54 0D 20 52 54 53 0D 3B 0D 47 4F 53 55 |PCNT. RTS.;.GOSU| 00000610: 42 33 20 4C 44 41 20 50 43 53 56 45 0D 20 53 54 |B3 LDA PCSVE. ST| 00000620: 41 20 50 43 4E 54 0D 20 4C 44 41 20 50 43 53 56 |A PCNT. LDA PCSV| 00000630: 45 2B 31 0D 20 53 54 41 20 50 43 4E 54 2B 31 0D |E+1. STA PCNT+1.| 00000640: 20 4C 44 59 20 23 30 0D 47 4F 53 55 42 31 20 4A | LDY #0.GOSUB1 J| 00000650: 53 52 20 53 43 41 4E 0D 20 43 4D 50 20 23 24 34 |SR SCAN. CMP #$4| 00000660: 35 20 3B 20 53 42 52 3F 0D 20 42 4E 45 20 47 4F |5 ; SBR?. BNE GO| 00000670: 53 55 42 31 0D 20 4A 53 52 20 49 4E 43 50 43 0D |SUB1. JSR INCPC.| 00000680: 20 4C 44 41 20 28 50 43 4E 54 29 2C 59 0D 20 43 | LDA (PCNT),Y. C| 00000690: 4D 50 20 59 53 41 56 45 0D 20 42 45 51 20 47 4F |MP YSAVE. BEQ GO| 000006A0: 53 55 42 32 0D 20 4A 53 52 20 49 4E 43 50 43 0D |SUB2. JSR INCPC.| 000006B0: 20 4A 4D 50 20 47 4F 53 55 42 31 0D 47 4F 53 55 | JMP GOSUB1.GOSU| 000006C0: 42 32 20 4C 44 59 20 59 53 41 56 45 0D 20 4C 44 |B2 LDY YSAVE. LD| 000006D0: 41 20 50 43 4E 54 0D 20 53 54 41 20 4A 4D 50 4C |A PCNT. STA JMPL| 000006E0: 4F 2C 59 0D 20 4C 44 41 20 50 43 4E 54 2B 31 0D |O,Y. LDA PCNT+1.| 000006F0: 20 53 54 41 20 4A 4D 50 48 49 2C 59 0D 20 52 54 | STA JMPHI,Y. RT| 00000700: 53 0D 3B 0D 3B 20 20 52 45 54 55 52 4E 2C 20 24 |S.;.; RETURN, $| 00000710: 30 31 0D 52 45 54 55 52 4E 20 4C 44 59 20 47 4F |01.RETURN LDY GO| 00000720: 50 0D 20 49 4E 59 0D 20 49 4E 59 0D 20 4C 44 41 |P. INY. INY. LDA| 00000730: 20 47 50 43 4C 2C 59 0D 20 53 54 41 20 50 43 4E | GPCL,Y. STA PCN| 00000740: 54 0D 20 4C 44 41 20 47 50 43 48 2C 59 0D 20 53 |T. LDA GPCH,Y. S| 00000750: 54 41 20 50 43 4E 54 2B 31 0D 20 53 54 59 20 47 |TA PCNT+1. STY G| 00000760: 4F 50 0D 20 52 54 53 0D 3B 0D 3B 20 20 55 53 52 |OP. RTS.;.; USR| 00000770: 2C 20 53 54 4B 3D 3E 46 52 30 20 24 32 45 0D 55 |, STK=>FR0 $2E.U| 00000780: 53 52 20 4C 44 41 20 53 54 4C 2C 58 0D 20 53 54 |SR LDA STL,X. ST| 00000790: 41 20 46 52 30 0D 20 4C 44 41 20 53 54 48 2C 58 |A FR0. LDA STH,X| 000007A0: 0D 20 53 54 41 20 46 52 30 2B 31 0D 20 52 54 53 |. STA FR0+1. RTS| 000007B0: 0D 3B 0D 3B 0D 3B 20 20 50 52 49 4E 54 20 2B 2F |.;.;.; PRINT +/| 000007C0: 2D 2C 20 53 54 4B 20 59 3D 23 42 4C 41 4E 4B 53 |-, STK Y=#BLANKS| 000007D0: 20 24 36 32 0D 3B 0D 3B 20 49 46 2C 20 53 47 4E | $62.;.; IF, SGN| 000007E0: 28 4F 50 52 2D 53 54 4B 29 3D 59 20 24 37 31 0D |(OPR-STK)=Y $71.| 000007F0: 49 46 20 53 54 59 20 59 53 41 56 45 0D 20 4A 53 |IF STY YSAVE. JS| 00000800: 52 20 53 55 42 0D 20 44 45 58 0D 20 44 45 58 0D |R SUB. DEX. DEX.| 00000810: 20 4A 53 52 20 53 47 4E 0D 20 49 4E 58 0D 20 49 | JSR SGN. INX. I| 00000820: 4E 58 0D 20 4C 44 41 20 4F 50 4C 2C 58 0D 49 46 |NX. LDA OPL,X.IF| 00000830: 39 20 43 4D 50 20 59 53 41 56 45 0D 20 42 45 51 |9 CMP YSAVE. BEQ| 00000840: 20 45 45 45 49 46 20 3B 20 54 52 55 45 0D 45 4C | EEEIF ; TRUE.EL| 00000850: 53 45 20 4C 44 59 20 23 24 30 30 20 3B 45 4C 53 |SE LDY #$00 ;ELS| 00000860: 2C 20 24 37 42 0D 20 53 54 59 20 4C 45 56 45 4C |, $7B. STY LEVEL| 00000870: 0D 49 46 31 20 4A 53 52 20 53 43 41 4E 20 3B 20 |.IF1 JSR SCAN ; | 00000880: 46 49 4E 44 20 45 4E 44 49 46 0D 20 43 4D 50 20 |FIND ENDIF. CMP | 00000890: 23 24 37 44 0D 20 42 45 51 20 45 49 46 0D 20 43 |#$7D. BEQ EIF. C| 000008A0: 4D 50 20 23 24 37 43 20 3B 20 4F 52 20 53 55 50 |MP #$7C ; OR SUP| 000008B0: 45 52 20 45 49 46 0D 20 42 45 51 20 45 45 45 49 |ER EIF. BEQ EEEI| 000008C0: 46 0D 20 43 4D 50 20 23 24 37 42 20 3B 20 4F 52 |F. CMP #$7B ; OR| 000008D0: 20 45 4C 53 45 0D 20 42 4E 45 20 49 46 32 0D 20 | ELSE. BNE IF2. | 000008E0: 4C 44 41 20 4C 45 56 45 4C 0D 20 42 4E 45 20 49 |LDA LEVEL. BNE I| 000008F0: 46 31 0D 20 42 45 51 20 45 45 45 49 46 0D 49 46 |F1. BEQ EEEIF.IF| 00000900: 32 20 43 4D 50 20 23 24 32 35 20 3B 20 49 46 54 |2 CMP #$25 ; IFT| 00000910: 0D 20 42 45 51 20 49 46 33 0D 20 43 4D 50 20 23 |. BEQ IF3. CMP #| 00000920: 24 32 36 20 3B 20 49 46 46 0D 20 42 45 51 20 49 |$26 ; IFF. BEQ I| 00000930: 46 33 0D 20 43 4D 50 20 23 24 36 31 20 3B 20 49 |F3. CMP #$61 ; I| 00000940: 46 30 0D 20 42 45 51 20 49 46 33 0D 20 43 4D 50 |F0. BEQ IF3. CMP| 00000950: 20 23 24 37 31 20 3B 20 49 46 0D 20 42 4E 45 20 | #$71 ; IF. BNE | 00000960: 49 46 31 0D 49 46 33 20 49 4E 43 20 4C 45 56 45 |IF1.IF3 INC LEVE| 00000970: 4C 20 3B 20 50 52 4F 43 45 53 53 20 49 46 0D 20 |L ; PROCESS IF. | 00000980: 42 4E 45 20 49 46 31 20 3B 20 41 4C 57 41 59 53 |BNE IF1 ; ALWAYS| 00000990: 20 42 52 41 4E 43 48 45 53 0D 45 49 46 20 44 45 | BRANCHES.EIF DE| 000009A0: 43 20 4C 45 56 45 4C 20 3B 20 50 52 4F 43 45 53 |C LEVEL ; PROCES| 000009B0: 53 20 45 49 46 53 0D 20 42 50 4C 20 49 46 31 20 |S EIFS. BPL IF1 | 000009C0: 3B 20 41 4C 57 41 59 53 20 42 52 41 4E 43 48 45 |; ALWAYS BRANCHE| 000009D0: 53 0D 50 52 4F 54 45 43 20 20 20 3B 20 24 34 44 |S.PROTEC ; $4D| 000009E0: 0D 45 45 45 49 46 20 20 20 20 3B 20 53 55 50 45 |.EEEIF ; SUPE| 000009F0: 52 20 45 4E 44 49 46 20 24 37 43 0D 53 42 52 20 |R ENDIF $7C.SBR | 00000A00: 20 20 20 20 20 3B 20 4C 41 42 45 4C 20 4F 50 20 | ; LABEL OP | 00000A10: 24 34 35 0D 45 4E 44 49 46 20 52 54 53 20 3B 20 |$45.ENDIF RTS ; | 00000A20: 45 4E 44 49 46 20 24 37 44 0D 3B 0D 3B 20 20 49 |ENDIF $7D.;.; I| 00000A30: 46 54 2C 20 53 47 4E 28 53 54 4B 29 3D 31 20 24 |FT, SGN(STK)=1 $| 00000A40: 32 35 0D 49 46 54 20 4C 44 59 20 23 24 30 31 0D |25.IFT LDY #$01.| 00000A50: 3B 0D 3B 20 20 49 46 30 2C 20 53 47 4E 28 53 54 |;.; IF0, SGN(ST| 00000A60: 4B 29 3D 59 20 24 36 31 0D 49 46 30 20 53 54 59 |K)=Y $61.IF0 STY| 00000A70: 20 59 53 41 56 45 0D 20 4A 53 52 20 53 47 4E 0D | YSAVE. JSR SGN.| 00000A80: 20 4C 44 41 20 53 54 4C 2C 58 0D 20 4A 4D 50 20 | LDA STL,X. JMP | 00000A90: 49 46 39 0D 3B 0D 3B 20 20 49 46 46 2C 20 53 47 |IF9.;.; IFF, SG| 00000AA0: 4E 28 53 54 4B 29 3D 30 20 24 32 36 0D 49 46 46 |N(STK)=0 $26.IFF| 00000AB0: 20 4C 44 59 20 23 24 30 30 0D 20 4A 4D 50 20 49 | LDY #$00. JMP I| 00000AC0: 46 30 0D 3B 0D 53 43 41 4E 20 4C 44 41 20 28 50 |F0.;.SCAN LDA (P| 00000AD0: 43 4E 54 29 2C 59 20 3B 59 20 4D 55 53 54 3D 30 |CNT),Y ;Y MUST=0| 00000AE0: 0D 20 43 4D 50 20 23 24 37 41 0D 20 42 43 53 20 |. CMP #$7A. BCS | 00000AF0: 53 43 41 4E 33 0D 20 43 4D 50 20 23 24 34 30 0D |SCAN3. CMP #$40.| 00000B00: 20 42 43 43 20 53 43 41 4E 33 0D 20 43 4D 50 20 | BCC SCAN3. CMP | 00000B10: 23 24 35 31 20 3B 4B 31 36 0D 20 42 45 51 20 53 |#$51 ;K16. BEQ S| 00000B20: 43 41 4E 34 0D 53 43 41 4E 31 20 43 4D 50 20 23 |CAN4.SCAN1 CMP #| 00000B30: 24 34 36 20 3B 20 54 58 54 0D 20 42 4E 45 20 53 |$46 ; TXT. BNE S| 00000B40: 43 41 4E 32 0D 53 43 41 4E 34 20 4A 53 52 20 49 |CAN2.SCAN4 JSR I| 00000B50: 4E 43 50 43 0D 53 43 41 4E 32 20 4A 53 52 20 49 |NCPC.SCAN2 JSR I| 00000B60: 4E 43 50 43 0D 53 43 41 4E 33 20 4A 53 52 20 49 |NCPC.SCAN3 JSR I| 00000B70: 4E 43 50 43 0D 20 4C 44 41 20 28 50 43 4E 54 29 |NCPC. LDA (PCNT)| 00000B80: 2C 59 0D 20 52 54 53 0D 3B 0D 3B 20 50 4F 53 54 |,Y. RTS.;.; POST| 00000B90: 58 54 2C 20 59 2C 59 3D 43 52 58 2C 43 52 59 20 |XT, Y,Y=CRX,CRY | 00000BA0: 24 34 36 0D 54 50 4F 53 20 53 54 59 20 43 4F 4C |$46.TPOS STY COL| 00000BB0: 43 52 53 20 3B 20 43 52 58 0D 20 4A 53 52 20 49 |CRS ; CRX. JSR I| 00000BC0: 4E 43 50 43 0D 20 4C 44 59 20 23 30 30 0D 20 4C |NCPC. LDY #00. L| 00000BD0: 44 41 20 28 50 43 4E 54 29 2C 59 0D 20 53 54 41 |DA (PCNT),Y. STA| 00000BE0: 20 52 4F 57 43 52 53 20 3B 20 43 52 59 0D 20 52 | ROWCRS ; CRY. R| 00000BF0: 54 53 0D 3B 0D 3B 20 53 57 41 50 2C 20 4F 50 52 |TS.;.; SWAP, OPR| 00000C00: 3D 3E 53 54 4B 2C 20 53 54 4B 3D 3E 4F 50 52 20 |=>STK, STK=>OPR | 00000C10: 24 30 45 0D 53 57 41 50 20 4C 44 59 20 4F 50 4C |$0E.SWAP LDY OPL| 00000C20: 2C 58 0D 20 4C 44 41 20 53 54 4C 2C 58 0D 20 53 |,X. LDA STL,X. S| 00000C30: 54 41 20 4F 50 4C 2C 58 0D 20 54 59 41 0D 20 53 |TA OPL,X. TYA. S| 00000C40: 54 41 20 53 54 4C 2C 58 0D 20 4C 44 59 20 4F 50 |TA STL,X. LDY OP| 00000C50: 48 2C 58 0D 20 4C 44 41 20 53 54 48 2C 58 0D 20 |H,X. LDA STH,X. | 00000C60: 53 54 41 20 4F 50 48 2C 58 0D 20 54 59 41 0D 20 |STA OPH,X. TYA. | 00000C70: 53 54 41 20 53 54 48 2C 58 0D 20 52 54 53 0D 3B |STA STH,X. RTS.;| 00000C80: 0D 3B 20 20 41 4E 44 2C 20 53 54 4B 26 59 3D 3E |.; AND, STK&Y=>| 00000C90: 53 54 4B 20 24 34 38 0D 4C 41 4E 44 20 54 59 41 |STK $48.LAND TYA| 00000CA0: 0D 20 41 4E 44 20 53 54 4C 2C 58 0D 20 53 54 41 |. AND STL,X. STA| 00000CB0: 20 53 54 4C 2C 58 0D 20 4C 44 41 20 23 24 30 30 | STL,X. LDA #$00| 00000CC0: 0D 20 53 54 41 20 53 54 48 2C 58 0D 20 52 54 53 |. STA STH,X. RTS| 00000CD0: 0D 3B 0D 3B 20 41 4E 44 32 2C 20 53 54 4B 26 4F |.;.; AND2, STK&O| 00000CE0: 50 52 3D 3E 4F 50 52 2C 20 24 32 41 0D 4C 41 4E |PR=>OPR, $2A.LAN| 00000CF0: 44 32 20 4C 44 41 20 53 54 4C 2C 58 0D 20 41 4E |D2 LDA STL,X. AN| 00000D00: 44 20 4F 50 4C 2C 58 0D 20 53 54 41 20 4F 50 4C |D OPL,X. STA OPL| 00000D10: 2C 58 0D 20 4C 44 41 20 53 54 48 2C 58 0D 20 41 |,X. LDA STH,X. A| 00000D20: 4E 44 20 4F 50 48 2C 58 0D 20 53 54 41 20 4F 50 |ND OPH,X. STA OP| 00000D30: 48 2C 58 0D 20 52 54 53 0D 3B 0D 3B 20 20 4F 52 |H,X. RTS.;.; OR| 00000D40: 2C 20 53 54 4B 5E 59 3D 3E 53 54 4B 20 24 34 39 |, STK^Y=>STK $49| 00000D50: 0D 4C 4F 52 20 54 59 41 0D 20 4F 52 41 20 53 54 |.LOR TYA. ORA ST| 00000D60: 4C 2C 58 0D 20 53 54 41 20 53 54 4C 2C 58 0D 20 |L,X. STA STL,X. | 00000D70: 52 54 53 0D 3B 0D 3B 20 20 58 4F 52 2C 20 53 54 |RTS.;.; XOR, ST| 00000D80: 4B 20 58 4F 52 20 59 3D 3E 53 54 4B 20 24 34 41 |K XOR Y=>STK $4A| 00000D90: 0D 4C 58 4F 52 20 54 59 41 0D 20 45 4F 52 20 53 |.LXOR TYA. EOR S| 00000DA0: 54 4C 2C 58 0D 20 53 54 41 20 53 54 4C 2C 58 0D |TL,X. STA STL,X.| 00000DB0: 20 52 54 53 0D 3B 0D 3B 20 43 4C 52 2C 20 43 4C | RTS.;.; CLR, CL| 00000DC0: 45 41 52 20 53 54 41 43 4B 20 24 37 45 0D 43 4C |EAR STACK $7E.CL| 00000DD0: 52 20 4C 44 58 20 23 24 46 45 0D 20 52 54 53 0D |R LDX #$FE. RTS.| 00000DE0: 3B 0D 3B 20 52 55 4E 2C 20 53 54 41 52 54 20 4F |;.; RUN, START O| 00000DF0: 56 45 52 20 24 37 46 0D 52 55 4E 20 4C 44 41 20 |VER $7F.RUN LDA | 00000E00: 50 43 53 56 45 2B 31 0D 20 53 54 41 20 50 43 4E |PCSVE+1. STA PCN| 00000E10: 54 2B 31 0D 20 4C 44 41 20 50 43 53 56 45 0D 20 |T+1. LDA PCSVE. | 00000E20: 53 54 41 20 50 43 4E 54 0D 52 55 4E 31 20 4C 44 |STA PCNT.RUN1 LD| 00000E30: 58 20 23 24 37 38 0D 20 53 54 58 20 47 4F 50 0D |X #$78. STX GOP.| 00000E40: 20 53 54 58 20 56 4C 49 4D 0D 20 4C 44 58 20 23 | STX VLIM. LDX #| 00000E50: 24 30 30 0D 20 53 54 58 20 56 50 4C 55 53 0D 20 |$00. STX VPLUS. | 00000E60: 53 54 58 20 46 4F 52 50 0D 20 44 45 58 0D 20 44 |STX FORP. DEX. D| 00000E70: 45 58 0D 20 52 54 53 0D 3B 0D 20 2E 45 4E 44 0D |EX. RTS.;. .END.|
V8. DEX. DEX. JSR DIV8. 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 STX2,X. SEC. LDA STX1,
X. SBC STL,X. STA TMP1 ; REMAINDER. LDA
STX2,X. SBC STH,X. STA TMP2. BCC DIV2. I
NC STX3,X ; RESULT. LDA TMP1 ; REM => DI
V. STA STX1,X. LDA TMP2. STA STX2,X.DIV2
DEY. BNE DIV1. LDA STX4,X ; RESULT => O
PR. STA STH,X. LDA STX3,X. STA STL,X. LD
A FLAG. BEQ DIV3. JSR NEG.DIV3 JMP PUNCH
.;.DIV8 LDA STH,X. BPL DIV9. JSR NEG. LD
A #$01. EOR FLAG. STA FLAG.DIV9 RTS.;.;
FOR, OPR=>VAR(Y),STK=>LIM $70.FOR DEX.
DEX. TYA ; VAR INDEX. ASL A. TAY. JSR ST
ORE ; OPR=>VAR(X). STY YSAVE. LDY FORP ;
FOR PNTR. LDA STX1,X ; SAVE LIM. STA FL
ML,Y. LDA STX2,X. STA FLMH,Y. LDA PCNT ;
SAVE PC. STA FPCL,Y. LDA PCNT+1. STA FP
CH,Y. LDA YSAVE ; SAVE VAR#. STA FVAR,Y.
INY ; NEXT FSTACK. INY. INY. INY. INY.
STY FORP. INX. INX. RTS.;.; NEXT, (Y) $
40.NEXT STY YSAVE. ASL YSAVE ; VAR INDEX
. STX XSAVE. LDY FORP. STY FSAVE.NXT1 DE
Y. DEY. DEY. DEY. DEY. STY FORP. BMI NXT
9 ; ERROR. LDA FVAR,Y ; FIND FOR ENTRY.
CMP YSAVE. BNE NXT1. LDX YSAVE. INC VARL
,X. BNE NXT2. INC VARH,X.NXT2 SEC. LDA F
LML,Y. SBC VARL,X. LDA FLMH,Y. SBC VARH,
X. BMI NXT9. LDA FPCL,Y ; GO BACK. STA P
CNT. LDA FPCH,Y. STA PCNT+1. LDY FSAVE.
STY FORP.NXT9 LDX XSAVE. RTS.;.; GOTO,
Y $4B.GOTO STY YSAVE. JMP GOSUB0.;.; GO
SUB, PC+Y $44.GOSUB STY YSAVE. LDY GOP.
LDA PCNT. STA GPCL,Y. LDA PCNT+1. STA GP
CH,Y. DEY. DEY. STY GOP.GOSUB0 LDY YSAVE
. LDA JMPHI,Y. BEQ GOSUB3. STA PCNT+1. L
DA JMPLO,Y. STA PCNT. RTS.;.GOSUB3 LDA P
CSVE. STA PCNT. LDA PCSVE+1. STA PCNT+1.
LDY #0.GOSUB1 JSR SCAN. CMP #$45 ; SBR?
. BNE GOSUB1. JSR INCPC. LDA (PCNT),Y. C
MP YSAVE. BEQ GOSUB2. JSR INCPC. JMP GOS
UB1.GOSUB2 LDY YSAVE. LDA PCNT. STA JMPL
O,Y. LDA PCNT+1. STA JMPHI,Y. RTS.;.; R
ETURN, $01.RETURN LDY GOP. INY. INY. LDA
GPCL,Y. STA PCNT. LDA GPCH,Y. STA PCNT+
1. STY GOP. RTS.;.; USR, STK=>FR0 $2E.U
SR LDA STL,X. STA FR0. LDA STH,X. STA FR
0+1. RTS.;.;.; PRINT +/-, STK Y=#BLANKS
$62.;.; IF, SGN(OPR-STK)=Y $71.IF STY Y
SAVE. JSR SUB. DEX. DEX. JSR SGN. INX. I
NX. LDA OPL,X.IF9 CMP YSAVE. BEQ EEEIF ;
TRUE.ELSE LDY #$00 ;ELS, $7B. STY LEVEL
.IF1 JSR SCAN ; FIND ENDIF. CMP #$7D. BE
Q EIF. CMP #$7C ; OR SUPER EIF. BEQ EEEI
F. CMP #$7B ; OR ELSE. BNE IF2. LDA LEVE
L. BNE IF1. BEQ EEEIF.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.EIF DEC LEVEL ; PROCES
S EIFS. BPL IF1 ; ALWAYS BRANCHES.PROTEC
; $4D.EEEIF ; SUPER ENDIF $7C.SBR
; LABEL OP $45.ENDIF RTS ; ENDIF $7
D.;.; IFT, SGN(STK)=1 $25.IFT LDY #$01.
;.; IF0, SGN(STK)=Y $61.IF0 STY YSAVE.
JSR SGN. LDA STL,X. JMP IF9.;.; IFF, SG
N(STK)=0 $26.IFF LDY #$00. JMP IF0.;.SCA
N LDA (PCNT),Y ;Y MUST=0. CMP #$7A. BCS
SCAN3. CMP #$40. BCC SCAN3. CMP #$51 ;K1
6. BEQ SCAN4.SCAN1 CMP #$46 ; TXT. BNE S
CAN2.SCAN4 JSR INCPC.SCAN2 JSR INCPC.SCA
N3 JSR INCPC. LDA (PCNT),Y. RTS.;.; POST
XT, Y,Y=CRX,CRY $46.TPOS STY COLCRS ; CR
X. JSR INCPC. LDY #00. LDA (PCNT),Y. STA
ROWCRS ; CRY. RTS.;.; SWAP, OPR=>STK, S
TK=>OPR $0E.SWAP LDY OPL,X. LDA STL,X. S
TA OPL,X. TYA. STA STL,X. LDY OPH,X. LDA
STH,X. STA OPH,X. TYA. STA STH,X. RTS.;
.; AND, STK&Y=>STK $48.LAND TYA. AND ST
L,X. STA STL,X. LDA #$00. STA STH,X. RTS
.;.; AND2, STK&OPR=>OPR, $2A.LAND2 LDA S
TL,X. AND OPL,X. STA OPL,X. LDA STH,X. A
ND OPH,X. STA OPH,X. RTS.;.; OR, STK^Y=
>STK $49.LOR TYA. ORA STL,X. STA STL,X.
RTS.;.; XOR, STK XOR Y=>STK $4A.LXOR TY
A. EOR STL,X. STA STL,X. RTS.;.; CLR, CL
EAR STACK $7E.CLR LDX #$FE. RTS.;.; RUN,
START OVER $7F.RUN LDA PCSVE+1. STA PCN
T+1. LDA PCSVE. STA PCNT.RUN1 LDX #$78.
STX GOP. STX VLIM. LDX #$00. STX VPLUS.
STX FORP. DEX. DEX. RTS.;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL