MACRO INPUT
FILE INFORMATION
FILENAME(S): MACRO INPUT
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:09:59
APPEARS ON: 2 disk(s)
FILE HASH
f38e84fcfd318db8d707a2c5c866eba5b021d92169c94cf616507a49c3f262d7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GIGA ASSEMBLER | MACRO INPUT | PRG | DuncanTwain | 8 | 1 | DOWNLOAD FILE |
| ASSEMBLER | MACRO INPUT | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 18 F6 3B 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 00 4A 08 19 F6 3B 4D 41 43 |*******.J...;MAC|
00000030: 52 4F 20 49 4E 50 55 54 A0 41 44 52 2C 4D 41 58 |RO INPUT.ADR,MAX|
00000040: 2C 58 2C 59 2C 43 4F 4C 4F 52 00 70 08 1A F6 3B |,X,Y,COLOR.p...;|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 00 95 08 1B F6 3B 53 45 54 20 47 4C 4F 42 41 4C |.....;SET GLOBAL|
00000080: 20 49 4E 50 55 54 42 41 53 45 20 54 4F 20 49 4E | INPUTBASE TO IN|
00000090: 50 42 41 53 45 00 B5 08 1C F6 3B 28 49 4E 50 42 |PBASE.....;(INPB|
000000A0: 41 53 45 3D 53 54 41 52 54 20 53 55 42 52 4F 55 |ASE=START SUBROU|
000000B0: 54 49 4E 45 29 00 D7 08 1D F6 3B 52 45 4D 20 20 |TINE).....;REM |
000000C0: 20 20 20 20 49 4E 49 54 49 4E 50 55 54 A0 30 2C | INITINPUT.0,|
000000D0: 30 2C 30 2C 30 2C 30 00 E9 08 1E F6 3B 52 45 4D |0,0,0,0.....;REM|
000000E0: 20 20 20 20 20 20 52 54 53 00 0C 09 1F F6 3B 28 | RTS.....;(|
000000F0: 43 41 4C 4C 20 49 4E 49 54 49 4E 50 55 54 20 54 |CALL INITINPUT T|
00000100: 4F 20 49 4E 54 49 41 4C 49 53 45 29 00 12 09 20 |O INTIALISE)... |
00000110: F6 3B 00 37 09 21 F6 3B 2A 20 49 4E 50 55 54 20 |.;.7.!.;* INPUT |
00000120: 57 4F 52 44 54 20 56 41 4E 41 46 20 41 44 52 45 |WORDT VANAF ADRE|
00000130: 53 20 28 41 44 52 29 00 53 09 22 F6 3B 2A 20 4E |S (ADR).S.".;* N|
00000140: 45 45 52 47 45 5A 45 54 20 49 4E 20 46 4F 52 4D |EERGEZET IN FORM|
00000150: 41 54 3A 00 6E 09 23 F6 3B 2A 20 4C 45 4E 47 54 |AT:.n.#.;* LENGT|
00000160: 45 49 4E 50 55 54 2C 49 4E 50 55 54 2C 30 00 74 |EINPUT,INPUT,0.t|
00000170: 09 24 F6 3B 00 9A 09 25 F6 3B 2A 2A 2A 2A 2A 2A |.$.;...%.;******|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BB 09 26 F6 A1 |**********...&..|
000001A0: 49 4E 49 54 49 4E 50 55 54 A0 41 44 52 2C 4D 41 |INITINPUT.ADR,MA|
000001B0: 58 2C 58 2C 59 2C 43 4F 4C 4F 52 00 CE 09 27 F6 |X,X,Y,COLOR...'.|
000001C0: 49 4E 50 42 41 53 45 20 D5 54 45 58 35 38 00 E0 |INPBASE .TEX58..|
000001D0: 09 28 F6 54 45 58 35 31 20 A5 3E 28 41 44 52 29 |.(.TEX51 .>(ADR)|
000001E0: 00 F2 09 29 F6 54 45 58 35 32 20 A5 3E 28 41 44 |...).TEX52 .>(AD|
000001F0: 52 29 00 01 0A 2A F6 54 45 58 35 33 20 A5 4D 41 |R)...*.TEX53 .MA|
00000200: 58 00 0E 0A 2B F6 54 45 58 35 34 20 A5 58 00 1B |X...+.TEX54 .X..|
00000210: 0A 2C F6 54 45 58 35 35 20 A5 59 00 2C 0A 2D F6 |.,.TEX55 .Y.,.-.|
00000220: 54 45 58 35 30 20 A5 43 4F 4C 4F 52 00 3D 0A 2E |TEX50 .COLOR.=..|
00000230: F6 54 45 58 35 38 20 C2 54 45 58 35 30 00 49 0A |.TEX58 .TEX50.I.|
00000240: 2F F6 20 D3 24 30 32 38 36 00 55 0A 30 F6 20 C2 |/. .$0286.U.0. .|
00000250: 54 45 58 35 31 00 5F 0A 31 F6 20 D3 24 30 33 00 |TEX51._.1. .$03.|
00000260: 6B 0A 32 F6 20 C2 54 45 58 35 32 00 75 0A 33 F6 |k.2. .TEX52.u.3.|
00000270: 20 D3 24 30 32 00 81 0A 34 F6 20 C2 54 45 58 35 | .$02...4. .TEX5|
00000280: 34 00 8D 0A 35 F6 20 C3 54 45 58 35 35 00 94 0A |4...5. .TEX55...|
00000290: 36 F6 20 E5 00 A0 0A 37 F6 20 D6 24 46 46 46 30 |6. ....7. .$FFF0|
000002A0: 00 B0 0A 38 F6 54 45 58 32 33 20 C2 23 24 30 30 |...8.TEX23 .#$00|
000002B0: 00 BC 0A 39 F6 20 D3 54 45 58 32 32 00 C8 0A 3A |...9. .TEX22...:|
000002C0: F6 20 D5 54 45 58 32 30 00 D6 0A 3B F6 54 45 58 |. .TEX20...;.TEX|
000002D0: 32 32 20 A5 30 30 00 E6 0A 3C F6 54 45 58 32 30 |22 .00...<.TEX20|
000002E0: 20 CA 23 31 38 35 00 F2 0A 3D F6 20 D6 24 46 46 | .#185...=. .$FF|
000002F0: 44 32 00 03 0B 3E F6 54 45 58 32 31 20 D6 24 46 |D2...>.TEX21 .$F|
00000300: 46 45 34 00 0F 0B 3F F6 20 C9 54 45 58 32 32 00 |FE4...?. .TEX22.|
00000310: 1B 0B 40 F6 20 C3 54 45 58 32 32 00 27 0B 41 F6 |..@. .TEX22.'.A.|
00000320: 20 C1 54 45 58 35 33 00 33 0B 42 F6 20 F7 54 45 | .TEX53.3.B. .TE|
00000330: 58 32 39 00 3E 0B 43 F6 20 C4 23 24 30 30 00 4A |X29.>.C. .#$00.J|
00000340: 0B 44 F6 20 F6 54 45 58 32 34 00 56 0B 45 F6 20 |.D. .TEX24.V.E. |
00000350: C7 54 45 58 32 32 00 62 0B 46 F6 20 D5 54 45 58 |.TEX22.b.F. .TEX|
00000360: 32 31 00 71 0B 47 F6 54 45 58 32 34 20 C4 23 31 |21.q.G.TEX24 .#1|
00000370: 33 00 7D 0B 48 F6 20 F7 54 45 58 32 38 00 88 0B |3.}.H. .TEX28...|
00000380: 49 F6 20 C4 23 31 34 38 00 94 0B 4A F6 20 F7 54 |I. .#148...J. .T|
00000390: 45 58 32 31 00 9F 0B 4B F6 20 C4 23 31 35 37 00 |EX21...K. .#157.|
000003A0: AB 0B 4C F6 20 F7 54 45 58 32 31 00 B5 0B 4D F6 |..L. .TEX21...M.|
000003B0: 20 C4 23 32 39 00 C1 0B 4E F6 20 F7 54 45 58 32 | .#29...N. .TEX2|
000003C0: 31 00 CB 0B 4F F6 20 C4 23 31 37 00 D7 0B 50 F6 |1...O. .#17...P.|
000003D0: 20 F7 54 45 58 32 31 00 E2 0B 51 F6 20 C4 23 31 | .TEX21...Q. .#1|
000003E0: 34 35 00 EE 0B 52 F6 20 F7 54 45 58 32 31 00 F8 |45...R. .TEX21..|
000003F0: 0B 53 F6 20 C4 23 32 30 00 04 0C 54 F6 20 F6 54 |.S. .#20...T. .T|
00000400: 45 58 32 36 00 0F 0C 55 F6 20 C1 23 24 30 31 00 |EX26...U. .#$01.|
00000410: 1B 0C 56 F6 20 F6 54 45 58 32 35 00 26 0C 57 F6 |..V. .TEX25.&.W.|
00000420: 20 C3 23 24 30 30 00 32 0C 58 F6 20 D4 54 45 58 | .#$00.2.X. .TEX|
00000430: 32 32 00 3E 0C 59 F6 20 D5 54 45 58 32 31 00 4F |22.>.Y. .TEX21.O|
00000440: 0C 5A F6 54 45 58 32 35 20 C7 54 45 58 32 32 00 |.Z.TEX25 .TEX22.|
00000450: 5B 0C 5B F6 20 C7 54 45 58 32 32 00 67 0C 5C F6 |[.[. .TEX22.g.\.|
00000460: 20 D5 54 45 58 32 37 00 7A 0C 5D F6 54 45 58 32 | .TEX27.z.].TEX2|
00000470: 36 20 D2 28 24 30 32 29 2C 59 00 86 0C 5E F6 54 |6 .($02),Y...^.T|
00000480: 45 58 32 37 20 D8 00 91 0C 5F F6 20 CA 23 31 35 |EX27 ...._. .#15|
00000490: 37 00 9D 0C 60 F6 20 D6 24 46 46 44 32 00 A4 0C |7...`. .$FFD2...|
000004A0: 61 F6 20 D7 00 B0 0C 62 F6 20 D6 24 46 46 44 32 |a. ....b. .$FFD2|
000004B0: 00 BC 0C 63 F6 20 D5 54 45 58 32 30 00 CB 0C 64 |...c. .TEX20...d|
000004C0: F6 54 45 58 32 38 20 CA 23 32 30 00 D7 0C 65 F6 |.TEX28 .#20...e.|
000004D0: 20 D6 24 46 46 44 32 00 E3 0C 66 F6 20 C3 54 45 | .$FFD2...f. .TE|
000004E0: 58 32 32 00 ED 0C 67 F6 20 CA 23 30 30 00 FB 0C |X22...g. .#00...|
000004F0: 68 F6 20 D2 28 24 30 32 29 2C 59 00 07 0D 69 F6 |h. .($02),Y...i.|
00000500: 20 C7 54 45 58 32 32 00 13 0D 6A F6 20 CA 54 45 | .TEX22...j. .TE|
00000510: 58 32 32 00 1E 0D 6B F6 20 C3 23 24 30 30 00 2C |X22...k. .#$00.,|
00000520: 0D 6C F6 20 D2 28 24 30 32 29 2C 59 00 33 0D 6D |.l. .($02),Y.3.m|
00000530: F6 20 E3 00 42 0D 6E F6 54 45 58 32 39 20 CA 23 |. ..B.n.TEX29 .#|
00000540: 32 30 00 53 0D 6F F6 54 45 58 33 30 20 D6 24 46 |20.S.o.TEX30 .$F|
00000550: 46 44 32 00 5A 0D 70 F6 20 EC 00 66 0D 71 F6 20 |FD2.Z.p. ..f.q. |
00000560: F6 54 45 58 33 30 00 72 0D 72 F6 20 D5 54 45 58 |.TEX30.r.r. .TEX|
00000570: 32 33 00 78 0D 73 F6 A2 00 9E 0D 74 F6 3B 2A 2A |23.x.s.....t.;**|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BB |**************..|
000005A0: 0D 75 F6 A1 49 4E 50 55 54 A0 41 44 52 2C 4D 41 |.u..INPUT.ADR,MA|
000005B0: 58 2C 58 2C 59 2C 43 4F 4C 4F 52 00 C7 0D 76 F6 |X,X,Y,COLOR...v.|
000005C0: 20 D5 54 45 58 35 38 00 D9 0D 77 F6 54 45 58 35 | .TEX58...w.TEX5|
000005D0: 36 20 A5 3E 28 41 44 52 29 00 E6 0D 78 F6 20 A5 |6 .>(ADR)...x. .|
000005E0: 3E 28 41 44 52 29 00 F2 0D 79 F6 20 A5 4D 41 58 |>(ADR)...y. .MAX|
000005F0: 2B 32 00 FA 0D 7A F6 20 A5 59 00 02 0E 7B F6 20 |+2...z. .Y...{. |
00000600: A5 58 00 0E 0E 7C F6 20 A5 43 4F 4C 4F 52 00 1E |.X...|. .COLOR..|
00000610: 0E 7D F6 54 45 58 35 38 20 C2 23 24 30 30 00 31 |.}.TEX58 .#$00.1|
00000620: 0E 7E F6 54 45 58 35 37 20 CA 54 45 58 35 36 2C |.~.TEX57 .TEX56,|
00000630: 58 00 47 0E 7F F6 20 D2 49 4E 50 55 54 42 41 53 |X.G... .INPUTBAS|
00000640: 45 2B 24 30 33 2C 58 00 4E 0E 80 F6 20 EF 00 57 |E+$03,X.N... ..W|
00000650: 0E 81 F6 20 C0 23 36 00 63 0E 82 F6 20 F6 54 45 |... .#6.c... .TE|
00000660: 58 35 37 00 73 0E 83 F6 20 D6 49 4E 50 55 54 42 |X57.s... .INPUTB|
00000670: 41 53 45 00 79 0E 84 F6 A2 00 00 00 |ASE.y....... |
..'...;********************************.
J...;MACRO INPUT ADR,MAX,X,Y,COLOR.P...;
********************************.....;SE
T GLOBAL INPUTBASE TO INPBASE.....;(INPB
ASE=START SUBROUTINE).W...;REM INIT
INPUT 0,0,0,0,0.....;REM RTS.....;(
CALL INITINPUT TO INTIALISE)... .;.7.!.;
* INPUT WORDT VANAF ADRES (ADR).S.".;* N
EERGEZET IN FORMAT:.N.#.;* LENGTEINPUT,I
NPUT,0.T.$.;...%.;**********************
**********...&..INITINPUT ADR,MAX,X,Y,CO
LOR.N.'.INPBASE UTEX58...(.TEX51 .>(ADR)
...).TEX52 .>(ADR)...*.TEX53 .MAX...+.TE
X54 .X...,.TEX55 .Y.,.-.TEX50 .COLOR.=..
.TEX58 BTEX50.I./. S$0286.U.0. BTEX51._.
1. S$03.K.2. BTEX52.U.3. S$02...4. BTEX5
4...5. CTEX55...6. .. .7. V$FFF0...8.TEX
23 B#$00...9. STEX22.H.:. UTEX20.V.;.TEX
22 .00...<.TEX20 J#185...=. V$FFD2...>.T
EX21 V$FFE4...?. ITEX22...@. CTEX22.'.A.
ATEX53.3.B. .TEX29.>.C. D#$00.J.D. .TEX
24.V.E. GTEX22.B.F. UTEX21.Q.G.TEX24 D#1
3.}.H. .TEX28...I. D#148...J. .TEX21...K
. D#157...L. .TEX21...M. D#29.A.N. .TEX2
1.K.O. D#17.W.P. .TEX21...Q. D#145...R.
.TEX21...S. D#20...T. .TEX26...U. A#$01.
..V. .TEX25.&.W. C#$00.2.X. TTEX22.>.Y.
UTEX21.O.Z.TEX25 GTEX22.[.[. GTEX22.G.\.
UTEX27.Z.].TEX26 R($02),Y...^.TEX27 X..
._. J#157...`. V$FFD2...A. W...B. V$FFD2
...C. UTEX20.K.D.TEX28 J#20.W.E. V$FFD2.
..F. CTEX22...G. J#00...H. R($02),Y...I.
GTEX22...J. JTEX22...K. C#$00.,.L. R($0
2),Y.3.M. ..B.N.TEX29 J#20.S.O.TEX30 V$F
FD2.Z.P. ..F.Q. .TEX30.R.R. UTEX23.X.S..
...T.;********************************..
.U..INPUT ADR,MAX,X,Y,COLOR.G.V. UTEX58.
Y.W.TEX56 .>(ADR)...X. .>(ADR)...Y. .MAX
+2...Z. .Y...{. .X...|. .COLOR...}.TEX58
B#$00.1.~.TEX57 JTEX56,X.G.. RINPUTBAS
E+$03,X.N... ..W... .#6.C... .TEX57.S...
VINPUTBASE.Y.......
> CLICK IMAGE PREVIEW FOR FULL MODAL