Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/basic09/runb.asm @ 682:d12f1a5c5e31
Made source enhancements
| author | boisy |
|---|---|
| date | Sun, 29 Dec 2002 21:54:49 +0000 |
| parents | 0ef2294df11f |
| children | a27b7ceba2e9 |
line wrap: on
line source
******************************************************************** * RunB - Basic09 Runtime * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 22 Tandy/Microware version BGP 02/12/26 * nam RunB ttl Basic09 Runtime * Disassembled 02/12/26 08:42:45 by Disasm v1.5 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 L0000 mod eom,name,tylg,atrv,start,dsize u0000 rmb 1 u0001 rmb 1 u0002 rmb 1 u0003 rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 1 u0007 rmb 1 u0008 rmb 1 u0009 rmb 1 u000A rmb 1 u000B rmb 1 u000C rmb 1 u000D rmb 1 table1 rmb 1 u000F rmb 1 table2 rmb 1 u0011 rmb 1 table3 rmb 1 u0013 rmb 1 u0014 rmb 2 u0016 rmb 1 u0017 rmb 1 u0018 rmb 1 u0019 rmb 2 u001B rmb 1 u001C rmb 2 u001E rmb 1 u001F rmb 2 u0021 rmb 1 u0022 rmb 2 u0024 rmb 2 u0026 rmb 1 u0027 rmb 1 u0028 rmb 2 u002A rmb 3 u002D rmb 1 u002E rmb 1 u002F rmb 1 u0030 rmb 1 u0031 rmb 1 u0032 rmb 1 u0033 rmb 1 u0034 rmb 1 u0035 rmb 1 u0036 rmb 3 u0039 rmb 1 u003A rmb 1 u003B rmb 1 u003C rmb 2 u003E rmb 1 u003F rmb 1 u0040 rmb 2 u0042 rmb 1 u0043 rmb 1 u0044 rmb 2 u0046 rmb 2 u0048 rmb 2 u004A rmb 1 u004B rmb 1 u004C rmb 1 u004D rmb 1 u004E rmb 2 u0050 rmb 1 u0051 rmb 1 u0052 rmb 1 u0053 rmb 1 u0054 rmb 1 u0055 rmb 1 u0056 rmb 1 u0057 rmb 1 u0058 rmb 1 u0059 rmb 1 u005A rmb 2 u005C rmb 2 u005E rmb 1 u005F rmb 1 u0060 rmb 2 u0062 rmb 2 u0064 rmb 2 u0066 rmb 1 u0067 rmb 1 u0068 rmb 2 u006A rmb 1 u006B rmb 1 u006C rmb 1 u006D rmb 1 u006E rmb 2 u0070 rmb 2 u0072 rmb 2 u0074 rmb 1 u0075 rmb 1 u0076 rmb 1 u0077 rmb 1 u0078 rmb 1 u0079 rmb 1 u007A rmb 1 u007B rmb 1 u007C rmb 1 u007D rmb 1 u007E rmb 1 u007F rmb 1 u0080 rmb 1 u0081 rmb 1 u0082 rmb 3 u0085 rmb 1 u0086 rmb 1 u0087 rmb 1 u0088 rmb 1 u0089 rmb 1 u008A rmb 1 u008B rmb 1 u008C rmb 1 u008D rmb 1 u008E rmb 2 u0090 rmb 1 u0091 rmb 1 u0092 rmb 1 u0093 rmb 1 u0094 rmb 1 u0095 rmb 1 u0096 rmb 1 u0097 rmb 2 u0099 rmb 1 u009A rmb 1 u009B rmb 1 u009C rmb 1 u009D rmb 1 u009E rmb 2 u00A0 rmb 2 u00A2 rmb 1 u00A3 rmb 1 u00A4 rmb 1 u00A5 rmb 1 u00A6 rmb 1 u00A7 rmb 1 u00A8 rmb 1 u00A9 rmb 1 u00AA rmb 1 u00AB rmb 1 u00AC rmb 1 u00AD rmb 1 u00AE rmb 1 u00AF rmb 2 u00B1 rmb 2 u00B3 rmb 1 u00B4 rmb 3 u00B7 rmb 2 u00B9 rmb 1 u00BA rmb 1 u00BB rmb 1 u00BC rmb 1 u00BD rmb 1 u00BE rmb 3 u00C1 rmb 1 u00C2 rmb 2 u00C4 rmb 1 u00C5 rmb 1 u00C6 rmb 3 u00C9 rmb 1 u00CA rmb 1 u00CB rmb 1 u00CC rmb 1 u00CD rmb 1 u00CE rmb 1 u00CF rmb 1 u00D0 rmb 1 u00D1 rmb 1 u00D2 rmb 1 u00D3 rmb 4 u00D7 rmb 2 u00D9 rmb 1 u00DA rmb 2 u00DC rmb 1 u00DD rmb 1 u00DE rmb 1 u00DF rmb 1 u00E0 rmb 1 u00E1 rmb 1 u00E2 rmb 3 u00E5 rmb 2 u00E7 rmb 1 u00E8 rmb 2 u00EA rmb 1 u00EB rmb 3 u00EE rmb 3 u00F1 rmb 1 u00F2 rmb 3 u00F5 rmb 4 u00F9 rmb 1 u00FA rmb 3 u00FD rmb 1 u00FE rmb 1 u00FF rmb 1 u0100 rmb 3840 dsize equ . L000D fcb $00 fcb $D9 Y fcb $04 fcb $68 h fcb $06 fcb $D8 X fcb $06 fcb $EB k fcb $10 fcb $DF _ fcb $25 % fcb $51 Q fcb $00 fcb $00 name fcs /RunB/ fcb 22 fcb $06 fcb $0C fcc " BASIC09" fcb C$LF fcc " RS VERSION 01.00.00" fcb C$LF fcc "COPYRIGHT 1980 BY MOTOROLA INC." fcb C$LF fcc " AND MICROWARE SYSTEMS CORP." fcb C$LF fcc " REPRODUCED UNDER LICENSE" fcb C$LF fcc " TO TANDY CORP." fcb C$LF fcc " ALL RIGHTS RESERVED." fcb $8A fcb $34 4 fcb $16 fcb $E6 f fcb $F8 x fcb $04 fcb $30 0 fcb $8C fcb $08 fcb $EC l fcb $85 fcb $30 0 fcb $8B fcb $AF / fcb $64 d fcb $35 5 fcb $96 fcb $03 fcb $00 fcb $03 fcb $25 % fcb $01 fcb $65 e fcb $01 fcb $5B [ fcb $03 fcb $29 ) fcb $02 fcb $7C ü fcb $02 fcb $76 v fcb $02 fcb $98 fcb $03 fcb $4A J fcb $9D fcb $1E fcb $04 L00FE jsr <u001E fcb $02 L0101 jsr <u001E fcb $00 L0104 jsr <u0021 fcb $00 L0107 jsr <u0024 fcb $00 L010A jsr <u0024 fcb $04 L010D jsr <u0024 fcb $02 L0110 jsr <u002A fcb $02 fcb $0e fcs "Ready" fcs "What?" fcs " free" L0123 fcs "Program" fcs "PROCEDURE" fcb C$CR fcb C$LF fcs " Name Proc-Size Data-Size" fcc "Rewrite?: " fcc "RANGE" fcb $87 fcb $0E fcs "BREAK: " fcs "called by" fcs "ok" fcs "D:" fcs "E:" fcs "B:" fcs "can't find:" L0189 lda R$DP,s tfr a,dp stb <u0035 lsl <u0034 coma ror <u0034 rti start pshs u leau >u0100,u clra clrb L019D std ,--u cmpu ,s bhi L019D puls b,a leau ,x std <u0000 inca sta <u00D9 std <u0080 std <u0082 adda #$02 std <u0046 std <u0044 inca tfr d,s std <u0004 inca std <u0008 std <u004A tfr u,d subd <u0000 std <u0002 clra ldb #$01 default err path std <u002D sta <u00BD lda #$03 close paths 4-16 L01D0 os9 I$Close inca cmpa #16 bcs L01D0 lda #$02 os9 I$Dup sta <u00BE clr <u0035 pshs x leax <L0189,pcr os9 F$Icpt ldx <u0008 clra clrb L01ED std ,--x cmpx <u0004 bhi L01ED leax >L0000,pcr pshs x ldx <u0000 leax <$1B,x leay >L000D,pcr L0202 lda #$7E sta ,x+ ldd ,y++ addd ,s std ,x++ ldd ,y bne L0202 leas $02,s lbsr L0107 puls y bsr L0222 ldx <u0004 ldd ,x std <u002F lbsr L02B9 L0222 leax <L025B,pcr puls u bsr L024E pshs u clr <u0034 ldd <u0000 addd <u0002 subd <u0008 subd <u000A std <u000C leau $02,s stu <u0046 stu <u0044 leas >-$00FE,s jmp [<-u0002,u] L0244 lds <u00B7 puls b,a std <u00B7 lbra L02AD L024E ldd <u00B7 pshs b,a sts <u00B7 ldd $02,s stx $02,s tfr d,pc L025B bsr L0222 lbra BYE ldb #$2C L0262 lbsr L040E lbra L0244 L0268 ldb #$2B bra L0262 ldb ,y+ cmpb #$2C beq L0278 cmpb #$20 beq L0278 leay -$01,y L0278 rts L0279 lbsr L00FE bne L028C ldy <u002F beq L0288 ldd $04,y leay d,y rts L0288 leay >L0123,pcr L028C rts L028D ldu <u0046 stu <u0044 ldx <u0004 L0293 ldd ,x beq L029B tfr x,d leax $02,x L029B std ,--u bne L0293 stu <u0044 lda ,y cmpa #$0D beq L02A9 leay $01,y L02A9 sty <u0082 rts L02AD clr <u007D inc <u007D pshs x ldx <u0080 stx <u0082 puls pc,x L02B9 lbsr L00FE bne L02D1 pshs y lbsr L0279 ldx ,s L02C5 lda ,y+ sta ,x+ bpl L02C5 lda #$0D sta ,x puls y L02D1 lbsr L03E9 lbcs L0268 ldx ,x stx <u002F lda $06,x beq L02E8 anda #$0F cmpa #$02 Basic09 program? bne L035A bra L02EE L02E8 lda <$17,x Basic09 program has no errors? rora bcs L035A errors, report it L02EE lbsr L0101 check param list ldy <u004A ldb ,y cmpb #$3D beq L035A sty <u005E sty <u005C ldx <u00AB stx <u0060 stx <u004A ldd <u000C pshs y,b,a lbsr L0104 puls y,b,a std <u000C sty <u004A ldx <u002F lda <$17,x rora bcs L035A leas >$0102,s ldd <u0000 addd <u0002 tfr d,y std <u0046 std <u0044 ldu #$0000 stu <u0031 stu <u00B3 inc <u00B4 clr <u0036 ldd <u004A ldx <u000C pshs x,b,a leax >L0351,pcr lbsr L024E ldx <u004A lbsr L010A lbsr L02AD ldx <u002F lbsr L010D bra L0357 L0351 puls x,b,a std <u004A stx <u000C L0357 lbra L0244 L035A ldb #$33 lbra L0262 BYE bsr L0381 clrb os9 F$Exit lbsr L00FE beq L037D lbsr L03C6 bcs L037D ldu <u0046 clra clrb pshu x,b,a inca sta <u0035 bsr L0391 clr <u0035 rts L037D comb ldb #E$UnkPrc rts L0381 ldy <u0082 lda #$2A sta ,y sta <u0035 lbsr L028D clr <u002F clr <u0030 L0391 ldu <u0046 stu <u0044 bra L03A7 L0397 ldx ,x pshs u leau ,x os9 F$UnLink puls u ldd #$FFFF std [,u] L03A7 ldx ,--u bne L0397 ldx <u0004 tfr x,y L03AF ldd ,x++ cmpd #$FFFF beq L03AF L03B7 std ,y++ bne L03AF cmpd ,y bne L03B7 rts L03C1 ldb #$20 lbra L0262 L03C6 pshs u,y ldx <u0004 L03CA ldy ,s ldu ,x++ beq L03E6 ldd u0004,u leau d,u L03D5 lda ,y+ eora ,u+ anda #$DF bne L03CA clra tst -u0001,u bpl L03D5 L03E2 leax -$02,x puls pc,u,b,a L03E6 coma bra L03E2 L03E9 bsr L03C6 bcs L03EE rts L03EE pshs u,y,x ldb $01,s cmpb #$FE beq L03C1 leax ,y clra clrb os9 F$Link bcc L0408 ldx $02,s clra clrb os9 F$Load bcs L040C L0408 stx $02,s stu [,s] L040C puls pc,u,y,x L040E os9 F$PErr rts UNID1 pshs b,a bra L0426 L0416 pshs y,x L0418 lda ,x+ cmpa #$FF beq L042E cmpa ,y+ beq L0418 puls y,x leay $01,y L0426 cmpy ,s bls L0416 coma puls pc,b,a L042E puls y,x clra L0431 puls pc,b,a pshs x,b,a L0435 leax <L0442,pcr lda ,y+ L043A cmpa ,x++ bcs L043A ldb ,-x jmp b,x *embedded jumptable L0442 fcb 242,23,146,25,145,19,144,23 fcb 143,13,142,13,141,13,85,9,75 fcb 11,62,17,0,7 leay $03,y leay $01,y leay $01,y bra L0435 L0460 tst ,y+ bpl L0460 bra L0435 puls pc,x,b,a pshs x,b,a ldb [<$04,s] leax <L0478,pcr ldd b,x leax d,x stx $04,s puls pc,x,b,a L0478 fdb LAX1-L0478 fdb LAX2-L0478 fdb L06A8-L0478 fdb L0686-L0478 L0480 jsr <u001B fcb $02 L0483 jsr <u001B fcb $04 L0486 jsr <u001B fcb $06 L0489 jsr <u002A fcb $00 fdb $0007 fcb $03 L048F fcb $cb fdb $4b0c,$accb,$4d0c,$a8cb,$4e0c,$a9d4,$890c,$ae21 fdb $9006,$a200,$9106,$a4cb,$3f02 fcb $8d L04AB lda <u000B L04AD pshs a ldx <u00A7 lda #$0D L04B3 lsl ,x lsr ,x cmpa ,x+ bne L04B3 ldx <u00A7 bsr PrintErr ldd <u00B9 subd <u00A7 pshs b ldx <u00AF stx <u00AB ldy <u00A7 lda #$3D lbsr L0607 lda #$3F lbsr L0607 lda #$20 ldx <u0080 L04DA sta ,x+ dec ,s bpl L04DA ldd #$5E0D std -$01,x ldx <u0080 bsr PrintErr puls b,a lbsr L0480 ldx <u0046 stx <u0044 lbra L0486 PrintErr ldy #$0100 lda <u002E os9 I$WritLn rts **** decode passed parameters **** L04FF sty <u00A7 ldx <u004A stx <u00AF stx <u00AB clr <u00BB clr <u00BC rts LAX1 bsr L04FF inc <u00A0 lbsr L0542 bsr L0523 clr <u00A0 lda <u00A3 cmpa #$3F lbne L04AB L0520 lbra L0607 L0523 cmpa #$4D bne L0541 L0527 bsr L0520 ldd <u00AB lbsr L056B ldb <u00A4 cmpb #$06 bne L0541 lbsr L0542 lbsr L054C beq L0527 pshs a lbra L055D L0541 rts L0542 lbsr L056B ldx <u00AD stx <u00AB lda <u00A3 rts L054C lda <u00A3 cmpa #$4B rts L0551 rts L0552 lda <u00A3 cmpa #$4E beq L0551 lda #$25 L055A lbra L04AD L055D bsr L0552 puls a lbsr L0607 lbra L0542 L0567 lda #$0A bra L055A L056B ldd <u00AB std <u00AD lbsr SkipSpac sty <u00B9 lda ,y lbsr IsNum bcc L05A0 leax >L048F,pcr lda #$80 lbsr L06A8 beq L0567 ldb ,x leau <L05C3,pcr jmp b,u L058E ldd $01,x stb <u00A4 sta <u00A3 lbra L0607 lda ,y lbsr IsNum bcs L058E leay -$01,y L05A0 bsr L05CC bne L05B5 ldd #$8F05 L05A7 sta <u00A3 L05A9 bsr L05FC lda ,x+ decb bpl L05A9 lda #$06 sta <u00A4 rts L05B5 ldd #$8E02 tst ,x bne L05A7 ldd #$8D01 leax $01,x bra L05A7 L05C3 leay -$01,y bsr L05CC ldd #$9102 bra L05A7 L05CC lbsr SkipSpac leax ,y ldy <u0044 lbsr L0489 exg x,y bcs L05E0 lda ,x+ cmpa #$02 rts L05E0 lda #$16 bra L0600 bsr L058E bra L05EA L05E8 bsr L0607 L05EA lda ,y+ cmpa #$0D beq L05FE cmpa #$22 bne L05E8 cmpa ,y+ beq L05E8 leay -$01,y lda #$FF L05FC bra L0607 L05FE lda #$29 L0600 lbra L04AD lda #$31 bra L0600 L0607 pshs x,b,a ldx <u00AB sta ,x+ stx <u00AB ldd <u00AB subd <u004A cmpb #$FF bcc L061A clra puls pc,x,b,a L061A lda #$0D lbsr L0480 lbra L0486 LAX2 bsr SkipSpac pshs y ldb #$02 stb <u00A5 clrb bsr IsAlpha bcs L064B leay $01,y L0631 incb lda ,y+ bsr L065C bcc L0631 cmpa #$24 bne L0643 incb leay $01,y lda #$04 sta <u00A5 L0643 leay -$01,y lda #$80 ora -$01,y sta -$01,y L064B stb <u00A6 puls pc,y SkipSpac lda ,y+ cmpa #C$SPAC beq SkipSpac cmpa #C$LF beq SkipSpac leay -$01,y rts L065C bsr IsAlpha bcc L0685 IsNum cmpa #$30 0?? bcs L0685 cmpa #$39 0?? bls L0683 bra L0680 IsAlpha anda #$7F cmpa #$41 bcs L0685 cmpa #$5A bls L0683 cmpa #$5F beq L0685 cmpa #$61 bcs L0685 cmpa #$7A bls L0683 L0680 orcc #Carry no rts L0683 andcc #^Carry yes L0685 rts L0686 pshs x,b,a leax d,u pshs x L068C bitb #$03 beq L069D lda ,u+ sta ,y+ decb bra L068C L0697 pulu x,b,a std ,y++ stx ,y++ L069D cmpu ,s bcs L0697 clr ,s++ puls pc,x,b,a lda #$20 L06A8 pshs u,y,x,a ldu -$03,x ldb -$01,x L06AE stx $01,s cmpu #$0000 beq L06D6 leau -u0001,u ldy $03,s leax b,x L06BD lda ,x+ eora ,y+ beq L06CF cmpa ,s beq L06CF leax -$01,x L06C9 lda ,x+ bpl L06C9 bra L06AE L06CF tst -$01,x bpl L06BD sty $03,s L06D6 puls pc,u,y,x,a pshs x,b,a ldb [<$04,s] leax <L06E8,pcr ldd b,x leax d,x stx $04,s puls pc,x,b,a L06E8 neg <u0002 rts UNID2 pshs x,b,a ldb [<$04,s] leax <L06FB,pcr ldd b,x leax d,x stx $04,s puls pc,x,b,a L06FB fdb UNK5-L06FB fdb UNK6-L06FB fdb UNK7-L06FB fdb UNK8-L06FB fdb UNK9-L06FB fdb UNK10-L06FB fdb UNK11-L06FB L0709 jsr <u001B fcb $06 L070C jsr <u001B fcb $0C L070F jsr <u001B fcb $0E L0712 jsr <u001B fcb $02 L0715 jsr <u001B fcb $00 L0718 jsr <u001B fcb $0A L071B jsr <u001B fcb $10 L071E jsr <u001E fcb $06 L0721 jsr <u0027 fcb $04 L0724 jsr <u0027 fcb $0A L0727 jsr <u0027 fcb $02 L072A jsr <u0027 fcb $0C L072D jsr <u0027 fcb $0E L0730 jsr <u0027 fcb $00 L0733 jsr <u002A fcb $02 L0736 fdb L1900-L0736 fdb L1900-L0736 PARAM fdb L1900-L0736 TYPE fdb L1900-L0736 DIM fdb L1900-L0736 DATA fdb STOP-L0736 fdb UNK1-L0736 fdb L0F3F-L0736 fdb L0F49-L0736 fdb PAUSE-L0736 fdb DEG-L0736 fdb RAD-L0736 fdb RETURN-L0736 fdb L0897-L0736 fdb LET-L0736 fdb POKE-L0736 fdb IF-L0736 fdb GOTO-L0736 ELSE fdb ENDIF-L0736 fdb FOR-L0736 fdb NEXT-L0736 fdb UNTIL-L0736 WHILE fdb GOTO-L0736 ENDWHILE fdb L0897-L0736 fdb UNTIL-L0736 fdb L0897-L0736 LOOP fdb GOTO-L0736 ENDLOOP fdb UNTIL-L0736 EXITIF fdb GOTO-L0736 ENDEXIT fdb ON-L0736 fdb ERROR-L0736 fdb errs51-L0736 fdb GOTO-L0736 fdb errs51-L0736 fdb GOSUB-L0736 fdb RUN-L0736 fdb KILL-L0736 fdb INPUT-L0736 fdb PRINT-L0736 fdb CHD-L0736 fdb CHX-L0736 fdb CREATE-L0736 fdb OPEN-L0736 fdb SEEK-L0736 fdb READ-L0736 fdb WRITE-L0736 fdb GET-L0736 fdb PUT-L0736 fdb CLOSE-L0736 fdb RESTORE-L0736 fdb DELETE-L0736 fdb CHAIN-L0736 fdb SHELL-L0736 fdb BASE0-L0736 fdb BASE1-L0736 fdb UNK4-L0736 REM fdb UNK4-L0736 fdb END-L0736 fdb L0895-L0736 fdb L0895-L0736 fdb UNK3-L0736 fdb errs51-L0736 fdb L0894-L0736 RTS fdb L0894-L0736 fdb CpMbyte-L0736 fdb CpMint-L0736 fdb CpMreal-L0736 fdb CpMbyte-L0736 fdb CpMstrin-L0736 fdb CpMarray-L0736 L07C2 fcc "STOP Encountered" fcb C$LF,$ff UNK6 L07D4 lda <$17,x bita #1 beq L07DF ldb #$33 bra L07FB L07DF tfr s,d subd #$0100 cmpd <u0080 bcc L07ED ldb #$39 bra L07FB L07ED ldd <u000C subd $0B,x bcs L07F9 cmpd #$0100 bcc L07FE L07F9 ldb #$20 L07FB lbra L0EDC L07FE std <u000C tfr y,d subd $0B,x exg d,u sts u0005,u std u0007,u stx u0003,u L080D ldd #$0001 std <u0042 sta u0001,u sta <u0013,u stu <u0014,u bsr L0848 ldd <$13,x beq L0823 addd <u005E L0823 std <u0039 ldd $0B,x leay d,u pshs y ldd <$11,x leay d,u clra clrb bra L0836 L0834 std ,y++ L0836 cmpy ,s bcs L0834 leas $02,s ldx <u002F ldd <u005E addd <$15,x tfr d,x bra L087A L0848 stx <u002F stu <u0031 ldd $0D,x addd <u002F std <u0062 ldd $0F,x addd <u002F std <u0066 std <u0060 ldd $09,x addd <u002F std <u005E ldd <u0014,u std <u0046 std <u0044 rts L0868 stx <u005C *** MAIN LOOP lda <u0034 check if signal received beq L0878 no, execute next instruction bpl L0878 else flag signal received anda #$7F sta <u0034 ldb <u0035 bra L07FB process it L0878 bsr L0897 L087A cmpx <u0060 bcs L0868 bra L088A END ldb ,x lbsr NextInst beq L088A lbsr PRINT L088A lbsr L0F49 ldu <u0031 lds u0005,u ldu u0007,u L0894 rts L0895 leax $02,x UNK9 L0897 ldb ,x+ bpl L089D addb #$40 L089D lslb clra ldu <table1 ldd d,u jmp d,u go to instruction IF jsr <u0016 if... tst $02,y beq GOTO = FALSE leax $03,x THEN ldb ,x cmpb #$3B bne L0894 leax $01,x ELSE GOTO ldd ,x addd <u005E tfr d,x rts ENDIF leax $01,x rts UNTIL jsr <u0016 tst $02,y beq GOTO = FALSE leax $03,x rts L08C8 fdb INTStep1P-L08C8 fdb INTStepXP-L08C8 fdb REALStep1P-L08C8 fdb REALStepXP-L08C8 NEXT leay <L08C8,pcr L08D3 ldb ,x+ lslb ldd b,y ldu <u0031 jmp d,y INTStep1 ldd ,x leay d,u bra L08F9 INTStepX ldd ,x leay d,u ldd $04,x lda d,u bpl L08F9 bra L0919 * FOR .. NEXT / INTEGER INTStep1P ldd ,x offset counter leay d,u address counter ldd ,y addd #$0001 increment counter std ,y L08F9 ldd $02,x offset target leax $06,x ldd d,u target value cmpd ,y bge GOTO loop again leax $03,x rts * FOR .. NEXT .. STEP / INTEGER INTStepXP ldd ,x leay d,u ldd $04,x ldd d,u pshs a addd ,y update counter std ,y tst ,s+ bpl L08F9 incrementing L0919 ldd $02,x leax $06,x ldd d,u cmpd ,y ble GOTO loop again leax $03,x rts REALStep1 ldy <u0046 clrb bsr L0977 bra L0967 REALStepX ldy <u0046 clrb bsr L0977 ldd $04,x addd #$0004 ldu <u0031 lda d,u lsra sign bcc L0967 bra L09B5 * FOR .. NEXT / REAL REALStep1P ldy <u0046 clrb bsr L0977 leay -$06,y ldd #$0180 step 1 (save in temp var) std $01,y clra clrb std $03,y sta $05,y lbsr L0721 bsr L09C5 ldd $01,y std ,u ldd $03,y std u0002,u lda $05,y sta u0004,u L0967 ldb #$02 incrementing bsr L0977 leax $06,x lbsr L0724 lble GOTO loop again leax $03,x rts L0977 ldd b,x copy number addd <u0031 tfr d,u leay -$06,y lda #$02 ldb ,u std ,y ldd u0001,u std $02,y ldd u0003,u std $04,y rts * FOR .. NEXT .. STEP / REAL REALStepXP ldy <u0046 clrb bsr L0977 stu <u00D2 ldb #$04 bsr L0977 lda u0004,u sta <u00D1 lbsr L0721 increment counter bsr L09C5 ldu <u00D2 ldd $01,y std ,u ldd $03,y std u0002,u lda $05,y sta u0004,u lsr <u00D1 check sign bcc L0967 L09B5 ldb #$02 decrementing bsr L0977 leax $06,x lbsr L0724 lbge GOTO loop again leax $03,x rts L09C5 ldb <u0034 rts ******** table for FOR ******** L09C8 fdb INTStep1-L09C8 fdb INTStepX-L09C8 fdb REALStep1-L09C8 fdb REALStepX-L09C8 FOR ldb ,x+ cmpb #$82 beq L405 bsr CpMint bsr L09EB ldb -1,x cmpb #$47 bne L09E2 bsr L09EB L09E2 lbsr GOTO leay <L09C8,pcr lbra L08D3 L09EB ldd ,x++ addd <u0031 pshs b,a jsr <u0016 ldd $01,y std [,s++] rts L405 bsr CpMreal bsr L0A06 ldb -$01,x cmpb #$47 bne L09E2 bsr L0A06 bra L09E2 L0A06 ldd ,x++ addd <u0031 pshs b,a jsr <u0016 bra L0A5C LET jsr <u0016 L0A12 cmpa #$04 bcs L0A1A pshs u ldu <u003E L0A1A pshs u,a leax $01,x jsr <u0016 L0A20 puls a lsla leau <L0A28,pcr jmp a,u L0A28 bra L0A3E byte bra L0A4D integer bra L0A5C real bra L0A3E boolean bra L0A7F string bra L0AA4 array CpMbyte ldd ,x addd <u0031 pshs b,a leax $03,x jsr <u0016 L0A3E ldb $02,y stb [,s++] rts CpMint ldd ,x addd <u0031 pshs b,a leax $03,x jsr <u0016 L0A4D ldd $01,y std [,s++] rts CpMreal ldd ,x addd <u0031 pshs b,a leax $03,x jsr <u0016 L0A5C puls u ldd $01,y std ,u ldd $03,y std u0002,u lda $05,y sta u0004,u rts CpMstrin ldd ,x addd <u0066 tfr d,u ldd ,u addd <u0031 pshs b,a ldd u0002,u pshs b,a leax $03,x jsr <u0016 L0A7F puls u,b,a D = Max size of string to copy tstb bne L0A85 deca L0A85 sta <u003E ldy $01,y sty <u0048 L0A8D lda ,y+ sta ,u+ cmpa #$FF beq L0A9C decb bne L0A8D dec <u003E bpl L0A8D L0A9C clra rts CpMarray lbsr L0727 lbra L0A12 L0AA4 puls u,b,a cmpd $03,y bls L0AAD ldd $03,y L0AAD ldy $01,y exg y,u lbra L071E POKE jsr <u0016 ldd $01,y pshs b,a jsr <u0016 ldb $02,y stb [,s++] rts STOP lbsr PRINT lda <u002E sta <u007F leax >L07C2,pcr lbsr Sprint lbra L0709 exit UNK1 lbra L070C PAUSE lbsr PRINT rts GOSUB ldd ,x leax $03,x L0ADE ldy <u0031 ldu <$14,y cmpu <u004A bhi L0AEE ldb #E$SubOvf lbra L0EDC L0AEE stx ,--u stu <$14,y stu <u0046 addd <u005E tfr d,x rts RETURN ldy <u0031 cmpy <$14,y bhi L0B08 ldb #$36 lbra L0EDC L0B08 ldu <$14,y ldx ,u++ stu <$14,y stu <u0046 rts ON ldd ,x cmpa #$1E beq L0B4E jsr <u0016 ldd ,x lslb rola lslb rola addd #$0002 leau d,x pshs u ldd $01,y ble L0B4C cmpd ,x++ bhi L0B4C subd #$0001 lslb rola lslb rola addd #$0001 ldd d,x pshs b,a ldb ,x cmpb #$22 puls x,b,a beq L0ADE addd <u005E tfr d,x rts L0B4C puls pc,x L0B4E ldu <u0031 cmpb #$20 bne L0B63 ldd $02,x addd <u005E std <u0011,u lda #$01 sta <u0013,u leax $05,x rts L0B63 clr <u0013,u leax $02,x rts CREATE bsr L0B87 ldb #PREAD.+UPDAT. os9 I$Create bra L0B77 OPEN bsr L0B87 os9 I$Open L0B77 lbcs L0EDC puls u,b cmpb #$01 bne L0B83 clr ,u+ L0B83 sta ,u puls pc,x L0B87 leax $01,x lbsr GetVar leax $01,x jsr <u0016 lda #$03 cmpb #$4A bne L0B98 lda ,x++ L0B98 ldu $03,s stx $03,s ldx $01,y jmp ,u SEEK lbsr SetPath jsr <u0016 ldb #$0E lbsr L0733 lbcs L0EDE rts InputPrompt fcc /? / L0BB0 fcb $ff L0BB2 fcc "** Input error - reenter **" fcb C$CR,$ff INPUT lda <u002e lbsr SetPath lda #$2C sta <u00DD pshs x L0BDA ldx ,s ldb ,x cmpb #$90 bne L0BEA jsr <u0016 pshs x ldx $01,y bra L0BEF L0BEA pshs x leax <InputPrompt,pcr L0BEF bsr Sprint puls x lda <u007F cmpa <u002E bne L0BFD lda <u002D sta <u007F L0BFD ldb #$06 L0BFF lbsr L0733 bcc L0C11 cmpb #$03 lbne L0EDE lbsr L0F04 clr <u0036 bra L0BDA L0C11 bsr L0C24 bcc L0C1C leax <L0BB2,pcr bsr Sprint bra L0BDA L0C1C ldb ,x+ cmpb #$4B beq L0C11 puls pc,b,a L0C24 bsr GetVar ldb ,s addb #$07 ldy <u0046 lbsr L0733 lbcc L0A20 lda ,s L0C36 cmpa #$04 bcs L0C3C leas $02,s L0C3C leas $03,s coma rts * Entry: X = address of string to print Sprint pshs y leas -$06,s leay ,s stx $01,y ldd <u0080 std <u0082 ldb #$05 lbsr L0733 ldb #$00 lbsr L0733 leas $06,s puls pc,y GetVar lda ,x+ cmpa #$0E bne L0C64 jsr <u0016 bra L0C89 L0C64 suba #$80 cmpa #$04 bcs L0C7F beq L0C71 lbsr L0727 bra L0C89 L0C71 ldd ,x++ addd <u0066 tfr d,u ldd u0002,u std <u003E ldd ,u bra L0C81 L0C7F ldd ,x++ L0C81 addd <u0031 tfr d,u lda -$03,x suba #$80 L0C89 puls y cmpa #$04 bcs L0C93 pshs u ldu <u003E L0C93 pshs u,a jmp ,y * set IO path * called by #path statement SetPath ldb ,x cmpb #$54 bne L0CA9 leax $01,x jsr <u0016 cmpb #$4B beq L0CA7 leax -$01,x L0CA7 lda $02,y L0CA9 sta <u007F rts READ ldb ,x cmpb #$54 bne L0CD6 bsr SetPath clr <u00DD cmpb #$4B bne L0CBC leax -$01,x L0CBC ldb #$06 lbsr L0733 bcc L0CCF cmpb #$E4 beq L0CBC L0CC7 lbra L0EDE L0CCA lbsr L0C24 bcs L0CC7 L0CCF ldb ,x+ cmpb #$4B beq L0CCA rts L0CD6 bsr NextInst beq L0D13 L0CDA bsr L0CE3 ldb ,x+ cmpb #$4B beq L0CDA rts L0CE3 lbsr GetVar bsr L0D15 lda ,s bne L0CED inca L0CED cmpa ,y lbeq L0A20 cmpa #$02 bcs L0CFD beq L0D09 L0CF9 ldb #$47 bra L0D1D L0CFD lda ,y cmpa #$02 bne L0CF9 lbsr L072A lbra L0A20 L0D09 cmpa ,y bcs L0CF9 lbsr L072D lbra L0A20 L0D13 leax $01,x L0D15 pshs x ldx <u0039 bne L0D20 ldb #$4F L0D1D lbra L0EDC L0D20 jsr <u0016 cmpb #$4B beq L0D2C ldd ,x addd <u005E tfr d,x L0D2C stx <u0039 puls pc,x * instruction delimiters NextInst cmpb #$3F beq L0D36 cmpb #$3E L0D36 rts PRINT lda <u002E lbsr SetPath ldd <u0080 std <u0082 ldb ,x+ cmpb #$49 PRINT USING beq L0D84 L0D46 bsr NextInst beq L0D6C L0D4A cmpb #$4B beq L0D60 cmpb #$51 beq L0D64 leax -$01,x jsr <u0016 ldb ,y addb #$01 bsr L0D7C ldb -$01,x bra L0D46 L0D60 ldb #$0D bsr L0D7C L0D64 ldb ,x+ bsr NextInst bne L0D4A bra L0D70 L0D6C ldb #$0C bsr L0D7C L0D70 ldb #$00 bsr L0D7C lda <u00DE clr <u00DE tsta bne L0D81 L0D7B rts L0D7C lbsr L0733 bcc L0D7B L0D81 lbra L0EDE L0D84 jsr <u0016 ldd <u004A std <u008E std <u008C ldu <u0046 pshs u,b,a clr <u0094 ldd <u0048 std <u004A L0D96 ldb -$01,x bsr NextInst beq L0DB8 ldb ,x+ bsr NextInst beq L0DB3 leax -$01,x ldb #$11 lbsr L0733 bcc L0D96 puls u,b,a std <u004A stu <u0046 bra L0D81 L0DB3 leay <L0D70,pcr bra L0DBB L0DB8 leay <L0D6C,pcr L0DBB puls u,b,a std <u004A stu <u0046 jmp ,y WRITE lda <u002E lbsr SetPath ldu <u0080 stu <u0082 ldb ,x+ lbsr NextInst beq L0DF5 cmpb #$4B comma separator? beq L0DE3 leax -$01,x bra L0DE3 L0DDB clra ldb #$12 lbsr L0733 bcs L0D81 L0DE3 jsr <u0016 ldb ,y addb #$01 lbsr L0733 bcs L0D81 ldb -$01,x lbsr NextInst bne L0DDB L0DF5 lbra L0D6C GET bsr L0E0B os9 I$Read bra L0E04 PUT bsr L0E0B os9 I$Write L0E04 leax ,u bcc L0E2A L0E08 lbra L0EDC L0E0B lbsr SetPath lbsr GetVar leau ,x puls a cmpa #$04 bcc L0E24 leax >L1031,pcr ldb a,x clra tfr d,y bra L0E26 L0E24 puls y L0E26 puls x lda <u007F L0E2A rts CLOSE lbsr SetPath os9 I$Close bcs L0E08 cmpb #$4B beq CLOSE rts RESTORE ldb ,x+ cmpb #$3B beq L0E48 ldu <u002F ldd <u0013,u L0E43 addd <u005E std <u0039 rts L0E48 ldd ,x addd #$0001 leax $03,x bra L0E43 DELETE jsr <u0016 pshs x ldx $01,y os9 I$Delete L0E5A bcs L0E08 puls pc,x CHD jsr <u0016 lda #UPDAT. L0E62 pshs x ldx $01,y os9 I$ChgDir bra L0E5A CHX jsr <u0016 lda #EXEC. bra L0E62 lbsr GetVar ldy <u0046 leay -$06,y ldb <u007F clra std $01,y lbra L0A20 CHAIN jsr <u0016 ldy $01,y pshs u,y,x lbsr L070F puls u,y,x bsr L0EC1 sts <u00B1 lds <u0080 os9 F$Chain lds <u00B1 bra L0EDC SHELL jsr <u0016 pshs u,x ldy $01,y bsr L0EC1 os9 F$Fork bcs L0EDC pshs a L0EAD os9 F$Wait cmpa ,s bne L0EAD leas $01,s tstb bne L0EDC puls pc,u,x L0EBB fcc "SHELL" L0EC0 fcb C$CR L0EC1 ldx <u0048 lda #C$CR sta -1,x tfr x,d leax >L0EBB,pcr leau ,y pshs y subd ,s++ tfr d,y clra clrb rts ERROR jsr <u0016 ldb 2,y UNK8 L0EDC stb <u0036 L0EDE ldu <u0031 beq L0EFC not running subroutine tst <u0013,u beq L0EF5 no error trap lds u0005,u ldx <u0011,u ldd <u0014,u std <u0046 lbra L0868 process error L0EF5 bsr L0F04 bsr L0F49 lbra L0709 exit L0EFC lbsr L0712 lbra L0709 exit L0F02 fcb 14,255 Force text mode in VDGINT L0F04 leax <L0F02,pcr lbsr Sprint lbsr L070F ldb <u0036 os9 F$Exit rts BASE0 clrb bra L0F18 BASE1 ldb #$01 L0F18 clra std <u0042 leax $01,x rts UNK4 ldb ,x+ clra leax d,x rts UNK3 exg x,pc rts L1900 leay ,x lbsr L071B leax ,y rts errs51 ldb #$33 bra L0EDC DEG lda #$01 bra L0F38 RAD clra L0F38 ldu <u0031 sta u0001,u leax $01,x rts UNK10 L0F3F lda <u0034 bita #$01 bne L0F5F ora #$01 bra L0F51 UNK11 L0F49 lda <u0034 bita #$01 beq L0F5F anda #$FE L0F51 sta <u0034 ldd <u0017 pshs b,a ldd <u0019 std <u0017 puls b,a std <u0019 L0F5F rts RUN lbsr L0727 pshs x ldb <u00CF cmpb #$A0 beq L0F8C ldy <u0048 ldx <u003E L0F70 lda ,u+ leax -$01,x beq L0F7E sta ,y+ cmpa #$FF bne L0F70 lda ,--y L0F7E ora #$80 sta ,y ldy <u0048 lbsr L0715 bcs L0FCA leau ,x L0F8C ldd ,u bne L0F9E ldy <u00D2 leay $03,y lbsr L0715 bcs L0FCA ldd ,x std ,u L0F9E ldx ,s std ,s ldu <u0031 lda <u0034 sta ,u ldb <u0043 stb u0002,u ldd <u004A std u000D,u ldd <u0040 std u000F,u ldd <u0039 std u0009,u bsr L1035 stx u000B,u puls x lda $06,x beq L0FF9 cmpa #$22 beq L0FF9 cmpa #$21 beq L0FCF L0FCA ldb #$2B L0FCC lbra L0EDC L0FCF ldd u0005,u pshs b,a sts u0005,u leas ,y ldd <u0040 pshs y subd ,s++ lsra rorb lsra rorb pshs b,a ldd $09,x leay >L07D4,pcr jsr d,x ldu <u0031 lds u0005,u puls x stx u0005,u bcc L1012 bra L0FCC L0FF9 lbsr L0F49 lda <u0034 anda #$7F sta <u0034 lbsr L07D4 lda ,u bita #$01 beq L1012 lbsr L0F3F lda ,u sta <u0034 L1012 ldd u000D,u std <u004A ldd u000F,u std <u0040 ldd u0009,u std <u0039 ldb u0002,u sex std <u0042 ldx u0003,u lbsr L0848 ldx u000B,u ldd <u0044 subd <u004A std <u000C rts L1031 fcb $01 fcb $02 fcb $05 fcb $01 UNK7 L1035 pshs u ldb ,x+ clra pshs x,a cmpb #$4D bne L10B7 leay ,s L1042 pshs y ldb ,x cmpb #$0E beq L1079 jsr <u0016 leax -$01,x cmpa #$02 beq L105C cmpa #$04 beq L1069 ldd $01,y std $04,y lda ,y L105C ldb #$06 leau <L1031,pcr subb a,u leau b,y stu <u0046 bra L107D L1069 ldu $01,y ldd <u0048 subd <u004A std <u003E ldd <u0048 std <u004A lda #$04 bra L107D L1079 leax $01,x jsr <u0016 L107D puls y inc ,y cmpa #$04 bcs L1089 pshs u ldu <u003E L1089 pshs u,a ldb ,x+ cmpb #$4B beq L1042 leax $01,x stx $01,y leax <L1031,pcr ldu <u0046 stu <u0040 L109C puls b cmpb #$04 bcs L10A6 puls b,a bra L10A9 L10A6 ldb b,x clra L10A9 std ,--u puls b,a std ,--u dec ,y bne L109C leay ,u bra L10BD L10B7 ldy <u0046 sty <u0040 L10BD tfr y,d subd <u004A lbcs L07F9 std <u000C puls pc,u,x,a KILL jsr <u0016 ldy $01,y pshs x lbsr L0718 puls pc,x UNK5 lbsr L0730 leax >L0736,pcr stx <table1 rts UNID3 pshs x,b,a ldb [<$04,s] leax <L10EF,pcr ldd b,x leax d,x stx $04,s puls pc,x,b,a L10EF fdb UNK12-L10EF fdb L1253-L10EF fdb RLADD-L10EF fdb L15A6-L10EF fdb L1707-L10EF fdb RLCMP-L10EF fdb FIX-L10EF fdb FLOAT-L10EF L10FF jsr <u001B fcb $08 L1102 jsr <u0024 fcb $06 L1105 jsr <u002A fcb $02 fdb MID$-L1188 fdb LEFT$-L1188 fdb RIGHT$-L1188 fdb CHR$-L1188 fdb STR$int-L1188 fdb STR$rl-L1188 fdb DATE$-L1188 fdb TAB-L1188 fdb FIX-L1188 fdb fixN1-L1188 fdb fixN2-L1188 fdb FLOAT-L1188 fdb float2-L1188 fdb LNOTB-L1188 fdb NEGint-L1188 fdb NEGrl-L1188 fdb LANDB-L1188 fdb LORB-L1188 fdb LXORB-L1188 fdb Igt-L1188 fdb Rgt-L1188 fdb Sgt-L1188 fdb Ilo-L1188 fdb Rlo-L1188 fdb Slo-L1188 fdb Ine-L1188 fdb Rne-L1188 fdb Sne-L1188 fdb Bne-L1188 fdb Ieq-L1188 fdb Req-L1188 fdb Seq-L1188 fdb Beq-L1188 fdb Ige-L1188 fdb Rge-L1188 fdb Sge-L1188 fdb Ile-L1188 fdb Rle-L1188 fdb Sle-L1188 fdb INTADD-L1188 fdb RLADD-L1188 fdb STRconc-L1188 fdb INTSUB-L1188 fdb RLSUB-L1188 fdb INTMUL-L1188 fdb RLMUL-L1188 fdb INTDIV-L1188 fdb RLDIV-L1188 fdb POWERS-L1188 fdb POWERS-L1188 fdb DIM-L1188 fdb DIM-L1188 fdb DIM-L1188 fdb DIM-L1188 fdb PARAM-L1188 fdb PARAM-L1188 fdb PARAM-L1188 fdb PARAM-L1188 fdb $0000,$0000,$0000,$0000,$0000,$00$00 L1188 fdb BCPVAR-L1188 fdb ICPVAR-L1188 fdb L2102-L1188 fdb BlCPVAR-L1188 fdb SCPVAR-L1188 fdb L2105-L1188 fdb L2105-L1188 fdb L2105-L1188 fdb L2105-L1188 fdb L2106-L1188 fdb L2106-L1188 fdb L2106-L1188 fdb L2106-L1188 fdb BCPCNST-L1188 fdb ICPCNST-L1188 fdb RCPCNST-L1188 fdb SCPCNST-L1188 fdb ICPCNST-L1188 fdb ADDR-L1188 fdb ADDR-L1188 fdb SIZE-L1188 fdb SIZE-L1188 fdb POS-L1188 fdb ERR-L1188 fdb MODint-L1188 fdb MODrl-L1188 fdb RND-L1188 fdb PI-L1188 fdb SUBSTR-L1188 fdb SGNint-L1188 fdb SGNrl-L1188 fdb L2122-L1188 fdb L2123-L1188 fdb L2124-L1188 fdb L2125-L1188 fdb L2126-L1188 fdb L2127-L1188 fdb EXP-L1188 fdb ABSint-L1188 fdb ABSrl-L1188 fdb LOG-L1188 fdb LOG10-L1188 fdb SQRT-L1188 fdb SQRT-L1188 fdb FLOAT-L1188 fdb INTrl-L1188 fdb L1AC3-L1188 fdb FIX-L1188 fdb FLOAT-L1188 fdb L1AC3-L1188 fdb SQint-L1188 fdb SQrl-L1188 fdb PEEK-L1188 fdb LNOTI-L1188 fdb VAL-L1188 fdb LEN-L1188 fdb ASC-L1188 fdb LANDI-L1188 fdb LORI-L1188 fdb LXORI-L1188 fdb equTRUE-L1188 fdb equFALSE-L1188 fdb EOF-L1188 fdb TRIM$-L1188 L1208 fdb BtoI-L1208 fdb INTCPY-L1208 fdb RCPVAR-L1208 fdb L13-L1208 fdb L14-L1208 fdb L15-L1208 L1214 ldy <u0046 = table4 ldd <u004A std <u0048 clear expression stack bra L1224 L121D lslb ldu <table2 ldd b,u jsr d,u L1224 ldb ,x+ bmi L121D next part clra clear carry lda ,y rts instruction done * get size of DIM array L2105 bsr L1253 L122E pshs pc,u ldu <table3 lsla ldd a,u leau d,u stu $02,s puls pc,u * Get size of PARAM array L2106 bsr L124B bra L122E DIM leas $02,s lda #$F2 bra L1255 PARAM leas $02,s lda #$F6 bra L124D L124B lda #$89 L124D sta <u00A3 clr <u003B bra L1259 L1253 lda #$85 L1255 sta <u00A3 sta <u003B L1259 ldd ,x++ addd <u0062 std <u00D2 ldu <u00D2 lda ,u anda #$E0 sta <u00CF eora #$80 sta <u00CE lda ,u anda #$07 ldb -$03,x subb <u00A3 pshs b,a lda ,u anda #$18 lbeq L1312 ldd u0001,u addd <u0066 tfr d,u ldd ,u std <u003C lda $01,s bne L1297 lda #$05 sta ,s ldd u0002,u std <u003E clra clrb bra L12EA L1297 leay -$06,y clra clrb std $01,y leau u0004,u bra L12A8 L12A1 ldd ,u std $01,y lbsr INTMUL L12A8 ldd $07,y subd <u0042 cmpd ,u++ bcs L12B6 ldb #$37 lbra L1102 L12B6 addd $01,y std $07,y dec $01,s bne L12A1 lda ,s beq L12D2 cmpa #$02 bcs L12D6 beq L12DE cmpa #$04 bcs L12D2 ldd ,u std <u003E bra L12E1 L12D2 ldd $07,y bra L12DA L12D6 ldd $07,y lslb rola L12DA leay $0C,y bra L12EA L12DE ldd #$0005 L12E1 std $01,y lbsr INTMUL ldd $01,y leay $06,y L12EA tst <u00CE bne L1306 pshs b,a ldd <u003C addd <u0031 cmpd <u0040 bcc err56 tfr d,u puls b,a cmpd u0002,u bhi err56 addd ,u bra L1346 L1306 addd <u003C tst <u003B bne L1344 L130C addd $01,y leay $06,y bra L1346 L1312 lda ,s cmpa #$04 ldd u0001,u bcs L1324 addd <u0066 tfr d,u ldd u0002,u std <u003E ldd ,u L1324 tst <u003B beq L130C addd <u0031 tfr d,u tst <u00CE bne L1348 cmpd <u0040 bcc err56 ldd <u003E cmpd u0002,u bcs L1340 ldd u0002,u std <u003E L1340 ldu ,u bra L1348 L1344 addd <u0031 L1346 tfr d,u L1348 clra puls pc,b,a err56 ldb #$38 lbra L1102 BCPCNST leau ,x+ bra BtoI BCPVAR ldd ,x++ addd <u0031 tfr d,u BtoI ldb ,u clra leay -$06,y std $01,y lda #$01 sta ,y rts ICPCNST leau ,x++ bra INTCPY ICPVAR ldd ,x++ addd <u0031 tfr d,u INTCPY ldd ,u leay -$06,y std $01,y lda #$01 sta ,y rts NEGint clra clrb subd $01,y std $01,y rts INTADD ldd $07,y addd $01,y leay $06,y std $01,y rts INTSUB ldd $07,y subd $01,y leay $06,y std $01,y rts INTMUL ldd $07,y beq L13CD cmpd #$0002 bne L13OO ldd $01,y bra L13AE L13OO ldd $01,y beq L13B0 cmpd #$0002 bne L13B4 ldd $07,y L13AE lslb rola L13B0 std $07,y bra L13CD L13B4 lda $08,y mul sta $03,y lda $08,y stb $08,y ldb $01,y mul addb $03,y lda $07,y stb $07,y ldb $02,y mul addb $07,y stb $07,y L13CD leay $06,y rts L13D0 clr ,y ldd $07,y bpl L13DE nega negb sbca #$00 std $07,y com ,y L13DE ldd $01,y bpl L13EA nega negb sbca #$00 std $01,y com ,y L13EA cmpd #$0002 rts INTDIV bsr L13D0 bne L1401 ldd $07,y beq L140E asra rorb std $07,y ldd #$0000 rolb bra L1438 L1401 ldd $01,y bne L140A ldb #E$DivZer lbra L1102 L140A ldd $07,y bne L1413 L140E leay $06,y std $03,y rts L1413 tsta bne L141E exg a,b std $07,y ldb #$08 bra L1420 L141E ldb #$10 L1420 stb $03,y clra clrb L1424 lsl $08,y rol $07,y rolb rola subd $01,y bmi L1432 inc $08,y bra L1434 L1432 addd $01,y L1434 dec $03,y bne L1424 L1438 std $09,y tst ,y bpl L144C nega negb sbca #$00 std $09,y ldd $07,y nega negb sbca #$00 std $07,y L144C leay $06,y rts RCPCNST leay -$06,y ldb ,x+ lda #$02 std ,y ldd ,x++ std $02,y ldd ,x++ std $04,y rts L2102 ldd ,x++ addd <u0031 tfr d,u RCPVAR leay -$06,y lda #$02 ldb ,u std ,y ldd u0001,u std $02,y ldd u0003,u std $04,y rts * invert sign of real number NEGrl lda $05,y eora #$01 sta $05,y rts RLSUB L147E ldb $05,y eorb #$01 stb $05,y RLADD pshs x tst $02,y beq L149A tst $08,y bne L149E L148E ldd $01,y std $07,y ldd $03,y std $09,y lda $05,y sta $0B,y L149A leay $06,y puls pc,x * compare exponents L149E lda $07,y suba $01,y bvc L14A8 bpl L148E bra L149A L14A8 bmi L14B0 cmpa #$1F ble L14B8 bra L149A L14B0 cmpa #$E1 blt L148E ldb $01,y stb $07,y L14B8 ldb $0B,y andb #$01 stb ,y eorb $05,y andb #$01 stb $01,y ldb $0B,y andb #$FE stb $0B,y ldb $05,y andb #$FE stb $05,y tsta beq L1504 bpl L14FC nega leax $06,y bsr L1555 tst $01,y beq L150C L14DE subd $04,y exg d,x sbcb $03,y sbca $02,y bcc L1520 coma comb exg d,x coma comb addd #$0001 exg d,x bcc L14F8 addd #$0001 L14F8 dec ,y bra L1520 L14FC leax ,y bsr L1555 stx $02,y std $04,y L1504 ldx $08,y ldd $0A,y tst $01,y bne L14DE L150C addd $04,y exg d,x adcb $03,y adca $02,y bcc L1520 rora rorb exg d,x rora rorb inc $07,y exg d,x L1520 tsta bmi L1533 L1523 dec $07,y lbvs L15B0 exg d,x lslb rola exg d,x rolb rola bpl L1523 L1533 exg d,x addd #$0001 exg d,x bcc L1544 addd #$0001 bcc L1544 rora inc $07,y L1544 std $08,y tfr x,d andb #$FE tst ,y beq L154F incb L154F std $0A,y leay $06,y puls pc,x L1555 suba #$10 bcs L1573 suba #$08 bcs L1564 pshs a clra ldb $02,x bra L156A L1564 adda #$08 pshs a ldd $02,x L156A ldx #$0000 tst ,s beq L159C bra L1590 L1573 adda #$08 bcc L1586 pshs a clra ldb $02,x ldx $03,x tst ,s bne L1592 exg d,x bra L159C L1586 adda #$08 pshs a ldd $02,x ldx $04,x bra L1592 L1590 exg d,x L1592 lsra rorb exg d,x rora rorb dec ,s bne L1590 L159C leas $01,s rts RLMUL bsr L15A6 lbcs L1102 rts L15A6 pshs x lda $02,y bpl L15B0 lda $08,y bmi L15BC L15B0 clra clrb std $07,y std $09,y sta $0B,y leay $06,y puls pc,x L15BC lda $01,y adda $07,y bvc L15C9 L15C2 bpl L15B0 comb ldb #$32 puls pc,x L15C9 sta $07,y ldb $0B,y eorb $05,y andb #$01 stb ,y lda $0B,y anda #$FE sta $0B,y ldb $05,y andb #$FE stb $05,y mul sta ,-s clr ,-s clr ,-s lda $0B,y ldb $04,y mul addd $01,s std $01,s bcc L15F3 inc ,s L15F3 lda $0A,y ldb $05,y mul addd $01,s std $01,s bcc L1600 inc ,s L1600 ldb $02,s ldx ,s stx $01,s clr ,s lda $0B,y ldb $03,y mul addd $01,s std $01,s bcc L1615 inc ,s L1615 lda $0A,y ldb $04,y mul addd $01,s std $01,s bcc L1622 inc ,s L1622 lda $09,y ldb $05,y mul addd $01,s std $01,s bcc L162F inc ,s L162F ldb $02,s ldx ,s stx $01,s clr ,s lda $0B,y ldb $02,y mul addd $01,s std $01,s bcc L1644 inc ,s L1644 lda $0A,y ldb $03,y mul addd $01,s std $01,s bcc L1651 inc ,s L1651 lda $09,y ldb $04,y mul addd $01,s std $01,s bcc L165E inc ,s L165E lda $08,y ldb $05,y mul addd $01,s std $01,s bcc L166B inc ,s L166B ldb $02,s ldx ,s stx $01,s clr ,s stb $0B,y lda $0A,y ldb $02,y mul addd $01,s std $01,s bcc L1682 inc ,s L1682 lda $09,y ldb $03,y mul addd $01,s std $01,s bcc L168F inc ,s L168F lda $08,y ldb $04,y mul addd $01,s std $01,s bcc L169C inc ,s L169C ldb $02,s ldx ,s stx $01,s clr ,s stb $0A,y lda $09,y ldb $02,y mul addd $01,s std $01,s bcc L16B3 inc ,s L16B3 lda $08,y ldb $03,y mul addd $01,s std $01,s bcc L16C0 inc ,s L16C0 lda $08,y ldb $02,y mul addd ,s bmi L16D5 lsl $0B,y rol $0A,y rol $02,s rolb rola dec $07,y bvs L16EE L16D5 std $08,y lda $02,s ldb $0A,y addd #$0001 bcc L16F3 inc $09,y bne L16F5 inc $08,y bne L16F5 ror $08,y inc $07,y bvc L16F5 L16EE leas $03,s lbra L15C2 L16F3 andb #$FE L16F5 orb ,y std $0A,y leay $06,y leas $03,s clrb puls pc,x RLDIV bsr L1707 lbcs L1102 L1706 rts L1707 comb ldb #$2D tst $02,y beq L1706 pshs x tst $08,y lbeq L15B0 lda $07,y suba $01,y lbvs L15C2 sta $07,y lda #$21 ldb $05,y eorb $0B,y andb #$01 std ,y lsr $02,y ror $03,y ror $04,y ror $05,y ldd $08,y ldx $0A,y lsra rorb exg d,x rora rorb clr $0B,y bra L1742 L1740 exg d,x L1742 subd $04,y exg d,x bcc L174B subd #$0001 L174B subd $02,y beq L177E bmi L177A L1751 orcc #Carry L1753 dec ,y beq L17CB rol $0B,y rol $0A,y rol $09,y rol $08,y exg d,x lslb rola exg d,x rolb rola bcc L1740 exg d,x addd $04,y exg d,x bcc L1774 addd #$0001 L1774 addd $02,y beq L177E bpl L1751 L177A andcc #^Carry bra L1753 L177E leax ,x bne L1751 ldb ,y decb subb #$10 blt L17A0 subb #$08 blt L1795 stb ,y lda $0B,y ldb #$80 bra L17BE L1795 addb #$08 stb ,y ldd #$8000 ldx $0A,y bra L17C0 L17A0 addb #$08 blt L17AE stb ,y ldx $09,y lda $0B,y ldb #$80 bra L17C0 L17AE addb #$07 stb ,y ldx $08,y ldd $0A,y orcc #Carry L17B8 rolb rola exg d,x rolb rola L17BE exg d,x L17C0 andcc #^Carry dec ,y bpl L17B8 exg d,x tsta bra L17CF L17CB ldx $0A,y ldd $08,y L17CF bmi L17DF exg d,x rolb rola exg d,x rolb rola dec $07,y lbvs L15B0 L17DF exg d,x addd #$0001 exg d,x bcc L17F4 addd #$0001 bcc L17F4 rora inc $07,y lbvs L15C2 L17F4 std $08,y tfr x,d andb #$FE orb $01,y std $0A,y inc $07,y lbvs L15C2 L1804 leay $06,y clrb puls pc,x POWERS pshs x ldd $07,y beq L1804 ldx $01,y bne L1822 leay $06,y L1815 ldd #$0180 std $01,y clr $03,y clr $04,y clr $05,y puls pc,x L1822 std $01,y stx $07,y ldd $09,y ldx $03,y std $03,y stx $09,y lda $0B,y ldb $05,y sta $05,y stb $0B,y puls x lbsr LOG lbsr RLMUL lbra L1D37 BlCPVAR ldd ,x++ addd <u0031 tfr d,u L13 ldb ,u clra leay -$06,y std $01,y lda #$03 sta ,y rts LANDB ldb $08,y andb $02,y bra L1863 LORB ldb $08,y orb $02,y bra L1863 LXORB ldb $08,y eorb $02,y L1863 leay $06,y std $01,y rts LNOTB com $02,y rts StrCMP pshs y,x ldx $01,y ldy $07,y sty <u0048 L1875 lda ,y+ cmpa ,x+ bne L187F cmpa #$FF bne L1875 L187F inca inc -$01,x cmpa -$01,x puls pc,y,x Slo bsr StrCMP bcs L18D8 bra L18DC Sle bsr StrCMP bls L18D8 bra L18DC Seq bsr StrCMP beq L18D8 bra L18DC Sne bsr StrCMP bne L18D8 bra L18DC Sge bsr StrCMP bcc L18D8 bra L18DC Sgt bsr StrCMP bhi L18D8 bra L18DC Ilo ldd $07,y subd $01,y blt L18D8 bra L18DC Ile ldd $07,y subd $01,y ble L18D8 bra L18DC Ine ldd $07,y subd $01,y bne L18D8 bra L18DC Ieq ldd $07,y subd $01,y beq L18D8 bra L18DC Ige ldd $07,y subd $01,y bge L18D8 bra L18DC Igt ldd $07,y subd $01,y ble L18DC L18D8 ldb #$FF bra L18DE L18DC ldb #$00 L18DE clra leay $06,y std $01,y lda #$03 sta ,y rts Beq ldb $08,y cmpb $02,y beq L18D8 bra L18DC Bne ldb $08,y cmpb $02,y bne L18D8 bra L18DC Rlo bsr RLCMP blt L18D8 bra L18DC Rle bsr RLCMP ble L18D8 bra L18DC Rne bsr RLCMP bne L18D8 bra L18DC Req bsr RLCMP beq L18D8 bra L18DC Rge bsr RLCMP bge L18D8 bra L18DC Rgt bsr RLCMP bgt L18D8 bra L18DC RLCMP pshs y andcc #Entire+FIRQMask+HalfCrry+IRQMask lda $08,y bne L1934 lda $02,y beq L1932 L1928 lda $05,y L192A anda #$01 bne L1932 L192E andcc #Entire+FIRQMask+HalfCrry+IRQMask orcc #Negative L1932 puls pc,y L1934 lda $02,y bne L193E lda $0B,y eora #$01 bra L192A L193E lda $0B,y eora $05,y anda #$01 bne L1928 leau $06,y lda $05,y anda #$01 beq L1950 exg u,y L1950 ldd u0001,u cmpd $01,y bne L1932 ldd u0003,u cmpd $03,y bne L1964 lda u0005,u cmpa $05,y beq L1932 L1964 bcs L192E andcc #Entire+FIRQMask+HalfCrry+IRQMask puls pc,y SCPCNST clrb stb <u003E L196D ldu <u0048 leay -$06,y stu $01,y sty <u0044 L1976 cmpu <u0044 bcc L1995 lda ,x+ sta ,u+ cmpa #$FF beq L198E decb bne L1976 dec <u003E bpl L1976 lda #$FF sta ,u+ L198E stu <u0048 lda #$04 sta ,y rts L1995 ldb #$2F lbra L1102 SCPVAR ldd ,x++ addd <u0066 tfr d,u L19A0 ldd ,u addd <u0031 ldu u0002,u stu <u003E tfr d,u L14 pshs x ldb <u003F bne L19B2 dec <u003E L19B2 leax ,u bsr L196D puls pc,x STRconc ldu $01,y leay $06,y L19BC lda ,u+ sta -u0002,u cmpa #$FF bne L19BC leau -u0001,u stu <u0048 rts L15 ldd <u003E leay -$06,y std $03,y stu $01,y lda #$05 sta ,y rts FLOAT clra clrb std $04,y ldd $01,y bne L19E5 stb $03,y lda #$02 sta ,y rts L19E5 ldu #$0210 tsta bpl L19F1 nega negb sbca #$00 inc $05,y L19F1 tsta bne L19F9 ldu #$0208 exg a,b L19F9 tsta bmi L1A02 L19FC leau -u0001,u lslb rola bpl L19FC L1A02 std $02,y stu ,y rts float2 leay $06,y bsr FLOAT leay -$06,y rts FIX ldb $01,y bgt L1A21 bmi L1A1D lda $02,y bpl L1A1D ldd #$0001 bra L1A64 L1A1D clra clrb bra L1A6C L1A21 subb #$10 bhi L1A5F bne L1A39 ldd $02,y ror $05,y bcc L1A6C cmpd #$8000 bne L1A5F tst $04,y bpl L1A6C bra L1A5F L1A39 cmpb #$F8 bhi L1A4B pshs b ldd $02,y std $03,y clr $02,y puls b addb #$08 beq L1A54 L1A4B lsr $02,y ror $03,y ror $04,y incb bne L1A4B L1A54 ldd $02,y tst $04,y bpl L1A64 addd #$0001 bvc L1A64 L1A5F ldb #$34 lbra L1102 L1A64 ror $05,y bcc L1A6C nega negb sbca #$00 L1A6C std $01,y lda #$01 sta ,y rts fixN1 leay $06,y bsr FIX leay -$06,y rts fixN2 leay $0C,y bsr FIX leay -$0C,y rts ABSrl lda $05,y anda #$FE sta $05,y rts ABSint ldd $01,y bpl L1A92 nega negb sbca #$00 std $01,y L1A92 rts PEEK clra ldb [<$01,y] std $01,y rts SGNrl lda $02,y beq L1AAE lda $05,y anda #$01 bne L1AB1 L1AA4 ldb #$01 bra L1AB3 SGNint ldd $01,y bmi L1AB1 bne L1AA4 L1AAE clrb bra L1AB3 L1AB1 ldb #$FF L1AB3 sex bra L1ABD ERR ldb <u0036 clr <u0036 L1ABA clra leay -$06,y L1ABD std $01,y lda #$01 sta ,y L1AC3 rts POS ldb <u007D bra L1ABA SQRT L1AC8 ldb $05,y asrb lbcs err67 ldb #$1F stb <u006E ldd $01,y beq L1AC3 inca asra sta $01,y ldd $02,y bcs L1AE9 lsra rorb std -$04,y ldd $04,y rora rorb bra L1AED L1AE9 std -$04,y ldd $04,y L1AED std -$02,y clra clrb std $02,y std $04,y std -$06,y std -$08,y bra L1B0B L1AFB orcc #Carry rol $05,y rol $04,y rol $03,y rol $02,y dec <u006E beq L1B4D bsr L1B62 L1B0B ldb -$04,y subb #$40 stb -$04,y ldd -$06,y sbcb $05,y sbca $04,y std -$06,y ldd -$08,y sbcb $03,y sbca $02,y std -$08,y bpl L1AFB L1B23 andcc #^Carry rol $05,y rol $04,y rol $03,y rol $02,y dec <u006E beq L1B4D bsr L1B62 ldb -$04,y addb #$C0 stb -$04,y ldd -$06,y adcb $05,y adca $04,y std -$06,y ldd -$08,y adcb $03,y adca $02,y std -$08,y bmi L1B23 bra L1AFB L1B4D ldd $02,y bra L1B57 L1B51 dec $01,y lbvs L15B0 L1B57 lsl $05,y rol $04,y rolb rola bpl L1B51 std $02,y rts L1B62 bsr L1B64 L1B64 lsl -$01,y rol -$02,y rol -$03,y rol -$04,y rol -$05,y rol -$06,y rol -$07,y rol -$08,y rts MODint lbsr INTDIV ldd $03,y std $01,y rts MODrl L1B7D leau -$0C,y pshs y L1B81 ldd ,y++ std ,u++ cmpu ,s bne L1B81 leas $02,s leay -u000C,u lbsr RLDIV bsr L1B99 lbsr RLMUL lbra L147E INTrl L1B99 lda $01,y bgt L1BA6 clra clrb std $01,y std $03,y stb $05,y L1BA5 rts L1BA6 cmpa #$1F bcc L1BA5 leau $06,y ldb -u0001,u andb #$01 pshs u,b leau $01,y L1BB4 leau u0001,u suba #$08 bcc L1BB4 beq L1BC8 ldb #$FF L1BBE lslb inca bne L1BBE andb ,u stb ,u+ bra L1BCC L1BC8 leau u0001,u L1BCA sta ,u+ L1BCC cmpu $01,s bne L1BCA puls u,b orb $05,y stb $05,y rts SQint leay -$06,y ldd $07,y std $01,y lbra INTMUL SQrl leay -$06,y ldd $0A,y std $04,y ldd $08,y std $02,y ldd $06,y std ,y lbra RLMUL VAL ldd <u0080 ldu <u0082 pshs u,b,a ldd $01,y std <u0080 std <u0082 std <u0048 leay $06,y ldb #$09 lbsr L1105 puls u,b,a std <u0080 stu <u0082 lbcs err67 rts ADDR lbsr L1224 leay -$06,y stu $01,y L1C19 lda #$01 sta ,y leax $01,x rts * Table of var type sizes L1C20 fcb 1,2,5,1 SIZE lbsr L1224 leay -$06,y cmpa #$04 bcc L1C36 leau >L1C20,pcr ldb a,u clra bra L1C38 L1C36 ldd <u003E L1C38 std $01,y bra L1C19 equTRUE ldd #$00FF bra L1C44 equFALSE ldd #$0000 L1C44 leay -$06,y std $01,y lda #$03 sta ,y rts LNOTI com $01,y com $02,y rts LANDI ldd $01,y anda $07,y andb $08,y bra L1C68 LXORI ldd $01,y eora $07,y eorb $08,y bra L1C68 LORI ldd $01,y ora $07,y orb $08,y L1C68 std $07,y leay $06,y rts L1C6D fcb 255,222,91,216,170 LOG10 bsr LOG leau >L1C6D,pcr lbsr RCPVAR lbra RLMUL LOG pshs x ldb $05,y asrb lbcs err67 ldd $01,y lbeq err67 pshs a ldb #$01 stb $01,y leay <-$1A,y leax <$1B,y leau ,y lbsr L209F lbsr L219A clra clrb std <$14,y std <$16,y sta <$18,y leax >L2152,pcr stx <$19,y lbsr L1DDC leax <$14,y leau <$1B,y lbsr L209F lbsr L21B4 leay <$1A,y ldb #$02 stb ,y ldb $05,y orb #$01 stb $05,y puls b bsr L1CDD puls x lbra RLADD L1CD8 fcb $00,$b1,$72,$17,$f8 L1CDD sex bpl L1CE1 negb L1CE1 anda #$01 pshs b,a leau >L1CD8,pcr lbsr RCPVAR ldb $05,y lda $01,s cmpa #$01 beq L1D2F mul stb $05,y ldb $04,y sta $04,y lda $01,s mul addb $04,y adca #$00 stb $04,y ldb $03,y sta $03,y lda $01,s mul addb $03,y adca #$00 stb $03,y ldb $02,y sta $02,y lda $01,s mul addb $02,y adca #$00 beq L1D2B L1D1E inc $01,y lsra rorb ror $03,y ror $04,y ror $05,y tsta bne L1D1E L1D2B stb $02,y ldb $05,y L1D2F andb #$FE orb ,s stb $05,y puls pc,b,a EXP L1D37 pshs x ldb $01,y beq L1D53 cmpb #$07 ble L1D4A ldb $05,y rorb rorb eorb #$80 lbra L1DEF L1D4A cmpb #$E4 lble L1815 tstb bpl L1D5D L1D53 clr ,-s ldb $05,y andb #$01 beq L1DA0 bra L1D8E L1D5D lda #$71 mul adda $01,y ldb $05,y andb #$01 pshs b,a eorb $05,y stb $05,y ldb ,s L1D6E lbsr L1CDD lbsr L147E ldb $01,y ble L1D80 addb ,s stb ,s ldb $01,y bra L1D6E L1D80 puls b,a pshs a tstb beq L1DA0 nega sta ,s orb $05,y stb $05,y L1D8E leau >L1CD8,pcr lbsr RCPVAR lbsr RLADD dec ,s ldb $05,y andb #$01 bne L1D8E L1DA0 leay <-$1A,y leax <$1B,y leau <$14,y lbsr L209F lbsr L219A ldd #$1000 std ,y clra std $02,y sta $04,y leax >L2134,pcr stx <$19,y bsr L1DDC leax ,y leau <$1B,y lbsr L209F lbsr L21B4 leay <$1A,y puls b addb $01,y bvs L1DEF lda #$02 std ,y puls pc,x L1DDC lda #$01 sta <u009A leax >L2242,pcr stx <u0095 leax >$005F,x stx <u0097 lbra L206A L1DEF leay -$06,y lbpl L15B0 ldb #E$FltOvf lbra L1102 L2125 pshs x bsr L1E30 ldd $01,y lbeq L1F64 cmpd #$0180 bgt L1E16 bne L1E19 ldd $03,y bne L1E16 lda $05,y lbeq L1EE1 L1E16 lbra err67 L1E19 lbsr L1E9E leay <-$14,y leax <$15,y leau ,y lbsr L209F lbsr L219A leax <$1B,y lbra L1F11 L1E30 ldb $05,y andb #$01 stb <u006D eorb $05,y stb $05,y rts L2126 leau <L1E7E,pcr pshs u,x bsr L1E30 ldd $01,y lbeq L1EE1 cmpd #$0180 bgt L1E16 bne L1E68 ldd $03,y bne L1E16 lda $05,y bne L1E16 lda <u006D bne L1E61 clrb std $01,y puls pc,u,x L1E61 leay $06,y puls u,x lbra PI L1E68 bsr L1E9E leay <-$14,y leax <$1B,y leau ,y lbsr L209F lbsr L219A leax <$15,y lbra L1F11 L1E7E lda $05,y bita #$01 beq L1E98 ldu <u0031 tst u0001,u beq L1E92 leau <L1E99,pcr lbsr RCPVAR bra L1E95 L1E92 lbsr PI L1E95 lbra RLADD L1E98 rts L1E99 fcb $08,$b4,$00,$00,$00 L1E9E fcb $96,$6d,$34,$02 leay <-$12,y ldd #$0201 std $0C,y lda #$80 clrb std $0E,y clra std <$10,y ldd <$12,y std ,y std $06,y ldd <$14,y std $02,y std $08,y ldd <$16,y std $04,y std $0A,y lbsr RLMUL lbsr L147E lbsr L1AC8 puls a sta <u006D rts L2127 pshs x lbsr L1E30 ldb $01,y cmpb #$18 blt L1EEA L1EE1 leay $06,y lbsr PI dec $01,y bra L1F3D L1EEA leay <-$1A,y ldd #$1000 std ,y clra std $02,y sta $04,y ldb <$1B,y bra L1F07 L1EFC asr ,y ror $01,y ror $02,y ror $03,y ror $04,y decb L1F07 cmpb #$02 bgt L1EFC stb <$1B,y leax <$1B,y L1F11 leau $0A,y lbsr L209F lbsr L219A clra clrb std <$14,y std <$16,y sta <$18,y leax >L20FF,pcr stx <$19,y lbsr L205C leax <$14,y leau <$1B,y lbsr L209F lbsr L21B4 leay <$1A,y L1F3D lda $05,y ora <u006D sta $05,y ldu <u0031 tst u0001,u beq L1F64 leau >L1FD1,pcr lbsr RCPVAR lbsr RLMUL bra L1F64 L2122 pshs x lbsr PIX leax $0A,y bsr L1F6A lda $05,y L1F60 eora <u009C L1F62 sta $05,y L1F64 lda #$02 sta ,y puls pc,x L1F6A leau <$1B,y lbsr L209F lbsr L21B4 leay <$14,y leax >L223D,pcr leau $01,y lbsr L209F lbra RLMUL L2123 pshs x bsr PIX leax ,y bsr L1F6A lda $05,y eora <u009B bra L1F62 L2124 pshs x bsr PIX leax $0A,y leau <$1B,y lbsr L209F lbsr L21B4 leax ,y leay <$14,y leau $01,y lbsr L209F lbsr L21B4 ldd $01,y bne L1FBE leay $06,y ldd #$7FFF L1FB5 std $01,y lda #$FF std $03,y deca bra L1FC3 L1FBE lbsr RLDIV lda $05,y L1FC3 eora <u009B bra L1F60 L1FC7 fcb $02 fdb $c90f,$daa2 L1FCC fdb $fb8e,$fa35 fcb $12 L1FD1 fcb $06,$e5,$2e,$e0,$d4 PI leau >L1FC7,pcr lbra RCPVAR PIX ldu <u0031 tst u0001,u beq L1FED leau >L1FCC,pcr lbsr RCPVAR lbsr RLMUL L1FED clr <u009B ldb $05,y andb #$01 stb <u009C eorb $05,y stb $05,y bsr PI inc $01,y lbsr RLCMP blt L2009 lbsr L1B7D bsr PI bra L200B L2009 dec $01,y L200B lbsr RLCMP blt L201D inc <u009B lda <u009C eora #$01 sta <u009C lbsr L147E bsr PI L201D dec $01,y lbsr RLCMP ble L2037 lda <u009B eora #$01 sta <u009B inc $01,y lda $0B,y ora #$01 sta $0B,y lbsr RLADD leay -$06,y L2037 leay <-$14,y leax >L21O6,pcr stx <$19,y leax <$1B,y leau <$14,y bsr L209F lbsr L219A ldd #$1000 std ,y clra std $02,y sta $04,y std $0A,y std $0C,y sta $0E,y L205C leax >L21FC,pcr stx <u0095 leax >$0041,x stx <u0097 clr <u009A L206A ldb #$25 stb <u0099 clr <u009D L2070 leau <$1B,y ldx <u0095 cmpx <u0097 bcc L2081 bsr L209F leax $05,x stx <u0095 bra L2085 L2081 ldb #$01 bsr L20F1 L2085 leax ,y leau $05,y bsr L20B1 tst <u009A bne L2095 leax $0A,y leau $0F,y bsr L20B1 L2095 jsr [<$19,y] inc <u009D dec <u0099 bne L2070 rts L209F pshs y,x lda ,x ldy $01,x ldx $03,x sta ,u sty u0001,u stx u0003,u puls pc,y,x L20B1 ldb ,x sex ldb <u009D lsrb lsrb lsrb bcc L20BC incb L20BC pshs b beq L20C5 L20C0 sta ,u+ decb bne L20C0 L20C5 ldb #$05 subb ,s+ beq L20D2 L20CB lda ,x+ sta ,u+ decb bne L20CB L20D2 leau -u0005,u ldb <u009D andb #$07 beq L20FE cmpb #$04 bcs L20F1 subb #$08 lda ,x L20E2 lsla rol u0004,u rol u0003,u rol u0002,u rol u0001,u rol ,u incb bne L20E2 rts L20F1 asr ,u ror u0001,u ror u0002,u ror u0003,u ror u0004,u decb bne L20F1 L20FE rts L20FF lda $0A,y eora ,y coma bra L2109 L21O6 lda <$14,y L2109 tsta bpl L2120 leax ,y leau $0F,y bsr L2162 leax $0A,y leau $05,y bsr L217E leax <$14,y leau <$1B,y bra L2162 L2120 leax ,y leau $0F,y bsr L217E leax $0A,y leau $05,y bsr L2162 leax <$14,y leau <$1B,y bra L217E L2134 leax <$14,y leau <$1B,y bsr L217E bmi L2162 bne L214C ldd $01,x bne L214C ldd $03,x bne L214C ldb #$01 stb <u0099 L214C leax ,y leau $05,y bra L2162 L2152 leax ,y leau $05,y bsr L2162 cmpa #$20 bcc L217E leax <$14,y leau <$1B,y L2162 ldd $03,x addd u0003,u std $03,x ldd $01,x bcc L2173 addd #$0001 bcc L2173 inc ,x L2173 addd u0001,u std $01,x lda ,x adca ,u sta ,x rts L217E ldd $03,x subd u0003,u std $03,x ldd $01,x bcc L218F subd #$0001 bcc L218F dec ,x L218F subd u0001,u std $01,x lda ,x sbca ,u sta ,x rts L219A ldb ,u clr ,u addb #$04 bge L21B1 negb lbra L20F1 L21A6 lsl u0004,u rol u0003,u rol u0002,u rol u0001,u rol ,u decb L21B1 bne L21A6 rts L21B4 lda ,u bpl L21C1 clra clrb std ,u std u0002,u sta u0004,u rts L21C1 ldd #$2004 L21C4 decb lsl u0004,u rol u0003,u rol u0002,u rol u0001,u rol ,u bmi L21D8 deca bne L21C4 clrb std ,u rts L21D8 lda ,u stb ,u ldb u0001,u sta u0001,u lda u0002,u stb u0002,u ldb u0003,u addd #$0001 andb #$FE std u0003,u bcc L21FB inc u0002,u bne L21FB inc u0001,u bne L21FB ror u0001,u inc ,u L21FB rts L21FC fdb $0c90,$fdaa fdb $2207,$6b19,$c158,$03eb,$6ebf,$2601,$fd5b,$a9ab fdb $00ff,$aadd,$b900,$7ff5,$56ef,$003f,$feaa,$b700 fdb $1fff,$d556,$000f,$fffa,$ab00,$07ff,$ff55,$0003 fdb $ffff,$eb00,$01ff,$fffd,$0001,$0000 fcb $00 L223D fcb $00 fdb $9b74 fdb $eda8 L2242 fdb $0b17,$217f,$7e06,$7cc8,$fb30,$0391,$fef8 fdb $f301,$e270,$76e3,$00f8,$5186,$0100,$7e0a,$6c3a fdb $003f,$8151,$6200,$1fe0,$2a6b,$000f,$f805,$5100 fdb $07fe,$00aa,$0003,$ff80,$1500,$01ff,$e003,$0000 fdb $fff8,$0000,$007f,$fe00,$0000,$3fff,$8000,$001f fdb $ffe0,$0000,$0fff,$f800,$0007,$fffe,$0000,$0400 fcb $00 L22A1 fcb $0e fdb $1214,$a2bb,$40e6,$2d36,$1962 fcb $e9 RND clra clrb std <u004C std <u004E pshs a lda $02,y beq L22CF ldb $05,y bitb #$01 bne L22C3 com ,s bra L22CF L22C3 addb #$FE addb $01,y lda $04,y std <u0052 ldd $02,y std <u0050 L22CF lda <u0053 ldb <u0057 mul std <u004E lda <u0052 ldb <u0057 mul addd <u004D bcc L22E1 inc <u004C L22E1 std <u004D lda <u0053 ldb <u0056 mul addd <u004D bcc L22EE inc <u004C L22EE std <u004D lda <u0051 ldb <u0057 mul addd <u004C std <u004C lda <u0052 ldb <u0056 mul addd <u004C std <u004C lda <u0053 ldb <u0055 mul addd <u004C std <u004C lda <u0050 ldb <u0057 mul addb <u004C stb <u004C lda <u0051 ldb <u0056 mul addb <u004C stb <u004C lda <u0052 ldb <u0055 mul addb <u004C stb <u004C lda <u0053 ldb <u0054 mul addb <u004C stb <u004C ldd <u004E addd <u005A std <u0052 ldd <u004C adcb <u0059 adca <u0058 std <u0050 tst ,s+ bne L236B ldd <u0050 std $02,y ldd <u0052 std $04,y clr $01,y L234B lda #$1F pshs a ldd $02,y bmi L2361 L2353 dec ,s beq L2361 dec $01,y lsl $05,y rol $04,y rolb rola bpl L2353 L2361 std $02,y ldb $05,y andb #$FE stb $05,y puls pc,b L236B ldd <u0052 andb #$FE std ,--y ldd <u0050 std ,--y clra clrb std ,--y bsr L234B lbra RLMUL LEN ldd <u0048 ldu $01,y subd $01,y subd #$0001 stu <u0048 L2389 std $01,y lda #$01 sta ,y rts ASC ldd $01,y std <u0048 ldb [<$01,y] clra bra L2389 CHR$ ldd $01,y tsta lbne err67 ldu <u0048 stu $01,y stb ,u+ lbsr L24BD sty <u0044 cmpu <u0044 lbcc L1995 rts LEFT$ ldd $01,y ble IsNull addd $07,y tfr d,u cmpd <u0048 bcc L23C4 bsr L2443 L23C4 leay $06,y rts IsNull leay $06,y ldu $01,y bra L2443 RIGHT$ ldd $01,y ble IsNull pshs x ldd <u0048 subd $01,y subd #$0001 cmpd $07,y bls L23ED tfr d,x ldu $07,y L23E3 lda ,x+ sta ,u+ cmpa #$FF bne L23E3 stu <u0048 L23ED leay $06,y puls pc,x MID$ ldd $01,y size of piece ble L23F9 ldd $07,y starting offset bgt L2401 L23F9 ldd $01,y = LEFT$ leay $06,y std $01,y bra LEFT$ L2401 subd #$0001 beq L23F9 addd $0D,y start address piece cmpd <u0048 bcs L2411 piece exists leay $06,y bra IsNull L2411 pshs x tfr d,x ldb $02,y ldu $0D,y L2419 lda ,x+ sta ,u+ cmpa #$FF beq L242C decb bne L2419 dec $01,y bpl L2419 lda #$FF sta ,u+ L242C stu <u0048 leay $0C,y puls pc,x TRIM$ ldu <u0048 leau -u0001,u L2436 cmpu $01,y beq L2443 lda ,-u cmpa #$20 beq L2436 leau u0001,u L2443 lda #$FF sta ,u+ stu <u0048 rts SUBSTR pshs y,x ldd <u0048 subd $01,y addd $07,y addd #$0001 ldx $07,y ldy $01,y lbsr L10FF bcc L2463 clra clrb bra L246C L2463 tfr y,d ldx $02,s subd $01,x addd #$0001 L246C puls y,x std $07,y lda #$01 sta $06,y leay $06,y rts STR$int ldb #$02 bra L247D STR$rl ldb #$03 L247D lda <u007D ldu <u0082 pshs u,x,a lbsr L1105 bcs err67 ldx <u0082 lda #$FF sta ,x ldx $03,s lbsr SCPCNST puls u,x,a sta <u007D stu <u0082 rts err67 ldb #$43 lbra L1102 TAB pshs x ldd $01,y blt err67 sty <u0044 ldu <u0048 stu $01,y lda #$20 L24AE cmpb <u007D bls L24BF sta ,u+ decb cmpu <u0044 bcs L24AE lbra L1995 L24BD pshs x L24BF lda #$FF sta ,u+ stu <u0048 lda #$04 sta ,y puls pc,x DATE$ pshs x leay -$06,y leax -$06,y ldu <u0048 stu $01,y os9 F$Time bcs L24BF bsr L24F4 lda #$2F bsr L24F2 lda #$2F bsr L24F2 lda #$20 bsr L24F2 lda #$3A bsr L24F2 lda #$3A bsr L24F2 bra L24BF L24F2 sta ,u+ * byte to ASCII L24F4 lda ,x+ ldb #$2F L24F8 incb suba #$0A bcc L24F8 stb ,u+ ldb #$3A L2501 decb inca bne L2501 stb ,u+ rts EOF lda $02,y ldb #$06 os9 I$GetStt bcc L2519 cmpb #$D3 bne L2519 ldb #$FF bra L251B L2519 ldb #$00 L251B clra std $01,y lda #$03 sta ,y rts UNK12 ldb #$06 pshs y,x,b tfr dp,a ldb #$50 tfr d,y leax >L22A1,pcr L2531 ldd ,x++ std ,y++ dec ,s bne L2531 leax >L1188,pcr stx <table2 leax >L1208,pcr stx <table3 lda #$7E sta <u0016 leax >L1214,pcr stx <u0017 puls pc,y,x,b pshs x,b,a ldb [<$04,s] leax <L2561,pcr ldd b,x leax d,x stx $04,s puls pc,x,b,a L2561 fcb $00 fdb $ba00 fcb $10 L2565 jsr <u0027 fcb $0C Flote jsr <u0027 fcb $0E L256B jsr <u0027 fcb $08 L256E jsr <u0027 fcb $06 pshs pc,x,b,a lslb leax <L257F,pcr L2577 ldd b,x L2579 leax d,x stx $04,s puls pc,x,b,a L257F fdb WRITLN-L257F fdb PRintg-L257F fdb PRintg-L257F fdb PRreal-L257F fdb PRbool-L257F fdb PRstring-L257F fdb READLN-L257F fdb L2006-L257F fdb L2007-L257F fdb L2008-L257F fdb L20X9-L257F fdb L2010-L257F fdb Strterm-L257F fdb L2B66-L257F fdb setFP-L257F fdb err48-L257F fdb L2015-L257F fdb PRNTUSIN-L257F fdb L2AE1-L257F fdb L2018-L257F L25A7 fcb 6,2,39,16,3,232,0,100,0,10 L25B1 fcb $04 fdb $a000,$0000,$07c8,$0000,$000a,$fa00,$0000 fdb $0e9c,$4000,$0011,$c350,$0000,$14f4,$2400,$0018 fdb $9896,$8000,$1bbe,$bc20,$001e,$ee6b,$2800,$2295 fdb $02f9,$0025,$ba43,$b740,$28e8,$d4a5,$102c,$9184 fdb $e72a,$2fb5,$e620,$f432,$e35f,$a932,$368e,$1bc9 fdb $c039,$b1a2,$bc2e,$3cde,$0b6b fcb $3a L260B fcb $40 fdb $8ac7,$2304 TRUESTR fcc "True" fcb $ff FALSESTR fcc "False" fcb $ff AtoITR pshs u leay -6,y clra clrb sta <u0075 sta <u0076 sta <u0077 sta <u0078 sta <u0079 std $04,y std $02,y sta $01,y lbsr L285D bcc L263F leax -$01,x cmpa #$2C bne err59 lbra L26C8 L263F cmpa #$24 lbeq L277F cmpa #$2B beq L264F cmpa #$2D bne L2651 inc <u0078 L264F lda ,x+ L2651 cmpa #$2E bne L265D tst <u0077 bne err59 inc <u0077 bra L264F L265D lbsr L2CAB bcs L26B2 pshs a inc <u0076 ldd $04,y ldu $02,y bsr L2698 std $04,y stu $02,y bsr L2698 bsr L2698 addd $04,y exg d,u adcb $03,y adca $02,y bcs L26A5 exg d,u addb ,s+ adca #$00 bcc L268C leau u0001,u stu $02,y beq L26A7 L268C std $04,y stu $02,y tst <u0077 beq L264F inc <u0079 bra L264F L2698 lslb rola exg d,u rolb rola exg d,u bcs L26A3 rts L26A3 leas $02,s L26A5 leas $01,s L26A7 ldb #$3C bra L26AD err59 ldb #E$IONum L26AD stb <u0036 coma puls pc,u L26B2 eora #$45 anda #$DF beq L26DB leax -$01,x tst <u0076 bne L26C0 bra err59 L26C0 tst <u0077 bne L2709 ldd $02,y bne L2709 L26C8 ldd $04,y bmi L2709 tst <u0078 beq L26D4 nega negb sbca #$00 L26D4 std $01,y L26D6 lda #$01 lbra L2762 L26DB lda ,x cmpa #$2B beq L26E7 cmpa #$2D bne L26E9 inc <u0075 L26E7 leax $01,x L26E9 lbsr L2CA9 bcs err59 tfr a,b lbsr L2CA9 bcc L26F9 leax -$01,x bra L2700 L26F9 pshs a lda #$0A mul addb ,s+ L2700 tst <u0075 bne L2705 negb L2705 addb <u0079 stb <u0079 L2709 ldb #$20 stb $01,y ldd $02,y bne L271A cmpd $04,y bne L271A clr $01,y bra L2760 L271A tsta bmi L2727 L271D dec $01,y lsl $05,y rol $04,y rolb rola bpl L271D L2727 std $02,y clr <u0075 ldb <u0079 beq L2758 bpl L2734 negb inc <u0075 L2734 cmpb #$13 bls L2748 subb #$13 pshs b leau >L260B,pcr bsr L2768 puls b lbcs L26A7 L2748 decb lda #$05 mul leau >L25B1,pcr leau b,u bsr L2768 lbcs L26A7 L2758 lda $05,y anda #$FE ora <u0078 sta $05,y L2760 lda #$02 L2762 sta ,y andcc #^Carry puls pc,u L2768 leay -$06,y ldd ,u std $01,y ldd u0002,u std $03,y ldb u0004,u stb $05,y lda <u0075 lbeq L256B lbra L256E L277F lbsr L2CA9 bcc L2794 cmpa #$61 bcs L278A suba #$20 L278A cmpa #$41 bcs L27A9 cmpa #$46 bhi L27A9 suba #$37 L2794 inc <u0076 ldb #$04 L2798 lsl $02,y rol $01,y lbcs L26A7 decb bne L2798 adda $02,y sta $02,y bra L277F L27A9 leax -$01,x tst <u0076 lbeq err59 lbra L26D6 L2008 pshs x ldx <u0082 lbsr AtoITR bcc L27BF L27BD puls pc,x L27BF cmpa #$02 beq L27C6 lbsr Flote L27C6 lbsr L2851 bcs L27D2 ldb #E$Illinp stb <u0036 coma puls pc,x L27D2 stx <u0082 clra puls pc,x L2006 pshs x ldx <u0082 lbsr AtoITR bcs L27BD cmpa #$01 bne err58 tst $01,y beq L27C6 bra err58 L2007 pshs x ldx <u0082 lbsr AtoITR bcs L27BD cmpa #$01 beq L27C6 err58 ldb #E$IOMism stb <u0036 coma puls pc,x * verify string L2010 pshs u,x leay -$06,y ldu <u004A stu $01,y lda #$04 sta ,y ldx <u0082 L280C lda ,x+ bsr L2863 bcs L2816 sta ,u+ bra L280C L2816 stx <u0082 lda #$FF sta ,u+ stu <u0048 clra puls pc,u,x * Boolean -> internal repr. L20X9 pshs x leay -$06,y lda #$03 sta ,y clr $02,y ldx <u0082 bsr L285D bcs L284C cmpa #$54 beq L2846 cmpa #$74 beq L2846 eora #$46 anda #$DF beq L2848 ldb #E$IOMism stb <u0036 coma puls pc,x L2846 com $02,y L2848 bsr L2851 bcc L2848 L284C stx <u0082 clra puls pc,x * validate characters L2851 lda ,x+ cmpa #C$SPAC space? bne L2863 bsr L285D bcc L2872 bra L2874 L285D lda ,x+ cmpa #C$SPAC space? beq L285D skip them L2863 cmpa <u00DD beq L2874 cmpa #C$CR CR? beq L2872 cmpa #$FF end of string? beq L2872 andcc #^Carry rts L2872 leax -$01,x L2874 orcc #Carry rts * integer to ASCII L2877 pshs u,x clra sta $03,y sta <u0076 sta <u0078 lda #$04 sta <u007E ldd $01,y bpl L288E nega negb sbca #$00 inc <u0078 L288E leau >L25A7,pcr L2892 clr <u007A leau u0002,u L2896 subd ,u bcs L289E inc <u007A bra L2896 L289E addd ,u tst <u007A bne L28A8 tst $03,y beq L28B3 L28A8 inc $03,y pshs a lda <u007A lbsr L29B7 puls a L28B3 dec <u007E bne L2892 tfr b,a lbsr L29B7 leay $06,y puls pc,u,x RtoA pshs u,x clr <u0075 clr <u0078 clr <u007C clr <u007B clr <u0079 clr <u0076 leau ,x ldd #$0A30 L28D3 stb ,u+ deca bne L28D3 ldd $01,y bne L28E0 inca lbra L29B1 L28E0 ldb $05,y bitb #$01 beq L28EC stb <u0078 andb #$FE stb $05,y L28EC ldd $01,y bpl L28F3 inc <u0075 nega L28F3 cmpa #$03 bls L2924 ldb #$9A mul lsra nop nop tfr a,b tst <u0075 beq L2904 negb L2904 stb <u0079 cmpa #$13 bls L2917 pshs a leau >L260B,pcr lbsr L2768 puls a suba #$13 L2917 leau >L25B1,pcr deca ldb #$05 mul leau d,u lbsr L2768 L2924 ldd $02,y tst $01,y beq L2950 bpl L293C L292C lsra rorb ror $04,y ror $05,y ror <u007C inc $01,y bne L292C std $02,y bra L2950 L293C lsl $05,y rol $04,y rolb rola rol <u007B dec $01,y bne L293C std $02,y inc <u0079 lda <u007B bsr L29B7 L2950 ldd $02,y ldu $04,y L2954 clr <u007B bsr L29BE std $02,y stu $04,y pshs a lda <u007B sta <u007C puls a bsr L29BE bsr L29BE exg d,u addd $04,y exg d,u adcb $03,y adca $02,y pshs a lda <u007B adca <u007C bsr L29B7 lda <u0076 cmpa #$09 puls a beq L298E cmpd #$0000 bne L2954 cmpu #$0000 bne L2954 L298E sta ,y lda <u0076 cmpa #$09 bcs L29AF ldb ,y bpl L29AF L299A lda ,-x inca sta ,x cmpa #$39 bls L29AF lda #$30 sta ,x cmpx ,s bne L299A inc ,x inc <u0079 L29AF lda #$09 L29B1 sta <u0076 leay $06,y puls pc,u,x L29B7 ora #$30 sta ,x+ inc <u0076 rts L29BE exg d,u lslb rola exg d,u rolb rola rol <u007B rts READLN pshs y,x ldx <u0080 stx <u0082 lda #$01 sta <u007D ldy #$0100 lda <u007F os9 I$ReadLn bra L29F1 WRITLN pshs y,x ldd <u0082 subd <u0080 beq L29F5 tfr d,y ldx <u0080 stx <u0082 lda <u007F os9 I$WritLn L29F1 bcc L29F5 stb <u0036 L29F5 puls pc,y,x setFP pshs u,x lda ,y type of file pointer cmpa #$02 beq L2A03 real ldu $01,y else integer bra L2A0A L2A03 lda $01,y if exponent is <=0, Seek to 0 bgt L2A0F positive value, go calculate logint for SEEK ldu #$0000 L2A0A ldx #$0000 bra L2A2B L2A0F ldx $02,y ldu $04,y suba #$20 bcs L2A1C ldb #$4E coma bra L2A32 L2A1C exg x,d lsra rorb exg d,u rora rorb exg d,x exg x,u inca bne L2A1C L2A2B lda <u007F os9 I$Seek bcc L2A34 L2A32 stb <u0036 L2A34 puls pc,u,x * print real numbers PRreal pshs u,x leas -$0A,s leax ,s lbsr RtoA pshs x lda #$09 leax $09,x L2A45 ldb ,-x cmpb #$30 bne L2A50 deca cmpa #$01 bne L2A45 L2A50 sta <u0076 puls x ldb <u0079 bgt L2A79 negb tfr b,a cmpb #$09 bhi L2A93 addb <u0076 cmpb #$09 bhi L2A93 pshs a lbsr L2B10 clra bsr L2ADF puls b tstb beq L2A75 lbsr L2B01 L2A75 lda <u0076 bra L2A8C L2A79 cmpb #$09 bhi L2A93 lbsr L2B10 tfr b,a bsr L2ACE bsr L2ADF lda <u0076 suba <u0079 bls L2A8E L2A8C bsr L2ACE L2A8E leas $0A,s clra puls pc,u,x L2A93 bsr L2B10 lda #$01 bsr L2ACE bsr L2ADF lda <u0076 deca bne L2AA1 inca L2AA1 bsr L2ACE bsr L2AA7 bra L2A8E L2AA7 lda #$45 bsr L2AE1 lda <u0079 deca pshs a bpl L2AB8 neg ,s bsr L2B14 bra L2ABA L2AB8 bsr L2B18 L2ABA puls b clra L2ABD subb #$0A bcs L2AC4 inca bra L2ABD L2AC4 addb #$0A bsr L2ACA tfr b,a L2ACA adda #$30 bra L2AE1 L2ACE tfr a,b tstb beq L2ADA L2AD3 lda ,x+ bsr L2AE1 decb bne L2AD3 L2ADA rts L2ADB lda #$20 bra L2AE1 L2ADF lda #$2E L2AE1 pshs u,a leau <-$40,s cmpu <u0082 bhi L2AF7 cmpa #$0D beq L2AF7 lda #$50 sta <u0036 sta <u00DE bra L2AFF L2AF7 ldu <u0082 sta ,u+ stu <u0082 inc <u007D L2AFF puls pc,u,a L2B01 lda #$30 L2B03 tstb 0 chars? beq L2B0B yes, return L2B06 bsr L2AE1 decb bne L2B06 L2B0B rts L2B0C tst <u0078 beq L2ADB L2B10 tst <u0078 beq L2B0B L2B14 lda #$2D bra L2AE1 L2B18 lda #$2B bra L2AE1 Spacing lda #C$SPAC bra L2B03 L2B20 bsr L2AE1 L2B22 lda ,x+ cmpa #$FF bne L2B20 rts * print string PRstring pshs x ldx $01,y L2B2D bsr L2B22 clra puls pc,x * print boolean PRbool pshs x leax >TRUESTR,pcr lda $02,y bne L2B2D leax >FALSESTR,pcr bra L2B2D * print integers PRintg pshs u,x leas -$05,s leax ,s lbsr L2877 bsr L2B10 lda <u0076 leax ,s lbsr L2ACE leas $05,s clra puls pc,u,x L2015 tfr a,b L2B5B pshs u ldu <u0082 subb <u007D bls L2B65 bsr Spacing L2B65 clra puls pc,u L2B66 lbsr L2ADB L2B6B lda <u007D anda #$0F cmpa #$01 beq L2B7F lbsr L2ADB bra L2B6B * terminate string Strterm lda #C$CR clr <u007D lbsr L2AE1 L2B7F clra rts pshs u lda #$04 leau ,y tst ,u bne L2B8E asra leau u0001,u L2B8E sta <u0086 tfr a,b asrb lbsr L2D2A puls pc,u L2B98 clrb stb <u0087 cmpa #$3C beq L2BAB cmpa #$3E bne L2BA6 incb bra L2BAB L2BA6 cmpa #$5E bne L2BAF decb L2BAB stb <u0087 lda ,x+ L2BAF cmpa #$2C beq L2BEB cmpa #$FF bne L2BC9 lda <u0094 beq L2BBF leax -$01,x bra L2BD4 L2BBF ldx <u008E tst <u00DC beq L2BCD clr <u00DC bra L2BEB L2BC9 cmpa #$29 beq L2BD0 L2BCD orcc #Carry rts L2BD0 lda <u0094 beq L2BCD L2BD4 dec <u0092 bne L2BE9 ldu <u0046 pulu y,a sta <u0092 sty <u0090 stu <u0046 lda ,x+ dec <u0094 bra L2BAF L2BE9 ldx <u0090 L2BEB stx <u008C andcc #^Carry rts * chars recognized by print using L2BF0 fcb 'I Integer fdb ARGUS1-L2BF0 L2BF3 fcb 'H Hexadecimal fdb ARGUS1-L2BF3 L2BF6 fcb 'R Real fdb ARGUS2-L2BF6 L2BF9 fcb 'E Exponential fdb ARGUS2-L2BF9 L2BFD fcb 'S String fdb ARGUS1-L2BFD L2C00 fcb 'B Boolean fdb ARGUS1-L2C00 L2C03 fcb 'T Tab fdb ARGUS3-L2C03 L2C06 fcb 'X Space fdb ARGUS4-L2C06 L2C09 fcb '' Literal string fdb ARGUS5-L2C09 fcb $00 * Tab function ARGUS3 bsr L2BAF bcs L2C74 ldb <u0086 lbsr L2B5B bra L2C3F * print spaces (X) ARGUS4 bsr L2BAF bcs L2C74 ldb <u0086 lbsr Spacing bra L2C3F * print literal string ARGUS5 L2C22 cmpa #$FF end of string? beq L2C74 cmpa #$27 bne L2C32 lda ,x+ bsr L2BAF bcs L2C74 bra L2C3F L2C32 lbsr L2AE1 lda ,x+ bra L2C22 PRNTUSIN pshs y,x clr <u00DC inc <u00DC L2C3F ldx <u008C bsr L2C8F bcs L2C5E cmpa #$28 bne L2C78 lda <u0092 stb <u0092 beq L2C78 inc <u0094 ldu <u0046 ldy <u0090 pshu y,a stu <u0046 stx <u0090 lda ,x+ L2C5E leay >L2BF0,pcr clrb L2C63 pshs a eora ,y anda #$DF puls a beq L2C7F leay $03,y incb tst ,y bne L2C63 L2C74 ldb #$3F bra L2C7A L2C78 ldb #E$IOFRpt L2C7A stb <u0036 coma puls pc,y,x L2C7F stb <u0085 ldd $01,y leay d,y bsr L2C8F bcc L2C8B ldb #$01 L2C8B stb <u0086 jmp ,y L2C8F bsr L2CA9 bcs L2CB8 tfr a,b bsr L2CA9 bcs L2CB5 bsr L2CBB bsr L2CA9 bcs L2CB5 bsr L2CBB tsta beq L2CA5 clrb L2CA5 lda ,x+ bra L2CB5 L2CA9 lda ,x+ L2CAB cmpa #'0 bcs L2CB8 cmpa #'9 bhi L2CB8 suba #'0 L2CB5 andcc #^Carry rts L2CB8 orcc #Carry rts L2CBB pshs a lda #10 mul addb ,s+ adca #$00 rts ARGUS2 cmpa #$2E bne L2C74 bsr L2C8F bcs L2C74 stb <u0089 ARGUS1 lbsr L2B98 Int, Hex, String, Boolean bcs L2C74 puls y,x inc <u00DC L2018 ldb <u0085 lbeq FMTint decb beq L2CF3 decb lbeq L2E36 decb lbeq FMTexp decb lbeq FMTstr lbra FMTbool L2CF3 jsr <u0016 cmpa #$04 bcs L2D09 ldu $01,y clrb L2CFC lda ,u+ cmpa #$FF beq L2D05 incb bne L2CFC L2D05 ldu $01,y bra L2D2A L2D09 leau $01,y lda ,y cmpa #$02 bne L2D15 ldb #$05 bra L2D2A L2D15 cmpa #$01 bne L2D1F ldb #$02 cmpb <u0086 bcs L2D23 L2D1F ldb #$01 leau u0001,u L2D23 tfr b,a lsla cmpa <u0086 bhi L2D60 L2D2A tst <u0087 beq L2D56 bmi L2D3D pshs b lslb pshs b ldb <u0086 subb ,s+ bcs L2D54 bra L2D49 L2D3D pshs b lslb pshs b ldb <u0086 subb ,s+ bcs L2D54 asrb L2D49 pshs b lda <u0086 suba ,s+ sta <u0086 lbsr Spacing L2D54 puls b L2D56 lda ,u lsra lsra lsra lsra bsr L2D70 beq L2D6E L2D60 lda ,u+ bsr L2D70 beq L2D6E decb bne L2D56 ldb <u0086 lbsr Spacing L2D6E clra rts L2D70 anda #$0F cmpa #$09 bls L2D78 adda #$07 L2D78 lbsr L2ACA dec <u0086 rts L2D7E coma rts FMTint jsr <u0016 cmpa #$02 bcs L2D8B bne L2D7E wrong var type lbsr L2565 L2D8B pshs u,x leas -$05,s leax ,s lbsr L2877 ldb <u0086 decb subb <u0076 bpl L2DA2 leas $05,s puls u,x lbra Overflow L2DA2 tst <u0087 beq L2DB0 left justify bmi L2DC1 leading zeros lbsr Spacing right justify lbsr L2B0C bra L2DC7 L2DB0 lbsr L2B0C pshs b lda <u0076 lbsr L2ACE puls b lbsr Spacing bra L2DCC L2DC1 lbsr L2B0C lbsr L2B01 L2DC7 lda <u0076 lbsr L2ACE L2DCC leas $05,s clra puls pc,u,x FMTbool jsr <u0016 cmpa #$03 bne L2D7E wrong type pshs u,x leax >TRUESTR,pcr ldb #$04 lda $02,y bne L2DFF leax >FALSESTR,pcr ldb #$05 bra L2DFF FMTstr jsr <u0016 cmpa #$04 bne L2D7E wrong type pshs u,x ldx $01,y ldd <u0048 subd $01,y subd #$0001 tsta bne L2E03 L2DFF cmpb <u0086 bls L2E05 L2E03 ldb <u0086 L2E05 tfr b,a negb addb <u0086 tst <u0087 beq L2E1C left justify bmi L2E20 center text pshs a right justify lbsr Spacing puls a lbsr L2ACE bra L2E33 L2E1C pshs b bra L2E2B L2E20 lsrb bcc L2E24 incb L2E24 pshs b,a lbsr Spacing puls a L2E2B lbsr L2ACE puls b lbsr Spacing L2E33 clra puls pc,u,x L2E36 jsr <u0016 cmpa #$02 beq L2E43 lbcc L2D7E lbsr Flote L2E43 pshs u,x leas -$0A,s leax ,s lbsr RtoA lda <u0079 cmpa #$09 bgt L2E63 lbsr L2F37 lda <u0086 suba #$02 bmi L2E63 suba <u0089 bmi L2E63 suba <u008A bpl L2E69 L2E63 leas $0A,s puls u,x bra Overflow L2E69 sta <u0088 leax ,s ldb <u0087 beq L2E79 left justify bmi L2E7F fin. format bsr L2EB6 right justify bsr L2E8B bra L2E86 L2E79 bsr L2E8B bsr L2EB6 bra L2E86 L2E7F bsr L2EB6 bsr L2E8E lbsr L2B0C L2E86 leas $0A,s clra puls pc,u,x L2E8B lbsr L2B0C L2E8E lda <u008A lbsr L2ACE lbsr L2ADF ldb <u0079 bpl L2EC6 negb cmpb <u0089 bls L2EA1 ldb <u0089 L2EA1 pshs b lbsr L2B01 ldb <u0089 subb ,s+ stb <u0089 lda <u008B cmpa <u0089 bls L2EB4 lda <u0089 L2EB4 bra L2EC8 L2EB6 ldb <u0088 lbra Spacing L2EBB lbsr L2B0C lda <u008A lbsr L2ACE lbsr L2ADF L2EC6 lda <u008B L2EC8 lbsr L2ACE ldb <u0089 subb <u008B ble L2EDC lbra L2B01 Overflow ldb <u0086 lda #'* lbsr L2B03 clra L2EDC rts FMTexp jsr <u0016 cmpa #$02 beq L2EEA lbcc L2D7E wrong type lbsr Flote L2EEA pshs u,x leas -$0A,s leax ,s lbsr RtoA lda <u0079 pshs a lda #$01 sta <u0079 bsr L2F37 puls a ldb <u0079 cmpb #$01 beq L2F06 inca L2F06 ldb #$01 stb <u008A sta <u0079 lda <u0086 suba #$06 bmi L2F1A suba <u0089 bmi L2F1A suba <u008A bpl L2F20 L2F1A leas $0A,s puls u,x bra Overflow L2F20 sta <u0088 ldb <u0087 beq L2F2F bsr L2EB6 bsr L2EBB lbsr L2AA7 bra L2F34 L2F2F bsr L2EBB lbsr L2AA7 L2F34 lbra L2E86 L2F37 pshs x lda <u0079 adda <u0089 bne L2F45 lda ,x cmpa #$35 bcc L2F5C L2F45 deca bmi L2F78 cmpa #$07 bhi L2F78 leax a,x ldb $01,x cmpb #$35 bcs L2F78 L2F54 inc ,x ldb ,x cmpb #$39 bls L2F78 L2F5C ldb #$30 stb ,x leax -$01,x cmpx ,s bcc L2F54 ldx ,s leax $08,x L2F6A lda ,-x sta $01,x cmpx ,s bhi L2F6A lda #$31 sta ,x inc <u0079 L2F78 puls x lda <u0079 bpl L2F7F clra L2F7F sta <u008A nega adda #$09 bpl L2F87 clra L2F87 cmpa <u0089 bls L2F8D lda <u0089 L2F8D sta <u008B rts err48 ldb #E$NoRout stb <u0036 coma rts emod eom equ * end