GOGOWEDGE.SRC
FILE INFORMATION
FILENAME(S): GOGOWEDGE.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
eebd0c2426e70a852872043cbc974fb2c3dc994c95819343670b79b8b84dbbd4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | GOGOWEDGE.SRC | PRG | DuncanTwain | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1F 04 E8 03 8F 20 53 41 56 45 22 30 3A 47 |....... SAVE"0:G| 00000010: 4F 47 4F 57 45 44 47 45 2E 53 52 43 22 2C 38 00 |OGOWEDGE.SRC",8.| 00000020: 42 04 F2 03 8F 20 42 59 20 43 48 52 49 53 20 4D |B.... BY CHRIS M| 00000030: 49 4C 4C 45 52 20 4A 41 4E 2E 20 34 2C 20 31 39 |ILLER JAN. 4, 19| 00000040: 38 37 00 69 04 FC 03 8F 20 45 4E 41 42 4C 45 53 |87.i.... ENABLES| 00000050: 20 43 41 4C 43 55 4C 41 54 45 44 20 47 4F 54 4F | CALCULATED GOTO| 00000060: 28 53 55 42 29 20 4C 4E 23 00 93 04 06 04 8F 20 |(SUB) LN#...... | 00000070: 45 2E 47 2E 20 4E 3D 31 30 3A 20 47 4F 54 4F 20 |E.G. N=10: GOTO | 00000080: 4E 2A 4E 20 28 49 2E 45 2E 20 47 4F 54 4F 20 31 |N*N (I.E. GOTO 1| 00000090: 30 30 29 00 B2 04 10 04 8F 20 45 4E 41 42 4C 45 |00)...... ENABLE| 000000A0: 53 20 47 4F 54 4F 28 53 55 42 29 20 4C 41 42 45 |S GOTO(SUB) LABE| 000000B0: 4C 53 00 C8 04 1A 04 8F 20 45 2E 47 2E 20 47 4F |LS...... E.G. GO| 000000C0: 53 55 42 20 40 50 49 47 00 EF 04 24 04 8F 20 45 |SUB @PIG...$.. E| 000000D0: 4E 41 42 4C 45 53 20 47 4F 54 4F 28 53 55 42 29 |NABLES GOTO(SUB)| 000000E0: 20 56 41 52 49 41 42 4C 45 20 4E 41 4D 45 24 00 | VARIABLE NAME$.| 000000F0: 0E 05 2E 04 8F 20 45 2E 47 2E 20 58 24 3D 22 50 |..... E.G. X$="P| 00000100: 49 47 22 3A 20 47 4F 53 55 42 20 40 58 24 00 36 |IG": GOSUB @X$.6| 00000110: 05 38 04 8F 20 45 2E 47 2E 20 35 30 30 30 20 40 |.8.. E.G. 5000 @| 00000120: 50 49 47 3A 20 28 54 4F 20 46 4C 41 47 20 52 4F |PIG: (TO FLAG RO| 00000130: 55 54 49 4E 45 29 00 6B 05 42 04 8F 20 2A 2A 20 |UTINE).k.B.. ** | 00000140: 53 4F 55 52 43 45 20 49 4E 20 42 55 44 44 59 20 |SOURCE IN BUDDY | 00000150: 36 34 20 28 50 4F 57 45 52 20 41 53 53 45 4D 42 |64 (POWER ASSEMB| 00000160: 4C 45 52 29 20 46 4F 52 4D 41 54 00 71 05 4C 04 |LER) FORMAT.q.L.| 00000170: 3A 00 7A 05 56 04 9E 39 39 39 00 94 05 60 04 3B |:.z.V..999...`.;| 00000180: 20 9E 37 30 30 20 81 20 50 41 4C 20 AF 20 53 59 | .700 . PAL . SY| 00000190: 4D 41 53 53 00 9A 05 6A 04 3B 00 A6 05 74 04 AC |MASS...j.;...t..| 000001A0: B2 34 39 31 35 32 00 BF 05 7E 04 2E 4D 45 4D 20 |.49152...~..MEM | 000001B0: 3B 20 2E 4F 50 54 20 4F 4F 20 81 20 50 41 4C 00 |; .OPT OO . PAL.| 000001C0: C5 05 88 04 3B 00 D5 05 92 04 53 52 43 50 54 52 |....;.....SRCPTR| 000001D0: 20 B2 24 35 46 00 E5 05 9C 04 41 52 47 50 54 52 | .$5F.....ARGPTR| 000001E0: 20 B2 32 35 33 00 F3 05 A6 04 C3 47 54 48 20 B2 | .253......GTH .| 000001F0: 32 35 35 00 F9 05 B0 04 3B 00 1B 06 BA 04 3B AC |255.....;.....;.| 00000200: AC 20 57 45 44 47 45 20 81 20 56 41 52 49 41 42 |. WEDGE . VARIAB| 00000210: 4C 45 20 89 27 53 20 26 20 8D 53 00 21 06 C4 04 |LE .'S & .S.!...| 00000220: 3B 00 2F 06 CE 04 4C 44 41 20 23 B3 57 44 47 00 |;./...LDA #.WDG.| 00000230: 4D 06 D8 04 53 54 41 20 24 33 30 38 3B 20 49 4E |M...STA $308; IN| 00000240: 53 54 41 4C 4C 20 9D 20 57 45 44 47 45 00 5B 06 |STALL . WEDGE.[.| 00000250: E2 04 4C 44 41 20 23 B1 57 44 47 00 68 06 EC 04 |..LDA #.WDG.h...| 00000260: 53 54 41 20 24 33 30 39 00 70 06 F6 04 52 54 53 |STA $309.p...RTS| 00000270: 00 76 06 00 05 3B 00 81 06 0A 05 57 44 47 20 B2 |.v...;.....WDG .| 00000280: AC 00 9A 06 14 05 4A 53 52 20 24 37 33 20 20 20 |......JSR $73 | 00000290: 20 20 3B A1 20 43 4F 4D 4D AF 00 A8 06 1E 05 4A | ;. COMM......J| 000002A0: 53 52 20 50 41 52 53 45 00 B6 06 28 05 4A 4D 50 |SR PARSE...(.JMP| 000002B0: 20 24 41 37 41 45 00 BC 06 32 05 3B 00 C9 06 3C | $A7AE...2.;...<| 000002C0: 05 50 41 52 53 45 20 B2 AC 00 E2 06 46 05 43 4D |.PARSE .....F.CM| 000002D0: 50 20 23 31 33 37 20 20 20 20 3B 49 53 20 49 54 |P #137 ;IS IT| 000002E0: 20 89 00 FB 06 50 05 42 45 51 20 89 20 20 20 20 | ....P.BEQ . | 000002F0: 3B 59 45 53 AD A7 20 44 4F 20 89 00 01 07 5A 05 |;YES.. DO ....Z.| 00000300: 3B 00 1A 07 64 05 43 4D 50 20 23 31 34 31 20 20 |;...d.CMP #141 | 00000310: 20 20 3B 49 53 20 49 54 20 8D 00 32 07 6E 05 42 | ;IS IT ..2.n.B| 00000320: 45 51 20 8D 20 20 20 3B 59 45 53 AD A7 20 44 4F |EQ . ;YES.. DO| 00000330: 20 8D 00 38 07 78 05 3B 00 57 07 82 05 43 4D 50 | ..8.x.;.W...CMP| 00000340: 20 23 22 40 22 20 20 20 20 3B 49 53 20 49 54 20 | #"@" ;IS IT | 00000350: 41 20 4C 41 42 45 4C 00 73 07 8C 05 42 4E 45 20 |A LABEL.s...BNE | 00000360: A4 42 41 53 49 43 20 3B 59 45 53 AD A7 20 49 47 |.BASIC ;YES.. IG| 00000370: 4E B0 45 00 79 07 96 05 3B 00 93 07 A0 05 4A 4D |N.E.y...;.....JM| 00000380: 50 20 24 41 38 46 38 20 20 20 3B 87 20 A4 20 45 |P $A8F8 ;. . E| 00000390: 4F 4C 4E 00 99 07 AA 05 3B 00 AE 07 B4 05 3B AC |OLN.....;.....;.| 000003A0: AC 20 42 41 43 4B 20 A4 20 42 41 53 49 43 00 BC |. BACK . BASIC..| 000003B0: 07 BE 05 A4 42 41 53 49 43 20 B2 AC 00 E2 07 C8 |....BASIC ......| 000003C0: 05 4A 53 52 20 24 37 43 20 20 20 20 20 3B 53 45 |.JSR $7C ;SE| 000003D0: 54 53 20 43 48 52 20 46 4C 41 47 53 20 41 47 41 |TS CHR FLAGS AGA| 000003E0: 49 4E 00 FF 07 D2 05 4A 4D 50 20 24 41 37 45 44 |IN.....JMP $A7ED| 000003F0: 20 20 20 3B 9A 49 4E 55 45 20 50 41 52 BF 47 00 | ;.INUE PAR.G.| 00000400: 05 08 DC 05 3B 00 0E 08 E6 05 8D 20 B2 AC 00 19 |....;...... ....| 00000410: 08 F0 05 4C 44 41 20 23 33 00 3C 08 FA 05 4A 53 |...LDA #3.<...JS| 00000420: 52 20 24 41 33 46 42 20 20 20 3B 43 48 45 43 4B |R $A3FB ;CHECK| 00000430: 20 53 54 41 43 4B 20 53 50 41 43 45 00 48 08 04 | STACK SPACE.H..| 00000440: 06 4C 44 41 20 24 37 42 00 64 08 0E 06 50 48 41 |.LDA $7B.d...PHA| 00000450: 20 3B 50 55 53 48 20 53 54 55 46 46 20 91 20 53 | ;PUSH STUFF . S| 00000460: 54 41 43 4B 00 70 08 18 06 4C 44 41 20 24 37 41 |TACK.p...LDA $7A| 00000470: 00 84 08 22 06 50 48 41 20 3B 54 45 58 54 20 50 |...".PHA ;TEXT P| 00000480: 4F B5 45 52 00 90 08 2C 06 4C 44 41 20 24 33 41 |O.ER...,.LDA $3A| 00000490: 00 A4 08 36 06 50 48 41 20 3B 4C 49 4E 45 4E 55 |...6.PHA ;LINENU| 000004A0: 4D 42 45 52 00 B0 08 40 06 4C 44 41 20 24 33 39 |MBER...@.LDA $39| 000004B0: 00 B8 08 4A 06 50 48 41 00 C5 08 54 06 4C 44 41 |...J.PHA...T.LDA| 000004C0: 20 23 31 34 31 00 D5 08 5E 06 50 48 41 20 3B 8D | #141...^.PHA ;.| 000004D0: 20 A4 4B 45 4E 00 DF 08 68 06 4A 53 52 20 89 00 | .KEN...h.JSR ..| 000004E0: ED 08 72 06 4A 4D 50 20 24 41 37 41 45 00 F3 08 |..r.JMP $A7AE...| 000004F0: 7C 06 3B 00 FC 08 86 06 89 20 B2 AC 00 18 09 90 ||.;...... ......| 00000500: 06 4A 53 52 20 24 37 33 20 20 20 20 20 20 20 3B |.JSR $73 ;| 00000510: A1 20 82 20 43 48 41 52 00 3A 09 9A 06 43 4D 50 |. . CHAR.:...CMP| 00000520: 20 23 22 40 22 20 20 20 20 20 20 20 3B 53 45 45 | #"@" ;SEE| 00000530: 20 8B 20 4C 41 42 45 4C 20 89 00 5E 09 A4 06 42 | . LABEL ..^...B| 00000540: 45 51 20 49 53 4C 41 42 45 4C 20 20 20 3B 59 45 |EQ ISLABEL ;YE| 00000550: 53 AD A7 20 43 48 45 43 4B 20 54 59 50 45 00 64 |S.. CHECK TYPE.d| 00000560: 09 AE 06 3B 00 83 09 B8 06 3B AC AC 20 45 C5 20 |...;.....;.. E. | 00000570: BD 52 20 46 4F 4C 4C 4F 57 49 4E 47 20 89 28 53 |.R FOLLOWING .(S| 00000580: 55 42 29 00 A0 09 C2 06 4A 53 52 20 24 37 43 20 |UB).....JSR $7C | 00000590: 20 20 20 20 3B 52 45 53 45 54 20 46 4C 41 47 53 | ;RESET FLAGS| 000005A0: 00 C0 09 CC 06 4A 53 52 20 24 41 44 39 45 20 20 |.....JSR $AD9E | 000005B0: 20 3B 45 C5 55 41 54 45 20 BD 52 45 53 53 49 91 | ;E.UATE .RESSI.| 000005C0: 00 E6 09 D6 06 4A 53 52 20 24 42 37 46 37 20 20 |.....JSR $B7F7 | 000005D0: 20 3B 43 91 56 45 52 54 20 46 4C 4F 41 54 20 A4 | ;C.VERT FLOAT .| 000005E0: 20 46 49 58 45 44 00 EC 09 E0 06 3B 00 F9 09 EA | FIXED.....;....| 000005F0: 06 89 4C 49 4E 45 20 B2 AC 00 12 0A F4 06 4A 4D |..LINE .......JM| 00000600: 50 20 24 41 38 41 33 20 20 20 3B 50 45 52 81 4D |P $A8A3 ;PER.M| 00000610: 20 89 00 18 0A FE 06 3B 00 3E 0A 08 07 3B AC AC | ......;.>...;..| 00000620: 20 4C 41 42 45 4C 20 55 53 45 44 20 49 4E 53 54 | LABEL USED INST| 00000630: 45 41 44 20 4F 46 20 4C 49 4E 45 4E 55 4D 00 4D |EAD OF LINENUM.M| 00000640: 0A 12 07 49 53 4C 41 42 45 4C 20 B2 AC 00 71 0A |...ISLABEL ...q.| 00000650: 1C 07 4A 53 52 20 24 41 39 30 36 20 20 20 20 20 |..JSR $A906 | 00000660: 3B 49 4E 44 45 58 20 80 20 4F 46 20 53 54 27 4D |;INDEX . OF ST'M| 00000670: 54 00 8D 0A 26 07 44 45 59 20 20 20 20 20 20 20 |T...&.DEY | 00000680: 20 20 20 20 3B 57 49 54 48 20 2E 59 2E 00 B0 0A | ;WITH .Y....| 00000690: 30 07 4C 44 41 20 28 24 37 41 29 2C 59 20 20 20 |0.LDA ($7A),Y | 000006A0: 3B 43 48 45 43 4B 20 4C 41 53 54 20 43 48 41 52 |;CHECK LAST CHAR| 000006B0: 00 D5 0A 3A 07 43 4D 50 20 23 22 24 22 20 20 20 |...:.CMP #"$" | 000006C0: 20 20 20 20 3B 53 45 45 20 8B 20 53 54 52 49 4E | ;SEE . STRIN| 000006D0: 47 20 56 41 52 00 F5 0A 44 07 42 4E 45 20 53 45 |G VAR...D.BNE SE| 000006E0: 54 4C 41 42 45 4C 20 20 3B 4E 4F AD A7 20 4C 49 |TLABEL ;NO.. LI| 000006F0: 54 45 52 41 4C 00 FB 0A 4E 07 3B 00 21 0B 58 07 |TERAL...N.;.!.X.| 00000700: 3B AC AC 20 45 4C 53 45 20 4C 41 42 45 4C 20 49 |;.. ELSE LABEL I| 00000710: 53 20 49 4E 20 41 20 53 54 52 49 4E 47 20 56 41 |S IN A STRING VA| 00000720: 52 00 2D 0B 62 07 4A 53 52 20 24 37 33 00 4B 0B |R.-.b.JSR $73.K.| 00000730: 6C 07 4A 53 52 20 24 42 30 38 42 20 20 20 20 20 |l.JSR $B08B | 00000740: 3B 4C 4F 43 41 54 45 20 56 41 52 00 56 0B 76 07 |;LOCATE VAR.V.v.| 00000750: 4C 44 59 20 23 30 00 78 0B 80 07 4C 44 41 20 28 |LDY #0.x...LDA (| 00000760: 37 31 29 2C 59 20 20 20 20 3B 56 41 52 49 41 42 |71),Y ;VARIAB| 00000770: 4C 45 20 50 4F B5 45 52 00 95 0B 8A 07 42 45 51 |LE PO.ER.....BEQ| 00000780: 20 55 4E 96 4E 44 27 53 54 3B 56 41 52 20 A8 20 | UN.ND'ST;VAR . | 00000790: 96 49 4E 45 44 00 9B 0B 94 07 3B 00 B3 0B 9E 07 |.INED.....;.....| 000007A0: 53 54 41 20 C3 47 54 48 20 20 20 20 3B 94 20 C3 |STA .GTH ;. .| 000007B0: 47 54 48 00 BB 0B A8 07 49 4E 59 00 DE 0B B2 07 |GTH.....INY.....| 000007C0: 4C 44 41 20 28 37 31 29 2C 59 20 20 20 20 3B 53 |LDA (71),Y ;S| 000007D0: 45 54 20 50 4F B5 45 52 20 A4 20 56 41 52 00 FE |ET PO.ER . VAR..| 000007E0: 0B BC 07 54 41 58 20 20 20 20 20 20 20 20 20 20 |...TAX | 000007F0: 20 3B 49 4E 20 2E 58 2E 20 AF 20 2E 59 2E 00 06 | ;IN .X. . .Y...| 00000800: 0C C6 07 49 4E 59 00 15 0C D0 07 4C 44 41 20 28 |...INY.....LDA (| 00000810: 37 31 29 2C 59 00 1D 0C DA 07 54 41 59 00 3C 0C |71),Y.....TAY.<.| 00000820: E4 07 54 58 41 20 20 20 20 20 20 20 20 20 20 20 |..TXA | 00000830: 3B A7 20 42 41 43 4B 55 50 20 91 45 00 47 0C EE |;. BACKUP .E.G..| 00000840: 07 42 4E 45 20 81 31 00 4D 0C F8 07 3B 00 55 0C |.BNE .1.M...;.U.| 00000850: 02 08 44 45 59 00 5B 0C 0C 08 3B 00 66 0C 16 08 |..DEY.[...;.f...| 00000860: 81 31 20 B2 20 AC 00 6E 0C 20 08 44 45 58 00 8F |.1 . ..n. .DEX..| 00000870: 0C 2A 08 53 54 58 20 41 52 47 50 54 52 20 20 20 |.*.STX ARGPTR | 00000880: 20 3B 53 45 54 20 5A 50 47 20 50 4F B5 45 52 00 | ;SET ZPG PO.ER.| 00000890: A0 0C 34 08 53 54 59 20 41 52 47 50 54 52 AA 31 |..4.STY ARGPTR.1| 000008A0: 00 C1 0C 3E 08 4A 4D 50 20 48 55 4E 54 20 20 20 |...>.JMP HUNT | 000008B0: 20 20 20 3B 46 49 4E 44 20 54 48 45 20 4C 49 4E | ;FIND THE LIN| 000008C0: 45 00 C7 0C 48 08 3B 00 E8 0C 52 08 3B AC AC 20 |E...H.;...R.;.. | 000008D0: 4F 54 48 45 52 57 49 53 45 20 4C 41 42 45 4C 20 |OTHERWISE LABEL | 000008E0: 49 53 20 43 91 53 C0 54 00 F8 0C 5C 08 53 45 54 |IS C.S.T...\.SET| 000008F0: 4C 41 42 45 4C 20 B2 AC 00 19 0D 66 08 53 54 59 |LABEL .....f.STY| 00000900: 20 C3 47 54 48 20 20 3B 4F 46 20 4C 41 42 45 4C | .GTH ;OF LABEL| 00000910: 20 41 52 47 55 4D 45 4E 54 00 36 0D 70 08 4C 44 | ARGUMENT.6.p.LD| 00000920: 41 20 24 37 41 20 20 20 20 20 3B 43 4F 50 59 20 |A $7A ;COPY | 00000930: 54 58 54 50 54 52 00 5A 0D 7A 08 53 54 41 20 41 |TXTPTR.Z.z.STA A| 00000940: 52 47 50 54 52 20 20 3B A4 20 53 45 41 52 43 48 |RGPTR ;. SEARCH| 00000950: 20 41 52 47 20 50 4F B5 45 52 00 66 0D 84 08 4C | ARG PO.ER.f...L| 00000960: 44 41 20 24 37 42 00 77 0D 8E 08 53 54 41 20 41 |DA $7B.w...STA A| 00000970: 52 47 50 54 52 AA 31 00 7D 0D 98 08 3B 00 89 0D |RGPTR.1.}...;...| 00000980: A2 08 48 55 4E 54 20 B2 AC 00 AB 0D AC 08 4C 44 |..HUNT .......LD| 00000990: 41 20 34 33 20 20 20 20 20 20 3B D3 20 53 54 41 |A 43 ;. STA| 000009A0: 52 54 20 4F 46 20 42 41 53 49 43 00 CB 0D B6 08 |RT OF BASIC.....| 000009B0: 53 54 41 20 53 52 43 50 54 52 20 20 3B A4 20 53 |STA SRCPTR ;. S| 000009C0: 4F 55 52 43 45 20 50 4F B5 45 52 00 D6 0D C0 08 |OURCE PO.ER.....| 000009D0: 4C 44 41 20 34 34 00 E7 0D CA 08 53 54 41 20 53 |LDA 44.....STA S| 000009E0: 52 43 50 54 52 AA 31 00 ED 0D D4 08 3B 00 FB 0D |RCPTR.1.....;...| 000009F0: DE 08 42 41 43 4B 31 20 B2 20 AC 00 06 0E E8 08 |..BACK1 . ......| 00000A00: 4C 44 59 20 23 34 00 13 0E F2 08 4C 44 58 20 C3 |LDY #4.....LDX .| 00000A10: 47 54 48 00 37 0E FC 08 4C 44 41 20 28 53 52 43 |GTH.7...LDA (SRC| 00000A20: 50 54 52 29 2C 59 20 3B 46 49 52 53 54 20 4C 49 |PTR),Y ;FIRST LI| 00000A30: 4E 45 20 43 48 41 52 00 5D 0E 06 09 43 4D 50 20 |NE CHAR.]...CMP | 00000A40: 23 22 40 22 20 20 20 20 20 20 20 20 3B 53 45 45 |#"@" ;SEE| 00000A50: 20 8B 20 4C 41 42 45 4C 20 4C 49 4E 45 00 7C 0E | . LABEL LINE.|.| 00000A60: 10 09 42 4E 45 20 82 4C 4E 20 20 20 20 20 3B 4E |..BNE .LN ;N| 00000A70: 4F AD 54 52 59 20 82 20 4C 49 4E 45 00 82 0E 1A |O.TRY . LINE....| 00000A80: 09 3B 00 90 0E 24 09 42 41 43 4B 32 20 B2 20 AC |.;...$.BACK2 . .| 00000A90: 00 98 0E 2E 09 44 45 59 00 A0 0E 38 09 44 45 59 |.....DEY...8.DEY| 00000AA0: 00 A8 0E 42 09 44 45 59 00 CA 0E 4C 09 4C 44 41 |...B.DEY...L.LDA| 00000AB0: 20 28 41 52 47 50 54 52 29 2C 59 20 3B A1 20 53 | (ARGPTR),Y ;. S| 00000AC0: 45 41 52 43 48 20 43 48 41 52 00 D0 0E 56 09 3B |EARCH CHAR...V.;| 00000AD0: 00 DB 0E 60 09 81 32 20 B2 20 AC 00 E3 0E 6A 09 |...`..2 . ....j.| 00000AE0: 49 4E 59 00 EB 0E 74 09 49 4E 59 00 F3 0E 7E 09 |INY...t.INY...~.| 00000AF0: 49 4E 59 00 FB 0E 88 09 49 4E 59 00 20 0F 92 09 |INY.....INY. ...| 00000B00: 43 4D 50 20 28 53 52 43 50 54 52 29 2C 59 3B 43 |CMP (SRCPTR),Y;C| 00000B10: 4F 4D 50 41 52 45 20 57 49 54 48 20 44 45 53 54 |OMPARE WITH DEST| 00000B20: 00 3D 0F 9C 09 42 4E 45 20 82 4C 4E 20 20 20 20 |.=...BNE .LN | 00000B30: 3B A8 20 45 51 2E AD 82 20 4C 49 4E 45 00 43 0F |;. EQ... LINE.C.| 00000B40: A6 09 3B 00 61 0F B0 09 44 45 58 20 20 20 20 20 |..;.a...DEX | 00000B50: 20 20 20 20 20 20 3B 45 4C 53 45 20 9A 49 4E 55 | ;ELSE .INU| 00000B60: 45 00 82 0F BA 09 42 4E 45 20 42 41 43 4B 32 20 |E.....BNE BACK2 | 00000B70: 20 20 20 20 3B 81 20 C3 47 48 54 20 4F 46 20 41 | ;. .GHT OF A| 00000B80: 52 47 00 88 0F C4 09 3B 00 90 0F CE 09 49 4E 59 |RG.....;.....INY| 00000B90: 00 B0 0F D8 09 4C 44 41 20 28 53 52 43 50 54 52 |.....LDA (SRCPTR| 00000BA0: 29 2C 59 20 3B 53 48 4F 55 4C 44 20 42 45 20 80 |),Y ;SHOULD BE .| 00000BB0: 00 D3 0F E2 09 42 45 51 20 46 4F 55 4E 44 20 20 |.....BEQ FOUND | 00000BC0: 20 20 20 3B 4F 46 20 53 4F 55 52 43 45 20 4C 41 | ;OF SOURCE LA| 00000BD0: 42 45 4C 00 D9 0F EC 09 3B 00 E6 0F F6 09 43 4D |BEL.....;.....CM| 00000BE0: 50 20 23 22 3A 22 00 F4 0F 00 0A 42 45 51 20 46 |P #":".....BEQ F| 00000BF0: 4F 55 4E 44 00 FA 0F 0A 0A 3B 00 05 10 14 0A 82 |OUND.....;......| 00000C00: 4C 4E 20 B2 AC 00 10 10 1E 0A 4C 44 59 20 23 30 |LN .......LDY #0| 00000C10: 00 23 10 28 0A 4C 44 41 20 28 53 52 43 50 54 52 |.#.(.LDA (SRCPTR| 00000C20: 29 2C 59 00 2B 10 32 0A 54 41 58 00 33 10 3C 0A |),Y.+.2.TAX.3.<.| 00000C30: 49 4E 59 00 46 10 46 0A 4C 44 41 20 28 53 52 43 |INY.F.F.LDA (SRC| 00000C40: 50 54 52 29 2C 59 00 57 10 50 0A 53 54 41 20 53 |PTR),Y.W.P.STA S| 00000C50: 52 43 50 54 52 AA 31 00 66 10 5A 0A 53 54 58 20 |RCPTR.1.f.Z.STX | 00000C60: 53 52 43 50 54 52 00 79 10 64 0A 4C 44 41 20 28 |SRCPTR.y.d.LDA (| 00000C70: 53 52 43 50 54 52 29 2C 59 00 87 10 6E 0A 42 4E |SRCPTR),Y...n.BN| 00000C80: 45 20 42 41 43 4B 31 00 8D 10 78 0A 3B 00 9D 10 |E BACK1...x.;...| 00000C90: 82 0A 55 4E 96 4E 44 27 53 54 20 B2 AC 00 C4 10 |..UN.ND'ST .....| 00000CA0: 8C 0A 4A 4D 50 20 24 41 38 45 33 20 20 20 20 20 |..JMP $A8E3 | 00000CB0: 20 3B 55 4E 96 49 4E 45 44 20 53 54 41 54 45 20 | ;UN.INED STATE | 00000CC0: 45 52 52 B0 00 CA 10 96 0A 3B 00 D7 10 A0 0A 46 |ERR......;.....F| 00000CD0: 4F 55 4E 44 20 B2 AC 00 DF 10 AA 0A 53 45 43 00 |OUND .......SEC.| 00000CE0: F9 10 B4 0A 4A 4D 50 20 24 41 38 43 35 20 20 20 |....JMP $A8C5 | 00000CF0: 20 20 20 3B 53 45 54 20 89 00 FF 10 BE 0A 3B 00 | ;SET ......;.| 00000D00: 06 11 C8 0A 2E 80 00 00 00 |......... |
....... SAVE"0:GOGOWEDGE.SRC",8.B.... BY
CHRIS MILLER JAN. 4, 1987.I.... ENABLES
CALCULATED GOTO(SUB) LN#...... E.G. N=1
0: GOTO N*N (I.E. GOTO 100)...... ENABLE
S GOTO(SUB) LABELS.H.... E.G. GOSUB @PIG
...$.. ENABLES GOTO(SUB) VARIABLE NAME$.
..... E.G. X$="PIG": GOSUB @X$.6.8.. E.G
. 5000 @PIG: (TO FLAG ROUTINE).K.B.. **
SOURCE IN BUDDY 64 (POWER ASSEMBLER) FOR
MAT.Q.L.:.Z.V..999...`.; .700 . PAL . SY
MASS...J.;...T...49152...~..MEM ; .OPT O
O . PAL.E...;.U...SRCPTR .$5F.....ARGPTR
.253.....CGTH .255.....;.....;.. WEDGE
. VARIABLE .'S & .S.!.D.;./.N.LDA #.WDG.
M.X.STA $308; INSTALL . WEDGE.[...LDA #.
WDG.H...STA $309.P...RTS.V...;.....WDG .
......JSR $73 ;. COMM......JSR PARSE
...(.JMP $A7AE...2.;.I.<.PARSE .....F.CM
P #137 ;IS IT ....P.BEQ . ;YES.. D
O ....Z.;...D.CMP #141 ;IS IT ..2.N.B
EQ . ;YES.. DO ..8.X.;.W...CMP #"@"
;IS IT A LABEL.S...BNE .BASIC ;YES.. IG
N.E.Y...;... .JMP $A8F8 ;. . EOLN.....
;.....;.. BACK . BASIC......BASIC .....H
.JSR $7C ;SETS CHR FLAGS AGAIN...R.J
MP $A7ED ;.INUE PAR.G.....;...... ....
...LDA #3.<...JSR $A3FB ;CHECK STACK S
PACE.H...LDA $7B.D...PHA ;PUSH STUFF . S
TACK.P...LDA $7A...".PHA ;TEXT PO.ER...,
.LDA $3A...6.PHA ;LINENUMBER...@.LDA $39
...J.PHA.E.T.LDA #141.U.^.PHA ;. .KEN...
H.JSR ....R.JMP $A7AE...|.;...... ......
.JSR $73 ;. . CHAR.:...CMP #"@"
;SEE . LABEL ..^...BEQ ISLABEL ;YE
S.. CHECK TYPE.D...;.....;.. EE .R FOLLO
WING .(SUB). .B.JSR $7C ;RESET FLAGS
...L.JSR $AD9E ;EEUATE .RESSI....V.JSR
$B7F7 ;C.VERT FLOAT . FIXED.....;....
..LINE .......JMP $A8A3 ;PER.M ......;
.>...;.. LABEL USED INSTEAD OF LINENUM.M
...ISLABEL ...Q...JSR $A906 ;INDEX .
OF ST'MT...&.DEY ;WITH .Y....
0.LDA ($7A),Y ;CHECK LAST CHAR.U.:.CMP
#"$" ;SEE . STRING VAR...D.BNE SE
TLABEL ;NO.. LITERAL...N.;.!.X.;.. ELSE
LABEL IS IN A STRING VAR.-.B.JSR $73.K.
L.JSR $B08B ;LOCATE VAR.V.V.LDY #0.X
...LDA (71),Y ;VARIABLE PO.ER.....BEQ
UN.ND'ST;VAR . .INED.....;.....STA CGTH
;. CGTH.....INY.....LDA (71),Y ;S
ET PO.ER . VAR.....TAX ;IN .X.
. .Y....F.INY...P.LDA (71),Y...Z.TAY.<.
..TXA ;. BACKUP .E.G...BNE .1.
M...;.U...DEY.[...;.F....1 . ..N. .DEX..
.*.STX ARGPTR ;SET ZPG PO.ER. .4.STY
ARGPTR.1.A.>.JMP HUNT ;FIND THE LIN
E.G.H.;...R.;.. OTHERWISE LABEL IS C.S.T
...\.SETLABEL .....F.STY CGTH ;OF LABEL
ARGUMENT.6.P.LDA $7A ;COPY TXTPTR.Z
.Z.STA ARGPTR ;. SEARCH ARG PO.ER.F...L
DA $7B.W...STA ARGPTR.1.}...;.....HUNT .
......LDA 43 ;S START OF BASIC.K...
STA SRCPTR ;. SOURCE PO.ER.V...LDA 44..
.J.STA SRCPTR.1...T.;.....BACK1 . ......
LDY #4.....LDX CGTH.7...LDA (SRCPTR),Y ;
FIRST LINE CHAR.]...CMP #"@" ;SEE
. LABEL LINE.|...BNE .LN ;NO.TRY .
LINE.....;...$.BACK2 . ......DEY. .8.DEY
...B.DEY.J.L.LDA (ARGPTR),Y ;. SEARCH CH
AR.P.V.;...`..2 . ....J.INY...T.INY...~.
INY.....INY. ...CMP (SRCPTR),Y;COMPARE W
ITH DEST.=...BNE .LN ;. EQ... LINE.C.
..;.A...DEX ;ELSE .INUE.....BN
E BACK2 ;. CGHT OF ARG...D.;...N.INY
...X.LDA (SRCPTR),Y ;SHOULD BE ..S...BEQ
FOUND ;OF SOURCE LABEL.Y...;.....CM
P #":".....BEQ FOUND.....;......LN .....
..LDY #0.#.(.LDA (SRCPTR),Y.+.2.TAX.3.<.
INY.F.F.LDA (SRCPTR),Y.W.P.STA SRCPTR.1.
F.Z.STX SRCPTR.Y.D.LDA (SRCPTR),Y...N.BN
E BACK1...X.;.....UN.ND'ST ...D...JMP $A
8E3 ;UN.INED STATE ERR..J...;.W. .F
OUND .......SEC.....JMP $A8C5 ;SET
......;...H......
> CLICK IMAGE PREVIEW FOR FULL MODAL