04-04-88/MINICOM

Home » CEEFAX disks » telesoftware6.adl » 04-04-88/MINICOM

04-04-88/MINICOM

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 » telesoftware6.adl
Filename:	04-04-88/MINICOM
Read OK:	✔
File size:	1567 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_06_01_D-MU06_01.ssd » MINICOM
CEEFAX disks » telesoftware6.adl » 04-04-88/MINICOM

File contents

   10 REM MiniCom
   20 REM Graphics Compiler
   30 REM By Chris Nixon
   40 REM (c) The Micro User
   50 REM
   60 ONERROR GOTO1200
   70 MODE7:PROCSETUP
   80 PROCINPUT:GOTO80
   90 DEFPROCSETUP:FORY%=0TO1:PRINTTAB(3,Y%)CHR$141CHR$129CHR$157CHR$131"MiniCom Graphics Compiler  "CHR$156:NEXT
  100 PRINTTAB(12,2)CHR$133"By Chris Nixon"TAB(8,3)"(c) The Micro User 1987"
  110 PRINTTAB(0,4)STRING$(40,"~");
  120 VDU28,0,24,39,5:MAXCOM%=16:col=&77
  130 !&C00=&B00:?&C02=78:?&C03=32
  140 ?&C04=127:MAX%=0:MAXLIN%=1000
  150 DIM L$(1000),K$(MAXCOM%),parms%(20),l%(MAXCOM%):FORL%=1TO MAXCOM%:READK$(L%):NEXT:FORL%=1TO MAXCOM%:READl%(L%):NEXT:base%=&6000:PROCNEW:ENDPROC
  160 DEFPROCINPUT:VDUASC"]"
  170 A%=0:X%=0:Y%=&C:CALL&FFF1
  180 PROCINTERPRET:ENDPROC
  190 DEFPROCINTERPRET
  200 L$=$&B00:V%=VAL(L$):IF V%=0 PROCDIRECT:ENDPROC
  210 IF V%>MAXLIN% PRINT"Line number too big."':ENDPROC
  220 IF L$=STR$V% L$(V%)="":ENDPROC
  230 BASE%=LENSTR$V%+1
  240 F%=0:FORL%=1TO MAXCOM%
  250 PT%=INSTR(L$,K$(L%),BASE%)
  260 IF PT%>0 F%=L%:T%=PT%
  270 NEXT:IF F%=0 PRINT"Unknown keyword."':ENDPROC
  280 L%=T%+LENK$(F%)-1:REPEAT:L%=L%+1:UNTIL MID$(L$,L%,1)<>" "
  290 T$=CHR$(F%+64)+" "+RIGHT$(L$,LENL$-L%+1)
  300 L$(V%)=T$:IF MAX%<V% MAX%=V%
  310 ENDPROC
  320 DEFPROCDIRECT
  330 PT%=INSTR(L$,"LIST"):IF PT%>0 PROCLIST:ENDPROC
  340 IF INSTR(L$,"NEW")>0 PROCNEW:ENDPROC
  350 IF INSTR(L$,"COMPILE")>0 PROCCOMPILE:ENDPROC
  360 IF INSTR(L$,"HELP")>0 PRINT:FORL%=1TO MAXCOM%:PRINTTAB(6);K$(L%):NEXT:ENDPROC
  370 IF INSTR(L$,"LOAD")>0 PROCLOAD:ENDPROC
  380 IF LEFT$(L$,4)="SAVE" PROCSAVE:ENDPROC
  390 IF INSTR(L$,"CSAVE")>0 PROCCSAVE:ENDPROC
  400 IF LEFT$(L$,1)="*" L$:ENDPROC
  410 IFL$="" ENDPROC ELSE PRINT"Unknown command."':ENDPROC
  420 DEFPROCLIST
  430 IF RIGHT$(L$,4)="LIST" PROCLIST1(0,MAX%):ENDPROC
  440 BASE%=PT%+4:PT%=INSTR(L$,",",BASE%)
  450 IF PT%=0 PROCLIST1(VALRIGHT$(L$,LENL$-BASE%+1),VALRIGHT$(L$,LENL$-BASE%+1)):ENDPROC
  460 S%=VAL(RIGHT$(L$,LENL$-BASE%+1))
  470 BASE%=PT%+1
  480 E%=VAL(RIGHT$(L$,LENL$-BASE%+1))
  490 IF E%=0 PROCLIST1(S%,MAX%):ENDPROC ELSE PROCLIST1(S%,E%)
  500 ENDPROC
  510 DEFPROCLIST1(S%,E%)
  520 IF MAX%=0 ENDPROC
  530 IF S%>MAX% OR S%<0 OR E%<S% OR E%>MAX% PRINT"Can't LIST that."':ENDPROC
  540 PRINT:FORL%=S% TO E%
  550 L$=L$(L%):IF L$="" THEN 570
  560 PRINTTAB(5-LENSTR$L%);STR$L%;" ";K$(ASC(LEFT$(L$,1))-64);RIGHT$(L$,LENL$-1)
  570 NEXT:ENDPROC
  580 DEFPROCNEW:MAX%=0:O%=base%:FORL%=0TOMAXLIN%:L$(L%)="":NEXT:ENDPROC
  590 DATA CLG,CLS,CSR,COLOUR,DRAW,GCOL,GWIND,MODE,MOVE,PLOT,PRINT,SQUARE,TAB,TWIND,VDU,FILL
  600 DATA 0,0,0,0,1,1,3,0,1,2,0,7,1,3,0,1
  610 DEFPROCLOAD:PROCFL:IF PT%=0 ENDPROC
  620 PROCNEW:CH%=(F$):IF CH%=0 PRINT"No such file."':ENDPROC
  630 L%=10:REPEAT:INPUT#CH%,L$(L%):L%=L%+10
  640 UNTIL EOF#CH%:CLOSE#CH%
  650 MAX%=L%:ENDPROC
  660 DEFPROCFL:PT%=INSTR(L$,""""):IF PT%=0 PRINT"Missing ""."':ENDPROC ELSEF$=RIGHT$(L$,LENL$-PT%):IF RIGHT$(F$,1)="""" F$=LEFT$(F$,LENF$-1):ENDPROC ELSE ENDPROC
  670 DEFPROCSAVE:PROCFL:IF PT%=0 ENDPROC
  680 CH%=OPENOUT(F$):FORL%=0 TO MAX%
  690 IF L$(L%)<>"" PRINT#CH%,L$(L%)
  700 NEXT:CLOSE#CH%:ENDPROC
  710 DEFPROCCSAVE:PROCFL:IF PT%=0 ENDPROC
  720 IF O%=base% PRINT"No compiled code."':ENDPROC
  730 F$=RIGHT$(L$,LENL$-PT%):IF RIGHT$(F$,1)="""" F$=LEFT$(F$,LENF$-1)
  740 "SAVE "+F$+" "+STR$~base%+" "+STR$~O%+" "+STR$~EX%+" "+STR$~EX%:ENDPROC
  750 DEFPROCCOMPILE:IF MAX%=0 PRINT"No program."':ENDPROC
  760 REPEAT:PRINT"Execution address?"CHR$131"&";:X%=0:Y%=&C:A%=0:CALL&FFF1:EX$="&"+$&B00:UNTILEVAL EX$>0:EX%=EVALEX$
  770 PRINT'"Compiling..."':fill%=0:FORPASS=4TO6STEP2:P%=EX%:O%=base%:IF PASS=4 PRINTTAB(5)CHR$134"1st pass"; ELSE PRINT'TAB(5)CHR$134"2nd pass";
  780 FOR LIN%=0 TO MAX%:PROCcompile
  790 NEXT:[OPT PASS:RTS
  800 .vdu
  810 PLA:STA &70:PLA:STA &71
  820 LDY #1:LDA (&70),Y:TAX
  830 .vduloop
  840 INY:LDA (&70),Y:JSR &FFEE
  850 DEX:BPL vduloop:INY:TYA:CLC
  860 ADC &70:STA &70
  870 LDA &71:ADC #0:STA &71:JMP (&70)
  880 ]
  890 IF fill%=1 PROCFILL
  900 NEXT:L%=O%-base%:PRINT''"Code is ";L%;" (&";~L%;") bytes long"':ENDPROC
  910 DEFPROCGETPARAMS:c%=0
  920 BASE%=2:ptr%=0:REPEAT
  930 T$=RIGHT$(L$,LENL$-BASE%):V%=VALT$
  940 parms%(ptr%)=V% MOD 256:parms%(ptr%+1)=V% DIV 256:ptr%=ptr%+2
  950 BASE%=BASE%+LENSTR$V%
  960 PT%=INSTR(L$,",",BASE%)
  970 IF PT%>0 BASE%=PT%:c%=c%+1
  980 UNTIL BASE%>LENL$ OR PT%=0
  990 IF K%<>11 AND K%<>15 AND c%<>l%(K%) PRINT'"Bad parameters in line ";LIN%':GOTO80
 1000 ENDPROC
 1010 [OPT PASS:LDA #16:JSR &FFEE:]:ENDPROC
 1020 [OPT PASS:LDA #12:JSR &FFEE:]:ENDPROC
 1030 [OPT PASS:JSR vdu:EQUB10:EQUB23:EQUB1:EQUBparms%(0):EQUD0:EQUD0:]:ENDPROC
 1040 [OPT PASS:JSR vdu:EQUB1:EQUB17:EQUBparms%(0):]:ENDPROC
 1050 [OPT PASS:JSR vdu:EQUB5:EQUB25:EQUB5:]:FORL%=0TO3:[OPT PASS:EQUBparms%(L%):]:NEXT:ENDPROC
 1060 [OPT PASS:JSR vdu:EQUB2:EQUB18:EQUBparms%(0):EQUBparms%(2):]:ENDPROC
 1070 [OPT PASS:JSR vdu:EQUB8:EQUB24:]:FORL%=0TO7:[OPT PASS:EQUBparms%(L%):]:NEXT:ENDPROC
 1080 [OPT PASS:JSR vdu:EQUB1:EQUB22:EQUBparms%(0):]:ENDPROC
 1090 [OPT PASS:JSR vdu:EQUB5:EQUB25:EQUB4:]:FORL%=0TO3:[OPT PASS:EQUBparms%(L%):]:NEXT:ENDPROC
 1100 [OPT PASS:JSR vdu:EQUB5:EQUB25:]:FORL%=0TO4:[OPT PASS:EQUBparms%(L%):]:NEXT:ENDPROC
 1110 B%=LENL$-1:[OPT PASS:JSR vdu:EQUB B%:]:FORL%=3 TO LENL$:B$=MID$(L$,L%,1):[OPT PASS:EQUS B$:]:NEXT:[OPT PASS:EQUB13:EQUB10:]:ENDPROC
 1120 [OPT PASS:JSR vdu:EQUB23:]:FORX%=0TO12 STEP4:[OPT PASS:EQUB25:]:IF X%=0 [OPT PASS:EQUB4:] ELSEIF X%=4 [OPT PASS:EQUB5:] ELSE [OPT PASS:EQUB85:]
 1130 FORL%=0TO3:[OPT PASS:EQUBparms%(X%+L%):]:NEXT:NEXT:ENDPROC
 1140 [OPT PASS:JSR vdu:EQUB2:EQUB31:EQUBparms%(0):EQUBparms%(2):]:ENDPROC
 1150 [OPT PASS:JSR vdu:EQUB4:EQUB28:]:FORL%=0TO6 STEP2:[OPT PASS:EQUBparms%(L%):]:NEXT:ENDPROC
 1160 [OPT PASS:JSR vdu:EQUBc%:]:FORL%=0TOc%*2 STEP2:[OPT PASS:EQUBparms%(L%):]:NEXT:ENDPROC
 1170 [OPT PASS:JSR fill:]:FORL%=0TO3:[OPT PASS:EQUBparms%(L%):]:NEXT:fill%=1:ENDPROC
 1180 DEFPROCcompile:IF L$(LIN%)="" ENDPROC
 1190 L$=L$(LIN%):K%=ASC(LEFT$(L$,1))-64:PROCGETPARAMS:ON K% GOTO1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1140,1150,1160,1170
 1200 CLOSE#0:IF ERR=17 PRINT'"Break":GOTO80
 1210 REPORT:PRINT:GOTO80
 1220 DEFPROCFILL
 1230 [OPT PASS
 1240 .fill
 1250 PLA:STA &70:PLA:STA &71:JSR copy
 1260 JSR point:STA col:JSR line
 1270 .loop1
 1280 CLC:LDA &74:ADC #4:STA &74
 1290 LDA &75:ADC #0:STA &75:JSR point
 1300 CMP col:BNE down:JSR line
 1310 JMP loop1
 1320 .down
 1330 JSR copy
 1340 .loop2
 1350 SEC:LDA &74:SBC #4:STA &74
 1360 LDA &75:SBC #0:STA &75:JSR point
 1370 CMP col:BNE exit:JSR line
 1380 JMP loop2
 1390 .exit
 1400 CLC:LDA &70:ADC #5:STA &70
 1410 LDA &71:ADC #0:STA &71:JMP (&70)
 1420 .copy
 1430 LDX #3:LDY #4
 1440 .copyloop
 1450 LDA (&70),Y:STA &72,X:DEY:DEX
 1460 BPL copyloop:RTS
 1470 .point
 1480 LDA #9:LDX #&72:LDY #0:JSR &FFF1
 1490 LDA &76:RTS
 1500 .line
 1510 LDA #25:JSR &FFEE:LDA #77
 1520 JSR &FFEE:LDX #0:LDY #3
 1530 .lineloop
 1540 LDA &72,X:JSR &FFEE:INX:DEY
 1550 BPL lineloop:RTS
 1560 ]:ENDPROC


 � MiniCom
 � Graphics Compiler
 � By Chris Nixon
( � (c) The Micro User
2 �
<
 � �tpD
F �7:�SETUP
P �INPUT:�DP@
ZO ��SETUP:�Y%=0�1:�3,Y%)�141�129�157�131"MiniCom Graphics Compiler  "�156:�
d> �12,2)�133"By Chris Nixon"�8,3)"(c) The Micro User 1987"
n �0,4)�40,"~");
x% �28,0,24,39,5:MAXCOM%=16:col=&77
�! !&C00=&B00:?&C02=78:?&C03=32
�" ?&C04=127:MAX%=0:MAXLIN%=1000
�w � L$(1000),K$(MAXCOM%),parms%(20),l%(MAXCOM%):�L%=1� MAXCOM%:�K$(L%):�:�L%=1� MAXCOM%:�l%(L%):�:base%=&6000:�NEW:�
� ��INPUT:�"]"
� A%=0:X%=0:Y%=&C:�&FFF1
� �INTERPRET:�
� ��INTERPRET
�' L$=$&B00:V%=�(L$):� V%=0 �DIRECT:�
�, � V%>MAXLIN% �"Line number too big."':�
� � L$=�V% L$(V%)="":�
� BASE%=��V%+1
� F%=0:�L%=1� MAXCOM%
� PT%=�L$,K$(L%),BASE%)
 � PT%>0 F%=L%:T%=PT%
$ �:� F%=0 �"Unknown keyword."':�
/ L%=T%+�K$(F%)-1:�:L%=L%+1:� �L$,L%,1)<>" "
"" T$=�(F%+64)+" "+�L$,�L$-L%+1)
,  L$(V%)=T$:� MAX%<V% MAX%=V%
6 �
@
 ��DIRECT
J$ PT%=�L$,"LIST"):� PT%>0 �LIST:�
T � �L$,"NEW")>0 �NEW:�
^" � �L$,"COMPILE")>0 �COMPILE:�
h5 � �L$,"HELP")>0 �:�L%=1� MAXCOM%:�6);K$(L%):�:�
r � �L$,"LOAD")>0 �LOAD:�
| � �L$,4)="SAVE" �SAVE:�
� � �L$,"CSAVE")>0 �CSAVE:�
� � �L$,1)="*" L$:�
�& �L$="" � � �"Unknown command."':�
� ��LIST
�% � �L$,4)="LIST" �LIST1(0,MAX%):�
�# BASE%=PT%+4:PT%=�L$,",",BASE%)
�: � PT%=0 �LIST1(��L$,�L$-BASE%+1),��L$,�L$-BASE%+1)):�
� S%=�(�L$,�L$-BASE%+1))
� BASE%=PT%+1
� E%=�(�L$,�L$-BASE%+1))
�- � E%=0 �LIST1(S%,MAX%):� � �LIST1(S%,E%)
� �
� ��LIST1(S%,E%)
 � MAX%=0 �
> � S%>MAX% � S%<0 � E%<S% � E%>MAX% �"Can't LIST that."':�
 �:�L%=S% � E%
& L$=L$(L%):� L$="" � �TzB
02 �5-��L%);�L%;" ";K$(�(�L$,1))-64);�L$,�L$-1)
: �:�
D6 ��NEW:MAX%=0:O%=base%:�L%=0�MAXLIN%:L$(L%)="":�:�
NX � CLG,CLS,CSR,COLOUR,DRAW,GCOL,GWIND,MODE,MOVE,PLOT,PRINT,SQUARE,TAB,TWIND,VDU,FILL
X& � 0,0,0,0,1,1,3,0,1,2,0,7,1,3,0,1
b ��LOAD:�FL:� PT%=0 �
l. �NEW:CH%=(F$):� CH%=0 �"No such file."':�
v" L%=10:�:�#CH%,L$(L%):L%=L%+10
� � �#CH%:�#CH%
� MAX%=L%:�
�d ��FL:PT%=�L$,""""):� PT%=0 �"Missing ""."':� �F$=�L$,�L$-PT%):� �F$,1)="""" F$=�F$,�F$-1):� � �
� ��SAVE:�FL:� PT%=0 �
� CH%=�(F$):�L%=0 � MAX%
� � L$(L%)<>"" �#CH%,L$(L%)
� �:�#CH%:�
� ��CSAVE:�FL:� PT%=0 �
�' � O%=base% �"No compiled code."':�
�0 F$=�L$,�L$-PT%):� �F$,1)="""" F$=�F$,�F$-1)
�: "SAVE "+F$+" "+�~base%+" "+�~O%+" "+�~EX%+" "+�~EX%:�
�) ��COMPILE:� MAX%=0 �"No program."':�
�[ �:�"Execution address?"�131"&";:X%=0:Y%=&C:A%=0:�&FFF1:EX$="&"+$&B00:�� EX$>0:EX%=�EX$
n �'"Compiling..."':fill%=0:�PASS=4�6�2:P%=EX%:O%=base%:� PASS=4 �5)�134"1st pass"; � �'�5)�134"2nd pass";
 � LIN%=0 � MAX%:�compile
 �:[OPT PASS:RTS
 	 .vdu
* PLA:STA &70:PLA:STA &71
4 LDY #1:LDA (&70),Y:TAX
>
 .vduloop
H INY:LDA (&70),Y:JSR &FFEE
R  DEX:BPL vduloop:INY:TYA:CLC
\ ADC &70:STA &70
f% LDA &71:ADC #0:STA &71:JMP (&70)
p ]
z � fill%=1 �FILL
�? �:L%=O%-base%:�''"Code is ";L%;" (&";~L%;") bytes long"':�
� ��GETPARAMS:c%=0
� BASE%=2:ptr%=0:�
� T$=�L$,�L$-BASE%):V%=�T$
�> parms%(ptr%)=V% � 256:parms%(ptr%+1)=V% � 256:ptr%=ptr%+2
� BASE%=BASE%+��V%
� PT%=�L$,",",BASE%)
� � PT%>0 BASE%=PT%:c%=c%+1
� � BASE%>�L$ � PT%=0
�K � K%<>11 � K%<>15 � c%<>l%(K%) �'"Bad parameters in line ";LIN%':�DP@
� �
�$ [OPT PASS:LDA #16:JSR &FFEE:]:�
�$ [OPT PASS:LDA #12:JSR &FFEE:]:�
H [OPT PASS:JSR vdu:EQUB10:EQUB23:EQUB1:EQUBparms%(0):EQUD0:EQUD0:]:�
5 [OPT PASS:JSR vdu:EQUB1:EQUB17:EQUBparms%(0):]:�
R [OPT PASS:JSR vdu:EQUB5:EQUB25:EQUB5:]:�L%=0�3:[OPT PASS:EQUBparms%(L%):]:�:�
$C [OPT PASS:JSR vdu:EQUB2:EQUB18:EQUBparms%(0):EQUBparms%(2):]:�
.L [OPT PASS:JSR vdu:EQUB8:EQUB24:]:�L%=0�7:[OPT PASS:EQUBparms%(L%):]:�:�
85 [OPT PASS:JSR vdu:EQUB1:EQUB22:EQUBparms%(0):]:�
BR [OPT PASS:JSR vdu:EQUB5:EQUB25:EQUB4:]:�L%=0�3:[OPT PASS:EQUBparms%(L%):]:�:�
LL [OPT PASS:JSR vdu:EQUB5:EQUB25:]:�L%=0�4:[OPT PASS:EQUBparms%(L%):]:�:�
Vt B%=�L$-1:[OPT PASS:JSR vdu:EQUB B%:]:�L%=3 � �L$:B$=�L$,L%,1):[OPT PASS:EQUS B$:]:�:[OPT PASS:EQUB13:EQUB10:]:�
`� [OPT PASS:JSR vdu:EQUB23:]:�X%=0�12 �4:[OPT PASS:EQUB25:]:� X%=0 [OPT PASS:EQUB4:] �� X%=4 [OPT PASS:EQUB5:] � [OPT PASS:EQUB85:]
j0 �L%=0�3:[OPT PASS:EQUBparms%(X%+L%):]:�:�:�
tC [OPT PASS:JSR vdu:EQUB2:EQUB31:EQUBparms%(0):EQUBparms%(2):]:�
~O [OPT PASS:JSR vdu:EQUB4:EQUB28:]:�L%=0�6 �2:[OPT PASS:EQUBparms%(L%):]:�:�
�L [OPT PASS:JSR vdu:EQUBc%:]:�L%=0�c%*2 �2:[OPT PASS:EQUBparms%(L%):]:�:�
�H [OPT PASS:JSR fill:]:�L%=0�3:[OPT PASS:EQUBparms%(L%):]:�:fill%=1:�
� ��compile:� L$(LIN%)="" �
�� L$=L$(LIN%):K%=�(�L$,1))-64:�GETPARAMS:� K% �drC,�d|C,�TFD,�TPD,�TZD,�TdD,�TnD,�TxD,�DBD,�DLD,�DVD,�D`D,�DtD,�D~D,�tHD,�tRD
� �#0:� �=17 �'"Break":�DP@
� �:�:�DP@
� ��FILL
� [OPT PASS
�
 .fill
�% PLA:STA &70:PLA:STA &71:JSR copy
� JSR point:STA col:JSR line
� .loop1
 CLC:LDA &74:ADC #4:STA &74

% LDA &75:ADC #0:STA &75:JSR point
 CMP col:BNE down:JSR line
 JMP loop1
(
 .down
2
 JSR copy
< .loop2
F SEC:LDA &74:SBC #4:STA &74
P% LDA &75:SBC #0:STA &75:JSR point
Z CMP col:BNE exit:JSR line
d JMP loop2
n
 .exit
x CLC:LDA &70:ADC #5:STA &70
�% LDA &71:ADC #0:STA &71:JMP (&70)
�
 .copy
� LDX #3:LDY #4
� .copyloop
�" LDA (&70),Y:STA &72,X:DEY:DEX
� BPL copyloop:RTS
� .point
�% LDA #9:LDX #&72:LDY #0:JSR &FFF1
� LDA &76:RTS
�
 .line
� LDA #25:JSR &FFEE:LDA #77
� JSR &FFEE:LDX #0:LDY #3
� .lineloop
  LDA &72,X:JSR &FFEE:INX:DEY
 BPL lineloop:RTS
 ]:�
�

00000000  0d 00 0a 0e 20 f4 20 4d  69 6e 69 43 6f 6d 0d 00  |.... . MiniCom..|
00000010  14 18 20 f4 20 47 72 61  70 68 69 63 73 20 43 6f  |.. . Graphics Co|
00000020  6d 70 69 6c 65 72 0d 00  1e 15 20 f4 20 42 79 20  |mpiler.... . By |
00000030  43 68 72 69 73 20 4e 69  78 6f 6e 0d 00 28 19 20  |Chris Nixon..(. |
00000040  f4 20 28 63 29 20 54 68  65 20 4d 69 63 72 6f 20  |. (c) The Micro |
00000050  55 73 65 72 0d 00 32 06  20 f4 0d 00 3c 0d 20 ee  |User..2. ...<. .|
00000060  85 20 e5 8d 74 70 44 0d  00 46 0e 20 eb 37 3a f2  |. ..tpD..F. .7:.|
00000070  53 45 54 55 50 0d 00 50  11 20 f2 49 4e 50 55 54  |SETUP..P. .INPUT|
00000080  3a e5 8d 44 50 40 0d 00  5a 4f 20 dd f2 53 45 54  |:..DP@..ZO ..SET|
00000090  55 50 3a e3 59 25 3d 30  b8 31 3a f1 8a 33 2c 59  |UP:.Y%=0.1:..3,Y|
000000a0  25 29 bd 31 34 31 bd 31  32 39 bd 31 35 37 bd 31  |%).141.129.157.1|
000000b0  33 31 22 4d 69 6e 69 43  6f 6d 20 47 72 61 70 68  |31"MiniCom Graph|
000000c0  69 63 73 20 43 6f 6d 70  69 6c 65 72 20 20 22 bd  |ics Compiler  ".|
000000d0  31 35 36 3a ed 0d 00 64  3e 20 f1 8a 31 32 2c 32  |156:...d> ..12,2|
000000e0  29 bd 31 33 33 22 42 79  20 43 68 72 69 73 20 4e  |).133"By Chris N|
000000f0  69 78 6f 6e 22 8a 38 2c  33 29 22 28 63 29 20 54  |ixon".8,3)"(c) T|
00000100  68 65 20 4d 69 63 72 6f  20 55 73 65 72 20 31 39  |he Micro User 19|
00000110  38 37 22 0d 00 6e 14 20  f1 8a 30 2c 34 29 c4 34  |87"..n. ..0,4).4|
00000120  30 2c 22 7e 22 29 3b 0d  00 78 25 20 ef 32 38 2c  |0,"~");..x% .28,|
00000130  30 2c 32 34 2c 33 39 2c  35 3a 4d 41 58 43 4f 4d  |0,24,39,5:MAXCOM|
00000140  25 3d 31 36 3a 63 6f 6c  3d 26 37 37 0d 00 82 21  |%=16:col=&77...!|
00000150  20 21 26 43 30 30 3d 26  42 30 30 3a 3f 26 43 30  | !&C00=&B00:?&C0|
00000160  32 3d 37 38 3a 3f 26 43  30 33 3d 33 32 0d 00 8c  |2=78:?&C03=32...|
00000170  22 20 3f 26 43 30 34 3d  31 32 37 3a 4d 41 58 25  |" ?&C04=127:MAX%|
00000180  3d 30 3a 4d 41 58 4c 49  4e 25 3d 31 30 30 30 0d  |=0:MAXLIN%=1000.|
00000190  00 96 77 20 de 20 4c 24  28 31 30 30 30 29 2c 4b  |..w . L$(1000),K|
000001a0  24 28 4d 41 58 43 4f 4d  25 29 2c 70 61 72 6d 73  |$(MAXCOM%),parms|
000001b0  25 28 32 30 29 2c 6c 25  28 4d 41 58 43 4f 4d 25  |%(20),l%(MAXCOM%|
000001c0  29 3a e3 4c 25 3d 31 b8  20 4d 41 58 43 4f 4d 25  |):.L%=1. MAXCOM%|
000001d0  3a f3 4b 24 28 4c 25 29  3a ed 3a e3 4c 25 3d 31  |:.K$(L%):.:.L%=1|
000001e0  b8 20 4d 41 58 43 4f 4d  25 3a f3 6c 25 28 4c 25  |. MAXCOM%:.l%(L%|
000001f0  29 3a ed 3a 62 61 73 65  25 3d 26 36 30 30 30 3a  |):.:base%=&6000:|
00000200  f2 4e 45 57 3a e1 0d 00  a0 12 20 dd f2 49 4e 50  |.NEW:..... ..INP|
00000210  55 54 3a ef 97 22 5d 22  0d 00 aa 1b 20 41 25 3d  |UT:.."]".... A%=|
00000220  30 3a 58 25 3d 30 3a 59  25 3d 26 43 3a d6 26 46  |0:X%=0:Y%=&C:.&F|
00000230  46 46 31 0d 00 b4 11 20  f2 49 4e 54 45 52 50 52  |FF1.... .INTERPR|
00000240  45 54 3a e1 0d 00 be 10  20 dd f2 49 4e 54 45 52  |ET:..... ..INTER|
00000250  50 52 45 54 0d 00 c8 27  20 4c 24 3d 24 26 42 30  |PRET...' L$=$&B0|
00000260  30 3a 56 25 3d bb 28 4c  24 29 3a e7 20 56 25 3d  |0:V%=.(L$):. V%=|
00000270  30 20 f2 44 49 52 45 43  54 3a e1 0d 00 d2 2c 20  |0 .DIRECT:...., |
00000280  e7 20 56 25 3e 4d 41 58  4c 49 4e 25 20 f1 22 4c  |. V%>MAXLIN% ."L|
00000290  69 6e 65 20 6e 75 6d 62  65 72 20 74 6f 6f 20 62  |ine number too b|
000002a0  69 67 2e 22 27 3a e1 0d  00 dc 19 20 e7 20 4c 24  |ig."':..... . L$|
000002b0  3d c3 56 25 20 4c 24 28  56 25 29 3d 22 22 3a e1  |=.V% L$(V%)="":.|
000002c0  0d 00 e6 11 20 42 41 53  45 25 3d a9 c3 56 25 2b  |.... BASE%=..V%+|
000002d0  31 0d 00 f0 18 20 46 25  3d 30 3a e3 4c 25 3d 31  |1.... F%=0:.L%=1|
000002e0  b8 20 4d 41 58 43 4f 4d  25 0d 00 fa 1a 20 50 54  |. MAXCOM%.... PT|
000002f0  25 3d a7 4c 24 2c 4b 24  28 4c 25 29 2c 42 41 53  |%=.L$,K$(L%),BAS|
00000300  45 25 29 0d 01 04 19 20  e7 20 50 54 25 3e 30 20  |E%).... . PT%>0 |
00000310  46 25 3d 4c 25 3a 54 25  3d 50 54 25 0d 01 0e 24  |F%=L%:T%=PT%...$|
00000320  20 ed 3a e7 20 46 25 3d  30 20 f1 22 55 6e 6b 6e  | .:. F%=0 ."Unkn|
00000330  6f 77 6e 20 6b 65 79 77  6f 72 64 2e 22 27 3a e1  |own keyword."':.|
00000340  0d 01 18 2f 20 4c 25 3d  54 25 2b a9 4b 24 28 46  |.../ L%=T%+.K$(F|
00000350  25 29 2d 31 3a f5 3a 4c  25 3d 4c 25 2b 31 3a fd  |%)-1:.:L%=L%+1:.|
00000360  20 c1 4c 24 2c 4c 25 2c  31 29 3c 3e 22 20 22 0d  | .L$,L%,1)<>" ".|
00000370  01 22 22 20 54 24 3d bd  28 46 25 2b 36 34 29 2b  |."" T$=.(F%+64)+|
00000380  22 20 22 2b c2 4c 24 2c  a9 4c 24 2d 4c 25 2b 31  |" "+.L$,.L$-L%+1|
00000390  29 0d 01 2c 20 20 4c 24  28 56 25 29 3d 54 24 3a  |)..,  L$(V%)=T$:|
000003a0  e7 20 4d 41 58 25 3c 56  25 20 4d 41 58 25 3d 56  |. MAX%<V% MAX%=V|
000003b0  25 0d 01 36 06 20 e1 0d  01 40 0d 20 dd f2 44 49  |%..6. ...@. ..DI|
000003c0  52 45 43 54 0d 01 4a 24  20 50 54 25 3d a7 4c 24  |RECT..J$ PT%=.L$|
000003d0  2c 22 4c 49 53 54 22 29  3a e7 20 50 54 25 3e 30  |,"LIST"):. PT%>0|
000003e0  20 f2 4c 49 53 54 3a e1  0d 01 54 1a 20 e7 20 a7  | .LIST:...T. . .|
000003f0  4c 24 2c 22 4e 45 57 22  29 3e 30 20 f2 4e 45 57  |L$,"NEW")>0 .NEW|
00000400  3a e1 0d 01 5e 22 20 e7  20 a7 4c 24 2c 22 43 4f  |:...^" . .L$,"CO|
00000410  4d 50 49 4c 45 22 29 3e  30 20 f2 43 4f 4d 50 49  |MPILE")>0 .COMPI|
00000420  4c 45 3a e1 0d 01 68 35  20 e7 20 a7 4c 24 2c 22  |LE:...h5 . .L$,"|
00000430  48 45 4c 50 22 29 3e 30  20 f1 3a e3 4c 25 3d 31  |HELP")>0 .:.L%=1|
00000440  b8 20 4d 41 58 43 4f 4d  25 3a f1 8a 36 29 3b 4b  |. MAXCOM%:..6);K|
00000450  24 28 4c 25 29 3a ed 3a  e1 0d 01 72 1c 20 e7 20  |$(L%):.:...r. . |
00000460  a7 4c 24 2c 22 4c 4f 41  44 22 29 3e 30 20 f2 4c  |.L$,"LOAD")>0 .L|
00000470  4f 41 44 3a e1 0d 01 7c  1c 20 e7 20 c0 4c 24 2c  |OAD:...|. . .L$,|
00000480  34 29 3d 22 53 41 56 45  22 20 f2 53 41 56 45 3a  |4)="SAVE" .SAVE:|
00000490  e1 0d 01 86 1e 20 e7 20  a7 4c 24 2c 22 43 53 41  |..... . .L$,"CSA|
000004a0  56 45 22 29 3e 30 20 f2  43 53 41 56 45 3a e1 0d  |VE")>0 .CSAVE:..|
000004b0  01 90 16 20 e7 20 c0 4c  24 2c 31 29 3d 22 2a 22  |... . .L$,1)="*"|
000004c0  20 4c 24 3a e1 0d 01 9a  26 20 e7 4c 24 3d 22 22  | L$:....& .L$=""|
000004d0  20 e1 20 8b 20 f1 22 55  6e 6b 6e 6f 77 6e 20 63  | . . ."Unknown c|
000004e0  6f 6d 6d 61 6e 64 2e 22  27 3a e1 0d 01 a4 0b 20  |ommand."':..... |
000004f0  dd f2 4c 49 53 54 0d 01  ae 25 20 e7 20 c2 4c 24  |..LIST...% . .L$|
00000500  2c 34 29 3d 22 4c 49 53  54 22 20 f2 4c 49 53 54  |,4)="LIST" .LIST|
00000510  31 28 30 2c 4d 41 58 25  29 3a e1 0d 01 b8 23 20  |1(0,MAX%):....# |
00000520  42 41 53 45 25 3d 50 54  25 2b 34 3a 50 54 25 3d  |BASE%=PT%+4:PT%=|
00000530  a7 4c 24 2c 22 2c 22 2c  42 41 53 45 25 29 0d 01  |.L$,",",BASE%)..|
00000540  c2 3a 20 e7 20 50 54 25  3d 30 20 f2 4c 49 53 54  |.: . PT%=0 .LIST|
00000550  31 28 bb c2 4c 24 2c a9  4c 24 2d 42 41 53 45 25  |1(..L$,.L$-BASE%|
00000560  2b 31 29 2c bb c2 4c 24  2c a9 4c 24 2d 42 41 53  |+1),..L$,.L$-BAS|
00000570  45 25 2b 31 29 29 3a e1  0d 01 cc 1b 20 53 25 3d  |E%+1)):..... S%=|
00000580  bb 28 c2 4c 24 2c a9 4c  24 2d 42 41 53 45 25 2b  |.(.L$,.L$-BASE%+|
00000590  31 29 29 0d 01 d6 10 20  42 41 53 45 25 3d 50 54  |1)).... BASE%=PT|
000005a0  25 2b 31 0d 01 e0 1b 20  45 25 3d bb 28 c2 4c 24  |%+1.... E%=.(.L$|
000005b0  2c a9 4c 24 2d 42 41 53  45 25 2b 31 29 29 0d 01  |,.L$-BASE%+1))..|
000005c0  ea 2d 20 e7 20 45 25 3d  30 20 f2 4c 49 53 54 31  |.- . E%=0 .LIST1|
000005d0  28 53 25 2c 4d 41 58 25  29 3a e1 20 8b 20 f2 4c  |(S%,MAX%):. . .L|
000005e0  49 53 54 31 28 53 25 2c  45 25 29 0d 01 f4 06 20  |IST1(S%,E%).... |
000005f0  e1 0d 01 fe 13 20 dd f2  4c 49 53 54 31 28 53 25  |..... ..LIST1(S%|
00000600  2c 45 25 29 0d 02 08 0f  20 e7 20 4d 41 58 25 3d  |,E%).... . MAX%=|
00000610  30 20 e1 0d 02 12 3e 20  e7 20 53 25 3e 4d 41 58  |0 ....> . S%>MAX|
00000620  25 20 84 20 53 25 3c 30  20 84 20 45 25 3c 53 25  |% . S%<0 . E%<S%|
00000630  20 84 20 45 25 3e 4d 41  58 25 20 f1 22 43 61 6e  | . E%>MAX% ."Can|
00000640  27 74 20 4c 49 53 54 20  74 68 61 74 2e 22 27 3a  |'t LIST that."':|
00000650  e1 0d 02 1c 12 20 f1 3a  e3 4c 25 3d 53 25 20 b8  |..... .:.L%=S% .|
00000660  20 45 25 0d 02 26 1d 20  4c 24 3d 4c 24 28 4c 25  | E%..&. L$=L$(L%|
00000670  29 3a e7 20 4c 24 3d 22  22 20 8c 20 8d 54 7a 42  |):. L$="" . .TzB|
00000680  0d 02 30 32 20 f1 8a 35  2d a9 c3 4c 25 29 3b c3  |..02 ..5-..L%);.|
00000690  4c 25 3b 22 20 22 3b 4b  24 28 97 28 c0 4c 24 2c  |L%;" ";K$(.(.L$,|
000006a0  31 29 29 2d 36 34 29 3b  c2 4c 24 2c a9 4c 24 2d  |1))-64);.L$,.L$-|
000006b0  31 29 0d 02 3a 08 20 ed  3a e1 0d 02 44 36 20 dd  |1)..:. .:...D6 .|
000006c0  f2 4e 45 57 3a 4d 41 58  25 3d 30 3a 4f 25 3d 62  |.NEW:MAX%=0:O%=b|
000006d0  61 73 65 25 3a e3 4c 25  3d 30 b8 4d 41 58 4c 49  |ase%:.L%=0.MAXLI|
000006e0  4e 25 3a 4c 24 28 4c 25  29 3d 22 22 3a ed 3a e1  |N%:L$(L%)="":.:.|
000006f0  0d 02 4e 58 20 dc 20 43  4c 47 2c 43 4c 53 2c 43  |..NX . CLG,CLS,C|
00000700  53 52 2c 43 4f 4c 4f 55  52 2c 44 52 41 57 2c 47  |SR,COLOUR,DRAW,G|
00000710  43 4f 4c 2c 47 57 49 4e  44 2c 4d 4f 44 45 2c 4d  |COL,GWIND,MODE,M|
00000720  4f 56 45 2c 50 4c 4f 54  2c 50 52 49 4e 54 2c 53  |OVE,PLOT,PRINT,S|
00000730  51 55 41 52 45 2c 54 41  42 2c 54 57 49 4e 44 2c  |QUARE,TAB,TWIND,|
00000740  56 44 55 2c 46 49 4c 4c  0d 02 58 26 20 dc 20 30  |VDU,FILL..X& . 0|
00000750  2c 30 2c 30 2c 30 2c 31  2c 31 2c 33 2c 30 2c 31  |,0,0,0,1,1,3,0,1|
00000760  2c 32 2c 30 2c 37 2c 31  2c 33 2c 30 2c 31 0d 02  |,2,0,7,1,3,0,1..|
00000770  62 19 20 dd f2 4c 4f 41  44 3a f2 46 4c 3a e7 20  |b. ..LOAD:.FL:. |
00000780  50 54 25 3d 30 20 e1 0d  02 6c 2e 20 f2 4e 45 57  |PT%=0 ...l. .NEW|
00000790  3a 43 48 25 3d 28 46 24  29 3a e7 20 43 48 25 3d  |:CH%=(F$):. CH%=|
000007a0  30 20 f1 22 4e 6f 20 73  75 63 68 20 66 69 6c 65  |0 ."No such file|
000007b0  2e 22 27 3a e1 0d 02 76  22 20 4c 25 3d 31 30 3a  |."':...v" L%=10:|
000007c0  f5 3a e8 23 43 48 25 2c  4c 24 28 4c 25 29 3a 4c  |.:.#CH%,L$(L%):L|
000007d0  25 3d 4c 25 2b 31 30 0d  02 80 12 20 fd 20 c5 23  |%=L%+10.... . .#|
000007e0  43 48 25 3a d9 23 43 48  25 0d 02 8a 0e 20 4d 41  |CH%:.#CH%.... MA|
000007f0  58 25 3d 4c 25 3a e1 0d  02 94 64 20 dd f2 46 4c  |X%=L%:....d ..FL|
00000800  3a 50 54 25 3d a7 4c 24  2c 22 22 22 22 29 3a e7  |:PT%=.L$,""""):.|
00000810  20 50 54 25 3d 30 20 f1  22 4d 69 73 73 69 6e 67  | PT%=0 ."Missing|
00000820  20 22 22 2e 22 27 3a e1  20 8b 46 24 3d c2 4c 24  | ""."':. .F$=.L$|
00000830  2c a9 4c 24 2d 50 54 25  29 3a e7 20 c2 46 24 2c  |,.L$-PT%):. .F$,|
00000840  31 29 3d 22 22 22 22 20  46 24 3d c0 46 24 2c a9  |1)="""" F$=.F$,.|
00000850  46 24 2d 31 29 3a e1 20  8b 20 e1 0d 02 9e 19 20  |F$-1):. . ..... |
00000860  dd f2 53 41 56 45 3a f2  46 4c 3a e7 20 50 54 25  |..SAVE:.FL:. PT%|
00000870  3d 30 20 e1 0d 02 a8 1b  20 43 48 25 3d ae 28 46  |=0 ..... CH%=.(F|
00000880  24 29 3a e3 4c 25 3d 30  20 b8 20 4d 41 58 25 0d  |$):.L%=0 . MAX%.|
00000890  02 b2 1e 20 e7 20 4c 24  28 4c 25 29 3c 3e 22 22  |... . L$(L%)<>""|
000008a0  20 f1 23 43 48 25 2c 4c  24 28 4c 25 29 0d 02 bc  | .#CH%,L$(L%)...|
000008b0  0e 20 ed 3a d9 23 43 48  25 3a e1 0d 02 c6 1a 20  |. .:.#CH%:..... |
000008c0  dd f2 43 53 41 56 45 3a  f2 46 4c 3a e7 20 50 54  |..CSAVE:.FL:. PT|
000008d0  25 3d 30 20 e1 0d 02 d0  27 20 e7 20 4f 25 3d 62  |%=0 ....' . O%=b|
000008e0  61 73 65 25 20 f1 22 4e  6f 20 63 6f 6d 70 69 6c  |ase% ."No compil|
000008f0  65 64 20 63 6f 64 65 2e  22 27 3a e1 0d 02 da 30  |ed code."':....0|
00000900  20 46 24 3d c2 4c 24 2c  a9 4c 24 2d 50 54 25 29  | F$=.L$,.L$-PT%)|
00000910  3a e7 20 c2 46 24 2c 31  29 3d 22 22 22 22 20 46  |:. .F$,1)="""" F|
00000920  24 3d c0 46 24 2c a9 46  24 2d 31 29 0d 02 e4 3a  |$=.F$,.F$-1)...:|
00000930  20 22 53 41 56 45 20 22  2b 46 24 2b 22 20 22 2b  | "SAVE "+F$+" "+|
00000940  c3 7e 62 61 73 65 25 2b  22 20 22 2b c3 7e 4f 25  |.~base%+" "+.~O%|
00000950  2b 22 20 22 2b c3 7e 45  58 25 2b 22 20 22 2b c3  |+" "+.~EX%+" "+.|
00000960  7e 45 58 25 3a e1 0d 02  ee 29 20 dd f2 43 4f 4d  |~EX%:....) ..COM|
00000970  50 49 4c 45 3a e7 20 4d  41 58 25 3d 30 20 f1 22  |PILE:. MAX%=0 ."|
00000980  4e 6f 20 70 72 6f 67 72  61 6d 2e 22 27 3a e1 0d  |No program."':..|
00000990  02 f8 5b 20 f5 3a f1 22  45 78 65 63 75 74 69 6f  |..[ .:."Executio|
000009a0  6e 20 61 64 64 72 65 73  73 3f 22 bd 31 33 31 22  |n address?".131"|
000009b0  26 22 3b 3a 58 25 3d 30  3a 59 25 3d 26 43 3a 41  |&";:X%=0:Y%=&C:A|
000009c0  25 3d 30 3a d6 26 46 46  46 31 3a 45 58 24 3d 22  |%=0:.&FFF1:EX$="|
000009d0  26 22 2b 24 26 42 30 30  3a fd a0 20 45 58 24 3e  |&"+$&B00:.. EX$>|
000009e0  30 3a 45 58 25 3d a0 45  58 24 0d 03 02 6e 20 f1  |0:EX%=.EX$...n .|
000009f0  27 22 43 6f 6d 70 69 6c  69 6e 67 2e 2e 2e 22 27  |'"Compiling..."'|
00000a00  3a 66 69 6c 6c 25 3d 30  3a e3 50 41 53 53 3d 34  |:fill%=0:.PASS=4|
00000a10  b8 36 88 32 3a 50 25 3d  45 58 25 3a 4f 25 3d 62  |.6.2:P%=EX%:O%=b|
00000a20  61 73 65 25 3a e7 20 50  41 53 53 3d 34 20 f1 8a  |ase%:. PASS=4 ..|
00000a30  35 29 bd 31 33 34 22 31  73 74 20 70 61 73 73 22  |5).134"1st pass"|
00000a40  3b 20 8b 20 f1 27 8a 35  29 bd 31 33 34 22 32 6e  |; . .'.5).134"2n|
00000a50  64 20 70 61 73 73 22 3b  0d 03 0c 1d 20 e3 20 4c  |d pass";.... . L|
00000a60  49 4e 25 3d 30 20 b8 20  4d 41 58 25 3a f2 63 6f  |IN%=0 . MAX%:.co|
00000a70  6d 70 69 6c 65 0d 03 16  14 20 ed 3a 5b 4f 50 54  |mpile.... .:[OPT|
00000a80  20 50 41 53 53 3a 52 54  53 0d 03 20 09 20 2e 76  | PASS:RTS.. . .v|
00000a90  64 75 0d 03 2a 1c 20 50  4c 41 3a 53 54 41 20 26  |du..*. PLA:STA &|
00000aa0  37 30 3a 50 4c 41 3a 53  54 41 20 26 37 31 0d 03  |70:PLA:STA &71..|
00000ab0  34 1b 20 4c 44 59 20 23  31 3a 4c 44 41 20 28 26  |4. LDY #1:LDA (&|
00000ac0  37 30 29 2c 59 3a 54 41  58 0d 03 3e 0d 20 2e 76  |70),Y:TAX..>. .v|
00000ad0  64 75 6c 6f 6f 70 0d 03  48 1e 20 49 4e 59 3a 4c  |duloop..H. INY:L|
00000ae0  44 41 20 28 26 37 30 29  2c 59 3a 4a 53 52 20 26  |DA (&70),Y:JSR &|
00000af0  46 46 45 45 0d 03 52 20  20 44 45 58 3a 42 50 4c  |FFEE..R  DEX:BPL|
00000b00  20 76 64 75 6c 6f 6f 70  3a 49 4e 59 3a 54 59 41  | vduloop:INY:TYA|
00000b10  3a 43 4c 43 0d 03 5c 14  20 41 44 43 20 26 37 30  |:CLC..\. ADC &70|
00000b20  3a 53 54 41 20 26 37 30  0d 03 66 25 20 4c 44 41  |:STA &70..f% LDA|
00000b30  20 26 37 31 3a 41 44 43  20 23 30 3a 53 54 41 20  | &71:ADC #0:STA |
00000b40  26 37 31 3a 4a 4d 50 20  28 26 37 30 29 0d 03 70  |&71:JMP (&70)..p|
00000b50  06 20 5d 0d 03 7a 14 20  e7 20 66 69 6c 6c 25 3d  |. ]..z. . fill%=|
00000b60  31 20 f2 46 49 4c 4c 0d  03 84 3f 20 ed 3a 4c 25  |1 .FILL...? .:L%|
00000b70  3d 4f 25 2d 62 61 73 65  25 3a f1 27 27 22 43 6f  |=O%-base%:.''"Co|
00000b80  64 65 20 69 73 20 22 3b  4c 25 3b 22 20 28 26 22  |de is ";L%;" (&"|
00000b90  3b 7e 4c 25 3b 22 29 20  62 79 74 65 73 20 6c 6f  |;~L%;") bytes lo|
00000ba0  6e 67 22 27 3a e1 0d 03  8e 15 20 dd f2 47 45 54  |ng"':..... ..GET|
00000bb0  50 41 52 41 4d 53 3a 63  25 3d 30 0d 03 98 15 20  |PARAMS:c%=0.... |
00000bc0  42 41 53 45 25 3d 32 3a  70 74 72 25 3d 30 3a f5  |BASE%=2:ptr%=0:.|
00000bd0  0d 03 a2 1d 20 54 24 3d  c2 4c 24 2c a9 4c 24 2d  |.... T$=.L$,.L$-|
00000be0  42 41 53 45 25 29 3a 56  25 3d bb 54 24 0d 03 ac  |BASE%):V%=.T$...|
00000bf0  3e 20 70 61 72 6d 73 25  28 70 74 72 25 29 3d 56  |> parms%(ptr%)=V|
00000c00  25 20 83 20 32 35 36 3a  70 61 72 6d 73 25 28 70  |% . 256:parms%(p|
00000c10  74 72 25 2b 31 29 3d 56  25 20 81 20 32 35 36 3a  |tr%+1)=V% . 256:|
00000c20  70 74 72 25 3d 70 74 72  25 2b 32 0d 03 b6 15 20  |ptr%=ptr%+2.... |
00000c30  42 41 53 45 25 3d 42 41  53 45 25 2b a9 c3 56 25  |BASE%=BASE%+..V%|
00000c40  0d 03 c0 17 20 50 54 25  3d a7 4c 24 2c 22 2c 22  |.... PT%=.L$,","|
00000c50  2c 42 41 53 45 25 29 0d  03 ca 1e 20 e7 20 50 54  |,BASE%).... . PT|
00000c60  25 3e 30 20 42 41 53 45  25 3d 50 54 25 3a 63 25  |%>0 BASE%=PT%:c%|
00000c70  3d 63 25 2b 31 0d 03 d4  18 20 fd 20 42 41 53 45  |=c%+1.... . BASE|
00000c80  25 3e a9 4c 24 20 84 20  50 54 25 3d 30 0d 03 de  |%>.L$ . PT%=0...|
00000c90  4b 20 e7 20 4b 25 3c 3e  31 31 20 80 20 4b 25 3c  |K . K%<>11 . K%<|
00000ca0  3e 31 35 20 80 20 63 25  3c 3e 6c 25 28 4b 25 29  |>15 . c%<>l%(K%)|
00000cb0  20 f1 27 22 42 61 64 20  70 61 72 61 6d 65 74 65  | .'"Bad paramete|
00000cc0  72 73 20 69 6e 20 6c 69  6e 65 20 22 3b 4c 49 4e  |rs in line ";LIN|
00000cd0  25 27 3a e5 8d 44 50 40  0d 03 e8 06 20 e1 0d 03  |%':..DP@.... ...|
00000ce0  f2 24 20 5b 4f 50 54 20  50 41 53 53 3a 4c 44 41  |.$ [OPT PASS:LDA|
00000cf0  20 23 31 36 3a 4a 53 52  20 26 46 46 45 45 3a 5d  | #16:JSR &FFEE:]|
00000d00  3a e1 0d 03 fc 24 20 5b  4f 50 54 20 50 41 53 53  |:....$ [OPT PASS|
00000d10  3a 4c 44 41 20 23 31 32  3a 4a 53 52 20 26 46 46  |:LDA #12:JSR &FF|
00000d20  45 45 3a 5d 3a e1 0d 04  06 48 20 5b 4f 50 54 20  |EE:]:....H [OPT |
00000d30  50 41 53 53 3a 4a 53 52  20 76 64 75 3a 45 51 55  |PASS:JSR vdu:EQU|
00000d40  42 31 30 3a 45 51 55 42  32 33 3a 45 51 55 42 31  |B10:EQUB23:EQUB1|
00000d50  3a 45 51 55 42 70 61 72  6d 73 25 28 30 29 3a 45  |:EQUBparms%(0):E|
00000d60  51 55 44 30 3a 45 51 55  44 30 3a 5d 3a e1 0d 04  |QUD0:EQUD0:]:...|
00000d70  10 35 20 5b 4f 50 54 20  50 41 53 53 3a 4a 53 52  |.5 [OPT PASS:JSR|
00000d80  20 76 64 75 3a 45 51 55  42 31 3a 45 51 55 42 31  | vdu:EQUB1:EQUB1|
00000d90  37 3a 45 51 55 42 70 61  72 6d 73 25 28 30 29 3a  |7:EQUBparms%(0):|
00000da0  5d 3a e1 0d 04 1a 52 20  5b 4f 50 54 20 50 41 53  |]:....R [OPT PAS|
00000db0  53 3a 4a 53 52 20 76 64  75 3a 45 51 55 42 35 3a  |S:JSR vdu:EQUB5:|
00000dc0  45 51 55 42 32 35 3a 45  51 55 42 35 3a 5d 3a e3  |EQUB25:EQUB5:]:.|
00000dd0  4c 25 3d 30 b8 33 3a 5b  4f 50 54 20 50 41 53 53  |L%=0.3:[OPT PASS|
00000de0  3a 45 51 55 42 70 61 72  6d 73 25 28 4c 25 29 3a  |:EQUBparms%(L%):|
00000df0  5d 3a ed 3a e1 0d 04 24  43 20 5b 4f 50 54 20 50  |]:.:...$C [OPT P|
00000e00  41 53 53 3a 4a 53 52 20  76 64 75 3a 45 51 55 42  |ASS:JSR vdu:EQUB|
00000e10  32 3a 45 51 55 42 31 38  3a 45 51 55 42 70 61 72  |2:EQUB18:EQUBpar|
00000e20  6d 73 25 28 30 29 3a 45  51 55 42 70 61 72 6d 73  |ms%(0):EQUBparms|
00000e30  25 28 32 29 3a 5d 3a e1  0d 04 2e 4c 20 5b 4f 50  |%(2):]:....L [OP|
00000e40  54 20 50 41 53 53 3a 4a  53 52 20 76 64 75 3a 45  |T PASS:JSR vdu:E|
00000e50  51 55 42 38 3a 45 51 55  42 32 34 3a 5d 3a e3 4c  |QUB8:EQUB24:]:.L|
00000e60  25 3d 30 b8 37 3a 5b 4f  50 54 20 50 41 53 53 3a  |%=0.7:[OPT PASS:|
00000e70  45 51 55 42 70 61 72 6d  73 25 28 4c 25 29 3a 5d  |EQUBparms%(L%):]|
00000e80  3a ed 3a e1 0d 04 38 35  20 5b 4f 50 54 20 50 41  |:.:...85 [OPT PA|
00000e90  53 53 3a 4a 53 52 20 76  64 75 3a 45 51 55 42 31  |SS:JSR vdu:EQUB1|
00000ea0  3a 45 51 55 42 32 32 3a  45 51 55 42 70 61 72 6d  |:EQUB22:EQUBparm|
00000eb0  73 25 28 30 29 3a 5d 3a  e1 0d 04 42 52 20 5b 4f  |s%(0):]:...BR [O|
00000ec0  50 54 20 50 41 53 53 3a  4a 53 52 20 76 64 75 3a  |PT PASS:JSR vdu:|
00000ed0  45 51 55 42 35 3a 45 51  55 42 32 35 3a 45 51 55  |EQUB5:EQUB25:EQU|
00000ee0  42 34 3a 5d 3a e3 4c 25  3d 30 b8 33 3a 5b 4f 50  |B4:]:.L%=0.3:[OP|
00000ef0  54 20 50 41 53 53 3a 45  51 55 42 70 61 72 6d 73  |T PASS:EQUBparms|
00000f00  25 28 4c 25 29 3a 5d 3a  ed 3a e1 0d 04 4c 4c 20  |%(L%):]:.:...LL |
00000f10  5b 4f 50 54 20 50 41 53  53 3a 4a 53 52 20 76 64  |[OPT PASS:JSR vd|
00000f20  75 3a 45 51 55 42 35 3a  45 51 55 42 32 35 3a 5d  |u:EQUB5:EQUB25:]|
00000f30  3a e3 4c 25 3d 30 b8 34  3a 5b 4f 50 54 20 50 41  |:.L%=0.4:[OPT PA|
00000f40  53 53 3a 45 51 55 42 70  61 72 6d 73 25 28 4c 25  |SS:EQUBparms%(L%|
00000f50  29 3a 5d 3a ed 3a e1 0d  04 56 74 20 42 25 3d a9  |):]:.:...Vt B%=.|
00000f60  4c 24 2d 31 3a 5b 4f 50  54 20 50 41 53 53 3a 4a  |L$-1:[OPT PASS:J|
00000f70  53 52 20 76 64 75 3a 45  51 55 42 20 42 25 3a 5d  |SR vdu:EQUB B%:]|
00000f80  3a e3 4c 25 3d 33 20 b8  20 a9 4c 24 3a 42 24 3d  |:.L%=3 . .L$:B$=|
00000f90  c1 4c 24 2c 4c 25 2c 31  29 3a 5b 4f 50 54 20 50  |.L$,L%,1):[OPT P|
00000fa0  41 53 53 3a 45 51 55 53  20 42 24 3a 5d 3a ed 3a  |ASS:EQUS B$:]:.:|
00000fb0  5b 4f 50 54 20 50 41 53  53 3a 45 51 55 42 31 33  |[OPT PASS:EQUB13|
00000fc0  3a 45 51 55 42 31 30 3a  5d 3a e1 0d 04 60 86 20  |:EQUB10:]:...`. |
00000fd0  5b 4f 50 54 20 50 41 53  53 3a 4a 53 52 20 76 64  |[OPT PASS:JSR vd|
00000fe0  75 3a 45 51 55 42 32 33  3a 5d 3a e3 58 25 3d 30  |u:EQUB23:]:.X%=0|
00000ff0  b8 31 32 20 88 34 3a 5b  4f 50 54 20 50 41 53 53  |.12 .4:[OPT PASS|
00001000  3a 45 51 55 42 32 35 3a  5d 3a e7 20 58 25 3d 30  |:EQUB25:]:. X%=0|
00001010  20 5b 4f 50 54 20 50 41  53 53 3a 45 51 55 42 34  | [OPT PASS:EQUB4|
00001020  3a 5d 20 8b e7 20 58 25  3d 34 20 5b 4f 50 54 20  |:] .. X%=4 [OPT |
00001030  50 41 53 53 3a 45 51 55  42 35 3a 5d 20 8b 20 5b  |PASS:EQUB5:] . [|
00001040  4f 50 54 20 50 41 53 53  3a 45 51 55 42 38 35 3a  |OPT PASS:EQUB85:|
00001050  5d 0d 04 6a 30 20 e3 4c  25 3d 30 b8 33 3a 5b 4f  |]..j0 .L%=0.3:[O|
00001060  50 54 20 50 41 53 53 3a  45 51 55 42 70 61 72 6d  |PT PASS:EQUBparm|
00001070  73 25 28 58 25 2b 4c 25  29 3a 5d 3a ed 3a ed 3a  |s%(X%+L%):]:.:.:|
00001080  e1 0d 04 74 43 20 5b 4f  50 54 20 50 41 53 53 3a  |...tC [OPT PASS:|
00001090  4a 53 52 20 76 64 75 3a  45 51 55 42 32 3a 45 51  |JSR vdu:EQUB2:EQ|
000010a0  55 42 33 31 3a 45 51 55  42 70 61 72 6d 73 25 28  |UB31:EQUBparms%(|
000010b0  30 29 3a 45 51 55 42 70  61 72 6d 73 25 28 32 29  |0):EQUBparms%(2)|
000010c0  3a 5d 3a e1 0d 04 7e 4f  20 5b 4f 50 54 20 50 41  |:]:...~O [OPT PA|
000010d0  53 53 3a 4a 53 52 20 76  64 75 3a 45 51 55 42 34  |SS:JSR vdu:EQUB4|
000010e0  3a 45 51 55 42 32 38 3a  5d 3a e3 4c 25 3d 30 b8  |:EQUB28:]:.L%=0.|
000010f0  36 20 88 32 3a 5b 4f 50  54 20 50 41 53 53 3a 45  |6 .2:[OPT PASS:E|
00001100  51 55 42 70 61 72 6d 73  25 28 4c 25 29 3a 5d 3a  |QUBparms%(L%):]:|
00001110  ed 3a e1 0d 04 88 4c 20  5b 4f 50 54 20 50 41 53  |.:....L [OPT PAS|
00001120  53 3a 4a 53 52 20 76 64  75 3a 45 51 55 42 63 25  |S:JSR vdu:EQUBc%|
00001130  3a 5d 3a e3 4c 25 3d 30  b8 63 25 2a 32 20 88 32  |:]:.L%=0.c%*2 .2|
00001140  3a 5b 4f 50 54 20 50 41  53 53 3a 45 51 55 42 70  |:[OPT PASS:EQUBp|
00001150  61 72 6d 73 25 28 4c 25  29 3a 5d 3a ed 3a e1 0d  |arms%(L%):]:.:..|
00001160  04 92 48 20 5b 4f 50 54  20 50 41 53 53 3a 4a 53  |..H [OPT PASS:JS|
00001170  52 20 66 69 6c 6c 3a 5d  3a e3 4c 25 3d 30 b8 33  |R fill:]:.L%=0.3|
00001180  3a 5b 4f 50 54 20 50 41  53 53 3a 45 51 55 42 70  |:[OPT PASS:EQUBp|
00001190  61 72 6d 73 25 28 4c 25  29 3a 5d 3a ed 3a 66 69  |arms%(L%):]:.:fi|
000011a0  6c 6c 25 3d 31 3a e1 0d  04 9c 1e 20 dd f2 63 6f  |ll%=1:..... ..co|
000011b0  6d 70 69 6c 65 3a e7 20  4c 24 28 4c 49 4e 25 29  |mpile:. L$(LIN%)|
000011c0  3d 22 22 20 e1 0d 04 a6  81 20 4c 24 3d 4c 24 28  |="" ..... L$=L$(|
000011d0  4c 49 4e 25 29 3a 4b 25  3d 97 28 c0 4c 24 2c 31  |LIN%):K%=.(.L$,1|
000011e0  29 29 2d 36 34 3a f2 47  45 54 50 41 52 41 4d 53  |))-64:.GETPARAMS|
000011f0  3a ee 20 4b 25 20 e5 8d  64 72 43 2c 8d 64 7c 43  |:. K% ..drC,.d|C|
00001200  2c 8d 54 46 44 2c 8d 54  50 44 2c 8d 54 5a 44 2c  |,.TFD,.TPD,.TZD,|
00001210  8d 54 64 44 2c 8d 54 6e  44 2c 8d 54 78 44 2c 8d  |.TdD,.TnD,.TxD,.|
00001220  44 42 44 2c 8d 44 4c 44  2c 8d 44 56 44 2c 8d 44  |DBD,.DLD,.DVD,.D|
00001230  60 44 2c 8d 44 74 44 2c  8d 44 7e 44 2c 8d 74 48  |`D,.DtD,.D~D,.tH|
00001240  44 2c 8d 74 52 44 0d 04  b0 1f 20 d9 23 30 3a e7  |D,.tRD.... .#0:.|
00001250  20 9f 3d 31 37 20 f1 27  22 42 72 65 61 6b 22 3a  | .=17 .'"Break":|
00001260  e5 8d 44 50 40 0d 04 ba  0e 20 f6 3a f1 3a e5 8d  |..DP@.... .:.:..|
00001270  44 50 40 0d 04 c4 0b 20  dd f2 46 49 4c 4c 0d 04  |DP@.... ..FILL..|
00001280  ce 0e 20 5b 4f 50 54 20  50 41 53 53 0d 04 d8 0a  |.. [OPT PASS....|
00001290  20 2e 66 69 6c 6c 0d 04  e2 25 20 50 4c 41 3a 53  | .fill...% PLA:S|
000012a0  54 41 20 26 37 30 3a 50  4c 41 3a 53 54 41 20 26  |TA &70:PLA:STA &|
000012b0  37 31 3a 4a 53 52 20 63  6f 70 79 0d 04 ec 1f 20  |71:JSR copy.... |
000012c0  4a 53 52 20 70 6f 69 6e  74 3a 53 54 41 20 63 6f  |JSR point:STA co|
000012d0  6c 3a 4a 53 52 20 6c 69  6e 65 0d 04 f6 0b 20 2e  |l:JSR line.... .|
000012e0  6c 6f 6f 70 31 0d 05 00  1f 20 43 4c 43 3a 4c 44  |loop1.... CLC:LD|
000012f0  41 20 26 37 34 3a 41 44  43 20 23 34 3a 53 54 41  |A &74:ADC #4:STA|
00001300  20 26 37 34 0d 05 0a 25  20 4c 44 41 20 26 37 35  | &74...% LDA &75|
00001310  3a 41 44 43 20 23 30 3a  53 54 41 20 26 37 35 3a  |:ADC #0:STA &75:|
00001320  4a 53 52 20 70 6f 69 6e  74 0d 05 14 1e 20 43 4d  |JSR point.... CM|
00001330  50 20 63 6f 6c 3a 42 4e  45 20 64 6f 77 6e 3a 4a  |P col:BNE down:J|
00001340  53 52 20 6c 69 6e 65 0d  05 1e 0e 20 4a 4d 50 20  |SR line.... JMP |
00001350  6c 6f 6f 70 31 0d 05 28  0a 20 2e 64 6f 77 6e 0d  |loop1..(. .down.|
00001360  05 32 0d 20 4a 53 52 20  63 6f 70 79 0d 05 3c 0b  |.2. JSR copy..<.|
00001370  20 2e 6c 6f 6f 70 32 0d  05 46 1f 20 53 45 43 3a  | .loop2..F. SEC:|
00001380  4c 44 41 20 26 37 34 3a  53 42 43 20 23 34 3a 53  |LDA &74:SBC #4:S|
00001390  54 41 20 26 37 34 0d 05  50 25 20 4c 44 41 20 26  |TA &74..P% LDA &|
000013a0  37 35 3a 53 42 43 20 23  30 3a 53 54 41 20 26 37  |75:SBC #0:STA &7|
000013b0  35 3a 4a 53 52 20 70 6f  69 6e 74 0d 05 5a 1e 20  |5:JSR point..Z. |
000013c0  43 4d 50 20 63 6f 6c 3a  42 4e 45 20 65 78 69 74  |CMP col:BNE exit|
000013d0  3a 4a 53 52 20 6c 69 6e  65 0d 05 64 0e 20 4a 4d  |:JSR line..d. JM|
000013e0  50 20 6c 6f 6f 70 32 0d  05 6e 0a 20 2e 65 78 69  |P loop2..n. .exi|
000013f0  74 0d 05 78 1f 20 43 4c  43 3a 4c 44 41 20 26 37  |t..x. CLC:LDA &7|
00001400  30 3a 41 44 43 20 23 35  3a 53 54 41 20 26 37 30  |0:ADC #5:STA &70|
00001410  0d 05 82 25 20 4c 44 41  20 26 37 31 3a 41 44 43  |...% LDA &71:ADC|
00001420  20 23 30 3a 53 54 41 20  26 37 31 3a 4a 4d 50 20  | #0:STA &71:JMP |
00001430  28 26 37 30 29 0d 05 8c  0a 20 2e 63 6f 70 79 0d  |(&70).... .copy.|
00001440  05 96 12 20 4c 44 58 20  23 33 3a 4c 44 59 20 23  |... LDX #3:LDY #|
00001450  34 0d 05 a0 0e 20 2e 63  6f 70 79 6c 6f 6f 70 0d  |4.... .copyloop.|
00001460  05 aa 22 20 4c 44 41 20  28 26 37 30 29 2c 59 3a  |.." LDA (&70),Y:|
00001470  53 54 41 20 26 37 32 2c  58 3a 44 45 59 3a 44 45  |STA &72,X:DEY:DE|
00001480  58 0d 05 b4 15 20 42 50  4c 20 63 6f 70 79 6c 6f  |X.... BPL copylo|
00001490  6f 70 3a 52 54 53 0d 05  be 0b 20 2e 70 6f 69 6e  |op:RTS.... .poin|
000014a0  74 0d 05 c8 25 20 4c 44  41 20 23 39 3a 4c 44 58  |t...% LDA #9:LDX|
000014b0  20 23 26 37 32 3a 4c 44  59 20 23 30 3a 4a 53 52  | #&72:LDY #0:JSR|
000014c0  20 26 46 46 46 31 0d 05  d2 10 20 4c 44 41 20 26  | &FFF1.... LDA &|
000014d0  37 36 3a 52 54 53 0d 05  dc 0a 20 2e 6c 69 6e 65  |76:RTS.... .line|
000014e0  0d 05 e6 1e 20 4c 44 41  20 23 32 35 3a 4a 53 52  |.... LDA #25:JSR|
000014f0  20 26 46 46 45 45 3a 4c  44 41 20 23 37 37 0d 05  | &FFEE:LDA #77..|
00001500  f0 1c 20 4a 53 52 20 26  46 46 45 45 3a 4c 44 58  |.. JSR &FFEE:LDX|
00001510  20 23 30 3a 4c 44 59 20  23 33 0d 05 fa 0e 20 2e  | #0:LDY #3.... .|
00001520  6c 69 6e 65 6c 6f 6f 70  0d 06 04 20 20 4c 44 41  |lineloop...  LDA|
00001530  20 26 37 32 2c 58 3a 4a  53 52 20 26 46 46 45 45  | &72,X:JSR &FFEE|
00001540  3a 49 4e 58 3a 44 45 59  0d 06 0e 15 20 42 50 4c  |:INX:DEY.... BPL|
00001550  20 6c 69 6e 65 6c 6f 6f  70 3a 52 54 53 0d 06 18  | lineloop:RTS...|
00001560  08 20 5d 3a e1 0d ff                              |. ]:...|
00001567

04-04-88/MINICOM.m0

04-04-88/MINICOM.m1

04-04-88/MINICOM.m2

04-04-88/MINICOM.m4

04-04-88/MINICOM.m5

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