EQUATE
FILE INFORMATION
FILENAME(S): EQUATE
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 16:59:36
APPEARS ON: 1 disk(s)
FILE HASH
7208ecd0d3e34a910cad8104e971eed0c5c4e840fb20399b64fb6b94e28c11a3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LADS64 | EQUATE | PRG | High Voltage Complete C64 Collection | 12 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1F 04 0A 00 3B 20 22 45 51 55 41 54 45 22 |......; "EQUATE"| 00000010: 20 20 45 C5 55 41 54 45 20 4C 41 42 45 4C 53 00 | E.UATE LABELS.| 00000020: 66 04 14 00 3B 20 43 4F 55 4C 44 20 42 45 20 45 |f...; COULD BE E| 00000030: 49 54 48 45 52 20 50 43 20 28 41 44 44 52 45 53 |ITHER PC (ADDRES| 00000040: 53 29 20 54 59 50 45 20 B0 20 45 51 55 41 54 45 |S) TYPE . EQUATE| 00000050: 20 54 59 50 45 2E 20 20 53 A4 52 45 20 49 4E 20 | TYPE. S.RE IN | 00000060: 41 52 52 41 59 2E 00 9F 04 19 00 3B 20 81 4D 41 |ARRAY......; .MA| 00000070: 54 AB AB 4E 41 4D 45 AD 32 AB 42 59 54 45 20 B5 |T..NAME.2.BYTE .| 00000080: 45 47 45 52 20 C5 55 45 AD 4E 41 4D 45 AD 32 AB |EGER .UE.NAME.2.| 00000090: 42 59 54 45 20 C5 55 45 AD 45 54 43 2E 2E 2E 00 |BYTE .UE.ETC....| 000000A0: B2 04 1E 00 3B AB AB AB AB AB AB AB AB AB AB AB |....;...........| 000000B0: AB AB 00 E9 04 28 00 45 51 55 41 54 45 20 4C 44 |.....(.EQUATE LD| 000000C0: 59 20 23 32 35 35 3B 20 50 52 45 50 41 52 45 20 |Y #255; PREPARE | 000000D0: 59 20 A4 20 5A 45 52 4F 20 41 54 20 53 54 41 52 |Y . ZERO AT STAR| 000000E0: 54 20 4F 46 20 4C 4F 4F 50 00 19 05 32 00 45 51 |T OF LOOP...2.EQ| 000000F0: 31 20 49 4E 59 3B 20 59 20 CB 45 53 20 A4 20 5A |1 INY; Y .ES . Z| 00000100: 45 52 4F 20 31 53 54 20 54 49 4D 45 20 54 48 52 |ERO 1ST TIME THR| 00000110: 4F 55 47 48 20 4C 4F 4F 50 00 45 05 3C 00 4C 44 |OUGH LOOP.E.<.LD| 00000120: 41 20 4C 41 42 45 4C 2C 59 3B 20 4C 4F 4F 4B 20 |A LABEL,Y; LOOK | 00000130: 41 54 20 54 48 45 20 57 B0 44 2C 20 54 48 45 20 |AT THE W.D, THE | 00000140: 4C 41 42 45 4C 00 8A 05 46 00 42 45 51 20 4E 4F |LABEL...F.BEQ NO| 00000150: 41 52 3B 20 80 20 4F 46 20 4C 49 4E 45 20 28 53 |AR; . OF LINE (S| 00000160: 4F 20 54 48 45 52 45 27 53 20 41 20 4E 41 4B 45 |O THERE'S A NAKE| 00000170: 44 20 4C 41 42 45 4C 2C 20 A8 48 49 4E 47 20 46 |D LABEL, .HING F| 00000180: 4F 4C 4C 4F 57 53 20 49 54 29 00 CF 05 50 00 43 |OLLOWS IT)...P.C| 00000190: 4D 50 20 23 33 32 3B 20 46 4F 55 4E 44 20 41 20 |MP #32; FOUND A | 000001A0: 53 50 41 43 45 2C 20 53 4F 20 52 41 49 53 45 20 |SPACE, SO RAISE | 000001B0: 59 20 42 59 20 32 20 AF 20 53 45 54 20 4C 41 42 |Y BY 2 . SET LAB| 000001C0: 45 4C 20 53 49 5A 45 20 28 4C B6 49 5A 45 29 00 |EL SIZE (L.IZE).| 000001D0: FF 05 5A 00 42 4E 45 20 45 51 31 3B 20 4F 54 48 |..Z.BNE EQ1; OTH| 000001E0: 45 52 57 49 53 45 2C 20 4B 45 45 50 20 4C 4F 4F |ERWISE, KEEP LOO| 000001F0: 4B 49 4E 47 20 81 20 41 20 53 50 41 43 45 2E 00 |KING . A SPACE..| 00000200: 07 06 64 00 49 4E 59 00 0F 06 6E 00 49 4E 59 00 |..d.INY...n.INY.| 00000210: 1D 06 78 00 53 54 59 20 4C B6 49 5A 45 00 66 06 |..x.STY L.IZE.f.| 00000220: 82 00 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............| 00000230: AB AB AB AB AB AB AB 20 4C 4F 57 45 52 20 4D 45 |....... LOWER ME| 00000240: 4D A4 50 20 50 4F B5 45 52 20 57 49 54 48 49 4E |M.P PO.ER WITHIN| 00000250: 20 41 52 52 41 59 20 28 42 59 20 4C 41 42 45 4C | ARRAY (BY LABEL| 00000260: 20 53 49 5A 45 29 00 AF 06 8C 00 53 55 42 4D 45 | SIZE).....SUBME| 00000270: 4D 20 53 45 43 3B 20 53 55 42 54 52 41 43 54 20 |M SEC; SUBTRACT | 00000280: 4C 41 42 45 4C 20 53 49 5A 45 20 46 52 4F 4D 20 |LABEL SIZE FROM | 00000290: 41 52 52 41 59 20 50 4F B5 45 52 20 A4 20 4D 41 |ARRAY PO.ER . MA| 000002A0: 4B 45 20 52 4F 4F 4D 20 81 20 4C 41 42 45 4C 00 |KE ROOM . LABEL.| 000002B0: BD 06 96 00 4C 44 41 20 4D 45 4D A4 50 00 CB 06 |....LDA MEM.P...| 000002C0: A0 00 53 42 43 20 4C B6 49 5A 45 00 D9 06 AA 00 |..SBC L.IZE.....| 000002D0: 53 54 41 20 4D 45 4D A4 50 00 E9 06 B4 00 4C 44 |STA MEM.P.....LD| 000002E0: 41 20 4D 45 4D A4 50 AA 31 00 F4 06 BE 00 53 42 |A MEM.P.1.....SB| 000002F0: 43 20 23 30 00 13 07 C8 00 53 54 41 20 4D 45 4D |C #0.....STA MEM| 00000300: A4 50 AA 31 3B AB AB AB AB AB AB AB AB AB AB AB |.P.1;...........| 00000310: AB AB AB 00 51 07 CD 00 3B 53 48 8B 54 20 37 54 |....Q...;SH.T 7T| 00000320: 48 20 42 49 54 20 4F 46 20 31 53 54 20 43 48 41 |H BIT OF 1ST CHA| 00000330: 52 2E 20 A4 20 53 49 47 4E 8B 59 20 53 54 41 52 |R. . SIGN.Y STAR| 00000340: 54 20 4F 46 20 4C 41 42 45 4C 27 53 20 4E 41 4D |T OF LABEL'S NAM| 00000350: 45 00 5C 07 D2 00 4C 44 59 20 23 30 00 6C 07 DC |E.\...LDY #0.l..| 00000360: 00 4C 44 41 20 4C 41 42 45 4C 2C 59 00 78 07 E6 |.LDA LABEL,Y.x..| 00000370: 00 45 B0 20 23 24 38 30 00 A0 07 F0 00 53 54 41 |.E. #$80.....STA| 00000380: 20 28 4D 45 4D A4 50 29 2C 59 3B 20 53 A4 52 45 | (MEM.P),Y; S.RE| 00000390: 20 53 48 8B 54 45 44 20 31 53 54 20 88 54 45 52 | SH.TED 1ST .TER| 000003A0: 00 AC 07 FA 00 45 51 33 20 49 4E 59 00 E4 07 04 |.....EQ3 INY....| 000003B0: 01 4C 44 41 20 4C 41 42 45 4C 2C 59 3B 20 8B 20 |.LDA LABEL,Y; . | 000003C0: 53 50 41 43 45 2C 20 90 20 53 A4 52 49 4E 47 20 |SPACE, . S.RING | 000003D0: 4C 41 42 45 4C 20 4E 41 4D 45 20 49 4E 20 41 52 |LABEL NAME IN AR| 000003E0: 52 41 59 2E 00 F0 07 0E 01 43 4D 50 20 23 33 32 |RAY......CMP #32| 000003F0: 00 FC 07 18 01 42 45 51 20 45 51 32 00 30 08 22 |.....BEQ EQ2.0."| 00000400: 01 53 54 41 20 28 4D 45 4D A4 50 29 2C 59 3B 20 |.STA (MEM.P),Y; | 00000410: 4F 54 48 45 52 57 49 53 45 2C 20 50 55 54 20 82 |OTHERWISE, PUT .| 00000420: 20 88 54 45 52 20 B5 4F 20 41 52 52 41 59 20 26 | .TER .O ARRAY &| 00000430: 00 44 08 2C 01 4A 4D 50 20 45 51 33 3B 20 9A 49 |.D.,.JMP EQ3; .I| 00000440: 4E 55 45 2E 00 84 08 36 01 45 51 32 20 49 4E 59 |NUE....6.EQ2 INY| 00000450: 3B 20 4E 4F 57 20 43 48 45 43 4B 20 81 20 B2 20 |; NOW CHECK . . | 00000460: 28 53 49 47 4E 8B 59 49 4E 47 20 45 51 55 41 54 |(SIGN.YING EQUAT| 00000470: 45 20 54 59 50 45 29 20 28 4C 41 42 45 4C 20 B2 |E TYPE) (LABEL .| 00000480: 20 31 35 29 00 94 08 40 01 4C 44 41 20 4C 41 42 | 15)...@.LDA LAB| 00000490: 45 4C 2C 59 00 C3 08 4A 01 43 4D 50 20 23 24 33 |EL,Y...J.CMP #$3| 000004A0: 44 3B 20 8B 20 45 51 55 41 54 45 20 54 59 50 45 |D; . EQUATE TYPE| 000004B0: 2C 20 CB 20 A4 20 46 49 4E 44 20 49 54 53 20 C5 |, . . FIND ITS .| 000004C0: 55 45 2E 00 D1 08 54 01 42 45 51 20 45 51 55 41 |UE....T.BEQ EQUA| 000004D0: 4C 00 01 09 5E 01 44 45 59 3B 20 4F 54 48 45 52 |L...^.DEY; OTHER| 000004E0: 57 49 53 45 2C 20 49 54 27 53 20 50 43 20 54 59 |WISE, IT'S PC TY| 000004F0: 50 45 20 28 4C 41 42 45 4C 20 4C 44 41 20 31 35 |PE (LABEL LDA 15| 00000500: 29 00 41 09 68 01 4C 44 41 20 53 41 3B 20 53 4F |).A.h.LDA SA; SO| 00000510: 20 54 48 45 20 50 43 20 56 41 52 49 41 42 4C 45 | THE PC VARIABLE| 00000520: 20 28 53 41 29 20 9A 41 49 4E 53 20 54 48 45 20 | (SA) .AINS THE | 00000530: C5 55 45 20 4F 46 20 54 48 49 53 20 4C 41 42 45 |.UE OF THIS LABE| 00000540: 4C 00 81 09 72 01 53 54 41 20 28 4D 45 4D A4 50 |L...r.STA (MEM.P| 00000550: 29 2C 59 3B 20 53 A4 52 45 20 49 54 20 52 49 47 |),Y; S.RE IT RIG| 00000560: 48 54 20 41 46 54 45 52 20 4C 41 42 45 4C 20 4E |HT AFTER LABEL N| 00000570: 41 4D 45 20 57 49 54 48 49 4E 20 41 52 52 41 59 |AME WITHIN ARRAY| 00000580: 2E 00 89 09 7C 01 49 4E 59 00 96 09 86 01 4C 44 |....|.INY.....LD| 00000590: 41 20 53 41 AA 31 00 A8 09 90 01 53 54 41 20 28 |A SA.1.....STA (| 000005A0: 4D 45 4D A4 50 29 2C 59 00 EC 09 9A 01 4C 44 58 |MEM.P),Y.....LDX| 000005B0: 20 4C B6 49 5A 45 3B 20 4E 4F 57 2C 20 55 BF 47 | L.IZE; NOW, U.G| 000005C0: 20 4C 41 42 45 4C 53 49 5A 45 20 41 53 20 49 4E | LABELSIZE AS IN| 000005D0: 44 45 58 2C 20 45 52 41 53 45 20 54 48 45 20 50 |DEX, ERASE THE P| 000005E0: 43 AB 54 59 50 45 20 4C 41 42 45 4C 00 2D 0A A4 |C.TYPE LABEL.-..| 000005F0: 01 44 45 58 3B 20 20 20 20 20 20 20 20 20 46 52 |.DEX; FR| 00000600: 4F 4D 20 54 48 45 20 42 55 46 46 45 52 2E 20 20 |OM THE BUFFER. | 00000610: 81 20 45 58 41 4D 50 4C 45 2C 20 28 4C 41 42 45 |. EXAMPLE, (LABE| 00000620: 4C 20 4C 44 41 20 31 35 29 20 4E 4F 57 00 70 0A |L LDA 15) NOW.p.| 00000630: AE 01 4C 44 59 20 23 30 3B 20 20 20 20 20 20 42 |..LDY #0; B| 00000640: 45 43 4F 4D 45 53 20 28 4C 44 41 20 31 35 29 2E |ECOMES (LDA 15).| 00000650: 20 20 54 48 45 20 4C 41 42 45 4C 20 4E 41 4D 45 | THE LABEL NAME| 00000660: 20 49 53 20 43 4F 56 45 52 45 44 20 4F 56 45 52 | IS COVERED OVER| 00000670: 00 B2 0A B8 01 45 51 35 20 4C 44 41 20 4C 41 42 |.....EQ5 LDA LAB| 00000680: 45 4C 2C 58 3B 20 A4 20 50 52 45 50 41 52 45 20 |EL,X; . PREPARE | 00000690: 54 48 45 20 52 45 53 54 20 4F 46 20 54 48 45 20 |THE REST OF THE | 000006A0: 4C 49 4E 45 20 A4 20 42 45 20 41 4E 41 4C 59 5A |LINE . BE ANALYZ| 000006B0: 45 44 00 CE 0A C2 01 42 45 51 20 45 51 34 3B 20 |ED.....BEQ EQ4; | 000006C0: 4E B0 4D 41 4C 4C 59 20 42 59 20 45 C5 2E 00 DE |N.MALLY BY E....| 000006D0: 0A CC 01 53 54 41 20 4C 41 42 45 4C 2C 59 00 E6 |...STA LABEL,Y..| 000006E0: 0A D6 01 49 4E 58 00 EE 0A E0 01 49 4E 59 00 FA |...INX.....INY..| 000006F0: 0A EA 01 4A 4D 50 20 45 51 35 00 0E 0B F4 01 45 |...JMP EQ5.....E| 00000700: 51 34 20 53 54 41 20 4C 41 42 45 4C 2C 59 00 38 |Q4 STA LABEL,Y.8| 00000710: 0B FE 01 52 54 53 3B 20 8E 20 A4 20 45 C5 20 AB |...RTS; . . E. .| 00000720: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................| 00000730: AB AB AB AB AB AB AB AB 00 7C 0B 08 02 4E 4F 41 |.........|...NOA| 00000740: 52 20 4A 53 52 20 50 52 4E 54 43 52 3A 4A 53 52 |R JSR PRNTCR:JSR| 00000750: 20 50 52 4E 54 4C 49 4E 45 3B 4E 41 4B 45 44 20 | PRNTLINE;NAKED | 00000760: 4C 41 42 45 4C 20 46 4F 55 4E 44 20 28 4E 4F 20 |LABEL FOUND (NO | 00000770: 41 52 47 55 4D 45 4E 54 29 20 53 4F 00 8B 0B 0D |ARGUMENT) SO....| 00000780: 02 4A 53 52 20 45 52 52 49 4E 47 00 C4 0B 12 02 |.JSR ERRING.....| 00000790: 4C 44 41 20 23 B3 4E 4F 41 52 47 3B 20 52 49 4E |LDA #.NOARG; RIN| 000007A0: 47 20 42 45 4C 4C 20 AF 20 99 20 4E 41 4B 45 44 |G BELL . . NAKED| 000007B0: 20 4C 41 42 45 4C 20 45 52 52 B0 20 4D 45 53 53 | LABEL ERR. MESS| 000007C0: 41 47 45 2E 00 D1 0B 1C 02 53 54 41 20 54 45 4D |AGE......STA TEM| 000007D0: 50 00 E1 0B 26 02 4C 44 41 20 23 B1 4E 4F 41 52 |P...&.LDA #.NOAR| 000007E0: 47 00 F0 0B 30 02 53 54 41 20 54 45 4D 50 AA 31 |G...0.STA TEMP.1| 000007F0: 00 0C 0C 3A 02 4A 53 52 20 50 52 4E 54 4D 45 53 |...:.JSR PRNTMES| 00000800: 53 3A 4A 53 52 20 50 52 4E 54 43 52 00 39 0C 44 |S:JSR PRNTCR.9.D| 00000810: 02 4A 4D 50 20 45 51 52 45 54 3B 20 8E 20 A4 20 |.JMP EQRET; . . | 00000820: 45 C5 AB AB AB AB AB AB AB AB AB AB AB AB AB AB |E...............| 00000830: AB AB AB AB AB AB AB AB AB 00 3F 0C 48 02 3B 00 |..........?.H.;.| 00000840: 78 0C 49 02 3B AB AB AB AB AB AB AB AB AB AB AB |x.I.;...........| 00000850: AB AB AB AB 20 48 AF 4C 45 20 45 51 55 41 54 45 |.... H.LE EQUATE| 00000860: 20 54 59 50 45 53 20 48 45 52 45 20 28 4C 41 42 | TYPES HERE (LAB| 00000870: 45 4C 20 B2 20 31 35 29 00 86 0C 4E 02 45 51 55 |EL . 15)...N.EQU| 00000880: 41 4C 20 44 45 59 00 CE 0C 58 02 53 54 59 20 4C |AL DEY...X.STY L| 00000890: 41 42 50 54 52 3B 20 54 45 4C 4C 53 20 55 53 20 |ABPTR; TELLS US | 000008A0: 48 4F 57 20 46 41 52 20 46 52 4F 4D 20 4D 45 4D |HOW FAR FROM MEM| 000008B0: A4 50 20 57 45 20 53 48 4F 55 4C 44 20 53 A4 52 |.P WE SHOULD S.R| 000008C0: 45 20 41 52 47 55 4D 45 4E 54 20 C5 55 45 00 17 |E ARGUMENT .UE..| 000008D0: 0D 62 02 4C 44 41 20 48 45 58 46 4C 41 47 3B 20 |.b.LDA HEXFLAG; | 000008E0: 48 45 58 20 4E 55 4D 42 45 52 53 20 41 4C 87 59 |HEX NUMBERS AL.Y| 000008F0: 20 48 AF 4C 45 44 20 42 59 20 49 4E 44 49 53 4B | H.LED BY INDISK| 00000900: 20 52 4F 55 54 49 4E 45 2C 20 53 4F 20 53 4B 49 | ROUTINE, SO SKI| 00000910: 50 20 4F 56 45 52 2E 00 55 0D 6C 02 42 4E 45 20 |P OVER..U.l.BNE | 00000920: 46 49 4E 45 51 3B 20 48 45 58 20 46 4C 41 47 20 |FINEQ; HEX FLAG | 00000930: 55 50 2C 20 53 4F 20 CB 20 A4 20 45 51 55 41 54 |UP, SO . . EQUAT| 00000940: 45 20 45 58 49 54 20 52 4F 55 54 49 4E 45 20 42 |E EXIT ROUTINE B| 00000950: 45 4C 4F 57 2E 00 98 0D 76 02 49 4E 59 3B 20 4F |ELOW....v.INY; O| 00000960: 54 48 45 52 57 49 53 45 2C 20 57 45 20 4E 45 45 |THERWISE, WE NEE| 00000970: 44 20 A4 20 46 49 47 55 52 45 20 4F 55 54 20 54 |D . FIGURE OUT T| 00000980: 48 45 20 41 52 47 55 4D 45 4E 54 20 28 4C 41 42 |HE ARGUMENT (LAB| 00000990: 45 4C 20 B2 20 31 35 29 00 DB 0D 80 02 49 4E 59 |EL . 15).....INY| 000009A0: 3B 20 54 48 45 52 45 20 41 52 45 20 54 48 52 45 |; THERE ARE THRE| 000009B0: 45 20 43 48 41 52 53 2E 20 28 20 B2 20 29 20 42 |E CHARS. ( . ) B| 000009C0: 45 54 57 45 45 4E 20 4C 41 42 45 4C 20 26 20 41 |ETWEEN LABEL & A| 000009D0: 52 47 55 4D 45 4E 54 2C 20 53 4F 00 F0 0D 8A 02 |RGUMENT, SO.....| 000009E0: 49 4E 59 3B 20 49 4E 59 20 54 48 52 49 43 45 2E |INY; INY THRICE.| 000009F0: 00 2D 0E 94 02 53 54 59 20 57 B0 4B AA 31 3B 20 |.-...STY W.K.1; | 00000A00: 50 4F B5 20 A4 20 4C 4F 43 41 54 49 91 20 4F 46 |PO. . LOCATI. OF| 00000A10: 20 C6 49 49 20 4E 55 4D 42 45 52 20 28 49 4E 20 | .II NUMBER (IN | 00000A20: 4C 41 42 45 4C 20 42 55 46 46 45 52 29 00 63 0E |LABEL BUFFER).c.| 00000A30: 9E 02 4C 44 41 20 23 B3 4C 41 42 45 4C 3B 20 53 |..LDA #.LABEL; S| 00000A40: 45 54 20 55 50 20 54 45 4D 50 20 50 4F B5 45 52 |ET UP TEMP PO.ER| 00000A50: 20 A4 20 50 4F B5 20 A4 20 C6 49 49 20 4E 55 4D | . PO. . .II NUM| 00000A60: 42 45 52 00 6B 0E A8 02 43 4C 43 00 79 0E B2 02 |BER.k...CLC.y...| 00000A70: 41 44 43 20 57 B0 4B AA 31 00 86 0E BC 02 53 54 |ADC W.K.1.....ST| 00000A80: 41 20 54 45 4D 50 00 96 0E C6 02 4C 44 41 20 23 |A TEMP.....LDA #| 00000A90: B1 4C 41 42 45 4C 00 A1 0E D0 02 41 44 43 20 23 |.LABEL.....ADC #| 00000AA0: 30 00 B0 0E DA 02 53 54 41 20 54 45 4D 50 AA 31 |0.....STA TEMP.1| 00000AB0: 00 E8 0E E4 02 4A 53 52 20 C5 44 45 43 3B 20 43 |.....JSR .DEC; C| 00000AC0: 41 4C 43 55 4C 41 54 45 20 C6 49 49 20 4E 55 4D |ALCULATE .II NUM| 00000AD0: 42 45 52 20 C5 55 45 20 AF 20 53 A4 52 45 20 49 |BER .UE . S.RE I| 00000AE0: 4E 20 52 45 53 55 4C 54 00 2C 0F EE 02 46 49 4E |N RESULT.,...FIN| 00000AF0: 45 51 20 4C 44 59 20 4C 41 42 50 54 52 3B 20 53 |EQ LDY LABPTR; S| 00000B00: A4 52 45 20 B5 45 47 45 52 20 C5 55 45 20 4A 55 |.RE .EGER .UE JU| 00000B10: 53 54 20 41 46 54 45 52 20 4C 41 42 45 4C 20 4E |ST AFTER LABEL N| 00000B20: 41 4D 45 20 49 4E 20 41 52 52 41 59 00 3B 0F F8 |AME IN ARRAY.;..| 00000B30: 02 4C 44 41 20 52 45 53 55 4C 54 00 4D 0F 02 03 |.LDA RESULT.M...| 00000B40: 53 54 41 20 28 4D 45 4D A4 50 29 2C 59 00 5E 0F |STA (MEM.P),Y.^.| 00000B50: 0C 03 4C 44 41 20 52 45 53 55 4C 54 AA 31 00 66 |..LDA RESULT.1.f| 00000B60: 0F 16 03 49 4E 59 00 78 0F 20 03 53 54 41 20 28 |...INY.x. .STA (| 00000B70: 4D 45 4D A4 50 29 2C 59 00 BA 0F 2A 03 45 51 52 |MEM.P),Y...*.EQR| 00000B80: 45 54 20 50 4C 41 3B 50 55 4C 4C 20 4F 46 46 20 |ET PLA;PULL OFF | 00000B90: 54 48 45 20 52 54 53 20 28 46 52 4F 4D 20 45 C5 |THE RTS (FROM E.| 00000BA0: 29 20 AF 20 4A 55 4D 50 20 44 49 52 45 43 54 4C |) . JUMP DIRECTL| 00000BB0: 59 20 A4 20 49 4E 4C 49 4E 45 00 01 10 34 03 50 |Y . INLINE...4.P| 00000BC0: 4C 41 3B 20 20 20 20 20 20 49 47 4E B0 49 4E 47 |LA; IGN.ING| 00000BD0: 20 41 4E 59 20 46 55 52 54 48 45 52 20 45 C5 55 | ANY FURTHER E.U| 00000BE0: 41 54 49 91 20 4F 46 20 54 48 49 53 20 4C 49 4E |ATI. OF THIS LIN| 00000BF0: 45 20 BF 43 45 20 45 51 55 41 54 45 20 54 59 50 |E .CE EQUATE TYP| 00000C00: 45 00 37 10 3E 03 4A 4D 50 20 49 4E 4C 49 4E 45 |E.7.>.JMP INLINE| 00000C10: 3B 20 4C 41 42 45 4C 53 20 41 52 45 20 46 4F 4C |; LABELS ARE FOL| 00000C20: 4C 4F 57 45 44 20 42 59 20 A8 48 49 4E 47 20 A4 |LOWED BY .HING .| 00000C30: 20 45 C5 55 41 54 45 00 47 10 48 03 2E 46 49 4C | E.UATE.G.H..FIL| 00000C40: 45 20 41 52 52 41 59 00 00 00 |E ARRAY... |
......; "EQUATE" EEUATE LABELS.F...; CO ULD BE EITHER PC (ADDRESS) TYPE . EQUATE TYPE. S.RE IN ARRAY......; .MAT..NAME. 2.BYTE .EGER EUE.NAME.2.BYTE EUE.ETC.... ....;................(.EQUATE LDY #255; PREPARE Y . ZERO AT START OF LOOP...2.EQ 1 INY; Y KES . ZERO 1ST TIME THROUGH LOO P.E.<.LDA LABEL,Y; LOOK AT THE W.D, THE LABEL...F.BEQ NOAR; . OF LINE (SO THERE' S A NAKED LABEL, .HING FOLLOWS IT).O.P.C MP #32; FOUND A SPACE, SO RAISE Y BY 2 . SET LABEL SIZE (L.IZE)...Z.BNE EQ1; OTH ERWISE, KEEP LOOKING . A SPACE....D.INY. ..N.INY...X.STY L.IZE.F...;............. ....... LOWER MEM.P PO.ER WITHIN ARRAY ( BY LABEL SIZE).....SUBMEM SEC; SUBTRACT LABEL SIZE FROM ARRAY PO.ER . MAKE ROOM . LABEL.....LDA MEM.P.K. .SBC L.IZE.Y... STA MEM.P.....LDA MEM.P.1.....SBC #0...H .STA MEM.P.1;...............Q.M.;SH.T 7T H BIT OF 1ST CHAR. . SIGN.Y START OF LAB EL'S NAME.\.R.LDY #0.L...LDA LABEL,Y.X.. .E. #$80. ...STA (MEM.P),Y; S.RE SH.TED 1ST .TER.....EQ3 INY.....LDA LABEL,Y; . SPACE, . S.RING LABEL NAME IN ARRAY..... .CMP #32.....BEQ EQ2.0.".STA (MEM.P),Y; OTHERWISE, PUT . .TER .O ARRAY &.D.,.JMP EQ3; .INUE....6.EQ2 INY; NOW CHECK . . (SIGN.YING EQUATE TYPE) (LABEL . 15)...@ .LDA LABEL,Y.C.J.CMP #$3D; . EQUATE TYPE , K . FIND ITS EUE..Q.T.BEQ EQUAL...^.DE Y; OTHERWISE, IT'S PC TYPE (LABEL LDA 15 ).A.H.LDA SA; SO THE PC VARIABLE (SA) .A INS THE EUE OF THIS LABEL...R.STA (MEM.P ),Y; S.RE IT RIGHT AFTER LABEL NAME WITH IN ARRAY....|.INY.....LDA SA.1.....STA ( MEM.P),Y.....LDX L.IZE; NOW, U.G LABELSI ZE AS INDEX, ERASE THE PC.TYPE LABEL.-.. .DEX; FROM THE BUFFER. . EXAMPL E, (LABEL LDA 15) NOW.P...LDY #0; B ECOMES (LDA 15). THE LABEL NAME IS COVE RED OVER.....EQ5 LDA LABEL,X; . PREPARE THE REST OF THE LINE . BE ANALYZED.N.B.B EQ EQ4; N.MALLY BY EE....L.STA LABEL,Y.. .V.INX.....INY.....JMP EQ5.....EQ4 STA L ABEL,Y.8...RTS; . . EE ................. .........|...NOAR JSR PRNTCR:JSR PRNTLIN E;NAKED LABEL FOUND (NO ARGUMENT) SO.... .JSR ERRING.D...LDA #.NOARG; RING BELL . . NAKED LABEL ERR. MESSAGE..Q...STA TEM P...&.LDA #.NOARG...0.STA TEMP.1...:.JSR PRNTMESS:JSR PRNTCR.9.D.JMP EQRET; . . EE........................?.H.;.X.I.;... ............ H.LE EQUATE TYPES HERE (LAB EL . 15)...N.EQUAL DEY.N.X.STY LABPTR; T ELLS US HOW FAR FROM MEM.P WE SHOULD S.R E ARGUMENT EUE...B.LDA HEXFLAG; HEX NUMB ERS AL.Y H.LED BY INDISK ROUTINE, SO SKI P OVER..U.L.BNE FINEQ; HEX FLAG UP, SO K . EQUATE EXIT ROUTINE BELOW....V.INY; O THERWISE, WE NEED . FIGURE OUT THE ARGUM ENT (LABEL . 15).....INY; THERE ARE THRE E CHARS. ( . ) BETWEEN LABEL & ARGUMENT, SO.....INY; INY THRICE..-...STY W.K.1; PO. . LOCATI. OF FII NUMBER (IN LABEL BU FFER).C...LDA #.LABEL; SET UP TEMP PO.ER . PO. . FII NUMBER.K...CLC.Y...ADC W.K. 1.....STA TEMP...F.LDA #.LABEL...P.ADC # 0...Z.STA TEMP.1.....JSR EDEC; CALCULATE FII NUMBER EUE . S.RE IN RESULT.,...FIN EQ LDY LABPTR; S.RE .EGER EUE JUST AFTER LABEL NAME IN ARRAY.;...LDA RESULT.M... STA (MEM.P),Y.^...LDA RESULT.1.F...INY.X . .STA (MEM.P),Y...*.EQRET PLA;PULL OFF THE RTS (FROM EE) . JUMP DIRECTLY . INLI NE...4.PLA; IGN.ING ANY FURTHER EEU ATI. OF THIS LINE .CE EQUATE TYPE.7.>.JM P INLINE; LABELS ARE FOLLOWED BY .HING . EEUATE.G.H..FILE ARRAY...
> CLICK IMAGE PREVIEW FOR FULL MODAL