25-08-89/HeadBas

Home » CEEFAX disks » telesoftware17.adl » 25-08-89/HeadBas

25-08-89/HeadBas

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware17.adl
Filename:	25-08-89/HeadBas
Read OK:	✔
File size:	127F bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10 REM   ROM header
   20 REM   by TERRY BLUNT
   30 REM   20 / 12 / 86
   40 
   50 CLOSE #0
   60 ON ERROR PROCerror
   70 PROCclear
   80 CLEAR
   90 copy$="TERRY BLUNT"
  100 eor=RND(255)
  110 E%=eor
  120 
  130 DIM block &40
  140 X%=block MOD 256
  150 Y%=block DIV 256
  160 
  170 line=&F2
  180 rom_No=&F4
  190 
  200 base=&8000
  210 start=&3800
  220 copy=0
  230 entry=0
  240 offs=base-start
  250 
  260 osnewl=&FFE7
  270 oswrch=&FFEE
  280 osbyte=&FFF4
  290 oscli=&FFF7
  300 
  310 MODE 7
  320 
  330 REPEAT
  340 READ A$
  350 PRINT CHR$130 A$
  360 UNTIL A$=" "
  370 
  380 PRINT CHR$134 "Enter Source program" CHR$133;
  390 INPUT "" source$
  400 S%=OPENUP source$
  410 IF S%=0 PRINT' "File not found"!
  420 N%=BGET#S%
  430 IF N%<>13 PRINT' "Not valid BASIC"!
  440 
  450 PRINT CHR$134 "Enter ROM title     " CHR$133;
  460 INPUT "" title$
  470 IF LEN title$>39 PRINT' "Too long"!
  480 
  490 PRINT CHR$134 "Enter Dest. filename" CHR$133;
  500 INPUT "" dest$
  510 D%=OPENUP dest$
  520 IF D%>0 PRINT' "File exists"!
  530 
  540 copy$="(C) "+copy$
  550 
  560 FOR I%=0 TO 2 STEP 2
  570 P%=start
  580 !P%=&4C000000
  590 P%=P%+4
  600 !P%=entry+offs
  610 P%=P%+2
  620 ?P%=&82
  630 P%=P%+1
  640 ?P%=copy-start
  650 P%=P%+1
  660 ?P%=1
  670 P%=P%+1
  680 
  690 title=P%
  700 $P%=title$
  710 P%=P%+LEN title$
  720 copy=P%
  730 ?P%=0
  740 P%=P%+1
  750 $P%=copy$
  760 P%=P%+LEN copy$
  770 [OPT I%
  780 
  790          BRK
  800 
  810 .ident
  820          LDX #&00
  830 
  840 .identloop
  850          LDA title+offs,X
  860          BEQ identexit
  870          JSR oswrch
  880          INX
  890          BNE identloop
  900 
  910 .identexit
  920          JMP osnewl
  930 
  940 .entry
  950          PHP
  960          PHA
  970          CMP #&03
  980          BNE notbreak
  990          JSR ident+offs
 1000          JSR osnewl
 1010          BNE exit
 1020 
 1030 .notbreak
 1040          CMP #&04
 1050          BEQ test
 1060          CMP #&09
 1070          BNE exit
 1080          LDA (line),Y
 1090          CMP #&0D
 1100          BNE exit
 1110          JSR osnewl
 1120          JSR ident+offs
 1130          BNE exit
 1140 
 1150 .notus
 1160          PLA
 1170          TAY
 1180 
 1190 .exit
 1200          PLA
 1210          LDX rom_No
 1220          PLP
 1230          RTS
 1240 
 1250 .test
 1260          TYA
 1270          PHA
 1280          LDX #&00
 1290 
 1300 .loop
 1310          LDA (line),Y
 1320          CMP #ASC"."
 1330          BNE cont
 1340          CPX #&02
 1350          BCS yes
 1360 
 1370 .cont
 1380          AND #&5F
 1390          CMP title+offs,X
 1400          BNE notus
 1410          INY
 1420          INX
 1430          LDA title+offs,X
 1440          AND #&5F
 1450          BNE loop
 1460 
 1470 .yes
 1480          LDA #&C8
 1490          LDX #&03
 1500          JSR osbyte
 1510          LDA #eor
 1520          STA &74
 1530          LDA #(prog+offs) MOD 256
 1540          STA &70
 1550          LDA #(prog+offs) DIV 256
 1560          STA &71
 1570          LDA #&83
 1580          JSR osbyte
 1590          STX &72
 1600          STY &73
 1610          LDY #&00
 1620          LDX #(top-prog) DIV 256+1
 1630 
 1640 .down
 1650          LDA (&70),Y
 1660          EOR &74
 1670          INC &74
 1680          STA (&72),Y
 1690          INY
 1700          BNE down
 1710          INC &71
 1720          INC &73
 1730          DEX
 1740          BNE down
 1750 
 1760          LDA #&15
 1770          JSR osbyte
 1780          LDA #&8A
 1790          LDY #ASC"O"
 1800          JSR osbyte
 1810          LDY #ASC"."
 1820          JSR osbyte
 1830          LDY #&0D
 1840          JSR osbyte
 1850          LDY #&F9
 1860          JSR osbyte
 1870          LDY #&06
 1880          JSR osbyte
 1890          LDY #&0D
 1900          JSR osbyte
 1910          LDA #&BB
 1920          LDX #&00
 1930          LDY #&FF
 1940          JSR osbyte
 1950          LDA #&15
 1960          JSR oswrch
 1970          LDA #&8E
 1980          LDY #&00
 1990          JMP osbyte
 2000 
 2010 .prog
 2020 
 2030 ]
 2040 IF I%=0 PROCload
 2050 NEXT
 2060 
 2070 $block="SAVE "+dest$+" "+STR$~start+" "+STR$~(start+end)+" 8000 8000"
 2080 CALL oscli
 2090 
 2100 PRINT' "Eprom size ";end DIV &400 "k"!
 2110 
 2120 DEFPROCload
 2130 ?P%=N% EOR E%
 2140 E%=(E%+1) AND &FF
 2150 P%=P%+1
 2160 REPEAT
 2170 N%=BGET#S% EOR E%
 2180 E%=(E%+1) AND &FF
 2190 ?P%=N%
 2200 P%=P%+1
 2210 UNTIL P%=start+&4000 OR EOF#S%
 2220 IF NOT EOF#S% PRINT' "Program too long"!
 2230 top=P%
 2240 CLOSE #S%
 2250 IF P%<start+&2001 end=&2000 ELSE end=&4000
 2260 ENDPROC
 2270 
 2280 DEFPROCerror
 2290 CLOSE #0
 2300 IF ERR<>26 REPORT
 2310 PRINT " - Press a key"
 2320 IF GET
 2330 ENDPROC
 2340 
 2350 DEFPROCclear
 2360 DIM block &40
 2370 !&70=&3800
 2380 A%=&FF:X%=&40:Y%=&00
 2390 P%=block
 2400 [OPT2
 2410 
 2420 .loop
 2430          STA (&70),Y
 2440          INY
 2450          BNE loop
 2460          INC &71
 2470          DEX
 2480          BNE loop
 2490          RTS
 2500 
 2510 ]
 2520 CALL block
 2530 ENDPROC
 2540 
 2550 DATA (c) Terry Blunt
 2560 DATA ,,,"             EPROM HEADER"
 2570 DATA ,,,"  This program adds a header routine"
 2580 DATA "to any 'BASIC' program, generating a"
 2590 DATA new file that can be programmed into
 2600 DATA an 8K or 16K EPROM. File size is set
 2610 DATA automatically by the program.
 2620 DATA ,"  When called by the ROM title,  the"
 2630 DATA "EPROM will select 'BASIC',  download"
 2640 DATA the program to PAGE and RUN it.," "


 �   ROM header
 �   by TERRY BLUNT
 �   20 / 12 / 86
( 
2	 � #0
< � � �error
F �clear
P �
Z copy$="TERRY BLUNT"
d eor=�(255)
n E%=eor
x 
� � block &40
� X%=block � 256
� Y%=block � 256
� 
�
 line=&F2
� rom_No=&F4
� 
� base=&8000
� start=&3800
� copy=0
� entry=0
� offs=base-start
� 
 osnewl=&FFE7
 oswrch=&FFEE
 osbyte=&FFF4
" oscli=&FFF7
, 
6 � 7
@ 
J �
T	 � A$
^ � �130 A$
h
 � A$=" "
r 
|( � �134 "Enter Source program" �133;
� � "" source$
� S%=� source$
�  � S%=0 �' "File not found"!
� N%=�#S%
�# � N%<>13 �' "Not valid BASIC"!
� 
�( � �134 "Enter ROM title     " �133;
� � "" title$
�! � � title$>39 �' "Too long"!
� 
�( � �134 "Enter Dest. filename" �133;
� � "" dest$
� D%=� dest$
 � D%>0 �' "File exists"!
 
 copy$="(C) "+copy$
& 
0 � I%=0 � 2 � 2
:
 P%=start
D !P%=&4C000000
N P%=P%+4
X !P%=entry+offs
b P%=P%+2
l ?P%=&82
v P%=P%+1
� ?P%=copy-start
� P%=P%+1
�
 ?P%=1
� P%=P%+1
� 
�
 title=P%
� $P%=title$
� P%=P%+� title$
� copy=P%
�
 ?P%=0
� P%=P%+1
� $P%=copy$
� P%=P%+� copy$
 [OPT I%
 
          BRK
  
* .ident
4          LDX #&00
> 
H .identloop
R          LDA title+offs,X
\          BEQ identexit
f          JSR oswrch
p          INX
z          BNE identloop
� 
� .identexit
�          JMP osnewl
� 
� .entry
�          PHP
�          PHA
�          CMP #&03
�          BNE notbreak
�          JSR ident+offs
�          JSR osnewl
�          BNE exit
� 
 .notbreak
          CMP #&04
          BEQ test
$          CMP #&09
.          BNE exit
8          LDA (line),Y
B          CMP #&0D
L          BNE exit
V          JSR osnewl
`          JSR ident+offs
j          BNE exit
t 
~ .notus
�          PLA
�          TAY
� 
�
 .exit
�          PLA
�          LDX rom_No
�          PLP
�          RTS
� 
�
 .test
�          TYA
�          PHA
          LDX #&00

 

 .loop
          LDA (line),Y
(          CMP #�"."
2          BNE cont
<          CPX #&02
F          BCS yes
P 
Z
 .cont
d          � #&5F
n          CMP title+offs,X
x          BNE notus
�          INY
�          INX
�          LDA title+offs,X
�          � #&5F
�          BNE loop
� 
�	 .yes
�          LDA #&C8
�          LDX #&03
�          JSR osbyte
�          LDA #eor
�          STA &74
�$          LDA #(prog+offs) � 256
          STA &70
$          LDA #(prog+offs) � 256
          STA &71
"          LDA #&83
,          JSR osbyte
6          STX &72
@          STY &73
J          LDY #&00
T%          LDX #(top-prog) � 256+1
^ 
h
 .down
r          LDA (&70),Y
|          � &74
�          INC &74
�          STA (&72),Y
�          INY
�          BNE down
�          INC &71
�          INC &73
�          DEX
�          BNE down
� 
�          LDA #&15
�          JSR osbyte
�          LDA #&8A
�          LDY #�"O"
          JSR osbyte
          LDY #�"."
          JSR osbyte
&          LDY #&0D
0          JSR osbyte
:          LDY #&F9
D          JSR osbyte
N          LDY #&06
X          JSR osbyte
b          LDY #&0D
l          JSR osbyte
v          LDA #&BB
�          LDX #&00
�          LDY #&FF
�          JSR osbyte
�          LDA #&15
�          JSR oswrch
�          LDA #&8E
�          LDY #&00
�          JMP osbyte
� 
�
 .prog
� 
� ]
� � I%=0 �load
 �
 
D $block="SAVE "+dest$+" "+�~start+" "+�~(start+end)+" 8000 8000"
  � oscli
* 
4% �' "Eprom size ";end � &400 "k"!
> 
H ��load
R ?P%=N% � E%
\ E%=(E%+1) � &FF
f P%=P%+1
p �
z N%=�#S% � E%
� E%=(E%+1) � &FF
� ?P%=N%
� P%=P%+1
� � P%=start+&4000 � �#S%
�$ � � �#S% �' "Program too long"!
� top=P%
�
 � #S%
�+ � P%<start+&2001 end=&2000 � end=&4000
� �
� 
� ��error
�	 � #0
� � �<>26 �
	 � " - Press a key"
	 � �
	 �
	$ 
	. ��clear
	8 � block &40
	B !&70=&3800
	L A%=&FF:X%=&40:Y%=&00
	V
 P%=block
	`
 [OPT2
	j 
	t
 .loop
	~          STA (&70),Y
	�          INY
	�          BNE loop
	�          INC &71
	�          DEX
	�          BNE loop
	�          RTS
	� 
	� ]
	� � block
	� �
	� 
	� � (c) Terry Blunt
% � ,,,"             EPROM HEADER"

0 � ,,,"  This program adds a header routine"
- � "to any 'BASIC' program, generating a"
+ � new file that can be programmed into
(+ � an 8K or 16K EPROM. File size is set
2$ � automatically by the program.
<. � ,"  When called by the ROM title,  the"
F- � "EPROM will select 'BASIC',  download"
P* � the program to PAGE and RUN it.," "
�

00000000  0d 00 0a 13 20 f4 20 20  20 52 4f 4d 20 68 65 61  |.... .   ROM hea|
00000010  64 65 72 0d 00 14 17 20  f4 20 20 20 62 79 20 54  |der.... .   by T|
00000020  45 52 52 59 20 42 4c 55  4e 54 0d 00 1e 15 20 f4  |ERRY BLUNT.... .|
00000030  20 20 20 32 30 20 2f 20  31 32 20 2f 20 38 36 0d  |   20 / 12 / 86.|
00000040  00 28 05 20 0d 00 32 09  20 d9 20 23 30 0d 00 3c  |.(. ..2. . #0..<|
00000050  0f 20 ee 20 85 20 f2 65  72 72 6f 72 0d 00 46 0b  |. . . .error..F.|
00000060  20 f2 63 6c 65 61 72 0d  00 50 06 20 d8 0d 00 5a  | .clear..P. ...Z|
00000070  18 20 63 6f 70 79 24 3d  22 54 45 52 52 59 20 42  |. copy$="TERRY B|
00000080  4c 55 4e 54 22 0d 00 64  0f 20 65 6f 72 3d b3 28  |LUNT"..d. eor=.(|
00000090  32 35 35 29 0d 00 6e 0b  20 45 25 3d 65 6f 72 0d  |255)..n. E%=eor.|
000000a0  00 78 05 20 0d 00 82 10  20 de 20 62 6c 6f 63 6b  |.x. .... . block|
000000b0  20 26 34 30 0d 00 8c 13  20 58 25 3d 62 6c 6f 63  | &40.... X%=bloc|
000000c0  6b 20 83 20 32 35 36 0d  00 96 13 20 59 25 3d 62  |k . 256.... Y%=b|
000000d0  6c 6f 63 6b 20 81 20 32  35 36 0d 00 a0 05 20 0d  |lock . 256.... .|
000000e0  00 aa 0d 20 6c 69 6e 65  3d 26 46 32 0d 00 b4 0f  |... line=&F2....|
000000f0  20 72 6f 6d 5f 4e 6f 3d  26 46 34 0d 00 be 05 20  | rom_No=&F4.... |
00000100  0d 00 c8 0f 20 62 61 73  65 3d 26 38 30 30 30 0d  |.... base=&8000.|
00000110  00 d2 10 20 73 74 61 72  74 3d 26 33 38 30 30 0d  |... start=&3800.|
00000120  00 dc 0b 20 63 6f 70 79  3d 30 0d 00 e6 0c 20 65  |... copy=0.... e|
00000130  6e 74 72 79 3d 30 0d 00  f0 14 20 6f 66 66 73 3d  |ntry=0.... offs=|
00000140  62 61 73 65 2d 73 74 61  72 74 0d 00 fa 05 20 0d  |base-start.... .|
00000150  01 04 11 20 6f 73 6e 65  77 6c 3d 26 46 46 45 37  |... osnewl=&FFE7|
00000160  0d 01 0e 11 20 6f 73 77  72 63 68 3d 26 46 46 45  |.... oswrch=&FFE|
00000170  45 0d 01 18 11 20 6f 73  62 79 74 65 3d 26 46 46  |E.... osbyte=&FF|
00000180  46 34 0d 01 22 10 20 6f  73 63 6c 69 3d 26 46 46  |F4..". oscli=&FF|
00000190  46 37 0d 01 2c 05 20 0d  01 36 08 20 eb 20 37 0d  |F7..,. ..6. . 7.|
000001a0  01 40 05 20 0d 01 4a 06  20 f5 0d 01 54 09 20 f3  |.@. ..J. ...T. .|
000001b0  20 41 24 0d 01 5e 0e 20  f1 20 bd 31 33 30 20 41  | A$..^. . .130 A|
000001c0  24 0d 01 68 0d 20 fd 20  41 24 3d 22 20 22 0d 01  |$..h. . A$=" "..|
000001d0  72 05 20 0d 01 7c 28 20  f1 20 bd 31 33 34 20 22  |r. ..|( . .134 "|
000001e0  45 6e 74 65 72 20 53 6f  75 72 63 65 20 70 72 6f  |Enter Source pro|
000001f0  67 72 61 6d 22 20 bd 31  33 33 3b 0d 01 86 11 20  |gram" .133;.... |
00000200  e8 20 22 22 20 73 6f 75  72 63 65 24 0d 01 90 11  |. "" source$....|
00000210  20 53 25 3d ad 20 73 6f  75 72 63 65 24 0d 01 9a  | S%=. source$...|
00000220  20 20 e7 20 53 25 3d 30  20 f1 27 20 22 46 69 6c  |  . S%=0 .' "Fil|
00000230  65 20 6e 6f 74 20 66 6f  75 6e 64 22 21 0d 01 a4  |e not found"!...|
00000240  0c 20 4e 25 3d 9a 23 53  25 0d 01 ae 23 20 e7 20  |. N%=.#S%...# . |
00000250  4e 25 3c 3e 31 33 20 f1  27 20 22 4e 6f 74 20 76  |N%<>13 .' "Not v|
00000260  61 6c 69 64 20 42 41 53  49 43 22 21 0d 01 b8 05  |alid BASIC"!....|
00000270  20 0d 01 c2 28 20 f1 20  bd 31 33 34 20 22 45 6e  | ...( . .134 "En|
00000280  74 65 72 20 52 4f 4d 20  74 69 74 6c 65 20 20 20  |ter ROM title   |
00000290  20 20 22 20 bd 31 33 33  3b 0d 01 cc 10 20 e8 20  |  " .133;.... . |
000002a0  22 22 20 74 69 74 6c 65  24 0d 01 d6 21 20 e7 20  |"" title$...! . |
000002b0  a9 20 74 69 74 6c 65 24  3e 33 39 20 f1 27 20 22  |. title$>39 .' "|
000002c0  54 6f 6f 20 6c 6f 6e 67  22 21 0d 01 e0 05 20 0d  |Too long"!.... .|
000002d0  01 ea 28 20 f1 20 bd 31  33 34 20 22 45 6e 74 65  |..( . .134 "Ente|
000002e0  72 20 44 65 73 74 2e 20  66 69 6c 65 6e 61 6d 65  |r Dest. filename|
000002f0  22 20 bd 31 33 33 3b 0d  01 f4 0f 20 e8 20 22 22  |" .133;.... . ""|
00000300  20 64 65 73 74 24 0d 01  fe 0f 20 44 25 3d ad 20  | dest$.... D%=. |
00000310  64 65 73 74 24 0d 02 08  1d 20 e7 20 44 25 3e 30  |dest$.... . D%>0|
00000320  20 f1 27 20 22 46 69 6c  65 20 65 78 69 73 74 73  | .' "File exists|
00000330  22 21 0d 02 12 05 20 0d  02 1c 17 20 63 6f 70 79  |"!.... .... copy|
00000340  24 3d 22 28 43 29 20 22  2b 63 6f 70 79 24 0d 02  |$="(C) "+copy$..|
00000350  26 05 20 0d 02 30 13 20  e3 20 49 25 3d 30 20 b8  |&. ..0. . I%=0 .|
00000360  20 32 20 88 20 32 0d 02  3a 0d 20 50 25 3d 73 74  | 2 . 2..:. P%=st|
00000370  61 72 74 0d 02 44 12 20  21 50 25 3d 26 34 43 30  |art..D. !P%=&4C0|
00000380  30 30 30 30 30 0d 02 4e  0c 20 50 25 3d 50 25 2b  |00000..N. P%=P%+|
00000390  34 0d 02 58 13 20 21 50  25 3d 65 6e 74 72 79 2b  |4..X. !P%=entry+|
000003a0  6f 66 66 73 0d 02 62 0c  20 50 25 3d 50 25 2b 32  |offs..b. P%=P%+2|
000003b0  0d 02 6c 0c 20 3f 50 25  3d 26 38 32 0d 02 76 0c  |..l. ?P%=&82..v.|
000003c0  20 50 25 3d 50 25 2b 31  0d 02 80 13 20 3f 50 25  | P%=P%+1.... ?P%|
000003d0  3d 63 6f 70 79 2d 73 74  61 72 74 0d 02 8a 0c 20  |=copy-start.... |
000003e0  50 25 3d 50 25 2b 31 0d  02 94 0a 20 3f 50 25 3d  |P%=P%+1.... ?P%=|
000003f0  31 0d 02 9e 0c 20 50 25  3d 50 25 2b 31 0d 02 a8  |1.... P%=P%+1...|
00000400  05 20 0d 02 b2 0d 20 74  69 74 6c 65 3d 50 25 0d  |. .... title=P%.|
00000410  02 bc 0f 20 24 50 25 3d  74 69 74 6c 65 24 0d 02  |... $P%=title$..|
00000420  c6 13 20 50 25 3d 50 25  2b a9 20 74 69 74 6c 65  |.. P%=P%+. title|
00000430  24 0d 02 d0 0c 20 63 6f  70 79 3d 50 25 0d 02 da  |$.... copy=P%...|
00000440  0a 20 3f 50 25 3d 30 0d  02 e4 0c 20 50 25 3d 50  |. ?P%=0.... P%=P|
00000450  25 2b 31 0d 02 ee 0e 20  24 50 25 3d 63 6f 70 79  |%+1.... $P%=copy|
00000460  24 0d 02 f8 12 20 50 25  3d 50 25 2b a9 20 63 6f  |$.... P%=P%+. co|
00000470  70 79 24 0d 03 02 0c 20  5b 4f 50 54 20 49 25 0d  |py$.... [OPT I%.|
00000480  03 0c 05 20 0d 03 16 11  20 20 20 20 20 20 20 20  |... ....        |
00000490  20 20 42 52 4b 0d 03 20  05 20 0d 03 2a 0b 20 2e  |  BRK.. . ..*. .|
000004a0  69 64 65 6e 74 0d 03 34  16 20 20 20 20 20 20 20  |ident..4.       |
000004b0  20 20 20 4c 44 58 20 23  26 30 30 0d 03 3e 05 20  |   LDX #&00..>. |
000004c0  0d 03 48 0f 20 2e 69 64  65 6e 74 6c 6f 6f 70 0d  |..H. .identloop.|
000004d0  03 52 1e 20 20 20 20 20  20 20 20 20 20 4c 44 41  |.R.          LDA|
000004e0  20 74 69 74 6c 65 2b 6f  66 66 73 2c 58 0d 03 5c  | title+offs,X..\|
000004f0  1b 20 20 20 20 20 20 20  20 20 20 42 45 51 20 69  |.          BEQ i|
00000500  64 65 6e 74 65 78 69 74  0d 03 66 18 20 20 20 20  |dentexit..f.    |
00000510  20 20 20 20 20 20 4a 53  52 20 6f 73 77 72 63 68  |      JSR oswrch|
00000520  0d 03 70 11 20 20 20 20  20 20 20 20 20 20 49 4e  |..p.          IN|
00000530  58 0d 03 7a 1b 20 20 20  20 20 20 20 20 20 20 42  |X..z.          B|
00000540  4e 45 20 69 64 65 6e 74  6c 6f 6f 70 0d 03 84 05  |NE identloop....|
00000550  20 0d 03 8e 0f 20 2e 69  64 65 6e 74 65 78 69 74  | .... .identexit|
00000560  0d 03 98 18 20 20 20 20  20 20 20 20 20 20 4a 4d  |....          JM|
00000570  50 20 6f 73 6e 65 77 6c  0d 03 a2 05 20 0d 03 ac  |P osnewl.... ...|
00000580  0b 20 2e 65 6e 74 72 79  0d 03 b6 11 20 20 20 20  |. .entry....    |
00000590  20 20 20 20 20 20 50 48  50 0d 03 c0 11 20 20 20  |      PHP....   |
000005a0  20 20 20 20 20 20 20 50  48 41 0d 03 ca 16 20 20  |       PHA....  |
000005b0  20 20 20 20 20 20 20 20  43 4d 50 20 23 26 30 33  |        CMP #&03|
000005c0  0d 03 d4 1a 20 20 20 20  20 20 20 20 20 20 42 4e  |....          BN|
000005d0  45 20 6e 6f 74 62 72 65  61 6b 0d 03 de 1c 20 20  |E notbreak....  |
000005e0  20 20 20 20 20 20 20 20  4a 53 52 20 69 64 65 6e  |        JSR iden|
000005f0  74 2b 6f 66 66 73 0d 03  e8 18 20 20 20 20 20 20  |t+offs....      |
00000600  20 20 20 20 4a 53 52 20  6f 73 6e 65 77 6c 0d 03  |    JSR osnewl..|
00000610  f2 16 20 20 20 20 20 20  20 20 20 20 42 4e 45 20  |..          BNE |
00000620  65 78 69 74 0d 03 fc 05  20 0d 04 06 0e 20 2e 6e  |exit.... .... .n|
00000630  6f 74 62 72 65 61 6b 0d  04 10 16 20 20 20 20 20  |otbreak....     |
00000640  20 20 20 20 20 43 4d 50  20 23 26 30 34 0d 04 1a  |     CMP #&04...|
00000650  16 20 20 20 20 20 20 20  20 20 20 42 45 51 20 74  |.          BEQ t|
00000660  65 73 74 0d 04 24 16 20  20 20 20 20 20 20 20 20  |est..$.         |
00000670  20 43 4d 50 20 23 26 30  39 0d 04 2e 16 20 20 20  | CMP #&09....   |
00000680  20 20 20 20 20 20 20 42  4e 45 20 65 78 69 74 0d  |       BNE exit.|
00000690  04 38 1a 20 20 20 20 20  20 20 20 20 20 4c 44 41  |.8.          LDA|
000006a0  20 28 6c 69 6e 65 29 2c  59 0d 04 42 16 20 20 20  | (line),Y..B.   |
000006b0  20 20 20 20 20 20 20 43  4d 50 20 23 26 30 44 0d  |       CMP #&0D.|
000006c0  04 4c 16 20 20 20 20 20  20 20 20 20 20 42 4e 45  |.L.          BNE|
000006d0  20 65 78 69 74 0d 04 56  18 20 20 20 20 20 20 20  | exit..V.       |
000006e0  20 20 20 4a 53 52 20 6f  73 6e 65 77 6c 0d 04 60  |   JSR osnewl..`|
000006f0  1c 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 69  |.          JSR i|
00000700  64 65 6e 74 2b 6f 66 66  73 0d 04 6a 16 20 20 20  |dent+offs..j.   |
00000710  20 20 20 20 20 20 20 42  4e 45 20 65 78 69 74 0d  |       BNE exit.|
00000720  04 74 05 20 0d 04 7e 0b  20 2e 6e 6f 74 75 73 0d  |.t. ..~. .notus.|
00000730  04 88 11 20 20 20 20 20  20 20 20 20 20 50 4c 41  |...          PLA|
00000740  0d 04 92 11 20 20 20 20  20 20 20 20 20 20 54 41  |....          TA|
00000750  59 0d 04 9c 05 20 0d 04  a6 0a 20 2e 65 78 69 74  |Y.... .... .exit|
00000760  0d 04 b0 11 20 20 20 20  20 20 20 20 20 20 50 4c  |....          PL|
00000770  41 0d 04 ba 18 20 20 20  20 20 20 20 20 20 20 4c  |A....          L|
00000780  44 58 20 72 6f 6d 5f 4e  6f 0d 04 c4 11 20 20 20  |DX rom_No....   |
00000790  20 20 20 20 20 20 20 50  4c 50 0d 04 ce 11 20 20  |       PLP....  |
000007a0  20 20 20 20 20 20 20 20  52 54 53 0d 04 d8 05 20  |        RTS.... |
000007b0  0d 04 e2 0a 20 2e 74 65  73 74 0d 04 ec 11 20 20  |.... .test....  |
000007c0  20 20 20 20 20 20 20 20  54 59 41 0d 04 f6 11 20  |        TYA.... |
000007d0  20 20 20 20 20 20 20 20  20 50 48 41 0d 05 00 16  |         PHA....|
000007e0  20 20 20 20 20 20 20 20  20 20 4c 44 58 20 23 26  |          LDX #&|
000007f0  30 30 0d 05 0a 05 20 0d  05 14 0a 20 2e 6c 6f 6f  |00.... .... .loo|
00000800  70 0d 05 1e 1a 20 20 20  20 20 20 20 20 20 20 4c  |p....          L|
00000810  44 41 20 28 6c 69 6e 65  29 2c 59 0d 05 28 17 20  |DA (line),Y..(. |
00000820  20 20 20 20 20 20 20 20  20 43 4d 50 20 23 97 22  |         CMP #."|
00000830  2e 22 0d 05 32 16 20 20  20 20 20 20 20 20 20 20  |."..2.          |
00000840  42 4e 45 20 63 6f 6e 74  0d 05 3c 16 20 20 20 20  |BNE cont..<.    |
00000850  20 20 20 20 20 20 43 50  58 20 23 26 30 32 0d 05  |      CPX #&02..|
00000860  46 15 20 20 20 20 20 20  20 20 20 20 42 43 53 20  |F.          BCS |
00000870  79 65 73 0d 05 50 05 20  0d 05 5a 0a 20 2e 63 6f  |yes..P. ..Z. .co|
00000880  6e 74 0d 05 64 14 20 20  20 20 20 20 20 20 20 20  |nt..d.          |
00000890  80 20 23 26 35 46 0d 05  6e 1e 20 20 20 20 20 20  |. #&5F..n.      |
000008a0  20 20 20 20 43 4d 50 20  74 69 74 6c 65 2b 6f 66  |    CMP title+of|
000008b0  66 73 2c 58 0d 05 78 17  20 20 20 20 20 20 20 20  |fs,X..x.        |
000008c0  20 20 42 4e 45 20 6e 6f  74 75 73 0d 05 82 11 20  |  BNE notus.... |
000008d0  20 20 20 20 20 20 20 20  20 49 4e 59 0d 05 8c 11  |         INY....|
000008e0  20 20 20 20 20 20 20 20  20 20 49 4e 58 0d 05 96  |          INX...|
000008f0  1e 20 20 20 20 20 20 20  20 20 20 4c 44 41 20 74  |.          LDA t|
00000900  69 74 6c 65 2b 6f 66 66  73 2c 58 0d 05 a0 14 20  |itle+offs,X.... |
00000910  20 20 20 20 20 20 20 20  20 80 20 23 26 35 46 0d  |         . #&5F.|
00000920  05 aa 16 20 20 20 20 20  20 20 20 20 20 42 4e 45  |...          BNE|
00000930  20 6c 6f 6f 70 0d 05 b4  05 20 0d 05 be 09 20 2e  | loop.... .... .|
00000940  79 65 73 0d 05 c8 16 20  20 20 20 20 20 20 20 20  |yes....         |
00000950  20 4c 44 41 20 23 26 43  38 0d 05 d2 16 20 20 20  | LDA #&C8....   |
00000960  20 20 20 20 20 20 20 4c  44 58 20 23 26 30 33 0d  |       LDX #&03.|
00000970  05 dc 18 20 20 20 20 20  20 20 20 20 20 4a 53 52  |...          JSR|
00000980  20 6f 73 62 79 74 65 0d  05 e6 16 20 20 20 20 20  | osbyte....     |
00000990  20 20 20 20 20 4c 44 41  20 23 65 6f 72 0d 05 f0  |     LDA #eor...|
000009a0  15 20 20 20 20 20 20 20  20 20 20 53 54 41 20 26  |.          STA &|
000009b0  37 34 0d 05 fa 24 20 20  20 20 20 20 20 20 20 20  |74...$          |
000009c0  4c 44 41 20 23 28 70 72  6f 67 2b 6f 66 66 73 29  |LDA #(prog+offs)|
000009d0  20 83 20 32 35 36 0d 06  04 15 20 20 20 20 20 20  | . 256....      |
000009e0  20 20 20 20 53 54 41 20  26 37 30 0d 06 0e 24 20  |    STA &70...$ |
000009f0  20 20 20 20 20 20 20 20  20 4c 44 41 20 23 28 70  |         LDA #(p|
00000a00  72 6f 67 2b 6f 66 66 73  29 20 81 20 32 35 36 0d  |rog+offs) . 256.|
00000a10  06 18 15 20 20 20 20 20  20 20 20 20 20 53 54 41  |...          STA|
00000a20  20 26 37 31 0d 06 22 16  20 20 20 20 20 20 20 20  | &71..".        |
00000a30  20 20 4c 44 41 20 23 26  38 33 0d 06 2c 18 20 20  |  LDA #&83..,.  |
00000a40  20 20 20 20 20 20 20 20  4a 53 52 20 6f 73 62 79  |        JSR osby|
00000a50  74 65 0d 06 36 15 20 20  20 20 20 20 20 20 20 20  |te..6.          |
00000a60  53 54 58 20 26 37 32 0d  06 40 15 20 20 20 20 20  |STX &72..@.     |
00000a70  20 20 20 20 20 53 54 59  20 26 37 33 0d 06 4a 16  |     STY &73..J.|
00000a80  20 20 20 20 20 20 20 20  20 20 4c 44 59 20 23 26  |          LDY #&|
00000a90  30 30 0d 06 54 25 20 20  20 20 20 20 20 20 20 20  |00..T%          |
00000aa0  4c 44 58 20 23 28 74 6f  70 2d 70 72 6f 67 29 20  |LDX #(top-prog) |
00000ab0  81 20 32 35 36 2b 31 0d  06 5e 05 20 0d 06 68 0a  |. 256+1..^. ..h.|
00000ac0  20 2e 64 6f 77 6e 0d 06  72 19 20 20 20 20 20 20  | .down..r.      |
00000ad0  20 20 20 20 4c 44 41 20  28 26 37 30 29 2c 59 0d  |    LDA (&70),Y.|
00000ae0  06 7c 13 20 20 20 20 20  20 20 20 20 20 82 20 26  |.|.          . &|
00000af0  37 34 0d 06 86 15 20 20  20 20 20 20 20 20 20 20  |74....          |
00000b00  49 4e 43 20 26 37 34 0d  06 90 19 20 20 20 20 20  |INC &74....     |
00000b10  20 20 20 20 20 53 54 41  20 28 26 37 32 29 2c 59  |     STA (&72),Y|
00000b20  0d 06 9a 11 20 20 20 20  20 20 20 20 20 20 49 4e  |....          IN|
00000b30  59 0d 06 a4 16 20 20 20  20 20 20 20 20 20 20 42  |Y....          B|
00000b40  4e 45 20 64 6f 77 6e 0d  06 ae 15 20 20 20 20 20  |NE down....     |
00000b50  20 20 20 20 20 49 4e 43  20 26 37 31 0d 06 b8 15  |     INC &71....|
00000b60  20 20 20 20 20 20 20 20  20 20 49 4e 43 20 26 37  |          INC &7|
00000b70  33 0d 06 c2 11 20 20 20  20 20 20 20 20 20 20 44  |3....          D|
00000b80  45 58 0d 06 cc 16 20 20  20 20 20 20 20 20 20 20  |EX....          |
00000b90  42 4e 45 20 64 6f 77 6e  0d 06 d6 05 20 0d 06 e0  |BNE down.... ...|
00000ba0  16 20 20 20 20 20 20 20  20 20 20 4c 44 41 20 23  |.          LDA #|
00000bb0  26 31 35 0d 06 ea 18 20  20 20 20 20 20 20 20 20  |&15....         |
00000bc0  20 4a 53 52 20 6f 73 62  79 74 65 0d 06 f4 16 20  | JSR osbyte.... |
00000bd0  20 20 20 20 20 20 20 20  20 4c 44 41 20 23 26 38  |         LDA #&8|
00000be0  41 0d 06 fe 17 20 20 20  20 20 20 20 20 20 20 4c  |A....          L|
00000bf0  44 59 20 23 97 22 4f 22  0d 07 08 18 20 20 20 20  |DY #."O"....    |
00000c00  20 20 20 20 20 20 4a 53  52 20 6f 73 62 79 74 65  |      JSR osbyte|
00000c10  0d 07 12 17 20 20 20 20  20 20 20 20 20 20 4c 44  |....          LD|
00000c20  59 20 23 97 22 2e 22 0d  07 1c 18 20 20 20 20 20  |Y #."."....     |
00000c30  20 20 20 20 20 4a 53 52  20 6f 73 62 79 74 65 0d  |     JSR osbyte.|
00000c40  07 26 16 20 20 20 20 20  20 20 20 20 20 4c 44 59  |.&.          LDY|
00000c50  20 23 26 30 44 0d 07 30  18 20 20 20 20 20 20 20  | #&0D..0.       |
00000c60  20 20 20 4a 53 52 20 6f  73 62 79 74 65 0d 07 3a  |   JSR osbyte..:|
00000c70  16 20 20 20 20 20 20 20  20 20 20 4c 44 59 20 23  |.          LDY #|
00000c80  26 46 39 0d 07 44 18 20  20 20 20 20 20 20 20 20  |&F9..D.         |
00000c90  20 4a 53 52 20 6f 73 62  79 74 65 0d 07 4e 16 20  | JSR osbyte..N. |
00000ca0  20 20 20 20 20 20 20 20  20 4c 44 59 20 23 26 30  |         LDY #&0|
00000cb0  36 0d 07 58 18 20 20 20  20 20 20 20 20 20 20 4a  |6..X.          J|
00000cc0  53 52 20 6f 73 62 79 74  65 0d 07 62 16 20 20 20  |SR osbyte..b.   |
00000cd0  20 20 20 20 20 20 20 4c  44 59 20 23 26 30 44 0d  |       LDY #&0D.|
00000ce0  07 6c 18 20 20 20 20 20  20 20 20 20 20 4a 53 52  |.l.          JSR|
00000cf0  20 6f 73 62 79 74 65 0d  07 76 16 20 20 20 20 20  | osbyte..v.     |
00000d00  20 20 20 20 20 4c 44 41  20 23 26 42 42 0d 07 80  |     LDA #&BB...|
00000d10  16 20 20 20 20 20 20 20  20 20 20 4c 44 58 20 23  |.          LDX #|
00000d20  26 30 30 0d 07 8a 16 20  20 20 20 20 20 20 20 20  |&00....         |
00000d30  20 4c 44 59 20 23 26 46  46 0d 07 94 18 20 20 20  | LDY #&FF....   |
00000d40  20 20 20 20 20 20 20 4a  53 52 20 6f 73 62 79 74  |       JSR osbyt|
00000d50  65 0d 07 9e 16 20 20 20  20 20 20 20 20 20 20 4c  |e....          L|
00000d60  44 41 20 23 26 31 35 0d  07 a8 18 20 20 20 20 20  |DA #&15....     |
00000d70  20 20 20 20 20 4a 53 52  20 6f 73 77 72 63 68 0d  |     JSR oswrch.|
00000d80  07 b2 16 20 20 20 20 20  20 20 20 20 20 4c 44 41  |...          LDA|
00000d90  20 23 26 38 45 0d 07 bc  16 20 20 20 20 20 20 20  | #&8E....       |
00000da0  20 20 20 4c 44 59 20 23  26 30 30 0d 07 c6 18 20  |   LDY #&00.... |
00000db0  20 20 20 20 20 20 20 20  20 4a 4d 50 20 6f 73 62  |         JMP osb|
00000dc0  79 74 65 0d 07 d0 05 20  0d 07 da 0a 20 2e 70 72  |yte.... .... .pr|
00000dd0  6f 67 0d 07 e4 05 20 0d  07 ee 06 20 5d 0d 07 f8  |og.... .... ]...|
00000de0  11 20 e7 20 49 25 3d 30  20 f2 6c 6f 61 64 0d 08  |. . I%=0 .load..|
00000df0  02 06 20 ed 0d 08 0c 05  20 0d 08 16 44 20 24 62  |.. ..... ...D $b|
00000e00  6c 6f 63 6b 3d 22 53 41  56 45 20 22 2b 64 65 73  |lock="SAVE "+des|
00000e10  74 24 2b 22 20 22 2b c3  7e 73 74 61 72 74 2b 22  |t$+" "+.~start+"|
00000e20  20 22 2b c3 7e 28 73 74  61 72 74 2b 65 6e 64 29  | "+.~(start+end)|
00000e30  2b 22 20 38 30 30 30 20  38 30 30 30 22 0d 08 20  |+" 8000 8000".. |
00000e40  0c 20 d6 20 6f 73 63 6c  69 0d 08 2a 05 20 0d 08  |. . oscli..*. ..|
00000e50  34 25 20 f1 27 20 22 45  70 72 6f 6d 20 73 69 7a  |4% .' "Eprom siz|
00000e60  65 20 22 3b 65 6e 64 20  81 20 26 34 30 30 20 22  |e ";end . &400 "|
00000e70  6b 22 21 0d 08 3e 05 20  0d 08 48 0b 20 dd f2 6c  |k"!..>. ..H. ..l|
00000e80  6f 61 64 0d 08 52 10 20  3f 50 25 3d 4e 25 20 82  |oad..R. ?P%=N% .|
00000e90  20 45 25 0d 08 5c 14 20  45 25 3d 28 45 25 2b 31  | E%..\. E%=(E%+1|
00000ea0  29 20 80 20 26 46 46 0d  08 66 0c 20 50 25 3d 50  |) . &FF..f. P%=P|
00000eb0  25 2b 31 0d 08 70 06 20  f5 0d 08 7a 11 20 4e 25  |%+1..p. ...z. N%|
00000ec0  3d 9a 23 53 25 20 82 20  45 25 0d 08 84 14 20 45  |=.#S% . E%.... E|
00000ed0  25 3d 28 45 25 2b 31 29  20 80 20 26 46 46 0d 08  |%=(E%+1) . &FF..|
00000ee0  8e 0b 20 3f 50 25 3d 4e  25 0d 08 98 0c 20 50 25  |.. ?P%=N%.... P%|
00000ef0  3d 50 25 2b 31 0d 08 a2  1c 20 fd 20 50 25 3d 73  |=P%+1.... . P%=s|
00000f00  74 61 72 74 2b 26 34 30  30 30 20 84 20 c5 23 53  |tart+&4000 . .#S|
00000f10  25 0d 08 ac 24 20 e7 20  ac 20 c5 23 53 25 20 f1  |%...$ . . .#S% .|
00000f20  27 20 22 50 72 6f 67 72  61 6d 20 74 6f 6f 20 6c  |' "Program too l|
00000f30  6f 6e 67 22 21 0d 08 b6  0b 20 74 6f 70 3d 50 25  |ong"!.... top=P%|
00000f40  0d 08 c0 0a 20 d9 20 23  53 25 0d 08 ca 2b 20 e7  |.... . #S%...+ .|
00000f50  20 50 25 3c 73 74 61 72  74 2b 26 32 30 30 31 20  | P%<start+&2001 |
00000f60  65 6e 64 3d 26 32 30 30  30 20 8b 20 65 6e 64 3d  |end=&2000 . end=|
00000f70  26 34 30 30 30 0d 08 d4  06 20 e1 0d 08 de 05 20  |&4000.... ..... |
00000f80  0d 08 e8 0c 20 dd f2 65  72 72 6f 72 0d 08 f2 09  |.... ..error....|
00000f90  20 d9 20 23 30 0d 08 fc  0e 20 e7 20 9f 3c 3e 32  | . #0.... . .<>2|
00000fa0  36 20 f6 0d 09 06 17 20  f1 20 22 20 2d 20 50 72  |6 ..... . " - Pr|
00000fb0  65 73 73 20 61 20 6b 65  79 22 0d 09 10 08 20 e7  |ess a key".... .|
00000fc0  20 a5 0d 09 1a 06 20 e1  0d 09 24 05 20 0d 09 2e  | ..... ...$. ...|
00000fd0  0c 20 dd f2 63 6c 65 61  72 0d 09 38 10 20 de 20  |. ..clear..8. . |
00000fe0  62 6c 6f 63 6b 20 26 34  30 0d 09 42 0f 20 21 26  |block &40..B. !&|
00000ff0  37 30 3d 26 33 38 30 30  0d 09 4c 19 20 41 25 3d  |70=&3800..L. A%=|
00001000  26 46 46 3a 58 25 3d 26  34 30 3a 59 25 3d 26 30  |&FF:X%=&40:Y%=&0|
00001010  30 0d 09 56 0d 20 50 25  3d 62 6c 6f 63 6b 0d 09  |0..V. P%=block..|
00001020  60 0a 20 5b 4f 50 54 32  0d 09 6a 05 20 0d 09 74  |`. [OPT2..j. ..t|
00001030  0a 20 2e 6c 6f 6f 70 0d  09 7e 19 20 20 20 20 20  |. .loop..~.     |
00001040  20 20 20 20 20 53 54 41  20 28 26 37 30 29 2c 59  |     STA (&70),Y|
00001050  0d 09 88 11 20 20 20 20  20 20 20 20 20 20 49 4e  |....          IN|
00001060  59 0d 09 92 16 20 20 20  20 20 20 20 20 20 20 42  |Y....          B|
00001070  4e 45 20 6c 6f 6f 70 0d  09 9c 15 20 20 20 20 20  |NE loop....     |
00001080  20 20 20 20 20 49 4e 43  20 26 37 31 0d 09 a6 11  |     INC &71....|
00001090  20 20 20 20 20 20 20 20  20 20 44 45 58 0d 09 b0  |          DEX...|
000010a0  16 20 20 20 20 20 20 20  20 20 20 42 4e 45 20 6c  |.          BNE l|
000010b0  6f 6f 70 0d 09 ba 11 20  20 20 20 20 20 20 20 20  |oop....         |
000010c0  20 52 54 53 0d 09 c4 05  20 0d 09 ce 06 20 5d 0d  | RTS.... .... ].|
000010d0  09 d8 0c 20 d6 20 62 6c  6f 63 6b 0d 09 e2 06 20  |... . block.... |
000010e0  e1 0d 09 ec 05 20 0d 09  f6 16 20 dc 20 28 63 29  |..... .... . (c)|
000010f0  20 54 65 72 72 79 20 42  6c 75 6e 74 0d 0a 00 25  | Terry Blunt...%|
00001100  20 dc 20 2c 2c 2c 22 20  20 20 20 20 20 20 20 20  | . ,,,"         |
00001110  20 20 20 20 45 50 52 4f  4d 20 48 45 41 44 45 52  |    EPROM HEADER|
00001120  22 0d 0a 0a 30 20 dc 20  2c 2c 2c 22 20 20 54 68  |"...0 . ,,,"  Th|
00001130  69 73 20 70 72 6f 67 72  61 6d 20 61 64 64 73 20  |is program adds |
00001140  61 20 68 65 61 64 65 72  20 72 6f 75 74 69 6e 65  |a header routine|
00001150  22 0d 0a 14 2d 20 dc 20  22 74 6f 20 61 6e 79 20  |"...- . "to any |
00001160  27 42 41 53 49 43 27 20  70 72 6f 67 72 61 6d 2c  |'BASIC' program,|
00001170  20 67 65 6e 65 72 61 74  69 6e 67 20 61 22 0d 0a  | generating a"..|
00001180  1e 2b 20 dc 20 6e 65 77  20 66 69 6c 65 20 74 68  |.+ . new file th|
00001190  61 74 20 63 61 6e 20 62  65 20 70 72 6f 67 72 61  |at can be progra|
000011a0  6d 6d 65 64 20 69 6e 74  6f 0d 0a 28 2b 20 dc 20  |mmed into..(+ . |
000011b0  61 6e 20 38 4b 20 6f 72  20 31 36 4b 20 45 50 52  |an 8K or 16K EPR|
000011c0  4f 4d 2e 20 46 69 6c 65  20 73 69 7a 65 20 69 73  |OM. File size is|
000011d0  20 73 65 74 0d 0a 32 24  20 dc 20 61 75 74 6f 6d  | set..2$ . autom|
000011e0  61 74 69 63 61 6c 6c 79  20 62 79 20 74 68 65 20  |atically by the |
000011f0  70 72 6f 67 72 61 6d 2e  0d 0a 3c 2e 20 dc 20 2c  |program...<. . ,|
00001200  22 20 20 57 68 65 6e 20  63 61 6c 6c 65 64 20 62  |"  When called b|
00001210  79 20 74 68 65 20 52 4f  4d 20 74 69 74 6c 65 2c  |y the ROM title,|
00001220  20 20 74 68 65 22 0d 0a  46 2d 20 dc 20 22 45 50  |  the"..F- . "EP|
00001230  52 4f 4d 20 77 69 6c 6c  20 73 65 6c 65 63 74 20  |ROM will select |
00001240  27 42 41 53 49 43 27 2c  20 20 64 6f 77 6e 6c 6f  |'BASIC',  downlo|
00001250  61 64 22 0d 0a 50 2a 20  dc 20 74 68 65 20 70 72  |ad"..P* . the pr|
00001260  6f 67 72 61 6d 20 74 6f  20 50 41 47 45 20 61 6e  |ogram to PAGE an|
00001270  64 20 52 55 4e 20 69 74  2e 2c 22 20 22 0d ff     |d RUN it.," "..|
0000127f

25-08-89/HeadBas.m0

25-08-89/HeadBas.m1

25-08-89/HeadBas.m2

25-08-89/HeadBas.m4

25-08-89/HeadBas.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .