 
ô > VList/s 1.11 ô List BASIC's variables Cô v1.00 04-Feb-86 JGH: Initial version, published in Micro User (8ô      - only prints bottom byte of array dimensions 28ô v1.10 24-Sep-02 JGH: prints reals if integer value <%ô      - prints in neater columns FHô v1.11 19-Jul-04 JGH: Two spaces between columns, colwidth variable P ô DIMs not printed correctly Z: d*osasci=&FFE3:oswrch=&FFEE:osnewl=&FFE7 n: x!Þ mcode% &300:load%=&FFFF08C0 ‚4link=&A8:col=&AA:int=&AB:exp=&AF:flg=&AB:txt=&AC Œcolwidth=24 –:  ã pass%=0 ¸ 1 ªP%=load%:O%=mcode% ´[OPT pass%*3+4 ¾.go% ÈLDX #0:STX col Ò.MainLoop Ü$JSR Follow:CPX #116:BCC MainLoop æJMP osnewl ð: ú.z%LDA &4F6:STA &A8LDA &4F7:STA &A9LDA #1:STA &AA:JSR follow"LDA &4F8:STA &A8,LDA &4F9:STA &A9:DEC &AA6JSR follow:JMP osnewl@.follow_exit:RTSJ:T.follow^BIT &FF:BMI follow_exithLDA &A9:BEQ follow_exitrLDY #1:\LDA &AA:\BEQ fn|\CMP #1:BNE follow1†-LDA #—"P":JSR oswrch:LDA #—"R":JSR oswrch-LDA #—"O":JSR oswrch:LDA #—"C":JSR oswrchš\JMP follow_loop¤.fn:LDA #—"F":JSR oswrch®LDA #—"N":JSR oswrch¸\JMP follow_loopÂ.follow1ÌA:]:P%=z%:[OPT pass%*3                 :\ remove ¤/ò followingÖ:à.ChainEndêRTSô:þ.ArrayLoopLDA #—",":JSR oswrch
.Array1JSR PrAmper:LDA (link),Y:SEC:SBC #1:JSR PrHex&AINY:INY:LDA (link),Y:BNE ArrayLoop    :\ NB Only prints 8-bit0STA col:JSR PrClose:JSR osnewl:JMP LinkNextD:N.FollowXINX:INXbLDA &480,X:STA link+0lLDA &481,Xv:€.FollowChainŠSTA link+1”BBEQ ChainEnd                          :\ terminated with &00xxžLDA &FF:BMI ChainEnd¨HLDY #1:LDA col:BEQ PrVarName          :\ first column, jump to print²A.NameLength                           :\ Count varname length¼#INY:LDA (link),Y:BNE NameLengthÆ=TYA:CLC:ADC col:CMP #84-colwidth      :\ Would this wrap?ÐHLDA #32:BCC PrColumn                  :\ Space if not at end of lineÚFLDA #0:STA col:LDA #13                :\ Reset column and print NLä.PrColumnîJSR osasciø=CMP #32:BNE P%+5:JSR osasci           :\ Print two spaces.PrVarNameFTXA:LSR A:ADC #—"@":JSR oswrch      :\ Print first char of varname
LDY #1 .NamePrint*$INY:LDA (link),Y:BEQ NamePrinted4IJSR oswrch:JMP NamePrint              :\ Print rest of name until &00>.NamePrintedHFTXA:PHA:LDX #0                        :\ Save index, and prepare XRMDEY:LDA (link),Y:INY:INY              :\ Get term. char and point to data\BCPY #3:BEQ Real                       :\ n     - real variablef@CMP #—"0":BCS Real                  :\ name  - real variablepCCMP #—"%":BEQ Integer               :\ name% - integer variablezBCMP #—"$":BNE P%+5:JMP String       :\ name$ - string variable„=INY:CMP #—"(":BNE P%+5:JMP Array    :\ name[%|$]( - arrayŽ2DEY:LDA #—"*":JSR oswrch            :\ Unknown˜SEC:PHP:JMP RealOverflow¢:¬A.Real                                 :\ (link),Y => exp, man¶KLDX #5                                :\ Five bytes to reorder and copyÀ.RealLp1ÊHLDA (link),Y:STA int-1,X:INY          :\ Copy and reverse into storeÔDEX:BNE RealLp1ÞLDA exp:BEQ PrintIntegerèHLDA int+3:PHP:„A #&80:STA int+3      :\ Save sign and put top bit inò.RealLp2üDLDA exp:CMP #&A0:BCS RealDenormalised :\ Loop until denormalised+ROR int+3:ROR int+2:ROR int+1:ROR int+0HBCS RealOverflow                      :\ Drop out if run out of bitsINC exp:BNE RealLp2$.RealDenormalised.GPLP:BPL RealPositive                  :\ Need to negate if negative88LDX #&FC                              :\ Start at -4BC.RealNegate                           :\ Negate negative numberL&LDA #0:SBC int-&FC,X:STA int-&FC,XVINX:BMI RealNegate`.RealPositivejJMP PrintIntegert:~<.Integer                              :\ (link),Y => intˆ<LDA (link),Y:STA int,X:INY            :\ Copy into store’INX:CPX #4:BNE Integer:INYœ<.PrintInteger                         :\ Y=name length+5¦CPY #colwidth-5:BCS PrInt°JSR PrSpaceºINY:BNE PrintIntegerÄ
.PrIntÎJSR PrEqual:JSR PrAmperØ
LDX #3â.PrIntLpìLDA int,X:JSR PrHexöDEX:BPL PrIntLp CLC:PHP
.RealOverflow"TYA:CLC:ADC #4:ADC col:STA colPLP:BCS PadToNext( CPY #colwidth-3:BCC LinkNext2.PadToNext<LDA col:CMP #60:BCC LinkPadF LDA #80:STA col:BNE LinkNextP.LinkPadZJSR PrSpacedINC col:LDA coln"CMP #colwidth*0.5:BEQ LinkNextx"CMP #colwidth*1.0:BEQ LinkNext‚"CMP #colwidth*1.5:BEQ LinkNextŒ"CMP #colwidth*2.0:BEQ LinkNext–"CMP #colwidth*2.5:BEQ LinkNext !CMP #colwidth*3.0:BNE LinkPadª:´.LinkNext¾PLA:TAXÈDLDY #1:LDA (link),Y:PHA               :\ Get next link high byteÒCDEY:LDA (link),Y:STA link             :\ Get next link low byteÜAPLA:JMP FollowChain                   :\ Jump to follow chainæ:ð@.String                               :\ X=0, (link),Y=>dataúCJSR PrEqual:STX flg:STX col           :\ Clear quote flag & colBLDA (link),Y:STA txt:INY              :\ Get pointer to stringLDA (link),Y:STA txt+1:INY.INY:LDA (link),Y:LDY #0:TAX:BEQ StringNull"'LDA (txt),Y:CMP #32:BCC string_loop,/CMP #127:BEQ string_loop:LDA #34:JSR oswrch6.string_loop@#LDA (txt),Y:PHA:JSR pr_char:PLAJINY:DEX:BNE string_loopTDCMP #32:BCC string_exit:CMP #127:BEQ string_exit:BNE string_end2^.StringNull:JSR PrQuoteh.string_end2:JSR PrQuoter(.string_exit:JSR osnewl:JMP LinkNext|:†.pr_char:CMP #32:BCS pr_ok.pr_checkš$PHA:TXA:PHA:CPY #0:BEQ pr_check2¤LDA flg:BEQ pr_check1®JSR PrQuote:.pr_check1¸JSR PrPlus:.pr_check2ÂLDX #0:STX flg:.pr_c_loopÌ6LDA pr_table,X:JSR oswrch:INX:CPX #6:BNE pr_c_loopÖ%PLA:TAX:PLA:JSR PrHex:JSR PrCloseà2.pr_ok:CMP #127:BEQ pr_check:CPY #0:BEQ pr_ok3êPHA:LDA flg:BNE pr_ok2ôJSR PrPlus:JSR PrQuoteþ.pr_ok2:PLA.pr_ok3:STA flg:JMP oswrch.pr_table:EQUS "CHR$(&":&!.PrSpace:LDA #—" ":BNE PrChar0!.PrEqual:LDA #—"=":BNE PrChar:!.PrAmper:LDA #—"&":BNE PrCharD.PrQuote:LDA #34:BNE PrCharN!.PrClose:LDA #—")":BNE PrCharX!.PrPlus :LDA #—"+":BNE PrCharb:l
.PrHexv!.pr_hex:PHA:LSR A:LSR A:LSR A€LSR A:JSR PrNyb:PLAŠ".PrNyb:€ #15:CMP #10:BCC PrDig”ADC #6:.PrDig:ADC #—"0"ž.PrChar¨JMP oswrch²EQUS "v1.11"¼]:íÆJñ"*SAVE VList ";~mcode%;" ";~O%„&FFFF0000;" ";go%„&FFFF0000;" ";~load%ÿ