> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 46 08 00 00 50 B2 35 33 32 38 30 3A 97 50 |..F...P.53280:.P|
00000010: 2C 31 31 3A 97 50 AA 31 2C 31 34 3A 99 22 93 90 |,11:.P.1,14:."..|
00000020: 11 1D 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 46 |..INSTRUCTIONS F|
00000030: 4F 52 20 54 55 52 42 4F 20 41 53 53 20 42 59 20 |OR TURBO ASS BY |
00000040: 56 41 54 45 11 22 00 85 08 01 00 99 22 1D 53 4F |VATE."......".SO|
00000050: 4D 45 54 49 4D 45 53 20 54 48 45 52 45 20 41 52 |METIMES THERE AR|
00000060: 45 20 4D 4F 52 45 20 57 41 59 53 20 46 4F 52 20 |E MORE WAYS FOR |
00000070: 54 48 45 20 20 20 11 53 41 4D 45 20 43 4F 4D 4D |THE .SAME COMM|
00000080: 41 4E 44 11 22 00 A2 08 02 00 99 22 1D 1F 11 49 |AND."......"...I|
00000090: 4D 4D 45 44 49 41 54 45 3A 20 4C 44 41 20 23 24 |MMEDIATE: LDA #$|
000000A0: 46 46 00 BD 08 03 00 99 22 20 1D 1D 1D 1D 1D 1D |FF......" ......|
000000B0: 1D 20 20 20 20 4C 44 41 20 23 32 35 35 00 DE 08 |. LDA #255...|
000000C0: 04 00 99 22 1D 20 1D 1D 1D 1D 1D 1D 20 20 20 20 |...". ...... |
000000D0: 4C 44 41 20 23 24 31 31 31 31 31 31 31 31 00 FC |LDA #$11111111..|
000000E0: 08 05 00 99 22 11 1D 42 45 47 49 4E 20 41 44 52 |...."..BEGIN ADR|
000000F0: 45 53 53 3A 20 2A 3D 24 31 30 30 30 00 1C 09 06 |ESS: *=$1000....|
00000100: 00 99 22 20 20 20 20 20 1D 1D 1D 1D 1D 1D 1D 1D |.." ........|
00000110: 1D 1D 1D 1D 9D 9D 2A 3D 34 30 39 36 00 3A 09 07 |......*=4096.:..|
00000120: 00 99 22 11 1D 4C 41 42 45 4C 53 3A 20 50 52 49 |.."..LABELS: PRI|
00000130: 4E 54 20 3D 20 24 46 46 44 32 00 53 09 08 00 99 |NT = $FFD2.S....|
00000140: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 4A 53 52 20 50 52 |".........JSR PR|
00000150: 49 4E 54 00 70 09 09 00 99 22 11 1D 49 4E 54 45 |INT.p...."..INTE|
00000160: 52 52 55 50 54 3A 20 4C 44 41 20 23 3C 49 52 51 |RRUPT: LDA #<IRQ|
00000170: 00 8C 09 0A 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
00000180: 1D 1D 1D 53 54 41 20 24 30 33 31 34 00 A8 09 0B |...STA $0314....|
00000190: 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4C |.."............L|
000001A0: 44 41 20 23 3E 49 52 51 00 C4 09 0C 00 99 22 1D |DA #>IRQ......".|
000001B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 54 41 20 24 |...........STA $|
000001C0: 30 33 31 35 00 E0 09 0D 00 99 22 1D 1D 1D 1D 1D |0315......".....|
000001D0: 1D 1D 49 52 51 1D 1D 49 4E 43 20 24 44 30 32 30 |..IRQ..INC $D020|
000001E0: 00 FC 09 0E 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
000001F0: 1D 1D 1D 4A 4D 50 20 24 45 41 33 31 00 06 0A 0F |...JMP $EA31....|
00000200: 00 8D 31 30 30 30 00 29 0A 10 00 99 22 1D 43 41 |..1000.)....".CA|
00000210: 4C 43 55 4C 41 54 49 4F 4E 3A 20 4C 44 41 20 24 |LCULATION: LDA $|
00000220: 30 34 30 30 2B 33 2A 34 30 00 47 0A 12 00 99 22 |0400+3*40.G...."|
00000230: 11 5F 4C 20 4C 4F 41 44 20 51 55 45 4C 54 45 58 |._L LOAD QUELTEX|
00000240: 54 20 28 50 52 47 29 00 64 0A 13 00 99 22 5F 53 |T (PRG).d...."_S|
00000250: 20 53 41 56 45 20 51 55 45 4C 54 45 58 54 20 28 | SAVE QUELTEXT (|
00000260: 50 52 47 29 00 7C 0A 14 00 99 22 5F 34 20 50 52 |PRG).|...."_4 PR|
00000270: 49 4E 54 20 51 55 45 4C 54 45 58 54 00 98 0A 15 |INT QUELTEXT....|
00000280: 00 99 22 5F 45 20 41 44 44 20 51 55 45 4C 54 45 |.."_E ADD QUELTE|
00000290: 58 54 20 28 53 45 51 29 00 C0 0A 16 00 99 22 5F |XT (SEQ)......"_|
000002A0: 33 20 53 54 41 52 54 20 43 4F 4E 56 45 52 53 49 |3 START CONVERSI|
000002B0: 4F 4E 20 54 4F 20 36 35 31 30 20 28 52 55 4E 29 |ON TO 6510 (RUN)|
000002C0: 00 DF 0A 17 00 99 22 5F 35 20 53 41 56 45 20 41 |......"_5 SAVE A|
000002D0: 53 20 50 52 4F 47 52 41 4D 20 28 4F 42 4A 29 00 |S PROGRAM (OBJ).|
000002E0: F4 0A 18 00 99 22 5F 2B 20 4C 49 53 54 20 4C 41 |....."_+ LIST LA|
000002F0: 42 45 4C 53 00 11 0B 19 00 99 22 5F 57 20 53 41 |BELS......"_W SA|
00000300: 56 45 20 51 55 45 4C 54 45 58 54 20 28 53 45 51 |VE QUELTEXT (SEQ|
00000310: 29 00 30 0B 1A 00 99 22 5F 52 20 53 41 56 45 20 |).0...."_R SAVE |
00000320: 57 49 54 48 20 52 45 50 4C 41 43 45 20 28 40 29 |WITH REPLACE (@)|
00000330: 00 44 0B 1B 00 99 22 5F 46 20 46 49 4E 44 20 4C |.D...."_F FIND L|
00000340: 41 42 45 4C 00 58 0B 1C 00 99 22 5F 47 20 47 4F |ABEL.X...."_G GO|
00000350: 20 54 4F 20 4D 41 52 4B 00 74 0B 1D 00 99 22 5F | TO MARK.t...."_|
00000360: 4B 20 44 45 46 49 4E 45 20 46 55 4E 43 54 49 4F |K DEFINE FUNCTIO|
00000370: 4E 4B 45 59 00 95 0B 1E 00 99 22 5F 43 20 43 4F |NKEY......"_C CO|
00000380: 4C 44 20 53 54 41 52 54 20 28 45 52 41 53 45 20 |LD START (ERASE |
00000390: 54 45 58 54 29 00 AD 0B 1F 00 99 22 5F 4E 20 47 |TEXT)......"_N G|
000003A0: 4F 20 54 4F 20 52 55 4C 45 20 4E 52 2E 00 F6 0B |O TO RULE NR....|
000003B0: 20 00 99 22 5F 4D 20 53 45 54 20 4D 41 52 4B 20 | .."_M SET MARK |
000003C0: 28 30 2D 39 20 46 4F 52 20 45 41 53 59 20 50 52 |(0-9 FOR EASY PR|
000003D0: 4F 47 52 41 4D 4D 49 4E 47 20 20 20 20 20 20 41 |OGRAMMING A|
000003E0: 4E 44 20 53 2B 45 20 46 4F 52 20 41 20 43 55 54 |ND S+E FOR A CUT|
000003F0: 20 4F 55 54 29 22 00 0A 0C 21 00 99 22 5F 3B 20 | OUT)"...!.."_; |
00000400: 4C 49 53 54 20 4D 41 52 4B 53 00 20 0C 22 00 99 |LIST MARKS. ."..|
00000410: 22 5F 3A 20 45 52 41 53 45 20 41 20 4D 41 52 4B |"_: ERASE A MARK|
00000420: 00 38 0C 23 00 99 22 5F 2A 20 53 48 4F 57 20 44 |.8.#.."_* SHOW D|
00000430: 49 52 45 43 54 4F 52 59 00 54 0C 24 00 99 22 5F |IRECTORY.T.$.."_|
00000440: 40 20 52 45 41 44 20 45 52 52 4F 52 20 43 48 41 |@ READ ERROR CHA|
00000450: 4E 4E 45 4C 00 5E 0C 25 00 8D 31 30 30 30 00 75 |NNEL.^.%..1000.u|
00000460: 0C 26 00 99 22 5F 4F 20 43 48 41 4E 47 45 20 43 |.&.."_O CHANGE C|
00000470: 4F 4C 4F 52 53 00 9E 0C 27 00 99 22 5F 42 20 57 |OLORS...'.."_B W|
00000480: 52 49 54 45 2C 20 4B 49 4C 4C 2C 20 4F 52 20 43 |RITE, KILL, OR C|
00000490: 4F 50 59 20 41 20 43 55 54 20 4F 55 54 22 00 C9 |OPY A CUT OUT"..|
000004A0: 0C 28 00 99 22 5F 31 20 45 58 49 54 20 54 2D 41 |.(.."_1 EXIT T-A|
000004B0: 53 53 20 28 53 59 53 24 39 30 30 30 20 46 4F 52 |SS (SYS$9000 FOR|
000004C0: 20 52 45 53 54 41 52 54 29 00 F7 0C 29 00 99 22 | RESTART)...).."|
000004D0: 11 1D 54 48 45 20 54 45 58 54 20 57 49 4C 4C 20 |..THE TEXT WILL |
000004E0: 4E 4F 54 20 42 45 20 45 52 41 53 45 44 20 41 46 |NOT BE ERASED AF|
000004F0: 54 45 52 20 5F 31 22 00 23 0D 2A 00 99 22 11 1D |TER _1".#.*.."..|
00000500: 54 48 49 53 20 56 45 52 53 49 4F 4E 20 4F 46 20 |THIS VERSION OF |
00000510: 54 41 53 53 20 47 49 56 45 53 20 59 4F 55 20 53 |TASS GIVES YOU S|
00000520: 4D 4F 4E 00 35 0D 2B 00 99 22 11 1D 41 46 54 45 |MON.5.+.."..AFTE|
00000530: 52 20 5F 31 2E 00 56 0D 2C 00 99 22 1D 11 53 4D |R _1..V.,.."..SM|
00000540: 4F 4E 20 49 53 20 4C 4F 43 41 54 45 44 20 41 54 |ON IS LOCATED AT|
00000550: 20 24 35 30 30 30 00 83 0D 2D 00 99 22 1D 11 59 | $5000...-.."..Y|
00000560: 4F 55 20 43 41 4E 20 41 53 53 45 4D 42 4C 45 20 |OU CAN ASSEMBLE |
00000570: 54 48 45 52 45 2C 20 42 55 54 20 4E 4F 20 54 45 |THERE, BUT NO TE|
00000580: 53 54 53 00 93 0D 2E 00 99 22 11 1D 50 4C 45 41 |STS......"..PLEA|
00000590: 53 45 2E 00 C1 0D 2F 00 99 22 11 1D 4E 45 56 45 |SE..../.."..NEVE|
000005A0: 52 20 54 45 53 54 20 41 54 20 24 38 30 30 30 20 |R TEST AT $8000 |
000005B0: 42 45 43 41 55 53 45 20 59 4F 55 52 20 51 55 45 |BECAUSE YOUR QUE|
000005C0: 4C 00 E0 0D 30 00 99 22 11 1D 54 45 58 54 20 57 |L...0.."..TEXT W|
000005D0: 49 4C 4C 20 42 45 20 44 41 4D 4D 41 47 45 44 2E |ILL BE DAMMAGED.|
000005E0: 00 0E 0E 31 00 99 22 11 1D 53 54 41 52 54 41 44 |...1.."..STARTAD|
000005F0: 52 45 53 53 45 53 20 4C 49 4B 45 20 24 45 30 30 |RESSES LIKE $E00|
00000600: 30 20 4F 52 20 24 30 34 30 30 20 41 52 45 00 3A |0 OR $0400 ARE.:|
00000610: 0E 32 00 99 22 11 1D 41 4C 4C 4F 57 45 44 20 42 |.2.."..ALLOWED B|
00000620: 55 54 20 41 47 41 49 4E 20 4E 4F 20 54 45 53 54 |UT AGAIN NO TEST|
00000630: 53 20 50 4F 53 53 49 42 4C 45 00 44 0E 33 00 8D |S POSSIBLE.D.3..|
00000640: 31 30 30 30 00 6F 0E 34 00 99 22 11 1D 53 45 50 |1000.o.4.."..SEP|
00000650: 45 52 41 54 45 44 20 42 59 54 45 53 3A 20 2E 42 |ERATED BYTES: .B|
00000660: 59 54 45 20 24 30 30 2C 24 41 30 2C 32 35 35 00 |YTE $00,$A0,255.|
00000670: 9D 0E 35 00 99 22 11 1D 54 45 58 54 53 3A 20 2E |..5.."..TEXTS: .|
00000680: 54 45 58 54 22 C7 28 33 34 29 22 54 48 49 53 20 |TEXT".(34)"THIS |
00000690: 49 53 20 4E 49 43 45 22 C7 28 33 34 29 00 C8 0E |IS NICE".(34)...|
000006A0: 36 00 99 22 11 1D 57 49 54 48 20 27 54 48 45 20 |6.."..WITH 'THE |
000006B0: 52 45 41 53 53 45 4D 42 4C 45 52 27 20 59 4F 55 |REASSEMBLER' YOU|
000006C0: 20 57 49 4C 4C 20 42 45 00 FE 0E 37 00 99 22 11 | WILL BE...7..".|
000006D0: 1D 41 42 4C 45 20 54 4F 20 4D 41 4B 45 20 51 55 |.ABLE TO MAKE QU|
000006E0: 45 4C 54 45 58 54 20 4F 55 54 20 4F 46 20 50 55 |ELTEXT OUT OF PU|
000006F0: 52 45 20 36 35 31 30 20 11 1D 43 4F 44 45 00 2A |RE 6510 ..CODE.*|
00000700: 0F 38 00 99 22 11 1D 4E 4F 54 45 3A 20 53 41 56 |.8.."..NOTE: SAV|
00000710: 45 20 59 4F 55 52 20 51 55 45 4C 54 45 58 54 20 |E YOUR QUELTEXT |
00000720: 42 45 46 4F 52 45 20 59 4F 55 00 3A 0F 39 00 99 |BEFORE YOU.:.9..|
00000730: 22 11 1D 54 45 53 54 20 49 54 00 5D 0F 3A 00 99 |"..TEST IT.].:..|
00000740: 22 11 1D 90 4D 41 59 20 54 48 45 20 57 41 56 45 |"...MAY THE WAVE|
00000750: 20 42 45 20 57 49 54 48 20 59 4F 55 22 00 69 0F | BE WITH YOU".i.|
00000760: 3B 00 8D 31 30 30 30 3A 8A 00 82 0F E8 03 97 31 |;..1000:.......1|
00000770: 39 38 2C 30 3A 92 31 39 38 2C 31 3A 99 22 93 22 |98,0:.198,1:."."|
00000780: 3A 8E 00 00 00 |:.... |
..F...P.53280:.P,11:.P.1,14:."....INSTRU
CTIONS FOR TURBO ASS BY VATE."......".SO
METIMES THERE ARE MORE WAYS FOR THE .S
AME COMMAND."......"...IMMEDIATE: LDA #$
FF......" ....... LDA #255......". ..
.... LDA #$11111111......"..BEGIN ADR
ESS: *=$1000......" ..............*=
4096.:...."..LABELS: PRINT = $FFD2.S....
".........JSR PRINT.P...."..INTERRUPT: L
DA #<IRQ......"............STA $0314....
.."............LDA #>IRQ.D....".........
...STA $0315......".......IRQ..INC $D020
......"............JMP $EA31......1000.)
....".CALCULATION: LDA $0400+3*40.G...."
._L LOAD QUELTEXT (PRG).D...."_S SAVE QU
ELTEXT (PRG).|...."_4 PRINT QUELTEXT....
.."_E ADD QUELTEXT (SEQ)......"_3 START
CONVERSION TO 6510 (RUN)......"_5 SAVE A
S PROGRAM (OBJ)......"_+ LIST LABELS....
.."_W SAVE QUELTEXT (SEQ).0...."_R SAVE
WITH REPLACE (@).D...."_F FIND LABEL.X..
.."_G GO TO MARK.T...."_K DEFINE FUNCTIO
NKEY......"_C COLD START (ERASE TEXT)...
..."_N GO TO RULE NR.... .."_M SET MARK
(0-9 FOR EASY PROGRAMMING AND S+E F
OR A CUT OUT)"...!.."_; LIST MARKS. ."..
"_: ERASE A MARK.8.#.."_* SHOW DIRECTORY
.T.$.."_@ READ ERROR CHANNEL.^.%..1000.U
.&.."_O CHANGE COLORS...'.."_B WRITE, KI
LL, OR COPY A CUT OUT".I.(.."_1 EXIT T-A
SS (SYS$9000 FOR RESTART)...).."..THE TE
XT WILL NOT BE ERASED AFTER _1".#.*.."..
THIS VERSION OF TASS GIVES YOU SMON.5.+.
."..AFTER _1..V.,.."..SMON IS LOCATED AT
$5000...-.."..YOU CAN ASSEMBLE THERE, B
UT NO TESTS......"..PLEASE..A./.."..NEVE
R TEST AT $8000 BECAUSE YOUR QUEL...0.."
..TEXT WILL BE DAMMAGED....1.."..STARTAD
RESSES LIKE $E000 OR $0400 ARE.:.2.."..A
LLOWED BUT AGAIN NO TESTS POSSIBLE.D.3..
1000.O.4.."..SEPERATED BYTES: .BYTE $00,
$A0,255...5.."..TEXTS: .TEXT"G(34)"THIS
IS NICE"G(34).H.6.."..WITH 'THE REASSEMB
LER' YOU WILL BE...7.."..ABLE TO MAKE QU
ELTEXT OUT OF PURE 6510 ..CODE.*.8.."..N
OTE: SAVE YOUR QUELTEXT BEFORE YOU.:.9..
"..TEST IT.].:.."...MAY THE WAVE BE WITH
YOU".I.;..1000:.......198,0:.198,1:."."
:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL