Your Commodore - Commodore Is Awesome

PROGRAM:LOADERBUILD
64 1000 REM
73 1010 REM" LOADERBUILO
so
70 1020 REM•• es
13 1030 REM** BY JD KINLEY 198
oo
513 1040 REM
91 1050 REM
58 2000 REM
91 2010 REM** INPUT DETAILS OF
PROGRAM o w
90 2020 REM*• TO BE PROCESSED
os
3A 2030 REM
CS 2040 POKE 53260,0 POKE 532
81,0
88 2050 PRINT "ECLR,WHITE,REV S
N,DOWN3 CONVERT MACHINE CODE
TO BASIC LOADER"
80 2060 PRINT
62 2070 PRINT "EPURPLE,DOWNS,RI
GHT313 E U P 2 3 "
2F 2080 INPUT "START ADDRESS OF
M/C PROGRAMESPC8,LEFT7,CYAN
1";INS
CS 2090 GOSUB6000
59 2100 IFERS""THEN GOSUB7000
:GOT02070
C8 2110 C E
-
I8A N 2120 ! M S S PRINT "EGREEN,OOWNS.RIG
- HT313 E U P 2 1 "
S92 T 2130 R S C IINPUT N ) "END ADDRESS OF M
; I N SIC
PROGRAMESPCIO,LEFT7.CYAN)
";INS
6F 2140 G05U06000
AB 2150 IFERS""THEN GOSUB7000
GOT02160
41 2160 MEIN:MESSTRSCIN)
33 2170 IFME255 TM
EN LLLL
- •
05 4050
256 * LNS""
79 4060 LIl i BY-PEEKCCE):CSCS-4-BY:BY
m
SSTRS(BY)
1 N.
1 1
F5 4070
4C- 1
B Y S '
.
-
: R
80 RIGHTS(BY
4080 1 LNS
RE
. S
EF
, L
4090 )
E MN
( B
C
Y
E
S
C
)
E
.LNS4BYS.I
4 -
ME
."," OD 1 : 14100 F C E > D ME E T
. N
HEN4130
. .
0
le
E
4110 T GOSUBS000
28 4120
+ 1 : 1 L GOT04030
F 0 E <
82 4130
1 7 T HI DE-DE-1.1
E N 4 0
8A 4140
6 0 N IFDE>16THENGOSUBS000:60
T04170
E
82 1150 I LNSLNS-1-"0."
SF 4160 GOT04130
t
47 4170 PRINT02,CHRS(0);CHRS(0)
;CLOSE2
E4 4180 END
El 4190 REM
14 5000 REM
C2 5010 REMuCOMPILE BASIC DATA
STATEMENT**
20 5020 REM
BE 5030 CSSSTRS(CS)
SF 5040 C S S
-
-1)
46 R I SOSO G H T S LNSCHRS(LL)+CHR5CLH)4C
( C S
S . L
HRS(131)+LNSA-CSSI-CHRS(0)
E N C C S
23 5060 DL
S )
... 89 5070 KL.
LENCLNS)
- EN KL.•XL-256 Kif104-4-1 : REM
+2 KL **SET LINE LINK
EF
+OL
6080
:
605U99000
78 SOSO RETURN
08
I
6000
F
REM
K L >
2 5 5
89 6010 REM** INPUT VALIDATION
T
oo
14 M 6020 REM
OF 6030 IN....0:ERS""
AE 6040 IFLEN(INS)>STHENERS-"EN
TRY TOO LONG":601136260
68 6050 IFLEFTSCINS,1)"S"THEN8
130
68 6060 IN-UAL( INS)
80 5070 FORT..1TOLEN(INS)
BD 6080 IFMIDS(INS,T,1)"9"THENFI
63 6090 NEXT
F7 6100 IFF1THENERS..."INVALID C
HARACTERS IN ENTRY":0
02 6110 IFIN>65S3STHENERS-"MEMO
RY LOCATION OUT OF BOUNDS"
E4 6120 G0106260
9F 6130 S L
62 . - 6140 I N S
-LENCINS)
65 6150 FORT11051
RIGHTS(IN
-1 lE 6160 TSSMIDSCINS,T,1)
S lE , S6170 L ) IFCTSS>"0"ANEITSS