ca65 V2.17 - Git 582aa41
Main file   : BASIC.ca65
Current file: BASIC.ca65

000000r 1               ;
000000r 1               ; Acorn System/Atom BASIC
000000r 1               ;
000000r 1               ; Produced from an original System BASIC EPROM purchased in 1982
000000r 1               ; and an Atom purchased in the early 80's,
000000r 1               ; disassembled during 1982 and recently transferred to CA65 format.
000000r 1               ;
000000r 1               ; (Chris Oddy November 2018)
000000r 1               ;
000000r 1               			.setcpu		"6502"
000000r 1               			.listbytes	unlimited
000000r 1               ;
000000r 1               ; This source code can create either a System or Atom variant of BASIC
000000r 1               ;
000000r 1               .define	ATOM 0			; set to 1 for the Atom variant
000000r 1               .define SYSTEM 1		; set to 1 for the System variant
000000r 1               ;
000000r 1               ; check valid options selected
000000r 1               .if (ATOM=0 .and SYSTEM=0) .or (ATOM<>0 .and SYSTEM<>0)
000000r 1               	.error "Invalid variant options selected"
000000r 1               .endif
000000r 1               ;
000000r 1               ;	****** Zero Page Workspace ******
000000r 1               ;
000000r 1               err_no	:= $00		; error number (1 byte)
000000r 1               baslin	:= $01		; BASIC linenumber (2 bytes)
000000r 1               index	:= $03		; index to text pointer (1 byte)
000000r 1               accptr	:= $04		; accumulator stack pointer (1 byte)
000000r 1               txtptr	:= $05		; text area pointer (2 bytes)
000000r 1               count	:= $07		; PRINT position counter (1 byte)
000000r 1               random	:= $08		; random number (5 bytes)
000000r 1               TOP		:= $0D		; TOP of text area (2 bytes)
000000r 1               prbase	:= $0F		; PRINT number base
000000r 1               					; - decimal: bit7=1, hex: bit7=0 (1 byte)
000000r 1               handle	:= $0F		; file handle (1 byte)
000000r 1               admode	:= $0F		;
000000r 1               errptr	:= $10		; pointer to error text (2 bytes)
000000r 1               txtpag	:= $12		; bottom of text area page (1 byte)
000000r 1               BOTTOM	:= $12		;
000000r 1               do_cnt	:= $13		; DO loop counter/stack pointer (1 byte)
000000r 1               goscnt	:= $14		; GOSUB counter/stack pointer (1 byte)
000000r 1               forcnt	:= $15		; FOR loop counter/stack pointer (1 byte)
000000r 1               
000000r 1               acc1	:= $16		; 1st byte of accumulator stack (15 levels)
000000r 1               frespc	:= $23		;
000000r 1               acc2	:= $25		; 2nd byte of accumulator stack (15 levels)
000000r 1               acc3	:= $34		; 3rd byte of accumulator stack (15 levels)
000000r 1               acc4	:= $43		; 4th byte of accumulator stack (15 levels)
000000r 1               
000000r 1               bwork	:= $52		; BASIC workspace area
000000r 1               X0L		:= $52		;
000000r 1               X0M		:= $53		;
000000r 1               Y0L		:= $54		;
000000r 1               Y0M		:= $55		;
000000r 1               xdir	:= $56		;
000000r 1               pltcnt	:= $57		;
000000r 1               X1L		:= $5A		;
000000r 1               X1M		:= $5B		;
000000r 1               Y1L		:= $5C		;
000000r 1               Y1M		:= $5D		;
000000r 1               pixadr	:= $5F		;
000000r 1               y_pos	:= $61		;
000000r 1               adrmod	:= $64		;
000000r 1               opcode	:= $66		;
000000r 1               opernd	:= $67		;
000000r 1               mnemon	:= $69		;
000000r 1               ;
000000r 1               ; *** Floating Point Workspace *** ($70 to $7F ?)
000000r 1               ;
000000r 1               ; *** Unused Workspace *** ($80 to $AF ?)
000000r 1               ;
000000r 1               ; *** COS Workspace *** ($B0 to $FF ?)
000000r 1               ;
000000r 1               buffer	:= $0100	; input buffer (64 bytes)
000000r 1               strbuf	:= $0140	; string buffer (64 bytes)
000000r 1               ;
000000r 1               ; *** Stack *** ($0180 to $01FF)
000000r 1               ;
000000r 1               stack	:= $01FF	; top of processor stack
000000r 1               ;
000000r 1               BRKVEC	:= $0202	; vector to BRK service routine
000000r 1               WRCVEC	:= $0208	; vector to 'Write Character' service routine (OSWRCH)
000000r 1               BPTVEC	:= $0216	; vector to 'Byte PUT to open file' service routine (OSBPUT)
000000r 1               ;
000000r 1               ; Free ($021C to $023F ?)
000000r 1               ;
000000r 1               ; *** BASIC Workspace *** ($0240 to $03FF)
000000r 1               ;
000000r 1               forvar	:= $0240	; FOR loop variable stack (15 levels)
000000r 1               .if ATOM=1
000000r 1               stepa	:= $024B	; FOR loop STEP parameter stack (15 levels)
000000r 1               stepb	:= $0256	;
000000r 1               stepc	:= $0261	;
000000r 1               stepd	:= $026C	;
000000r 1               fortoa	:= $0277	; FOR loop TO parameter stack (15 levels)
000000r 1               fortob	:= $0282	;
000000r 1               fortoc	:= $028D	;
000000r 1               fortod	:= $0298	;
000000r 1               forskl	:= $02A3	; LSB of FOR loop return address stack (15 levels)
000000r 1               forskm	:= $02AE	; MSB of FOR loop return address stack (15 levels)
000000r 1               dostkl	:= $02B9	; LSB of DO loop return address stack (15 levels)
000000r 1               dostkm	:= $02C4	; MSB of DO loop return address stack (15 levels)
000000r 1               gostkl	:= $02CF	; LSB of GOSUB return address stack (15 levels)
000000r 1               gostkm	:= $02DD	; MSB of GOSUB return address stack (15 levels)
000000r 1               .endif
000000r 1               .if SYSTEM=1
000000r 1               stepa	:= $024F	; FOR loop STEP parameter stack (15 levels)
000000r 1               stepb	:= $025E	;
000000r 1               stepc	:= $026D	;
000000r 1               stepd	:= $027C	;
000000r 1               fortoa	:= $028B	; FOR loop TO parameter stack (15 levels)
000000r 1               fortob	:= $029A	;
000000r 1               fortoc	:= $02A9	;
000000r 1               fortod	:= $02B8	;
000000r 1               forskl	:= $02C7	; LSB of FOR loop return address stack (15 levels)
000000r 1               forskm	:= $02D6	; MSB of FOR loop return address stack (15 levels)
000000r 1               dostkl	:= $02E5	; LSB of DO loop return address stack (15 levels)
000000r 1               dostkm	:= $02F4	; MSB of DO loop return address stack (15 levels)
000000r 1               gostkl	:= $0303	; LSB of GOSUB return address stack (15 levels)
000000r 1               gostkm	:= $0312	; MSB of GOSUB return address stack (15 levels)
000000r 1               .endif
000000r 1               
000000r 1               pwidth	:= $0321	; PRINT field width, variable @ (1 byte)
000000r 1               intega	:= $0322	; 1st byte (LSB) of 4 byte integer variables
000000r 1               integb	:= $033D	; 2nd byte of 4 byte integer variables
000000r 1               integc	:= $0358	; 3rd byte of 4 byte integer variables
000000r 1               integd	:= $0373	; 4th byte (MSB) of 4 byte integer variables
000000r 1               label	:= $038D	; label storage a to z (26 words)
000000r 1               
000000r 1               arrayl	:= $02EB	; arrays ?
000000r 1               arraym	:= $0306	;
000000r 1               
000000r 1               ;
000000r 1               old_xl	:= $03C1	;
000000r 1               old_xm	:= $03C2	;
000000r 1               old_yl	:= $03C3	;
000000r 1               old_ym	:= $03C4	;
000000r 1               ;
000000r 1               ploter	:= $03FE	; plotter routine address
000000r 1               ;
000000r 1               ;	****** Hardware Addresses ******
000000r 1               ;
000000r 1               ;	*** 200.000 6502 CPU Board ***
000000r 1               ;
000000r 1               ; 8154 Interface located at $0E20 (IC2)
000000r 1               IC2		:= $0E20
000000r 1               IC2B	:= $0E21	; 8154 Port B Data Register (keyboard)
000000r 1               ;
000000r 1               ;	*** Atom 8255 PIA (IC25) ***
000000r 1               ;
000000r 1               IC25A	:= $B000	; bits 0-3: keyboard row (output)
000000r 1               					; bits 4-7: graphics mode (output)
000000r 1               IC25B	:= $B001	; bits 0-5: keyboard column (input)
000000r 1               					; bit 6: CTRL key (input, active low)
000000r 1               					; bit 7: SHIFT keys (input, active low)
000000r 1               IC25C	:= $B002	; bit 0: cassette interface output
000000r 1               					; bit 1: 2.4kHz enable (output)
000000r 1               					; bit 2: loudspeaker output
000000r 1               					; bit 3: not used
000000r 1               					; bit 4: cassette interface 2.4kHz input
000000r 1               					; bit 5: cassette interface input
000000r 1               					; bit 6: REPT key (input, active low)
000000r 1               					; bit 7: 60 Hz sync (low during flyback)
000000r 1               IC25CL	:= $B003	; control register, normally $8A: mode 0
000000r 1               					; outputs: port A, port C lower; inputs: port B, port C upper
000000r 1               ;
000000r 1               .if ATOM=1
000000r 1               KEYBRD	:= IC25B	; Atom keyboard on IC25
000000r 1               .endif
000000r 1               ;
000000r 1               .if SYSTEM=1
000000r 1               KEYBRD	:= IC2B		; System Keyboard on IC2
000000r 1               .endif
000000r 1               ;
000000r 1               ; BASIC Text Space
000000r 1               ;
000000r 1               .if SYSTEM=1
000000r 1               txtspc	:= $3000
000000r 1               .endif
000000r 1               .if ATOM=1
000000r 1               txtspc	:= $2900
000000r 1               .endif
000000r 1               ;
000000r 1               screen	:= $8000	; Screen RAM base address
000000r 1               screna	:= $8000	;
000000r 1               screnb	:= $8100	;
000000r 1               scrmd1	:= $8200	; Graphics Mode 1
000000r 1               scrmd2	:= $8400	; Graphics Mode 2
000000r 1               scrmd3	:= $8600	; Graphics Mode 3
000000r 1               scrmd4	:= $8C00	; Graphics Mode 4
000000r 1               ;
000000r 1               ; Floating Point or ONLIBASIC Extension ROMs
000000r 1               ;
000000r 1               EXTROM	:= $D000
000000r 1               ;
000000r 1               ; OS Calls
000000r 1               ;
000000r 1               OUTSTR	:= $F7D1	; Output a String of Characters
000000r 1               OSSHUT	:= $FFCB	; Closes a file whose file handle is in Y, a value of zero
000000r 1               					; will close all open files.
000000r 1               OSFIND	:= $FFCE	; Opens a file returning a file handle in the accumulator.
000000r 1               					; X points to the following data in zeropage:
000000r 1               					;	filename terminated by CR.
000000r 1               					; The file handle will be zero if the file does not exist.
000000r 1               					; If carry is set the file must exist and is opened for
000000r 1               					; reading and writing. If carry is clear the file need not
000000r 1               					; exist. The sequential file pointer is set to 0.
000000r 1               OSBPUT	:= $FFD1	; Byte PUT to open file - outputs the byte in the accumulator
000000r 1               					; to a sequential file. In systems other than COS the
000000r 1               					; sequential byte pointer will be incremented.
000000r 1               OSBGET	:= $FFD4	; Byte GET from open file - returns the next byte from a
000000r 1               					; sequential read file in the accumulator
000000r 1               					; In systems other than COS the sequential byte pointer will
000000r 1               					; be incremented.
000000r 1               OSSTAR	:= $FFD7	; SeT ARguments - sets the value of a files sequential pointer.
000000r 1               					; X points to the zeropage location containing the value,
000000r 1               					; Y contains the file handle.
000000r 1               OSRDAR	:= $FFDA	; ReaD ARguments - returns the value of a files arguments.
000000r 1               					; X points to the zeropage location where the result is to be
000000r 1               					; placed, Y contains the file handle, A specifies the argument
000000r 1               					; - 0:sequential pointer, 1: length, 2:file region.
000000r 1               OSSAVE	:= $FFDD	; Save an area of memory to a specified file.
000000r 1               					; X points to the following data in zeropage:
000000r 1               					;	filename terminated by CR, address where data is reloaded,
000000r 1               					;	execute address, start address in memory, end address+1.
000000r 1               					; If insufficient space for the file then a BRK will occur.
000000r 1               					; In interrupt/DMA systems a wait for completion will occur if
000000r 1               					; carry was set on entry.
000000r 1               OSLOAD	:= $FFE0	; Load a file into a specified area of memory.
000000r 1               					; X points to the following data in zeropage:
000000r 1               					;	filename terminated by CR, address of destination,
000000r 1               					;	a byte which if bit 7=0 causes load address to be used.
000000r 1               					; If the file cannot be found then a BRK will occur.
000000r 1               					; In interrupt/DMA systems a wait for completion will occur if
000000r 1               					; carry was set on entry.
000000r 1               OSRDCH	:= $FFE3	; REad CHaracter - fetches a byte from the input channel.
000000r 1               OSECHO	:= $FFE6	; Fetches byte with OSRDCH and sends to output channel using
000000r 1               					; OSWRCH (if CR is read then a LF and CR are sent to OSWRCH).
000000r 1               OSASCI	:= $FFE9	; ASCIi write - sends byte in A to output channel using OSWRCH.
000000r 1               					; A CR is sent using OSCRLF i.e. will be preceded by a linefeed.
000000r 1               OSCRLF	:= $FFED	; Sends a LF($0A) and a CR($0D) to output channel using OSWRCH.
000000r 1               OSWRCR	:= $FFF2	; WRite CR - sends carriage return ($0D) down output channel.
000000r 1               OSWRCH	:= $FFF4	; WRite CHaracter - sends the byte in A down the output channel.
000000r 1               OSCLI	:= $FFF7	; Command Line Interpreter - interprets a string of characters
000000r 1               					; at $0100 terminated by a CR, errors are met with a BRK.
000000r 1               ;
000000r 1               ; ASCII Control Codes
000000r 1               ;
000000r 1               CR			:= $0D		; Carriage Return
000000r 1               CAN			:= $18		; CANcel
000000r 1               ESC			:= $1B		; ESCape
000000r 1               SPACE		:= ' '		; space
000000r 1               DEL			:= $7F		; DELete
000000r 1               ;
000000r 1               		.org	$C000			; Start address of System/Atom BASIC
00C000  1               ;
00C000  1               								; Tables 1 to 16 are used by PARSE1 to find
00C000  1               								; keywords, as a match is found further table
00C000  1               								; Index1 provides a link to further characters
00C000  1               								; (if any) and MSB's of routine address, LSB is
00C000  1               								; in the second part of Index 1.
00C000  1               ;
00C000  1               Table1:							; Table 1 - Comparisons: 1st characters
00C000  1  3C           T1LT:	.byte	"<"				; '<' 1st char of '<>' INEQUA($C76D),
00C001  1               								; '<=' ILTEQU($C764),
00C001  1               								; '<' ILT($C774)
00C001  1  3D           T1EQ:	.byte	"="				; '=' IEQUAL($C75B)
00C002  1  3E           T1GT:	.byte	">"				; '>' 1st char of '>=' IGTEQU($C77B)
00C003  1  FE           		.byte	$FE				; $FE: end of Table1, return no match
00C004  1               ;
00C004  1               Table2:							; Table 2 - Unary Operators: 1st characters
00C004  1  2D           T2MI:	.byte	"-"				; '-' UMINUS($C8C1)
00C005  1  2B           T2PL:	.byte	"+"				; '+' UPLUS($C8DC)
00C006  1  C8           T2a:	.byte	>UPLUS			; end of Table2, no match go to UPLUS($C8DC)
00C007  1               ;
00C007  1               Table3:							; Table 3 - Functions: 1st characters
00C007  1  23           T3PD:	.byte	"#"				; '#' HCONST($C90A)
00C008  1  28           T3OB:	.byte	"("				; '(' IL_PAR($C944)
00C009  1  21           T3PG:	.byte	"!"				; '!' F_QEEK($C95F)
00C00A  1  3F           T3QM:	.byte	"?"				; '?' F_PEEK($C94C)
00C00B  1  52           T3R:	.byte	"R"				; 'R' 1st char of 'RND'($C986)
00C00C  1  54           T3T:	.byte	"T"				; 'T' 1st char of 'TOP'($C973)
00C00D  1  4C           T3L:	.byte	"L"				; 'L' 1st char of 'LEN'($C9BD)
00C00E  1  43           T3C:	.byte	"C"				; 'C' 1st char of 'COUNT'($C97A),'CH'($C9D2)
00C00F  1  41           T3A:	.byte	"A"				; 'A' 1st char of 'ABS'($C902)
00C010  1  50           T3P:	.byte	"P"				; 'P' 1st char of 'PTR'($CF29)
00C011  1  45           T3E:	.byte	"E"				; 'E' 1st char of 'EXT'($CF28)
00C012  1  47           T3G:	.byte	"G"				; 'G' 1st char of 'GET'($CF66)
00C013  1  42           T3B:	.byte	"B"				; 'B' 1st char of 'BGET'($CF5B)
00C014  1  46           T3F:	.byte	"F"				; 'F' 1st char of 'FIN'($CFA6),'FOUT'($CFA7)
00C015  1               .if ATOM=1
00C015  1               T3a:	.byte	>RDARAY			; end of Table3, no match go to RDARAY
00C015  1               .endif
00C015  1               .if SYSTEM=1
00C015  1  CA           T3a:	.byte	>NOFUNC			; end of Table3, no match go to NOFUNC($CA24)
00C016  1               .endif
00C016  1               ;
00C016  1               Table4:							; Table 4 - Loops: 1st characters followed by MSB
00C016  1               								; of routine address
00C016  1  54           		.byte	"T"				; 'T' 1st char of 'TO'
00C017  1  FF           T4FF:	.byte	$FF				; $FF
00C018  1  4F           T4O:	.byte	"O"				; 'O' remainder of 'TO'($CB81)
00C019  1  CB           T4a:	.byte	>TO				; TO($CB81)
00C01A  1               ;
00C01A  1               Table5:							; Table 5 - STEP: followed by MSB of routine address
00C01A  1  53           		.byte	"S"				; 'S' 1st char of 'STEP'($CBA2)
00C01B  1  CB           T5a:	.byte	>STEP			; STEP($CBA2)
00C01C  1  54 45 50     T5TEP:	.byte	"TEP"			; 'TEP' remainder of 'STEP'
00C01F  1  CB           		.byte	>STEP			; STEP($CBA2)
00C020  1               ;
00C020  1               Table6:							; Table 6 - THEN: followed by MSB of routine address
00C020  1  54 C3        		.byte	"T",>THEN		; 'T' 1st char of 'THEN'($C31B)
00C022  1  48 45 4E     T6HEN:	.byte	"HEN"			; 'HEN' remainder of 'THEN'
00C025  1  C3           		.byte	>THEN			; THEN($C31B)
00C026  1               ;
00C026  1               Table7:							; Table 7 - STRING: 1st characters followed by MSB
00C026  1               								; of routine address
00C026  1  22           		.byte	'"'				; '"' STRLIT($CEBF)
00C027  1  24           		.byte	"$"				; '$' STRVAR($CEB6)
00C028  1  CE           T7a:	.byte	>STRVAR			; >STRVAR($CEB6)
00C029  1  CE           T7b:	.byte	>STRLIT			; >STRLIT($CEBF)
00C02A  1  CC           T7c:	.byte	>INPSTR			; >INPSTR($CCB6)
00C02B  1               ;
00C02B  1               Table8:							; Table 8 - INPUT: 1st characters
00C02B  1  24           		.byte	"$"				; '$' INPSTR($CCB6)
00C02C  1               ;
00C02C  1               Table9:							; Table 9 - INPINT: 1st characters followed by MSB
00C02C  1               								; of routine address
00C02C  1  2C           		.byte	","				; ',' INPUT($CC81)
00C02D  1  C5           		.byte	>ENDCNT			; end of table, no match go to ENDCNT($C558)
00C02E  1               ;
00C02E  1               Table10:						; Table 10 - PRINT: 1st characters
00C02E  1  24           		.byte	"$"				; '$' PSTROP($C390)
00C02F  1  26           		.byte	"&"				; '&' PR_HEX($C335)
00C030  1  3B           		.byte	";"				; ';' PR_END($C54A)
00C031  1  0D           		.byte	CR				; 'CR' PR_END($C54A)
00C032  1  2C           		.byte	","				; ',' PRINT($C334)
00C033  1  C3           		.byte	>PR_INT			; >PR_INT($C33F)
00C034  1  C5           T10a:	.byte	>PR_END			; >PR_END($C54A)
00C035  1  C2           T10b:	.byte	>RTN			; >RTN($C278)
00C036  1  3E C7        T10GT:	.byte	">",>INEQUA		; '>' 2nd char of '<>'
00C038  1  3D C7        T10EQ1:	.byte	"=",>ILTEQU		; '=' 2nd char of '<='
00C03A  1  C7           T10c:	.byte	>ILT			; >ILT($C774)
00C03B  1  C7           T10d:	.byte	>IEQUAL			; >IEQUAL($C75B)
00C03C  1  3D C7        T10EQ2:	.byte	"=",>IGTEQU		; '=' 2nd char of '>='
00C03E  1  C7           T10e:	.byte	>IGT			; >IGT($C782)
00C03F  1  C8           T10f:	.byte	>UMINUS			; >UMINUS($C8C1)
00C040  1  52 C7        T10R:	.byte	"R",>LOR		; 'R' 1st char of LOR($C722)
00C042  1  C7           T10g:	.byte	>STRCMP			; >STRCMP($C731)
00C043  1               ;
00C043  1               Table11:						; Table 11 - Logical Relationships: 2nd
00C043  1               								; character(s) followed by MSB of routine address
00C043  1  4F           		.byte	"O"				; 'O' 1st char of 'OR'
00C044  1  41           		.byte	"A"				; 'A' 1st char of 'AND'
00C045  1  FE           T11end:	.byte	$FE				; $FE: end of table, return no match
00C046  1               ;
00C046  1               Table12:						; Table 12 - String or Integer followed by MSB of
00C046  1               								; routine address
00C046  1  24 C7        		.byte	"$",>INTCMP		; '$' INTCMP($C753)
00C048  1               ;
00C048  1  48 C9        T12H:	.byte	"H",>CH			; 'H' remainder of 'CH' CH($C9D2)
00C04A  1  45 4E C9     T12fN:	.byte	"EN",>LEN		; 'EN' remainder of 'LEN'($C9BD)
00C04D  1  4E 44 C7     T12ND1:	.byte	"ND",>LAND		; 'ND' remainder of 'LAND'($C714)
00C050  1  C9           T12a:	.byte	>HCONST			; >HCONST($C90A)
00C051  1  C9           T12b:	.byte	>IL_PAR			; >IL_PAR($C944)
00C052  1  C9           T12c:	.byte	>F_QEEK			; >F_QEEK($C94C)
00C053  1  C9           T12d:	.byte	>F_PEEK			; >F_PEEK($C94C)
00C054  1  4E 44 C9     T12ND2:	.byte	"ND",>RND		; 'ND' remainder of 'RND'($C986)
00C057  1  4F 50 C9     T12OP:	.byte	"OP",>TOPv		; 'OP' remainder of 'TOP'($C973)
00C05A  1  4F 55 4E 54  T12OUN:	.byte	"OUNT",>COUNT	; 'OUNT' remainder of 'COUNT'($C97A)
00C05E  1  C9           
00C05F  1  42 53 C9     T12fS:	.byte	"BS",>ABS		; 'BS' remainder of 'ABS($C902)
00C062  1  54 52 CF     T12TR:	.byte	"TR",>F_PTR		; 'TR' remainder of 'PTR' F_PTR($CF29)
00C065  1  58 54 CF     T12XT:	.byte	"XT",>EXT		; 'XT' remainder of 'EXT'($CF28)
00C068  1  45 54 CF     T12fT:	.byte	"ET",>GET		; 'ET remainder of 'GET'($CF66)
00C06B  1  47 45 54 CF  T12GET:	.byte	"GET",>BGET		; 'GET' remainder of 'BGET'($CF5B)
00C06F  1  49 4E CF     T12IN:	.byte	"IN",>FIN		; 'IN' remainder of 'FIN'($CFA6)
00C072  1  4F 55 54 CF  T12OUT:	.byte	"OUT",>FOUT		; 'OUT' remainder of 'FOUT'($CFA7)
00C076  1  C3           T12e:	.byte	>PSTROP			; >PSTROP($C390)
00C077  1  C3           T12f:	.byte	>PR_HEX			; >PR_HEX($C335)
00C078  1  52 49 4E 54  T12RIN:	.byte	"RINT"			; 'RINT' remainder of 'PRINT'
00C07C  1  C3           T12g:	.byte	>PRINT			; >PRINT($C334)
00C07D  1               ;
00C07D  1               Table13:						; Table 13 - Non-executable Basic Commands: 1st
00C07D  1               								; characters
00C07D  1  4E           		.byte	"N"				; 'N' 1st char of 'NEW'
00C07E  1  4C           		.byte	"L"				; 'L' 1st char of 'LIST','LOAD'
00C07F  1               ;
00C07F  1               Table14:						; Table 14 - Executable Basic Statements: 1st
00C07F  1               								; characters
00C07F  1  55           		.byte	"U"				; 'U' 1st char of 'UNTIL'
00C080  1  4E           		.byte	"N"				; 'N' 1st char of 'NEXT'
00C081  1  49           		.byte	"I"				; 'I' 1st char of 'IF','INPUT'
00C082  1  47           		.byte	"G"				; 'G' 1st char of 'GOTO','GOSUB'
00C083  1  52           		.byte	"R"				; 'R' 1st char of 'RETURN','REM','RUN'
00C084  1  46           		.byte	"F"				; 'F' 1st char of 'FOR'
00C085  1  21           		.byte	"!"				; '!' (pling)
00C086  1  3F           		.byte	"?"				; '?'
00C087  1  24           		.byte	"$"				; '$'
00C088  1  50           		.byte	"P"				; 'P' 1st char of 'PRINT','PTR','PUT'
00C089  1  44           		.byte	"D"				; 'D' 1st char of 'DO'
00C08A  1  4C           		.byte	"L"				; 'L' 1st char of 'LET','LINK'
00C08B  1  53           		.byte	"S"				; 'S' 1st char of 'SGET','SPUT','SHUT','SAVE'
00C08C  1  42           		.byte	"B"				; 'B' 1st char of 'BPUT'
00C08D  1  2A           		.byte	"*"				; '*' OS Call
00C08E  1  45           		.byte	"E"				; 'E' 1st char of 'END'
00C08F  1               .if ATOM=1
00C08F  1               T14a:	.byte	>WRARAY			; >WRARAY($B84B)
00C08F  1               .endif
00C08F  1               .if SYSTEM=1
00C08F  1  C5           T14a:	.byte	>NOSTAT			; >NOSTAT($C550)
00C090  1               .endif
00C090  1  41 56 45 CF  T14bVE:	.byte	"AVE",>SAVE		; 'AVE' remainder of 'SAVE' SAVE($CF0A)
00C094  1  45 57 C2     T14EW:	.byte	"EW",>NEW		; 'EW' remainder of 'NEW' NEW($C2AD)
00C097  1  4F CC        T14O:	.byte	"O",>DO			; 'O' remainder of 'DO'($CCF0)
00C099  1  45 54 C3     T14ET:	.byte	"ET",>LET		; 'ET remainder of 'LET'($C325)
00C09C  1  49 4E 4B C3  T14INK:	.byte	"INK",>LINK		; 'INK' remainder of 'LINK'($C3B2)
00C0A0  1  49 53 54 CA  T14IST:	.byte	"IST",>LIST		; 'IST remainder of 'LIST'($CA51)
00C0A4  1  4F 41 44 CE  T14OAD:	.byte	"OAD",>LOAD		; 'OAD'' remainder of 'LOAD'($CEED)
00C0A8  1  4E 54 49 4C  T14NTI:	.byte	"NTIL",>UNTIL	; 'NTIL' remainder of 'UNTIL'($CCD2)
00C0AC  1  CC           
00C0AD  1  45 58 54 CA  T14EXT:	.byte	"EXT",>NEXT		; 'EXT' remainder of 'NEXT'($CACD)
00C0B1  1  46 C5        T14F:	.byte	"F",>IF			; 'F' remainder of 'IF'($C566)
00C0B3  1  4E 50 55 54  T14NPU:	.byte	"NPUT"			; 'NPUT' remainder of 'INPUT'($CC81)
00C0B7  1  CC           T14b:	.byte	>INPUT			; >INPUT($CC81)
00C0B8  1  4F 53 55 42  T14OSU:	.byte	"OSUB",>GOSUB	; 'OSUB' remainder of 'GOSUB'($CBD2)
00C0BC  1  CB           
00C0BD  1  4F 54 4F CC  T14OTO:	.byte	"OTO",>GOTO		; 'OTO' remainder of 'GOTO'($CC05)
00C0C1  1  45 54 55 52  T14ETU:	.byte	"ETURN",>RETURN	; 'ETURN' remainder of 'RETURN'($CBEC)
00C0C5  1  4E CB        
00C0C7  1  45 4D C5     T14EM:	.byte	"EM",>REM		; 'EM' remainder of 'REM'($C575)
00C0CA  1               .if ATOM=1
00C0CA  1               T14UN:	.byte	"UN",>NEWRUN	; 'UN' remainder of 'RUN' (NEWRUN $B941)
00C0CA  1               .endif
00C0CA  1               .if SYSTEM=1
00C0CA  1  55 4E CE     T14UN:	.byte	"UN",>RUN		; 'UN' remainder of 'RUN'($CE83)
00C0CD  1               .endif
00C0CD  1  4F 52 CB     T14OR:	.byte	"OR",>FOR		; 'OR' remainder of 'FOR'($CB57)
00C0D0  1  4E 44 CD     T14ND:	.byte	"ND",>END		; 'ND' remainder of 'END'($CD98)
00C0D3  1  47 45 54 CF  T14GET:	.byte	"GET",>SGET		; 'GET' remainder of 'SGET'($CFE3)
00C0D7  1  50 55 54 CF  T14PU1:	.byte	"PUT",>SPUT		; 'PUT' remainder of 'SPUT' SPUT($CFC5)
00C0DB  1  48 55 54 CF  T14HUT:	.byte	"HUT",>SHUT		; 'HUT' remainder of 'SHUT'($CFB6)
00C0DF  1  50 55 54 CF  T14PU2:	.byte	"PUT",>BPUT		; 'PUT' remainder of 'BPUT' BPUT($CF8F)
00C0E3  1  54 52 CF     T14TR:	.byte	"TR",>PTR		; 'TR' remainder of 'PTR'($CF47)
00C0E6  1  55 54 CF     T14UT:	.byte	"UT",>PUT		; 'UT' remainder of 'PUT'($CF95)
00C0E9  1  C3           T14c:	.byte	>F_QOKE			; >F_QOKE($C3EE)
00C0EA  1  C4           T14d:	.byte	>F_POKE			; >F_POKE($C406)
00C0EB  1  CD           T14e:	.byte	>STREQU			; >STREQU($CD5C)
00C0EC  1  C4           T14f:	.byte	>OSCOM			; >OSCOM($C40F)
00C0ED  1               ;
00C0ED  1               Table15:						; Table 15 - Comma
00C0ED  1  2C           		.byte	","				; ','
00C0EE  1  FE           		.byte	$FE				; end of Table15, no match return
00C0EF  1               ;
00C0EF  1               Index1:							; Index 1
00C0EF  1  36           		.byte	<T10GT			; from Table 1 '<' to Table 10 '>'
00C0F0  1  3B           		.byte	<T10d			; from Table 1 '=' to Table 10 >ILTEQU
00C0F1  1  3C           		.byte	<T10EQ2			; from Table 1 '>' to Table 10 '='
00C0F2  1  C0           		.byte	$C0				;
00C0F3  1               ;
00C0F3  1  3F           		.byte	<T10f			; from Table 2 '-' to Table 10 >UMINUS
00C0F4  1  06           		.byte	<T2a			; from Table 2 '+' to Table 2 >UPLUS
00C0F5  1  DC           		.byte	<UPLUS			; from Table 2 end to <UPLUS
00C0F6  1               ;
00C0F6  1  50           		.byte	<T12a			; from Table 3 '£' to Table 12 >HCONST
00C0F7  1  51           		.byte	<T12b			; from Table 3 '(' to Table 12 >IL_PAR
00C0F8  1  52           		.byte	<T12c			; from Table 3 '!' to Table 12 >F_QEEK
00C0F9  1  53           		.byte	<T12d			; from Table 3 '?' to Table 12 >F_PEEK
00C0FA  1  54           		.byte	<T12ND2			; from Table 3 'R' to Table 12 'ND'
00C0FB  1  57           		.byte	<T12OP			; from Table 3 'T' to Table 12 'OP'
00C0FC  1  4A           		.byte	<T12fN			; from Table 3 'L' to Table 12 'EN'
00C0FD  1  5A           		.byte	<T12OUN			; from Table 3 'C' to Table 12 'OUNT'
00C0FE  1  5F           		.byte	<T12fS			; from Table 3 'A' to Table 12 'BS'
00C0FF  1  62           		.byte	<T12TR			; from Table 3 'P' to Table 12 'TR'
00C100  1  65           		.byte	<T12XT			; from Table 3 'E' to Table 12 'XT'
00C101  1  68           		.byte	<T12fT			; from Table 3 'G' to Table 12 'ET'
00C102  1  6B           		.byte	<T12GET			; from Table 3 'B' to Table 12 'GET'
00C103  1  6F           		.byte	<T12IN			; from Table 3 'F' to Table 12 'IN'
00C104  1               .if ATOM=1
00C104  1               		.byte	<RDARAY			; from Table 3 >RDARAY to <RDARAY
00C104  1               .endif
00C104  1               .if SYSTEM=1
00C104  1  24           		.byte	<NOFUNC			; from Table 3 >NOFUNC to <NOFUNC
00C105  1               .endif
00C105  1               ;
00C105  1  18           		.byte	<T4O			; from Table 4 'T' to Table 4 'O'
00C106  1  AC           		.byte	$AC				;
00C107  1  17           		.byte	<T4FF			; from Table 4 'O' to Table 4 $FF
00C108  1  81           		.byte	<TO				; from Table 4 to <TO
00C109  1               ;
00C109  1  1C           		.byte	<T5TEP			; from Table 5 'S' to Table 5 'TEP'
00C10A  1  BE           		.byte	<STEP_1			; from Table 5 to <STEP_1
00C10B  1  17           		.byte	<T4FF			; from Table 5 'T' to Table 4 $FF
00C10C  1  17           		.byte	<T4FF			; from Table 5 'E' to Table 4 $FF
00C10D  1  17           		.byte	<T4FF			; from Table 5 'P' to Table 4 $FF
00C10E  1  A2           		.byte	<STEP			; from Table 5 >STEP to <STEP
00C10F  1               ;
00C10F  1  22           		.byte	<T6HEN			; from Table 6 'T' to Table 6 'HEN'
00C110  1  1B           		.byte	<T5a			; from Table 6 >THEN to <THEN
00C111  1  17           		.byte	<T4FF			; from Table 6 'H' to Table 4 $FF
00C112  1  17           		.byte	<T4FF			; from Table 6 'E' to Table 4 $FF
00C113  1  17           		.byte	<T4FF			; from Table 6 'N' to Table 4 $FF
00C114  1  1B           		.byte	<T5a			; from Table 6 >THEN to <THEN
00C115  1               ;
00C115  1  29           		.byte	<T7b			; from Table 7 '"' to Table 7 >STRLIT
00C116  1  28           		.byte	<T7a			; from Table 7 '$' to Table 7 >STRVAR
00C117  1  B6           		.byte	<STRVAR			; from Table 7 '$' to <STRVAR
00C118  1  BF           		.byte	<STRLIT			; from Table 7 '"' to <STRLIT
00C119  1  B6           		.byte	<STRVAR			; from Table 8 '$' to <STRVAR
00C11A  1               ;
00C11A  1  2A           		.byte	<T7c			; from Table 8 '$' to Table 7 <INPSTR
00C11B  1  B7           		.byte	<T14b			; from Table 9 ',' to Table 14 <INPUT
00C11C  1               
00C11C  1  58           		.byte	<ENDCNT			; from Table 9 >ENDCNT to <ENDCNT
00C11D  1               ;
00C11D  1  76           		.byte	<T12e			; from Table 10 '$' to Table 10 >PSTROP
00C11E  1  77           		.byte	<T12f			; from Table 10 '&' to Table 10 >PR_HEX
00C11F  1  34           		.byte	<T10a			; from Table 10 ';' to Table 10 >PR_END
00C120  1  34           		.byte	<T10a			; from Table 10 CR to Table 10 >PR_END
00C121  1  7C           		.byte	<T12g			; from Table 10 ',' to Table 10 >PRINT
00C122  1  3F           		.byte	<PR_INT			; from Table 10 >PR_INT to <PR_INT
00C123  1  4A           		.byte	<PR_END			; from Table 10 >PR_END to <PR_END
00C124  1  78           		.byte	<RTN			; from Table 10 >RTN to <RTN
00C125  1  38           		.byte	<T10EQ1			; from Table 10 '>' to Table 10 <T10EQ1
00C126  1  6D           		.byte	<INEQUA			; from Table 10 >INEQU to <INEQUA
00C127  1  3A           		.byte	<T10c			; from Table 10 '=' to Table 10 <T10c
00C128  1  64           		.byte	<ILTEQU			; from Table 10 >ILTEQU to <ILTEQU
00C129  1  74           		.byte	<ILT			; from Table 10 >ILT to <ILT
00C12A  1  5B           		.byte	<IEQUAL			; from Table 10 >IEQUAL to <IEQUAL
00C12B  1  3E           		.byte	<T10e			; from Table 10 '=' to Table 10 <T10e
00C12C  1  7B           		.byte	<IGTEQU			; from Table 10 >IGTEQU to <IGTEQU
00C12D  1  82           		.byte	<IGT			; from Table 10 >IGT to <IGT
00C12E  1  C1           		.byte	<UMINUS			; from Table 10 >UMINUS to <UMINUS
00C12F  1  45           		.byte	<T11end			; from Table 10 'R' to Table 10 <T11end
00C130  1  22           		.byte	<LOR			; from Table 10 >LOR to <LOR
00C131  1  31           		.byte	<STRCMP			; from Table 10 >STRCMP to <STRCMP
00C132  1               ;
00C132  1  40           		.byte	<T10R			; from Table 11 'O' to Table 10 <T10R
00C133  1  4D           		.byte	<T12ND1			; from Table 11 'A' to Table 12 <T12ND1
00C134  1  4D           		.byte	$4D				;
00C135  1               ;
00C135  1  42           		.byte	<T10g			; from Table 12 '$' to Table 10 <STRCMP
00C136  1  53           		.byte	<INTCMP			; from Table 12 >INTCMP to <INTCMP
00C137  1  15           		.byte	<T3a			; from Table 12 'H' to Table 3 T3a
00C138  1  D2           		.byte	<CH				; from Table 12 >CH to <CH
00C139  1  15           		.byte	<T3a			; from Table 12 'E' to Table 3 T3a
00C13A  1  15           		.byte	<T3a			; from Table 12 'N' to Table 3 T3a
00C13B  1  BD           		.byte	<LEN			; from Table 12 >LEN to <LEN
00C13C  1  45           		.byte	<T11end			; from Table 12 'N' to Table 11 T11end
00C13D  1  45           		.byte	<T11end			; from Table 12 'D' to Table 11 T11end
00C13E  1  14           		.byte	<LAND			; from Table 12 >LAND to <LAND
00C13F  1  0A           		.byte	<HCONST			; from Table 12 >HCONST to <HCONST
00C140  1  44           		.byte	<IL_PAR			; from Table 12 >IL_PAR to <IL_PAR
00C141  1  5F           		.byte	<F_QEEK			; from Table 12 >F_QEEK to <F_QEEK
00C142  1  4C           		.byte	<F_PEEK			; from Table 12 >F_PEEK to <F_PEEK
00C143  1  15           		.byte	<T3a			; from Table 12 'N' to Table 3 T3a
00C144  1  15           		.byte	<T3a			; from Table 12 'D' to Table 3 T3a
00C145  1  86           		.byte	<RND			; from Table 12 'RND' to <RND
00C146  1  15           		.byte	<T3a			; from Table 12 'O' to Table 3 T3a
00C147  1  15           		.byte	<T3a			; from Table 12 'P' to Table 3 T3a
00C148  1  73           		.byte	<TOPv			; from Table 12 >TOPv to TOPv
00C149  1  48           		.byte	<T12H			; from Table 12 'O' to Table 12 'H'
00C14A  1  15           		.byte	<T3a			; from Table 12 'U' to Table 3 T3a
00C14B  1  15           		.byte	<T3a			; from Table 12 'N' to Table 3 T3a
00C14C  1  15           		.byte	<T3a			; from Table 12 'T' to Table 3 T3a
00C14D  1  7A           		.byte	<COUNT			; from Table 12 >COUNT to <COUNT
00C14E  1  15           		.byte	<T3a			; from Table 12 'B' to Table 3 T3a
00C14F  1  15           		.byte	<T3a			; from Table 12 'S' to Table 3 T3a
00C150  1  02           		.byte	<ABS			; from Table 12 >ABS to <ABS
00C151  1  15           		.byte	<T3a			; from Table 12 'T' to Table 3 T3a
00C152  1  15           		.byte	<T3a			; from Table 12 'R' to Table 3 T3a
00C153  1  29           		.byte	<F_PTR			; from Table 12 >PTR to <F_PTR
00C154  1  15           		.byte	<T3a			; from Table 12 'X' to Table 3 T3a
00C155  1  15           		.byte	<T3a			; from Table 12 'T' to Table 3 T3a
00C156  1  28           		.byte	<EXT			; from Table 12 >EXT to <EXT
00C157  1  15           		.byte	<T3a			; from Table 12 'E' to Table 3 T3a
00C158  1  15           		.byte	<T3a			; from Table 12 'T' to Table 3 T3a
00C159  1  66           		.byte	<GET			; from Table 12 >GET to <GET
00C15A  1  15           		.byte	<T3a			; from Table 12 'G' to Table 3 T3a
00C15B  1  15           		.byte	<T3a			; from Table 12 'E' to Table 3 T3a
00C15C  1  15           		.byte	<T3a			; from Table 12 'T' to Table 3 T3a
00C15D  1  5B           		.byte	<BGET			; from Table 12 >BGET to <BGET
00C15E  1  72           		.byte	<T12OUT			; from Table 12 'I' to Table 12 'OUT'
00C15F  1  15           		.byte	<T3a			; from Table 12 'N' to Table 3 T3a
00C160  1  A6           		.byte	<FIN			; from Table 12 >FIN to <FIN
00C161  1  15           		.byte	<T3a			; from Table 12 'O' to Table 3 T3a
00C162  1  15           		.byte	<T3a			; from Table 12 'U' to Table 3 T3a
00C163  1  15           		.byte	<T3a			; from Table 12 'T' to Table 3 T3a
00C164  1  A7           		.byte	<FOUT			; from Table 12 >FOUT to <FOUT
00C165  1  90           		.byte	<PSTROP			; from Table 12 >PSTROP to <PSTROP
00C166  1  35           		.byte	<PR_HEX			; from Table 12 >PR_HEX to <PR_HEX
00C167  1  E3           		.byte	<T14TR			; from Table 12 'R' to Table 14 'TR'
00C168  1  8F           		.byte	<T14a			; from Table 12 'I' to Table 14 T14a
00C169  1  8F           		.byte	<T14a			; from Table 12 'N' to Table 14 T14a
00C16A  1  8F           		.byte	<T14a			; from Table 12 'T' to Table 14 T14a
00C16B  1  34           		.byte	<PRINT			; from Table 12 >PRINT to <PRINT
00C16C  1               ;
00C16C  1  94           		.byte	<T14EW			; from Table 13 'N' to Table 14 'EW'
00C16D  1  A0           		.byte	<T14IST			; from Table 13 'L' to Table 14 'IST'
00C16E  1               ;
00C16E  1  A8           		.byte	<T14NTI			; from Table 14 'U' to Table 14 'NTIL'
00C16F  1  AD           		.byte	<T14EXT			; from Table 14 'N' to Table 14 'EXT'
00C170  1  B1           		.byte	<T14F			; from Table 14 'I' to Table 14 'F'
00C171  1  BD           		.byte	<T14OTO			; from Table 14 'G' to Table 14 'OTO'
00C172  1  C1           		.byte	<T14ETU			; from Table 14 'R' to Table 14 'ETURN'
00C173  1  CD           		.byte	<T14OR			; from Table 14 'F' to Table 14 'OR'
00C174  1  E9           		.byte	<T14c			; from Table 14 '!' to Table 14 T14c
00C175  1  EA           		.byte	<T14d			; from Table 14 '?' to Table 14 T14d
00C176  1  EB           		.byte	<T14e			; from Table 14 '$' to Table 14 T14e
00C177  1  78           		.byte	<T12RIN			; from Table 14 'P' to Table 12 'RINT'
00C178  1  97           		.byte	<T14O			; from Table 14 'D' to Table 14 'O'
00C179  1  99           		.byte	<T14ET			; from Table 14 'L' to Table 14 'ET'
00C17A  1  D3           		.byte	<T14GET			; from Table 14 'S' to Table 14 'GET'
00C17B  1  DF           		.byte	<T14PU2			; from Table 14 'B' to Table 14 'PUT'
00C17C  1  EC           		.byte	<T14f			; from Table 14 '*' to Table 14 T14f
00C17D  1  D0           		.byte	<T14ND			; from Table 14 'E' to Table 14 'ND'
00C17E  1               .if ATOM=1
00C17E  1               		.byte	<WRARAY			; from Table 14 >WRARAY to <WRARAY
00C17E  1               .endif
00C17E  1               .if SYSTEM=1
00C17E  1  50           		.byte	<NOSTAT			; from Table 14 >NOSTAT to >NOSTAT
00C17F  1               .endif
00C17F  1  8F           		.byte	<T14a			; from Table 14 'A' to Table 14 T14a
00C180  1  8F           		.byte	<T14a			; from Table 14 'V' to Table 14 T14a
00C181  1  8F           		.byte	<T14a			; from Table 14 'E' to Table 14 T14a
00C182  1  0A           		.byte	<SAVE			; from Table 14 >SAVE to <SAVE
00C183  1  8F           		.byte	<T14a			; from Table 14 'E' to Table 14 T14a
00C184  1  AD           		.byte	<NEW			; from Table 14 'W' to <NEW
00C185  1  AD           		.byte	<NEW			; from Table 14 >NEW to <NEW
00C186  1  8F           		.byte	<T14a			; from Table 14 'O' to Table 14 T14A
00C187  1  F0           		.byte	<DO				; from Table 14 >DO to <DO
00C188  1  9C           		.byte	<T14INK			; from Table 14 'E' to Table 14 'INK'
00C189  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C18A  1  25           		.byte	<LET			; from Table 14 >LET to <LET
00C18B  1  8F           		.byte	<T14a			; from Table 14 'I' to Table 14 T14a
00C18C  1  8F           		.byte	<T14a			; from Table 14 'N' to Table 14 T14A
00C18D  1  8F           		.byte	<T14a			; from Table 14 'K' to Table 14 T14a
00C18E  1  B2           		.byte	<LINK			; from Table 14 >LINK to <LINK
00C18F  1  A4           		.byte	<T14OAD			; from Table 14 'I' to Table 14 'OAD'
00C190  1  9C           		.byte	<T14INK			; from Table 14 'S' to Table 14 'INK'
00C191  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C192  1  51           		.byte	<LIST			; from Table 14 >LIST to <LIST
00C193  1  99           		.byte	<T14ET			; from Table 14 'O' to Table 14 'ET'
00C194  1  8F           		.byte	<T14a			; from Table 14 'A' to Table 14 T14a
00C195  1  8F           		.byte	<T14a			; from Table 14 'D' to Table 14 T14a
00C196  1  ED           		.byte	<LOAD			; from Table 14 >LOAD to <LOAD
00C197  1  8F           		.byte	<T14a			; from Table 14 'N' to Table 14 T14a
00C198  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C199  1  8F           		.byte	<T14a			; from Table 14 'I' to Table 14 T14a
00C19A  1  8F           		.byte	<T14a			; from Table 14 'L' to Table 14 T14a
00C19B  1  D2           		.byte	<UNTIL			; from Table 14 >UNTIL to <UNTIL
00C19C  1  8F           		.byte	<T14a			; from Table 14 'E' to Table 14 T14a
00C19D  1  8F           		.byte	<T14a			; from Table 14 'X' to Table 14 T14a
00C19E  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C19F  1  CD           		.byte	<NEXT			; from Table 14 >EXT to <NEXT
00C1A0  1  B3           		.byte	<T14NPU			; from Table 14 'F' to Table 14 'NPUT'
00C1A1  1  66           		.byte	<IF				; from Table 14 >IF to <IF
00C1A2  1  8F           		.byte	<T14a			; from Table 14 'N' to Table 14 T14a
00C1A3  1  8F           		.byte	<T14a			; from Table 14 'P' to Table 14 T14a
00C1A4  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1A5  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C1A6  1  81           		.byte	<INPUT			; from Table 14 >INPUT to INPUT
00C1A7  1  8F           		.byte	<T14a			; from Table 14 'O' to Table 14 T14a
00C1A8  1  8F           		.byte	<T14a			; from Table 14 'S' to Table 14 T14a
00C1A9  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1AA  1  8F           		.byte	<T14a			; from Table 14 'B' to Table 14 T14a
00C1AB  1  D2           		.byte	<GOSUB			; from Table 14 >GOSUB to <GOSUB
00C1AC  1  8F           		.byte	<T14a			; from Table 14 'O' to Table 14 T14a
00C1AD  1  B8           		.byte	<T14OSU			; from Table 14 'T' to Table 14 'OSUB'
00C1AE  1  8F           		.byte	<T14a			; from Table 14 'O' to Table 14 T14a
00C1AF  1  05           		.byte	<GOTO			; from Table 14 >GOTO to <GOTO
00C1B0  1  CA           		.byte	<T14UN			; from Table 14 'E' to Table 14 'UN'
00C1B1  1  C7           		.byte	<T14EM			; from Table 14 'T' to Table 14 'EM'
00C1B2  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1B3  1  8F           		.byte	<T14a			; from Table 14 'R' to Table 14 T14a
00C1B4  1  8F           		.byte	<T14a			; from Table 14 'N' to Table 14 T14a
00C1B5  1  EC           		.byte	<RETURN			; from Table 14 >RETURN to <RETURN
00C1B6  1  8F           		.byte	<T14a			; from Table 14 'E' to Table 14 T14a
00C1B7  1  8F           		.byte	<T14a			; from Table 14 'M' to Table 14 T14a
00C1B8  1  75           		.byte	<REM			; from Table 14 >REM to <REM
00C1B9  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1BA  1  8F           		.byte	<T14a			; from Table 14 'N' to Table 14 T14a
00C1BB  1               .if ATOM=1
00C1BB  1               		.byte	<NEWRUN			; from Table 14 >NEWRUN to <NEWRUN
00C1BB  1               .endif
00C1BB  1               .if SYSTEM=1
00C1BB  1  83           		.byte	<RUN			; from Table 14 >RUN to <RUN
00C1BC  1               .endif
00C1BC  1  8F           		.byte	<T14a			; from Table 14 'O' to Table 14 T14a
00C1BD  1  8F           		.byte	<T14a			; from Table 14 'R' to Table 14 T14a
00C1BE  1  57           		.byte	<FOR			; from Table 14 >FOR to <FOR
00C1BF  1  8F           		.byte	<T14a			; from Table 14 'N' to Table 14 T14a
00C1C0  1  8F           		.byte	<T14a			; from Table 14 'D' to Table 14 T14a
00C1C1  1  98           		.byte	<END			; from Table 14 >END to <END
00C1C2  1  D7           		.byte	<T14PU1			; from Table 14 'G' to Table 14 'PUT'
00C1C3  1  8F           		.byte	<T14a			; from Table 14 'E' to Table 14 T14a
00C1C4  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C1C5  1  E3           		.byte	<SGET			; from Table 14 >SGET to <SGET
00C1C6  1  DB           		.byte	<T14HUT			; from Table 14 'P' to Table 14 'HUT'
00C1C7  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1C8  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C1C9  1  C5           		.byte	<SPUT			; from Table 14 >SPUT to <SPUT
00C1CA  1  90           		.byte	<T14bVE			; from Table 14 'H' to Table 14 'AVE'
00C1CB  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1CC  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C1CD  1  B6           		.byte	<SHUT			; from Table 14 >SHUT to <SHUT
00C1CE  1  8F           		.byte	<T14a			; from Table 14 'P' to Table 14 T14a
00C1CF  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1D0  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C1D1  1  8F           		.byte	<BPUT			; from Table 14 >BPUT to <BPUT
00C1D2  1  E6           		.byte	<T14UT			; from Table 14 'T' to Table 14 'UT'
00C1D3  1  8F           		.byte	<T14a			; from Table 14 'R' to Table 14 T14a
00C1D4  1  47           		.byte	<PTR			; from Table 14 >PTR to <PTR
00C1D5  1  8F           		.byte	<T14a			; from Table 14 'U' to Table 14 T14a
00C1D6  1  8F           		.byte	<T14a			; from Table 14 'T' to Table 14 T14a
00C1D7  1  95           		.byte	<PUT			; from Table 14 >PUT to <PUT
00C1D8  1  EE           		.byte	<F_QOKE			; from Table 14 >F_QOKE to <F_QOKE
00C1D9  1  06           		.byte	<F_POKE			; from Table 14 F_POKE to <F_POKE
00C1DA  1  5C           		.byte	<STREQU			; from Table 14 >STREQU to <STREQU
00C1DB  1  0F           		.byte	<OSCOM			; from Table 14 >OSCOM to <OSCOM
00C1DC  1               ;
00C1DC  1  35           		.byte	<T10b			; from Table 15 ',' to Table 10 T10b
00C1DD  1               ;
00C1DD  1               								; Symbol Tables
00C1DD  1               								;
00C1DD  1               STable1:						; Symbol Table 1 - Low Precedence Operators
00C1DD  1  2D           		.byte	"-"				; '-' ISUB
00C1DE  1  2B           		.byte	"+"				; '+' IADD
00C1DF  1  7C           		.byte	"|"				; '|' IOR
00C1E0  1  3A           		.byte	":"				; '|' IEOR
00C1E1  1  FE           		.byte	$FE				; end of table
00C1E2  1               ;
00C1E2  1               STable2:						; Symbol Table 2 - High Precedence Operators
00C1E2  1  2A           		.byte	"*"				; '*' IMULT
00C1E3  1  2F           		.byte	"/"				; '/' IDIV
00C1E4  1  25           		.byte	"%"				; '%' IMOD
00C1E5  1  21           		.byte	"!"				; '!' O_QEEK
00C1E6  1  3F           		.byte	"?"				; '?' O_PEEK
00C1E7  1  26           		.byte	"&"				; '&' IAND
00C1E8  1  FE           		.byte	$FE				; end of table
00C1E9  1               ;
00C1E9  1               STable3:						; Symbol Table 3 - Right Parenthesis
00C1E9  1  29           		.byte	")"				; ')' RTN
00C1EA  1  FF           		.byte	$FF				; end of table
00C1EB  1               ;
00C1EB  1               STable4:						; Symbol Table 4
00C1EB  1  3D           		.byte	"="				; '=' RTN
00C1EC  1  FF           		.byte	$FF				; end of table
00C1ED  1               ;
00C1ED  1               STable5:						; Symbol Table 5
00C1ED  1  21           		.byte	"!"				; '!' F_QOKE
00C1EE  1  3F           		.byte	"?"				; '?' F_POKE
00C1EF  1  24           		.byte	"$"				; '$' STREQU
00C1F0  1  FF           		.byte	$FF				; end of table
00C1F1  1               ;
00C1F1  1               STable6:						; Symbol Table 6
00C1F1  1  3D           		.byte	"="				; '=' LETEQU
00C1F2  1  21           		.byte	"!"				; '!' O_QOKE
00C1F3  1  3F           		.byte	"?"				; '?' O_POKE
00C1F4  1  FF           		.byte	$FF				; end of table
00C1F5  1               ;
00C1F5  1               STable7:						; Symbol Table 7 - PRINT Quotes
00C1F5  1  27           		.byte	"'"				; "'" PRCRLF
00C1F6  1  22           		.byte	$22				; '"' PR_STR
00C1F7  1  FE           		.byte	$FE				; end of table
00C1F8  1               ;
00C1F8  1               SymLSB:							; Table of Symbol Routine LSB's
00C1F8  1  B7           		.byte	<ISUB			; ($C7B7)
00C1F9  1  9A           		.byte	<IADD			; ($C79A)
00C1FA  1  D3           		.byte	<IOR			; ($C7D3)
00C1FB  1  EF           		.byte	<IEOR			; ($C7EF)
00C1FC  1  EF           		.byte	<IEOR
00C1FD  1  13           		.byte	<IMULT			; ($C813)
00C1FE  1  5E           		.byte	<IDIV			; ($C85E)
00C1FF  1  70           		.byte	<IMOD			; ($C870)
00C200  1  B3           		.byte	<O_QEEK			; ($C8B3)
00C201  1  9C           		.byte	<O_PEEK			; ($C89C)
00C202  1  7B           		.byte	<IAND			; ($C87B)
00C203  1  7B           		.byte	<IAND
00C204  1  78           		.byte	<RTN			; ($C278)
00C205  1  78           		.byte	<RTN
00C206  1  78           		.byte	<RTN			; ($C278)
00C207  1  78           		.byte	<RTN
00C208  1  EE           		.byte	<F_QOKE			; ($C3EE)
00C209  1  06           		.byte	<F_POKE			; ($C406)
00C20A  1  5C           		.byte	<STREQU			; ($CD5C)
00C20B  1  5C           		.byte	<STREQU
00C20C  1  E5           		.byte	<LETEQU			; ($C3E5)
00C20D  1  75           		.byte	<O_QOKE			; ($CD75)
00C20E  1  7B           		.byte	<O_POKE			; ($CD7B)
00C20F  1  7B           		.byte	<O_POKE
00C210  1  6F           		.byte	<PRCRLF			; ($C36F)
00C211  1  7A           		.byte	<PR_STR			; ($C37A)
00C212  1               ;
00C212  1               SymMSB:							; Table of Symbol Routine MSB's
00C212  1  C7           		.byte	>ISUB
00C213  1  C7           		.byte	>IADD
00C214  1  C7           		.byte	>IOR
00C215  1  C7           		.byte	>IEOR
00C216  1  C7           		.byte	>IEOR
00C217  1  C8           		.byte	>IMULT
00C218  1  C8           		.byte	>IDIV
00C219  1  C8           		.byte	>IMOD
00C21A  1  C8           		.byte	>O_QEEK
00C21B  1  C8           		.byte	>O_PEEK
00C21C  1  C8           		.byte 	>IAND
00C21D  1  C8           		.byte	>IAND
00C21E  1  C2           		.byte	>RTN
00C21F  1  C2           		.byte	>RTN
00C220  1  C2           		.byte	>RTN
00C221  1  C2           		.byte	>RTN
00C222  1  C3           		.byte	>F_QOKE
00C223  1  C4           		.byte	>F_POKE
00C224  1  CD           		.byte	>STREQU
00C225  1  CD           		.byte	>STREQU
00C226  1  C3           		.byte	>LETEQU
00C227  1  CD           		.byte	>O_QOKE
00C228  1  CD           		.byte	>O_POKE
00C229  1  CD           		.byte	>O_POKE
00C22A  1  C3           		.byte	>PRCRLF
00C22B  1  C3           		.byte	>PR_STR
00C22C  1               ;
00C22C  1               							; Get File Handle and Parse Comma
00C22C  1  20 3E CF     HDLCOM: jsr		GETHDL		; get file handle
00C22F  1  84 0F        		sty		handle		; and save it, then
00C231  1               
00C231  1               							; Parse Comma
00C231  1  A2 ED        PARCOM: ldx		#<Table15	; point to table and
00C233  1               
00C233  1  A4 03        PARSE1: ldy		index		; PARSE STATEMENT/COMMAND FOR KEYWORD
00C235  1  88           		dey					; retrieve text pointer index
00C236  1  C8           nospca: iny
00C237  1  B1 05        		lda		(txtptr),y	; read text character
00C239  1  C9 20        		cmp		#SPACE		; ignore leading spaces
00C23B  1  F0 F9        		beq		nospca
00C23D  1  84 5E        		sty		bwork+$C	; save index
00C23F  1  85 52        		sta		bwork		; and character
00C241  1  E8           p1srch: inx
00C242  1  BD FF BF     		lda		Table1-1,x	; read table
00C245  1  30 24        		bmi		tstjmp		; end ?
00C247  1  C5 52        		cmp		bwork		; compare with 1st text character
00C249  1  D0 F6        		bne		p1srch		; keep going until match or end found
00C24B  1  BD EE C0     ldindx: lda		Index1-1,x	; match found - load corresponding index
00C24E  1  AA           		tax
00C24F  1  E8           no_dif: inx
00C250  1  C8           		iny
00C251  1  BD FF BF     		lda		Table1-1,x	; read remainder of data
00C254  1  30 15        		bmi		tstjmp		; end ?
00C256  1  D1 05        		cmp		(txtptr),y	; compare with rest of text
00C258  1  F0 F5        		beq		no_dif		; until difference or end found
00C25A  1  B1 05        		lda		(txtptr),y	; difference found
00C25C  1  C9 2E        		cmp		#'.'		; is statement/command abbreviated ?
00C25E  1  F0 04        		beq		dot			; yes - OK
00C260  1  A4 5E        		ldy		bwork+$C	; no - branch always
00C262  1  10 E7        		bpl		ldindx		; to get next index
00C264  1  E8           dot: 	inx					; find end of statement/command data
00C265  1  BD FF BF     		lda		Table1-1,x
00C268  1  10 FA        		bpl		dot
00C26A  1  C8           		iny
00C26B  1  C9 FE        tstjmp: cmp		#$FE		; what do we do at end ?
00C26D  1  B0 3B        		bcs		tsterr		; branch if $FE or $FF
00C26F  1  85 53        		sta		bwork+1		; otherwise jump to specified address
00C271  1  BD EE C0     		lda		Index1-1,x
00C274  1  90 29        		bcc		do_jmp		; branch always to jump
00C276  1               
00C276  1  A6 04        prsend: ldx		accptr		; retrieve accumulator stack pointer
00C278  1  60           RTN:	rts					; and return carry set
00C279  1               
00C279  1  A2 0E        PAREQU: ldx		#<STable4-<STable1	; Parse Equals
00C27B  1               
00C27B  1  A4 03        PARSE2: ldy		index		; Parse Statement For Special Symbols
00C27D  1  88           		dey					; retrieve text pointer index
00C27E  1  C8           nospcb: iny
00C27F  1  B1 05        		lda		(txtptr),y	; read text character
00C281  1  C9 20        		cmp		#SPACE		; ignore leading spaces
00C283  1  F0 F9        		beq		nospcb
00C285  1  DD DD C1     		cmp		STable1,x	; compare with table of special symbols
00C288  1  F0 0C        		beq		fndsym		; match ?
00C28A  1  85 52        		sta		bwork		; save text character
00C28C  1  E8           p2srch: inx
00C28D  1  BD DD C1     		lda		STable1,x	; read next symbol
00C290  1  30 16        		bmi		tabend		; if negative - end of table
00C292  1  C5 52        		cmp		bwork		; otherwise compare with text character
00C294  1  D0 F6        		bne		p2srch		; and keep going until match or end found
00C296  1  BD 12 C2     fndsym: lda		SymMSB,x	; set-up address of symbol routine
00C299  1  85 53        		sta		bwork+1
00C29B  1  BD F8 C1     		lda		SymLSB,x
00C29E  1  C8           		iny
00C29F  1  85 52        do_jmp: sta		bwork
00C2A1  1  84 03        		sty		index		; save text pointer index
00C2A3  1  A6 04        		ldx		accptr		; retrieve accumulator stack pointer
00C2A5  1  6C 52 00     jmpwrk: jmp		(bwork)		; jump to routine
00C2A8  1  C9 FE        tabend: cmp		#$FE		; what do we do at end of table ?
00C2AA  1  F0 CA        tsterr: beq		prsend		; return, carry set
00C2AC  1  00           err174: brk					; Error 174 'Significant item missing or malformed'
00C2AD  1               
00C2AD  1               							; NEW Command
00C2AD  1  20 E4 C4     NEW:	jsr		ENDTST		;
00C2B0  1  D0 04        		bne		BASIC2		; warm start BASIC
00C2B2  1               
00C2B2  1               							; ***** BASIC ENTRY POINT FROM OS ******
00C2B2  1  A9 30        BASIC1: lda		#>txtspc
00C2B4  1  85 12        		sta		txtpag		; set-up pointer to bottom page of text space, usually
00C2B6  1               							; page $3 i.e. $3000
00C2B6  1  A9 0D        BASIC2: lda		#CR
00C2B8  1  A4 12        		ldy		txtpag		; set-up TOP to point at bottom of text area
00C2BA  1  84 0E        		sty		TOP+1
00C2BC  1  A0 00        		ldy		#$00
00C2BE  1  84 0D        		sty		TOP
00C2C0  1  91 0D        		sta		(TOP),y		; and initialise text space to CR,$FF
00C2C2  1  A9 FF        		lda		#$FF
00C2C4  1  C8           		iny
00C2C5  1  91 0D        		sta		(TOP),y
00C2C7  1  C8           		iny					; and increment TOP to free space
00C2C8  1  84 0D        		sty		TOP
00C2CA  1               .if ATOM=1
00C2CA  1               		lda		#08			; set PRINT field width to 8
00C2CA  1               .endif
00C2CA  1               .if SYSTEM=1
00C2CA  1  A9 05        		lda		#05			; set PRINT field width to 5
00C2CC  1               .endif
00C2CC  1  8D 21 03     		sta		pwidth
00C2CF  1  A9 3E        nxtcom: lda		#'>'		; BASIC prompt
00C2D1  1  D8           		cld
00C2D2  1  20 0F CD     		jsr		BUFFIN		; read line of input from input channel
00C2D5  1  A2 01        		ldx		#$01		; set-up text pointer
00C2D7  1  86 06        		stx		txtptr+1
00C2D9  1  CA           		dex
00C2DA  1  86 05        		stx		txtptr
00C2DC  1  86 01        		stx		baslin		; set BASIC linenumber to 0000
00C2DE  1  86 02        		stx		baslin+1
00C2E0  1  A9 D8        		lda		#<ERROR		; point BRK vector at error handler, usually $C9D8
00C2E2  1  8D 02 02     		sta		BRKVEC
00C2E5  1  A9 C9        		lda		#>ERROR
00C2E7  1  8D 03 02     		sta		BRKVEC+1
00C2EA  1  A9 E7        		lda		#<errtxt	; point error handler at error text, usually $C9E7
00C2EC  1  85 10        		sta		errptr
00C2EE  1  A9 C9        		lda		#>errtxt
00C2F0  1  85 11        		sta		errptr+1
00C2F2  1  A2 FF        interp: ldx		#$FF		; reset processor stack
00C2F4  1  9A           		txs
00C2F5  1  A9 00        		lda		#$00
00C2F7  1  85 04        		sta		accptr		; reset accumulator stack pointer
00C2F9  1  85 03        		sta		index		; reset text pointer index
00C2FB  1  85 15        		sta		forcnt		; reset FOR loop counter
00C2FD  1  85 13        		sta		do_cnt		; reset DO loop counter
00C2FF  1  85 14        		sta		goscnt		; reset GOSUB counter
00C301  1  A2 34        		ldx		#$34		; 26 x 2
00C303  1  9D 8C 03     clrlab: sta		label-1,x	; clear label address
00C306  1  CA           		dex
00C307  1  D0 FA        		bne		clrlab		; all 26
00C309  1  20 34 C4     		jsr		TST_IV		; was an expression entered ?
00C30C  1  B0 21        		bcs		evalet		; yes - evaluate it
00C30E  1  20 6A C4     		jsr		ICONST		; does input start with a decimal linenumber
00C311  1  90 03        		bcc		bascom		; no - try commands
00C313  1  4C C9 CD     		jmp		NEWTXT		; yes - go to amend text
00C316  1  A2 7D        bascom: ldx		#<Table13
00C318  1  4C 33 C2     		jmp		PARSE1		; parse BASIC statements and commands
00C31B  1               
00C31B  1               							; THEN Statement
00C31B  1  20 34 C4     THEN:	jsr		TST_IV		; was an expression entered ?
00C31E  1  B0 0F        		bcs		evalet		; yes - evaluate it
00C320  1  A2 7F        		ldx		#<Table14	; no - parse executable
00C322  1  4C 33 C2     		jmp		PARSE1		; BASIC statements and commands
00C325  1               
00C325  1               							; LET Statement
00C325  1  20 34 C4     LET:	jsr		TST_IV		; was an expression entered ?
00C328  1  B0 05        		bcs		evalet		; yes - evaluate it
00C32A  1  A2 10        		ldx		#<STable5-<STable1 ; no - try statement type operators
00C32C  1  4C 7B C2     		jmp		PARSE2		; parse !?$ - QOKE, POKE and strings
00C32F  1  A2 14        evalet: ldx		#<STable6-<STable1 ; parse part after variable
00C331  1  4C 7B C2     		jmp		PARSE2		; =!? - equals and offset operators
00C334  1               
00C334  1               							; PRINT Statement
00C334  1  38           PRINT:	sec					; set base to decimal to start with
00C335  1  66 0F        PR_HEX: ror		handle		;
00C337  1  20 72 C3     nxt_pr: jsr		QUOTES		; print string literals and CRLFs
00C33A  1  A2 2E        		ldx		#<Table10	; look for remainder of special characters
00C33C  1  4C 33 C2     		jmp		PARSE1		; parse $&;CR,
00C33F  1  20 8B C7     PR_INT: jsr		IEVALU		; Print Integer Expression Result
00C342  1  20 CB C3     		jsr		MOVA_W
00C345  1  A5 0F        		lda		handle		; what base are we printing in ?
00C347  1  30 21        		bmi		prdeci
00C349  1  A2 00        		ldx		#$00		; hexadecimal
00C34B  1  86 27        		stx		acc2+2		; set value positive
00C34D  1  A0 00        		ldy		#$00
00C34F  1  B9 52 00     movhex: lda		bwork,y	; move value to numeric print buffer
00C352  1  48           		pha
00C353  1  29 0F        		and		#$0F
00C355  1  95 45        		sta		acc4+2,x
00C357  1  68           		pla
00C358  1  4A           		lsr		a
00C359  1  4A           		lsr		a
00C35A  1  4A           		lsr		a
00C35B  1  4A           		lsr		a
00C35C  1  E8           		inx
00C35D  1  95 45        		sta		acc4+2,x
00C35F  1  E8           		inx
00C360  1  C8           		iny
00C361  1  C0 04        		cpy		#$04
00C363  1  90 EA        		bcc		movhex
00C365  1  20 C8 C5     		jsr		PR_NUM		; output hex value
00C368  1  30 CD        		bmi		nxt_pr		; and continue printing
00C36A  1  20 89 C5     prdeci: jsr		PR_ACC		; print accumulator in decimal
00C36D  1  30 C8        		bmi		nxt_pr		; and continue printing
00C36F  1               
00C36F  1  20 54 CD     PRCRLF: jsr		CRLF		; single quote found output CRLF
00C372  1  A2 18        QUOTES: ldx		#<STable7-<STable1 ; Print String Literals and CRLF
00C374  1  4C 7B C2     		jmp		PARSE2		; parse '"
00C377  1               
00C377  1  20 4C CA     wr_str: jsr		WRCH
00C37A  1               							; Print Literal String
00C37A  1  B1 05        PR_STR: lda		(txtptr),y	; read string
00C37C  1  C8           		iny
00C37D  1  C9 0D        		cmp		#CR			; end of line, CR ?
00C37F  1  F0 1C        		beq		err159+1	; Error 159 'Unmatched quotes in PRINT or INPUT'
00C381  1  84 03        		sty		index
00C383  1  C9 22        		cmp		#'"'		; end of string ?
00C385  1  D0 F0        		bne		wr_str		; no output character
00C387  1  B1 05        		lda		(txtptr),y	; check for printing of double quotes
00C389  1  C9 22        		cmp		#'"'
00C38B  1  D0 E5        		bne		QUOTES		; no -continue printing
00C38D  1  C8           		iny
00C38E  1  B0 E7        		bcs		wr_str		; yes - continue with string
00C390  1               
00C390  1               							; Print - String Operator $
00C390  1  20 8B C7     PSTROP: jsr		IEVALU		; get string operand
00C393  1  20 CB C3     		jsr		MOVA_W		; and move to bwork
00C396  1  05 54        		ora		bwork+2
00C398  1  05 53        		ora		bwork+1		; string variable or ASCII value ?
00C39A  1  F0 0E        		beq		ascii
00C39C  1  A0 00        err159: ldy		#$00		; string address in bwork
00C39E  1  B1 52        p_str:	lda		(bwork),y	; read string
00C3A0  1  C9 0D        		cmp		#CR
00C3A2  1  F0 93        		beq		nxt_pr		; return to print on CR
00C3A4  1  20 4C CA     		jsr		WRCH		; output character
00C3A7  1  C8           		iny
00C3A8  1  D0 F4        		bne		p_str		; keep going
00C3AA  1  A5 52        ascii:	lda		bwork		; string ASCII code in bwork
00C3AC  1  20 4C CA     		jsr		WRCH		; output character
00C3AF  1  4C 37 C3     		jmp		nxt_pr		; and continue printing
00C3B2  1               
00C3B2  1               							; LINK Statement
00C3B2  1  20 C8 C3     LINK:	jsr		GETI_W		; get address
00C3B5  1  20 E4 C4     		jsr		ENDTST		; and check for end of statement
00C3B8  1  AD 22 03     		lda		intega		; load A with integer variable A
00C3BB  1  AE 39 03     		ldx		intega+$17	; load X with integer variable X
00C3BE  1  AC 3A 03     		ldy		intega+$18	; load Y with integer variable Y
00C3C1  1  20 A5 C2     		jsr		jmpwrk		; jump to user routine
00C3C4  1  D8           		cld					; on return reset to binary mode
00C3C5  1  4C 5B C5     		jmp		cont_x		; and continue execution
00C3C8  1               
00C3C8  1               							; Read Integer Into Workspace
00C3C8  1  20 BC C8     GETI_W: jsr		GETINT
00C3CB  1  A0 52        MOVA_W: ldy		#bwork		; point Y at Workspace
00C3CD  1  CA           MOVA_Y: dex					; decrement accumulator stack pointer
00C3CE  1  86 04        		stx		accptr		; and save
00C3D0  1  B5 16        		lda		acc1,x		; get first byte of accumulator
00C3D2  1  99 00 00     		sta		$00,y		; write to first byte of Workspace
00C3D5  1  B5 25        		lda		acc2,x		; get second byte of accumulator
00C3D7  1  99 01 00     		sta		$01,y		; write to second byte of Workspace
00C3DA  1  B5 34        		lda		acc3,x		; get third byte of accumulator
00C3DC  1  99 02 00     		sta		$02,y		; write to third byte of Workspace
00C3DF  1  B5 43        		lda		acc4,x		; get fourth byte of accumulator
00C3E1  1  99 03 00     		sta		$03,y		; write to fourth byte of Workspace
00C3E4  1  60           		rts					; and return
00C3E5  1               
00C3E5  1               							; Evaluate Expression and Text Statement
00C3E5  1  20 E1 C4     LETEQU: jsr		EXPEND
00C3E8  1  20 2F CA     		jsr		mova_i		; move result from accumulator to integer variable
00C3EB  1  4C 5B C5     		jmp		cont_x		; and continue execution
00C3EE  1               
00C3EE  1               							; ! Function (QOKE, Quad Poke)
00C3EE  1  20 BC C8     F_QOKE: jsr		GETINT
00C3F1  1  20 93 CE     qoke:	jsr		DOPOKE		; set-up address and POKE first byte
00C3F4  1  B5 26        		lda		acc2+1,x
00C3F6  1  C8           		iny					; POKE remaining 3 bytes
00C3F7  1  91 52        		sta		(bwork),y
00C3F9  1  C8           		iny
00C3FA  1  B5 35        		lda		acc3+1,x
00C3FC  1  91 52        		sta		(bwork),y
00C3FE  1  C8           		iny
00C3FF  1  B5 44        		lda		acc4+1,x
00C401  1  91 52        		sta		(bwork),y
00C403  1  4C 5B C5     		jmp		cont_x		; and continue execution
00C406  1               
00C406  1               							; ? Function (POKE)
00C406  1  20 BC C8     F_POKE: jsr		GETINT
00C409  1  20 93 CE     poke:	jsr		DOPOKE		; perform POKE
00C40C  1  4C 5B C5     		jmp		cont_x		; and continue execution
00C40F  1               
00C40F  1               							; * Operator (Operating System Call)
00C40F  1  A2 00        OSCOM:	ldx		#$00		; reset buffer index
00C411  1  B1 05        movcom: lda		(txtptr),y	; move OS command to buffer
00C413  1  9D 00 01     		sta		buffer,x
00C416  1  84 03        		sty		index		; update text pointer index
00C418  1  C8           		iny					; increment text pointer index
00C419  1  E8           		inx					; increment buffer index
00C41A  1  C9 0D        		cmp		#CR
00C41C  1  D0 F3        		bne		movcom		; keep going until CR found
00C41E  1  20 F7 FF     		jsr		OSCLI		; and call OS Command Line Interpreter
00C421  1  4C 58 C5     		jmp		ENDCNT		; check for end of statement and continue
00C424  1               
00C424  1               							; Test if Floating Point or ONLIBASIC Extension is Present
00C424  1  AD 00 D0     TSTEXT: lda		EXTROM		; read first byte of ROM
00C427  1               .if ATOM=1
00C427  1               err_39:
00C427  1               .endif
00C427  1  C9 AA        		cmp		#$AA		; test for $AA
00C429  1  D0 38        		bne		clcrtn		; clear carry and return (not present)
00C42B  1  4A           		lsr		a			; shift test byte - $55
00C42C  1  CD 01 D0     		cmp		EXTROM+1	; check 2nd byte of ROM
00C42F  1  D0 32        		bne		clcrtn		; clear carry and return (not present)
00C431  1  A4 5E        		ldy		bwork+$C
00C433  1  60           		rts					; carry set, return (present)
00C434  1               
00C434  1               							; Test For Integer Variable
00C434  1  A4 03        TST_IV: ldy		index		; load text pointer index
00C436  1  10 03        		bpl		do_tst		; branch always
00C438  1  C8           nospcc: iny					; next character
00C439  1  84 03        		sty		index		; update text pointer index
00C43B  1  B1 05        do_tst: lda		(txtptr),y	; get next character from input buffer
00C43D  1  C9 20        		cmp		#SPACE
00C43F  1  F0 F7        		beq		nospcc		; ignore leading spaces
00C441  1  C9 5B        		cmp		#'['
00C443  1  B0 1E        		bcs		clcrtn		; branch if >Z, not a variable
00C445  1  E9 3F        		sbc		#'?'
00C447  1  90 1B        		bcc		tstrtn		; branch if <A and not @, not a variable
00C449  1  A6 04        		ldx		accptr		; retrieve variable pointer
00C44B  1  95 16        		sta		acc1,x		; store variable in accumulator stack
00C44D  1  C8           		iny					; next character
00C44E  1  B1 05        		lda		(txtptr),y	; check if it was an abbreviated statement
00C450  1  C9 2E        		cmp		#'.'
00C452  1  F0 0F        		beq		clcrtn		; yes - not a variable
00C454  1  C9 5B        		cmp		#'['		; also check for arrays AA to ZZ
00C456  1  B0 04        		bcs		vfound
00C458  1               .if ATOM=1
00C458  1               		cmp		#'@'
00C458  1               .endif
00C458  1               .if SYSTEM=1
00C458  1  C9 41        		cmp		#'A'
00C45A  1               .endif
00C45A  1  B0 07        		bcs		clcrtn		; which do not count as variables here
00C45C  1  E8           vfound: inx					; increment accumulator stack pointer
00C45D  1  86 04        		stx		accptr		; and update
00C45F  1  38           		sec					; set carry - variable found
00C460  1  84 03        		sty		index		; save text pointer index
00C462  1  60           		rts					; and return carry set
00C463  1  18           clcrtn: clc					; clear carry
00C464  1  60           tstrtn: rts					; and return - not a variable
00C465  1               
00C465  1               							; Extract LIST Parameters
00C465  1  20 34 C4     LSTPAR: jsr		TST_IV		; was an expression entered ?
00C468  1               .if ATOM=1
00C468  1               		bcs		err_39-2	; Error 39 'Attempt to use variable in LIST'
00C468  1               .endif
00C468  1               .if SYSTEM=1
00C468  1  B0 01        		bcs		err_39-1	; Error 39 ' Attempt to use variable in LIST'
00C46A  1               .endif
00C46A  1               							; Move Decimal Constant Into Accumulator
00C46A  1  A2 00        ICONST: ldx		#$00		; X=0
00C46C  1               .if SYSTEM=1
00C46C  1               err_39:
00C46C  1               .endif
00C46C  1  A4 03        err109: ldy		index		; retrieve text pointer index
00C46E  1  86 52        		stx		bwork		; clear bwork area
00C470  1  86 53        		stx		bwork+1
00C472  1  86 54        		stx		bwork+2
00C474  1  86 55        		stx		bwork+3
00C476  1  88           		dey
00C477  1  C8           nxtdec: iny
00C478  1  B1 05        		lda		(txtptr),y	; read next character
00C47A  1  38           		sec
00C47B  1  E9 30        		sbc		#'0'
00C47D  1  30 54        		bmi		notdec		; if not numeric - end of constant or error
00C47F  1  C9 0A        		cmp		#$0A
00C481  1  B0 50        		bcs		notdec
00C483  1  A6 53        		ldx		bwork+1
00C485  1  48           		pha					; save digit on stack
00C486  1  A5 55        		lda		bwork+3
00C488  1  48           		pha					; multiply present value by decimal 10
00C489  1  A5 54        		lda		bwork+2
00C48B  1  48           		pha
00C48C  1  A5 52        		lda		bwork
00C48E  1  0A           		asl		a			; multiply by 2
00C48F  1  26 53        		rol		bwork+1
00C491  1  26 54        		rol		bwork+2
00C493  1  26 55        		rol		bwork+3
00C495  1  30 D4        		bmi		err109-1	; Error 109 'Number too large, Attempt to use variable in LIST'
00C497  1  0A           		asl		a			; multiply by 4
00C498  1  26 53        		rol		bwork+1
00C49A  1  26 54        		rol		bwork+2
00C49C  1  26 55        		rol		bwork+3
00C49E  1  30 CB        		bmi		err109-1	; Error 109 'Number too large, Attempt to use variable in LIST'
00C4A0  1  65 52        		adc		bwork		; add to previous value i.e. x 5
00C4A2  1  85 52        		sta		bwork
00C4A4  1  8A           		txa
00C4A5  1  65 53        		adc		bwork+1
00C4A7  1  85 53        		sta		bwork+1
00C4A9  1  68           		pla
00C4AA  1  65 54        		adc		bwork+2
00C4AC  1  85 54        		sta		bwork+2
00C4AE  1  68           		pla
00C4AF  1  65 55        		adc		bwork+3
00C4B1  1  06 52        		asl		bwork		; multiply by a further x 2 = x 10
00C4B3  1  26 53        		rol		bwork+1
00C4B5  1  26 54        		rol		bwork+2
00C4B7  1  2A           		rol		a
00C4B8  1               .if ATOM=1
00C4B8  1               		bmi		err109-1
00C4B8  1               .endif
00C4B8  1               .if SYSTEM=1
00C4B8  1  30 B1        		bmi		err_39-1
00C4BA  1               .endif
00C4BA  1  85 55        		sta		bwork+3
00C4BC  1  68           		pla					; retrieve digit from stack
00C4BD  1  65 52        		adc		bwork		; add to current total
00C4BF  1  85 52        		sta		bwork
00C4C1  1  90 0C        		bcc		ncarry		; and add carries
00C4C3  1  E6 53        		inc		bwork+1
00C4C5  1  D0 08        		bne		ncarry
00C4C7  1  E6 54        		inc		bwork+2
00C4C9  1  D0 04        		bne		ncarry
00C4CB  1  E6 55        		inc		bwork+3
00C4CD  1  30 9C        		bmi		err109-1	; if final bit set - Error 109 'Number too large, Attempt to use variable in LIST'
00C4CF  1  A2 FF        ncarry: ldx		#$FF
00C4D1  1  D0 A4        		bne		nxtdec		; round for next digit
00C4D3  1  8A           notdec: txa
00C4D4  1  F0 8D        		beq		clcrtn		; if X=0 no constant found, return C=0
00C4D6  1  38           movcon: sec					; move constant in bwork to accumulator stack
00C4D7  1  84 03        		sty		index		; save index
00C4D9  1  A0 52        movw_a: ldy		#bwork		; point Y at bwork
00C4DB  1  4C 9F C9     		jmp		MOVY_A		; and do move
00C4DE  1               
00C4DE  1               							; Parse Equals and Evaluate Expression
00C4DE  1  20 79 C2     EQUEXP: jsr		PAREQU		; parse =
00C4E1  1  20 8B C7     EXPEND: jsr		IEVALU		; evaluate expression and test for end of statement
00C4E4  1               
00C4E4  1               							; Test For End Of Statement
00C4E4  1  A4 03        ENDTST: ldy		index		; retrieve text pointer index
00C4E6  1  88           		dey
00C4E7  1  C8           nospcd: iny
00C4E8  1  B1 05        		lda		(txtptr),y	; read next character from input buffer
00C4EA  1  C9 20        		cmp		#SPACE
00C4EC  1  F0 F9        		beq		nospcd		; ignore leading spaces
00C4EE  1  C9 3B        		cmp		#';'		; continuation ?
00C4F0  1  F0 04        		beq		ADDYP		; yes - add index Y to text pointer and return
00C4F2  1  C9 0D        		cmp		#CR			; end of line ?
00C4F4  1  D0 66        		bne		err_94-1	; no - Error 94 'Invalid statement terminator'
00C4F6  1               							; yes -
00C4F6  1               
00C4F6  1               							; Add Index Y To Text Pointer
00C4F6  1  18           ADDYP:	clc					; clear carry
00C4F7  1  98           ADDYCP: tya					; move index to A
00C4F8  1  65 05        		adc		txtptr		; add to text pointer LSB
00C4FA  1  85 05        		sta		txtptr		; update text pointer LSB
00C4FC  1  90 02        		bcc		RSTIND		; if no carry
00C4FE  1  E6 06        		inc		txtptr+1	; carry - increment MSB
00C500  1  A0 01        RSTIND: ldy		#$01		; reset text pointer index Y
00C502  1  84 03        		sty		index		; and update
00C504  1  AD 21 0E     		lda		KEYBRD
00C507  1               .if ATOM=1
00C507  1               		and		#SPACE		; check for SPACE pressed on keyboard
00C507  1               .endif
00C507  1               .if SYSTEM=1
00C507  1  C9 1B        		cmp		#ESC		; check for ESCAPE pressed on keyboard
00C509  1               .endif
00C509  1  F0 3C        		beq		jmpcom		; if ESCAPE jump to immediate mode
00C50B  1  60           contin: rts					; otherwise return
00C50C  1               
00C50C  1               							; End test for GOSUB and FOR
00C50C  1  20 E4 C4     END_GF: jsr		ENDTST		; check for end of statement
00C50F  1  88           		dey					; back-up one character
00C510  1  B1 05        		lda		(txtptr),y	; what is statement terminator ?
00C512  1  C9 3B        		cmp		#';'		; continuation ?
00C514  1  F0 F5        		beq		contin		; yes - return
00C516  1  A5 06        		lda		txtptr+1	; no - must be CR
00C518  1  C9 01        		cmp		#$01		; if in immediate mode
00C51A  1               .if ATOM=1
00C51A  1               		beq		err152-1	; Error 152 'GOSUB without RETURN:FOR without NEXT'
00C51A  1               .endif
00C51A  1               .if SYSTEM=1
00C51A  1  F0 40        		beq		err_94-1	; Error 94 'GOSUB without RETURN:FOR without NEXT'
00C51C  1               .endif
00C51C  1               
00C51C  1               							; Prepare New Line Ready For Execution
00C51C  1  C8           NEWLIN: iny
00C51D  1  B1 05        		lda		(txtptr),y	; read linenumber
00C51F  1  30 3B        		bmi		err_94-1	; end of text - Error 94 'Invalid statement terminator'
00C521  1  85 02        		sta		baslin+1	; set new linenumber
00C523  1  C8           		iny
00C524  1  B1 05        		lda		(txtptr),y
00C526  1  85 01        		sta		baslin
00C528  1  C8           		iny
00C529  1  B1 05        		lda		(txtptr),y	; read first character of statement
00C52B  1  88           		dey
00C52C  1  C9 61        		cmp		#'a'		; is it a label ? a to z
00C52E  1  90 C7        		bcc		ADDYCP		; add index to text pointer and return
00C530  1  E9 61        		sbc		#'a'		; convert to label storage offset
00C532  1  C9 1B        		cmp		#$1B		; check upper limit
00C534  1  B0 C0        		bcs		ADDYP		; add index to text pointer
00C536  1  C8           		iny
00C537  1  0A           		asl		a			; double offset to labels (2 bytes per label)
00C538  1  AA           		tax
00C539  1  20 F6 C4     		jsr		ADDYP		; add index to text pointer
00C53C  1  A5 05        		lda		txtptr		; and point label at present address
00C53E  1  9D 8D 03     		sta		label,x
00C541  1  A5 06        		lda		txtptr+1
00C543  1  9D 8E 03     		sta		label+1,x
00C546  1  60           		rts					; and return
00C547  1               
00C547  1  4C CF C2     jmpcom: jmp		nxtcom		; return to immediate mode
00C54A  1               
00C54A  1               							; Print Statement End
00C54A  1  88           PR_END: dey					; backup index
00C54B  1  20 F6 C4     		jsr		ADDYP		; add to text pointer
00C54E  1  D0 0B        		bne		cont_x		; and continue execution
00C550  1               
00C550  1               							; No Statement Found
00C550  1  20 24 C4     NOSTAT: jsr		TSTEXT		; is an Extension ROM present ?
00C553  1  90 03        		bcc		ENDCNT		; no - continue
00C555  1  6C 02 D0     		jmp		(EXTROM+2)	; yes - call it
00C558  1               
00C558  1               							; End Of Statement And Continue Execution
00C558  1  20 E4 C4     ENDCNT: jsr		ENDTST		; test for end of statement
00C55B  1  A0 00        cont_x:	ldy		#$00		; continue execution at next statement
00C55D  1  B1 05        err_94: lda		(txtptr),y
00C55F  1  C9 3B        		cmp		#';'		; continuation ?
00C561  1  D0 1A        		bne		tstnew		; no - test execution mode
00C563  1  4C 1B C3     		jmp		THEN		; yes - execute next statement
00C566  1               
00C566  1               							; IF Statement
00C566  1  20 0C C7     IF:		jsr		I_CMP		; integer compare
00C569  1  CA           do_if:	dex
00C56A  1  86 04        		stx		accptr
00C56C  1  B5 16        		lda		acc1,x		; test LS byte of accumulator
00C56E  1  F0 05        		beq		REM			; if false treat rest of line as a REM
00C570  1  A2 20        		ldx		#<Table6	; if true continue execution of line
00C572  1  4C 33 C2     		jmp		PARSE1		; parse (optional) THEN
00C575  1               
00C575  1               							; REM Statement
00C575  1  A9 0D        REM: 	lda		#CR			;
00C577  1  88           		dey
00C578  1  C8           remend: iny
00C579  1  D1 05        		cmp		(txtptr),y	; find end of statement
00C57B  1  D0 FB        		bne		remend
00C57D  1               
00C57D  1  A5 06        tstnew: lda		txtptr+1	; test if text pointer is pointing at buffer
00C57F  1  C9 01        		cmp		#$01		; i.e. execution in immediate mode
00C581  1  F0 C4        		beq		jmpcom		; if so jump to immediate mode
00C583  1  20 1C C5     		jsr		NEWLIN		; otherwise prepare next statement
00C586  1  4C 1B C3     		jmp		THEN		; and execute it
00C589  1               
00C589  1               							; Print Accumulator In Decimal
00C589  1  A5 43        PR_ACC: lda		acc4		; load MSB of accumulator
00C58B  1  85 27        		sta		acc2+2
00C58D  1  10 04        		bpl		posacc		; is accumulator positive ?
00C58F  1  E8           		inx
00C590  1  20 C4 C8     		jsr		CMPLMT		; no - complement accumulator
00C593  1  A2 09        posacc: ldx		#$09		; pointer to hex powers of 10 table
00C595  1  A9 00        nxtpow: lda		#$00
00C597  1  95 45        err152:	sta		acc4+2,x	; clear decimal output counter
00C599  1  38           subpow: sec
00C59A  1  A5 16        		lda		acc1		; subtract power of 10 from accumulator
00C59C  1  FD 08 C6     		sbc		power1,x
00C59F  1  48           		pha
00C5A0  1  A5 25        		lda		acc2
00C5A2  1  FD 10 C6     		sbc		power2,x
00C5A5  1  48           		pha
00C5A6  1  A5 34        		lda		acc3
00C5A8  1  FD 1A C6     		sbc		power3,x
00C5AB  1  A8           		tay
00C5AC  1  A5 43        		lda		acc4
00C5AE  1  FD 24 C6     LF5AE:	sbc		power4,x
00C5B1  1  90 0E        		bcc		undflo		; was there an underflow ?
00C5B3  1  85 43        		sta		acc4		; no - put result back into accumulator
00C5B5  1  84 34        		sty		acc3
00C5B7  1  68           		pla
00C5B8  1  85 25        		sta		acc2
00C5BA  1  68           		pla
00C5BB  1  85 16        		sta		acc1
00C5BD  1  F6 45        		inc		acc4+2,x	; increment decimal value
00C5BF  1  D0 D8        		bne		subpow		; and always branch back until underflow
00C5C1  1  68           undflo: pla
00C5C2  1  68           		pla
00C5C3  1  CA           		dex					; move to next lower power of 10
00C5C4  1  10 CF        		bpl		nxtpow		; and continue until we reach 10^0 i.e. 1
00C5C6  1  A2 0A        		ldx		#$0A
00C5C8  1               
00C5C8  1               							; Print X Decimal/Hex Digits
00C5C8  1  CA           PR_NUM: dex					;
00C5C9  1  F0 04        		beq		onedig		; branch if 1 digit
00C5CB  1  B5 45        		lda		acc4+2,x	; calculate number of non-zero digits
00C5CD  1  F0 F9        		beq		PR_NUM		; for leading zero suppression
00C5CF  1  86 52        onedig: stx		bwork		; and save for later
00C5D1  1  24 27        		bit		acc2+2		; if negative add extra to account for sign
00C5D3  1  10 02        		bpl		negsin
00C5D5  1  E6 52        		inc		bwork
00C5D7  1  38           negsin: sec
00C5D8  1  AD 21 03     		lda		pwidth		; what is field width ?
00C5DB  1  F0 02        		beq		nospce		; 0 - continuous printing no spacing
00C5DD  1  E9 01        		sbc		#$01		; otherwise fill with spaces
00C5DF  1  E5 52        nospce: sbc		bwork
00C5E1  1  F0 0B        		beq		nofill		; if field width less than or equal to
00C5E3  1  90 09        		bcc		nofill		; number of digits - no filling with
00C5E5  1  A8           		tay					; spaces is required
00C5E6  1  A9 20        filspc: lda		#SPACE
00C5E8  1  20 4C CA     		jsr		WRCH
00C5EB  1  88           		dey
00C5EC  1  D0 F8        		bne		filspc
00C5EE  1  24 27        nofill: bit		acc2+2		; is value negative ?
00C5F0  1  10 05        		bpl		nosign
00C5F2  1  A9 2D        		lda		#'-'		; yes - output - sign
00C5F4  1  20 4C CA     		jsr		WRCH
00C5F7  1  B5 45        nosign: lda		acc4+2,x	; output value
00C5F9  1  C9 0A        		cmp		#$0A
00C5FB  1  90 02        		bcc		nothex		; is it hex A to F ?
00C5FD  1  69 06        		adc		#$06		; offset for A to F
00C5FF  1  69 30        nothex: adc		#'0'		; convert to ASCII
00C601  1  20 4C CA     		jsr		WRCH		; output character
00C604  1  CA           		dex
00C605  1  10 F0        		bpl		nosign		; output all digits
00C607  1  60           		rts					; and return
00C608  1               
00C608  1  01 0A 64     power1:	.byte	1,10,100	; Table of powers of 10 for hex to decimal conversion
00C60B  1  E8 10 A0     		.byte	232,16,160
00C60E  1  40 80        		.byte	64,128
00C610  1               
00C610  1  00 00 00     power2:	.byte	0,0,0
00C613  1  03 27 86     		.byte	3,39,134
00C616  1  42 96 E1     		.byte	66,150,225
00C619  1  CA           		.byte	202
00C61A  1               
00C61A  1  00 00 00     power3:	.byte	0,0,0
00C61D  1  00 00 01     		.byte	0,0,1
00C620  1  0F 98 F5     		.byte	15,152,245
00C623  1  9A           		.byte	154
00C624  1               
00C624  1  00 00 00     power4:	.byte	0,0,0
00C627  1  00 00 00     		.byte	0,0,0
00C62A  1  00 00 05     		.byte	0,0,5
00C62D  1  3B           		.byte	59
00C62E  1               
00C62E  1               							; Find Linenumber (number in accumulator)
00C62E  1  C6 04        FNDLNS: dec		accptr		; decrement accumulator stack pointer
00C630  1  A6 04        		ldx		accptr
00C632  1  A0 00        		ldy		#$00
00C634  1  84 58        		sty		bwork+6		; point bwork+6 to bottom of text area
00C636  1  A5 12        		lda		txtpag
00C638  1  85 59        		sta		bwork+7
00C63A  1  88           		dey
00C63B  1  A9 0D        fndlnw: lda		#CR
00C63D  1  C8           fndeol: iny					; start searching from bwork+6
00C63E  1  D1 58        		cmp		(bwork+6),y ; look for end of line, CR
00C640  1  D0 FB        		bne		fndeol
00C642  1  20 A1 CE     		jsr		ADDYW6		; add Y to pointer
00C645  1  B1 58        		lda		(bwork+6),y ; read first byte of linenumber
00C647  1  C8           		iny
00C648  1  D5 25        		cmp		acc2,x		; and compare with required line
00C64A  1  90 EF        		bcc		fndlnw		; if less keep searching
00C64C  1  D0 12        		bne		fndrtn		; if greater - line does not exist, return
00C64E  1  B1 58        		lda		(bwork+6),y ; read second byte of linenumber
00C650  1  D5 16        		cmp		acc1,x		; and compare
00C652  1  90 E7        		bcc		fndlnw
00C654  1  D0 0A        		bne		fndrtn
00C656  1  85 01        		sta		baslin		; found line save linenumber
00C658  1  B5 25        		lda		acc2,x
00C65A  1  85 02        		sta		baslin+1
00C65C  1  20 A1 CE     		jsr		ADDYW6		; add y to bwork+6
00C65F  1  18           		clc					; clear carry - line found
00C660  1  60           fndrtn: rts					; and return
00C661  1               
00C661  1               							; Multiply And Divide Initialise
00C661  1  20 BC C8     MDINIT: jsr		GETINT		; get numeric value
00C664  1  B5 42        		lda		acc4-1,x
00C666  1  55 41        		eor		acc4-2,x
00C668  1  85 52        		sta		bwork		; save multiplicand/divisor sign status
00C66A  1  20 05 C9     		jsr		tcompa		; test sign and complement
00C66D  1  A0 53        		ldy		#bwork+1
00C66F  1  20 CD C3     		jsr		MOVA_Y		; move multiplicand/divisor to bwork+1
00C672  1  B5 42        		lda		acc4-1,x
00C674  1  95 43        		sta		acc4,x
00C676  1  20 07 C9     		jsr		tcompb		; test sign and complement
00C679  1  A0 57        		ldy		#bwork+5
00C67B  1  20 CD C3     		jsr		MOVA_Y		; move multiplier/dividend to bwork+5
00C67E  1  A0 00        err129: ldy		#$00
00C680  1  84 5B        		sty		bwork+9		; clear result at bwork+9
00C682  1  84 5C        		sty		bwork+$A
00C684  1  84 5D        		sty		bwork+$B
00C686  1  84 5E        		sty		bwork+$C
00C688  1  60           		rts					; and return
00C689  1               
00C689  1               							; Perform Integer Division
00C689  1  20 61 C6     DIVISN: jsr		MDINIT		; initialise
00C68C  1  A5 54        		lda		bwork+2		; test if divisor zero
00C68E  1  20 05 C7     		jsr		tstwrk
00C691  1  F0 EC        		beq		err129+1	; Error 129 'Division by zero'
00C693  1  A0 20        		ldy		#$20		; dividend bit counter
00C695  1  88           shift:	dey
00C696  1  F0 41        		beq		divrtn		; divisor zero ? - return
00C698  1  06 57        		asl		bwork+5		; shift first dividend bit into position
00C69A  1  26 58        		rol		bwork+6
00C69C  1  26 59        		rol		bwork+7
00C69E  1  26 5A        		rol		bwork+8
00C6A0  1  10 F3        		bpl		shift
00C6A2  1  26 57        nxtbit:	rol		bwork+5		; shift dividend into partial dividend
00C6A4  1  26 58        		rol		bwork+6
00C6A6  1  26 59        		rol		bwork+7
00C6A8  1  26 5A        		rol		bwork+8
00C6AA  1  26 5B        		rol		bwork+9
00C6AC  1  26 5C        		rol		bwork+$A
00C6AE  1  26 5D        		rol		bwork+$B
00C6B0  1  26 5E        		rol		bwork+$C
00C6B2  1  38           		sec
00C6B3  1  A5 5B        		lda		bwork+9		; subtract divisor from partial dividend
00C6B5  1  E5 53        		sbc		bwork+1
00C6B7  1  48           		pha
00C6B8  1  A5 5C        		lda		bwork+$A
00C6BA  1  E5 54        		sbc		bwork+2
00C6BC  1  48           		pha
00C6BD  1  A5 5D        		lda		bwork+$B
00C6BF  1  E5 55        		sbc		bwork+3
00C6C1  1  AA           		tax
00C6C2  1  A5 5E        		lda		bwork+$C
00C6C4  1  E5 56        		sbc		bwork+4		; is divisor greater than dividend ?
00C6C6  1  90 0C        		bcc		no_sub		; yes - don't keep dividend
00C6C8  1  85 5E        		sta		bwork+$C	; no - set new dividend
00C6CA  1  86 5D        		stx		bwork+$B
00C6CC  1  68           		pla
00C6CD  1  85 5C        		sta		bwork+$A
00C6CF  1  68           		pla
00C6D0  1  85 5B        		sta		bwork+9
00C6D2  1  B0 02        		bcs		deccnt		; branch always
00C6D4  1  68           no_sub:	pla					; pull result off stack
00C6D5  1  68           		pla
00C6D6  1  88           deccnt:	dey
00C6D7  1  D0 C9        		bne		nxtbit		; all dividend bits shifted ?
00C6D9  1  60           divrtn:	rts					; and return
00C6DA  1               
00C6DA  1               							; Do Comparison
00C6DA  1  20 8B C7     DO_CMP:	jsr		IEVALU		; get second value for compare
00C6DD  1  CA           		dex					; decrement and save accumulator
00C6DE  1  86 04        		stx		accptr		; stack pointer
00C6E0  1  B5 42        		lda		acc4-1,x	; invert MSB of both values for comparison
00C6E2  1  49 80        		eor		#$80
00C6E4  1  85 52        		sta		bwork
00C6E6  1  B5 43        		lda		acc4,x
00C6E8  1  49 80        		eor		#$80
00C6EA  1  85 54        		sta		bwork+2
00C6EC  1  A0 00        		ldy		#$00
00C6EE  1  38           		sec
00C6EF  1  B5 15        		lda		acc1-1,x	; subtract two values and put result in bwork
00C6F1  1  F5 16        		sbc		acc1,x
00C6F3  1  85 53        		sta		bwork+1
00C6F5  1  B5 24        		lda		acc2-1,x
00C6F7  1  F5 25        		sbc		acc2,x
00C6F9  1  85 55        		sta		bwork+3
00C6FB  1  B5 33        		lda		acc3-1,x
00C6FD  1  F5 34        		sbc		acc3,x
00C6FF  1  85 56        		sta		bwork+4
00C701  1  A5 52        		lda		bwork		; and MSB subtract
00C703  1  E5 54        		sbc		bwork+2
00C705  1  05 53        tstwrk:	ora		bwork+1		; OR results together and test if zero
00C707  1  05 55        		ora		bwork+3
00C709  1  05 56        		ora		bwork+4		; carry is unaffected
00C70B  1  60           		rts
00C70C  1               
00C70C  1               							; Integer And String Comparison
00C70C  1  20 2C C7     I_CMP:	jsr		CMPWOT		; what are we comparing ?
00C70F  1  A2 43        nxtlog:	ldx		#<Table11	; do compare and check for OR and AND
00C711  1  4C 33 C2     		jmp		PARSE1		; parse OR and AND
00C714  1               
00C714  1               							; Logical AND
00C714  1  20 2C C7     LAND:	jsr		CMPWOT		; what are we comparing ?
00C717  1  B5 14        		lda		acc1-2,x	; get next comparison value
00C719  1  35 15        		and		acc1-1,x	; and AND two results
00C71B  1  95 14        saveor:	sta		acc1-2,x
00C71D  1  C6 04        		dec		accptr
00C71F  1  4C 0F C7     		jmp		nxtlog		; try for another logical operator
00C722  1               
00C722  1               							; Logical OR
00C722  1  20 2C C7     LOR:	jsr		CMPWOT		; what are we comparing ?
00C725  1  B5 14        		lda		acc1-2,x	; get next comparison value
00C727  1  15 15        		ora		acc1-1,x	; and OR two results
00C729  1  4C 1B C7     		jmp		saveor		; try for another logical operator
00C72C  1               
00C72C  1               							; Compare Strings or Integers ?
00C72C  1  A2 46        CMPWOT:	ldx		#<Table12	; point at $
00C72E  1  4C 33 C2     		jmp		PARSE1		; parse
00C731  1               
00C731  1               							; String Compare
00C731  1  20 8B C7     STRCMP:	jsr		IEVALU		; evaluate integer expression
00C734  1  20 AE CE     		jsr		EQUSTR		; get address of 1st string, = and 2nd string
00C737  1  B5 15        		lda		acc1-1,x	; set-up pointers to strings
00C739  1  85 54        		sta		bwork+2
00C73B  1  B5 24        		lda		acc2-1,x
00C73D  1  85 55        		sta		bwork+3
00C73F  1  A0 FF        		ldy		#$FF
00C741  1  C8           doscmp:	iny					; and do the compare
00C742  1  B1 54        		lda		(bwork+2),y
00C744  1  D1 52        		cmp		(bwork),y
00C746  1  D0 07        		bne		strdif		; if not equal - false
00C748  1  49 0D        		eor		#CR			; check for end, CR
00C74A  1  D0 F5        		bne		doscmp		; if not compare whole string
00C74C  1  A8           		tay
00C74D  1  F0 11        		beq		true		; if equal - true
00C74F  1  A0 00        strdif:	ldy		#$00
00C751  1  F0 0E        		beq		false
00C753  1               
00C753  1               							; Integer Compare
00C753  1  20 8B C7     INTCMP:	jsr		IEVALU		; evaluate integer expression
00C756  1  A2 00        		ldx		#<Table1	; get 1st value for comparison
00C758  1  4C 33 C2     		jmp		PARSE1		; and parse comparison operators
00C75B  1               
00C75B  1               							; Equal Comparison
00C75B  1  20 DA C6     IEQUAL:	jsr		DO_CMP		; do comparison
00C75E  1  D0 01        		bne		false
00C760  1  C8           true:	iny
00C761  1  94 15        false:	sty		acc1-1,x	; save result 0=false, 1=true
00C763  1  60           		rts
00C764  1               
00C764  1               							; Less Than Or Equal Comparison
00C764  1  20 DA C6     ILTEQU:	jsr		DO_CMP		; do comparison
00C767  1  F0 F7        		beq		true		; equal
00C769  1  90 F5        		bcc		true		; less than
00C76B  1  B0 F4        		bcs		false		; greater than
00C76D  1               
00C76D  1               							; Not Equal Comparison
00C76D  1  20 DA C6     INEQUA:	jsr		DO_CMP		; do comparison
00C770  1  D0 EE        		bne		true		; not equal
00C772  1  F0 ED        		beq		false		; equal
00C774  1               
00C774  1               							; Less Than Comparison
00C774  1  20 DA C6     ILT:	jsr		DO_CMP		; do comparison
00C777  1  90 E7        		bcc		true		; less than
00C779  1  B0 E6        		bcs		false		; greater than
00C77B  1               
00C77B  1               							; Greater than Or Equal Comparison
00C77B  1  20 DA C6     IGTEQU:	jsr		DO_CMP		; do comparison
00C77E  1  B0 E0        		bcs		true		; greater than
00C780  1  90 DF        		bcc		false		; less than
00C782  1               
00C782  1               							; Greater than Comparison
00C782  1  20 DA C6     IGT:	jsr		DO_CMP		; do comparison
00C785  1  F0 DA        		beq		false		; equal
00C787  1  B0 D7        		bcs		true		; greater than
00C789  1  90 D6        		bcc		false		; less than
00C78B  1               
00C78B  1               							; Evaluate Integer Expression
00C78B  1  20 0B C8     IEVALU:	jsr		EVAHPO		; get value, test for high precedence operators
00C78E  1  4C 95 C7     		jmp		evalop		; evaluate high precedence operators then
00C791  1  95 41        nxtlop:	sta		acc4-2,x
00C793  1  C6 04        		dec		accptr
00C795  1  A2 00        evalop:	ldx		#<STable1-<STable1 ; evaluate expression low precedence operators
00C797  1  4C 7B C2     		jmp		PARSE2		; parse operators -+|:
00C79A  1               
00C79A  1               							; Integer Addition
00C79A  1  20 0B C8     IADD:	jsr		EVAHPO		; get value, test for high precedence operators
00C79D  1  18           		clc
00C79E  1  B5 14        		lda		acc1-2,x	; add top two stack values
00C7A0  1  75 15        		adc		acc1-1,x
00C7A2  1  95 14        		sta		acc1-2,x
00C7A4  1               
00C7A4  1  B5 23        		lda		acc2-2,x
00C7A6  1  75 24        		adc		acc2-1,x
00C7A8  1  95 23        		sta		acc2-2,x
00C7AA  1               
00C7AA  1  B5 32        		lda		acc3-2,x
00C7AC  1  75 33        		adc		acc3-1,x
00C7AE  1  95 32        		sta		acc3-2,x
00C7B0  1               
00C7B0  1  B5 41        		lda		acc4-2,x
00C7B2  1  75 42        		adc		acc4-1,x
00C7B4  1  4C 91 C7     		jmp		nxtlop		; continue expression evaluation
00C7B7  1               
00C7B7  1               							; Integer Subtraction
00C7B7  1  20 0B C8     ISUB:	jsr		EVAHPO		; get value, test for high precedence operators
00C7BA  1  B5 14        		lda		acc1-2,x	; subtract top two stack values
00C7BC  1  F5 15        		sbc		acc1-1,x
00C7BE  1  95 14        		sta		acc1-2,x
00C7C0  1  B5 23        		lda		acc2-2,x
00C7C2  1  F5 24        		sbc		acc2-1,x
00C7C4  1  95 23        		sta		acc2-2,x
00C7C6  1  B5 32        		lda		acc3-2,x
00C7C8  1  F5 33        		sbc		acc3-1,x
00C7CA  1  95 32        		sta		acc3-2,x
00C7CC  1  B5 41        		lda		acc4-2,x
00C7CE  1  F5 42        		sbc		acc4-1,x
00C7D0  1  4C 91 C7     		jmp		nxtlop		; continue expression evaluation
00C7D3  1               
00C7D3  1               							; Integer Logical OR
00C7D3  1  20 0B C8     IOR:	jsr		EVAHPO		; get value, test for high precedence operators
00C7D6  1  B5 14        		lda		acc1-2,x	; OR top two stack values
00C7D8  1  15 15        		ora		acc1-1,x
00C7DA  1  95 14        		sta		acc1-2,x
00C7DC  1  B5 23        		lda		acc2-2,x
00C7DE  1  15 24        		ora		acc2-1,x
00C7E0  1  95 23        		sta		acc2-2,x
00C7E2  1  B5 32        		lda		acc3-2,x
00C7E4  1  15 33        		ora		acc3-1,x
00C7E6  1  95 32        		sta		acc3-2,x
00C7E8  1  B5 41        		lda		acc4-2,x
00C7EA  1  15 42        		ora		acc4-1,x
00C7EC  1  4C 91 C7     		jmp		nxtlop		; continue expression evaluation
00C7EF  1               
00C7EF  1               							; Integer Exclusive OR
00C7EF  1  20 0B C8     IEOR:	jsr		EVAHPO		; get value, test for high precedence operators
00C7F2  1  B5 14        		lda		acc1-2,x	; EOR top two stack values
00C7F4  1  55 15        		eor		acc1-1,x
00C7F6  1  95 14        		sta		acc1-2,x
00C7F8  1  B5 23        		lda		acc2-2,x
00C7FA  1  55 24        		eor		acc2-1,x
00C7FC  1  95 23        		sta		acc2-2,x
00C7FE  1  B5 32        		lda		acc3-2,x
00C800  1  55 33        		eor		acc3-1,x
00C802  1  95 32        		sta		acc3-2,x
00C804  1  B5 41        		lda		acc4-2,x
00C806  1  55 42        		eor		acc4-1,x
00C808  1  4C 91 C7     		jmp		nxtlop		; continue expression evaluation
00C80B  1               
00C80B  1               							; Evaluate High Precedence Operators
00C80B  1  20 BC C8     EVAHPO:	jsr		GETINT		; get numeric value
00C80E  1  A2 05        nxthpo:	ldx		#<STable2-<STable1
00C810  1  4C 7B C2     		jmp		PARSE2		; parse operators */%!?&
00C813  1               
00C813  1               							; Integer Multiplication
00C813  1  20 61 C6     IMULT:	jsr		MDINIT		; set-up multiplier and multiplicand
00C816  1  46 5A        nxtmul:	lsr		bwork+8		; shift multiplier right
00C818  1  66 59        		ror		bwork+7
00C81A  1  66 58        		ror		bwork+6
00C81C  1  66 57        		ror		bwork+5
00C81E  1  90 19        		bcc		no_add		; if multiplier zero - no addition
00C820  1  18           		clc
00C821  1  98           		tya
00C822  1  65 53        		adc		bwork+1		; add multiplicand to product
00C824  1  A8           		tay
00C825  1  A5 5C        		lda		bwork+$A
00C827  1  65 54        		adc		bwork+2
00C829  1  85 5C        		sta		bwork+$A
00C82B  1  A5 5D        		lda		bwork+$B
00C82D  1  65 55        		adc		bwork+3
00C82F  1  85 5D        		sta		bwork+$B
00C831  1  A5 5E        		lda		bwork+$C
00C833  1  65 56        		adc		bwork+4
00C835  1  29 7F        		and		#$7F		; ensure no overflow
00C837  1  85 5E        		sta		bwork+$C
00C839  1  06 53        no_add:	asl		bwork+1		; double multiplicand
00C83B  1  26 54        		rol		bwork+2
00C83D  1  26 55        		rol		bwork+3
00C83F  1  26 56        		rol		bwork+4
00C841  1  A5 57        		lda		bwork+5
00C843  1  05 58        		ora		bwork+6
00C845  1  05 59        		ora		bwork+7
00C847  1  05 5A        		ora		bwork+8		; is multiplier zero ?
00C849  1  D0 CB        		bne		nxtmul		; no - keep multiplying
00C84B  1  84 5B        		sty		bwork+9		; save LSB of result
00C84D  1  A5 52        		lda		bwork
00C84F  1  08           		php
00C850  1  A0 5B        movmod:	ldy		#bwork+9	; point Y at result
00C852  1  20 9F C9     movdiv:	jsr		MOVY_A		; move result to accumulator
00C855  1  28           		plp
00C856  1  10 03        		bpl		nocomp		; complement result ?
00C858  1  20 C4 C8     		jsr		CMPLMT
00C85B  1  4C 0E C8     nocomp:	jmp		nxthpo		; continue expression evaluation
00C85E  1               
00C85E  1               							; Integer Division
00C85E  1  20 89 C6     IDIV:	jsr		DIVISN		; perform division
00C861  1  26 57        		rol		bwork+5		; final division shift
00C863  1  26 58        		rol		bwork+6
00C865  1  26 59        		rol		bwork+7
00C867  1  26 5A        		rol		bwork+8
00C869  1  24 52        		bit		bwork
00C86B  1  08           		php					; save sign status
00C86C  1  A0 57        		ldy		#bwork+5	; point Y at result
00C86E  1  D0 E2        		bne		movdiv		; return result and complement if required
00C870  1               
00C870  1               							; Integer MOD (%)
00C870  1  20 89 C6     IMOD:	jsr		DIVISN		; perform division
00C873  1  A6 04        		ldx		accptr		; retrieve accumulator stack pointer
00C875  1  B5 44        		lda		acc4+1,x
00C877  1  08           		php					; save sign status
00C878  1  4C 50 C8     		jmp		movmod		; return result and complement if required
00C87B  1               
00C87B  1               							; Integer Logical AND
00C87B  1  20 BC C8     IAND:	jsr		GETINT		; get second value
00C87E  1  CA           		dex					; decrement accumulator stack pointer
00C87F  1  86 04        		stx		accptr		; and save
00C881  1  B5 15        		lda		acc1-1,x	; AND top two stack values
00C883  1  35 16        		and		acc1,x
00C885  1  95 15        		sta		acc1-1,x
00C887  1  B5 24        		lda		acc2-1,x
00C889  1  35 25        		and		acc2,x
00C88B  1  95 24        		sta		acc2-1,x
00C88D  1  B5 33        		lda		acc3-1,x
00C88F  1  35 34        		and		acc3,x
00C891  1  95 33        		sta		acc3-1,x
00C893  1  B5 42        		lda		acc4-1,x
00C895  1  35 43        		and		acc4,x
00C897  1  95 42        		sta		acc4-1,x
00C899  1  4C 0E C8     		jmp		nxthpo		; continue expression evaluation
00C89C  1               
00C89C  1               							; ? Operator (Peek with Offset)
00C89C  1  20 A2 C8     O_PEEK:	jsr		ADPEEK		; add offset and use PEEK
00C89F  1  4C 0E C8     		jmp		nxthpo		; continue expression evaluation
00C8A2  1               
00C8A2  1               							; Add Offset And Peek
00C8A2  1  20 BC C8     ADPEEK:	jsr		GETINT		; get integer offset and add to
00C8A5  1  18           		clc					; previous value on accumulator stack
00C8A6  1  B5 15        		lda		acc1-1,x
00C8A8  1  75 14        		adc		acc1-2,x
00C8AA  1  A8           		tay
00C8AB  1  B5 24        		lda		acc2-1,x
00C8AD  1  75 23        		adc		acc2-2,x
00C8AF  1  CA           		dex					; decrement accumulator stack pointer
00C8B0  1  4C 53 C9     		jmp		dopeek		; and PEEK 1 byte
00C8B3  1               
00C8B3  1               							; ! Operator (QEEK - Quad PEEK with offset)
00C8B3  1  20 A2 C8     O_QEEK:	jsr		ADPEEK		; add offset
00C8B6  1  20 62 C9     		jsr		doqeek		; and use QEEK
00C8B9  1  4C 0E C8     		jmp		nxthpo		; continue expression evaluation
00C8BC  1               
00C8BC  1               							; Get Integer (constant, variable or function)
00C8BC  1  A2 04        GETINT:	ldx		#<Table2	; point to table of unary operators +-
00C8BE  1  4C 33 C2     		jmp		PARSE1		; and parse
00C8C1  1               
00C8C1  1               							; Unary Minus -
00C8C1  1  20 DC C8     UMINUS:	jsr		UPLUS		; get value and
00C8C4  1  38           CMPLMT:	sec					; complement accumulator (subtract from 0)
00C8C5  1  A9 00        		lda		#$00
00C8C7  1  A8           		tay
00C8C8  1  F5 15        		sbc		acc1-1,x
00C8CA  1  95 15        		sta		acc1-1,x
00C8CC  1  98           		tya
00C8CD  1  F5 24        		sbc		acc2-1,x
00C8CF  1  95 24        		sta		acc2-1,x
00C8D1  1  98           		tya
00C8D2  1  F5 33        		sbc		acc3-1,x
00C8D4  1  95 33        		sta		acc3-1,x
00C8D6  1  98           		tya
00C8D7  1  F5 42        		sbc		acc4-1,x
00C8D9  1  95 42        		sta		acc4-1,x
00C8DB  1  60           		rts					; and return
00C8DC  1               
00C8DC  1               							; Unary Plus +
00C8DC  1  20 34 C4     UPLUS:	jsr		TST_IV		; is it a variable ?
00C8DF  1  90 17        		bcc		not_iv		; no try constant and functions
00C8E1  1  B4 15        MOVI_A:	ldy		acc1-1,x	; move integer variable to accumulator
00C8E3  1  B9 21 03     		lda		intega-1,y
00C8E6  1  95 15        		sta		acc1-1,x
00C8E8  1  B9 57 03     		lda		integc-1,y
00C8EB  1  95 33        		sta		acc3-1,x
00C8ED  1  B9 3C 03     		lda		integb-1,y
00C8F0  1  95 24        		sta		acc2-1,x
00C8F2  1  B9 72 03     		lda		integd-1,y
00C8F5  1  95 42        		sta		acc4-1,x
00C8F7  1  60           numrtn:	rts
00C8F8  1  20 6A C4     not_iv:	jsr		ICONST		; is it a constant ?
00C8FB  1  B0 FA        		bcs		numrtn		; yes - return
00C8FD  1  A2 07        		ldx		#<Table3	; otherwise try functions & operators ?
00C8FF  1  4C 33 C2     		jmp		PARSE1		; parse
00C902  1               
00C902  1               							; ABSolute Function
00C902  1  20 BC C8     ABS:	jsr		GETINT		; get numeric value
00C905  1  B5 42        tcompa:	lda		acc4-1,x	; load MSB of accumulator
00C907  1  30 BB        tcompb:	bmi		CMPLMT		; if negative - complement
00C909  1  60           		rts					; and return
00C90A  1               
00C90A  1               							; & Operator (hexadecimal constant)
00C90A  1  A2 00        HCONST:	ldx		#$00		; clear result bwork area
00C90C  1  86 52        		stx		bwork
00C90E  1  86 53        		stx		bwork+1
00C910  1  86 54        		stx		bwork+2
00C912  1  86 55        		stx		bwork+3
00C914  1  88           		dey
00C915  1  C8           nxthex:	iny
00C916  1  B1 05        		lda		(txtptr),y	; read ASCII digit
00C918  1  C9 30        		cmp		#'0'
00C91A  1  90 22        		bcc		hexerr		; convert to hex
00C91C  1  C9 3A        		cmp		#'9'+1		; check for non-hex digit
00C91E  1  90 0A        		bcc		shfhex
00C920  1  E9 37        		sbc		#$37		; offset for A to F
00C922  1  C9 0A        		cmp		#$0A
00C924  1  90 18        		bcc		hexerr
00C926  1  C9 10        		cmp		#$10
00C928  1  B0 14        		bcs		hexerr
00C92A  1  0A           shfhex:	asl		a			; shift digit to top nibble
00C92B  1  0A           		asl		a
00C92C  1  0A           		asl		a
00C92D  1  0A           		asl		a
00C92E  1  A2 03        		ldx		#$03
00C930  1  0A           rothex:	asl		a			; and rotate digit into bwork
00C931  1  26 52        		rol		bwork
00C933  1  26 53        		rol		bwork+1
00C935  1  26 54        		rol		bwork+2
00C937  1  26 55        		rol		bwork+3
00C939  1  CA           		dex
00C93A  1  10 F4        		bpl		rothex
00C93C  1  30 D7        		bmi		nxthex
00C93E  1  8A           hexerr:	txa					; if no hex digits found -
00C93F  1  10 18        		bpl		err_91-1	; Error 91 'No hexadecimal number after #'
00C941  1  4C D6 C4     		jmp		movcon		; else move result to accumulator and return
00C944  1               
00C944  1               							; Left Parenthesis In Integer Expression
00C944  1               .if ATOM=1
00C944  1               IL_PAR:	jsr		I_CMP		; evaluate inner expression
00C944  1               		ldx		#$0C		; not	<STable3	; point at )
00C944  1               .endif
00C944  1               .if SYSTEM=1
00C944  1  20 8B C7     IL_PAR:	jsr		IEVALU		; evaluate inner expression
00C947  1  A2 0C        		ldx		#<STable3-<STable1 ; point at )
00C949  1               .endif
00C949  1  4C 7B C2     		jmp		PARSE2		; and parse
00C94C  1               
00C94C  1               							; ? Function (PEEK)
00C94C  1  20 BC C8     F_PEEK:	jsr		GETINT		; get value
00C94F  1  B4 15        		ldy		acc1-1,x	; load 16 bit address from accumulator
00C951  1  B5 24        		lda		acc2-1,x
00C953  1  85 53        dopeek:	sta		bwork+1		; set-up pointer to address
00C955  1  84 52        		sty		bwork
00C957  1  CA           		dex					; decrement accumulator stack pointer
00C958  1  A0 00        do_ch:	ldy		#$00		; clear index
00C95A  1  B1 52        err_91:	lda		(bwork),y	; and read value at address
00C95C  1  4C 7C C9     		jmp		byte_a		; move to accumulator, clear remainder and return
00C95F  1               
00C95F  1               							; ! Function (QEEK - Quad PEEK)
00C95F  1  20 4C C9     F_QEEK:	jsr		F_PEEK		; use PEEK to set-up pointer and read first byte
00C962  1  A0 01        doqeek:	ldy		#$01
00C964  1  B1 52        		lda		(bwork),y	; then read remaining 3 bytes
00C966  1  95 24        		sta		acc2-1,x	; into accumulator
00C968  1  C8           		iny
00C969  1  B1 52        		lda		(bwork),y
00C96B  1  95 33        		sta		acc3-1,x
00C96D  1  C8           		iny
00C96E  1  B1 52        		lda		(bwork),y
00C970  1  95 42        		sta		acc4-1,x
00C972  1  60           		rts					; and return
00C973  1               
00C973  1               							; TOP Variable
00C973  1  A0 0D        TOPv:	ldy		#TOP		; retrieve current value
00C975  1  20 A1 C9     		jsr		MOVY_X		; move to accumulator
00C978  1  F0 07        		beq		clrmsw		; clear MS word
00C97A  1               
00C97A  1               							; COUNT Variable
00C97A  1  A5 07        COUNT:	lda		count		; retrieve current value
00C97C  1  20 B3 C9     byte_a:	jsr		sta_a		; move to accumulator
00C97F  1  95 24        		sta		acc2-1,x	; clear remainder
00C981  1  95 33        clrmsw:	sta		acc3-1,x
00C983  1  95 42        		sta		acc4-1,x
00C985  1  60           		rts					; and return
00C986  1               
00C986  1               							; RND Function
00C986  1  A0 20        RND:	ldy		#$20
00C988  1  A5 0A        rotate:	lda		random+2	; generate new random number
00C98A  1  4A           		lsr		a
00C98B  1  4A           		lsr		a
00C98C  1  4A           		lsr		a
00C98D  1  45 0C        		eor		random+4
00C98F  1  6A           		ror		a
00C990  1  26 08        		rol		random
00C992  1  26 09        		rol		random+1
00C994  1  26 0A        		rol		random+2
00C996  1  26 0B        		rol		random+3
00C998  1  26 0C        		rol		random+4
00C99A  1  88           		dey
00C99B  1  D0 EB        		bne		rotate		; repeat $20 cycles
00C99D  1  A0 08        		ldy		#random		; point Y at new random number
00C99F  1               
00C99F  1               							; Move 4 Byte Value At Y To Accumulator
00C99F  1  A6 04        MOVY_A:	ldx		accptr		; retrieve accumulator stack pointer
00C9A1  1  B9 01 00     MOVY_X:	lda		$01,y		; get first byte of value at Y
00C9A4  1  95 25        		sta		acc2,x		; write to first byte of accumulator
00C9A6  1  B9 02 00     		lda		$02,y		; get second byte of value at Y
00C9A9  1  95 34        		sta		acc3,x		; write to second byte of accumulator
00C9AB  1  B9 03 00     		lda		$03,y		; get third byte of value at Y
00C9AE  1  95 43        		sta		acc4,x		; write to third byte of accumulator
00C9B0  1  B9 00 00     		lda		$00,y		; get fourth byte of value at Y
00C9B3  1  95 16        sta_a:	sta		acc1,x		; write to fourth byte of accumulator
00C9B5  1  E8           		inx					; increment accumulator stack pointer
00C9B6  1  86 04        		stx		accptr		; and save
00C9B8  1  A4 03        		ldy		index		; retrieve text pointer index
00C9BA  1  A9 00        		lda		#$00		; clear A
00C9BC  1  60           		rts					; and return
00C9BD  1               
00C9BD  1               							; LEN Function
00C9BD  1  20 BC C8     LEN:	jsr		GETINT		; get address of string
00C9C0  1  20 CB C3     		jsr		MOVA_W		; move to bwork
00C9C3  1  A0 00        		ldy		#$00		; length counter
00C9C5  1  A9 0D        		lda		#CR
00C9C7  1  D1 52        lenend:	cmp		(bwork),y	; search string for end, CR
00C9C9  1  F0 03        		beq		strend
00C9CB  1  C8           		iny
00C9CC  1  D0 F9        		bne		lenend
00C9CE  1  98           strend:	tya					; move result to A
00C9CF  1  4C 7C C9     		jmp		byte_a		; and then to accumulator
00C9D2  1               
00C9D2  1               							; CH Function
00C9D2  1  20 B1 CE     CH:		jsr		STRING		; get string address
00C9D5  1  4C 58 C9     		jmp		do_ch		; PEEK 1st character
00C9D8  1               
00C9D8  1               							; Error Handler from BRK
00C9D8  1  68           ERROR:	pla					; use calling address as error number
00C9D9  1  68           		pla					; retrieve from stack
00C9DA  1  85 00        		sta		err_no		; and save
00C9DC  1  A5 10        		lda		errptr		; point interpreter at error text
00C9DE  1  85 05        		sta		txtptr
00C9E0  1  A5 11        		lda		errptr+1
00C9E2  1  85 06        		sta		txtptr+1
00C9E4  1  4C F2 C2     		jmp		interp		; and interpret error text
00C9E7  1               
00C9E7  1               .if ATOM=1
00C9E7  1               errtxt:	.byte	"@=1;P.$6$7'",'"',"ERROR ",'"',"?0;@=8;IF?1|?2P."
00C9E7  1               		.byte	'"'," LINE",'"',"!1& #FFFF",CR
00C9E7  1               .endif
00C9E7  1               .if SYSTEM=1
00C9E7  1  40 3D 35 3B  errtxt:	.byte	"@=5;P.'",'"',"Error",'"',"?0;IF!1&#FFFF<>0P.",'"'
00C9EB  1  50 2E 27 22  
00C9EF  1  45 72 72 6F  
00C9F3  1  72 22 3F 30  
00C9F7  1  3B 49 46 21  
00C9FB  1  31 26 23 46  
00C9FF  1  46 46 46 3C  
00CA03  1  3E 30 50 2E  
00CA07  1  22           
00CA08  1  20 61 74 20  		.byte	" at line ",'"',"!1&#FFFF",CR
00CA0C  1  6C 69 6E 65  
00CA10  1  20 22 21 31  
00CA14  1  26 23 46 46  
00CA18  1  46 46 0D     
00CA1B  1               .endif
00CA1B  1               
00CA1B  1  00 00 50 2E  err_29:	.byte	$00,$00,"P.';E.",CR
00CA1F  1  27 3B 45 2E  
00CA23  1  0D           
00CA24  1               
00CA24  1               							; No Function Found
00CA24  1  20 24 C4     NOFUNC:	jsr		TSTEXT		; test for Extension ROM
00CA27  1  90 F2        		bcc		err_29		; Error 29 ' Unknown or missing function'
00CA29  1  6C 04 D0     		jmp		(EXTROM+4)	; call Extension ROM
00CA2C  1               
00CA2C  1               							; Set Variable Expression
00CA2C  1  20 8B C7     SET_V:	jsr		IEVALU
00CA2F  1  A6 04        mova_i:	ldx		accptr		; move accumulator contents to
00CA31  1  CA           		dex					; integer variable
00CA32  1  CA           		dex
00CA33  1  86 04        		stx		accptr
00CA35  1  B4 16        		ldy		acc1,x
00CA37  1  B5 17        		lda		acc1+1,x
00CA39  1  99 21 03     		sta		intega-1,y
00CA3C  1  B5 26        		lda		acc2+1,x
00CA3E  1  99 3C 03     		sta		integb-1,y
00CA41  1  B5 35        		lda		acc3+1,x
00CA43  1  99 57 03     		sta		integc-1,y
00CA46  1  B5 44        		lda		acc4+1,x
00CA48  1  99 72 03     		sta		integd-1,y
00CA4B  1  60           		rts
00CA4C  1               
00CA4C  1               							; Write Character To Output Channel
00CA4C  1  E6 07        WRCH:	inc		count		; increment PRINT counter
00CA4E  1  6C 08 02     		jmp		(WRCVEC)	; and jump to OSWRCH
00CA51  1               							; (for some reason indirectly via its vector)
00CA51  1               
00CA51  1               							; LIST Command
00CA51  1               LIST:
00CA51  1               .if SYSTEM=1
00CA51  1  A9 05        		lda		#$05
00CA53  1  8D 21 03     		sta		pwidth		; set field width to 5
00CA56  1               .endif
00CA56  1  A9 00        		lda		#$00
00CA58  1  20 7C C9     		jsr		byte_a		; accumulator 0 = 0 (lowest linenumber)
00CA5B  1  A9 FF        		lda		#$FF
00CA5D  1  20 7C C9     		jsr		byte_a		; accumulator 1 = $FF
00CA60  1  85 04        		sta		accptr		; accumulator stack pointer = 0
00CA62  1  A0 7F        		ldy		#$7F
00CA64  1  84 26        		sty		acc2+1		; accumulator 1 = $7FFF (highest linenumber)
00CA66  1  20 65 C4     		jsr		LSTPAR		; extract first parameter
00CA69  1  90 4D        		bcc		npara1		; if carry clear - no parameter
00CA6B  1  20 31 C2     		jsr		PARCOM		; check for delimiter comma
00CA6E  1  B0 53        		bcs		npara2		; carry set if none present
00CA70  1  20 65 C4     		jsr		LSTPAR		; extract second parameter
00CA73  1  A2 01        dolist:	ldx		#$01
00CA75  1  86 04        		stx		accptr		; accumulator stack pointer = 1
00CA77  1  20 E4 C4     		jsr		ENDTST		; check for end of command
00CA7A  1  20 2E C6     		jsr		FNDLNS		; search for line from start of text
00CA7D  1  90 2B        		bcc		linfnd		; line found ? - list from it
00CA7F  1  88           		dey
00CA80  1  B0 1C        		bcs		noline		; line not found - list from next line
00CA82  1               lislin:
00CA82  1               .if ATOM=1
00CA82  1               		lda		#$05
00CA82  1               		sta		$0321
00CA82  1               		jsr		PR_ACC		; output linenumber
00CA82  1               		lda		#$08
00CA82  1               		sta		$0321		; and a space
00CA82  1               .endif
00CA82  1               .if SYSTEM=1
00CA82  1  20 89 C5     		jsr		PR_ACC		; output linenumber
00CA85  1  A9 20        		lda		#SPACE
00CA87  1  20 4C CA     		jsr		WRCH		; and a space
00CA8A  1               .endif
00CA8A  1  A4 03        		ldy		index		; retrieve text pointer index
00CA8C  1  B1 58        outlin:	lda		(bwork+6),y	; output line of text
00CA8E  1  C9 0D        		cmp		#CR
00CA90  1  F0 06        		beq		linend		; until CR found
00CA92  1  20 4C CA     		jsr		WRCH
00CA95  1  C8           		iny
00CA96  1  D0 F4        		bne		outlin
00CA98  1  20 54 CD     linend:	jsr		CRLF		; output CRLF at end of line
00CA9B  1  20 A1 CE     		jsr		ADDYW6		; add Y to pointer
00CA9E  1  B1 58        noline:	lda		(bwork+6),y	; set linenumber of next line
00CAA0  1  85 25        		sta		acc2
00CAA2  1  C8           		iny
00CAA3  1  B1 58        		lda		(bwork+6),y
00CAA5  1  85 16        		sta		acc1
00CAA7  1  C8           		iny
00CAA8  1  84 03        		sty		index		; save pointer index
00CAAA  1  A5 16        linfnd:	lda		acc1		; subtract final linenumber from present
00CAAC  1  18           		clc
00CAAD  1  E5 17        		sbc		acc1+1
00CAAF  1  A5 25        		lda		acc2
00CAB1  1  E5 26        		sbc		acc2+1
00CAB3  1  90 CD        		bcc		lislin		; continue if more lines to go, otherwise
00CAB5  1  4C CF C2     		jmp		nxtcom		; return to immediate mode
00CAB8  1  20 31 C2     npara1:	jsr		PARCOM		; no 1st parameter parse delimiter comma
00CABB  1  E6 04        		inc		accptr		; increment accumulator stack pointer
00CABD  1  20 65 C4     		jsr		LSTPAR		; and extract second parameter (if any)
00CAC0  1  4C 73 CA     		jmp		dolist		; proceed to LIST
00CAC3  1  A5 16        npara2:	lda		acc1		; only 1 parameter given
00CAC5  1  A4 25        		ldy		acc2		; i.e. list one line
00CAC7  1  85 17        		sta		acc1+1		; set to and from linenumber to that line
00CAC9  1  84 26        		sty		acc2+1
00CACB  1  B0 A6        		bcs		dolist		; proceed to LIST line
00CACD  1               
00CACD  1               							; NEXT statement
00CACD  1  20 34 C4     NEXT:	jsr		TST_IV		; was an expression entered ?
00CAD0  1  A4 15        		ldy		forcnt		; load FOR loop counter
00CAD2  1  F0 10        		beq		err230		; have there been any FORs ? - Error 230 'Next without matching FOR'
00CAD4  1  90 0F        		bcc		dostep		; if no variable specified carry on
00CAD6  1  C6 04        		dec		accptr
00CAD8  1  B5 15        		lda		forcnt,x	; load specified variable
00CADA  1  D9 3F 02     tst_v:	cmp		forvar-1,y	; compare with FOR variable
00CADD  1  F0 06        		beq		dostep		; if a match do NEXT
00CADF  1  88           		dey
00CAE0  1  84 15        		sty		forcnt
00CAE2  1  D0 F6        		bne		tst_v		; try previous loop for match
00CAE4  1  00           err230:	brk					; Error 230 'NEXT without matching FOR'
00CAE5  1  BE 3F 02     dostep:	ldx		forvar-1,y	; load loop variable
00CAE8  1  18           		clc
00CAE9  1  BD 21 03     		lda		intega-1,x	; add STEP to variable
00CAEC  1  79 4E 02     		adc		stepa-1,y	; also put result in bwork
00CAEF  1  9D 21 03     		sta		intega-1,x
00CAF2  1  85 52        		sta		bwork
00CAF4  1  BD 3C 03     		lda		integb-1,x
00CAF7  1  79 5D 02     		adc		stepb-1,y
00CAFA  1  9D 3C 03     		sta		integb-1,x
00CAFD  1  85 53        		sta		bwork+1
00CAFF  1  BD 57 03     		lda		integc-1,x
00CB02  1  79 6C 02     		adc		stepc-1,y
00CB05  1  9D 57 03     		sta		integc-1,x
00CB08  1  85 54        		sta		bwork+2
00CB0A  1  BD 72 03     		lda		integd-1,x
00CB0D  1  79 7B 02     		adc		stepd-1,y
00CB10  1  9D 72 03     		sta		integd-1,x
00CB13  1  AA           		tax
00CB14  1  A5 52        		lda		bwork		; check if past TO parameter
00CB16  1  38           		sec					; by subtracting TO from bwork
00CB17  1  F9 8A 02     		sbc		fortoa-1,y
00CB1A  1  85 52        		sta		bwork
00CB1C  1  A5 53        		lda		bwork+1
00CB1E  1  F9 99 02     		sbc		fortob-1,y
00CB21  1  85 53        		sta		bwork+1
00CB23  1  A5 54        		lda		bwork+2
00CB25  1  F9 A8 02     		sbc		fortoc-1,y
00CB28  1  85 54        		sta		bwork+2
00CB2A  1  8A           		txa
00CB2B  1  F9 B7 02     		sbc		fortod-1,y
00CB2E  1  05 52        		ora		bwork
00CB30  1  05 53        		ora		bwork+1
00CB32  1  05 54        		ora		bwork+2
00CB34  1  F0 0F        		beq		loop		; variable = TO ?
00CB36  1  8A           		txa
00CB37  1  59 7B 02     		eor		stepd-1,y	; check is past TO parameter
00CB3A  1  59 B7 02     		eor		fortod-1,y
00CB3D  1  10 04        		bpl		testto
00CB3F  1  B0 04        		bcs		loop
00CB41  1  90 0F        		bcc		endlop
00CB43  1  B0 0D        testto:	bcs		endlop
00CB45  1  B9 C6 02     loop:	lda		forskl-1,y	; if not keep looping
00CB48  1  85 05        		sta		txtptr		; load address after FOR TO statement
00CB4A  1  B9 D5 02     		lda		forskm-1,y	; as text pointer
00CB4D  1  85 06        		sta		txtptr+1
00CB4F  1  4C FF CB     		jmp		rstcon		; reset pointer index and continue execution
00CB52  1  C6 15        endlop:	dec		forcnt		; end of loop - decrement FOR counter
00CB54  1  4C 58 C5     		jmp		ENDCNT		; and continue execution
00CB57  1               
00CB57  1               							; FOR Statement
00CB57  1  20 34 C4     FOR:	jsr		TST_IV		; was an expression entered ?
00CB5A  1  90 11        		bcc		ERR111+1	; Error 111 'Missing variable in FOR'
00CB5C  1  20 79 C2     		jsr		PAREQU		; check for equals
00CB5F  1  20 2C CA     		jsr		SET_V		; set FOR variable to following expression
00CB62  1  98           		tya					; put variable in A
00CB63  1  A4 15        		ldy		forcnt
00CB65  1               .if ATOM=1
00CB65  1               		cpy		#$0B		; check number of FOR loops
00CB65  1               .endif
00CB65  1               .if SYSTEM=1
00CB65  1  C0 0F        		cpy		#$0F		; check number of FOR loops
00CB67  1               .endif
00CB67  1  B0 04        		bcs		ERR111+1	; Error 111 'Too many FOR statements'
00CB69  1  99 40 02     		sta		forvar,y	; save FOR variable
00CB6C  1  A9 00        ERR111:	lda		#$00
00CB6E  1  99 7C 02     		sta		stepd,y		; set STEP to 1 as default
00CB71  1  99 6D 02     		sta		stepc,y
00CB74  1  99 5E 02     		sta		stepb,y
00CB77  1  A9 01        		lda		#$01
00CB79  1  99 4F 02     		sta		stepa,y
00CB7C  1  A2 16        		ldx		#<Table4
00CB7E  1  4C 33 C2     		jmp		PARSE1		; parse 'TO'
00CB81  1               
00CB81  1               							; TO Statement
00CB81  1  20 8B C7     TO:		jsr		IEVALU		; evaluate integer expression
00CB84  1  A4 15        		ldy		forcnt
00CB86  1  CA           		dex					; decrement and save accumulator
00CB87  1  86 04        		stx		accptr		; stack pointer
00CB89  1  B5 16        		lda		acc1,x		; save TO parameter
00CB8B  1  99 8B 02     		sta		fortoa,y
00CB8E  1  B5 25        		lda		acc2,x
00CB90  1  99 9A 02     		sta		fortob,y
00CB93  1  B5 34        		lda		acc3,x
00CB95  1  99 A9 02     		sta		fortoc,y
00CB98  1  B5 43        		lda		acc4,x
00CB9A  1  99 B8 02     		sta		fortod,y
00CB9D  1  A2 1A        		ldx		#<Table5
00CB9F  1  4C 33 C2     		jmp		PARSE1		; parse optional 'STEP'
00CBA2  1               
00CBA2  1               							; STEP Statement
00CBA2  1  20 8B C7     STEP:	jsr		IEVALU		; evaluate integer expression
00CBA5  1  A4 15        		ldy		forcnt
00CBA7  1  CA           		dex					; decrement and save accumulator
00CBA8  1  86 04        		stx		accptr		; stack pointer
00CBAA  1  B5 16        		lda		acc1,x		; save STEP parameter
00CBAC  1  99 4F 02     		sta		stepa,y
00CBAF  1  B5 25        		lda		acc2,x
00CBB1  1  99 5E 02     		sta		stepb,y
00CBB4  1  B5 34        		lda		acc3,x
00CBB6  1  99 6D 02     		sta		stepc,y
00CBB9  1  B5 43        		lda		acc4,x
00CBBB  1  99 7C 02     		sta		stepd,y
00CBBE  1  20 0C C5     STEP_1:	jsr		END_GF		; test for end of statement
00CBC1  1  A4 15        		ldy		forcnt		; save address of next statement
00CBC3  1  A5 05        		lda		txtptr		; on FOR stack
00CBC5  1  99 C7 02     		sta		forskl,y
00CBC8  1  A5 06        		lda		txtptr+1
00CBCA  1  99 D6 02     		sta		forskm,y
00CBCD  1  E6 15        		inc		forcnt		; increment FOR counter
00CBCF  1  4C 1B C3     		jmp		THEN		; and continue
00CBD2  1               
00CBD2  1               							; GOSUB Statement
00CBD2  1  20 1F CC     GOSUB:	jsr		GODEST		; find destination
00CBD5  1  20 0C C5     		jsr		END_GF		; test for end of statement
00CBD8  1  A4 14        		ldy		goscnt
00CBDA  1               .if ATOM=1
00CBDA  1               		cpy		#$0E		; too many nested GOSUBs ?
00CBDA  1               		bcs		err_2-2		; Error 2 'Too many GOSUBs'
00CBDA  1               .endif
00CBDA  1               .if SYSTEM=1
00CBDA  1  C0 0F        		cpy		#$0F		; too many nested GOSUBs ?
00CBDC  1  B0 3F        		bcs		err_31		; Error 31 'Too many GOSUBs'
00CBDE  1               .endif
00CBDE  1  A5 05        		lda		txtptr		; save address of next statement
00CBE0  1  99 03 03     		sta		gostkl,y	; on GOSUB stack for RETURN
00CBE3  1  A5 06        		lda		txtptr+1
00CBE5  1  99 12 03     		sta		gostkm,y
00CBE8  1  E6 14        		inc		goscnt		; increment GOSUB counter
00CBEA  1  90 1F        		bcc		dogoto		; and GOTO statement
00CBEC  1               
00CBEC  1               							; RETURN Statement
00CBEC  1  20 E4 C4     RETURN:	jsr		ENDTST		; test for end of statement
00CBEF  1  A4 14        		ldy		goscnt		; check for end of statement
00CBF1  1  F0 2A        		beq		err_31		; and GOSUBs ? Error 31 'RETURN without GOSUB'
00CBF3  1  C6 14        		dec		goscnt		; decrement GOSUB counter
00CBF5  1  B9 02 03     		lda		gostkl-1,y	; set text pointer to address
00CBF8  1  85 05        		sta		txtptr		; of statement after GOSUB
00CBFA  1  B9 11 03     		lda		gostkm-1,y
00CBFD  1  85 06        setmsb:	sta		txtptr+1
00CBFF  1  20 00 C5     rstcon:	jsr		RSTIND		; reset text pointer index, test for Escape
00CC02  1  4C 1B C3     err_2:	jmp		THEN		; and continue execution
00CC05  1               
00CC05  1               							; GOTO Statement
00CC05  1  20 1F CC     GOTO:	jsr		GODEST		; find destination
00CC08  1  20 E4 C4     		jsr		ENDTST		; test for end of statement
00CC0B  1  A5 57        dogoto:	lda		bwork+5		; label or linenumber ?
00CC0D  1  D0 05        		bne		lab
00CC0F  1  20 2E C6     		jsr		FNDLNS		; linenumber - search for line
00CC12  1  B0 69        		bcs		err127+1	; Error 127 'Label not found' 'Line number not found in GOTO or GOSUB'
00CC14  1  A4 58        lab:	ldy		bwork+6		; load address
00CC16  1  A5 59        		lda		bwork+7
00CC18  1  84 05        		sty		txtptr		; and set text pointer
00CC1A  1  4C FD CB     		jmp		setmsb		; then continue execution
00CC1D  1               
00CC1D  1  00           err_31:	brk					; Error 31 'GOTO or GOSUB errors'
00CC1E  1               
00CC1E  1  C8           nospcf:	iny
00CC1F  1               							; Find Destination Of GOTO Or GOSUB
00CC1F  1  B1 05        GODEST:	lda		(txtptr),y	; retrieve text pointer
00CC21  1  C9 20        		cmp		#SPACE
00CC23  1  F0 F9        		beq		nospcf		; ignore leading spaces
00CC25  1  C9 61        		cmp		#'a'		; is it a label ?
00CC27  1  90 50        		bcc		lineno		; no - must be a linenumber
00CC29  1  85 57        		sta		bwork+5		; set flag to label
00CC2B  1  E9 61        		sbc		#'a'		; offset 'a' to 0
00CC2D  1  C9 1B        		cmp		#$1B		; test label upper limit z
00CC2F  1  B0 48        		bcs		lineno		; not a label try linenumber
00CC31  1  0A           		asl		a			; double offset to label storage
00CC32  1  AA           		tax
00CC33  1  BD 8D 03     		lda		label,x		; and read label address
00CC36  1  85 58        		sta		bwork+6		; put in bwork+6
00CC38  1  20 F6 C4     		jsr		ADDYP		; add index to text pointer
00CC3B  1  BD 8E 03     		lda		label+1,x	; get MSB address of label
00CC3E  1  85 59        		sta		bwork+7		; has it been defined yet ?
00CC40  1  05 58        		ora		bwork+6
00CC42  1  D0 34        		bne		go_rtn		; yes - return
00CC44  1  A8           		tay					; no - find it
00CC45  1  A5 12        		lda		txtpag		; start at bottom of text area
00CC47  1  85 59        		sta		bwork+7
00CC49  1  88           		dey
00CC4A  1  A9 0D        fndlab:	lda		#CR
00CC4C  1  C8           fnd_cr:	iny
00CC4D  1  D1 58        		cmp		(bwork+6),y	; look for end of line, CR
00CC4F  1  D0 FB        		bne		fnd_cr
00CC51  1  C8           		iny
00CC52  1  B1 58        		lda		(bwork+6),y	; read first byte of line - linenumber
00CC54  1               .if ATOM=1
00CC54  1               		bmi		err157+1	; end of text ? - Error 157 'Label not found'
00CC54  1               .endif
00CC54  1               .if SYSTEM=1
00CC54  1  30 27        		bmi		err127+1	; end of text ? - Error 127 'Label not found'
00CC56  1               .endif
00CC56  1  85 02        		sta		baslin+1	; set MSB of linenumber
00CC58  1  C8           		iny
00CC59  1  B1 58        		lda		(bwork+6),y	; read second byte of linenumber
00CC5B  1  85 01        		sta		baslin		; set LSB of linenumber
00CC5D  1  C8           		iny
00CC5E  1  B1 58        		lda		(bwork+6),y	; read label following linenumber
00CC60  1  88           		dey					; (if present)
00CC61  1  C5 57        		cmp		bwork+5		; compare with required label
00CC63  1  F0 06        		beq		setlab
00CC65  1  20 A1 CE     		jsr		ADDYW6		; not required label - reset pointer
00CC68  1  4C 4A CC     		jmp		fndlab		; and keep searching
00CC6B  1  20 A2 CE     setlab:	jsr		ADYCW6		; found label - reset pointer
00CC6E  1  A5 58        		lda		bwork+6		; and set label address
00CC70  1  9D 8D 03     		sta		label,x
00CC73  1  A5 59        		lda		bwork+7
00CC75  1  9D 8E 03     		sta		label+1,x
00CC78  1  60           go_rtn:	rts
00CC79  1  20 BC C8     lineno:	jsr		GETINT		; get linenumber
00CC7C  1  A9 00        err127:	lda		#$00		; set linenumber flag
00CC7E  1  85 57        		sta		bwork+5
00CC80  1  60           		rts					; and return
00CC81  1               
00CC81  1               							; INPUT Statement
00CC81  1  20 72 C3     INPUT:	jsr		QUOTES		; output prompt message
00CC84  1  20 34 C4     		jsr		TST_IV		; test for variable
00CC87  1  B0 05        		bcs		inpint		; branch if integer value input
00CC89  1  A2 2B        		ldx		#<Table8	; otherwise must be a string
00CC8B  1  4C 33 C2     		jmp		PARSE1		; parse '$,'
00CC8E  1               
00CC8E  1               							; Integer INPUT
00CC8E  1  20 09 CD     inpint:	jsr		INPBUF		; input string buffer from input channel
00CC91  1  A5 05        		lda		txtptr
00CC93  1  48           		pha					; save text pointer and index on stack
00CC94  1  A5 06        		lda		txtptr+1
00CC96  1  48           		pha
00CC97  1  A5 03        		lda		index
00CC99  1  48           		pha
00CC9A  1  A0 00        err157:	ldy		#$00
00CC9C  1  84 03        		sty		index		; reset index
00CC9E  1  C8           		iny
00CC9F  1  84 06        		sty		txtptr+1	; point text pointer at string buffer
00CCA1  1  A0 40        		ldy		#<strbuf
00CCA3  1  84 05        		sty		txtptr
00CCA5  1  20 2C CA     		jsr		SET_V		; set variable to expression in buffer
00CCA8  1  68           		pla
00CCA9  1  85 03        		sta		index		; retrieve text pointer and index
00CCAB  1  68           		pla
00CCAC  1  85 06        		sta		txtptr+1
00CCAE  1  68           		pla
00CCAF  1  85 05        		sta		txtptr
00CCB1  1  A2 2C        		ldx		#<Table9	; check for further input variables
00CCB3  1  4C 33 C2     		jmp		PARSE1		; parse ','
00CCB6  1               
00CCB6  1               							; INPut STRing
00CCB6  1  20 8B C7     INPSTR:	jsr		IEVALU		; evaluate integer expression
00CCB9  1  A0 54        		ldy		#bwork+2
00CCBB  1  20 CD C3     		jsr		MOVA_Y		; put address of string in bwork+2
00CCBE  1  20 09 CD     		jsr		INPBUF		; input string buffer from input channel
00CCC1  1  A2 40        		ldx		#<strbuf
00CCC3  1  A0 00        err198:	ldy		#$00
00CCC5  1  BD 00 01     inpch:	lda		buffer,x	; copy string from buffer to string storage
00CCC8  1  91 54        		sta		(bwork+2),y
00CCCA  1  C9 0D        		cmp		#CR			; until CR found
00CCCC  1  F0 B3        		beq		INPUT		; then continue input statement
00CCCE  1  E8           		inx
00CCCF  1  C8           		iny
00CCD0  1  D0 F3        		bne		inpch
00CCD2  1               
00CCD2  1               							; UNTIL Statement
00CCD2  1  20 0C C7     UNTIL:	jsr		I_CMP		; integer compare
00CCD5  1  A4 13        do_unt:	ldy		do_cnt		; evaluate logical expression
00CCD7  1               .if ATOM=1
00CCD7  1               		beq		err198+1	; any DOs ? - Error 198 'UNTIL with no DO'
00CCD7  1               .endif
00CCD7  1               .if SYSTEM=1
00CCD7  1  F0 37        		beq		err_18-1	; any DOs ? - Error 18 'UNTIL with no DO'
00CCD9  1               .endif
00CCD9  1  CA           		dex
00CCDA  1  86 04        		stx		accptr
00CCDC  1  B5 16        		lda		acc1,x		; load logical result
00CCDE  1  F0 05        		beq		nxt_do		; true ?
00CCE0  1  C6 13        		dec		do_cnt		; yes - decrement DO count
00CCE2  1  4C 58 C5     		jmp		ENDCNT		; and go to next statement after DO
00CCE5  1  B9 E4 02     nxt_do:	lda		dostkl-1,y	; false - go to statement after DO
00CCE8  1  85 05        		sta		txtptr		; held on DO stack
00CCEA  1  B9 F3 02     		lda		dostkm-1,y
00CCED  1  4C FD CB     		jmp		setmsb		; and continue execution from there
00CCF0  1               
00CCF0  1               							; DO Statement
00CCF0  1  A6 13        DO:		ldx		do_cnt		; evaluate logical expression
00CCF2  1               .if ATOM=1
00CCF2  1               		cpx		#$0B		; too many DOs ?
00CCF2  1               .endif
00CCF2  1               .if SYSTEM=1
00CCF2  1  E0 0F        		cpx		#$0F		; too many DOs ?
00CCF4  1               .endif
00CCF4  1  B0 1A        		bcs		err_18-1	; Error 18 'Too many DO statements'
00CCF6  1  88           		dey
00CCF7  1  20 F6 C4     		jsr		ADDYP
00CCFA  1  A5 05        		lda		txtptr		; save address of next statement
00CCFC  1  9D E5 02     		sta		dostkl,x	; on DO stack
00CCFF  1  A5 06        		lda		txtptr+1
00CD01  1  9D F4 02     		sta		dostkm,x
00CD04  1  E6 13        		inc		do_cnt
00CD06  1  4C 1B C3     		jmp		THEN		; and continue
00CD09  1               
00CD09  1               							; INPUT Prompt
00CD09  1  A9 3F        INPBUF:	lda		#'?'		; prompt
00CD0B  1  A0 40        		ldy		#<strbuf	; point Y at string buffer
00CD0D  1  D0 02        		bne		BUFFIN+2	; and use BUFFIN
00CD0F  1               
00CD0F  1               							; Read Input Channel Into Buffer
00CD0F  1  A0 00        BUFFIN:	ldy		#$00		; Y=0
00CD11  1  20 4C CA     err_18:	jsr		WRCH		; output prompt in A
00CD14  1  84 52        		sty		bwork		; save buffer index
00CD16  1  A4 52        start:	ldy		bwork
00CD18  1  20 E6 FF     inpchr:	jsr		OSECHO		; read character from input channel and echo
00CD1B  1  C9 7F        		cmp		#DEL		; delete key pressed ?
00CD1D  1  D0 07        		bne		notdel
00CD1F  1  88           decptr:	dey					; yes - backup buffer index
00CD20  1  C4 52        		cpy		bwork		; check we haven't reached the start of buffer ?
00CD22  1  10 F4        		bpl		inpchr		; no - input another character
00CD24  1  30 F0        		bmi		start		; yes - start again
00CD26  1  C9 18        notdel:	cmp		#CAN		; cancel key pressed ?
00CD28  1  D0 06        		bne		notcan
00CD2A  1  20 54 CD     		jsr		CRLF		; yes - output CRLF
00CD2D  1  4C 16 CD     		jmp		start		; and start again
00CD30  1  C9 1B        notcan:	cmp		#ESC		; escape key pressed ?
00CD32  1  D0 03        		bne		notesc
00CD34  1  4C CF C2     		jmp		nxtcom		; yes - return to immediate mode
00CD37  1  99 00 01     notesc:	sta		buffer,y	; must be a character, put in buffer
00CD3A  1  C9 0D        		cmp		#CR			; end of input, CR ?
00CD3C  1  F0 19        		beq		cr			; yes - reset PRINT counter and return
00CD3E  1  C8           		iny					; no - increment buffer index
00CD3F  1  98           		tya
00CD40  1  38           		sec
00CD41  1  E5 52        		sbc		bwork		; is buffer full ?
00CD43  1  C9 40        		cmp		#$40
00CD45  1  90 D1        		bcc		inpchr		; no - continue
00CD47  1  20 E3 FF     bufful:	jsr		OSRDCH		; yes - read next character without echo
00CD4A  1  C9 7F        		cmp		#DEL		; only allow DELETE to be pressed
00CD4C  1  D0 F9        		bne		bufful
00CD4E  1  20 F4 FF     		jsr		OSWRCH		; echo
00CD51  1  4C 1F CD     		jmp		decptr		; and action the DELETE
00CD54  1               
00CD54  1               							; Output CRLF to Output Channel
00CD54  1               
00CD54  1  20 ED FF     CRLF:	jsr		OSCRLF		; use OS call
00CD57  1  A9 00        cr:		lda		#$00
00CD59  1  85 07        		sta		count		; update PRINT counter
00CD5B  1  60           		rts					; and return
00CD5C  1               
00CD5C  1               							; String Assignment
00CD5C  1  20 8B C7     STREQU:	jsr		IEVALU		; evaluate integer expression
00CD5F  1  20 AE CE     		jsr		EQUSTR		; get destination string address, parse '='
00CD62  1  A0 54        		ldy		#bwork+2		; and get new string address
00CD64  1  20 CD C3     		jsr		MOVA_Y		; move string address to bwork
00CD67  1  A0 FF        		ldy		#$FF
00CD69  1  C8           newstr:	iny
00CD6A  1  B1 52        		lda		(bwork),y	; read new string
00CD6C  1  91 54        		sta		(bwork+2),y	; store at destination string
00CD6E  1  C9 0D        		cmp		#CR			; end of string, CR ?
00CD70  1  D0 F7        		bne		newstr		; no - continue
00CD72  1  4C 58 C5     		jmp		ENDCNT		; yes - test end of statement and continue
00CD75  1               
00CD75  1               							; ! Operator (QOKE - Quad POKE With Offset)
00CD75  1  20 81 CD     O_QOKE:	jsr		ADPOKE		; add offset
00CD78  1  4C F1 C3     		jmp		qoke		; and use QOKE
00CD7B  1               
00CD7B  1               							; ? Operator (POKE With Offset)
00CD7B  1  20 81 CD     O_POKE:	jsr		ADPOKE		; add offset
00CD7E  1  4C 09 C4     		jmp		poke		; and use POKE
00CD81  1               
00CD81  1               							; Add Offset For Poke/QOKE
00CD81  1  20 E1 C8     ADPOKE:	jsr		MOVI_A		; move integer variable to accumulator
00CD84  1  20 BC C8     		jsr		GETINT		; and get offset
00CD87  1  CA           		dex
00CD88  1  18           		clc
00CD89  1  B5 16        		lda		acc1,x		; add the two leaving result in accumulator
00CD8B  1  75 15        		adc		acc1-1,x
00CD8D  1  95 15        		sta		acc1-1,x
00CD8F  1  B5 25        		lda		acc2,x
00CD91  1  75 24        		adc		acc2-1,x
00CD93  1  95 24        		sta		acc2-1,x
00CD95  1  86 04        		stx		accptr		; save accumulator stack pointer
00CD97  1  60           		rts					; and return
00CD98  1               
00CD98  1               							; END Statement
00CD98  1  20 E4 C4     END:	jsr		ENDTST		; check for end of statement
00CD9B  1  A5 12        settop:	lda		txtpag
00CD9D  1  85 0E        		sta		TOP+1		; reset TOP to bottom of text area
00CD9F  1  A0 00        		ldy		#$00
00CDA1  1  84 0D        		sty		TOP
00CDA3  1  88           		dey
00CDA4  1  C8           txtend:	iny					; find end of program ($FF) to set TOP
00CDA5  1  B1 0D        		lda		(TOP),y
00CDA7  1  C9 0D        		cmp		#CR
00CDA9  1  D0 F9        		bne		txtend
00CDAB  1  20 BC CD     		jsr		ADDYT
00CDAE  1  B1 0D        		lda		(TOP),y
00CDB0  1  30 03        		bmi		fndend
00CDB2  1  C8           		iny
00CDB3  1  D0 EF        		bne		txtend
00CDB5  1  C8           fndend:	iny
00CDB6  1  20 BC CD     		jsr		ADDYT		; add index to TOP
00CDB9  1  4C CF C2     		jmp		nxtcom		; and return to immediate mode
00CDBC  1               
00CDBC  1               							; Add Y To TOP
00CDBC  1  18           ADDYT:	clc					; clear carry
00CDBD  1  98           ADDYCT:	tya					; move Y to A (add with carry entry)
00CDBE  1  65 0D        		adc		TOP			; and add TOP
00CDC0  1  85 0D        		sta		TOP			; update TOP
00CDC2  1  90 02        		bcc		ninctp
00CDC4  1  E6 0E        		inc		TOP+1		; add carry
00CDC6  1  A0 01        ninctp:	ldy		#$01		; Y=1
00CDC8  1  60           		rts					; and return
00CDC9  1               
00CDC9  1               							; Amend Text
00CDC9  1  84 56        NEWTXT:	sty		bwork+4
00CDCB  1  20 2E C6     		jsr		FNDLNS		; search for line, does it exist ?
00CDCE  1  B0 48        		bcs		INSERT		; no - insert new line
00CDD0  1  A5 58        		lda		bwork+6		; yes - delete old line and then do insert
00CDD2  1  85 52        		sta		bwork		; set bwork to start of old line+1
00CDD4  1  E9 01        		sbc		#$01
00CDD6  1  85 58        		sta		bwork+6		; set bwork+6 and TOP to start of old line
00CDD8  1  85 0D        		sta		TOP
00CDDA  1  A5 59        		lda		bwork+7
00CDDC  1  85 53        		sta		bwork+1
00CDDE  1  E9 00        		sbc		#$00
00CDE0  1  85 0E        		sta		TOP+1
00CDE2  1  85 59        		sta		bwork+7
00CDE4  1  A9 0D        		lda		#CR			; search for end of ,line, CR
00CDE6  1  C8           oldeol:	iny
00CDE7  1  D1 52        		cmp		(bwork),y
00CDE9  1  D0 FB        		bne		oldeol
00CDEB  1  18           		clc
00CDEC  1  98           		tya
00CDED  1  65 52        		adc		bwork		; bwork = end address of old line
00CDEF  1  85 52        		sta		bwork
00CDF1  1  90 02        		bcc		err248
00CDF3  1  E6 53        		inc		bwork+1
00CDF5  1  A0 00        err248:	ldy		#$00
00CDF7  1  B1 52        movdwn:	lda		(bwork),y	; copy text down on top of old line
00CDF9  1  91 0D        		sta		(TOP),y		; i.e. delete line
00CDFB  1  C9 0D        		cmp		#CR
00CDFD  1  F0 09        		beq		eol
00CDFF  1  C8           incptr:	iny					; increment index to pointers
00CE00  1  D0 F5        		bne		movdwn
00CE02  1  E6 53        		inc		bwork+1		; increment MSB of pointers
00CE04  1  E6 0E        		inc		TOP+1
00CE06  1  D0 EF        		bne		movdwn		; branch always
00CE08  1  C8           eol:	iny					; end of line
00CE09  1  D0 04        		bne		noinc
00CE0B  1  E6 53        		inc		bwork+1		; increment MSB of pointers
00CE0D  1  E6 0E        		inc		TOP+1
00CE0F  1  B1 52        noinc:	lda		(bwork),y	; move text
00CE11  1  91 0D        		sta		(TOP),y
00CE13  1  10 EA        		bpl		incptr		; negative byte - end of text area
00CE15  1  20 BD CD     		jsr		ADDYCT		; add index to TOP
00CE18  1               
00CE18  1               							; Insert New Line Of Text
00CE18  1  A0 01        INSERT:	ldy		#$01
00CE1A  1  84 57        		sty		bwork+5
00CE1C  1  88           		dey					; bwork+4 points at input buffer
00CE1D  1  A9 0D        		lda		#CR			; find length of line
00CE1F  1  D1 56        		cmp		(bwork+4),y
00CE21  1  F0 5D        		beq		insrtn		; if first character CR - no line to insert
00CE23  1  C8           fndlen:	iny
00CE24  1  D1 56        		cmp		(bwork+4),y
00CE26  1  D0 FB        		bne		fndlen
00CE28  1  C8           		iny
00CE29  1  C8           		iny
00CE2A  1  A5 0D        		lda		TOP			; move old TOP to bwork+2
00CE2C  1  85 54        		sta		bwork+2
00CE2E  1  A5 0E        		lda		TOP+1
00CE30  1  85 55        		sta		bwork+3
00CE32  1  20 BD CD     		jsr		ADDYCT		; add length of new line to TOP
00CE35  1  85 52        		sta		bwork		; to give new TOP of program
00CE37  1  A5 0E        		lda		TOP+1
00CE39  1  85 53        		sta		bwork+1
00CE3B  1  88           		dey
00CE3C  1  A9 55        		lda		#bwork+3	; test if there is RAM there ?
00CE3E  1  91 0D        		sta		(TOP),y
00CE40  1  D1 0D        		cmp		(TOP),y
00CE42  1  D0 B2        		bne		err248+1	; Error 248 'Not enough room to insert line'
00CE44  1  0A           		asl		a
00CE45  1  91 0D        		sta		(TOP),y
00CE47  1  D1 0D        		cmp		(TOP),y
00CE49  1  D0 AB        		bne		err248+1	; Error 248 'Not enough room to insert line'
00CE4B  1  B1 54        moveup:	lda		(bwork+2),y	; read old text
00CE4D  1  91 52        		sta		(bwork),y	; move to new position
00CE4F  1  98           		tya
00CE50  1  D0 04        		bne		no_dec
00CE52  1  C6 55        		dec		bwork+3		; decrement MSB of pointers
00CE54  1  C6 53        		dec		bwork+1
00CE56  1  88           no_dec:	dey					; decrement index to pointers
00CE57  1               .if ATOM=1
00CE57  1               		tya
00CE57  1               		adc		bwork+2		; and check for end of move
00CE57  1               		ldx 	bwork+3
00CE57  1               		bcc		O1			; ??
00CE57  1               		inx
00CE57  1               O1:		cmp		bwork+6
00CE57  1               		txa
00CE57  1               		sbc		bwork+7
00CE57  1               		bcs		moveup
00CE57  1               		ldy		#$01		; finished moving
00CE57  1               		lda		acc2		; load linenumber of new line
00CE57  1               		sta		(bwork+6),y	; and put in text area
00CE57  1               		iny
00CE57  1               		lda		acc1
00CE57  1               		sta		(bwork+6),y
00CE57  1               		sec
00CE57  1               .endif
00CE57  1               .if SYSTEM=1
00CE57  1  38           		sec
00CE58  1  65 54        		adc		bwork+2		; and check for end of move
00CE5A  1  AA           		tax
00CE5B  1  A9 00        		lda		#$00
00CE5D  1  65 55        		adc		bwork+3
00CE5F  1  C5 59        		cmp		bwork+7
00CE61  1  D0 E8        		bne		moveup
00CE63  1  E4 58        		cpx		bwork+6
00CE65  1  D0 E4        		bne		moveup
00CE67  1  A0 01        		ldy		#$01		; finished moving
00CE69  1  A5 25        		lda		acc2		; load linenumber of new line
00CE6B  1  91 58        		sta		(bwork+6),y	; and put in text area
00CE6D  1  C8           		iny
00CE6E  1  A5 16        		lda		acc1
00CE70  1  91 58        		sta		(bwork+6),y
00CE72  1               .endif
00CE72  1  20 A2 CE     		jsr		ADYCW6		; tidy up text pointer bwork+6
00CE75  1  A0 FF        		ldy		#$FF
00CE77  1  C8           insnew:	iny
00CE78  1  B1 56        		lda		(bwork+4),y	; finally copy new line into
00CE7A  1  91 58        		sta		(bwork+6),y	; text area from buffer
00CE7C  1  C9 0D        		cmp		#CR
00CE7E  1  D0 F7        		bne		insnew
00CE80  1  4C CF C2     insrtn:	jmp		nxtcom		; and return to immediate mode
00CE83  1               
00CE83  1               							; RUN Command
00CE83  1  20 E4 C4     RUN:	jsr		ENDTST		; check for end of statement
00CE86  1  A0 00        		ldy		#$00		; point text pointer and index at bottom
00CE88  1  84 05        		sty		txtptr		; of text area i.e. start of program
00CE8A  1  84 03        		sty		index
00CE8C  1  A5 12        		lda		txtpag
00CE8E  1  85 06        		sta		txtptr+1
00CE90  1  4C 5B C5     		jmp		cont_x		; and execute
00CE93  1               
00CE93  1               							; Perform POKE
00CE93  1  20 DE C4     DOPOKE:	jsr		EQUEXP		; get value to POKE
00CE96  1  CA           		dex
00CE97  1  20 CB C3     		jsr		MOVA_W		; move address to bwork
00CE9A  1  A0 00        		ldy		#$00
00CE9C  1  B5 17        		lda		acc1+1,x
00CE9E  1  91 52        		sta		(bwork),y	; and POKE
00CEA0  1  60           		rts
00CEA1  1               
00CEA1  1               							; Add Y To Word At Work+6
00CEA1  1  18           ADDYW6:	clc					; clear carry
00CEA2  1               							; Add Y+Carry To Word At Work+6
00CEA2  1  98           ADYCW6:	tya
00CEA3  1  65 58        		adc		bwork+6		; Add to LSB
00CEA5  1  85 58        		sta		bwork+6		; update LSB
00CEA7  1  90 02        		bcc		nincw7
00CEA9  1  E6 59        		inc		bwork+7		; add carry
00CEAB  1  4C 00 C5     nincw7:	jmp		RSTIND
00CEAE  1               
00CEAE  1               							; Get String
00CEAE  1  20 79 C2     EQUSTR:	jsr		PAREQU		; check next character is '='
00CEB1  1  A2 26        STRING:	ldx		#<Table7	; extract string
00CEB3  1  4C 33 C2     		jmp		PARSE1		; literal or variable ? - parse '"$'
00CEB6  1               
00CEB6  1               							; String Variable
00CEB6  1  20 8B C7     STRVAR:	jsr		IEVALU		; evaluate integer expression
00CEB9  1  20 CB C3     		jsr		MOVA_W		; move result in accumulator to bwork
00CEBC  1  A4 03        		ldy		index		; retrieve text pointer index
00CEBE  1  60           		rts					; and return
00CEBF  1               
00CEBF  1               							; String Literal
00CEBF  1  20 F6 C4     STRLIT:	jsr		ADDYP		; add index to text pointer
00CEC2  1  84 53        		sty		bwork+1		; set-up MSB of string pointer
00CEC4  1  88           		dey					; Y=0
00CEC5  1  A2 00        err200:	ldx		#$00
00CEC7  1  B1 05        movstr:	lda		(txtptr),y	; read string
00CEC9  1  C9 0D        		cmp		#CR			; end of string, CR ?
00CECB  1  F0 F9        		beq		err200+1	; Error 200 'Unmatched quotes in string'
00CECD  1  9D 40 01     		sta		strbuf,x	; and store in string buffer
00CED0  1  E8           		inx
00CED1  1  C8           		iny
00CED2  1  C9 22        		cmp		#'"'		; until terminating quote found
00CED4  1  D0 F1        		bne		movstr
00CED6  1  B1 05        		lda		(txtptr),y	; however there could be a second quote
00CED8  1  C9 22        		cmp		#'"'		; representing a single quote
00CEDA  1  F0 0E        		beq		tquote
00CEDC  1  A9 0D        		lda		#CR			; terminate with CR
00CEDE  1  9D 3F 01     		sta		strbuf-1,x
00CEE1  1  84 03        		sty		index		; save index
00CEE3  1  A9 40        		lda		#<strbuf	; point LSB of string pointer
00CEE5  1  85 52        		sta		bwork		; at string buffer
00CEE7  1  A6 04        		ldx		accptr		; retrieve accumulator stack pointer
00CEE9  1  60           		rts					; and return
00CEEA  1  C8           tquote:	iny					; back up a character
00CEEB  1  B0 DA        		bcs		movstr		; and continue moving string
00CEED  1               
00CEED  1               							; LOAD Command
00CEED  1  20 FA CE     LOAD:	jsr		INITAB		; initialise I/O table
00CEF0  1  88           		dey
00CEF1  1  84 56        		sty		bwork+4		; set - do not use file load address
00CEF3  1  38           		sec					; wait in DMA or Interrupt software
00CEF4  1  20 E0 FF     		jsr		OSLOAD		; do load
00CEF7  1  4C 9B CD     		jmp		settop		; reset text area pointer and return
00CEFA  1               
00CEFA  1  20 B1 CE     INITAB:	jsr		STRING		; Initialise I/O Table
00CEFD  1  20 E4 C4     		jsr		ENDTST		; get filename, check for end of statement
00CF00  1  88           		dey
00CF01  1  84 54        		sty		bwork+2		; set-up address of bottom of text
00CF03  1  A5 12        		lda		txtpag		; for load and save
00CF05  1  85 55        		sta		bwork+3
00CF07  1  A2 52        		ldx		#bwork		; point X at I/O Table
00CF09  1  60           		rts					; and return
00CF0A  1               
00CF0A  1               							; SAVE Command
00CF0A  1  20 FA CE     SAVE:	jsr		INITAB		; initialise I/O table
00CF0D  1  84 58        		sty		bwork+6		; set-up start address of data - bottom of text area
00CF0F  1  85 59        		sta		bwork+7
00CF11  1  A5 0D        		lda		TOP			; end address of data - TOP
00CF13  1  85 5A        		sta		bwork+8
00CF15  1  A5 0E        		lda		TOP+1
00CF17  1  85 5B        		sta		bwork+9
00CF19  1  A9 B2        		lda		#<BASIC1	; execute address - BASIC1
00CF1B  1  85 56        		sta		bwork+4
00CF1D  1  A9 C2        		lda		#>BASIC1
00CF1F  1  85 57        		sta		bwork+5
00CF21  1  18           		clc					; do not wait for completion
00CF22  1  20 DD FF     		jsr		OSSAVE		; do save
00CF25  1  4C 5B C5     		jmp		cont_x		; and continue execution
00CF28  1               
00CF28  1               							; EXT Function
00CF28  1  38           EXT:	sec
00CF29  1               							; PTR Function
00CF29  1  A9 00        F_PTR:	lda		#$00
00CF2B  1  2A           		rol		a			; rotate carry flag into A to get 0 or 1
00CF2C  1  48           		pha
00CF2D  1  20 3E CF     		jsr		GETHDL		; get file handle
00CF30  1  A2 52        		ldx		#bwork		; point X at result location
00CF32  1  68           		pla
00CF33  1  20 DA FF     		jsr		OSRDAR		; get specified argument
00CF36  1  A0 52        		ldy		#bwork		; point Y at result
00CF38  1  20 9F C9     		jsr		MOVY_A		; and move to accumulator
00CF3B  1  95 42        		sta		acc4-1,x
00CF3D  1  60           		rts
00CF3E  1               
00CF3E  1               							; Get File Handle
00CF3E  1  20 BC C8     GETHDL:	jsr		GETINT		; get integer
00CF41  1  B4 15        SETHDL:	ldy		acc1-1,x	; put in Y for DOS routines
00CF43  1  CA           		dex					; decrement and save accumulator
00CF44  1  86 04        		stx		accptr		; stack pointer
00CF46  1  60           		rts					; and return
00CF47  1               
00CF47  1               							; PTR Statement
00CF47  1  20 BC C8     PTR:	jsr		GETINT		; get integer
00CF4A  1  20 DE C4     		jsr		EQUEXP
00CF4D  1  20 CB C3     		jsr		MOVA_W		; get file pointer into bwork
00CF50  1  20 41 CF     		jsr		SETHDL		; get file handle
00CF53  1  A2 52        		ldx		#bwork		; point X at file pointer
00CF55  1  20 D7 FF     		jsr		OSSTAR		; set file pointer
00CF58  1  4C 5B C5     		jmp		cont_x		; and continue execution
00CF5B  1               
00CF5B  1               							; BGET Function
00CF5B  1  20 3E CF     BGET:	jsr		GETHDL		; get file handle
00CF5E  1  84 52        		sty		bwork		; set-up file handle
00CF60  1  20 D4 FF     		jsr		OSBGET		; get byte from file
00CF63  1  4C 7C C9     		jmp		byte_a		; and continue execution
00CF66  1               
00CF66  1               							; GET Function
00CF66  1  20 5B CF     GET:	jsr		BGET		; use BGET for first byte
00CF69  1  A4 52        		ldy		bwork
00CF6B  1  20 D4 FF     		jsr		OSBGET		; then get remaining 3 bytes
00CF6E  1  95 24        		sta		acc2-1,x
00CF70  1  20 D4 FF     		jsr		OSBGET
00CF73  1  95 33        		sta		acc3-1,x
00CF75  1  20 D4 FF     		jsr		OSBGET
00CF78  1  95 42        		sta		acc4-1,x
00CF7A  1  60           		rts
00CF7B  1               
00CF7B  1               							; Do PUT
00CF7B  1  20 BC C8     DO_PUT:	jsr		GETINT		; get value to PUT
00CF7E  1  20 31 C2     		jsr		PARCOM		; check for delimiter ','
00CF81  1  20 E1 C4     		jsr		EXPEND		; and final parameter
00CF84  1  20 CB C3     		jsr		MOVA_W
00CF87  1  20 41 CF     		jsr		SETHDL		; get file handle
00CF8A  1  A5 52        		lda		bwork
00CF8C  1  6C 16 02     		jmp		(BPTVEC)	; and send byte
00CF8F  1               
00CF8F  1               							; BPUT Statement
00CF8F  1  20 7B CF     BPUT:	jsr		DO_PUT		; PUT byte
00CF92  1  4C 5B C5     putrtn:	jmp		cont_x		; and continue execution
00CF95  1               
00CF95  1               							; PUT Statement
00CF95  1  20 7B CF     PUT:	jsr		DO_PUT		; use BPUT for first byte
00CF98  1  A2 01        		ldx		#$01
00CF9A  1  B5 52        put_4:	lda		bwork,x
00CF9C  1  20 D1 FF     		jsr		OSBPUT		; then send 3 remaining bytes
00CF9F  1  E8           		inx
00CFA0  1  E0 04        		cpx		#$04
00CFA2  1  90 F6        		bcc		put_4
00CFA4  1  B0 EC        		bcs		putrtn		; and return
00CFA6  1               
00CFA6  1               							; FIN Function
00CFA6  1  38           FIN:	sec
00CFA7  1               							; FOUT Function
00CFA7  1  08           FOUT:	php
00CFA8  1  20 B1 CE     		jsr		STRING		; get filename
00CFAB  1  A2 52        		ldx		#bwork		; point X at I/O table
00CFAD  1  28           		plp					; retrieve exist flag
00CFAE  1  20 CE FF     		jsr		OSFIND		; find file
00CFB1  1  A6 04        		ldx		accptr		; retrieve accumulator stack pointer
00CFB3  1  4C 7C C9     		jmp		byte_a		; return handle, in A, in accumulator
00CFB6  1               
00CFB6  1               							; SHUT Statement
00CFB6  1  20 BC C8     SHUT:	jsr		GETINT		; get file handle
00CFB9  1  20 E4 C4     		jsr		ENDTST		; test for end of statement
00CFBC  1  20 41 CF     		jsr		SETHDL		; set file handle
00CFBF  1  20 CB FF     		jsr		OSSHUT		; shut file
00CFC2  1  4C 5B C5     s_cont:	jmp		cont_x		; and continue
00CFC5  1               
00CFC5  1               							; SPUT Statement
00CFC5  1  20 2C C2     SPUT:	jsr		HDLCOM		; get file handle
00CFC8  1  20 B1 CE     		jsr		STRING		; and string to PUT
00CFCB  1  20 E4 C4     		jsr		ENDTST		; test for end of statement
00CFCE  1  88           		dey					; Y=0
00CFCF  1  B1 52        putstr:	lda		(bwork),y	; read string
00CFD1  1  84 55        		sty		bwork+3		; save string pointer
00CFD3  1  A4 0F        		ldy		handle		; retrieve file handle
00CFD5  1  48           		pha
00CFD6  1  20 D1 FF     		jsr		OSBPUT		; send character
00CFD9  1  68           		pla
00CFDA  1  C9 0D        		cmp		#CR			; was it end of string, CR ?
00CFDC  1  F0 E4        		beq		s_cont		; yes - continue next statement
00CFDE  1  A4 55        		ldy		bwork+3		; no - retrieve string pointer
00CFE0  1  C8           		iny
00CFE1  1  D0 EC        		bne		putstr		; and get next character
00CFE3  1               
00CFE3  1               							; SGET Statement
00CFE3  1  20 2C C2     SGET:	jsr		HDLCOM		; get file handle
00CFE6  1  20 E1 C4     		jsr		EXPEND		; and string address
00CFE9  1  20 CB C3     		jsr		MOVA_W		; move address to bwork
00CFEC  1  A0 00        		ldy		#$00
00CFEE  1  84 55        getstr:	sty		bwork+3
00CFF0  1  A4 0F        		ldy		handle		; retrieve file handle
00CFF2  1  20 D4 FF     		jsr		OSBGET		; read character
00CFF5  1  A4 55        		ldy		bwork+3		; save file handle
00CFF7  1  91 52        		sta		(bwork),y	; save character
00CFF9  1  C8           		iny
00CFFA  1  C9 0D        		cmp		#CR			; end of string, CR ?
00CFFC  1  D0 F0        		bne		getstr		; no - get next character
00CFFE  1  F0 C2        		beq		s_cont		; yes - continue next statement
00D000  1               
00D000  1               .if ATOM=1
00D000  1               		.org	$F000		; Start address of Atom OS ROM
00D000  1               ;
00D000  1               EXTRA:	.byte	"PLOT",>PLOT,<PLOT		; $BD4E		; Table of Extra Atom Commands And Their Routine Addresses
00D000  1               		.byte	"DRAW",>DRAW,<DRAW		; $BD42
00D000  1               		.byte	"MOVE",>MOVE,<MOVE		; $BD46
00D000  1               		.byte	"CLEAR",>CLEAR,<CLEAR	; $BE7B
00D000  1               		.byte	"DIM",>DIM,<DIM			; $B8AE
00D000  1               		.byte	"[",>ASSEM,<ASSEM		; $BAA1
00D000  1               		.byte	"OLD",>OLD,<OLD			; $BD31
00D000  1               		.byte	"WAIT",>WAIT,<WAIT		; $B94C
00D000  1               		.byte	>NOSTAT,<NOSTAT			; $C550
00D000  1               
00D000  1               							; Entry Point On Unknown Function
00D000  1               RDARAY:	ldy		bwork+$C
00D000  1               		lda		(txtptr),y	; retrieve index, is it an array read ?
00D000  1               		cmp		#'@'		; check array name @@ to ZZ
00D000  1               		bcc		naraya
00D000  1               		cmp		#'['
00D000  1               		bcs		naraya
00D000  1               		iny
00D000  1               		cmp		(txtptr),y	; and second character
00D000  1               		bne		naraya
00D000  1               		jsr		ARASUB
00D000  1               		jsr		F_PEEK+3	; PEEK address of required location
00D000  1               		jmp		doqeek		; QEEK 4 bytes of array location
00D000  1               naraya:	jmp		NOFUNC		; not an array - back to check for FP Extension
00D000  1               
00D000  1               							; Entry Point On Unknown Statement
00D000  1               WRARAY:	ldx		#$FF
00D000  1               		ldy		bwork+$C	; retrieve index after parse
00D000  1               		dec		bwork+$C
00D000  1               		lda		(txtptr),y	; is it an array write ?
00D000  1               		cmp		#'@'		; check array name @@ to ZZ
00D000  1               		bcc		exstat
00D000  1               		cmp		#'['
00D000  1               		bcs		exstat
00D000  1               		iny
00D000  1               		cmp		(txtptr),y	; and second character
00D000  1               		beq		ARRAY		; branch if array
00D000  1               exstat:	ldy		bwork+$C	; must be one of extra statements
00D000  1               fndext:	inx
00D000  1               		iny
00D000  1               		lda		EXTRA,x		; read table of extra statements
00D000  1               		bmi		extfnd		; negative ? - (end), statement found
00D000  1               		cmp		(txtptr),y	; compare with text
00D000  1               		beq		fndext		; if equal keep comparing
00D000  1               extend:	inx					; not equal, find end of present
00D000  1               		lda		EXTRA-1,x	; statement in table
00D000  1               		bpl		extend
00D000  1               		bne		exstat		; and try next statement
00D000  1               extfnd:	sta		bwork+1		; set up routine address
00D000  1               		lda		EXTRA+1,x
00D000  1               		sta		bwork
00D000  1               		sty		index		; save index and
00D000  1               		ldx		accptr		; load accumulator stack pointer
00D000  1               		inc		bwork+$C
00D000  1               err134:	jmp		(bwork)		; jump to statement routine
00D000  1               
00D000  1               							; Write To Array
00D000  1               ARRAY:	jsr		ARASUB		; extract subscript
00D000  1               		jmp		qoke		; QOKE data into array
00D000  1               
00D000  1               							; Extract Array Subscript And Return Address
00D000  1               ARASUB:	iny
00D000  1               		sty		index		; save index
00D000  1               getlab:	sbc		#$40		; calculate offset to array addresses
00D000  1               		pha
00D000  1               		jsr		GETINT		; get subscript
00D000  1               		pla
00D000  1               		tay					; move array offset to Y
00D000  1               		lda		acc1-1,x	; multiply subscript by 4
00D000  1               		asl		a
00D000  1               		rol		acc2-1,x
00D000  1               		asl		a
00D000  1               		rol		acc2-1,x
00D000  1               		clc
00D000  1               		adc		arrayl,y	; set to array base address
00D000  1               		sta		acc1-1,x
00D000  1               		lda		acc2-1,x
00D000  1               		adc		arraym,y
00D000  1               		sta		acc2-1,x
00D000  1               		bcs		err134+2	; Error 134 'Array subscript out of range'
00D000  1               		rts					; return - location address in accumulator
00D000  1               
00D000  1               							; DIM statement
00D000  1               DIM:	lda		baslin		; linenumber = 0 ?
00D000  1               		ora		baslin+1
00D000  1               		beq		err216		; Error 216 'Illegal DIM statement'
00D000  1               		jsr		TST_IV		; dimension string ?
00D000  1               		bcc		dimary		; no - must be an array
00D000  1               		jsr		GETINT		; get array size
00D000  1               		dex
00D000  1               		dex
00D000  1               		stx		accptr		; save accumulator stack pointer
00D000  1               		ldy		acc1,x		; load string variable pointer
00D000  1               		sec
00D000  1               		lda		frespc		; point string variable at free space and
00D000  1               		sta		intega-1,y
00D000  1               		adc		acc1+1,x	; add dimension size to free space pointer
00D000  1               		sta		frespc
00D000  1               		lda		acc2-1
00D000  1               		sta		integb-1,y
00D000  1               		adc		acc2+1,x
00D000  1               		jmp		dimtst		; test sufficient memory and continue
00D000  1               
00D000  1               err216:	brk					; error 216 'Illegal DIM statement'
00D000  1               
00D000  1               							; Dimension Array
00D000  1               dimary:	ldy		index
00D000  1               		lda		(txtptr),y	; check array name is @@ to ZZ
00D000  1               		cmp		#'@'		; first character
00D000  1               		bcc		err216		; Error 216 'Illegal DIM statement'
00D000  1               		cmp		#'['
00D000  1               		bcs		err216
00D000  1               		iny
00D000  1               		cmp		(txtptr),y	; and second character
00D000  1               		bne		err216
00D000  1               		sbc		#'@'		; calculate offset to array addresses
00D000  1               		pha
00D000  1               		iny
00D000  1               		sty		index		; save index
00D000  1               		jsr		GETINT		; get array size
00D000  1               		pla
00D000  1               		tay
00D000  1               		lda		frespc		; point array at free space
00D000  1               		sta		arrayl,y
00D000  1               		lda		acc2-1
00D000  1               		sta		arraym,y
00D000  1               		dex					; decrement and save accumulator
00D000  1               		stx		accptr		; stack pointer
00D000  1               		ldy		acc1,x		; increment array size to actual
00D000  1               		iny					; number of subscripts (i.e. including 0)
00D000  1               		bne		mulsub
00D000  1               		inc		acc2,x
00D000  1               mulsub:	tya					; multiply array size by 4
00D000  1               		asl		a
00D000  1               		rol		acc2,x
00D000  1               		asl		a
00D000  1               		rol		acc2,x
00D000  1               		clc					; and add to free space pointer
00D000  1               		adc		frespc
00D000  1               		sta		frespc
00D000  1               		lda		acc2,x
00D000  1               		adc		acc2-1
00D000  1               		bcs		err216
00D000  1               dimtst:	sta		acc2-1
00D000  1               err_30:	ldy		#$00
00D000  1               		lda		#$AA		; test if RAM at end of array
00D000  1               		sta		(frespc),y
00D000  1               		cmp		(frespc),y
00D000  1               		bne		err_30+1	; Error 30 'Array too large in DIM statement'
00D000  1               		lsr		a
00D000  1               		sta		(frespc),y
00D000  1               		cmp		(frespc),y
00D000  1               		bne		err_30+1
00D000  1               		jsr		TST_IV		; check for delimiter before next variable
00D000  1               		bcs		err216
00D000  1               		ldy		index
00D000  1               		lda		(txtptr),y
00D000  1               		cmp		#','
00D000  1               		bne		enddim		; no - end DIM Statement
00D000  1               		inc		index
00D000  1               		jmp		DIM			; DIMension next variable
00D000  1               enddim:	jmp		ENDCNT		; test for end of statement and continue
00D000  1               
00D000  1               							; RUN Command
00D000  1               NEWRUN:	lda		TOP			; point free space at TOP
00D000  1               		sta		frespc
00D000  1               		lda		TOP+1
00D000  1               		sta		acc2-1
00D000  1               		jmp		RUN			; and run
00D000  1               
00D000  1               							; WAIT Statement
00D000  1               WAIT:	jsr		ENDTST		; test for end of line
00D000  1               		jsr		$FE66		; wait for fly-back
00D000  1               		jmp		cont_x		; and continue execution
00D000  1               
00D000  1               							; 1st Half Of Compressed Mnemonics
00D000  1               MNTABH:	.byte	$1C			; BRK
00D000  1               		.byte	$8A			; PHP
00D000  1               		.byte	$1C			; BPL
00D000  1               		.byte	$23			; CLC
00D000  1               		.byte	$5D			; JSR
00D000  1               		.byte	$8B			; PLP
00D000  1               		.byte	$1B			; BMI
00D000  1               		.byte	$A1			; SEC
00D000  1               		.byte	$9D			; RTI
00D000  1               		.byte	$8A			; PHA
00D000  1               		.byte	$1D			; BVC
00D000  1               		.byte	$23			; CLI
00D000  1               		.byte	$9D			; RTS
00D000  1               		.byte	$8B			; PLA
00D000  1               		.byte	$1D			; BVS
00D000  1               		.byte	$A1			; SEI
00D000  1               		.byte	$00			;
00D000  1               		.byte	$29			; DEY
00D000  1               		.byte	$19			; BCC
00D000  1               		.byte	$AE			; TYA
00D000  1               		.byte	$69			; LDY
00D000  1               		.byte	$A8			; TAY
00D000  1               		.byte	$19			; BCS
00D000  1               		.byte	$23			; CLV
00D000  1               		.byte	$24			; CPY
00D000  1               		.byte	$53			; INY
00D000  1               		.byte	$1B			; BNE
00D000  1               		.byte	$23			; CLD
00D000  1               		.byte	$24			; CPX
00D000  1               		.byte	$53			; INX
00D000  1               		.byte	$19			; BEQ
00D000  1               		.byte	$A1			; SED
00D000  1               		.byte	$00			;
00D000  1               		.byte	$1A			; BIT
00D000  1               		.byte	$5B			; JMP
00D000  1               		.byte	$5B			; JMP
00D000  1               		.byte	$A5			; STY
00D000  1               		.byte	$69			; LDY
00D000  1               		.byte	$24			; CPY
00D000  1               		.byte	$24			; CPX
00D000  1               		.byte	$AE			; TXA
00D000  1               		.byte	$AE			; TXS
00D000  1               		.byte	$A8			; TAX
00D000  1               		.byte	$AD			; TSX
00D000  1               		.byte	$29			; DEX
00D000  1               		.byte	$00			;
00D000  1               		.byte	$7C			; NOP
00D000  1               		.byte	$00			;
00D000  1               		.byte	$15			; ASL
00D000  1               		.byte	$9C			; ROL
00D000  1               		.byte	$6D			; LSR
00D000  1               		.byte	$9C			; ROR
00D000  1               		.byte	$A5			; STX
00D000  1               		.byte	$69			; LDX
00D000  1               		.byte	$29			; DEC
00D000  1               		.byte	$53			; INC
00D000  1               		.byte	$84			; ORA
00D000  1               		.byte	$13			; AND
00D000  1               		.byte	$34			; EOR
00D000  1               		.byte	$11			; ADC
00D000  1               		.byte	$A5			; STA
00D000  1               		.byte	$69			; LDA
00D000  1               		.byte	$23			; CMP
00D000  1               		.byte	$A0			; SBC
00D000  1               
00D000  1               													; 2nd Half Of Compressed Mnemonics
00D000  1               MNTABL:	.byte	$D8,$62,$5A,$48,$26,$62,$94,$88
00D000  1               		.byte	$54,$44,$C8,$54,$68,$44,$E8,$94
00D000  1               		.byte	$00,$B4,$08,$84,$74,$B4,$28,$6E
00D000  1               		.byte	$74,$F4,$CC,$4A,$72,$F2,$A4,$8A
00D000  1               		.byte	$00,$AA,$A2,$A2,$74,$74,$74,$72
00D000  1               		.byte	$44,$68,$B2,$32,$B2,$00,$22,$00
00D000  1               		.byte	$1A,$1A,$26,$26,$72,$72,$88,$C8
00D000  1               		.byte	$C4,$CA,$26,$48,$44,$44,$A2,$C8
00D000  1               
00D000  1               LOWLIM:	.byte	$00,$02,$00,$08,$F2,$FF,$80,$01		; Data To Determine Range Of Valid
00D000  1               		.byte	$C0,$E2,$C0,$C0,$FF,$00,$00			; Instruction Types (low byte)
00D000  1               
00D000  1               UPPLIM:	.byte	$08,$00,$10,$80,$40,$C0,$00,$C0		; (upper byte)
00D000  1               		.byte	$00,$40,$00,$00,$E4,$20,$80
00D000  1               
00D000  1               OPOFFS:	.byte	$00,$FC,$00,$08,$08,$F8,$FC,$F4		; Opcode Offset For each Addressing Mode
00D000  1               		.byte	$0C,$10,$04,$F4,$00,$20,$10
00D000  1               
00D000  1               OPERAN:	.byte	$00,$00,$0F,$01,$01,$01,$11,$11		; Number Of Operands For Addressing Modes
00D000  1               		.byte	$02,$02,$11,$11,$02,$12,$02
00D000  1               
00D000  1               OPCODE:	.byte	$00,$08,$10,$18,$20,$28,$30,$38		; Opcode Base For Instruction Mnemonics
00D000  1               		.byte	$40,$48,$50,$58,$60,$68,$70,$78
00D000  1               		.byte	$80,$88,$90,$98,$A0,$A8,$B0,$B8
00D000  1               		.byte	$C0,$C8,$D0,$D8,$E0,$E8,$F0,$F8
00D000  1               		.byte	$0C,$2C,$4C,$4C,$8C,$AC,$CC,$EC
00D000  1               		.byte	$8A,$9A,$AA,$BA,$CA,$DA,$EA,$FA
00D000  1               		.byte	$0E,$2E,$4E,$6E,$8E,$AE,$CE,$EE
00D000  1               		.byte	$0D,$2D,$4D,$6D,$8D,$AD,$CD,$ED
00D000  1               
00D000  1               OPADMD:	.byte	$0D,$0D,$0C,$0D,$0E,$0D,$0C,$0D		; Addressing Mode Data For Each instruction
00D000  1               		.byte	$0D,$0D,$0C,$0D,$0D,$0D,$0C,$0D
00D000  1               		.byte	$0F,$0D,$0C,$0D,$09,$0D,$0C,$0D
00D000  1               		.byte	$08,$0D,$0C,$0D,$08,$0D,$0C,$0D
00D000  1               		.byte	$0F,$06,$0B,$0B,$04,$0A,$08,$08
00D000  1               		.byte	$0D,$0D,$0D,$0D,$0D,$0F,$0D,$0F
00D000  1               		.byte	$07,$07,$07,$07,$05,$09,$03,$03
00D000  1               		.byte	$01,$01,$01,$01,$02,$01,$01,$01
00D000  1               
00D000  1               							; Read Character From Text Area
00D000  1               rd_txt:	ldy		index		; retrieve text pointer index
00D000  1               		lda		(txtptr),y
00D000  1               		inc		index		; read character
00D000  1               		cmp		#SPACE		; ignore spaces
00D000  1               		beq		rd_txt
00D000  1               		rts					; and return
00D000  1               
00D000  1               asmend:	inc		index		; end of assembly
00D000  1               		jmp		THEN		; continue execution
00D000  1               							; Assembler
00D000  1               ASSEM:	lda		(txtptr),y
00D000  1               		cmp		#']'		; ] - end of assembly
00D000  1               		beq		asmend
00D000  1               		jsr		ADDYP		; tidy up text pointer
00D000  1               		dec		index
00D000  1               		jsr		ASMLIN		; assemble line of source
00D000  1               		dec		index
00D000  1               		lda		bwork		; save object address
00D000  1               		pha
00D000  1               		lda		bwork+1
00D000  1               		pha
00D000  1               		lda		pwidth		; save PRINT field width
00D000  1               		pha
00D000  1               		lda		#$00		; clear MS word of accumulator
00D000  1               		sta		acc3
00D000  1               		sta		acc4
00D000  1               		lda		#$05		; set PRINT field width=5
00D000  1               		sta		intega-1
00D000  1               		lda		baslin		; set-up linenumber in accumulator
00D000  1               		sta		acc1
00D000  1               		lda		baslin+1
00D000  1               		sta		acc2
00D000  1               		jsr		PR_ACC		; and print it
00D000  1               		jsr		PR_SPC		; and a space
00D000  1               		pla
00D000  1               		sta		$0321		; retrieve field width
00D000  1               		pla
00D000  1               		jsr		PRBYTE		; output MSB of address
00D000  1               		pla
00D000  1               		jsr		PRBYSP		; and LSB plus a space
00D000  1               		ldy		#$00
00D000  1               outopc:	cpy		$00
00D000  1               		beq		spcfil
00D000  1               		lda		opcode,y	; output required number of object bytes
00D000  1               		jsr		PRBYSP
00D000  1               		iny
00D000  1               		bne		outopc
00D000  1               spcfil:	cpy		#$03		; fill out with spaces
00D000  1               		beq		filled
00D000  1               		jsr		PR_SPC		; 3 at a time
00D000  1               		jsr		WRCH
00D000  1               		jsr		WRCH
00D000  1               		iny
00D000  1               		bne		spcfil
00D000  1               filled:	ldy		#$00
00D000  1               outext:	lda		(txtptr),y	; output text
00D000  1               		cmp		#';'
00D000  1               		beq		outend
00D000  1               		cmp		#CR
00D000  1               		beq		outend
00D000  1               		jsr		WRCH
00D000  1               		iny
00D000  1               		bne		outext
00D000  1               outend:	jsr		CRLF		; output CRLF
00D000  1               		jsr		ENDTST		; and test for end of line
00D000  1               		dey
00D000  1               		lda		(txtptr),y	; what was terminator ?
00D000  1               		iny
00D000  1               		cmp		#';'		; continuation ?
00D000  1               		beq		conasm		; yes - continue assembly
00D000  1               		lda		txtptr+1	; no - must be CR
00D000  1               		cmp		#$01		; if in immediate mode return
00D000  1               		bne		nxtlin		; otherwise carry on
00D000  1               		jmp		nxtcom
00D000  1               nxtlin:	jsr		NEWLIN+1	; set-up next line
00D000  1               conasm:	jmp		ASSEM		; and continue assembling
00D000  1               LABEL:	jsr		rd_txt		; label found in source line
00D000  1               		sta		opcode		; read name
00D000  1               		jsr		rd_txt
00D000  1               		cmp		opcode		; compare two characters of label
00D000  1               		bne		err_76+1	; Error 76 'Assembler label error'
00D000  1               		cmp		#'@'		; check label name @@ to ZZ
00D000  1               		bcc		err_76+1	; Error 76 'Assembler label error'
00D000  1               		cmp		#'['
00D000  1               		bcs		err_76+1	; Error 76 'Assembler label error'
00D000  1               		sec
00D000  1               		jsr		getlab		; get label (array) address
00D000  1               		jsr		MOVA_W		; and move to work
00D000  1               err_76:	ldy		#00
00D000  1               		lda		intega+$F	; set label (array) address to P
00D000  1               		sta		(bwork),y
00D000  1               		lda		integb+$F
00D000  1               		iny
00D000  1               		sta		(bwork),y
00D000  1               		lda		#$00		; clear MS word of label (array)
00D000  1               		iny
00D000  1               		sta		(bwork),y
00D000  1               		iny
00D000  1               		sta		(bwork),y
00D000  1               		bne		monic		; continue with assembly of line
00D000  1               coment:	jsr		rd_txt		; read over comment to find end
00D000  1               		cmp		#';'
00D000  1               		beq		blank
00D000  1               		cmp		#CR
00D000  1               		bne		coment
00D000  1               blank:	lda		intega+$F	; move present address P to work
00D000  1               		sta		bwork
00D000  1               		lda		integb+$F
00D000  1               		sta		bwork+1
00D000  1               		rts
00D000  1               
00D000  1               							; Print Byte And
00D000  1               PRBYSP:	jsr		PRBYTE
00D000  1               							; Print Space
00D000  1               PR_SPC:	lda		#SPACE
00D000  1               		jmp		WRCH
00D000  1               
00D000  1               							; Print Byte
00D000  1               PRBYTE:	ldx		#$FF
00D000  1               		pha					; save byte
00D000  1               		lsr		a			; shift MS digit into position
00D000  1               		lsr		a
00D000  1               		lsr		a
00D000  1               		lsr		a
00D000  1               		jsr		$C5F9		; and output ??
00D000  1               		pla					; retrieve byte
00D000  1               		and		#$0F		; mask MS digit
00D000  1               		jmp		$C5F9		; output LS digit
00D000  1               
00D000  1               							; Assemble Source Line
00D000  1               ASMLIN:	ldx		#$00
00D000  1               		stx		$00
00D000  1               		stx		adrmod
00D000  1               		stx		adrmod+1
00D000  1               monic:	jsr		rd_txt		; read source code
00D000  1               		cmp		#':'		; label ?
00D000  1               		beq		LABEL		; yes - set label address
00D000  1               		cmp		#';'		; continuation ?
00D000  1               		beq		blank		; set-up object address and return
00D000  1               		cmp		#CR			; blank line, CR ?
00D000  1               		beq		blank		; set-up object address and return
00D000  1               		cmp		#'\'		; comment ?
00D000  1               		beq		coment		; read over comment, set-up object address
00D000  1               		ldy		#txtptr		; must be mnemonic
00D000  1               		sec
00D000  1               		adc		#$00		; add 1
00D000  1               		asl		a			; compress 3 character mnemonic to 2 bytes
00D000  1               		asl		a
00D000  1               		asl		a
00D000  1               shfmne:	asl		a
00D000  1               		rol		mnemon+1
00D000  1               		rol		mnemon
00D000  1               		dey
00D000  1               		bne		shfmne
00D000  1               		inx
00D000  1               		cpx		#$03
00D000  1               		bne		monic		; all 3 characters
00D000  1               		asl		mnemon+1	; shift zero into LSB of result
00D000  1               		rol		mnemon
00D000  1               		ldx		#$40
00D000  1               		lda		mnemon
00D000  1               nxmneh:	cmp		MNTABH-1,x	; compare with table of compressed mnemonics
00D000  1               		beq		match
00D000  1               nxmne:	dex
00D000  1               		bne		nxmneh
00D000  1               err208:	brk					; Error 208 'Unrecognised mnemonic in assembler'
00D000  1               match:	ldy		MNTABL-1,x
00D000  1               		cpy		mnemon+1	; compare both bytes
00D000  1               		bne		nxmne
00D000  1               		lda		OPCODE-1,x	; read opcode base
00D000  1               		sta		opcode
00D000  1               		ldy		OPADMD-1,x	; and addressing mode data
00D000  1               		sty		admode
00D000  1               rotadm:	ror		adrmod		; set-up data for instruction
00D000  1               		ror		adrmod+1	; validity checking later
00D000  1               		dey
00D000  1               		bne		rotadm
00D000  1               		ldy		admode
00D000  1               		cpy		#$0D		; implied addressing mode ? - no operand
00D000  1               		bne		notimp
00D000  1               		ldx		#$00
00D000  1               accum:	jmp		end_op		; end of operand decoding
00D000  1               notimp:	jsr		rd_txt		; read first character of addressing mode
00D000  1               		cmp		#'@'		; immediate addressing mode ?
00D000  1               		beq		imedat
00D000  1               		cmp		#'('		; indirect addressing mode
00D000  1               		beq		indire
00D000  1               		ldx		#$01
00D000  1               		cmp		#'A'		; accumulator addressing mode ?
00D000  1               		beq		accum		; yes - continue as implied
00D000  1               		dec		index		; must be direct or indexed addressing modes
00D000  1               		jsr		IEVALU		; extract operand
00D000  1               		jsr		rd_txt		; read operand terminator
00D000  1               		cmp		#','		; comma ? - indexed
00D000  1               		bne		direct		; no - must be direct addressing mode
00D000  1               		jsr		rd_txt		; yes - read index register
00D000  1               		ldy		acc2		; read MSB of operand
00D000  1               		beq		indzer		; zeropage ?
00D000  1               		ldx		#$09		; no - must be absolute indexed mode
00D000  1               		cmp		#'X'		; which register X or Y ?
00D000  1               		beq		end_op		; X ? - end
00D000  1               		dex
00D000  1               		cmp		#'Y'		; Y ?
00D000  1               		bne		err156		; no - Error 156 'Assembler error: illegal type'
00D000  1               		lda		admode
00D000  1               		cmp		#$09		; check for special case of LDXAY
00D000  1               		bne		end_op
00D000  1               		ldx		#$0E
00D000  1               		bne		end_op
00D000  1               indzer:	ldx		#$04		; zeropage indexed addressing mode
00D000  1               		cmp		#'X'		; which register, X ?
00D000  1               		beq		end_op		; yes - end
00D000  1               		cmp		#'Y'		; Y ?
00D000  1               		bne		err156		; no - Error 156 'Assembler error: illegal type'
00D000  1               		dex
00D000  1               		ldy		admode
00D000  1               		cpy		#$03		; check if instruction can be zeropage
00D000  1               		bcs		end_op
00D000  1               		ldx		#$08		; no - set absolute
00D000  1               		bne		end_op
00D000  1               direct:	dec		index		; direct addressing mode
00D000  1               		ldx		#$02
00D000  1               		ldy		admode
00D000  1               		cpy		#$0C		; check for relative addressing mode
00D000  1               		beq		end_op
00D000  1               		ldx		#txtptr
00D000  1               		lda		acc2		; read MSB of operand
00D000  1               		beq		end_op		; zeropage ? yes - end
00D000  1               		ldx		#$0C		; no -must be absolute
00D000  1               		bne		end_op
00D000  1               imedat:	jsr		IEVALU		; immediate addressing mode
00D000  1               		lda		admode		; extract operand
00D000  1               		ldx		#$06
00D000  1               		cmp		#$01
00D000  1               		beq		end_op
00D000  1               		inx
00D000  1               		bne		end_op
00D000  1               indire:	jsr		IEVALU		; indirect addressing modes
00D000  1               		jsr		rd_txt		; extract operand, read next character
00D000  1               		cmp		#')'		; indirect or post indexed indirect ?
00D000  1               		beq		notpre		; yes - branch
00D000  1               		cmp		#','		; no - must be pre indexed indirect ?
00D000  1               		bne		err156		; if no comma - Error 156 'Assembler error: illegal type'
00D000  1               		jsr		rd_txt		; read index register
00D000  1               		cmp		#'X'		; can only be X
00D000  1               		bne		err156		; no - Error 156 'Assembler error: illegal type'
00D000  1               		jsr		rd_txt		; read closing parenthesis
00D000  1               		cmp		#')'
00D000  1               		bne		err156		; none - Error 156 'Assembler error: illegal type'
00D000  1               		ldx		#$0B
00D000  1               		bne		end_op
00D000  1               notpre:	ldx		#$0D		; indirect or post indexed indirect mode
00D000  1               		lda		admode
00D000  1               		cmp		#$0B		; indirect ?
00D000  1               		beq		end_op		; yes - end
00D000  1               		ldx		#$0A		; no - must be post indexed indirect
00D000  1               		jsr		rd_txt		; read comma
00D000  1               		cmp		#','
00D000  1               		bne		err156		; none - Error 156 'Assembler error: illegal type'
00D000  1               		jsr		rd_txt		; read index register
00D000  1               		cmp		#'Y'		; can only be Y
00D000  1               		beq		end_op		; yes - end
00D000  1               err156:	brk					; Error 156 'Assembler error: Illegal type'
00D000  1               end_op:	jsr		coment		; end of operand, addressing mode decoding
00D000  1               		lda		LOWLIM,x	; read over comment, set up object address
00D000  1               		beq		test2		; check instruction validity for given
00D000  1               		and		adrmod		; addressing mode
00D000  1               		bne		valid
00D000  1               test2:	lda		UPPLIM,x
00D000  1               		and		adrmod+1
00D000  1               		beq		err156
00D000  1               valid:	clc
00D000  1               		lda		OPOFFS,x	; offset to opcode addressing mode
00D000  1               		adc		opcode
00D000  1               		sta		opcode
00D000  1               		lda		OPERAN,x	; read number of operands
00D000  1               		ldx		#$00		; reset accumulator stack pointer
00D000  1               		stx		accptr
00D000  1               		ldy		acc1		; set-up operand from accumulator
00D000  1               		sty		opernd
00D000  1               		ldy		acc2
00D000  1               		sty		opernd+1
00D000  1               		cmp		#$0F		; branch instruction ?
00D000  1               		beq		branch
00D000  1               		and		#$0F
00D000  1               		tay
00D000  1               		iny
00D000  1               		sty		err_no		; save number of bytes
00D000  1               		cpy		#$02		; if one byte operand check only one given
00D000  1               		bne		movobj
00D000  1               		ldy		opernd+1
00D000  1               		bne		err156		; no - Error 156 'Assembler error: illegal type'
00D000  1               movobj:	ldy		#$00		; move opcode and operands to object area
00D000  1               nxobyt:	lda		opcode,y
00D000  1               		sta		(bwork),y
00D000  1               		iny
00D000  1               		inc		intega+$F	; increment P
00D000  1               		bne		nincp
00D000  1               		inc		integb+$F
00D000  1               nincp:	cpy		err_no
00D000  1               		bne		nxobyt		; next object byte
00D000  1               		rts					; and return assembly complete
00D000  1               branch:	lda		#$02		; calculate branch instruction offset
00D000  1               		sta		err_no
00D000  1               		sec					; subtract present address from destination
00D000  1               		lda		opernd
00D000  1               		sbc		intega+$F
00D000  1               		sta		opernd
00D000  1               		lda		opernd+1
00D000  1               		sbc		integb+$F
00D000  1               		sta		opernd+1
00D000  1               		sec					; and subtract a further 2
00D000  1               		lda		opernd
00D000  1               		sbc		#$02
00D000  1               		sta		opernd
00D000  1               		tay
00D000  1               		lda		opernd+1
00D000  1               		sbc		#$00
00D000  1               		beq		forwrd		; if MSB is not 00 or FF
00D000  1               		cmp		#$FF
00D000  1               		beq		bakwrd
00D000  1               toofar:	jsr		OUTSTR		; branch is too far
00D000  1               		.byte	"OUT OF RANGE:",$0A,CR
00D000  1               		sty		opernd		; save offset operand
00D000  1               		bmi		movobj		; branch always
00D000  1               bakwrd:	tya					; branch backwards test
00D000  1               		bmi		movobj
00D000  1               		bpl		toofar
00D000  1               forwrd:	tya					; branch forwards test
00D000  1               		bpl		movobj
00D000  1               		bmi		toofar
00D000  1               
00D000  1               							; OLD Command
00D000  1               OLD:	jsr		ENDTST
00D000  1               		dey
00D000  1               		sty		bwork		; remove FF inserted at start
00D000  1               		lda		BOTTOM		; of text area by NEW
00D000  1               		sta		bwork+1
00D000  1               		tya
00D000  1               		iny
00D000  1               		sta		(bwork),y
00D000  1               		jmp		settop		; and reset TOP
00D000  1               
00D000  1               							; DRAW Statement
00D000  1               							; syntax: <x><y>
00D000  1               							; Draw a line in white to absolute position <x>,<y>
00D000  1               DRAW:	ldx		#$05		; DRAW is the same as PLOT 5 (k=5)
00D000  1               		bne		savmod		; branch always
00D000  1               
00D000  1               							; MOVE Statement
00D000  1               							; syntax: <x><y>
00D000  1               							; Move to absolute postion <x>,<y>
00D000  1               MOVE:	ldx		#$0C		; MOVE is the same as PLOT 12 (k=12)
00D000  1               savmod:	stx		acc1		;
00D000  1               		inc		accptr
00D000  1               		bne		doplot		; branch always
00D000  1               
00D000  1               							; PLOT Statement
00D000  1               							; syntax: <k><x><y>
00D000  1               							; Depending on the value of <k> PLOT will move or draw a line or point:
00D000  1               							; k=0: move relative to last position
00D000  1               							; k=1: draw line in white relative to last position
00D000  1               							; k=2: invert line relative to last position
00D000  1               							; k=3: draw line in black relative to last position
00D000  1               							; k=4: move to absolute position
00D000  1               							; k=5: draw white line to absolute position
00D000  1               							; k=6: invert line to absolute position
00D000  1               							; k=7: draw black line to absolute position
00D000  1               							; k=8: move relative to last position
00D000  1               							; k=9: plot white point relative to last position
00D000  1               							; k=10: invert point relative to last position
00D000  1               							; k=11: plot black point relative to last position
00D000  1               							; k=12: move relative to last position
00D000  1               							; k=13: plot white point at absolute position
00D000  1               							; k=14: invert white point at absolute position
00D000  1               							; k=15: plot black point at absolute position
00D000  1               PLOT:	jsr		GETINT		; get (integer constant, variable or expression) <k>
00D000  1               		jsr		PARCOM		; parse seperating comma
00D000  1               
00D000  1               doplot:	jsr		GETINT		; get (integer constant, variable or expression) <x>
00D000  1               		jsr		PARCOM		; parse seperating comma
00D000  1               		jsr		GETINT		; get (integer constant, variable or expression) <y>
00D000  1               		jsr		ENDTST		; test for end of statement
00D000  1               		lda		$15,x		; get LSB of 3rd parameter <y>
00D000  1               		sta		Y1L			; and store at Y1L
00D000  1               		lda		$24,x		; get MSB of 3rd parameter <y>
00D000  1               		sta		Y1M			; and store at Y1M
00D000  1               
00D000  1               		lda		$14,x		; get LSB of 2nd parameter <x>
00D000  1               		sta		X1L			; and store at X1L
00D000  1               		lda		$23,x		; get MSB of 2nd parameter <x>
00D000  1               		sta		X1M			; and store at X1M
00D000  1               
00D000  1               		ldx		#$00		; reset accumulator stack pointer
00D000  1               		stx		accptr
00D000  1               		ldx		#$03		; retrieve old X and Y coordinates
00D000  1               ld_old:	lda		old_xl,x	; Y0 and X0
00D000  1               		sta		X0L,x
00D000  1               		dex
00D000  1               		bpl		ld_old
00D000  1               		lda		$16			; get <k>
00D000  1               		and		#$04		; absolute or relative position ?
00D000  1               		bne		abs			; branch if absolute
00D000  1               		ldx		#$02		; yes - new X and Y relative coordinates
00D000  1               addrel:	clc					; to old coordinates
00D000  1               		lda		X1L,x
00D000  1               		adc		X0L,x
00D000  1               		sta		X1L,x
00D000  1               		lda		X1M,x
00D000  1               		adc		X0M,x
00D000  1               		sta		X1M,x
00D000  1               		dex
00D000  1               		dex
00D000  1               		bpl		addrel		; both X and Y coordinates
00D000  1               abs:	ldx		#$03		; save new X,Y coordinates for PLOT
00D000  1               wr_old:	lda		X1L,x
00D000  1               		sta		old_xl,x
00D000  1               		dex
00D000  1               		bpl		wr_old
00D000  1               		lda		acc1		; test PLOTing mode
00D000  1               		and		#$03
00D000  1               		beq		endplt		; if MOVE mode - finished
00D000  1               		sta		bwork+$C
00D000  1               		lda		acc1
00D000  1               		and		#$08
00D000  1               		beq		DODRAW		; if DRAW branch to do DRAW
00D000  1               		jsr		DOPLOT		; alter single pixel only and
00D000  1               endplt:	jmp		cont_x		; continue execution
00D000  1               
00D000  1               							; Draw Line
00D000  1               DODRAW:	ldx		#$02
00D000  1               nxtdif:	sec					; calculate X and Y differences
00D000  1               		lda		X1L,x
00D000  1               		sbc		X0L,x
00D000  1               		ldy		X0L,x
00D000  1               		sty		X1L,x
00D000  1               		sta		X0L,x
00D000  1               		ldy		X0M,x
00D000  1               		lda		X1M,x
00D000  1               		sbc		X0M,x
00D000  1               		sty		X1M,x
00D000  1               		sta		X0M,x
00D000  1               		sta		xdir,x		; save PLOT direction
00D000  1               		bpl		posdif
00D000  1               		lda		#$00		; if direction negative, negate
00D000  1               		sec					; to get magnitude of difference
00D000  1               		sbc		X0L,x
00D000  1               		sta		X0L,x
00D000  1               		lda		#$00
00D000  1               		sbc		X0M,x
00D000  1               		sta		X0M,x
00D000  1               posdif:	dex
00D000  1               		dex
00D000  1               		bpl		nxtdif		; do for both X and Y
00D000  1               		lda		Y0L			; which direction has largest change ?
00D000  1               		cmp		X0L
00D000  1               		lda		Y0M
00D000  1               		sbc		X0M
00D000  1               		bcc		x_gt_y
00D000  1               		lda		#$00		; Y greater than X
00D000  1               		sbc		Y0L			; set up plot counter
00D000  1               		sta		pltcnt
00D000  1               		lda		#$00
00D000  1               		sbc		Y0M
00D000  1               		sec
00D000  1               		ror		a
00D000  1               		sta		pltcnt+2
00D000  1               		ror		pltcnt
00D000  1               nxplta:	jsr		DOPLOT		; plot next point
00D000  1               		lda		Y1L			; compare present Y with final value
00D000  1               		cmp		old_yl
00D000  1               		bne		add_y
00D000  1               		lda		Y1M
00D000  1               		cmp		old_ym
00D000  1               		bne		add_y
00D000  1               drwend:	jmp		cont_x		; if end - continue execution
00D000  1               add_y:	jsr		INYDEY		; increment/decrement Y coordinate
00D000  1               		lda		pltcnt+2	; test MSB of counter
00D000  1               		bmi		nxplta		; do we need to change X ?
00D000  1               		jsr		INXDEX		; yes
00D000  1               		jmp		nxplta		; then plot next point
00D000  1               x_gt_y:	lda		X0M			; X greater than Y
00D000  1               		lsr		a			; set-up plot counter
00D000  1               		sta		pltcnt+2
00D000  1               		lda		X0L
00D000  1               		ror		a
00D000  1               		sta		pltcnt
00D000  1               nxpltb:	jsr		DOPLOT		; plot next point
00D000  1               		lda		X1L			; compare present X with final value
00D000  1               		cmp		old_xl
00D000  1               		bne		add_x
00D000  1               		lda		X1M
00D000  1               		cmp		old_xm
00D000  1               		beq		drwend		; if end - branch to continue execution
00D000  1               add_x:	jsr		INXDEX		; increment/decrement X coordinate
00D000  1               		lda		pltcnt+2	; test MSB of counter
00D000  1               		bpl		nxpltb		; do we need to change Y ?
00D000  1               		jsr		INYDEY		; yes
00D000  1               		jmp		nxpltb		; then plot next point
00D000  1               
00D000  1               							; Alter X Coordinate
00D000  1               INXDEX:	sec
00D000  1               		lda		pltcnt		; subtract magnitude of Y from counter
00D000  1               		sbc		Y0L
00D000  1               		sta		pltcnt
00D000  1               		lda		pltcnt+2
00D000  1               		sbc		Y0M
00D000  1               		sta		pltcnt+2
00D000  1               		ldx		#$00		; point at X coordinate
00D000  1               		beq		tstdir
00D000  1               
00D000  1               							; Alter Y Coordinate
00D000  1               INYDEY:	clc
00D000  1               		lda		pltcnt		; add magnitude of X to counter
00D000  1               		adc		X0L
00D000  1               		sta		pltcnt
00D000  1               		lda		pltcnt+2
00D000  1               		adc		X0M
00D000  1               		sta		pltcnt+2
00D000  1               		ldx		#$02		; point at Y
00D000  1               tstdir:	lda		xdir,x		; which direction are we plotting in ?
00D000  1               		bpl		incord
00D000  1               		lda		X1L,x		; down - decrement coordinate
00D000  1               		bne		ndecrd
00D000  1               		dec		X1M,x
00D000  1               ndecrd:	dec		X1L,x
00D000  1               incrtn:	rts
00D000  1               incord:	inc		X1L,x		; up - increment coordinate
00D000  1               		bne		incrtn
00D000  1               		inc		X1M,x
00D000  1               		rts
00D000  1               
00D000  1               DOPLOT:	jmp		(ploter)	; ??
00D000  1               
00D000  1               							; CLEAR Statement
00D000  1               CLEAR:	jsr		GETI_W		; get argument into work
00D000  1               err129a:ldy		#$00
00D000  1               		lda		X0L
00D000  1               		beq		clear0		; CLEAR 0 is special case
00D000  1               		cmp		#$05
00D000  1               		bcc		clr_ok		; if argument greater than 4 set to 4
00D000  1               		lda		#$04
00D000  1               clr_ok:	ldx		#>screna
00D000  1               		stx		Y0L			; point work+1 at start of screen RAM
00D000  1               		sty		X0M
00D000  1               		sta		X0L			; save graphics mode
00D000  1               		tax
00D000  1               		lda		SCRTOP-1,x	; read address of top of new screen
00D000  1               		ldx		BOTTOM		; does it clash with text area ?
00D000  1               		bpl		notext
00D000  1               		cmp		BOTTOM
00D000  1               		bcs		err129a+1	; Error 129 'Protected RAM in graphics mode'
00D000  1               notext:	tax					; move MSB of top to X
00D000  1               		tya					; A=0, all pixels off
00D000  1               do_clr:	sta		(X0M),y		; clear screen
00D000  1               		dey
00D000  1               		bne		do_clr
00D000  1               		inc		Y0L			; increment MSB pointer
00D000  1               		cpx		Y0L			; compare with top of screen
00D000  1               		bne		do_clr
00D000  1               setplt:	ldy		X0L			; set-up PLOT routine address
00D000  1               		lda		PLOT_M,y
00D000  1               		sta		ploter+1
00D000  1               		lda		PLOT_L,y
00D000  1               		sta		ploter
00D000  1               		lda		MODE,y
00D000  1               		sta		IC25A		; load CRTC with control byte (set graphics mode ??)
00D000  1               		jmp		ENDCNT		; test end of statement, continue execution
00D000  1               clear0:	lda		#$40		; CLEAR 0 - fill screen with graphic spaces
00D000  1               c0_fil:	sta		screna,y
00D000  1               		sta		screnb,y
00D000  1               		dey
00D000  1               		bne		c0_fil
00D000  1               		beq		setplt		; and set-up PLOT address and CRTC
00D000  1               
00D000  1               SCRTOP:	.byte	$84,$86,$8C,$98								; MSB of Screen TOP Addresses
00D000  1               
00D000  1               PLOT_L:	.byte	<PLOT_0,<PLOT_1,<PLOT_2,<PLOT_3,<PLOT_4		; LSB of PLOT Routines
00D000  1               PLOT_M:	.byte	>PLOT_0,>PLOT_1,>PLOT_2,>PLOT_3,>PLOT_4		; MSB of PLOT Routines
00D000  1               
00D000  1               MODE:	.byte	$00,$30,$70,$B0,$F0							; control bytes for CRTC
00D000  1               
00D000  1               							; Plotter Graphics Mode 0
00D000  1               PLOT_0:	lda		X1M
00D000  1               		ora		Y1M
00D000  1               		bne		p0_rtn		; return if off screen
00D000  1               		lda		X1L			; check range of X (0-63)
00D000  1               		cmp		#$40
00D000  1               		bcs		p0_rtn		; return if too large
00D000  1               		lsr		a			; divide by 2 for column
00D000  1               		sta		pixadr
00D000  1               		lda		#$2F		; negate Y coordinate
00D000  1               		sec
00D000  1               		sbc		Y1L
00D000  1               		cmp		#$30		; and check range (0-47)
00D000  1               		bcs		p0_rtn		; return if too large
00D000  1               		ldx		#$FF
00D000  1               		sec
00D000  1               div_y3:	inx					; divide Y coordinate by 3
00D000  1               		sbc		#$03
00D000  1               		bcs		div_y3
00D000  1               		adc		#$03
00D000  1               		sta		y_pos		; save pixel Y position within character
00D000  1               		txa
00D000  1               		asl		a			; multiply character row by 32
00D000  1               		asl		a
00D000  1               		asl		a
00D000  1               		asl		a
00D000  1               		asl		a
00D000  1               		ora		pixadr		; OR in column
00D000  1               		sta		pixadr		; to give LSB of address
00D000  1               		lda		#$80		; add screen base address
00D000  1               		adc		#$00		; and carry
00D000  1               		sta		pixadr+1	; to give MSB of address
00D000  1               		lda		X1L			; work out pixel position within character
00D000  1               		lsr		a
00D000  1               		lda		y_pos
00D000  1               		rol		a
00D000  1               		tay
00D000  1               		lda		PIXEL+2,y	; load pixel bit
00D000  1               ALTPIX:	ldy		#$00
00D000  1               		ldx		bwork+$C	; test 'colour' - set, reset or invert
00D000  1               		dex
00D000  1               		beq		set
00D000  1               		dex
00D000  1               		beq		invert
00D000  1               		eor		#$FF		; reset - invert bit pattern
00D000  1               		and		(pixadr),y	; and AND with screen
00D000  1               		sta		(pixadr),y
00D000  1               		rts
00D000  1               invert:	eor		(pixadr),y	; invert - EOR bit pattern with screen
00D000  1               		sta		(pixadr),y
00D000  1               		rts
00D000  1               set:	ora		(pixadr),y	; set - OR bit pattern with screen
00D000  1               		sta		(pixadr),y
00D000  1               p0_rtn:	rts
00D000  1               
00D000  1               							; Plotter Graphics Mode 1
00D000  1               PLOT_1:	lda		X1M
00D000  1               		ora		Y1M
00D000  1               		bne		p0_rtn		; return if off screen
00D000  1               		lda		X1L			; check range of X (0-127)
00D000  1               		bmi		p0_rtn
00D000  1               		lsr		A			; divide by 8 - calculate column
00D000  1               		lsr		A
00D000  1               		lsr		A
00D000  1               		sta		pixadr
00D000  1               		lda		#$3F		; negate Y coordinate
00D000  1               		sec
00D000  1               		sbc		Y1L
00D000  1               		cmp		#$40		; and check range (0-63)
00D000  1               		bcc		shft4y		; continue with plotting
00D000  1               		rts
00D000  1               
00D000  1               							; Plotter Graphics Mode 2
00D000  1               PLOT_2:	lda		X1M
00D000  1               		ora		Y1M
00D000  1               		bne		p0_rtn		; if off screen return
00D000  1               		lda		X1L
00D000  1               		bmi		p0_rtn		; check range of X (0-127)
00D000  1               		lsr		a			; divide by 8 - calculate column
00D000  1               		lsr		a
00D000  1               		lsr		a
00D000  1               		sta		pixadr
00D000  1               		lda		#$5F		; negate Y coordinate
00D000  1               		sec
00D000  1               		sbc		Y1L
00D000  1               		cmp		#$60		; and check range (0-95)
00D000  1               		bcc		shft4y		; continue with plotting
00D000  1               p2_rtn:	rts
00D000  1               
00D000  1               							; Plotter Graphics Mode 3
00D000  1               PLOT_3:	lda		X1M
00D000  1               		ora		Y1M
00D000  1               		bne		p0_rtn		; return if off screen
00D000  1               		lda		X1L
00D000  1               		bmi		p0_rtn		; check range of X (0-127)
00D000  1               		lsr		a			; divide by 8 - calculate column
00D000  1               		lsr		a
00D000  1               		lsr		a
00D000  1               		sta		pixadr
00D000  1               		lda		#$BF		; negate Y coordinate
00D000  1               		sec
00D000  1               		sbc		Y1L
00D000  1               		cmp		#$C0
00D000  1               		bcs		p0_rtn		; and check range (0-191)
00D000  1               shft4y:	ldy		#$00		; clear MSB of pixel address
00D000  1               		sty		pixadr+1
00D000  1               shfy5y:	asl		a			; shift 4 bits of Y into MSB
00D000  1               		rol		pixadr+1
00D000  1               		asl		a
00D000  1               		rol		pixadr+1
00D000  1               		asl		a
00D000  1               		rol		pixadr+1
00D000  1               		asl		a
00D000  1               		rol		pixadr+1
00D000  1               		adc		pixadr		; add column to remaining bite of Y
00D000  1               		sta		pixadr
00D000  1               		lda		pixadr+1
00D000  1               		adc		#$80		; NOT <screen	;screen base address
00D000  1               		sta		pixadr+1
00D000  1               		lda		X1L			; work out pixel position within byte
00D000  1               		and		#$07
00D000  1               		tay
00D000  1               		lda		PIXEL,y
00D000  1               		jmp		ALTPIX		; and alter pixel
00D000  1               
00D000  1               							; Plotter Graphics Mode 4
00D000  1               PLOT_4:	lda		X1M
00D000  1               		ora		Y1M			; return if off screen
00D000  1               		bne		p2_rtn		; check range of X (0-255)
00D000  1               		lda		X1L			; divide X by 8 - calculate column
00D000  1               		lsr		a
00D000  1               		lsr		a
00D000  1               		lsr		a
00D000  1               		sta		pixadr
00D000  1               		lda		#$BF		; negate Y coordinate
00D000  1               		sec
00D000  1               		sbc		Y1L
00D000  1               		cmp		#$C0
00D000  1               		bcs		p2_rtn		; and check range (0-191)
00D000  1               		ldy		#$00
00D000  1               		sty		pixadr+1	; clear MSB of pixel address
00D000  1               		asl		a			; shift 1st bit of Y into address
00D000  1               		rol		pixadr+1
00D000  1               		bpl		shfy5y		; and continue plotting
00D000  1               ;
00D000  1               PIXEL:	.byte	$80,$40,$20,$10,$08,$04,$02,$01		; Powers Of 2 for Calculating Pixel Positions
00D000  1               ;
00D000  1               .endif
00D000  1