LIB.SI
FILE INFORMATION
FILENAME(S): LIB.SI
FILE TYPE(S): SEQ
FILE SIZE: 17.3K
FIRST SEEN: 2025-11-30 21:23:09
APPEARS ON: 1 disk(s)
FILE HASH
e395ad859ea2a56a84b514d90d90f5c7a86db7d339863c2d6634a6327c734461
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 46 1 | LIB.SI | SEQ | DuncanTwain | 12 | 2 | 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 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 2A 20 20 20 20 20 |*******.;** | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D | **.| 00000050: 3B 2A 2A 20 42 42 42 42 42 20 20 20 20 20 41 41 |;** BBBBB AA| 00000060: 41 41 20 20 20 20 20 53 53 53 20 20 20 20 20 53 |AA SSS S| 00000070: 53 53 20 20 20 2A 2A 0D 3B 2A 2A 20 42 42 20 20 |SS **.;** BB | 00000080: 42 42 20 20 20 41 41 20 20 41 41 20 20 20 53 53 |BB AA AA SS| 00000090: 20 20 53 20 20 20 53 53 20 20 53 20 20 2A 2A 0D | S SS S **.| 000000A0: 3B 2A 2A 20 42 42 20 20 42 42 20 20 20 41 41 20 |;** BB BB AA | 000000B0: 20 41 41 20 20 20 20 53 53 20 20 20 20 20 20 53 | AA SS S| 000000C0: 53 20 20 20 20 2A 2A 0D 3B 2A 2A 20 42 42 42 42 |S **.;** BBBB| 000000D0: 42 20 20 20 20 41 41 41 41 41 41 20 20 20 20 20 |B AAAAAA | 000000E0: 53 53 20 20 20 20 20 20 53 53 20 20 20 2A 2A 0D |SS SS **.| 000000F0: 3B 2A 2A 20 42 42 20 20 42 42 20 20 20 41 41 20 |;** BB BB AA | 00000100: 20 41 41 20 20 20 20 20 20 53 53 20 20 20 20 20 | AA SS | 00000110: 20 53 53 20 20 2A 2A 0D 3B 2A 2A 20 42 42 20 20 | SS **.;** BB | 00000120: 42 42 20 20 20 41 41 20 20 41 41 20 20 20 53 20 |BB AA AA S | 00000130: 20 53 53 20 20 20 53 20 20 53 53 20 20 2A 2A 0D | SS S SS **.| 00000140: 3B 2A 2A 20 42 42 42 42 42 20 20 20 20 41 41 20 |;** BBBBB AA | 00000150: 20 41 41 20 20 20 20 53 53 53 20 20 20 20 20 53 | AA SSS S| 00000160: 53 53 20 20 20 2A 2A 0D 3B 2A 2A 20 20 20 20 20 |SS **.;** | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D | **.| 00000190: 3B 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |;** | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 20 20 20 2A 2A 0D 3B 2A 2A 20 20 20 20 20 | **.;** | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D | **.| 000001E0: 3B 2A 2A 20 4C 49 42 52 41 52 59 20 54 4F 20 42 |;** LIBRARY TO B| 000001F0: 41 53 49 43 2D 43 4F 4D 50 49 4C 45 52 20 20 20 |ASIC-COMPILER | 00000200: 20 20 20 20 20 2A 2A 0D 3B 2A 2A 20 41 53 53 45 | **.;** ASSE| 00000210: 4D 42 4C 45 52 43 4F 44 45 2D 43 4F 4D 50 49 4C |MBLERCODE-COMPIL| 00000220: 45 52 2C 20 20 20 20 20 20 20 20 20 20 2A 2A 0D |ER, **.| 00000230: 3B 2A 2A 20 56 45 52 53 49 4F 4E 20 32 2E 32 2F |;** VERSION 2.2/| 00000240: 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |64 | 00000250: 20 20 20 20 20 2A 2A 0D 3B 2A 2A 20 4C 49 42 52 | **.;** LIBR| 00000260: 41 52 59 20 46 4F 52 20 53 49 47 4E 45 44 20 49 |ARY FOR SIGNED I| 00000270: 4E 54 45 47 45 52 53 20 20 20 20 20 20 2A 2A 0D |NTEGERS **.| 00000280: 3B 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |;** | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 2A 2A 0D 3B 2A 2A 20 28 43 29 20 | **.;** (C) | 000002B0: 47 4D 42 53 4F 46 54 20 20 20 20 20 4A 55 4E 45 |GMBSOFT JUNE| 000002C0: 20 31 39 38 33 20 20 20 20 20 20 20 20 2A 2A 0D | 1983 **.| 000002D0: 3B 2A 2A 20 20 20 20 20 4B 41 49 53 45 52 20 46 |;** KAISER F| 000002E0: 52 49 45 44 52 49 43 48 20 52 49 4E 47 20 35 35 |RIEDRICH RING 55| 000002F0: 20 20 20 20 20 2A 2A 0D 3B 2A 2A 20 20 20 20 20 | **.;** | 00000300: 36 32 30 30 20 20 20 57 49 45 53 42 41 44 45 4E |6200 WIESBADEN| 00000310: 20 2F 20 47 45 52 4D 41 4E 59 20 20 20 2A 2A 0D | / GERMANY **.| 00000320: 3B 2A 2A 20 20 20 20 20 54 45 4C 2E 3A 20 20 20 |;** TEL.: | 00000330: 30 36 31 32 31 20 2F 20 38 34 32 36 38 36 20 20 |06121 / 842686 | 00000340: 20 20 20 20 20 2A 2A 0D 3B 2A 2A 20 20 20 20 20 | **.;** | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D | **.| 00000370: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000390: 2A 2A 2A 2A 2A 2A 2A 0D 2E 50 52 4F 46 0D 2A 3D |*******..PROF.*=| 000003A0: 24 30 38 30 31 0D 2E 4F 46 46 53 20 24 34 38 30 |$0801..OFFS $480| 000003B0: 31 2D 2A 0D 2E 42 59 54 45 20 31 31 2C 38 2C 31 |1-*..BYTE 11,8,1| 000003C0: 30 2C 30 2C 31 35 38 0D 2E 42 59 54 45 20 24 33 |0,0,158..BYTE $3| 000003D0: 32 2C 24 33 30 2C 24 33 36 2C 24 33 37 2C 30 2C |2,$30,$36,$37,0,| 000003E0: 30 2C 30 0D 53 4F 4E 53 54 52 20 3D 20 34 34 39 |0,0.SONSTR = 449| 000003F0: 35 34 0D 53 4F 4E 54 49 53 20 3D 20 34 34 38 37 |54.SONTIS = 4487| 00000400: 32 0D 53 4F 4E 50 49 52 20 3D 20 34 34 37 31 32 |2.SONPIR = 44712| 00000410: 0D 4C 49 4E 45 20 20 20 3D 20 35 37 0D 54 53 54 |.LINE = 57.TST| 00000420: 42 59 54 20 3D 20 39 37 0D 46 41 43 20 20 20 20 |BYT = 97.FAC | 00000430: 3D 20 39 37 0D 41 52 47 20 20 20 20 3D 20 31 30 |= 97.ARG = 10| 00000440: 35 0D 49 4E 44 45 58 20 20 3D 20 33 34 0D 49 4E |5.INDEX = 34.IN| 00000450: 44 45 58 32 20 3D 20 33 36 0D 56 41 52 50 4E 54 |DEX2 = 36.VARPNT| 00000460: 20 3D 20 37 31 0D 44 53 43 50 4E 54 20 3D 20 38 | = 71.DSCPNT = 8| 00000470: 30 0D 44 41 54 50 54 52 20 3D 20 36 35 0D 43 48 |0.DATPTR = 65.CH| 00000480: 52 47 45 54 20 3D 20 31 31 35 0D 50 4F 4B 41 44 |RGET = 115.POKAD| 00000490: 52 20 3D 20 32 30 0D 43 4D 50 4D 53 4B 20 3D 20 |R = 20.CMPMSK = | 000004A0: 31 38 0D 54 52 4D 50 4F 53 20 3D 20 39 0D 5A 45 |18.TRMPOS = 9.ZE| 000004B0: 52 4F 20 20 20 3D 20 30 0D 46 4F 52 50 4E 54 20 |RO = 0.FORPNT | 000004C0: 3D 20 37 33 0D 4A 4D 50 45 52 20 20 3D 20 38 34 |= 73.JMPER = 84| 000004D0: 0D 41 44 44 45 4E 44 20 3D 20 34 30 0D 43 55 52 |.ADDEND = 40.CUR| 000004E0: 54 4F 4C 20 3D 20 31 31 33 0D 41 52 59 50 4E 54 |TOL = 113.ARYPNT| 000004F0: 20 3D 20 38 38 0D 43 4F 55 4E 54 20 20 3D 20 31 | = 88.COUNT = 1| 00000500: 31 0D 4C 4F 57 54 52 20 20 3D 20 39 35 0D 54 45 |1.LOWTR = 95.TE| 00000510: 4D 50 53 54 20 3D 20 32 35 0D 54 45 4D 50 50 54 |MPST = 25.TEMPPT| 00000520: 20 3D 20 32 32 0D 56 41 52 54 41 42 20 3D 20 34 | = 22.VARTAB = 4| 00000530: 35 0D 41 52 59 54 41 42 20 3D 20 34 37 0D 53 54 |5.ARYTAB = 47.ST| 00000540: 52 45 4E 44 20 3D 20 34 39 0D 46 52 45 54 4F 50 |REND = 49.FRETOP| 00000550: 20 3D 20 35 31 0D 46 52 45 53 50 43 20 3D 20 35 | = 51.FRESPC = 5| 00000560: 33 0D 4D 45 4D 53 49 5A 20 3D 20 35 35 0D 46 52 |3.MEMSIZ = 55.FR| 00000570: 4D 45 56 4C 20 3D 20 34 34 34 34 36 0D 47 45 54 |MEVL = 44446.GET| 00000580: 41 44 52 20 3D 20 34 37 30 39 35 0D 44 4F 41 44 |ADR = 47095.DOAD| 00000590: 44 20 20 3D 20 34 37 32 31 30 0D 44 4F 53 55 42 |D = 47210.DOSUB| 000005A0: 20 20 3D 20 34 37 31 38 37 0D 44 4F 4D 55 4C 54 | = 47187.DOMULT| 000005B0: 20 3D 20 34 37 36 35 39 0D 44 4F 44 49 56 20 20 | = 47659.DODIV | 000005C0: 3D 20 34 37 38 39 30 0D 44 4F 50 4F 57 20 20 3D |= 47890.DOPOW =| 000005D0: 20 34 39 30 31 39 0D 44 4F 41 54 4E 20 20 3D 20 | 49019.DOATN = | 000005E0: 35 38 31 32 36 0D 44 4F 43 4F 53 20 20 3D 20 35 |58126.DOCOS = 5| 000005F0: 37 39 35 36 0D 44 4F 53 49 4E 20 20 3D 20 35 37 |7956.DOSIN = 57| 00000600: 39 36 33 0D 44 4F 45 58 50 20 20 3D 20 34 39 31 |963.DOEXP = 491| 00000610: 33 33 0D 44 4F 46 52 45 20 20 3D 20 34 35 39 35 |33.DOFRE = 4595| 00000620: 36 0D 44 4F 49 4E 54 20 20 3D 20 34 38 33 33 32 |6.DOINT = 48332| 00000630: 0D 44 4F 4C 4F 47 20 20 3D 20 34 37 35 39 34 0D |.DOLOG = 47594.| 00000640: 44 4F 52 49 47 48 20 3D 20 34 36 38 39 35 0D 44 |DORIGH = 46895.D| 00000650: 4F 52 4E 44 20 20 3D 20 35 37 34 39 35 0D 44 4F |ORND = 57495.DO| 00000660: 53 47 4E 20 20 3D 20 34 38 31 38 35 0D 44 4F 53 |SGN = 48185.DOS| 00000670: 51 52 20 20 3D 20 34 39 30 30 39 0D 44 4F 54 41 |QR = 49009.DOTA| 00000680: 4E 20 20 3D 20 35 38 30 33 36 0D 44 4F 55 53 52 |N = 58036.DOUSR| 00000690: 20 20 3D 20 37 38 34 0D 44 4F 4E 4F 54 20 20 3D | = 784.DONOT =| 000006A0: 20 34 34 37 35 36 0D 44 4F 56 41 4C 20 20 3D 20 | 44756.DOVAL = | 000006B0: 34 37 30 32 31 0D 45 4E 44 20 20 20 20 3D 20 35 |47021.END = 5| 000006C0: 38 32 34 35 0D 54 49 53 54 4F 52 20 3D 20 34 33 |8245.TISTOR = 43| 000006D0: 34 38 38 0D 52 4C 4F 41 44 20 20 3D 20 34 38 30 |488.RLOAD = 480| 000006E0: 33 34 0D 4D 54 4F 46 41 32 20 3D 20 34 37 37 35 |34.MTOFA2 = 4775| 000006F0: 36 0D 49 53 4C 4F 41 44 20 3D 20 34 36 32 31 35 |6.ISLOAD = 46215| 00000700: 0D 54 4F 41 52 52 38 20 3D 20 34 38 30 38 30 0D |.TOARR8 = 48080.| 00000710: 54 4F 41 52 52 30 20 3D 20 34 33 35 36 34 0D 46 |TOARR0 = 43564.F| 00000720: 52 45 53 54 52 20 3D 20 34 36 37 35 38 0D 43 4C |RESTR = 46758.CL| 00000730: 41 4C 4C 20 20 3D 20 36 35 35 31 31 0D 52 4F 55 |ALL = 65511.ROU| 00000740: 4E 44 20 20 3D 20 34 38 31 35 35 0D 44 4F 4C 45 |ND = 48155.DOLE| 00000750: 46 54 20 3D 20 34 36 38 35 31 0D 44 4F 4D 49 44 |FT = 46851.DOMID| 00000760: 20 20 3D 20 34 36 39 32 33 0D 50 55 54 4E 45 57 | = 46923.PUTNEW| 00000770: 20 3D 20 34 36 32 38 32 0D 4F 4E 45 20 20 20 20 | = 46282.ONE | 00000780: 3D 20 34 37 35 34 38 0D 46 4E 44 46 4F 52 20 3D |= 47548.FNDFOR =| 00000790: 20 34 31 38 36 36 0D 46 43 4F 4D 50 20 20 3D 20 | 41866.FCOMP = | 000007A0: 34 38 32 31 39 0D 45 52 52 4F 52 20 20 3D 20 34 |48219.ERROR = 4| 000007B0: 32 30 33 39 0D 49 4C 4C 51 55 41 20 3D 20 31 34 |2039.ILLQUA = 14| 000007C0: 0D 42 41 44 53 55 42 20 3D 20 31 38 0D 53 54 52 |.BADSUB = 18.STR| 000007D0: 4C 4F 4E 20 3D 20 32 33 0D 4F 56 45 52 46 4C 20 |LON = 23.OVERFL | 000007E0: 3D 20 31 35 0D 44 49 56 5A 45 52 20 3D 20 32 30 |= 15.DIVZER = 20| 000007F0: 0D 4E 45 58 57 46 4F 20 3D 20 31 30 0D 52 45 54 |.NEXWFO = 10.RET| 00000800: 57 47 4F 20 3D 20 31 32 0D 4A 4D 50 20 4E 4F 4E |WGO = 12.JMP NON| 00000810: 43 52 54 0D 2E 57 4F 52 44 20 45 4E 44 4C 49 42 |CRT..WORD ENDLIB| 00000820: 0D 52 55 4E 53 54 50 20 2E 42 59 54 45 20 20 30 |.RUNSTP .BYTE 0| 00000830: 0D 53 54 41 4C 49 42 20 4C 44 41 20 23 3C 42 45 |.STALIB LDA #<BE| 00000840: 47 56 41 52 0D 53 54 41 20 56 41 52 54 41 42 0D |GVAR.STA VARTAB.| 00000850: 4C 44 41 20 23 3E 42 45 47 56 41 52 0D 53 54 41 |LDA #>BEGVAR.STA| 00000860: 20 56 41 52 54 41 42 2B 31 0D 4C 44 41 20 23 3C | VARTAB+1.LDA #<| 00000870: 42 45 47 41 52 52 0D 53 54 41 20 41 52 59 54 41 |BEGARR.STA ARYTA| 00000880: 42 0D 4C 44 41 20 23 3E 42 45 47 41 52 52 0D 53 |B.LDA #>BEGARR.S| 00000890: 54 41 20 41 52 59 54 41 42 2B 31 0D 4C 44 41 20 |TA ARYTAB+1.LDA | 000008A0: 23 3C 45 4E 44 41 52 52 0D 53 54 41 20 53 54 52 |#<ENDARR.STA STR| 000008B0: 45 4E 44 0D 4C 44 41 20 23 3E 45 4E 44 41 52 52 |END.LDA #>ENDARR| 000008C0: 0D 53 54 41 20 53 54 52 45 4E 44 2B 31 0D 4C 44 |.STA STREND+1.LD| 000008D0: 41 20 23 3C 42 45 47 44 41 54 0D 53 54 41 20 44 |A #<BEGDAT.STA D| 000008E0: 41 54 50 54 52 0D 4C 44 41 20 23 3E 42 45 47 44 |ATPTR.LDA #>BEGD| 000008F0: 41 54 0D 53 54 41 20 44 41 54 50 54 52 2B 31 0D |AT.STA DATPTR+1.| 00000900: 4A 4D 50 20 42 45 47 43 4F 44 0D 4E 4F 4E 43 4F |JMP BEGCOD.NONCO| 00000910: 4D 20 53 54 41 20 56 41 52 50 4E 54 0D 53 54 59 |M STA VARPNT.STY| 00000920: 20 56 41 52 50 4E 54 2B 31 0D 54 41 58 0D 42 4E | VARPNT+1.TAX.BN| 00000930: 45 20 2A 2B 33 0D 44 45 59 0D 44 45 58 0D 53 54 |E *+3.DEY.DEX.ST| 00000940: 58 20 43 48 52 47 45 54 2B 37 0D 53 54 59 20 43 |X CHRGET+7.STY C| 00000950: 48 52 47 45 54 2B 38 0D 4A 53 52 20 43 48 52 47 |HRGET+8.JSR CHRG| 00000960: 45 54 0D 4A 4D 50 20 34 32 39 38 39 0D 4E 4F 4E |ET.JMP 42989.NON| 00000970: 43 4F 33 20 54 41 58 0D 42 4E 45 20 2A 2B 33 0D |CO3 TAX.BNE *+3.| 00000980: 44 45 59 0D 44 45 58 0D 53 54 58 20 43 48 52 47 |DEY.DEX.STX CHRG| 00000990: 45 54 2B 37 0D 53 54 59 20 43 48 52 47 45 54 2B |ET+7.STY CHRGET+| 000009A0: 38 0D 4A 4D 50 20 34 32 39 37 37 0D 4E 4F 4E 43 |8.JMP 42977.NONC| 000009B0: 52 54 20 50 4C 41 0D 50 4C 41 0D 52 54 53 0D 4E |RT PLA.PLA.RTS.N| 000009C0: 4F 4E 43 4F 32 20 54 41 58 0D 42 4E 45 20 2A 2B |ONCO2 TAX.BNE *+| 000009D0: 33 0D 44 45 59 0D 44 45 58 0D 53 54 58 20 43 48 |3.DEY.DEX.STX CH| 000009E0: 52 47 45 54 2B 37 0D 53 54 59 20 43 48 52 47 45 |RGET+7.STY CHRGE| 000009F0: 54 2B 38 0D 4A 53 52 20 43 48 52 47 45 54 0D 4A |T+8.JSR CHRGET.J| 00000A00: 53 52 20 46 52 4D 45 56 4C 0D 52 54 53 0D 46 4C |SR FRMEVL.RTS.FL| 00000A10: 50 55 53 49 20 4C 44 41 20 46 41 43 2B 35 0D 42 |PUSI LDA FAC+5.B| 00000A20: 50 4C 20 2A 2B 37 0D 46 4C 50 45 52 52 20 4C 44 |PL *+7.FLPERR LD| 00000A30: 58 20 23 49 4C 4C 51 55 41 0D 4A 4D 50 20 45 52 |X #ILLQUA.JMP ER| 00000A40: 52 4F 52 0D 4C 44 41 20 46 41 43 0D 43 4D 50 20 |ROR.LDA FAC.CMP | 00000A50: 23 31 34 35 0D 42 43 53 20 46 4C 50 45 52 52 0D |#145.BCS FLPERR.| 00000A60: 4A 53 52 20 34 38 32 38 33 0D 4C 44 41 20 46 41 |JSR 48283.LDA FA| 00000A70: 43 2B 34 0D 4C 44 59 20 46 41 43 2B 33 0D 52 54 |C+4.LDY FAC+3.RT| 00000A80: 53 0D 46 4C 50 49 4E 54 0D 46 4C 50 53 49 0D 4A |S.FLPINT.FLPSI.J| 00000A90: 53 52 20 52 4F 55 4E 44 0D 4A 53 52 20 34 35 35 |SR ROUND.JSR 455| 00000AA0: 30 33 0D 4C 44 41 20 46 41 43 2B 34 0D 4C 44 59 |03.LDA FAC+4.LDY| 00000AB0: 20 46 41 43 2B 33 0D 52 54 53 0D 55 53 49 46 4C | FAC+3.RTS.USIFL| 00000AC0: 50 20 53 54 41 20 46 41 43 2B 32 0D 53 54 59 20 |P STA FAC+2.STY | 00000AD0: 46 41 43 2B 31 0D 4C 44 58 20 23 31 34 34 0D 53 |FAC+1.LDX #144.S| 00000AE0: 45 43 0D 4A 4D 50 20 34 38 32 30 31 0D 49 4E 54 |EC.JMP 48201.INT| 00000AF0: 46 4C 50 0D 53 49 46 4C 50 20 53 54 41 20 46 41 |FLP.SIFLP STA FA| 00000B00: 43 2B 32 0D 53 54 59 20 46 41 43 2B 31 0D 4C 44 |C+2.STY FAC+1.LD| 00000B10: 58 20 23 31 34 34 0D 4A 4D 50 20 34 38 31 39 36 |X #144.JMP 48196| 00000B20: 0D 49 4E 54 46 41 43 20 53 54 41 20 4A 4D 50 45 |.INTFAC STA JMPE| 00000B30: 52 2B 31 0D 53 54 59 20 4A 4D 50 45 52 2B 32 0D |R+1.STY JMPER+2.| 00000B40: 4C 44 59 20 23 31 0D 4C 44 41 20 28 4A 4D 50 45 |LDY #1.LDA (JMPE| 00000B50: 52 2B 31 29 2C 59 0D 50 48 41 0D 44 45 59 0D 4C |R+1),Y.PHA.DEY.L| 00000B60: 44 41 20 28 4A 4D 50 45 52 2B 31 29 2C 59 0D 54 |DA (JMPER+1),Y.T| 00000B70: 41 59 0D 50 4C 41 0D 52 54 53 0D 49 4C 4F 41 44 |AY.PLA.RTS.ILOAD| 00000B80: 20 4A 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 20 | JSR INTFAC.JMP | 00000B90: 49 4E 54 46 4C 50 0D 52 54 4F 46 41 32 20 50 48 |INTFLP.RTOFA2 PH| 00000BA0: 41 0D 4A 53 52 20 34 38 31 34 30 0D 50 4C 41 0D |A.JSR 48140.PLA.| 00000BB0: 52 54 53 0D 53 54 4F 46 41 32 20 4C 44 58 20 46 |RTS.STOFA2 LDX F| 00000BC0: 41 43 2B 33 0D 53 54 58 20 41 52 47 2B 33 0D 4C |AC+3.STX ARG+3.L| 00000BD0: 44 58 20 46 41 43 2B 34 0D 53 54 58 20 41 52 47 |DX FAC+4.STX ARG| 00000BE0: 2B 34 0D 52 54 53 0D 49 56 41 46 41 32 20 4A 53 |+4.RTS.IVAFA2 JS| 00000BF0: 52 20 49 53 4C 4F 41 44 0D 4A 4D 50 20 53 54 4F |R ISLOAD.JMP STO| 00000C00: 46 41 32 0D 49 43 48 45 43 4B 20 43 50 59 20 23 |FA2.ICHECK CPY #| 00000C10: 30 0D 42 45 51 20 49 43 48 45 43 31 0D 4C 44 58 |0.BEQ ICHEC1.LDX| 00000C20: 20 23 49 4C 4C 51 55 41 0D 4A 4D 50 20 45 52 52 | #ILLQUA.JMP ERR| 00000C30: 4F 52 0D 49 43 48 45 43 31 20 52 54 53 0D 49 54 |OR.ICHEC1 RTS.IT| 00000C40: 45 53 54 20 43 50 59 20 23 30 0D 42 45 51 20 49 |EST CPY #0.BEQ I| 00000C50: 54 45 53 54 32 0D 49 54 45 53 54 31 20 4C 44 41 |TEST2.ITEST1 LDA| 00000C60: 20 23 24 46 46 0D 52 54 53 0D 49 54 45 53 54 32 | #$FF.RTS.ITEST2| 00000C70: 20 43 4D 50 20 23 30 0D 42 4E 45 20 49 54 45 53 | CMP #0.BNE ITES| 00000C80: 54 31 0D 52 54 53 0D 4C 49 4E 45 4E 4F 20 53 54 |T1.RTS.LINENO ST| 00000C90: 41 20 4C 49 4E 45 0D 53 54 59 20 4C 49 4E 45 2B |A LINE.STY LINE+| 00000CA0: 31 0D 4C 44 41 20 52 55 4E 53 54 50 0D 42 45 51 |1.LDA RUNSTP.BEQ| 00000CB0: 20 2A 2B 35 0D 4A 53 52 20 34 33 30 35 32 0D 52 | *+5.JSR 43052.R| 00000CC0: 54 53 0D 43 4F 4E 56 20 4A 53 52 20 46 4C 50 49 |TS.CONV JSR FLPI| 00000CD0: 4E 54 0D 43 50 59 20 23 30 0D 42 45 51 20 2A 2B |NT.CPY #0.BEQ *+| 00000CE0: 37 0D 4C 44 58 20 23 49 4C 4C 51 55 41 0D 4A 4D |7.LDX #ILLQUA.JM| 00000CF0: 50 20 45 52 52 4F 52 0D 52 54 53 0D 53 4F 4E 54 |P ERROR.RTS.SONT| 00000D00: 49 52 20 53 45 43 0D 4A 4D 50 20 34 34 39 32 33 |IR SEC.JMP 44923| 00000D10: 0D 46 4C 50 53 54 41 20 50 4C 41 0D 53 54 41 20 |.FLPSTA PLA.STA | 00000D20: 4A 4D 50 45 52 2B 31 0D 50 4C 41 0D 53 54 41 20 |JMPER+1.PLA.STA | 00000D30: 4A 4D 50 45 52 2B 32 0D 50 4C 41 0D 53 54 41 20 |JMPER+2.PLA.STA | 00000D40: 56 41 52 50 4E 54 0D 50 4C 41 0D 53 54 41 20 56 |VARPNT.PLA.STA V| 00000D50: 41 52 50 4E 54 2B 31 0D 4C 44 41 20 46 41 43 2B |ARPNT+1.LDA FAC+| 00000D60: 35 0D 50 48 41 0D 4A 53 52 20 52 4F 55 4E 44 0D |5.PHA.JSR ROUND.| 00000D70: 4C 44 41 20 46 41 43 2B 34 0D 50 48 41 0D 4C 44 |LDA FAC+4.PHA.LD| 00000D80: 41 20 46 41 43 2B 33 0D 50 48 41 0D 4C 44 41 20 |A FAC+3.PHA.LDA | 00000D90: 46 41 43 2B 32 0D 50 48 41 0D 4C 44 41 20 46 41 |FAC+2.PHA.LDA FA| 00000DA0: 43 2B 31 0D 50 48 41 0D 4C 44 41 20 46 41 43 0D |C+1.PHA.LDA FAC.| 00000DB0: 50 48 41 0D 4C 44 41 20 56 41 52 50 4E 54 2B 31 |PHA.LDA VARPNT+1| 00000DC0: 0D 50 48 41 0D 4C 44 41 20 56 41 52 50 4E 54 0D |.PHA.LDA VARPNT.| 00000DD0: 50 48 41 0D 4C 44 41 20 4A 4D 50 45 52 2B 32 0D |PHA.LDA JMPER+2.| 00000DE0: 50 48 41 0D 4C 44 41 20 4A 4D 50 45 52 2B 31 0D |PHA.LDA JMPER+1.| 00000DF0: 50 48 41 0D 52 54 53 0D 49 4E 54 53 54 41 20 54 |PHA.RTS.INTSTA T| 00000E00: 41 58 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 |AX.PLA.STA JMPER| 00000E10: 2B 31 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 |+1.PLA.STA JMPER| 00000E20: 2B 32 0D 50 4C 41 0D 53 54 41 20 56 41 52 50 4E |+2.PLA.STA VARPN| 00000E30: 54 0D 50 4C 41 0D 53 54 41 20 56 41 52 50 4E 54 |T.PLA.STA VARPNT| 00000E40: 2B 31 0D 54 58 41 0D 50 48 41 0D 54 59 41 0D 50 |+1.TXA.PHA.TYA.P| 00000E50: 48 41 0D 4C 44 41 20 56 41 52 50 4E 54 2B 31 0D |HA.LDA VARPNT+1.| 00000E60: 50 48 41 0D 4C 44 41 20 56 41 52 50 4E 54 0D 50 |PHA.LDA VARPNT.P| 00000E70: 48 41 0D 4C 44 41 20 4A 4D 50 45 52 2B 32 0D 50 |HA.LDA JMPER+2.P| 00000E80: 48 41 0D 4C 44 41 20 4A 4D 50 45 52 2B 31 0D 50 |HA.LDA JMPER+1.P| 00000E90: 48 41 0D 52 54 53 0D 53 54 52 53 54 41 20 50 4C |HA.RTS.STRSTA PL| 00000EA0: 41 0D 53 54 41 20 4A 4D 50 45 52 2B 31 0D 50 4C |A.STA JMPER+1.PL| 00000EB0: 41 0D 53 54 41 20 4A 4D 50 45 52 2B 32 0D 50 4C |A.STA JMPER+2.PL| 00000EC0: 41 0D 53 54 41 20 56 41 52 50 4E 54 0D 50 4C 41 |A.STA VARPNT.PLA| 00000ED0: 0D 53 54 41 20 56 41 52 50 4E 54 2B 31 0D 4C 44 |.STA VARPNT+1.LD| 00000EE0: 41 20 46 41 43 2B 33 0D 50 48 41 0D 4C 44 41 20 |A FAC+3.PHA.LDA | 00000EF0: 46 41 43 2B 34 0D 50 48 41 0D 4C 44 41 20 56 41 |FAC+4.PHA.LDA VA| 00000F00: 52 50 4E 54 2B 31 0D 50 48 41 0D 4C 44 41 20 56 |RPNT+1.PHA.LDA V| 00000F10: 41 52 50 4E 54 0D 50 48 41 0D 4C 44 41 20 4A 4D |ARPNT.PHA.LDA JM| 00000F20: 50 45 52 2B 32 0D 50 48 41 0D 4C 44 41 20 4A 4D |PER+2.PHA.LDA JM| 00000F30: 50 45 52 2B 31 0D 50 48 41 0D 52 54 53 0D 46 4C |PER+1.PHA.RTS.FL| 00000F40: 50 55 53 54 20 50 4C 41 0D 53 54 41 20 4A 4D 50 |PUST PLA.STA JMP| 00000F50: 45 52 2B 31 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 |ER+1.PLA.STA JMP| 00000F60: 45 52 2B 32 0D 50 4C 41 0D 53 54 41 20 56 41 52 |ER+2.PLA.STA VAR| 00000F70: 50 4E 54 0D 50 4C 41 0D 53 54 41 20 56 41 52 50 |PNT.PLA.STA VARP| 00000F80: 4E 54 2B 31 0D 50 4C 41 0D 53 54 41 20 41 52 47 |NT+1.PLA.STA ARG| 00000F90: 0D 50 4C 41 0D 53 54 41 20 41 52 47 2B 31 0D 50 |.PLA.STA ARG+1.P| 00000FA0: 4C 41 0D 53 54 41 20 41 52 47 2B 32 0D 50 4C 41 |LA.STA ARG+2.PLA| 00000FB0: 0D 53 54 41 20 41 52 47 2B 33 0D 50 4C 41 0D 53 |.STA ARG+3.PLA.S| 00000FC0: 54 41 20 41 52 47 2B 34 0D 50 4C 41 0D 53 54 41 |TA ARG+4.PLA.STA| 00000FD0: 20 41 52 47 2B 35 0D 45 4F 52 20 46 41 43 2B 35 | ARG+5.EOR FAC+5| 00000FE0: 0D 53 54 41 20 41 52 47 2B 36 0D 4C 44 41 20 56 |.STA ARG+6.LDA V| 00000FF0: 41 52 50 4E 54 2B 31 0D 50 48 41 0D 4C 44 41 20 |ARPNT+1.PHA.LDA | 00001000: 56 41 52 50 4E 54 0D 50 48 41 0D 4C 44 41 20 4A |VARPNT.PHA.LDA J| 00001010: 4D 50 45 52 2B 32 0D 50 48 41 0D 4C 44 41 20 4A |MPER+2.PHA.LDA J| 00001020: 4D 50 45 52 2B 31 0D 50 48 41 0D 4C 44 41 20 46 |MPER+1.PHA.LDA F| 00001030: 41 43 0D 52 54 53 0D 49 4E 54 55 53 54 0D 53 54 |AC.RTS.INTUST.ST| 00001040: 52 55 53 54 20 54 41 58 0D 50 4C 41 0D 53 54 41 |RUST TAX.PLA.STA| 00001050: 20 4A 4D 50 45 52 2B 31 0D 50 4C 41 0D 53 54 41 | JMPER+1.PLA.STA| 00001060: 20 4A 4D 50 45 52 2B 32 0D 50 4C 41 0D 53 54 41 | JMPER+2.PLA.STA| 00001070: 20 56 41 52 50 4E 54 0D 50 4C 41 0D 53 54 41 20 | VARPNT.PLA.STA | 00001080: 56 41 52 50 4E 54 2B 31 0D 50 4C 41 0D 53 54 41 |VARPNT+1.PLA.STA| 00001090: 20 41 52 47 2B 34 0D 50 4C 41 0D 53 54 41 20 41 | ARG+4.PLA.STA A| 000010A0: 52 47 2B 33 0D 4C 44 41 20 56 41 52 50 4E 54 2B |RG+3.LDA VARPNT+| 000010B0: 31 0D 50 48 41 0D 4C 44 41 20 56 41 52 50 4E 54 |1.PHA.LDA VARPNT| 000010C0: 0D 50 48 41 0D 4C 44 41 20 4A 4D 50 45 52 2B 32 |.PHA.LDA JMPER+2| 000010D0: 0D 50 48 41 0D 4C 44 41 20 4A 4D 50 45 52 2B 31 |.PHA.LDA JMPER+1| 000010E0: 0D 50 48 41 0D 54 58 41 0D 52 54 53 0D 54 4F 56 |.PHA.TXA.RTS.TOV| 000010F0: 41 52 30 20 53 54 41 20 46 4F 52 50 4E 54 0D 53 |AR0 STA FORPNT.S| 00001100: 54 59 20 46 4F 52 50 4E 54 2B 31 0D 4A 4D 50 20 |TY FORPNT+1.JMP | 00001110: 54 4F 41 52 52 30 0D 54 4F 56 41 52 37 0D 54 4F |TOARR0.TOVAR7.TO| 00001120: 56 41 52 38 20 54 41 58 0D 4A 4D 50 20 54 4F 41 |VAR8 TAX.JMP TOA| 00001130: 52 52 38 2B 34 0D 54 4F 56 41 52 35 20 53 54 41 |RR8+4.TOVAR5 STA| 00001140: 20 46 4F 52 50 4E 54 0D 53 54 59 20 46 4F 52 50 | FORPNT.STY FORP| 00001150: 4E 54 2B 31 0D 54 4F 41 52 52 35 20 4A 53 52 20 |NT+1.TOARR5 JSR | 00001160: 46 4C 50 49 4E 54 0D 4C 44 59 20 23 5A 45 52 4F |FLPINT.LDY #ZERO| 00001170: 0D 4C 44 41 20 46 41 43 2B 33 0D 53 54 41 20 28 |.LDA FAC+3.STA (| 00001180: 46 4F 52 50 4E 54 29 2C 59 0D 49 4E 59 0D 4C 44 |FORPNT),Y.INY.LD| 00001190: 41 20 46 41 43 2B 34 0D 53 54 41 20 28 46 4F 52 |A FAC+4.STA (FOR| 000011A0: 50 4E 54 29 2C 59 0D 52 54 53 0D 54 4F 41 52 52 |PNT),Y.RTS.TOARR| 000011B0: 34 20 50 48 41 0D 54 59 41 0D 4C 44 59 20 23 5A |4 PHA.TYA.LDY #Z| 000011C0: 45 52 4F 0D 53 54 41 20 28 46 4F 52 50 4E 54 29 |ERO.STA (FORPNT)| 000011D0: 2C 59 0D 50 4C 41 0D 49 4E 59 0D 53 54 41 20 28 |,Y.PLA.INY.STA (| 000011E0: 46 4F 52 50 4E 54 29 2C 59 0D 52 54 53 0D 54 4F |FORPNT),Y.RTS.TO| 000011F0: 41 52 52 37 20 4A 53 52 20 49 4E 54 46 4C 50 0D |ARR7 JSR INTFLP.| 00001200: 4A 4D 50 20 54 4F 41 52 52 38 0D 41 52 52 41 59 |JMP TOARR8.ARRAY| 00001210: 20 53 54 41 20 4C 4F 57 54 52 0D 53 54 59 20 4C | STA LOWTR.STY L| 00001220: 4F 57 54 52 2B 31 0D 53 54 58 20 43 4F 55 4E 54 |OWTR+1.STX COUNT| 00001230: 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 2B 31 |.PLA.STA JMPER+1| 00001240: 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 2B 32 |.PLA.STA JMPER+2| 00001250: 0D 50 4C 41 0D 53 54 41 20 56 41 52 50 4E 54 0D |.PLA.STA VARPNT.| 00001260: 50 4C 41 0D 53 54 41 20 56 41 52 50 4E 54 2B 31 |PLA.STA VARPNT+1| 00001270: 0D 54 58 41 0D 43 4C 43 0D 41 53 4C 20 41 0D 41 |.TXA.CLC.ASL A.A| 00001280: 44 43 20 23 35 0D 41 44 43 20 4C 4F 57 54 52 0D |DC #5.ADC LOWTR.| 00001290: 42 43 43 20 2A 2B 33 0D 49 4E 59 0D 53 54 41 20 |BCC *+3.INY.STA | 000012A0: 41 52 59 50 4E 54 0D 53 54 59 20 41 52 59 50 4E |ARYPNT.STY ARYPN| 000012B0: 54 2B 31 0D 4C 44 59 20 23 34 0D 4C 44 41 20 23 |T+1.LDY #4.LDA #| 000012C0: 30 0D 53 54 41 20 43 55 52 54 4F 4C 0D 53 54 41 |0.STA CURTOL.STA| 000012D0: 20 43 55 52 54 4F 4C 2B 31 0D 44 49 4D 30 35 0D | CURTOL+1.DIM05.| 000012E0: 49 4E 59 0D 50 4C 41 0D 53 54 41 20 46 41 43 2B |INY.PLA.STA FAC+| 000012F0: 34 0D 50 4C 41 0D 53 54 41 20 46 41 43 2B 33 0D |4.PLA.STA FAC+3.| 00001300: 54 41 58 0D 4C 44 41 20 46 41 43 2B 34 0D 43 4D |TAX.LDA FAC+4.CM| 00001310: 50 20 28 4C 4F 57 54 52 29 2C 59 0D 42 43 43 20 |P (LOWTR),Y.BCC | 00001320: 44 49 4D 30 31 0D 42 4E 45 20 44 49 4D 30 32 0D |DIM01.BNE DIM02.| 00001330: 49 4E 59 0D 54 58 41 0D 43 4D 50 20 28 4C 4F 57 |INY.TXA.CMP (LOW| 00001340: 54 52 29 2C 59 0D 42 43 43 20 44 49 4D 30 33 0D |TR),Y.BCC DIM03.| 00001350: 44 49 4D 30 32 20 4C 44 58 20 23 42 41 44 53 55 |DIM02 LDX #BADSU| 00001360: 42 0D 4A 4D 50 20 45 52 52 4F 52 0D 44 49 4D 30 |B.JMP ERROR.DIM0| 00001370: 31 20 49 4E 59 0D 44 49 4D 30 33 20 53 54 59 20 |1 INY.DIM03 STY | 00001380: 49 4E 44 45 58 0D 4C 44 41 20 43 55 52 54 4F 4C |INDEX.LDA CURTOL| 00001390: 2B 31 0D 4F 52 41 20 43 55 52 54 4F 4C 0D 42 4E |+1.ORA CURTOL.BN| 000013A0: 45 20 44 49 4D 30 34 41 0D 54 41 59 0D 4A 4D 50 |E DIM04A.TAY.JMP| 000013B0: 20 44 49 4D 30 34 42 0D 44 49 4D 30 34 41 20 4A | DIM04B.DIM04A J| 000013C0: 53 52 20 41 52 52 4D 55 4C 0D 44 49 4D 30 34 42 |SR ARRMUL.DIM04B| 000013D0: 20 43 4C 43 0D 41 44 43 20 46 41 43 2B 33 0D 53 | CLC.ADC FAC+3.S| 000013E0: 54 41 20 43 55 52 54 4F 4C 0D 54 59 41 0D 41 44 |TA CURTOL.TYA.AD| 000013F0: 43 20 46 41 43 2B 34 0D 53 54 41 20 43 55 52 54 |C FAC+4.STA CURT| 00001400: 4F 4C 2B 31 0D 4C 44 59 20 49 4E 44 45 58 0D 44 |OL+1.LDY INDEX.D| 00001410: 45 43 20 43 4F 55 4E 54 0D 42 4E 45 20 44 49 4D |EC COUNT.BNE DIM| 00001420: 30 35 0D 50 4C 41 0D 54 41 58 0D 4C 44 41 20 56 |05.PLA.TAX.LDA V| 00001430: 41 52 50 4E 54 2B 31 0D 50 48 41 0D 4C 44 41 20 |ARPNT+1.PHA.LDA | 00001440: 56 41 52 50 4E 54 0D 50 48 41 0D 4C 44 41 20 4A |VARPNT.PHA.LDA J| 00001450: 4D 50 45 52 2B 32 0D 50 48 41 0D 4C 44 41 20 4A |MPER+2.PHA.LDA J| 00001460: 4D 50 45 52 2B 31 0D 50 48 41 0D 54 58 41 0D 4C |MPER+1.PHA.TXA.L| 00001470: 44 59 20 23 30 0D 4A 53 52 20 41 52 52 4D 55 32 |DY #0.JSR ARRMU2| 00001480: 0D 43 4C 43 0D 41 44 43 20 41 52 59 50 4E 54 0D |.CLC.ADC ARYPNT.| 00001490: 53 54 41 20 56 41 52 50 4E 54 0D 54 59 41 0D 41 |STA VARPNT.TYA.A| 000014A0: 44 43 20 41 52 59 50 4E 54 2B 31 0D 53 54 41 20 |DC ARYPNT+1.STA | 000014B0: 56 41 52 50 4E 54 2B 31 0D 54 41 59 0D 4C 44 41 |VARPNT+1.TAY.LDA| 000014C0: 20 56 41 52 50 4E 54 0D 52 54 53 0D 41 52 52 4D | VARPNT.RTS.ARRM| 000014D0: 55 4C 20 4C 44 41 20 28 4C 4F 57 54 52 29 2C 59 |UL LDA (LOWTR),Y| 000014E0: 0D 50 48 41 0D 44 45 59 0D 4C 44 41 20 28 4C 4F |.PHA.DEY.LDA (LO| 000014F0: 57 54 52 29 2C 59 0D 54 41 59 0D 50 4C 41 0D 41 |WTR),Y.TAY.PLA.A| 00001500: 52 52 4D 55 32 0D 53 54 41 20 41 44 44 45 4E 44 |RRMU2.STA ADDEND| 00001510: 0D 53 54 59 20 41 44 44 45 4E 44 2B 31 0D 4C 44 |.STY ADDEND+1.LD| 00001520: 41 20 23 5A 45 52 4F 0D 53 54 41 20 46 41 43 2B |A #ZERO.STA FAC+| 00001530: 31 0D 53 54 41 20 46 41 43 2B 32 0D 41 52 52 4D |1.STA FAC+2.ARRM| 00001540: 55 33 20 4C 44 41 20 41 44 44 45 4E 44 0D 4F 52 |U3 LDA ADDEND.OR| 00001550: 41 20 41 44 44 45 4E 44 2B 31 0D 42 45 51 20 41 |A ADDEND+1.BEQ A| 00001560: 52 52 4D 55 36 0D 41 52 52 4D 55 34 20 43 4C 43 |RRMU6.ARRMU4 CLC| 00001570: 0D 52 4F 52 20 41 44 44 45 4E 44 2B 31 0D 52 4F |.ROR ADDEND+1.RO| 00001580: 52 20 41 44 44 45 4E 44 0D 42 43 43 20 41 52 52 |R ADDEND.BCC ARR| 00001590: 4D 55 35 0D 43 4C 43 0D 4C 44 41 20 46 41 43 2B |MU5.CLC.LDA FAC+| 000015A0: 31 0D 41 44 43 20 43 55 52 54 4F 4C 0D 53 54 41 |1.ADC CURTOL.STA| 000015B0: 20 46 41 43 2B 31 0D 4C 44 41 20 46 41 43 2B 32 | FAC+1.LDA FAC+2| 000015C0: 0D 41 44 43 20 43 55 52 54 4F 4C 2B 31 0D 53 54 |.ADC CURTOL+1.ST| 000015D0: 41 20 46 41 43 2B 32 0D 41 52 52 4D 55 35 20 43 |A FAC+2.ARRMU5 C| 000015E0: 4C 43 0D 52 4F 4C 20 43 55 52 54 4F 4C 0D 52 4F |LC.ROL CURTOL.RO| 000015F0: 4C 20 43 55 52 54 4F 4C 2B 31 0D 4A 4D 50 20 41 |L CURTOL+1.JMP A| 00001600: 52 52 4D 55 33 0D 41 52 52 4D 55 36 20 4C 44 41 |RRMU3.ARRMU6 LDA| 00001610: 20 46 41 43 2B 31 0D 4C 44 59 20 46 41 43 2B 32 | FAC+1.LDY FAC+2| 00001620: 0D 52 54 53 0D 49 41 52 52 4C 20 4A 53 52 20 41 |.RTS.IARRL JSR A| 00001630: 52 52 41 59 0D 4A 4D 50 20 49 4E 54 46 41 43 0D |RRAY.JMP INTFAC.| 00001640: 52 41 52 52 4C 20 4A 53 52 20 41 52 52 41 59 0D |RARRL JSR ARRAY.| 00001650: 4A 4D 50 20 52 4C 4F 41 44 0D 53 41 52 52 4C 20 |JMP RLOAD.SARRL | 00001660: 4A 53 52 20 41 52 52 41 59 0D 53 54 41 20 46 41 |JSR ARRAY.STA FA| 00001670: 43 2B 33 0D 53 54 59 20 46 41 43 2B 34 0D 52 54 |C+3.STY FAC+4.RT| 00001680: 53 0D 41 52 52 41 58 20 4A 53 52 20 41 52 52 41 |S.ARRAX JSR ARRA| 00001690: 59 0D 53 54 41 20 46 4F 52 50 4E 54 0D 53 54 59 |Y.STA FORPNT.STY| 000016A0: 20 46 4F 52 50 4E 54 2B 31 0D 52 54 53 0D 49 56 | FORPNT+1.RTS.IV| 000016B0: 41 53 54 41 20 4A 53 52 20 49 53 4C 4F 41 44 0D |ASTA JSR ISLOAD.| 000016C0: 4A 53 52 20 53 54 52 53 54 41 0D 52 54 53 0D 49 |JSR STRSTA.RTS.I| 000016D0: 54 4F 46 41 32 20 53 54 41 20 4A 4D 50 45 52 2B |TOFA2 STA JMPER+| 000016E0: 31 0D 53 54 59 20 4A 4D 50 45 52 2B 32 0D 4C 44 |1.STY JMPER+2.LD| 000016F0: 59 20 23 5A 45 52 4F 0D 4C 44 41 20 28 4A 4D 50 |Y #ZERO.LDA (JMP| 00001700: 45 52 2B 31 29 2C 59 0D 53 54 41 20 41 52 47 2B |ER+1),Y.STA ARG+| 00001710: 34 0D 49 4E 59 0D 4C 44 41 20 28 4A 4D 50 45 52 |4.INY.LDA (JMPER| 00001720: 2B 31 29 2C 59 0D 53 54 41 20 41 52 47 2B 33 0D |+1),Y.STA ARG+3.| 00001730: 52 54 53 0D 49 46 4C 53 54 41 20 4A 53 52 20 49 |RTS.IFLSTA JSR I| 00001740: 4E 54 46 41 43 0D 49 43 48 53 54 41 20 4A 53 52 |NTFAC.ICHSTA JSR| 00001750: 20 49 4E 54 46 4C 50 0D 4A 53 52 20 46 4C 50 53 | INTFLP.JSR FLPS| 00001760: 54 41 0D 52 54 53 0D 52 4C 49 46 41 32 20 4A 53 |TA.RTS.RLIFA2 JS| 00001770: 52 20 52 4C 4F 41 44 0D 43 48 49 46 41 32 20 4A |R RLOAD.CHIFA2 J| 00001780: 53 52 20 46 4C 50 49 4E 54 0D 53 54 41 20 41 52 |SR FLPINT.STA AR| 00001790: 47 2B 33 0D 53 54 59 20 41 52 47 2B 34 0D 52 54 |G+3.STY ARG+4.RT| 000017A0: 53 0D 52 4C 49 53 54 41 20 4A 53 52 20 52 4C 4F |S.RLISTA JSR RLO| 000017B0: 41 44 0D 52 43 48 53 54 41 20 4A 53 52 20 46 4C |AD.RCHSTA JSR FL| 000017C0: 50 49 4E 54 0D 4A 53 52 20 49 4E 54 53 54 41 0D |PINT.JSR INTSTA.| 000017D0: 52 54 53 0D 55 50 53 53 54 41 20 4A 53 52 20 53 |RTS.UPSSTA JSR S| 000017E0: 54 52 53 54 41 0D 52 54 53 0D 43 48 52 46 41 32 |TRSTA.RTS.CHRFA2| 000017F0: 20 4A 53 52 20 49 4E 54 46 4C 50 0D 4A 4D 50 20 | JSR INTFLP.JMP | 00001800: 52 54 4F 46 41 32 0D 55 50 52 53 54 41 20 4A 53 |RTOFA2.UPRSTA JS| 00001810: 52 20 46 4C 50 53 54 41 0D 52 54 53 0D 46 45 32 |R FLPSTA.RTS.FE2| 00001820: 31 20 4A 53 52 20 49 4E 54 46 41 43 0D 46 45 32 |1 JSR INTFAC.FE2| 00001830: 30 20 43 50 59 20 23 31 32 38 0D 42 43 53 20 46 |0 CPY #128.BCS F| 00001840: 45 32 30 41 0D 52 54 53 0D 46 45 32 30 41 20 43 |E20A.RTS.FE20A C| 00001850: 4C 43 0D 45 4F 52 20 23 24 46 46 0D 41 44 43 20 |LC.EOR #$FF.ADC | 00001860: 23 31 0D 50 48 41 0D 54 59 41 0D 45 4F 52 20 23 |#1.PHA.TYA.EOR #| 00001870: 24 46 46 0D 41 44 43 20 23 5A 45 52 4F 0D 54 41 |$FF.ADC #ZERO.TA| 00001880: 59 0D 50 4C 41 0D 52 54 53 0D 46 45 33 31 20 4A |Y.PLA.RTS.FE31 J| 00001890: 53 52 20 52 4C 4F 41 44 0D 46 45 33 30 20 4C 53 |SR RLOAD.FE30 LS| 000018A0: 52 20 46 41 43 2B 35 0D 52 54 53 0D 46 55 31 31 |R FAC+5.RTS.FU11| 000018B0: 20 53 54 41 20 46 41 43 2B 33 0D 53 54 59 20 46 | STA FAC+3.STY F| 000018C0: 41 43 2B 34 0D 46 55 31 30 20 4A 53 52 20 46 52 |AC+4.FU10 JSR FR| 000018D0: 45 53 54 52 0D 42 45 51 20 41 53 43 45 52 52 0D |ESTR.BEQ ASCERR.| 000018E0: 4C 44 59 20 23 5A 45 52 4F 0D 4C 44 41 20 28 49 |LDY #ZERO.LDA (I| 000018F0: 4E 44 45 58 29 2C 59 0D 52 54 53 0D 41 53 43 45 |NDEX),Y.RTS.ASCE| 00001900: 52 52 20 4C 44 58 20 23 49 4C 4C 51 55 41 0D 4A |RR LDX #ILLQUA.J| 00001910: 4D 50 20 45 52 52 4F 52 0D 46 55 31 32 20 4A 53 |MP ERROR.FU12 JS| 00001920: 52 20 49 53 4C 4F 41 44 0D 4A 4D 50 20 46 55 31 |R ISLOAD.JMP FU1| 00001930: 30 0D 46 50 33 31 20 4A 53 52 20 52 4C 4F 41 44 |0.FP31 JSR RLOAD| 00001940: 0D 4A 4D 50 20 44 4F 41 54 4E 0D 46 50 33 30 20 |.JMP DOATN.FP30 | 00001950: 3D 20 44 4F 41 54 4E 0D 46 50 32 31 20 4A 53 52 |= DOATN.FP21 JSR| 00001960: 20 49 4E 54 46 41 43 0D 46 50 32 30 20 4A 53 52 | INTFAC.FP20 JSR| 00001970: 20 49 4E 54 46 4C 50 0D 4A 4D 50 20 44 4F 41 54 | INTFLP.JMP DOAT| 00001980: 4E 0D 46 56 33 31 20 4A 53 52 20 52 4C 4F 41 44 |N.FV31 JSR RLOAD| 00001990: 0D 46 56 33 30 20 4A 53 52 20 43 4F 4E 56 0D 46 |.FV30 JSR CONV.F| 000019A0: 56 33 30 41 20 50 48 41 0D 4C 44 41 20 23 31 0D |V30A PHA.LDA #1.| 000019B0: 4A 53 52 20 34 36 32 30 35 0D 50 4C 41 0D 4C 44 |JSR 46205.PLA.LD| 000019C0: 59 20 23 5A 45 52 4F 0D 53 54 41 20 28 46 41 43 |Y #ZERO.STA (FAC| 000019D0: 2B 31 29 2C 59 0D 4A 4D 50 20 50 55 54 4E 45 57 |+1),Y.JMP PUTNEW| 000019E0: 0D 46 56 32 31 20 4A 53 52 20 49 4E 54 46 41 43 |.FV21 JSR INTFAC| 000019F0: 0D 46 56 32 30 20 4A 53 52 20 49 43 48 45 43 4B |.FV20 JSR ICHECK| 00001A00: 0D 4A 4D 50 20 46 56 33 30 41 0D 46 4D 33 31 20 |.JMP FV30A.FM31 | 00001A10: 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 44 4F |JSR RLOAD.JMP DO| 00001A20: 43 4F 53 0D 46 4D 33 30 20 3D 20 44 4F 43 4F 53 |COS.FM30 = DOCOS| 00001A30: 0D 46 4D 32 31 20 4A 53 52 20 49 4E 54 46 41 43 |.FM21 JSR INTFAC| 00001A40: 0D 46 4D 32 30 20 4A 53 52 20 49 4E 54 46 4C 50 |.FM20 JSR INTFLP| 00001A50: 0D 4A 4D 50 20 44 4F 43 4F 53 0D 46 4E 33 31 20 |.JMP DOCOS.FN31 | 00001A60: 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 44 4F |JSR RLOAD.JMP DO| 00001A70: 53 49 4E 0D 46 4E 33 30 20 20 3D 20 20 44 4F 53 |SIN.FN30 = DOS| 00001A80: 49 4E 0D 46 4E 32 31 20 4A 53 52 20 49 4E 54 46 |IN.FN21 JSR INTF| 00001A90: 41 43 0D 46 4E 32 30 20 4A 53 52 20 49 4E 54 46 |AC.FN20 JSR INTF| 00001AA0: 4C 50 0D 4A 4D 50 20 44 4F 53 49 4E 0D 46 4C 33 |LP.JMP DOSIN.FL3| 00001AB0: 31 20 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 |1 JSR RLOAD.JMP | 00001AC0: 44 4F 45 58 50 0D 46 4C 33 30 20 20 3D 20 20 44 |DOEXP.FL30 = D| 00001AD0: 4F 45 58 50 0D 46 4C 32 31 20 4A 53 52 20 49 4E |OEXP.FL21 JSR IN| 00001AE0: 54 46 41 43 0D 46 4C 32 30 20 4A 53 52 20 49 4E |TFAC.FL20 JSR IN| 00001AF0: 54 46 4C 50 0D 4A 4D 50 20 44 4F 45 58 50 0D 46 |TFLP.JMP DOEXP.F| 00001B00: 47 32 20 20 3D 20 20 44 4F 46 52 45 0D 46 44 33 |G2 = DOFRE.FD3| 00001B10: 31 20 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 |1 JSR RLOAD.JMP | 00001B20: 44 4F 49 4E 54 0D 46 44 33 30 20 20 3D 20 20 44 |DOINT.FD30 = D| 00001B30: 4F 49 4E 54 0D 46 44 32 31 20 4A 53 52 20 49 4E |OINT.FD21 JSR IN| 00001B40: 54 46 41 43 0D 46 44 32 30 20 4A 53 52 20 49 4E |TFAC.FD20 JSR IN| 00001B50: 54 46 4C 50 0D 52 54 53 0D 46 57 33 31 20 4A 53 |TFLP.RTS.FW31 JS| 00001B60: 52 20 52 4C 4F 41 44 0D 46 57 33 30 20 4A 53 52 |R RLOAD.FW30 JSR| 00001B70: 20 43 4F 4E 56 0D 4C 45 46 54 31 20 54 41 58 0D | CONV.LEFT1 TAX.| 00001B80: 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 2B 31 0D |PLA.STA JMPER+1.| 00001B90: 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 2B 32 0D |PLA.STA JMPER+2.| 00001BA0: 50 4C 41 0D 53 54 41 20 46 41 43 2B 34 0D 53 54 |PLA.STA FAC+4.ST| 00001BB0: 41 20 44 53 43 50 4E 54 2B 31 0D 50 4C 41 0D 53 |A DSCPNT+1.PLA.S| 00001BC0: 54 41 20 46 41 43 2B 33 0D 53 54 41 20 44 53 43 |TA FAC+3.STA DSC| 00001BD0: 50 4E 54 0D 4C 44 41 20 4A 4D 50 45 52 2B 32 0D |PNT.LDA JMPER+2.| 00001BE0: 50 48 41 0D 4C 44 41 20 4A 4D 50 45 52 2B 31 0D |PHA.LDA JMPER+1.| 00001BF0: 50 48 41 0D 4C 44 59 20 23 5A 45 52 4F 0D 54 58 |PHA.LDY #ZERO.TX| 00001C00: 41 0D 4A 4D 50 20 44 4F 4C 45 46 54 0D 46 57 32 |A.JMP DOLEFT.FW2| 00001C10: 31 20 4A 53 52 20 49 4E 54 46 41 43 0D 46 57 32 |1 JSR INTFAC.FW2| 00001C20: 30 20 4A 53 52 20 49 43 48 45 43 4B 0D 4A 4D 50 |0 JSR ICHECK.JMP| 00001C30: 20 4C 45 46 54 31 0D 46 52 31 31 20 53 54 41 20 | LEFT1.FR11 STA | 00001C40: 46 41 43 2B 33 0D 53 54 59 20 46 41 43 2B 34 0D |FAC+3.STY FAC+4.| 00001C50: 46 52 31 30 20 4A 53 52 20 46 52 45 53 54 52 0D |FR10 JSR FRESTR.| 00001C60: 4C 44 59 20 23 5A 45 52 4F 0D 52 54 53 0D 46 52 |LDY #ZERO.RTS.FR| 00001C70: 31 32 20 4A 53 52 20 49 53 4C 4F 41 44 0D 4A 4D |12 JSR ISLOAD.JM| 00001C80: 50 20 46 52 31 30 0D 46 4B 33 31 20 4A 53 52 20 |P FR10.FK31 JSR | 00001C90: 52 4C 4F 41 44 0D 4A 4D 50 20 44 4F 4C 4F 47 0D |RLOAD.JMP DOLOG.| 00001CA0: 46 4B 33 30 20 20 3D 20 20 44 4F 4C 4F 47 0D 46 |FK30 = DOLOG.F| 00001CB0: 4B 32 31 20 4A 53 52 20 49 4E 54 46 41 43 0D 46 |K21 JSR INTFAC.F| 00001CC0: 4B 32 30 20 4A 53 52 20 49 4E 54 46 4C 50 0D 4A |K20 JSR INTFLP.J| 00001CD0: 4D 50 20 44 4F 4C 4F 47 0D 46 59 33 31 20 4A 53 |MP DOLOG.FY31 JS| 00001CE0: 52 20 52 4C 4F 41 44 0D 46 59 33 30 20 4A 53 52 |R RLOAD.FY30 JSR| 00001CF0: 20 43 4F 4E 56 0D 4D 49 44 31 20 54 41 58 0D 50 | CONV.MID1 TAX.P| 00001D00: 4C 41 0D 53 54 41 20 4A 4D 50 45 52 2B 31 0D 50 |LA.STA JMPER+1.P| 00001D10: 4C 41 0D 53 54 41 20 4A 4D 50 45 52 2B 32 0D 4C |LA.STA JMPER+2.L| 00001D20: 44 41 20 23 24 46 46 0D 53 54 41 20 46 41 43 2B |DA #$FF.STA FAC+| 00001D30: 34 0D 4D 49 44 32 20 50 4C 41 0D 53 54 41 20 44 |4.MID2 PLA.STA D| 00001D40: 53 43 50 4E 54 2B 31 0D 50 4C 41 0D 53 54 41 20 |SCPNT+1.PLA.STA | 00001D50: 44 53 43 50 4E 54 0D 4C 44 41 20 4A 4D 50 45 52 |DSCPNT.LDA JMPER| 00001D60: 2B 32 0D 50 48 41 0D 4C 44 41 20 4A 4D 50 45 52 |+2.PHA.LDA JMPER| 00001D70: 2B 31 0D 50 48 41 0D 4C 44 59 20 23 5A 45 52 4F |+1.PHA.LDY #ZERO| 00001D80: 0D 54 58 41 0D 4A 4D 50 20 44 4F 4D 49 44 0D 46 |.TXA.JMP DOMID.F| 00001D90: 59 32 31 20 4A 53 52 20 49 4E 54 46 41 43 0D 46 |Y21 JSR INTFAC.F| 00001DA0: 59 32 30 20 4A 53 52 20 49 43 48 45 43 4B 0D 4A |Y20 JSR ICHECK.J| 00001DB0: 4D 50 20 4D 49 44 31 0D 46 5A 33 31 20 4A 53 52 |MP MID1.FZ31 JSR| 00001DC0: 20 52 4C 4F 41 44 0D 46 5A 33 30 20 4A 53 52 20 | RLOAD.FZ30 JSR | 00001DD0: 43 4F 4E 56 0D 4D 49 44 34 20 53 54 41 20 46 41 |CONV.MID4 STA FA| 00001DE0: 43 2B 34 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 |C+4.PLA.STA JMPE| 00001DF0: 52 2B 31 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 |R+1.PLA.STA JMPE| 00001E00: 52 2B 32 0D 50 4C 41 0D 54 41 59 0D 50 4C 41 0D |R+2.PLA.TAY.PLA.| 00001E10: 4A 53 52 20 49 43 48 45 43 4B 0D 54 41 58 0D 4A |JSR ICHECK.TAX.J| 00001E20: 4D 50 20 4D 49 44 32 0D 46 5A 32 31 20 4A 53 52 |MP MID2.FZ21 JSR| 00001E30: 20 49 4E 54 46 41 43 0D 46 5A 32 30 20 4A 53 52 | INTFAC.FZ20 JSR| 00001E40: 20 49 43 48 45 43 4B 0D 4A 4D 50 20 4D 49 44 34 | ICHECK.JMP MID4| 00001E50: 0D 46 51 33 31 20 4A 53 52 20 52 4C 4F 41 44 0D |.FQ31 JSR RLOAD.| 00001E60: 46 51 33 30 20 4A 53 52 20 46 4C 50 55 53 49 0D |FQ30 JSR FLPUSI.| 00001E70: 46 51 32 30 20 53 54 41 20 46 41 43 2B 33 0D 53 |FQ20 STA FAC+3.S| 00001E80: 54 59 20 46 41 43 2B 34 0D 4C 44 59 20 23 5A 45 |TY FAC+4.LDY #ZE| 00001E90: 52 4F 0D 4C 44 41 20 28 46 41 43 2B 33 29 2C 59 |RO.LDA (FAC+3),Y| 00001EA0: 0D 52 54 53 0D 46 51 32 31 20 4A 53 52 20 49 4E |.RTS.FQ21 JSR IN| 00001EB0: 54 46 41 43 0D 4A 4D 50 20 46 51 32 30 0D 46 48 |TFAC.JMP FQ20.FH| 00001EC0: 32 20 4C 44 41 20 54 52 4D 50 4F 53 0D 4C 44 59 |2 LDA TRMPOS.LDY| 00001ED0: 20 23 5A 45 52 4F 0D 52 54 53 0D 46 58 33 31 20 | #ZERO.RTS.FX31 | 00001EE0: 4A 53 52 20 52 4C 4F 41 44 0D 46 58 33 30 20 4A |JSR RLOAD.FX30 J| 00001EF0: 53 52 20 43 4F 4E 56 0D 52 49 47 48 54 31 20 54 |SR CONV.RIGHT1 T| 00001F00: 41 58 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 |AX.PLA.STA JMPER| 00001F10: 2B 31 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 |+1.PLA.STA JMPER| 00001F20: 2B 32 0D 50 4C 41 0D 53 54 41 20 46 41 43 2B 34 |+2.PLA.STA FAC+4| 00001F30: 0D 53 54 41 20 44 53 43 50 4E 54 2B 31 0D 50 4C |.STA DSCPNT+1.PL| 00001F40: 41 0D 53 54 41 20 46 41 43 2B 33 0D 53 54 41 20 |A.STA FAC+3.STA | 00001F50: 44 53 43 50 4E 54 0D 4C 44 41 20 4A 4D 50 45 52 |DSCPNT.LDA JMPER| 00001F60: 2B 32 0D 50 48 41 0D 4C 44 41 20 4A 4D 50 45 52 |+2.PHA.LDA JMPER| 00001F70: 2B 31 0D 50 48 41 0D 4C 44 59 20 23 5A 45 52 4F |+1.PHA.LDY #ZERO| 00001F80: 0D 54 58 41 0D 4A 4D 50 20 44 4F 52 49 47 48 0D |.TXA.JMP DORIGH.| 00001F90: 46 58 32 31 20 4A 53 52 20 49 4E 54 46 41 43 0D |FX21 JSR INTFAC.| 00001FA0: 46 58 32 30 20 4A 53 52 20 49 43 48 45 43 4B 0D |FX20 JSR ICHECK.| 00001FB0: 4A 4D 50 20 52 49 47 48 54 31 0D 46 4A 33 31 20 |JMP RIGHT1.FJ31 | 00001FC0: 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 44 4F |JSR RLOAD.JMP DO| 00001FD0: 52 4E 44 0D 46 4A 33 30 20 20 3D 20 20 44 4F 52 |RND.FJ30 = DOR| 00001FE0: 4E 44 0D 46 4A 32 31 20 4A 53 52 20 49 4E 54 46 |ND.FJ21 JSR INTF| 00001FF0: 41 43 0D 46 4A 32 30 20 4A 53 52 20 49 4E 54 46 |AC.FJ20 JSR INTF| 00002000: 4C 50 0D 4A 4D 50 20 44 4F 52 4E 44 0D 46 43 33 |LP.JMP DORND.FC3| 00002010: 31 20 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 |1 JSR RLOAD.JMP | 00002020: 44 4F 53 47 4E 0D 46 43 33 30 20 20 3D 20 20 44 |DOSGN.FC30 = D| 00002030: 4F 53 47 4E 0D 46 43 32 31 20 4A 53 52 20 49 4E |OSGN.FC21 JSR IN| 00002040: 54 46 41 43 0D 46 43 32 30 20 53 54 41 20 46 41 |TFAC.FC20 STA FA| 00002050: 43 2B 33 0D 54 59 41 0D 42 4D 49 20 49 53 47 4E |C+3.TYA.BMI ISGN| 00002060: 33 0D 42 45 51 20 49 53 47 4E 32 0D 49 53 47 4E |3.BEQ ISGN2.ISGN| 00002070: 31 20 4C 44 41 20 23 31 0D 4C 44 59 20 23 5A 45 |1 LDA #1.LDY #ZE| 00002080: 52 4F 0D 52 54 53 0D 49 53 47 4E 32 20 4C 44 41 |RO.RTS.ISGN2 LDA| 00002090: 20 46 41 43 2B 33 0D 42 4E 45 20 49 53 47 4E 31 | FAC+3.BNE ISGN1| 000020A0: 0D 4C 44 41 20 23 5A 45 52 4F 0D 54 41 59 0D 52 |.LDA #ZERO.TAY.R| 000020B0: 54 53 0D 49 53 47 4E 33 20 4C 44 41 20 23 24 46 |TS.ISGN3 LDA #$F| 000020C0: 46 0D 54 41 59 0D 52 54 53 0D 46 49 33 31 20 4A |F.TAY.RTS.FI31 J| 000020D0: 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 44 4F 53 |SR RLOAD.JMP DOS| 000020E0: 51 52 0D 46 49 33 30 20 20 3D 20 20 44 4F 53 51 |QR.FI30 = DOSQ| 000020F0: 52 0D 46 49 32 31 20 4A 53 52 20 49 4E 54 46 41 |R.FI21 JSR INTFA| 00002100: 43 0D 46 49 32 30 20 4A 53 52 20 49 4E 54 46 4C |C.FI20 JSR INTFL| 00002110: 50 0D 4A 4D 50 20 44 4F 53 51 52 0D 46 53 33 31 |P.JMP DOSQR.FS31| 00002120: 20 4A 53 52 20 52 4C 4F 41 44 0D 46 53 33 30 20 | JSR RLOAD.FS30 | 00002130: 4C 44 59 20 23 5A 45 52 4F 0D 4A 53 52 20 34 38 |LDY #ZERO.JSR 48| 00002140: 36 30 37 0D 4C 44 41 20 23 24 46 46 0D 4C 44 59 |607.LDA #$FF.LDY| 00002150: 20 23 5A 45 52 4F 0D 4A 4D 50 20 49 53 4C 4F 41 | #ZERO.JMP ISLOA| 00002160: 44 0D 46 53 32 31 20 4A 53 52 20 49 4E 54 46 41 |D.FS21 JSR INTFA| 00002170: 43 0D 46 53 32 30 20 4A 53 52 20 49 4E 54 46 4C |C.FS20 JSR INTFL| 00002180: 50 0D 4A 4D 50 20 46 53 33 30 0D 46 4F 33 31 20 |P.JMP FS30.FO31 | 00002190: 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 44 4F |JSR RLOAD.JMP DO| 000021A0: 54 41 4E 0D 46 4F 33 30 20 20 3D 20 20 44 4F 54 |TAN.FO30 = DOT| 000021B0: 41 4E 0D 46 4F 32 31 20 4A 53 52 20 49 4E 54 46 |AN.FO21 JSR INTF| 000021C0: 41 43 0D 46 4F 32 30 20 4A 53 52 20 49 4E 54 46 |AC.FO20 JSR INTF| 000021D0: 4C 50 0D 4A 4D 50 20 44 4F 54 41 4E 0D 46 46 33 |LP.JMP DOTAN.FF3| 000021E0: 31 20 4A 53 52 20 52 4C 4F 41 44 0D 4A 4D 50 20 |1 JSR RLOAD.JMP | 000021F0: 44 4F 55 53 52 0D 46 46 33 30 20 20 3D 20 20 44 |DOUSR.FF30 = D| 00002200: 4F 55 53 52 0D 46 46 32 31 20 4A 53 52 20 49 4E |OUSR.FF21 JSR IN| 00002210: 54 46 41 43 0D 46 46 32 30 20 4A 53 52 20 49 4E |TFAC.FF20 JSR IN| 00002220: 54 46 4C 50 0D 4A 4D 50 20 44 4F 55 53 52 0D 46 |TFLP.JMP DOUSR.F| 00002230: 54 31 31 20 53 54 41 20 46 41 43 2B 33 0D 53 54 |T11 STA FAC+3.ST| 00002240: 59 20 46 41 43 2B 34 0D 46 54 31 30 20 4A 53 52 |Y FAC+4.FT10 JSR| 00002250: 20 46 52 45 53 54 52 0D 54 41 59 0D 4A 4D 50 20 | FRESTR.TAY.JMP | 00002260: 44 4F 56 41 4C 2B 33 0D 46 54 31 32 20 4A 53 52 |DOVAL+3.FT12 JSR| 00002270: 20 49 53 4C 4F 41 44 0D 4A 4D 50 20 46 54 31 30 | ISLOAD.JMP FT10| 00002280: 0D 46 32 33 31 20 3D 20 44 4F 41 44 44 2D 33 0D |.F231 = DOADD-3.| 00002290: 46 32 33 35 20 4A 53 52 20 49 4E 54 46 4C 50 0D |F235 JSR INTFLP.| 000022A0: 46 32 33 32 20 4A 53 52 20 46 4C 50 55 53 54 0D |F232 JSR FLPUST.| 000022B0: 4A 4D 50 20 44 4F 41 44 44 0D 46 32 33 33 20 4A |JMP DOADD.F233 J| 000022C0: 53 52 20 49 4E 54 46 41 43 0D 46 32 33 39 20 4A |SR INTFAC.F239 J| 000022D0: 53 52 20 52 54 4F 46 41 32 0D 4A 53 52 20 49 4E |SR RTOFA2.JSR IN| 000022E0: 54 46 4C 50 0D 46 32 33 30 20 4C 44 41 20 41 52 |TFLP.F230 LDA AR| 000022F0: 47 2B 35 0D 45 4F 52 20 46 41 43 2B 35 0D 53 54 |G+5.EOR FAC+5.ST| 00002300: 41 20 41 52 47 2B 36 0D 4C 44 41 20 46 41 43 0D |A ARG+6.LDA FAC.| 00002310: 4A 4D 50 20 44 4F 41 44 44 0D 46 33 33 31 20 3D |JMP DOADD.F331 =| 00002320: 20 44 4F 53 55 42 2D 33 0D 46 33 33 35 20 4A 53 | DOSUB-3.F335 JS| 00002330: 52 20 49 4E 54 46 4C 50 0D 46 33 33 32 20 4A 53 |R INTFLP.F332 JS| 00002340: 52 20 46 4C 50 55 53 54 0D 4A 4D 50 20 44 4F 53 |R FLPUST.JMP DOS| 00002350: 55 42 0D 46 33 33 33 20 4A 53 52 20 49 4E 54 46 |UB.F333 JSR INTF| 00002360: 41 43 0D 46 33 33 39 20 4A 53 52 20 52 54 4F 46 |AC.F339 JSR RTOF| 00002370: 41 32 0D 4A 53 52 20 49 4E 54 46 4C 50 0D 46 33 |A2.JSR INTFLP.F3| 00002380: 33 30 20 4C 44 41 20 41 52 47 2B 35 0D 45 4F 52 |30 LDA ARG+5.EOR| 00002390: 20 46 41 43 2B 35 0D 53 54 41 20 41 52 47 2B 36 | FAC+5.STA ARG+6| 000023A0: 0D 4C 44 41 20 46 41 43 0D 4A 4D 50 20 44 4F 53 |.LDA FAC.JMP DOS| 000023B0: 55 42 0D 46 33 33 36 20 4A 53 52 20 52 54 4F 46 |UB.F336 JSR RTOF| 000023C0: 41 32 0D 46 33 33 38 20 4A 53 52 20 52 4C 4F 41 |A2.F338 JSR RLOA| 000023D0: 44 0D 4A 4D 50 20 46 33 33 30 0D 46 34 33 31 20 |D.JMP F330.F431 | 000023E0: 3D 20 44 4F 4D 55 4C 54 2D 33 0D 46 34 33 35 20 |= DOMULT-3.F435 | 000023F0: 4A 53 52 20 49 4E 54 46 4C 50 0D 46 34 33 32 20 |JSR INTFLP.F432 | 00002400: 4A 53 52 20 46 4C 50 55 53 54 0D 4A 4D 50 20 44 |JSR FLPUST.JMP D| 00002410: 4F 4D 55 4C 54 0D 46 34 33 33 20 4A 53 52 20 49 |OMULT.F433 JSR I| 00002420: 4E 54 46 41 43 0D 46 34 33 39 20 4A 53 52 20 52 |NTFAC.F439 JSR R| 00002430: 54 4F 46 41 32 0D 46 34 33 30 20 4A 53 52 20 49 |TOFA2.F430 JSR I| 00002440: 4E 54 46 4C 50 0D 4C 44 41 20 41 52 47 2B 35 0D |NTFLP.LDA ARG+5.| 00002450: 45 4F 52 20 46 41 43 2B 35 0D 53 54 41 20 41 52 |EOR FAC+5.STA AR| 00002460: 47 2B 36 0D 4C 44 41 20 46 41 43 0D 4A 4D 50 20 |G+6.LDA FAC.JMP | 00002470: 44 4F 4D 55 4C 54 0D 46 35 33 31 20 3D 20 44 4F |DOMULT.F531 = DO| 00002480: 44 49 56 2D 33 0D 46 35 33 35 20 4A 53 52 20 49 |DIV-3.F535 JSR I| 00002490: 4E 54 46 4C 50 0D 46 35 33 32 20 4A 53 52 20 46 |NTFLP.F532 JSR F| 000024A0: 4C 50 55 53 54 0D 4A 4D 50 20 44 4F 44 49 56 0D |LPUST.JMP DODIV.| 000024B0: 46 35 33 33 20 4A 53 52 20 49 4E 54 46 41 43 0D |F533 JSR INTFAC.| 000024C0: 46 35 33 39 20 4A 53 52 20 52 54 4F 46 41 32 0D |F539 JSR RTOFA2.| 000024D0: 4A 53 52 20 49 4E 54 46 4C 50 0D 46 35 33 30 20 |JSR INTFLP.F530 | 000024E0: 4C 44 41 20 41 52 47 2B 35 0D 45 4F 52 20 46 41 |LDA ARG+5.EOR FA| 000024F0: 43 2B 35 0D 53 54 41 20 41 52 47 2B 36 0D 4C 44 |C+5.STA ARG+6.LD| 00002500: 41 20 46 41 43 0D 4A 4D 50 20 44 4F 44 49 56 0D |A FAC.JMP DODIV.| 00002510: 46 35 33 36 20 4A 53 52 20 52 54 4F 46 41 32 0D |F536 JSR RTOFA2.| 00002520: 46 35 33 38 20 4A 53 52 20 52 4C 4F 41 44 0D 4A |F538 JSR RLOAD.J| 00002530: 4D 50 20 46 35 33 30 0D 46 36 33 31 20 4A 53 52 |MP F530.F631 JSR| 00002540: 20 4D 54 4F 46 41 32 0D 4A 4D 50 20 44 4F 50 4F | MTOFA2.JMP DOPO| 00002550: 57 0D 46 36 33 35 20 4A 53 52 20 49 4E 54 46 4C |W.F635 JSR INTFL| 00002560: 50 0D 46 36 33 32 20 4A 53 52 20 46 4C 50 55 53 |P.F632 JSR FLPUS| 00002570: 54 0D 4A 4D 50 20 44 4F 50 4F 57 0D 46 36 33 30 |T.JMP DOPOW.F630| 00002580: 20 3D 20 44 4F 50 4F 57 0D 46 36 33 33 20 4A 53 | = DOPOW.F633 JS| 00002590: 52 20 49 4E 54 46 41 43 0D 46 36 33 39 20 4A 53 |R INTFAC.F639 JS| 000025A0: 52 20 52 54 4F 46 41 32 0D 4A 53 52 20 49 4E 54 |R RTOFA2.JSR INT| 000025B0: 46 4C 50 0D 4A 4D 50 20 44 4F 50 4F 57 0D 46 36 |FLP.JMP DOPOW.F6| 000025C0: 33 36 20 4A 53 52 20 52 54 4F 46 41 32 0D 46 36 |36 JSR RTOFA2.F6| 000025D0: 33 38 20 4A 4D 50 20 44 4F 50 4F 57 2D 33 0D 46 |38 JMP DOPOW-3.F| 000025E0: 41 33 31 20 4A 53 52 20 52 4C 4F 41 44 0D 46 41 |A31 JSR RLOAD.FA| 000025F0: 33 30 20 4C 44 41 20 46 41 43 0D 42 45 51 20 2A |30 LDA FAC.BEQ *| 00002600: 2B 38 0D 4C 44 41 20 46 41 43 2B 35 0D 45 4F 52 |+8.LDA FAC+5.EOR| 00002610: 20 23 24 46 46 0D 53 54 41 20 46 41 43 2B 35 0D | #$FF.STA FAC+5.| 00002620: 52 54 53 0D 46 41 32 31 20 4A 53 52 20 49 4E 54 |RTS.FA21 JSR INT| 00002630: 46 41 43 0D 46 41 32 30 20 4C 44 58 20 23 5A 45 |FAC.FA20 LDX #ZE| 00002640: 52 4F 0D 53 54 58 20 41 52 47 2B 33 0D 53 54 58 |RO.STX ARG+3.STX| 00002650: 20 41 52 47 2B 34 0D 4A 4D 50 20 46 33 32 30 0D | ARG+4.JMP F320.| 00002660: 46 42 33 31 20 4A 53 52 20 52 4C 4F 41 44 0D 46 |FB31 JSR RLOAD.F| 00002670: 42 33 30 20 4A 53 52 20 46 4C 50 53 49 0D 4A 4D |B30 JSR FLPSI.JM| 00002680: 50 20 46 42 32 30 0D 46 42 32 31 20 4A 53 52 20 |P FB20.FB21 JSR | 00002690: 49 4E 54 46 41 43 0D 46 42 32 30 20 45 4F 52 20 |INTFAC.FB20 EOR | 000026A0: 23 24 46 46 0D 50 48 41 0D 54 59 41 0D 45 4F 52 |#$FF.PHA.TYA.EOR| 000026B0: 20 23 24 46 46 0D 54 41 59 0D 50 4C 41 0D 52 54 | #$FF.TAY.PLA.RT| 000026C0: 53 0D 46 32 31 33 20 4A 53 52 20 53 54 4F 46 41 |S.F213 JSR STOFA| 000026D0: 32 0D 46 32 31 31 20 4A 53 52 20 49 53 4C 4F 41 |2.F211 JSR ISLOA| 000026E0: 44 0D 4A 4D 50 20 46 32 31 30 0D 46 32 31 32 20 |D.JMP F210.F212 | 000026F0: 4A 53 52 20 53 54 4F 46 41 32 0D 46 32 31 37 20 |JSR STOFA2.F217 | 00002700: 53 54 41 20 46 41 43 2B 33 0D 53 54 59 20 46 41 |STA FAC+3.STY FA| 00002710: 43 2B 34 0D 46 32 31 30 20 4C 44 41 20 41 52 47 |C+4.F210 LDA ARG| 00002720: 2B 33 0D 53 54 41 20 41 52 47 2B 36 0D 4C 44 41 |+3.STA ARG+6.LDA| 00002730: 20 41 52 47 2B 34 0D 53 54 41 20 41 52 47 2B 37 | ARG+4.STA ARG+7| 00002740: 0D 46 32 31 30 41 20 4C 44 59 20 23 5A 45 52 4F |.F210A LDY #ZERO| 00002750: 0D 4C 44 41 20 28 41 52 47 2B 36 29 2C 59 0D 43 |.LDA (ARG+6),Y.C| 00002760: 4C 43 0D 41 44 43 20 28 46 41 43 2B 33 29 2C 59 |LC.ADC (FAC+3),Y| 00002770: 0D 42 43 43 20 2A 2B 37 0D 4C 44 58 20 23 53 54 |.BCC *+7.LDX #ST| 00002780: 52 4C 4F 4E 0D 4A 4D 50 20 45 52 52 4F 52 0D 4A |RLON.JMP ERROR.J| 00002790: 53 52 20 34 36 31 39 37 0D 4A 53 52 20 34 36 37 |SR 46197.JSR 467| 000027A0: 31 34 0D 4C 44 41 20 44 53 43 50 4E 54 0D 4C 44 |14.LDA DSCPNT.LD| 000027B0: 59 20 44 53 43 50 4E 54 2B 31 0D 4A 53 52 20 46 |Y DSCPNT+1.JSR F| 000027C0: 52 45 53 54 52 2B 34 0D 4A 53 52 20 34 36 37 33 |RESTR+4.JSR 4673| 000027D0: 32 0D 4C 44 41 20 41 52 47 2B 36 0D 4C 44 59 20 |2.LDA ARG+6.LDY | 000027E0: 41 52 47 2B 37 0D 4A 53 52 20 46 52 45 53 54 52 |ARG+7.JSR FRESTR| 000027F0: 2B 34 0D 4A 4D 50 20 50 55 54 4E 45 57 0D 46 32 |+4.JMP PUTNEW.F2| 00002800: 31 34 20 53 54 41 20 41 52 47 2B 36 0D 53 54 59 |14 STA ARG+6.STY| 00002810: 20 41 52 47 2B 37 0D 4A 4D 50 20 46 32 31 30 41 | ARG+7.JMP F210A| 00002820: 0D 46 32 31 36 20 4A 53 52 20 53 54 52 55 53 54 |.F216 JSR STRUST| 00002830: 0D 4A 4D 50 20 46 32 31 30 0D 46 32 32 31 20 4A |.JMP F210.F221 J| 00002840: 53 52 20 49 4E 54 55 53 54 0D 46 32 32 30 20 43 |SR INTUST.F220 C| 00002850: 4C 43 0D 41 44 43 20 41 52 47 2B 33 0D 50 48 41 |LC.ADC ARG+3.PHA| 00002860: 0D 54 59 41 0D 41 44 43 20 41 52 47 2B 34 0D 54 |.TYA.ADC ARG+4.T| 00002870: 41 59 0D 50 4C 41 0D 42 56 53 20 2A 2B 34 0D 43 |AY.PLA.BVS *+4.C| 00002880: 4C 43 0D 52 54 53 0D 4C 44 58 20 23 4F 56 45 52 |LC.RTS.LDX #OVER| 00002890: 46 4C 0D 4A 4D 50 20 45 52 52 4F 52 0D 46 32 32 |FL.JMP ERROR.F22| 000028A0: 32 20 4A 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 |2 JSR INTFAC.JMP| 000028B0: 20 46 32 32 30 0D 46 33 32 31 20 4A 53 52 20 49 | F220.F321 JSR I| 000028C0: 4E 54 55 53 54 0D 46 33 32 30 20 53 54 41 20 46 |NTUST.F320 STA F| 000028D0: 41 43 2B 33 0D 53 54 59 20 46 41 43 2B 34 0D 53 |AC+3.STY FAC+4.S| 000028E0: 45 43 0D 4C 44 41 20 41 52 47 2B 33 0D 53 42 43 |EC.LDA ARG+3.SBC| 000028F0: 20 46 41 43 2B 33 0D 50 48 41 0D 4C 44 41 20 41 | FAC+3.PHA.LDA A| 00002900: 52 47 2B 34 0D 53 42 43 20 46 41 43 2B 34 0D 54 |RG+4.SBC FAC+4.T| 00002910: 41 59 0D 50 4C 41 0D 42 56 53 20 2A 2B 34 0D 43 |AY.PLA.BVS *+4.C| 00002920: 4C 43 0D 52 54 53 0D 4C 44 58 20 23 4F 56 45 52 |LC.RTS.LDX #OVER| 00002930: 46 4C 0D 4A 4D 50 20 45 52 52 4F 52 0D 46 33 32 |FL.JMP ERROR.F32| 00002940: 32 20 4A 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 |2 JSR INTFAC.JMP| 00002950: 20 46 33 32 30 0D 46 34 32 31 20 4A 53 52 20 49 | F320.F421 JSR I| 00002960: 4E 54 55 53 54 0D 46 34 32 30 20 53 54 41 20 46 |NTUST.F420 STA F| 00002970: 41 43 2B 33 0D 53 54 59 20 46 41 43 2B 34 0D 4C |AC+3.STY FAC+4.L| 00002980: 44 41 20 23 5A 45 52 4F 0D 53 54 41 20 41 52 47 |DA #ZERO.STA ARG| 00002990: 2B 31 0D 53 54 41 20 41 52 47 2B 32 0D 4C 44 41 |+1.STA ARG+2.LDA| 000029A0: 20 41 52 47 2B 34 0D 45 4F 52 20 46 41 43 2B 34 | ARG+4.EOR FAC+4| 000029B0: 0D 53 54 41 20 43 4D 50 4D 53 4B 0D 4C 44 41 20 |.STA CMPMSK.LDA | 000029C0: 41 52 47 2B 34 0D 42 50 4C 20 2A 2B 35 0D 4A 53 |ARG+4.BPL *+5.JS| 000029D0: 52 20 49 4E 56 41 52 47 0D 4C 44 41 20 46 41 43 |R INVARG.LDA FAC| 000029E0: 2B 34 0D 42 50 4C 20 2A 2B 35 0D 4A 53 52 20 49 |+4.BPL *+5.JSR I| 000029F0: 4E 56 46 41 43 0D 49 4D 55 4C 31 20 4C 44 41 20 |NVFAC.IMUL1 LDA | 00002A00: 41 52 47 2B 34 0D 4F 52 41 20 41 52 47 2B 33 0D |ARG+4.ORA ARG+3.| 00002A10: 42 45 51 20 49 4D 55 4C 34 0D 49 4D 55 4C 32 20 |BEQ IMUL4.IMUL2 | 00002A20: 43 4C 43 0D 52 4F 52 20 41 52 47 2B 34 0D 52 4F |CLC.ROR ARG+4.RO| 00002A30: 52 20 41 52 47 2B 33 0D 42 43 43 20 49 4D 55 4C |R ARG+3.BCC IMUL| 00002A40: 33 0D 43 4C 43 0D 4C 44 41 20 41 52 47 2B 31 0D |3.CLC.LDA ARG+1.| 00002A50: 41 44 43 20 46 41 43 2B 33 0D 53 54 41 20 41 52 |ADC FAC+3.STA AR| 00002A60: 47 2B 31 0D 4C 44 41 20 41 52 47 2B 32 0D 41 44 |G+1.LDA ARG+2.AD| 00002A70: 43 20 46 41 43 2B 34 0D 53 54 41 20 41 52 47 2B |C FAC+4.STA ARG+| 00002A80: 32 0D 42 50 4C 20 49 4D 55 4C 33 0D 49 4D 55 4C |2.BPL IMUL3.IMUL| 00002A90: 32 42 20 4C 44 58 20 23 4F 56 45 52 46 4C 0D 4A |2B LDX #OVERFL.J| 00002AA0: 4D 50 20 45 52 52 4F 52 0D 49 4D 55 4C 33 20 43 |MP ERROR.IMUL3 C| 00002AB0: 4C 43 0D 52 4F 4C 20 46 41 43 2B 33 0D 52 4F 4C |LC.ROL FAC+3.ROL| 00002AC0: 20 46 41 43 2B 34 0D 42 43 43 20 49 4D 55 4C 31 | FAC+4.BCC IMUL1| 00002AD0: 0D 4A 4D 50 20 49 4D 55 4C 32 42 0D 49 44 49 56 |.JMP IMUL2B.IDIV| 00002AE0: 37 0D 49 4D 55 4C 34 20 4C 44 41 20 41 52 47 2B |7.IMUL4 LDA ARG+| 00002AF0: 31 0D 4C 44 59 20 41 52 47 2B 32 0D 4C 44 58 20 |1.LDY ARG+2.LDX | 00002B00: 43 4D 50 4D 53 4B 0D 42 50 4C 20 49 4D 55 4C 35 |CMPMSK.BPL IMUL5| 00002B10: 0D 53 45 43 0D 45 4F 52 20 23 24 46 46 0D 41 44 |.SEC.EOR #$FF.AD| 00002B20: 43 20 23 30 0D 50 48 41 0D 54 59 41 0D 45 4F 52 |C #0.PHA.TYA.EOR| 00002B30: 20 23 24 46 46 0D 41 44 43 20 23 30 0D 54 41 59 | #$FF.ADC #0.TAY| 00002B40: 0D 50 4C 41 0D 49 4D 55 4C 35 20 52 54 53 0D 49 |.PLA.IMUL5 RTS.I| 00002B50: 4E 56 41 52 47 20 53 45 43 0D 4C 44 41 20 41 52 |NVARG SEC.LDA AR| 00002B60: 47 2B 33 0D 45 4F 52 20 23 24 46 46 0D 41 44 43 |G+3.EOR #$FF.ADC| 00002B70: 20 23 30 0D 53 54 41 20 41 52 47 2B 33 0D 4C 44 | #0.STA ARG+3.LD| 00002B80: 41 20 41 52 47 2B 34 0D 45 4F 52 20 23 24 46 46 |A ARG+4.EOR #$FF| 00002B90: 0D 41 44 43 20 23 30 0D 53 54 41 20 41 52 47 2B |.ADC #0.STA ARG+| 00002BA0: 34 0D 52 54 53 0D 49 4E 56 46 41 43 20 53 45 43 |4.RTS.INVFAC SEC| 00002BB0: 0D 4C 44 41 20 46 41 43 2B 33 0D 45 4F 52 20 23 |.LDA FAC+3.EOR #| 00002BC0: 24 46 46 0D 41 44 43 20 23 30 0D 53 54 41 20 46 |$FF.ADC #0.STA F| 00002BD0: 41 43 2B 33 0D 4C 44 41 20 46 41 43 2B 34 0D 45 |AC+3.LDA FAC+4.E| 00002BE0: 4F 52 20 23 24 46 46 0D 41 44 43 20 23 30 0D 53 |OR #$FF.ADC #0.S| 00002BF0: 54 41 20 46 41 43 2B 34 0D 52 54 53 0D 46 34 32 |TA FAC+4.RTS.F42| 00002C00: 32 20 4A 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 |2 JSR INTFAC.JMP| 00002C10: 20 46 34 32 30 0D 46 35 32 31 20 4A 53 52 20 49 | F420.F521 JSR I| 00002C20: 4E 54 55 53 54 0D 46 35 32 30 20 53 54 41 20 46 |NTUST.F520 STA F| 00002C30: 41 43 2B 33 0D 53 54 59 20 46 41 43 2B 34 0D 54 |AC+3.STY FAC+4.T| 00002C40: 59 41 0D 45 4F 52 20 41 52 47 2B 34 0D 53 54 41 |YA.EOR ARG+4.STA| 00002C50: 20 43 4D 50 4D 53 4B 0D 4C 44 41 20 41 52 47 2B | CMPMSK.LDA ARG+| 00002C60: 34 0D 42 50 4C 20 2A 2B 35 0D 4A 53 52 20 49 4E |4.BPL *+5.JSR IN| 00002C70: 56 41 52 47 0D 4C 44 41 20 46 41 43 2B 34 0D 42 |VARG.LDA FAC+4.B| 00002C80: 50 4C 20 2A 2B 35 0D 4A 53 52 20 49 4E 56 46 41 |PL *+5.JSR INVFA| 00002C90: 43 0D 4C 44 41 20 46 41 43 2B 33 0D 53 54 41 20 |C.LDA FAC+3.STA | 00002CA0: 46 41 43 0D 4C 44 59 20 46 41 43 2B 34 0D 53 54 |FAC.LDY FAC+4.ST| 00002CB0: 59 20 46 41 43 2B 31 0D 4A 53 52 20 49 54 45 53 |Y FAC+1.JSR ITES| 00002CC0: 54 0D 42 4E 45 20 2A 2B 37 0D 4C 44 58 20 23 44 |T.BNE *+7.LDX #D| 00002CD0: 49 56 5A 45 52 0D 4A 4D 50 20 45 52 52 4F 52 0D |IVZER.JMP ERROR.| 00002CE0: 4C 44 41 20 23 5A 45 52 4F 0D 53 54 41 20 41 52 |LDA #ZERO.STA AR| 00002CF0: 47 2B 31 0D 53 54 41 20 41 52 47 2B 32 0D 49 44 |G+1.STA ARG+2.ID| 00002D00: 49 56 31 0D 4C 44 41 20 46 41 43 2B 31 0D 43 4D |IV1.LDA FAC+1.CM| 00002D10: 50 20 41 52 47 2B 34 0D 42 43 43 20 49 44 49 56 |P ARG+4.BCC IDIV| 00002D20: 32 0D 42 45 51 20 2A 2B 35 0D 4A 4D 50 20 49 44 |2.BEQ *+5.JMP ID| 00002D30: 49 56 33 0D 4C 44 41 20 46 41 43 0D 43 4D 50 20 |IV3.LDA FAC.CMP | 00002D40: 41 52 47 2B 33 0D 42 45 51 20 49 44 49 56 32 0D |ARG+3.BEQ IDIV2.| 00002D50: 42 43 53 20 49 44 49 56 33 0D 49 44 49 56 32 0D |BCS IDIV3.IDIV2.| 00002D60: 43 4C 43 0D 52 4F 4C 20 46 41 43 0D 52 4F 4C 20 |CLC.ROL FAC.ROL | 00002D70: 46 41 43 2B 31 0D 4A 4D 50 20 49 44 49 56 31 0D |FAC+1.JMP IDIV1.| 00002D80: 49 44 49 56 33 0D 4C 44 41 20 46 41 43 0D 43 4D |IDIV3.LDA FAC.CM| 00002D90: 50 20 46 41 43 2B 33 0D 42 4E 45 20 49 44 49 56 |P FAC+3.BNE IDIV| 00002DA0: 34 0D 4C 44 41 20 46 41 43 2B 31 0D 43 4D 50 20 |4.LDA FAC+1.CMP | 00002DB0: 46 41 43 2B 34 0D 42 4E 45 20 49 44 49 56 34 0D |FAC+4.BNE IDIV4.| 00002DC0: 4A 4D 50 20 49 44 49 56 37 0D 49 44 49 56 34 0D |JMP IDIV7.IDIV4.| 00002DD0: 43 4C 43 0D 52 4F 4C 20 41 52 47 2B 31 0D 52 4F |CLC.ROL ARG+1.RO| 00002DE0: 4C 20 41 52 47 2B 32 0D 43 4C 43 0D 52 4F 52 20 |L ARG+2.CLC.ROR | 00002DF0: 46 41 43 2B 31 0D 52 4F 52 20 46 41 43 0D 4C 44 |FAC+1.ROR FAC.LD| 00002E00: 41 20 46 41 43 2B 31 0D 43 4D 50 20 41 52 47 2B |A FAC+1.CMP ARG+| 00002E10: 34 0D 42 43 43 20 49 44 49 56 36 0D 42 45 51 20 |4.BCC IDIV6.BEQ | 00002E20: 49 44 49 56 35 0D 42 43 53 20 49 44 49 56 33 0D |IDIV5.BCS IDIV3.| 00002E30: 49 44 49 56 35 20 4C 44 41 20 46 41 43 0D 43 4D |IDIV5 LDA FAC.CM| 00002E40: 50 20 41 52 47 2B 33 0D 42 45 51 20 49 44 49 56 |P ARG+3.BEQ IDIV| 00002E50: 36 0D 42 43 53 20 49 44 49 56 33 0D 49 44 49 56 |6.BCS IDIV3.IDIV| 00002E60: 36 20 53 45 43 0D 4C 44 41 20 41 52 47 2B 33 0D |6 SEC.LDA ARG+3.| 00002E70: 53 42 43 20 46 41 43 0D 53 54 41 20 41 52 47 2B |SBC FAC.STA ARG+| 00002E80: 33 0D 4C 44 41 20 41 52 47 2B 34 0D 53 42 43 20 |3.LDA ARG+4.SBC | 00002E90: 46 41 43 2B 31 0D 53 54 41 20 41 52 47 2B 34 0D |FAC+1.STA ARG+4.| 00002EA0: 43 4C 43 0D 49 4E 43 20 41 52 47 2B 31 0D 42 4E |CLC.INC ARG+1.BN| 00002EB0: 45 20 2A 2B 34 0D 49 4E 43 20 41 52 47 2B 33 0D |E *+4.INC ARG+3.| 00002EC0: 4A 4D 50 20 49 44 49 56 33 0D 46 35 32 32 20 4A |JMP IDIV3.F522 J| 00002ED0: 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 20 46 35 |SR INTFAC.JMP F5| 00002EE0: 32 30 0D 46 36 32 31 20 4A 53 52 20 49 4E 54 55 |20.F621 JSR INTU| 00002EF0: 53 54 0D 46 36 32 30 20 4A 53 52 20 49 43 48 45 |ST.F620 JSR ICHE| 00002F00: 43 4B 0D 43 4D 50 20 23 30 0D 42 45 51 20 49 50 |CK.CMP #0.BEQ IP| 00002F10: 4F 57 33 0D 53 54 41 20 43 4F 55 4E 54 0D 44 45 |OW3.STA COUNT.DE| 00002F20: 43 20 43 4F 55 4E 54 0D 4C 44 41 20 41 52 47 2B |C COUNT.LDA ARG+| 00002F30: 33 0D 53 54 41 20 46 41 43 2B 31 0D 4C 44 59 20 |3.STA FAC+1.LDY | 00002F40: 41 52 47 2B 34 0D 53 54 59 20 46 41 43 2B 32 0D |ARG+4.STY FAC+2.| 00002F50: 49 50 4F 57 31 20 44 45 43 20 43 4F 55 4E 54 0D |IPOW1 DEC COUNT.| 00002F60: 42 4D 49 20 49 50 4F 57 32 0D 4C 44 58 20 46 41 |BMI IPOW2.LDX FA| 00002F70: 43 2B 31 0D 53 54 58 20 41 52 47 2B 33 0D 4C 44 |C+1.STX ARG+3.LD| 00002F80: 58 20 46 41 43 2B 32 0D 53 54 58 20 41 52 47 2B |X FAC+2.STX ARG+| 00002F90: 34 0D 4A 53 52 20 46 34 32 30 0D 4A 4D 50 20 49 |4.JSR F420.JMP I| 00002FA0: 50 4F 57 31 0D 49 50 4F 57 32 20 52 54 53 0D 46 |POW1.IPOW2 RTS.F| 00002FB0: 36 32 32 20 4A 53 52 20 49 4E 54 46 41 43 0D 4A |622 JSR INTFAC.J| 00002FC0: 4D 50 20 46 36 32 30 0D 49 50 4F 57 33 20 4C 44 |MP F620.IPOW3 LD| 00002FD0: 41 20 23 31 0D 4C 44 59 20 23 5A 45 52 4F 0D 52 |A #1.LDY #ZERO.R| 00002FE0: 54 53 0D 46 37 32 34 20 4A 53 52 20 46 4C 50 53 |TS.F724 JSR FLPS| 00002FF0: 49 0D 46 37 32 31 20 4A 53 52 20 49 4E 54 55 53 |I.F721 JSR INTUS| 00003000: 54 0D 4A 4D 50 20 46 37 32 30 0D 46 37 32 32 20 |T.JMP F720.F722 | 00003010: 4A 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 20 46 |JSR INTFAC.JMP F| 00003020: 37 32 30 0D 46 37 32 39 20 4A 53 52 20 52 4C 4F |720.F729 JSR RLO| 00003030: 41 44 0D 4A 53 52 20 46 4C 50 53 49 0D 46 37 32 |AD.JSR FLPSI.F72| 00003040: 30 20 41 4E 44 20 41 52 47 2B 33 0D 50 48 41 0D |0 AND ARG+3.PHA.| 00003050: 54 59 41 0D 41 4E 44 20 41 52 47 2B 34 0D 54 41 |TYA.AND ARG+4.TA| 00003060: 59 0D 50 4C 41 0D 52 54 53 0D 46 38 32 34 20 4A |Y.PLA.RTS.F824 J| 00003070: 53 52 20 46 4C 50 53 49 0D 46 38 32 31 20 4A 53 |SR FLPSI.F821 JS| 00003080: 52 20 49 4E 54 55 53 54 0D 4A 4D 50 20 46 38 32 |R INTUST.JMP F82| 00003090: 30 0D 46 38 32 32 20 4A 53 52 20 49 4E 54 46 41 |0.F822 JSR INTFA| 000030A0: 43 0D 4A 4D 50 20 46 38 32 30 0D 46 38 32 39 20 |C.JMP F820.F829 | 000030B0: 4A 53 52 20 52 4C 4F 41 44 0D 4A 53 52 20 46 4C |JSR RLOAD.JSR FL| 000030C0: 50 53 49 0D 46 38 32 30 20 4F 52 41 20 41 52 47 |PSI.F820 ORA ARG| 000030D0: 2B 33 0D 50 48 41 0D 54 59 41 0D 4F 52 41 20 41 |+3.PHA.TYA.ORA A| 000030E0: 52 47 2B 34 0D 54 41 59 0D 50 4C 41 0D 52 54 53 |RG+4.TAY.PLA.RTS| 000030F0: 0D 46 39 33 31 20 53 54 58 20 43 4D 50 4D 53 4B |.F931 STX CMPMSK| 00003100: 0D 4A 53 52 20 4D 54 4F 46 41 32 0D 4A 4D 50 20 |.JSR MTOFA2.JMP | 00003110: 46 39 33 30 41 0D 46 39 33 35 20 53 54 58 20 43 |F930A.F935 STX C| 00003120: 4D 50 4D 53 4B 0D 4A 53 52 20 49 4E 54 46 4C 50 |MPMSK.JSR INTFLP| 00003130: 0D 4A 4D 50 20 46 39 33 32 41 0D 46 39 33 32 20 |.JMP F932A.F932 | 00003140: 53 54 58 20 43 4D 50 4D 53 4B 0D 46 39 33 32 41 |STX CMPMSK.F932A| 00003150: 20 4A 53 52 20 46 4C 50 55 53 54 0D 4A 4D 50 20 | JSR FLPUST.JMP | 00003160: 46 39 33 30 41 0D 46 39 33 30 20 53 54 58 20 43 |F930A.F930 STX C| 00003170: 4D 50 4D 53 4B 0D 46 39 33 30 41 20 4C 44 41 20 |MPMSK.F930A LDA | 00003180: 41 52 47 2B 35 0D 4F 52 41 20 23 24 37 46 0D 41 |ARG+5.ORA #$7F.A| 00003190: 4E 44 20 41 52 47 2B 31 0D 53 54 41 20 41 52 47 |ND ARG+1.STA ARG| 000031A0: 2B 31 0D 4C 44 41 20 23 3C 41 52 47 0D 4C 44 59 |+1.LDA #<ARG.LDY| 000031B0: 20 23 3E 41 52 47 0D 4A 53 52 20 46 43 4F 4D 50 | #>ARG.JSR FCOMP| 000031C0: 0D 54 41 58 0D 4A 4D 50 20 43 4F 4D 50 41 31 0D |.TAX.JMP COMPA1.| 000031D0: 46 39 33 33 20 53 54 58 20 43 4D 50 4D 53 4B 0D |F933 STX CMPMSK.| 000031E0: 4A 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 20 46 |JSR INTFAC.JMP F| 000031F0: 39 33 39 41 0D 46 39 33 39 20 53 54 58 20 43 4D |939A.F939 STX CM| 00003200: 50 4D 53 4B 0D 46 39 33 39 41 20 4A 53 52 20 52 |PMSK.F939A JSR R| 00003210: 54 4F 46 41 32 0D 4A 53 52 20 49 4E 54 46 4C 50 |TOFA2.JSR INTFLP| 00003220: 0D 4A 4D 50 20 46 39 33 30 41 0D 46 39 33 36 20 |.JMP F930A.F936 | 00003230: 53 54 58 20 43 4D 50 4D 53 4B 0D 4A 53 52 20 52 |STX CMPMSK.JSR R| 00003240: 54 4F 46 41 32 0D 4A 4D 50 20 46 39 33 38 41 0D |TOFA2.JMP F938A.| 00003250: 46 39 33 38 20 53 54 58 20 43 4D 50 4D 53 4B 0D |F938 STX CMPMSK.| 00003260: 46 39 33 38 41 20 4A 53 52 20 52 4C 4F 41 44 0D |F938A JSR RLOAD.| 00003270: 4A 4D 50 20 46 39 33 30 41 0D 46 39 31 33 20 53 |JMP F930A.F913 S| 00003280: 54 58 20 43 4D 50 4D 53 4B 0D 4A 53 52 20 53 54 |TX CMPMSK.JSR ST| 00003290: 4F 46 41 32 0D 4A 4D 50 20 46 39 31 31 41 0D 46 |OFA2.JMP F911A.F| 000032A0: 39 31 31 20 53 54 58 20 43 4D 50 4D 53 4B 0D 46 |911 STX CMPMSK.F| 000032B0: 39 31 31 41 20 4A 53 52 20 49 53 4C 4F 41 44 0D |911A JSR ISLOAD.| 000032C0: 4A 4D 50 20 46 39 31 30 41 0D 46 39 31 32 20 53 |JMP F910A.F912 S| 000032D0: 54 58 20 43 4D 50 4D 53 4B 0D 4A 53 52 20 53 54 |TX CMPMSK.JSR ST| 000032E0: 4F 46 41 32 0D 4A 4D 50 20 46 39 31 37 41 0D 46 |OFA2.JMP F917A.F| 000032F0: 39 31 37 20 53 54 58 20 43 4D 50 4D 53 4B 0D 46 |917 STX CMPMSK.F| 00003300: 39 31 37 41 20 53 54 41 20 46 41 43 2B 33 0D 53 |917A STA FAC+3.S| 00003310: 54 59 20 46 41 43 2B 34 0D 4A 4D 50 20 46 39 31 |TY FAC+4.JMP F91| 00003320: 30 41 0D 46 39 31 30 20 53 54 58 20 43 4D 50 4D |0A.F910 STX CMPM| 00003330: 53 4B 0D 46 39 31 30 41 20 4A 53 52 20 46 52 45 |SK.F910A JSR FRE| 00003340: 53 54 52 0D 53 54 41 20 46 41 43 0D 53 54 58 20 |STR.STA FAC.STX | 00003350: 46 41 43 2B 31 0D 53 54 59 20 46 41 43 2B 32 0D |FAC+1.STY FAC+2.| 00003360: 4C 44 41 20 41 52 47 2B 33 0D 4C 44 59 20 41 52 |LDA ARG+3.LDY AR| 00003370: 47 2B 34 0D 4A 53 52 20 46 52 45 53 54 52 2B 34 |G+4.JSR FRESTR+4| 00003380: 0D 53 54 58 20 41 52 47 2B 33 0D 53 54 59 20 41 |.STX ARG+3.STY A| 00003390: 52 47 2B 34 0D 54 41 58 0D 53 45 43 0D 53 42 43 |RG+4.TAX.SEC.SBC| 000033A0: 20 46 41 43 0D 42 45 51 20 43 4D 50 31 0D 4C 44 | FAC.BEQ CMP1.LD| 000033B0: 41 20 23 31 0D 42 43 43 20 43 4D 50 31 0D 4C 44 |A #1.BCC CMP1.LD| 000033C0: 58 20 46 41 43 0D 4C 44 41 20 23 24 46 46 0D 43 |X FAC.LDA #$FF.C| 000033D0: 4D 50 31 20 53 54 41 20 46 41 43 2B 35 0D 4C 44 |MP1 STA FAC+5.LD| 000033E0: 59 20 23 24 46 46 0D 49 4E 58 0D 43 4D 50 32 20 |Y #$FF.INX.CMP2 | 000033F0: 49 4E 59 0D 44 45 58 0D 42 4E 45 20 43 4D 50 33 |INY.DEX.BNE CMP3| 00003400: 0D 4C 44 58 20 46 41 43 2B 35 0D 43 4F 4D 50 41 |.LDX FAC+5.COMPA| 00003410: 31 0D 42 4D 49 20 43 4D 50 34 0D 43 4C 43 0D 42 |1.BMI CMP4.CLC.B| 00003420: 43 43 20 43 4D 50 34 0D 43 4D 50 33 20 4C 44 41 |CC CMP4.CMP3 LDA| 00003430: 20 28 41 52 47 2B 33 29 2C 59 0D 43 4D 50 20 28 | (ARG+3),Y.CMP (| 00003440: 46 41 43 2B 31 29 2C 59 0D 42 45 51 20 43 4D 50 |FAC+1),Y.BEQ CMP| 00003450: 32 0D 4C 44 58 20 23 24 46 46 0D 42 43 53 20 43 |2.LDX #$FF.BCS C| 00003460: 4D 50 34 0D 4C 44 58 20 23 31 0D 43 4D 50 34 20 |MP4.LDX #1.CMP4 | 00003470: 49 4E 58 0D 54 58 41 0D 52 4F 4C 20 41 0D 43 4F |INX.TXA.ROL A.CO| 00003480: 4D 50 41 32 20 41 4E 44 20 43 4D 50 4D 53 4B 0D |MPA2 AND CMPMSK.| 00003490: 42 45 51 20 43 4D 50 35 0D 4C 44 41 20 23 24 46 |BEQ CMP5.LDA #$F| 000034A0: 46 0D 43 4D 50 35 20 54 41 59 0D 52 54 53 0D 46 |F.CMP5 TAY.RTS.F| 000034B0: 39 31 34 20 53 54 58 20 43 4D 50 4D 53 4B 0D 53 |914 STX CMPMSK.S| 000034C0: 54 41 20 41 52 47 2B 33 0D 53 54 59 20 41 52 47 |TA ARG+3.STY ARG| 000034D0: 2B 34 0D 4A 4D 50 20 46 39 31 30 41 0D 46 39 31 |+4.JMP F910A.F91| 000034E0: 36 20 53 54 58 20 43 4D 50 4D 53 4B 0D 4A 53 52 |6 STX CMPMSK.JSR| 000034F0: 20 53 54 52 55 53 54 0D 4A 4D 50 20 46 39 31 30 | STRUST.JMP F910| 00003500: 41 0D 46 39 32 31 20 53 54 58 20 43 4D 50 4D 53 |A.F921 STX CMPMS| 00003510: 4B 0D 46 39 32 31 41 0D 4A 53 52 20 49 4E 54 55 |K.F921A.JSR INTU| 00003520: 53 54 0D 4A 4D 50 20 46 39 32 30 41 0D 46 39 32 |ST.JMP F920A.F92| 00003530: 30 20 53 54 58 20 43 4D 50 4D 53 4B 0D 46 39 32 |0 STX CMPMSK.F92| 00003540: 30 41 20 53 54 41 20 46 41 43 2B 33 0D 53 54 59 |0A STA FAC+3.STY| 00003550: 20 46 41 43 2B 34 0D 53 45 43 0D 4C 44 41 20 41 | FAC+4.SEC.LDA A| 00003560: 52 47 2B 33 0D 53 42 43 20 46 41 43 2B 33 0D 53 |RG+3.SBC FAC+3.S| 00003570: 54 41 20 46 41 43 2B 33 0D 4C 44 41 20 41 52 47 |TA FAC+3.LDA ARG| 00003580: 2B 34 0D 53 42 43 20 46 41 43 2B 34 0D 42 50 4C |+4.SBC FAC+4.BPL| 00003590: 20 49 43 4F 4D 50 32 0D 4C 44 41 20 23 34 0D 42 | ICOMP2.LDA #4.B| 000035A0: 56 43 20 43 4F 4D 50 41 32 0D 4C 44 41 20 23 31 |VC COMPA2.LDA #1| 000035B0: 0D 42 4E 45 20 43 4F 4D 50 41 32 0D 49 43 4F 4D |.BNE COMPA2.ICOM| 000035C0: 50 32 20 42 4E 45 20 49 43 4F 4D 50 34 0D 4C 44 |P2 BNE ICOMP4.LD| 000035D0: 41 20 46 41 43 2B 33 0D 42 4E 45 20 49 43 4F 4D |A FAC+3.BNE ICOM| 000035E0: 50 34 0D 4C 44 41 20 23 32 0D 42 4E 45 20 43 4F |P4.LDA #2.BNE CO| 000035F0: 4D 50 41 32 0D 49 43 4F 4D 50 34 20 4C 44 41 20 |MPA2.ICOMP4 LDA | 00003600: 23 31 0D 42 56 43 20 43 4F 4D 50 41 32 0D 4C 44 |#1.BVC COMPA2.LD| 00003610: 41 20 23 34 0D 42 4E 45 20 43 4F 4D 50 41 32 0D |A #4.BNE COMPA2.| 00003620: 46 39 32 32 20 53 54 58 20 43 4D 50 4D 53 4B 0D |F922 STX CMPMSK.| 00003630: 4A 53 52 20 49 4E 54 46 41 43 0D 4A 4D 50 20 46 |JSR INTFAC.JMP F| 00003640: 39 32 30 41 0D 50 4F 4B 45 31 52 20 3D 20 47 45 |920A.POKE1R = GE| 00003650: 54 41 44 52 0D 50 4F 4B 45 32 52 20 4A 53 52 20 |TADR.POKE2R JSR | 00003660: 43 4F 4E 56 0D 53 54 41 20 28 50 4F 4B 41 44 52 |CONV.STA (POKADR| 00003670: 29 2C 59 0D 52 54 53 0D 50 4F 4B 45 32 49 20 4A |),Y.RTS.POKE2I J| 00003680: 53 52 20 49 43 48 45 43 4B 0D 53 54 41 20 28 50 |SR ICHECK.STA (P| 00003690: 4F 4B 41 44 52 29 2C 59 0D 52 54 53 0D 4F 4E 47 |OKADR),Y.RTS.ONG| 000036A0: 4F 54 4F 20 4C 44 58 20 23 5A 45 52 4F 0D 42 45 |OTO LDX #ZERO.BE| 000036B0: 51 20 4F 4E 47 4F 30 0D 4F 4E 47 4F 53 55 20 4C |Q ONGO0.ONGOSU L| 000036C0: 44 58 20 23 32 35 35 0D 4F 4E 47 4F 30 20 53 54 |DX #255.ONGO0 ST| 000036D0: 41 20 4A 4D 50 45 52 2B 31 0D 53 54 59 20 4A 4D |A JMPER+1.STY JM| 000036E0: 50 45 52 2B 32 0D 54 58 41 0D 50 48 41 0D 4A 53 |PER+2.TXA.PHA.JS| 000036F0: 52 20 43 4F 4E 56 0D 4F 4E 47 4F 33 20 43 4D 50 |R CONV.ONGO3 CMP| 00003700: 20 23 5A 45 52 4F 0D 42 45 51 20 4F 4E 47 4F 32 | #ZERO.BEQ ONGO2| 00003710: 0D 4C 44 59 20 23 5A 45 52 4F 0D 4C 44 41 20 28 |.LDY #ZERO.LDA (| 00003720: 4A 4D 50 45 52 2B 31 29 2C 59 0D 53 45 43 0D 53 |JMPER+1),Y.SEC.S| 00003730: 42 43 20 46 41 43 2B 34 0D 42 43 43 20 4F 4E 47 |BC FAC+4.BCC ONG| 00003740: 4F 32 0D 41 44 43 20 23 5A 45 52 4F 0D 52 4F 4C |O2.ADC #ZERO.ROL| 00003750: 20 41 0D 53 54 41 20 56 41 52 50 4E 54 0D 53 45 | A.STA VARPNT.SE| 00003760: 43 0D 4C 44 41 20 4A 4D 50 45 52 2B 31 0D 53 42 |C.LDA JMPER+1.SB| 00003770: 43 20 56 41 52 50 4E 54 0D 53 54 41 20 4A 4D 50 |C VARPNT.STA JMP| 00003780: 45 52 2B 31 0D 4C 44 41 20 4A 4D 50 45 52 2B 32 |ER+1.LDA JMPER+2| 00003790: 0D 53 42 43 20 23 5A 45 52 4F 0D 53 54 41 20 4A |.SBC #ZERO.STA J| 000037A0: 4D 50 45 52 2B 32 0D 4C 44 59 20 23 5A 45 52 4F |MPER+2.LDY #ZERO| 000037B0: 0D 4C 44 41 20 28 4A 4D 50 45 52 2B 31 29 2C 59 |.LDA (JMPER+1),Y| 000037C0: 0D 54 41 58 0D 49 4E 59 0D 4C 44 41 20 28 4A 4D |.TAX.INY.LDA (JM| 000037D0: 50 45 52 2B 31 29 2C 59 0D 53 54 41 20 4A 4D 50 |PER+1),Y.STA JMP| 000037E0: 45 52 2B 32 0D 53 54 58 20 4A 4D 50 45 52 2B 31 |ER+2.STX JMPER+1| 000037F0: 0D 50 4C 41 0D 42 4D 49 20 4F 4E 47 4F 31 0D 50 |.PLA.BMI ONGO1.P| 00003800: 4C 41 0D 50 4C 41 0D 4A 4D 50 20 28 4A 4D 50 45 |LA.PLA.JMP (JMPE| 00003810: 52 2B 31 29 0D 4F 4E 47 4F 31 20 4A 4D 50 20 47 |R+1).ONGO1 JMP G| 00003820: 4F 53 55 42 32 0D 4F 4E 47 4F 32 0D 50 4C 41 0D |OSUB2.ONGO2.PLA.| 00003830: 52 54 53 0D 49 4F 4E 47 4F 54 20 4C 44 58 20 23 |RTS.IONGOT LDX #| 00003840: 5A 45 52 4F 0D 42 45 51 20 4F 4E 47 4F 34 0D 49 |ZERO.BEQ ONGO4.I| 00003850: 4F 4E 47 4F 53 20 4C 44 58 20 23 32 35 35 0D 4F |ONGOS LDX #255.O| 00003860: 4E 47 4F 34 20 53 54 41 20 4A 4D 50 45 52 2B 31 |NGO4 STA JMPER+1| 00003870: 0D 53 54 59 20 4A 4D 50 45 52 2B 32 0D 53 54 58 |.STY JMPER+2.STX| 00003880: 20 46 41 43 2B 33 0D 50 4C 41 0D 53 54 41 20 56 | FAC+3.PLA.STA V| 00003890: 41 52 50 4E 54 0D 50 4C 41 0D 53 54 41 20 56 41 |ARPNT.PLA.STA VA| 000038A0: 52 50 4E 54 2B 31 0D 50 4C 41 0D 54 41 59 0D 53 |RPNT+1.PLA.TAY.S| 000038B0: 54 41 20 46 41 43 2B 33 0D 50 4C 41 0D 54 41 58 |TA FAC+3.PLA.TAX| 000038C0: 0D 53 54 41 20 46 41 43 2B 34 0D 4C 44 41 20 56 |.STA FAC+4.LDA V| 000038D0: 41 52 50 4E 54 2B 31 0D 50 48 41 0D 4C 44 41 20 |ARPNT+1.PHA.LDA | 000038E0: 56 41 52 50 4E 54 0D 50 48 41 0D 4C 44 41 20 46 |VARPNT.PHA.LDA F| 000038F0: 41 43 2B 33 0D 50 48 41 0D 54 58 41 0D 4A 53 52 |AC+3.PHA.TXA.JSR| 00003900: 20 49 43 48 45 43 4B 0D 4A 4D 50 20 4F 4E 47 4F | ICHECK.JMP ONGO| 00003910: 33 0D 46 4F 52 31 20 53 54 41 20 46 4F 52 50 4E |3.FOR1 STA FORPN| 00003920: 54 0D 53 54 59 20 46 4F 52 50 4E 54 2B 31 0D 54 |T.STY FORPNT+1.T| 00003930: 41 58 0D 4A 53 52 20 54 4F 41 52 52 38 2B 34 0D |AX.JSR TOARR8+4.| 00003940: 54 53 58 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 |TSX.PLA.STA JMPE| 00003950: 52 2B 31 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 |R+1.PLA.STA JMPE| 00003960: 52 2B 32 0D 4A 4D 50 20 46 4F 52 31 30 31 0D 46 |R+2.JMP FOR101.F| 00003970: 4F 52 32 49 20 4A 53 52 20 49 4E 54 46 4C 50 0D |OR2I JSR INTFLP.| 00003980: 46 4F 52 32 52 20 50 4C 41 0D 53 54 41 20 49 4E |FOR2R PLA.STA IN| 00003990: 44 45 58 0D 50 4C 41 0D 53 54 41 20 49 4E 44 45 |DEX.PLA.STA INDE| 000039A0: 58 2B 31 0D 49 4E 43 20 49 4E 44 45 58 0D 42 4E |X+1.INC INDEX.BN| 000039B0: 45 20 2A 2B 34 0D 49 4E 43 20 49 4E 44 45 58 2B |E *+4.INC INDEX+| 000039C0: 31 0D 4C 44 41 20 46 41 43 2B 35 0D 4F 52 41 20 |1.LDA FAC+5.ORA | 000039D0: 23 31 32 37 0D 41 4E 44 20 46 41 43 2B 31 0D 53 |#127.AND FAC+1.S| 000039E0: 54 41 20 46 41 43 2B 31 0D 4A 4D 50 20 34 34 36 |TA FAC+1.JMP 446| 000039F0: 31 31 0D 46 4F 52 33 49 20 4A 53 52 20 49 4E 54 |11.FOR3I JSR INT| 00003A00: 46 4C 50 0D 46 4F 52 33 52 20 50 4C 41 0D 53 54 |FLP.FOR3R PLA.ST| 00003A10: 41 20 4A 4D 50 45 52 2B 31 0D 50 4C 41 0D 53 54 |A JMPER+1.PLA.ST| 00003A20: 41 20 4A 4D 50 45 52 2B 32 0D 46 4F 52 33 30 31 |A JMPER+2.FOR301| 00003A30: 20 4A 53 52 20 34 38 31 37 31 0D 4A 53 52 20 34 | JSR 48171.JSR 4| 00003A40: 34 36 30 30 0D 4A 4D 50 20 46 4F 52 33 30 32 0D |4600.JMP FOR302.| 00003A50: 46 4F 52 33 42 20 50 4C 41 0D 53 54 41 20 4A 4D |FOR3B PLA.STA JM| 00003A60: 50 45 52 2B 31 0D 50 4C 41 0D 53 54 41 20 4A 4D |PER+1.PLA.STA JM| 00003A70: 50 45 52 2B 32 0D 4C 44 41 20 23 3C 4F 4E 45 0D |PER+2.LDA #<ONE.| 00003A80: 4C 44 59 20 23 3E 4F 4E 45 0D 4A 53 52 20 52 4C |LDY #>ONE.JSR RL| 00003A90: 4F 41 44 0D 4A 4D 50 20 46 4F 52 33 30 31 0D 46 |OAD.JMP FOR301.F| 00003AA0: 4F 52 31 46 20 53 54 41 20 46 4F 52 50 4E 54 0D |OR1F STA FORPNT.| 00003AB0: 53 54 59 20 46 4F 52 50 4E 54 2B 31 0D 50 4C 41 |STY FORPNT+1.PLA| 00003AC0: 0D 53 54 41 20 4A 4D 50 45 52 2B 31 0D 50 4C 41 |.STA JMPER+1.PLA| 00003AD0: 0D 53 54 41 20 4A 4D 50 45 52 2B 32 0D 54 53 58 |.STA JMPER+2.TSX| 00003AE0: 0D 50 4C 41 0D 4C 44 59 20 23 5A 45 52 4F 0D 53 |.PLA.LDY #ZERO.S| 00003AF0: 54 41 20 28 46 4F 52 50 4E 54 29 2C 59 0D 49 4E |TA (FORPNT),Y.IN| 00003B00: 59 0D 50 4C 41 0D 53 54 41 20 28 46 4F 52 50 4E |Y.PLA.STA (FORPN| 00003B10: 54 29 2C 59 0D 46 4F 52 31 30 31 20 54 58 53 0D |T),Y.FOR101 TXS.| 00003B20: 4A 53 52 20 46 4E 44 46 4F 52 0D 42 4E 45 20 2A |JSR FNDFOR.BNE *| 00003B30: 2B 37 0D 54 58 41 0D 41 44 43 20 23 31 35 0D 54 |+7.TXA.ADC #15.T| 00003B40: 41 58 0D 54 58 53 0D 50 4C 41 0D 50 4C 41 0D 4C |AX.TXS.PLA.PLA.L| 00003B50: 44 41 20 23 39 0D 4A 53 52 20 34 31 39 37 39 0D |DA #9.JSR 41979.| 00003B60: 4C 44 41 20 4A 4D 50 45 52 2B 32 0D 50 48 41 0D |LDA JMPER+2.PHA.| 00003B70: 4C 44 41 20 4A 4D 50 45 52 2B 31 0D 50 48 41 0D |LDA JMPER+1.PHA.| 00003B80: 4C 44 41 20 4C 49 4E 45 2B 31 0D 50 48 41 0D 4C |LDA LINE+1.PHA.L| 00003B90: 44 41 20 4C 49 4E 45 0D 50 48 41 0D 4C 44 41 20 |DA LINE.PHA.LDA | 00003BA0: 4A 4D 50 45 52 2B 32 0D 50 48 41 0D 4C 44 41 20 |JMPER+2.PHA.LDA | 00003BB0: 4A 4D 50 45 52 2B 31 0D 50 48 41 0D 52 54 53 0D |JMPER+1.PHA.RTS.| 00003BC0: 46 4F 52 32 52 46 20 4A 53 52 20 46 4C 50 49 4E |FOR2RF JSR FLPIN| 00003BD0: 54 0D 46 4F 52 32 49 46 20 54 41 58 0D 50 4C 41 |T.FOR2IF TAX.PLA| 00003BE0: 0D 53 54 41 20 4A 4D 50 45 52 2B 31 0D 50 4C 41 |.STA JMPER+1.PLA| 00003BF0: 0D 53 54 41 20 4A 4D 50 45 52 2B 32 0D 54 58 41 |.STA JMPER+2.TXA| 00003C00: 0D 50 48 41 0D 54 59 41 0D 50 48 41 0D 4C 44 41 |.PHA.TYA.PHA.LDA| 00003C10: 20 23 30 0D 50 48 41 0D 50 48 41 0D 50 48 41 0D | #0.PHA.PHA.PHA.| 00003C20: 4C 44 41 20 4A 4D 50 45 52 2B 32 0D 50 48 41 0D |LDA JMPER+2.PHA.| 00003C30: 4C 44 41 20 4A 4D 50 45 52 2B 31 0D 50 48 41 0D |LDA JMPER+1.PHA.| 00003C40: 52 54 53 0D 46 4F 52 33 52 46 20 4A 53 52 20 46 |RTS.FOR3RF JSR F| 00003C50: 4C 50 49 4E 54 0D 4A 4D 50 20 46 4F 52 33 49 46 |LPINT.JMP FOR3IF| 00003C60: 0D 46 4F 52 33 42 46 20 4C 44 41 20 23 3C 31 0D |.FOR3BF LDA #<1.| 00003C70: 4C 44 59 20 23 3E 31 0D 46 4F 52 33 49 46 20 54 |LDY #>1.FOR3IF T| 00003C80: 41 58 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 |AX.PLA.STA JMPER| 00003C90: 2B 31 0D 50 4C 41 0D 53 54 41 20 4A 4D 50 45 52 |+1.PLA.STA JMPER| 00003CA0: 2B 32 0D 54 58 41 0D 50 48 41 0D 54 59 41 0D 50 |+2.TXA.PHA.TYA.P| 00003CB0: 48 41 0D 42 4D 49 20 2A 2B 35 0D 4C 44 41 20 23 |HA.BMI *+5.LDA #| 00003CC0: 31 0D 2E 42 59 54 45 20 24 32 43 0D 4C 44 41 20 |1..BYTE $2C.LDA | 00003CD0: 23 34 0D 50 48 41 0D 4C 44 41 20 23 30 0D 50 48 |#4.PHA.LDA #0.PH| 00003CE0: 41 0D 50 48 41 0D 50 48 41 0D 46 4F 52 33 30 32 |A.PHA.PHA.FOR302| 00003CF0: 20 4C 44 41 20 46 4F 52 50 4E 54 2B 31 0D 50 48 | LDA FORPNT+1.PH| 00003D00: 41 0D 4C 44 41 20 46 4F 52 50 4E 54 0D 50 48 41 |A.LDA FORPNT.PHA| 00003D10: 0D 4C 44 41 20 23 31 32 39 0D 50 48 41 0D 54 53 |.LDA #129.PHA.TS| 00003D20: 58 0D 4C 44 41 20 4A 4D 50 45 52 2B 32 0D 53 54 |X.LDA JMPER+2.ST| 00003D30: 41 20 32 37 34 2C 58 0D 50 48 41 0D 4C 44 41 20 |A 274,X.PHA.LDA | 00003D40: 4A 4D 50 45 52 2B 31 0D 53 54 41 20 32 37 33 2C |JMPER+1.STA 273,| 00003D50: 58 0D 50 48 41 0D 52 54 53 0D 4E 45 58 54 52 20 |X.PHA.RTS.NEXTR | 00003D60: 53 54 41 20 46 4F 52 50 4E 54 0D 53 54 59 20 46 |STA FORPNT.STY F| 00003D70: 4F 52 50 4E 54 2B 31 0D 4E 45 58 54 30 31 20 54 |ORPNT+1.NEXT01 T| 00003D80: 53 58 0D 50 4C 41 0D 53 54 41 20 54 45 4D 50 53 |SX.PLA.STA TEMPS| 00003D90: 54 0D 50 4C 41 0D 53 54 41 20 54 45 4D 50 53 54 |T.PLA.STA TEMPST| 00003DA0: 2B 31 0D 54 58 53 0D 4A 53 52 20 46 4E 44 46 4F |+1.TXS.JSR FNDFO| 00003DB0: 52 0D 42 45 51 20 2A 2B 37 0D 4C 44 58 20 23 4E |R.BEQ *+7.LDX #N| 00003DC0: 45 58 57 46 4F 0D 4A 4D 50 20 45 52 52 4F 52 0D |EXWFO.JMP ERROR.| 00003DD0: 54 58 53 0D 4C 44 41 20 32 36 30 2C 58 0D 42 4E |TXS.LDA 260,X.BN| 00003DE0: 45 20 2A 2B 35 0D 4A 4D 50 20 4E 45 58 54 30 34 |E *+5.JMP NEXT04| 00003DF0: 0D 54 58 41 0D 43 4C 43 0D 41 44 43 20 23 34 0D |.TXA.CLC.ADC #4.| 00003E00: 50 48 41 0D 41 44 43 20 23 36 0D 53 54 41 20 49 |PHA.ADC #6.STA I| 00003E10: 4E 44 45 58 32 0D 50 4C 41 0D 4C 44 59 20 23 31 |NDEX2.PLA.LDY #1| 00003E20: 0D 4A 53 52 20 52 4C 4F 41 44 0D 54 53 58 0D 4C |.JSR RLOAD.TSX.L| 00003E30: 44 41 20 32 36 35 2C 58 0D 53 54 41 20 46 41 43 |DA 265,X.STA FAC| 00003E40: 2B 35 0D 4C 44 41 20 46 4F 52 50 4E 54 0D 4C 44 |+5.LDA FORPNT.LD| 00003E50: 59 20 46 4F 52 50 4E 54 2B 31 0D 4A 53 52 20 44 |Y FORPNT+1.JSR D| 00003E60: 4F 41 44 44 2D 33 0D 4A 53 52 20 54 4F 41 52 52 |OADD-3.JSR TOARR| 00003E70: 38 0D 4C 44 59 20 23 31 0D 4A 53 52 20 46 43 4F |8.LDY #1.JSR FCO| 00003E80: 4D 50 2B 32 0D 54 53 58 0D 53 45 43 0D 53 42 43 |MP+2.TSX.SEC.SBC| 00003E90: 20 32 36 35 2C 58 0D 42 45 51 20 4C 45 41 56 45 | 265,X.BEQ LEAVE| 00003EA0: 0D 4A 4D 50 20 4E 45 58 54 30 35 0D 4E 45 58 54 |.JMP NEXT05.NEXT| 00003EB0: 20 4C 44 41 20 23 5A 45 52 4F 0D 53 54 41 20 46 | LDA #ZERO.STA F| 00003EC0: 4F 52 50 4E 54 2B 31 0D 4A 4D 50 20 4E 45 58 54 |ORPNT+1.JMP NEXT| 00003ED0: 30 31 0D 4E 45 58 54 49 20 53 54 41 20 46 4F 52 |01.NEXTI STA FOR| 00003EE0: 50 4E 54 0D 53 54 59 20 46 4F 52 50 4E 54 2B 31 |PNT.STY FORPNT+1| 00003EF0: 0D 54 53 58 0D 50 4C 41 0D 53 54 41 20 54 45 4D |.TSX.PLA.STA TEM| 00003F00: 50 53 54 0D 50 4C 41 0D 53 54 41 20 54 45 4D 50 |PST.PLA.STA TEMP| 00003F10: 53 54 2B 31 0D 54 58 53 0D 4A 53 52 20 46 4E 44 |ST+1.TXS.JSR FND| 00003F20: 46 4F 52 0D 42 45 51 20 4E 45 58 54 30 34 0D 4C |FOR.BEQ NEXT04.L| 00003F30: 44 58 20 23 4E 45 58 57 46 4F 0D 4A 4D 50 20 45 |DX #NEXWFO.JMP E| 00003F40: 52 52 4F 52 0D 4E 45 58 54 30 34 20 54 58 53 0D |RROR.NEXT04 TXS.| 00003F50: 4E 45 58 54 30 32 20 4C 44 41 20 32 36 35 2C 58 |NEXT02 LDA 265,X| 00003F60: 0D 53 54 41 20 41 52 47 2B 33 0D 4C 44 41 20 32 |.STA ARG+3.LDA 2| 00003F70: 36 34 2C 58 0D 53 54 41 20 41 52 47 2B 34 0D 4C |64,X.STA ARG+4.L| 00003F80: 44 59 20 23 31 0D 4C 44 41 20 28 46 4F 52 50 4E |DY #1.LDA (FORPN| 00003F90: 54 29 2C 59 0D 50 48 41 0D 44 45 59 0D 4C 44 41 |T),Y.PHA.DEY.LDA| 00003FA0: 20 28 46 4F 52 50 4E 54 29 2C 59 0D 54 41 59 0D | (FORPNT),Y.TAY.| 00003FB0: 50 4C 41 0D 4A 53 52 20 46 32 32 30 0D 53 54 41 |PLA.JSR F220.STA| 00003FC0: 20 41 52 47 2B 33 0D 53 54 59 20 41 52 47 2B 34 | ARG+3.STY ARG+4| 00003FD0: 0D 4A 53 52 20 54 4F 41 52 52 34 0D 54 53 58 0D |.JSR TOARR4.TSX.| 00003FE0: 4C 44 59 20 32 36 39 2C 58 0D 4C 44 41 20 32 37 |LDY 269,X.LDA 27| 00003FF0: 30 2C 58 0D 50 48 41 0D 4C 44 41 20 32 36 33 2C |0,X.PHA.LDA 263,| 00004000: 58 0D 54 41 58 0D 50 4C 41 0D 4A 53 52 20 46 39 |X.TAX.PLA.JSR F9| 00004010: 32 30 0D 42 4E 45 20 4C 45 41 56 45 0D 54 53 58 |20.BNE LEAVE.TSX| 00004020: 0D 4E 45 58 54 30 35 20 4C 44 41 20 32 37 31 2C |.NEXT05 LDA 271,| 00004030: 58 0D 53 54 41 20 4C 49 4E 45 0D 4C 44 41 20 32 |X.STA LINE.LDA 2| 00004040: 37 32 2C 58 0D 53 54 41 20 4C 49 4E 45 2B 31 0D |72,X.STA LINE+1.| 00004050: 4C 44 41 20 32 37 34 2C 58 0D 50 48 41 0D 4C 44 |LDA 274,X.PHA.LD| 00004060: 41 20 32 37 33 2C 58 0D 50 48 41 0D 52 54 53 0D |A 273,X.PHA.RTS.| 00004070: 4C 45 41 56 45 0D 54 53 58 0D 54 58 41 0D 43 4C |LEAVE.TSX.TXA.CL| 00004080: 43 0D 41 44 43 20 23 31 38 0D 54 41 58 0D 54 58 |C.ADC #18.TAX.TX| 00004090: 53 0D 4C 44 41 20 54 45 4D 50 53 54 2B 31 0D 50 |S.LDA TEMPST+1.P| 000040A0: 48 41 0D 4C 44 41 20 54 45 4D 50 53 54 0D 50 48 |HA.LDA TEMPST.PH| 000040B0: 41 0D 52 54 53 0D 47 4F 53 55 42 20 53 54 41 20 |A.RTS.GOSUB STA | 000040C0: 4A 4D 50 45 52 2B 31 0D 53 54 59 20 4A 4D 50 45 |JMPER+1.STY JMPE| 000040D0: 52 2B 32 0D 47 4F 53 55 42 32 0D 4C 44 41 20 4C |R+2.GOSUB2.LDA L| 000040E0: 49 4E 45 2B 31 0D 50 48 41 0D 4C 44 41 20 4C 49 |INE+1.PHA.LDA LI| 000040F0: 4E 45 0D 50 48 41 0D 4C 44 41 20 23 31 34 31 0D |NE.PHA.LDA #141.| 00004100: 50 48 41 0D 4A 4D 50 20 28 4A 4D 50 45 52 2B 31 |PHA.JMP (JMPER+1| 00004110: 29 0D 52 45 54 55 52 4E 20 4C 44 41 20 23 24 46 |).RETURN LDA #$F| 00004120: 46 0D 53 54 41 20 46 4F 52 50 4E 54 2B 31 0D 4A |F.STA FORPNT+1.J| 00004130: 53 52 20 46 4E 44 46 4F 52 0D 54 58 53 0D 43 4D |SR FNDFOR.TXS.CM| 00004140: 50 20 23 31 34 31 0D 42 45 51 20 2A 2B 37 0D 4C |P #141.BEQ *+7.L| 00004150: 44 58 20 23 52 45 54 57 47 4F 0D 4A 4D 50 20 45 |DX #RETWGO.JMP E| 00004160: 52 52 4F 52 0D 50 4C 41 0D 50 4C 41 0D 53 54 41 |RROR.PLA.PLA.STA| 00004170: 20 4C 49 4E 45 0D 50 4C 41 0D 53 54 41 20 4C 49 | LINE.PLA.STA LI| 00004180: 4E 45 2B 31 0D 52 54 53 0D 52 45 53 54 4F 52 20 |NE+1.RTS.RESTOR | 00004190: 4C 44 41 20 23 3C 42 45 47 44 41 54 0D 53 54 41 |LDA #<BEGDAT.STA| 000041A0: 20 44 41 54 50 54 52 0D 4C 44 41 20 23 3E 42 45 | DATPTR.LDA #>BE| 000041B0: 47 44 41 54 0D 53 54 41 20 44 41 54 50 54 52 2B |GDAT.STA DATPTR+| 000041C0: 31 0D 52 54 53 0D 43 4C 52 0D 4C 44 41 20 4D 45 |1.RTS.CLR.LDA ME| 000041D0: 4D 53 49 5A 0D 53 54 41 20 46 52 45 54 4F 50 0D |MSIZ.STA FRETOP.| 000041E0: 4C 44 41 20 4D 45 4D 53 49 5A 2B 31 0D 53 54 41 |LDA MEMSIZ+1.STA| 000041F0: 20 46 52 45 54 4F 50 2B 31 0D 4A 53 52 20 43 4C | FRETOP+1.JSR CL| 00004200: 41 4C 4C 0D 4A 53 52 20 52 45 53 54 4F 52 0D 4C |ALL.JSR RESTOR.L| 00004210: 44 41 20 23 54 45 4D 50 53 54 0D 53 54 41 20 54 |DA #TEMPST.STA T| 00004220: 45 4D 50 50 54 0D 50 4C 41 0D 54 41 59 0D 50 4C |EMPPT.PLA.TAY.PL| 00004230: 41 0D 4C 44 58 20 23 32 35 30 0D 54 58 53 0D 50 |A.LDX #250.TXS.P| 00004240: 48 41 0D 54 59 41 0D 50 48 41 0D 4C 44 41 20 56 |HA.TYA.PHA.LDA V| 00004250: 41 52 54 41 42 0D 53 54 41 20 46 41 43 0D 4C 44 |ARTAB.STA FAC.LD| 00004260: 41 20 56 41 52 54 41 42 2B 31 0D 53 54 41 20 46 |A VARTAB+1.STA F| 00004270: 41 43 2B 31 0D 43 4C 52 30 31 20 4C 44 41 20 46 |AC+1.CLR01 LDA F| 00004280: 41 43 2B 31 0D 43 4D 50 20 41 52 59 54 41 42 2B |AC+1.CMP ARYTAB+| 00004290: 31 0D 42 43 43 20 43 4C 52 30 32 0D 42 4E 45 20 |1.BCC CLR02.BNE | 000042A0: 43 4C 52 30 33 0D 4C 44 41 20 46 41 43 0D 43 4D |CLR03.LDA FAC.CM| 000042B0: 50 20 41 52 59 54 41 42 0D 42 43 53 20 43 4C 52 |P ARYTAB.BCS CLR| 000042C0: 30 33 0D 43 4C 52 30 32 20 4C 44 59 20 23 32 0D |03.CLR02 LDY #2.| 000042D0: 4C 44 41 20 23 5A 45 52 4F 0D 43 4C 52 30 32 41 |LDA #ZERO.CLR02A| 000042E0: 20 53 54 41 20 28 46 41 43 29 2C 59 0D 49 4E 59 | STA (FAC),Y.INY| 000042F0: 0D 43 50 59 20 23 37 0D 42 4E 45 20 43 4C 52 30 |.CPY #7.BNE CLR0| 00004300: 32 41 0D 43 4C 43 0D 54 59 41 0D 41 44 43 20 46 |2A.CLC.TYA.ADC F| 00004310: 41 43 0D 53 54 41 20 46 41 43 0D 42 43 43 20 43 |AC.STA FAC.BCC C| 00004320: 4C 52 30 31 0D 49 4E 43 20 46 41 43 2B 31 0D 4A |LR01.INC FAC+1.J| 00004330: 4D 50 20 43 4C 52 30 31 0D 43 4C 52 30 33 0D 4C |MP CLR01.CLR03.L| 00004340: 44 41 20 41 52 59 54 41 42 0D 53 54 41 20 46 41 |DA ARYTAB.STA FA| 00004350: 43 0D 4C 44 41 20 41 52 59 54 41 42 2B 31 0D 53 |C.LDA ARYTAB+1.S| 00004360: 54 41 20 46 41 43 2B 31 0D 43 4C 52 30 34 20 4C |TA FAC+1.CLR04 L| 00004370: 44 41 20 46 41 43 2B 31 0D 43 4D 50 20 53 54 52 |DA FAC+1.CMP STR| 00004380: 45 4E 44 2B 31 0D 42 43 43 20 43 4C 52 30 35 0D |END+1.BCC CLR05.| 00004390: 42 4E 45 20 43 4C 52 30 37 0D 4C 44 41 20 46 41 |BNE CLR07.LDA FA| 000043A0: 43 0D 43 4D 50 20 53 54 52 45 4E 44 0D 42 43 53 |C.CMP STREND.BCS| 000043B0: 20 43 4C 52 30 37 0D 43 4C 52 30 35 0D 43 4C 43 | CLR07.CLR05.CLC| 000043C0: 0D 4C 44 59 20 23 32 0D 4C 44 41 20 28 46 41 43 |.LDY #2.LDA (FAC| 000043D0: 29 2C 59 0D 41 44 43 20 46 41 43 0D 53 54 41 20 |),Y.ADC FAC.STA | 000043E0: 46 41 43 2B 32 0D 49 4E 59 0D 4C 44 41 20 28 46 |FAC+2.INY.LDA (F| 000043F0: 41 43 29 2C 59 0D 41 44 43 20 46 41 43 2B 31 0D |AC),Y.ADC FAC+1.| 00004400: 53 54 41 20 46 41 43 2B 33 0D 49 4E 59 0D 4C 44 |STA FAC+3.INY.LD| 00004410: 41 20 28 46 41 43 29 2C 59 0D 41 53 4C 20 41 0D |A (FAC),Y.ASL A.| 00004420: 43 4C 43 0D 41 44 43 20 23 35 0D 41 44 43 20 46 |CLC.ADC #5.ADC F| 00004430: 41 43 0D 53 54 41 20 46 41 43 0D 42 43 43 20 2A |AC.STA FAC.BCC *| 00004440: 2B 34 0D 49 4E 43 20 46 41 43 2B 31 0D 4C 44 59 |+4.INC FAC+1.LDY| 00004450: 20 23 5A 45 52 4F 0D 43 4C 52 30 36 20 4C 44 41 | #ZERO.CLR06 LDA| 00004460: 20 23 5A 45 52 4F 0D 53 54 41 20 28 46 41 43 29 | #ZERO.STA (FAC)| 00004470: 2C 59 0D 49 4E 43 20 46 41 43 0D 42 4E 45 20 2A |,Y.INC FAC.BNE *| 00004480: 2B 34 0D 49 4E 43 20 46 41 43 2B 31 0D 4C 44 41 |+4.INC FAC+1.LDA| 00004490: 20 46 41 43 2B 31 0D 43 4D 50 20 46 41 43 2B 33 | FAC+1.CMP FAC+3| 000044A0: 0D 42 43 43 20 43 4C 52 30 36 0D 4C 44 41 20 46 |.BCC CLR06.LDA F| 000044B0: 41 43 0D 43 4D 50 20 46 41 43 2B 32 0D 42 43 43 |AC.CMP FAC+2.BCC| 000044C0: 20 43 4C 52 30 36 0D 4C 44 41 20 46 41 43 2B 32 | CLR06.LDA FAC+2| 000044D0: 0D 53 54 41 20 46 41 43 0D 4C 44 41 20 46 41 43 |.STA FAC.LDA FAC| 000044E0: 2B 33 0D 53 54 41 20 46 41 43 2B 31 0D 4A 4D 50 |+3.STA FAC+1.JMP| 000044F0: 20 43 4C 52 30 34 0D 43 4C 52 30 37 20 52 54 53 | CLR04.CLR07 RTS| 00004500: 0D 45 4E 44 4C 49 42 0D 2E 45 4E 44 0D |.ENDLIB..END. |
;**************************************.
;** **.
;** BBBBB AAAA SSS SSS **.
;** BB BB AA AA SS S SS S **.
;** BB BB AA AA SS SS **.
;** BBBBB AAAAAA SS SS **.
;** BB BB AA AA SS SS **.
;** BB BB AA AA S SS S SS **.
;** BBBBB AA AA SSS SSS **.
;** **.
;** **.
;** **.
;** LIBRARY TO BASIC-COMPILER **.
;** ASSEMBLERCODE-COMPILER, **.
;** VERSION 2.2/64 **.
;** LIBRARY FOR SIGNED INTEGERS **.
;** **.
;** (C) GMBSOFT JUNE 1983 **.
;** KAISER FRIEDRICH RING 55 **.
;** 6200 WIESBADEN / GERMANY **.
;** TEL.: 06121 / 842686 **.
;** **.
;**************************************.
.PROF.*=$0801..OFFS $4801-*..BYTE 11,8,1
0,0,158..BYTE $32,$30,$36,$37,0,0,0.SONS
TR = 44954.SONTIS = 44872.SONPIR = 44712
.LINE = 57.TSTBYT = 97.FAC = 97.ARG
= 105.INDEX = 34.INDEX2 = 36.VARPNT
= 71.DSCPNT = 80.DATPTR = 65.CHRGET = 1
15.POKADR = 20.CMPMSK = 18.TRMPOS = 9.ZE
RO = 0.FORPNT = 73.JMPER = 84.ADDEND
= 40.CURTOL = 113.ARYPNT = 88.COUNT = 1
1.LOWTR = 95.TEMPST = 25.TEMPPT = 22.VA
RTAB = 45.ARYTAB = 47.STREND = 49.FRETOP
= 51.FRESPC = 53.MEMSIZ = 55.FRMEVL = 4
4446.GETADR = 47095.DOADD = 47210.DOSUB
= 47187.DOMULT = 47659.DODIV = 47890.
DOPOW = 49019.DOATN = 58126.DOCOS = 5
7956.DOSIN = 57963.DOEXP = 49133.DOFRE
= 45956.DOINT = 48332.DOLOG = 47594.
DORIGH = 46895.DORND = 57495.DOSGN = 4
8185.DOSQR = 49009.DOTAN = 58036.DOUSR
= 784.DONOT = 44756.DOVAL = 47021.EN
D = 58245.TISTOR = 43488.RLOAD = 480
34.MTOFA2 = 47756.ISLOAD = 46215.TOARR8
= 48080.TOARR0 = 43564.FRESTR = 46758.CL
ALL = 65511.ROUND = 48155.DOLEFT = 468
51.DOMID = 46923.PUTNEW = 46282.ONE
= 47548.FNDFOR = 41866.FCOMP = 48219.ER
ROR = 42039.ILLQUA = 14.BADSUB = 18.STR
LON = 23.OVERFL = 15.DIVZER = 20.NEXWFO
= 10.RETWGO = 12.JMP NONCRT..WORD ENDLIB
.RUNSTP .BYTE 0.STALIB LDA #<BEGVAR.STA
VARTAB.LDA #>BEGVAR.STA VARTAB+1.LDA #<
BEGARR.STA ARYTAB.LDA #>BEGARR.STA ARYTA
B+1.LDA #<ENDARR.STA STREND.LDA #>ENDARR
.STA STREND+1.LDA #<BEGDAT.STA DATPTR.LD
A #>BEGDAT.STA DATPTR+1.JMP BEGCOD.NONCO
M STA VARPNT.STY VARPNT+1.TAX.BNE *+3.DE
Y.DEX.STX CHRGET+7.STY CHRGET+8.JSR CHRG
ET.JMP 42989.NONCO3 TAX.BNE *+3.DEY.DEX.
STX CHRGET+7.STY CHRGET+8.JMP 42977.NONC
RT PLA.PLA.RTS.NONCO2 TAX.BNE *+3.DEY.DE
X.STX CHRGET+7.STY CHRGET+8.JSR CHRGET.J
SR FRMEVL.RTS.FLPUSI LDA FAC+5.BPL *+7.F
LPERR LDX #ILLQUA.JMP ERROR.LDA FAC.CMP
#145.BCS FLPERR.JSR 48283.LDA FAC+4.LDY
FAC+3.RTS.FLPINT.FLPSI.JSR ROUND.JSR 455
03.LDA FAC+4.LDY FAC+3.RTS.USIFLP STA FA
C+2.STY FAC+1.LDX #144.SEC.JMP 48201.INT
FLP.SIFLP STA FAC+2.STY FAC+1.LDX #144.J
MP 48196.INTFAC STA JMPER+1.STY JMPER+2.
LDY #1.LDA (JMPER+1),Y.PHA.DEY.LDA (JMPE
R+1),Y.TAY.PLA.RTS.ILOAD JSR INTFAC.JMP
INTFLP.RTOFA2 PHA.JSR 48140.PLA.RTS.STOF
A2 LDX FAC+3.STX ARG+3.LDX FAC+4.STX ARG
+4.RTS.IVAFA2 JSR ISLOAD.JMP STOFA2.ICHE
CK CPY #0.BEQ ICHEC1.LDX #ILLQUA.JMP ERR
OR.ICHEC1 RTS.ITEST CPY #0.BEQ ITEST2.IT
EST1 LDA #$FF.RTS.ITEST2 CMP #0.BNE ITES
T1.RTS.LINENO STA LINE.STY LINE+1.LDA RU
NSTP.BEQ *+5.JSR 43052.RTS.CONV JSR FLPI
NT.CPY #0.BEQ *+7.LDX #ILLQUA.JMP ERROR.
RTS.SONTIR SEC.JMP 44923.FLPSTA PLA.STA
JMPER+1.PLA.STA JMPER+2.PLA.STA VARPNT.P
LA.STA VARPNT+1.LDA FAC+5.PHA.JSR ROUND.
LDA FAC+4.PHA.LDA FAC+3.PHA.LDA FAC+2.PH
A.LDA FAC+1.PHA.LDA FAC.PHA.LDA VARPNT+1
.PHA.LDA VARPNT.PHA.LDA JMPER+2.PHA.LDA
JMPER+1.PHA.RTS.INTSTA TAX.PLA.STA JMPER
+1.PLA.STA JMPER+2.PLA.STA VARPNT.PLA.ST
A VARPNT+1.TXA.PHA.TYA.PHA.LDA VARPNT+1.
PHA.LDA VARPNT.PHA.LDA JMPER+2.PHA.LDA J
MPER+1.PHA.RTS.STRSTA PLA.STA JMPER+1.PL
A.STA JMPER+2.PLA.STA VARPNT.PLA.STA VAR
PNT+1.LDA FAC+3.PHA.LDA FAC+4.PHA.LDA VA
RPNT+1.PHA.LDA VARPNT.PHA.LDA JMPER+2.PH
A.LDA JMPER+1.PHA.RTS.FLPUST PLA.STA JMP
ER+1.PLA.STA JMPER+2.PLA.STA VARPNT.PLA.
STA VARPNT+1.PLA.STA ARG.PLA.STA ARG+1.P
LA.STA ARG+2.PLA.STA ARG+3.PLA.STA ARG+4
.PLA.STA ARG+5.EOR FAC+5.STA ARG+6.LDA V
ARPNT+1.PHA.LDA VARPNT.PHA.LDA JMPER+2.P
HA.LDA JMPER+1.PHA.LDA FAC.RTS.INTUST.ST
RUST TAX.PLA.STA JMPER+1.PLA.STA JMPER+2
.PLA.STA VARPNT.PLA.STA VARPNT+1.PLA.STA
ARG+4.PLA.STA ARG+3.LDA VARPNT+1.PHA.LD
A VARPNT.PHA.LDA JMPER+2.PHA.LDA JMPER+1
.PHA.TXA.RTS.TOVAR0 STA FORPNT.STY FORPN
T+1.JMP TOARR0.TOVAR7.TOVAR8 TAX.JMP TOA
RR8+4.TOVAR5 STA FORPNT.STY FORPNT+1.TOA
RR5 JSR FLPINT.LDY #ZERO.LDA FAC+3.STA (
FORPNT),Y.INY.LDA FAC+4.STA (FORPNT),Y.R
TS.TOARR4 PHA.TYA.LDY #ZERO.STA (FORPNT)
,Y.PLA.INY.STA (FORPNT),Y.RTS.TOARR7 JSR
INTFLP.JMP TOARR8.ARRAY STA LOWTR.STY L
OWTR+1.STX COUNT.PLA.STA JMPER+1.PLA.STA
JMPER+2.PLA.STA VARPNT.PLA.STA VARPNT+1
.TXA.CLC.ASL A.ADC #5.ADC LOWTR.BCC *+3.
INY.STA ARYPNT.STY ARYPNT+1.LDY #4.LDA #
0.STA CURTOL.STA CURTOL+1.DIM05.INY.PLA.
STA FAC+4.PLA.STA FAC+3.TAX.LDA FAC+4.CM
P (LOWTR),Y.BCC DIM01.BNE DIM02.INY.TXA.
CMP (LOWTR),Y.BCC DIM03.DIM02 LDX #BADSU
B.JMP ERROR.DIM01 INY.DIM03 STY INDEX.LD
A CURTOL+1.ORA CURTOL.BNE DIM04A.TAY.JMP
DIM04B.DIM04A JSR ARRMUL.DIM04B CLC.ADC
FAC+3.STA CURTOL.TYA.ADC FAC+4.STA CURT
OL+1.LDY INDEX.DEC COUNT.BNE DIM05.PLA.T
AX.LDA VARPNT+1.PHA.LDA VARPNT.PHA.LDA J
MPER+2.PHA.LDA JMPER+1.PHA.TXA.LDY #0.JS
R ARRMU2.CLC.ADC ARYPNT.STA VARPNT.TYA.A
DC ARYPNT+1.STA VARPNT+1.TAY.LDA VARPNT.
RTS.ARRMUL LDA (LOWTR),Y.PHA.DEY.LDA (LO
WTR),Y.TAY.PLA.ARRMU2.STA ADDEND.STY ADD
END+1.LDA #ZERO.STA FAC+1.STA FAC+2.ARRM
U3 LDA ADDEND.ORA ADDEND+1.BEQ ARRMU6.AR
RMU4 CLC.ROR ADDEND+1.ROR ADDEND.BCC ARR
MU5.CLC.LDA FAC+1.ADC CURTOL.STA FAC+1.L
DA FAC+2.ADC CURTOL+1.STA FAC+2.ARRMU5 C
LC.ROL CURTOL.ROL CURTOL+1.JMP ARRMU3.AR
RMU6 LDA FAC+1.LDY FAC+2.RTS.IARRL JSR A
RRAY.JMP INTFAC.RARRL JSR ARRAY.JMP RLOA
D.SARRL JSR ARRAY.STA FAC+3.STY FAC+4.RT
S.ARRAX JSR ARRAY.STA FORPNT.STY FORPNT+
1.RTS.IVASTA JSR ISLOAD.JSR STRSTA.RTS.I
TOFA2 STA JMPER+1.STY JMPER+2.LDY #ZERO.
LDA (JMPER+1),Y.STA ARG+4.INY.LDA (JMPER
+1),Y.STA ARG+3.RTS.IFLSTA JSR INTFAC.IC
HSTA JSR INTFLP.JSR FLPSTA.RTS.RLIFA2 JS
R RLOAD.CHIFA2 JSR FLPINT.STA ARG+3.STY
ARG+4.RTS.RLISTA JSR RLOAD.RCHSTA JSR FL
PINT.JSR INTSTA.RTS.UPSSTA JSR STRSTA.RT
S.CHRFA2 JSR INTFLP.JMP RTOFA2.UPRSTA JS
R FLPSTA.RTS.FE21 JSR INTFAC.FE20 CPY #1
28.BCS FE20A.RTS.FE20A CLC.EOR #$FF.ADC
#1.PHA.TYA.EOR #$FF.ADC #ZERO.TAY.PLA.RT
S.FE31 JSR RLOAD.FE30 LSR FAC+5.RTS.FU11
STA FAC+3.STY FAC+4.FU10 JSR FRESTR.BEQ
ASCERR.LDY #ZERO.LDA (INDEX),Y.RTS.ASCE
RR LDX #ILLQUA.JMP ERROR.FU12 JSR ISLOAD
.JMP FU10.FP31 JSR RLOAD.JMP DOATN.FP30
= DOATN.FP21 JSR INTFAC.FP20 JSR INTFLP.
JMP DOATN.FV31 JSR RLOAD.FV30 JSR CONV.F
V30A PHA.LDA #1.JSR 46205.PLA.LDY #ZERO.
STA (FAC+1),Y.JMP PUTNEW.FV21 JSR INTFAC
.FV20 JSR ICHECK.JMP FV30A.FM31 JSR RLOA
D.JMP DOCOS.FM30 = DOCOS.FM21 JSR INTFAC
.FM20 JSR INTFLP.JMP DOCOS.FN31 JSR RLOA
D.JMP DOSIN.FN30 = DOSIN.FN21 JSR INTF
AC.FN20 JSR INTFLP.JMP DOSIN.FL31 JSR RL
OAD.JMP DOEXP.FL30 = DOEXP.FL21 JSR IN
TFAC.FL20 JSR INTFLP.JMP DOEXP.FG2 = D
OFRE.FD31 JSR RLOAD.JMP DOINT.FD30 = D
OINT.FD21 JSR INTFAC.FD20 JSR INTFLP.RTS
.FW31 JSR RLOAD.FW30 JSR CONV.LEFT1 TAX.
PLA.STA JMPER+1.PLA.STA JMPER+2.PLA.STA
FAC+4.STA DSCPNT+1.PLA.STA FAC+3.STA DSC
PNT.LDA JMPER+2.PHA.LDA JMPER+1.PHA.LDY
#ZERO.TXA.JMP DOLEFT.FW21 JSR INTFAC.FW2
0 JSR ICHECK.JMP LEFT1.FR11 STA FAC+3.ST
Y FAC+4.FR10 JSR FRESTR.LDY #ZERO.RTS.FR
12 JSR ISLOAD.JMP FR10.FK31 JSR RLOAD.JM
P DOLOG.FK30 = DOLOG.FK21 JSR INTFAC.F
K20 JSR INTFLP.JMP DOLOG.FY31 JSR RLOAD.
FY30 JSR CONV.MID1 TAX.PLA.STA JMPER+1.P
LA.STA JMPER+2.LDA #$FF.STA FAC+4.MID2 P
LA.STA DSCPNT+1.PLA.STA DSCPNT.LDA JMPER
+2.PHA.LDA JMPER+1.PHA.LDY #ZERO.TXA.JMP
DOMID.FY21 JSR INTFAC.FY20 JSR ICHECK.J
MP MID1.FZ31 JSR RLOAD.FZ30 JSR CONV.MID
4 STA FAC+4.PLA.STA JMPER+1.PLA.STA JMPE
R+2.PLA.TAY.PLA.JSR ICHECK.TAX.JMP MID2.
FZ21 JSR INTFAC.FZ20 JSR ICHECK.JMP MID4
.FQ31 JSR RLOAD.FQ30 JSR FLPUSI.FQ20 STA
FAC+3.STY FAC+4.LDY #ZERO.LDA (FAC+3),Y
.RTS.FQ21 JSR INTFAC.JMP FQ20.FH2 LDA TR
MPOS.LDY #ZERO.RTS.FX31 JSR RLOAD.FX30 J
SR CONV.RIGHT1 TAX.PLA.STA JMPER+1.PLA.S
TA JMPER+2.PLA.STA FAC+4.STA DSCPNT+1.PL
A.STA FAC+3.STA DSCPNT.LDA JMPER+2.PHA.L
DA JMPER+1.PHA.LDY #ZERO.TXA.JMP DORIGH.
FX21 JSR INTFAC.FX20 JSR ICHECK.JMP RIGH
T1.FJ31 JSR RLOAD.JMP DORND.FJ30 = DOR
ND.FJ21 JSR INTFAC.FJ20 JSR INTFLP.JMP D
ORND.FC31 JSR RLOAD.JMP DOSGN.FC30 = D
OSGN.FC21 JSR INTFAC.FC20 STA FAC+3.TYA.
BMI ISGN3.BEQ ISGN2.ISGN1 LDA #1.LDY #ZE
RO.RTS.ISGN2 LDA FAC+3.BNE ISGN1.LDA #ZE
RO.TAY.RTS.ISGN3 LDA #$FF.TAY.RTS.FI31 J
SR RLOAD.JMP DOSQR.FI30 = DOSQR.FI21 J
SR INTFAC.FI20 JSR INTFLP.JMP DOSQR.FS31
JSR RLOAD.FS30 LDY #ZERO.JSR 48607.LDA
#$FF.LDY #ZERO.JMP ISLOAD.FS21 JSR INTFA
C.FS20 JSR INTFLP.JMP FS30.FO31 JSR RLOA
D.JMP DOTAN.FO30 = DOTAN.FO21 JSR INTF
AC.FO20 JSR INTFLP.JMP DOTAN.FF31 JSR RL
OAD.JMP DOUSR.FF30 = DOUSR.FF21 JSR IN
TFAC.FF20 JSR INTFLP.JMP DOUSR.FT11 STA
FAC+3.STY FAC+4.FT10 JSR FRESTR.TAY.JMP
DOVAL+3.FT12 JSR ISLOAD.JMP FT10.F231 =
DOADD-3.F235 JSR INTFLP.F232 JSR FLPUST.
JMP DOADD.F233 JSR INTFAC.F239 JSR RTOFA
2.JSR INTFLP.F230 LDA ARG+5.EOR FAC+5.ST
A ARG+6.LDA FAC.JMP DOADD.F331 = DOSUB-3
.F335 JSR INTFLP.F332 JSR FLPUST.JMP DOS
UB.F333 JSR INTFAC.F339 JSR RTOFA2.JSR I
NTFLP.F330 LDA ARG+5.EOR FAC+5.STA ARG+6
.LDA FAC.JMP DOSUB.F336 JSR RTOFA2.F338
JSR RLOAD.JMP F330.F431 = DOMULT-3.F435
JSR INTFLP.F432 JSR FLPUST.JMP DOMULT.F4
33 JSR INTFAC.F439 JSR RTOFA2.F430 JSR I
NTFLP.LDA ARG+5.EOR FAC+5.STA ARG+6.LDA
FAC.JMP DOMULT.F531 = DODIV-3.F535 JSR I
NTFLP.F532 JSR FLPUST.JMP DODIV.F533 JSR
INTFAC.F539 JSR RTOFA2.JSR INTFLP.F530
LDA ARG+5.EOR FAC+5.STA ARG+6.LDA FAC.JM
P DODIV.F536 JSR RTOFA2.F538 JSR RLOAD.J
MP F530.F631 JSR MTOFA2.JMP DOPOW.F635 J
SR INTFLP.F632 JSR FLPUST.JMP DOPOW.F630
= DOPOW.F633 JSR INTFAC.F639 JSR RTOFA2
.JSR INTFLP.JMP DOPOW.F636 JSR RTOFA2.F6
38 JMP DOPOW-3.FA31 JSR RLOAD.FA30 LDA F
AC.BEQ *+8.LDA FAC+5.EOR #$FF.STA FAC+5.
RTS.FA21 JSR INTFAC.FA20 LDX #ZERO.STX A
RG+3.STX ARG+4.JMP F320.FB31 JSR RLOAD.F
B30 JSR FLPSI.JMP FB20.FB21 JSR INTFAC.F
B20 EOR #$FF.PHA.TYA.EOR #$FF.TAY.PLA.RT
S.F213 JSR STOFA2.F211 JSR ISLOAD.JMP F2
10.F212 JSR STOFA2.F217 STA FAC+3.STY FA
C+4.F210 LDA ARG+3.STA ARG+6.LDA ARG+4.S
TA ARG+7.F210A LDY #ZERO.LDA (ARG+6),Y.C
LC.ADC (FAC+3),Y.BCC *+7.LDX #STRLON.JMP
ERROR.JSR 46197.JSR 46714.LDA DSCPNT.LD
Y DSCPNT+1.JSR FRESTR+4.JSR 46732.LDA AR
G+6.LDY ARG+7.JSR FRESTR+4.JMP PUTNEW.F2
14 STA ARG+6.STY ARG+7.JMP F210A.F216 JS
R STRUST.JMP F210.F221 JSR INTUST.F220 C
LC.ADC ARG+3.PHA.TYA.ADC ARG+4.TAY.PLA.B
VS *+4.CLC.RTS.LDX #OVERFL.JMP ERROR.F22
2 JSR INTFAC.JMP F220.F321 JSR INTUST.F3
20 STA FAC+3.STY FAC+4.SEC.LDA ARG+3.SBC
FAC+3.PHA.LDA ARG+4.SBC FAC+4.TAY.PLA.B
VS *+4.CLC.RTS.LDX #OVERFL.JMP ERROR.F32
2 JSR INTFAC.JMP F320.F421 JSR INTUST.F4
20 STA FAC+3.STY FAC+4.LDA #ZERO.STA ARG
+1.STA ARG+2.LDA ARG+4.EOR FAC+4.STA CMP
MSK.LDA ARG+4.BPL *+5.JSR INVARG.LDA FAC
+4.BPL *+5.JSR INVFAC.IMUL1 LDA ARG+4.OR
A ARG+3.BEQ IMUL4.IMUL2 CLC.ROR ARG+4.RO
R ARG+3.BCC IMUL3.CLC.LDA ARG+1.ADC FAC+
3.STA ARG+1.LDA ARG+2.ADC FAC+4.STA ARG+
2.BPL IMUL3.IMUL2B LDX #OVERFL.JMP ERROR
.IMUL3 CLC.ROL FAC+3.ROL FAC+4.BCC IMUL1
.JMP IMUL2B.IDIV7.IMUL4 LDA ARG+1.LDY AR
G+2.LDX CMPMSK.BPL IMUL5.SEC.EOR #$FF.AD
C #0.PHA.TYA.EOR #$FF.ADC #0.TAY.PLA.IMU
L5 RTS.INVARG SEC.LDA ARG+3.EOR #$FF.ADC
#0.STA ARG+3.LDA ARG+4.EOR #$FF.ADC #0.
STA ARG+4.RTS.INVFAC SEC.LDA FAC+3.EOR #
$FF.ADC #0.STA FAC+3.LDA FAC+4.EOR #$FF.
ADC #0.STA FAC+4.RTS.F422 JSR INTFAC.JMP
F420.F521 JSR INTUST.F520 STA FAC+3.STY
FAC+4.TYA.EOR ARG+4.STA CMPMSK.LDA ARG+
4.BPL *+5.JSR INVARG.LDA FAC+4.BPL *+5.J
SR INVFAC.LDA FAC+3.STA FAC.LDY FAC+4.ST
Y FAC+1.JSR ITEST.BNE *+7.LDX #DIVZER.JM
P ERROR.LDA #ZERO.STA ARG+1.STA ARG+2.ID
IV1.LDA FAC+1.CMP ARG+4.BCC IDIV2.BEQ *+
5.JMP IDIV3.LDA FAC.CMP ARG+3.BEQ IDIV2.
BCS IDIV3.IDIV2.CLC.ROL FAC.ROL FAC+1.JM
P IDIV1.IDIV3.LDA FAC.CMP FAC+3.BNE IDIV
4.LDA FAC+1.CMP FAC+4.BNE IDIV4.JMP IDIV
7.IDIV4.CLC.ROL ARG+1.ROL ARG+2.CLC.ROR
FAC+1.ROR FAC.LDA FAC+1.CMP ARG+4.BCC ID
IV6.BEQ IDIV5.BCS IDIV3.IDIV5 LDA FAC.CM
P ARG+3.BEQ IDIV6.BCS IDIV3.IDIV6 SEC.LD
A ARG+3.SBC FAC.STA ARG+3.LDA ARG+4.SBC
FAC+1.STA ARG+4.CLC.INC ARG+1.BNE *+4.IN
C ARG+3.JMP IDIV3.F522 JSR INTFAC.JMP F5
20.F621 JSR INTUST.F620 JSR ICHECK.CMP #
0.BEQ IPOW3.STA COUNT.DEC COUNT.LDA ARG+
3.STA FAC+1.LDY ARG+4.STY FAC+2.IPOW1 DE
C COUNT.BMI IPOW2.LDX FAC+1.STX ARG+3.LD
X FAC+2.STX ARG+4.JSR F420.JMP IPOW1.IPO
W2 RTS.F622 JSR INTFAC.JMP F620.IPOW3 LD
A #1.LDY #ZERO.RTS.F724 JSR FLPSI.F721 J
SR INTUST.JMP F720.F722 JSR INTFAC.JMP F
720.F729 JSR RLOAD.JSR FLPSI.F720 AND AR
G+3.PHA.TYA.AND ARG+4.TAY.PLA.RTS.F824 J
SR FLPSI.F821 JSR INTUST.JMP F820.F822 J
SR INTFAC.JMP F820.F829 JSR RLOAD.JSR FL
PSI.F820 ORA ARG+3.PHA.TYA.ORA ARG+4.TAY
.PLA.RTS.F931 STX CMPMSK.JSR MTOFA2.JMP
F930A.F935 STX CMPMSK.JSR INTFLP.JMP F93
2A.F932 STX CMPMSK.F932A JSR FLPUST.JMP
F930A.F930 STX CMPMSK.F930A LDA ARG+5.OR
A #$7F.AND ARG+1.STA ARG+1.LDA #<ARG.LDY
#>ARG.JSR FCOMP.TAX.JMP COMPA1.F933 STX
CMPMSK.JSR INTFAC.JMP F939A.F939 STX CM
PMSK.F939A JSR RTOFA2.JSR INTFLP.JMP F93
0A.F936 STX CMPMSK.JSR RTOFA2.JMP F938A.
F938 STX CMPMSK.F938A JSR RLOAD.JMP F930
A.F913 STX CMPMSK.JSR STOFA2.JMP F911A.F
911 STX CMPMSK.F911A JSR ISLOAD.JMP F910
A.F912 STX CMPMSK.JSR STOFA2.JMP F917A.F
917 STX CMPMSK.F917A STA FAC+3.STY FAC+4
.JMP F910A.F910 STX CMPMSK.F910A JSR FRE
STR.STA FAC.STX FAC+1.STY FAC+2.LDA ARG+
3.LDY ARG+4.JSR FRESTR+4.STX ARG+3.STY A
RG+4.TAX.SEC.SBC FAC.BEQ CMP1.LDA #1.BCC
CMP1.LDX FAC.LDA #$FF.CMP1 STA FAC+5.LD
Y #$FF.INX.CMP2 INY.DEX.BNE CMP3.LDX FAC
+5.COMPA1.BMI CMP4.CLC.BCC CMP4.CMP3 LDA
(ARG+3),Y.CMP (FAC+1),Y.BEQ CMP2.LDX #$
FF.BCS CMP4.LDX #1.CMP4 INX.TXA.ROL A.CO
MPA2 AND CMPMSK.BEQ CMP5.LDA #$FF.CMP5 T
AY.RTS.F914 STX CMPMSK.STA ARG+3.STY ARG
+4.JMP F910A.F916 STX CMPMSK.JSR STRUST.
JMP F910A.F921 STX CMPMSK.F921A.JSR INTU
ST.JMP F920A.F920 STX CMPMSK.F920A STA F
AC+3.STY FAC+4.SEC.LDA ARG+3.SBC FAC+3.S
TA FAC+3.LDA ARG+4.SBC FAC+4.BPL ICOMP2.
LDA #4.BVC COMPA2.LDA #1.BNE COMPA2.ICOM
P2 BNE ICOMP4.LDA FAC+3.BNE ICOMP4.LDA #
2.BNE COMPA2.ICOMP4 LDA #1.BVC COMPA2.LD
A #4.BNE COMPA2.F922 STX CMPMSK.JSR INTF
AC.JMP F920A.POKE1R = GETADR.POKE2R JSR
CONV.STA (POKADR),Y.RTS.POKE2I JSR ICHEC
K.STA (POKADR),Y.RTS.ONGOTO LDX #ZERO.BE
Q ONGO0.ONGOSU LDX #255.ONGO0 STA JMPER+
1.STY JMPER+2.TXA.PHA.JSR CONV.ONGO3 CMP
#ZERO.BEQ ONGO2.LDY #ZERO.LDA (JMPER+1)
,Y.SEC.SBC FAC+4.BCC ONGO2.ADC #ZERO.ROL
A.STA VARPNT.SEC.LDA JMPER+1.SBC VARPNT
.STA JMPER+1.LDA JMPER+2.SBC #ZERO.STA J
MPER+2.LDY #ZERO.LDA (JMPER+1),Y.TAX.INY
.LDA (JMPER+1),Y.STA JMPER+2.STX JMPER+1
.PLA.BMI ONGO1.PLA.PLA.JMP (JMPER+1).ONG
O1 JMP GOSUB2.ONGO2.PLA.RTS.IONGOT LDX #
ZERO.BEQ ONGO4.IONGOS LDX #255.ONGO4 STA
JMPER+1.STY JMPER+2.STX FAC+3.PLA.STA V
ARPNT.PLA.STA VARPNT+1.PLA.TAY.STA FAC+3
.PLA.TAX.STA FAC+4.LDA VARPNT+1.PHA.LDA
VARPNT.PHA.LDA FAC+3.PHA.TXA.JSR ICHECK.
JMP ONGO3.FOR1 STA FORPNT.STY FORPNT+1.T
AX.JSR TOARR8+4.TSX.PLA.STA JMPER+1.PLA.
STA JMPER+2.JMP FOR101.FOR2I JSR INTFLP.
FOR2R PLA.STA INDEX.PLA.STA INDEX+1.INC
INDEX.BNE *+4.INC INDEX+1.LDA FAC+5.ORA
#127.AND FAC+1.STA FAC+1.JMP 44611.FOR3I
JSR INTFLP.FOR3R PLA.STA JMPER+1.PLA.ST
A JMPER+2.FOR301 JSR 48171.JSR 44600.JMP
FOR302.FOR3B PLA.STA JMPER+1.PLA.STA JM
PER+2.LDA #<ONE.LDY #>ONE.JSR RLOAD.JMP
FOR301.FOR1F STA FORPNT.STY FORPNT+1.PLA
.STA JMPER+1.PLA.STA JMPER+2.TSX.PLA.LDY
#ZERO.STA (FORPNT),Y.INY.PLA.STA (FORPN
T),Y.FOR101 TXS.JSR FNDFOR.BNE *+7.TXA.A
DC #15.TAX.TXS.PLA.PLA.LDA #9.JSR 41979.
LDA JMPER+2.PHA.LDA JMPER+1.PHA.LDA LINE
+1.PHA.LDA LINE.PHA.LDA JMPER+2.PHA.LDA
JMPER+1.PHA.RTS.FOR2RF JSR FLPINT.FOR2IF
TAX.PLA.STA JMPER+1.PLA.STA JMPER+2.TXA
.PHA.TYA.PHA.LDA #0.PHA.PHA.PHA.LDA JMPE
R+2.PHA.LDA JMPER+1.PHA.RTS.FOR3RF JSR F
LPINT.JMP FOR3IF.FOR3BF LDA #<1.LDY #>1.
FOR3IF TAX.PLA.STA JMPER+1.PLA.STA JMPER
+2.TXA.PHA.TYA.PHA.BMI *+5.LDA #1..BYTE
$2C.LDA #4.PHA.LDA #0.PHA.PHA.PHA.FOR302
LDA FORPNT+1.PHA.LDA FORPNT.PHA.LDA #12
9.PHA.TSX.LDA JMPER+2.STA 274,X.PHA.LDA
JMPER+1.STA 273,X.PHA.RTS.NEXTR STA FORP
NT.STY FORPNT+1.NEXT01 TSX.PLA.STA TEMPS
T.PLA.STA TEMPST+1.TXS.JSR FNDFOR.BEQ *+
7.LDX #NEXWFO.JMP ERROR.TXS.LDA 260,X.BN
E *+5.JMP NEXT04.TXA.CLC.ADC #4.PHA.ADC
#6.STA INDEX2.PLA.LDY #1.JSR RLOAD.TSX.L
DA 265,X.STA FAC+5.LDA FORPNT.LDY FORPNT
+1.JSR DOADD-3.JSR TOARR8.LDY #1.JSR FCO
MP+2.TSX.SEC.SBC 265,X.BEQ LEAVE.JMP NEX
T05.NEXT LDA #ZERO.STA FORPNT+1.JMP NEXT
01.NEXTI STA FORPNT.STY FORPNT+1.TSX.PLA
.STA TEMPST.PLA.STA TEMPST+1.TXS.JSR FND
FOR.BEQ NEXT04.LDX #NEXWFO.JMP ERROR.NEX
T04 TXS.NEXT02 LDA 265,X.STA ARG+3.LDA 2
64,X.STA ARG+4.LDY #1.LDA (FORPNT),Y.PHA
.DEY.LDA (FORPNT),Y.TAY.PLA.JSR F220.STA
ARG+3.STY ARG+4.JSR TOARR4.TSX.LDY 269,
X.LDA 270,X.PHA.LDA 263,X.TAX.PLA.JSR F9
20.BNE LEAVE.TSX.NEXT05 LDA 271,X.STA LI
NE.LDA 272,X.STA LINE+1.LDA 274,X.PHA.LD
A 273,X.PHA.RTS.LEAVE.TSX.TXA.CLC.ADC #1
8.TAX.TXS.LDA TEMPST+1.PHA.LDA TEMPST.PH
A.RTS.GOSUB STA JMPER+1.STY JMPER+2.GOSU
B2.LDA LINE+1.PHA.LDA LINE.PHA.LDA #141.
PHA.JMP (JMPER+1).RETURN LDA #$FF.STA FO
RPNT+1.JSR FNDFOR.TXS.CMP #141.BEQ *+7.L
DX #RETWGO.JMP ERROR.PLA.PLA.STA LINE.PL
A.STA LINE+1.RTS.RESTOR LDA #<BEGDAT.STA
DATPTR.LDA #>BEGDAT.STA DATPTR+1.RTS.CL
R.LDA MEMSIZ.STA FRETOP.LDA MEMSIZ+1.STA
FRETOP+1.JSR CLALL.JSR RESTOR.LDA #TEMP
ST.STA TEMPPT.PLA.TAY.PLA.LDX #250.TXS.P
HA.TYA.PHA.LDA VARTAB.STA FAC.LDA VARTAB
+1.STA FAC+1.CLR01 LDA FAC+1.CMP ARYTAB+
1.BCC CLR02.BNE CLR03.LDA FAC.CMP ARYTAB
.BCS CLR03.CLR02 LDY #2.LDA #ZERO.CLR02A
STA (FAC),Y.INY.CPY #7.BNE CLR02A.CLC.T
YA.ADC FAC.STA FAC.BCC CLR01.INC FAC+1.J
MP CLR01.CLR03.LDA ARYTAB.STA FAC.LDA AR
YTAB+1.STA FAC+1.CLR04 LDA FAC+1.CMP STR
END+1.BCC CLR05.BNE CLR07.LDA FAC.CMP ST
REND.BCS CLR07.CLR05.CLC.LDY #2.LDA (FAC
),Y.ADC FAC.STA FAC+2.INY.LDA (FAC),Y.AD
C FAC+1.STA FAC+3.INY.LDA (FAC),Y.ASL A.
CLC.ADC #5.ADC FAC.STA FAC.BCC *+4.INC F
AC+1.LDY #ZERO.CLR06 LDA #ZERO.STA (FAC)
,Y.INC FAC.BNE *+4.INC FAC+1.LDA FAC+1.C
MP FAC+3.BCC CLR06.LDA FAC.CMP FAC+2.BCC
CLR06.LDA FAC+2.STA FAC.LDA FAC+3.STA F
AC+1.JMP CLR04.CLR07 RTS.ENDLIB..END.
> CLICK IMAGE PREVIEW FOR FULL MODAL