RTR/!Asm84/PIC

Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » RTR/!Asm84/PIC

RTR/!Asm84/PIC

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

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

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars
Filename:	RTR/!Asm84/PIC
Read OK:	✔
File size:	5142 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM Pic 16C84 assembler operands
   20REM Version 1.2 By Mike Cook
   30REM All rights reserved
   40DIM q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 128,SW% 256,cb% 18
   50DIM IsName% 356, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
   60
   70ON ERROR PROCerrorbox
   80DIM taskid%4,intmess% 20:$taskid%="TASK"
   90intmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
  100SYS "Wimp_Initialise",300,!taskid%,"PIC-Assembler",intmess% TO version%,taskhand%
  110
  120MxL%=300
  130OpN%=43
  140DIM Mne$(OpN%+1),Op%(OpN%+1),It%(OpN%+1),Lable$(MxL%),LabVal%(MxL%)
  150DIM S7%(9), SPoint%(7),IX%(7),IY%(7),IX1%(7),IY1%(7),Elist%(100),Estr$(100)
  160DIM ProgMemS% &800,DataMemS% 128, ConfigMem% 16
  170
  180SYS "Wimp_OpenTemplate",,"<PIC84$Dir>.Templates"
  190ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox
  200SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
  210SYS "Wimp_CreateWindow",,q% TO info%
  220SYS "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Control",0
  230Wn%!28=-1
  240FOR A%=0 TO 7
  250SPoint%(A%)=!(Wn%+4+88+20+32*A%)
  260IX%(A%)=!(Wn%+4+88+32*A%):IY%(A%)=!(Wn%+4+88+4+32*A%)
  270IX1%(A%)=!(Wn%+4+88+8+32*A%):IY1%(A%)=!(Wn%+4+88+12+32*A%)
  280NEXT
  290
  300SYS "Wimp_CreateWindow",,Wn%+4 TO monW%
  310Wn%!0=monW%:Wn%!28=-1
  320
  330SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
  340q%!108=TextWarn%:q%!112=-1:q%!116=300
  350XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
  360SYS "Wimp_CreateWindow",,q% TO warningW%
  370SYS "Wimp_CloseTemplate"
  380
  390
  400smpicon%=FNicon
  410wopen%=FALSE:warnOn%=FALSE
  420InWin%=FALSE
  430PROCsetupmenu
  440PROC_PutPrams(7,0)
  450PROC_PutPramsS(4,"Drag File Here")
  460PROC_INIT
  470Check%=0
  480constblock%=0
  490constval%=0
  500
  510REPEAT
  520 SYS "Wimp_Poll",0,q% TO A%
  530  CASE A% OF
  540   WHEN 1:VDU7
  550   WHEN 2:SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%: SYS "Wimp_OpenWindow",,q%
  560   WHEN 3:PROC_close
  570   WHEN 4:InWin%=FALSE:LX%=-1:LY%=-1
  580   WHEN 5:InWin%=TRUE
  590   WHEN 6:PROC_do_click(q%)
  600   WHEN 7:PROC_PutDown(q%)
  610   WHEN 8:PROC_KeyPress
  620   WHEN 9:PROC_SORT_Menu
  630   WHEN 17,18:PROCreceive(q%)
  640   ENDCASE
  650 UNTIL FALSE
  660
  670END
  680
  690
  700DEF PROC_SORT_Menu
  710 IF !q%=1 THEN PROCdie
  720ENDIF
  730ENDPROC
  740
  750DEF PROC_close
  760IF q%!0=monW% THEN SYS"Wimp_GetWindowInfo",,Wn%:wopen%=FALSE
  770IF q%!0=warningW% THEN warnOn%=FALSE
  780SYS "Wimp_CloseWindow",,q%
  790ENDPROC
  800
  810DEF PROC_do_click(q%)
  820i%=q%!16
  830CASE q%!12 OF
  840WHEN warningW%: q%!0=warningW% :PROC_close
  850WHEN -2: REM Look first at Icon Bar Click
  860        IF q%!16=smpicon% THEN
  870        IF q%!8=2 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-74,180:IconMenu%=TRUE
  880        IF q%!8=4 THEN PROC_Open
  890        ENDIF
  900
  910WHEN monW%:  
  920              IF q%!8=4 THEN PROC_MonClick
  930              IF q%!8=2 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-96,q%!4:IconMenu%=FALSE
  940ENDCASE
  950ENDPROC
  960
  970
  980DEF PROC_MonClick
  990LOCAL D%,V%,B%
 1000REM Do the action for a window click
 1010CASE i% OF
 1020   WHEN 8: PROC_GetPrams
 1030           D%=FNvfn
 1040           IF D%=0 THEN
 1050            PROC_setupW("Need to specify a file")
 1060            ELSE
 1070            D%=FNopf
 1080            IF D%=0 THEN
 1090             PROC_setupW("Files can't be opened")
 1100             ELSE
 1110             REM DO Assembly
 1120             PROC_Ass
 1130             PROC_PutPrams(7,Errors%)
 1140            ENDIF
 1150            PROCcloseF
 1160           ENDIF
 1170 ENDCASE
 1180ENDPROC
 1190
 1200DEF PROC_Open
 1210SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%
 1220REM OPEN UP WINDOW HERE
 1230IF wopen% THEN
 1240q%!0=monW%
 1250SYS"Wimp_GetWindowState",,q%
 1260  IF q%!28<>-1 THEN q%!28=-1: SYS "Wimp_OpenWindow",,q%
 1270ELSE
 1280SYS "Wimp_OpenWindow",,Wn%
 1290wopen%=TRUE
 1300ENDIF
 1310ENDPROC
 1320
 1330DEFPROCsetupmenu
 1340LOCAL m%
 1350
 1360$menu%="PIC"
 1370menu%?12=7
 1380menu%?13=2
 1390menu%?14=7
 1400menu%?15=0
 1410menu%!16=128
 1420menu%!20=40
 1430menu%!24=0
 1440m%=menu%+28
 1450m%!0=0
 1460m%!4=info%
 1470m%!8=(7<<24)OR %10001
 1480$(m%+12)="Info"
 1490
 1500m%+=24
 1510m%!0=&80
 1520m%!4=0
 1530m%!8=(7<<24)OR %10001
 1540$(m%+12)="Quit"
 1550ENDPROC
 1560
 1570DEF PROCreceive(q%)
 1580LOCAL A%
 1590A%=q%!16
 1600CASE A% OF
 1610WHEN 0:PROCdie
 1620
 1630WHEN 3:n$=FNsget(q%+44)
 1640       sendth%=q%!4:icontype%=q%!40
 1650       myref%=q%!8
 1660       IF icontype%=&FFF AND ( (q%!20=-2 AND q%!24=smpicon%) OR q%!20=monW%) THEN
 1670        PROC_Fname(n$)
 1680        PROC_Dack
 1690        IF wopen%=FALSE THEN PROC_Open
 1700        ELSE
 1710        IF icontype%<>&FFF THEN PROC_setupW("Need a text file")
 1720       ENDIF
 1730WHEN &502:   CASE TRUE OF
 1740             WHEN q%!32=-2 AND q%!36=smpicon%:mes$="This is the PIC Assembler icon.|MAssemble PIC controller code"
 1750             OTHERWISE:mes$=""
 1760             ENDCASE
 1770    IF mes$<>"" THEN
 1780    q%!12=q%!8
 1790    $(q%+20)=mes$+CHR$0
 1800    q%!0=(20+LENmes$+4)AND NOT 3
 1810    q%!16=&503
 1820    SYS "Wimp_SendMessage",18,q%,q%!4
 1830ENDCASE
 1840ENDPROC
 1850
 1860DEF PROC_Dack
 1870sendth%=q%!4
 1880myref%=q%!8
 1890SYS "Wimp_GetPointerInfo",,q%+8
 1900q%!28=q%!8
 1910q%!32=q%!12
 1920q%!0=(44+LENn$+4)AND NOT 3
 1930q%!12=myref%
 1940q%!16=4
 1950q%!36=-1
 1960q%!40=&FF9
 1970$(q%+44)=n$+CHR$0
 1980SYS "Wimp_SendMessage",17,q%,sendth%
 1990ENDIF
 2000ENDPROC
 2010
 2020DEFFNsget(x%)
 2030LOCAL x$
 2040WHILE ?x% x$+=CHR$(?x%):x%+=1:ENDWHILE
 2050=x$
 2060
 2070DEFFNicon
 2080q%!0=-1
 2090q%!4=0
 2100q%!8=10 : REM Y DIRECTION
 2110q%!12=70 : REM X DIRECTION
 2120q%!16=96
 2130q%!20=&2002
 2140$(q%+24)="!Asm84"
 2150SYS "Wimp_CreateIcon",,q% TO icon%
 2160=icon%
 2170
 2180DEF PROC_setupW(t$)
 2190!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
 2200$TextWarn%=t$
 2210TextWarn%?LEN(t$)=0
 2220VDU 7
 2230warnOn%=TRUE
 2240SYS "Wimp_OpenWindow",,q%
 2250ENDPROC
 2260
 2270DEF PROCerrorbox
 2280REM SYS "Wimp_DragBox",,-1
 2290!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0
 2300SYS "Wimp_ReportError",buffers%,1,"PIC"
 2310PROCdie
 2320ENDPROC
 2330
 2340DEFPROCdie
 2350SYS "Wimp_CloseDown",taskhand%,!taskid%
 2360END
 2370ENDPROC
 2380
 2390DEF PROC_KeyPress
 2400CASE q%!0 OF
 2410WHEN monW%: PROC_GetinName:PROC_Fname(fn$)
 2420ENDCASE
 2430ENDPROC
 2440
 2450DEF PROC_GetPrams
 2460LOCAL A$
 2470q%!0=Wn%!0
 2480InFile$=FNsget(SPoint%(4))
 2490ListFile$=FNsget(SPoint%(5))
 2500ObjFile$=FNsget(SPoint%(6))
 2510ENDPROC
 2520
 2530REM Verify file names
 2540DEF FNvfn
 2550LOCAL V%
 2560V%=1
 2570IF INSTR(InFile$,"$")=0 THEN V%=0
 2580IF INSTR(ListFile$,"$")=0 THEN V%=0
 2590IF INSTR(ObjFile$,"$")=0 THEN V%=0
 2600=V%
 2610
 2620DEF FNopf
 2630LOCAL V%
 2640V%=1
 2650F%=OPENIN(InFile$)
 2660FL%=OPENOUT(ListFile$)
 2670IF F%=0 OR FL%=0 THEN V%=0
 2680=V%
 2690
 2700DEF PROCcloseF
 2710IF F%<>0 THEN CLOSE#F%
 2720IF FL%<>0 THEN CLOSE#FL%:OSCLI("SETTYPE "+ListFile$+" FFF")
 2730PROCwriteObj
 2740ENDPROC
 2750
 2760DEF PROC_PutPrams(n%,V%)
 2770PROC_sput(SPoint%(n%),STR$(V%))
 2780SYS"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
 2790ENDPROC
 2800
 2810DEF PROC_PutPramsS(n%,V$)
 2820PROC_sput(SPoint%(n%),V$)
 2830SYS"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
 2840ENDPROC
 2850
 2860DEF PROC_sput(x%,X$)
 2870LOCAL A%
 2880FOR A%=1 TO LEN(X$)
 2890?x%=ASC(MID$(X$,A%,1))
 2900x%+=1
 2910NEXT
 2920?x%=0
 2930ENDPROC
 2940
 2950DEF PROC_GetinName
 2960LOCAL T%,A%,F$
 2970F$="":fn$=""
 2980q%!0=monW%:q%!4=4
 2990SYS "Wimp_GetIconState",,q%
 3000T%=q%!28
 3010T%-=1
 3020REPEAT
 3030T%+=1
 3040F$=F$+CHR$(?T%)
 3050UNTIL ?T%=0
 3060fn$=MID$(F$,1,LEN(F$)-1)
 3070ENDPROC
 3080
 3090DEF PROC_Fname(n$)
 3100InFile$=n$
 3110PROC_PutPramsS(4,n$)
 3120PROC_PutPramsS(7,"?")
 3130ListFile$=FNmkfn(n$,"/L")
 3140ObjFile$=FNmkfn(n$,"/H")
 3150PROC_PutPramsS(5,ListFile$)
 3160PROC_PutPramsS(6,ObjFile$)
 3170ENDPROC
 3180
 3190DEF FNmkfn(S$,A$)
 3200LOCAL T$,P$,A%
 3210A%=LEN(S$)+1
 3220REPEAT
 3230A%-=1
 3240T$=MID$(S$,A%,1)
 3250UNTIL T$="."
 3260P$=LEFT$(S$,A%)
 3270T$=RIGHT$(S$,LEN(S$)-A%)
 3280T$=T$+A$
 3290IF LEN(T$)>10 THEN T$=RIGHT$(T$,10)
 3300=P$+T$
 3310
 3320REM -----------------------------------------------------------
 3330DEF PROC_INIT
 3340FOR A%=1 TO OpN%
 3350  READ Mne$(A%),Op%(A%),It%(A%)
 3360NEXT
 3370Errors%=0
 3380ENDPROC
 3390
 3400DEF PROC_Ass
 3410PROCmWipe
 3420LinesP%=0:TotalL%=0
 3430Lables%=0
 3440Lastlable%=0
 3450Comment%=FALSE
 3460NcNl%=FALSE
 3470SYS"Hourglass_Start",1
 3480
 3490FOR Pass%=1 TO 2
 3500IF Pass%=2 THEN PROChead
 3510Errors%=0
 3520Address%=0
 3530REPEAT
 3540IF Pass%=2 THEN SYS"Hourglass_Percentage",50+100*(LinesP%/TotalL%)/2
 3550  n%=0:La%=0
 3560  nm$=FNpars
 3570  LinesP%+=1
 3580  IF nm$="endc" THEN
 3590  constblock%=0
 3600  PROCsprint(" cblock end"):PROCsprint("")
 3610  ELSE
 3620   IF constblock%=-1 THEN
 3630PROC_Lable(nm$)
 3640d%=constval%
 3650IF Pass%=1 THEN LabVal%(Lastlable%)=d%
 3660V$=FNsl("       "+nm$,16)
 3670PROCsprint(V$+"     "+STR$~(d%)+"h"):PROCsprint("")
 3680constval%+=1
 3690ELSE
 3700  IF nm$="END" THEN nm$="end"
 3710  IF La%=1 AND RIGHT$(nm$,1)<>":" THEN nm$=nm$+":"
 3720  IF RIGHT$(nm$,1)=":" THEN
 3730  IF ASC(LEFT$(nm$,1)) <&41 THEN PROCeprint(" Lable must start with a letter ") ELSE PROCsprint(nm$):PROC_Lable(nm$)
 3740  ELSE
 3750   IF nm$<>"end" AND nm$<>";" AND (NOT(EOF#F%)) THEN PROC_Mnomic(nm$)
 3760  ENDIF
 3770 ENDIF
 3780ENDIF
 3790UNTIL nm$="end" OR EOF#F%
 3800PROCsprint("end"):PROCsprint("")
 3810IF Pass%=1 THEN CLOSE#F%:F%=OPENIN(InFile$):TotalL%=LinesP%:LinesP%=0
 3820NEXT
 3830
 3840Pass%=2
 3850PROCmemUsage
 3860PROCsprint("")
 3870PROCsprint(STR$(Lables%)+" Lables & Constants:-")
 3880PROCsprint("")
 3890PROCsprint("Hex    Name"):PROCsprint("")
 3900FOR A%=0 TO Lables%-1
 3910PROCp(LabVal%(A%))
 3920PROCsprint(Lable$(A%))
 3930PROCsprint("")
 3940NEXT
 3950PROCsprint("")
 3960PROCsprint(STR$(Errors%)+" "+"Errors")
 3970IF Errors%<>0 THEN
 3980IF Errors%>100 THEN Errors%=100
 3990PROCsprint("")
 4000FOR A%=1 TO Errors%
 4010PROCsprint(Estr$(A%)+" at line "+STR$(Elist%(A%)))
 4020PROCsprint("")
 4030NEXT
 4040ENDIF
 4050SYS"Hourglass_Smash"
 4060ENDPROC
 4070
 4080DEF PROC_Mnomic(m$)
 4090LOCAL P1$,P2$,V$,d%
 4100  V$=m$
 4110  m$=FNlc(m$)
 4120
 4130  REPEAT
 4140    n%=n%+1
 4150  UNTIL Mne$(n%)=m$ OR n%>OpN%
 4160
 4170  IF n%>OpN% THEN
 4180    REM see if it is a lable - search for equ
 4190    P1$=FNpars:P1$=FNlc(P1$)
 4200    IF P1$="equ" THEN
 4210      PROC_Lable(V$)
 4220      P2$=FNpars:d%=FNconst(P2$)
 4230      IF Pass%=1 THEN LabVal%(Lastlable%)=d%
 4240      V$=FNsl("       "+V$,16)
 4250      PROCsprint(V$+"     "+P1$+" "+P2$+"          ")
 4260    ELSE
 4270      PROCeprint(m$+" is not a valid Mnemonic ")
 4280    ENDIF
 4290    IF NcNl%=TRUE THEN NcNl%=FALSE:PROCsprint("")
 4300  ELSE
 4310    Fop%=Op%(n%)
 4320    IF It%(n%)<>6 THEN PROCp(Address%)
 4330    
 4340    CASE It%(n%) OF
 4350    WHEN 0:  m$=FNsl(m$,22)
 4360    WHEN 1:  P1$=FNpars
 4370             d%=FNconst(P1$)
 4380             IF d%<&80 AND d%>-1 THEN Fop%=Fop% OR d% ELSE PROCeprint(" File reg too large ")
 4390             P2$=FNpars
 4400             d%=-1
 4410             IF P2$="W" OR P2$="w" OR P2$="0" THEN d%=0
 4420             IF P2$="F" OR P2$="f" OR P2$="1" THEN d%=&80
 4430             IF d%=-1 THEN PROCeprint(" Invalid destination ")
 4440             Fop%=Fop% OR d%
 4450             m$=FNsl(m$,6)
 4460             m$=FNsl(m$+" "+P1$+","+P2$,22)
 4470    WHEN 2:  P1$=FNpars
 4480             d%=FNconst(P1$)
 4490             IF d%< &80 THEN Fop%=Fop% OR d% ELSE PROCeprint(" File reg too large ")
 4500             P2$=FNpars
 4510             REM d%=VAL(RIGHT$(P2$,LEN(P2$)-1))
 4520             d%=FNconst(P2$)
 4530             IF d%>7 PROCeprint(" Bit number too large") ELSE Fop%=Fop% OR (d%<<7)
 4540             m$=FNsl(m$,6)
 4550             m$=FNsl(m$+" "+P1$+","+P2$,22)
 4560    WHEN 3:  P1$=FNpars
 4570             d%=FNconst(P1$)
 4580             IF d%< &100 THEN Fop%=Fop% OR d% ELSE PROCeprint(" Number too big ")
 4590             m$=FNsl(m$,6)
 4600             m$=FNsl(m$+" "+P1$,22)
 4610    WHEN 4:  P1$=FNpars
 4620             d%=FNconst(P1$)
 4630             IF d%< &80 THEN Fop%=Fop% OR d% ELSE PROCeprint(" Number too big ")
 4640             IF m$="tris" AND d%>7 THEN PROCeprint(" Number too big ")
 4650             m$=FNsl(m$,6)
 4660             m$=FNsl(m$+" "+P1$,22)
 4670    WHEN 5:  P1$=FNpars
 4680             d%=FNconst(P1$)
 4690             IF d%< &400 THEN Fop%=Fop% OR d% ELSE PROCeprint(" Branch too far ")
 4700             m$=FNsl(m$,6)
 4710             m$=FNsl(m$+" "+P1$,22)
 4720    WHEN 6:  PROCpsudo
 4730
 4740    ENDCASE
 4750    
 4760    IF It%(n%)<>6 THEN PROCmem(Fop%):PROCp(Fop%)
 4770    PROCsprint(m$)
 4780    IF NcNl%=TRUE THEN NcNl%=FALSE:PROCsprint("")
 4790    IF It%(n%)<>6 THEN Address%+=1
 4800  ENDIF
 4810ENDPROC
 4820
 4830DEF PROCpsudo
 4840LOCAL v%,a%,S$
 4850CASE m$ OF
 4860WHEN "org":P1$=FNpars
 4870           Address%=FNconst(P1$)
 4880           m$="              "+m$+"    "+P1$
 4890
 4900WHEN "list":P1$=FNpars
 4910           IF INSTR(P1$,"16C84")=0 THEN PROCeprint(" Incorrect processor "):m$=m$+" "+P1$ ELSE m$="              "+m$+"   "+P1$
 4920           
 4930WHEN "equb":P1$=FNpars
 4940            v%=FNconst(P1$)
 4950            IF v%>255 OR V%<0 THEN
 4960            PROCeprint(" Byte Value too big ")
 4970            ELSE
 4980            PROCp(Address%)
 4990            PROCmem(v%):PROCp(v%):Address%+=1
 5000            m$=FNsl(m$+"    "+P1$,22)
 5010            ENDIF
 5020WHEN "equs":PROC_Pstr(0)
 5030WHEN "rets":PROC_Pstr(&3400)
 5040WHEN "cblock":P1$=FNpars
 5050              constval%=FNconst(P1$)
 5060              constblock%=-1
 5070              PROCsprint("")
 5080              PROCsprint(" definitions starting at "+STR$~constval%+"h ")
 5090              PROCsprint(""):PROCsprint(" ")
 5100              ENDIF
 5110ENDCASE
 5120ENDPROC
 5130
 5140DEF PROC_Pstr(op%)
 5150PROCsprint("              "+m$)
 5160m$=""
 5170PROCsprint("")
 5180REPEAT
 5190IF NOT(EOF#F%) THEN a%=BGET#F% ELSE a%=10
 5200UNTIL a%=10 OR a%=ASC("'")
 5210IF a%=ASC("'") THEN
 5220REPEAT
 5230IF NOT(EOF#F%) THEN a%=BGET#F% ELSE a%=10
 5240IF a%<>10 AND a%<>ASC("'") THEN
 5250PROCp(Address%)
 5260a%=a% OR op%
 5270PROCmem(a%):PROCp(a%):Address%+=1
 5280IF op%<>0 THEN PROCsprint("retlw ")
 5290PROCsprint("'"+CHR$(a%)+"'")
 5300PROCsprint("")
 5310ENDIF
 5320UNTIL a%=10 OR a%=ASC("'")
 5330IF a%=10 THEN PROCeprint(" No terminating quote ' ")
 5340ELSE
 5350PROCeprint(" No literal string ")
 5360ENDIF
 5370ENDPROC
 5380
 5390REM Do the lable logic
 5400DEF FNLabLog
 5410LOCAL e%,p1$,p2$,d%,o%
 5420o%=TRUE
 5430e%=INSTR(P$,"^")
 5440IF e%<>0 THEN
 5450p1$=LEFT$(P$,e%-1) : p2$=RIGHT$(P$,LEN(P$)-e%)
 5460d%=FNconst(p1$) EOR FNconst(p2$)
 5470o%=FALSE
 5480ENDIF
 5490e%=INSTR(P$,"+")
 5500IF e%<>0 AND o% THEN
 5510p1$=LEFT$(P$,e%-1) : p2$=RIGHT$(P$,LEN(P$)-e%)
 5520d%=FNconst(p1$) OR FNconst(p2$)
 5530o%=FALSE
 5540ENDIF
 5550e%=INSTR(P$,".")
 5560IF e%<>0 AND o% THEN
 5570p1$=LEFT$(P$,e%-1) : p2$=RIGHT$(P$,LEN(P$)-e%)
 5580d%=FNconst(p1$) AND FNconst(p2$)
 5590o%=FALSE
 5600ENDIF
 5610e%=INSTR(P$,"!")
 5620IF e%<>0 AND o% THEN
 5630p1$=LEFT$(P$,e%-1) : p2$=RIGHT$(P$,LEN(P$)-e%)
 5640d%=FNconst(p1$) + FNconst(p2$)
 5650o%=FALSE
 5660ENDIF
 5670e%=INSTR(P$,"-")
 5680IF e%<>0 AND o% THEN
 5690p1$=LEFT$(P$,e%-1) : p2$=RIGHT$(P$,LEN(P$)-e%)
 5700d%=FNconst(p1$) - FNconst(p2$)
 5710o%=FALSE
 5720ENDIF
 5730
 5740IF o% THEN
 5750REM Search for lable value
 5760  s%=0
 5770  WHILE s%<>Lables% AND Lable$(s%)<>P$
 5780  s%+=1
 5790  ENDWHILE
 5800  IF s%=Lables% THEN PROCeprint(" Undefined lable ") ELSE d%=LabVal%(s%)
 5810 ENDIF
 5820=d%
 5830ENDPROC
 5840
 5950REM make string a standard length
 5960DEF FNsl(N$,L%)
 5970LOCAL t$
 5980IF LEN(N$)<L% THEN
 5990N$=N$+"                               "
 6000t$=LEFT$(N$,L%)
 6010ELSE
 6020t$=N$
 6030ENDIF
 6040=t$
 6050
 6060REM Extract a constant in hex or decimal eg. 0dh or 13
 6070REM Also look for constant containg ' like:-  b'0011001'
 6080REM or a lable value if not start with a letter
 6090DEF FNconst(P$)
 6100LOCAL d%,a%,e%,s%,p1$,p2$,l%
 6110IF LEFT$(P$,2)="0x" OR LEFT$(P$,2)="0X" THEN P$="0"+MID$(P$,3)+"h"
 6120IF LEFT$(P$,1)="." THEN P$="d'"+MID$(P$,2)+"'"
 6130d%=0
 6140l%=FNclab(P$)
 6150IF LEFT$(P$,1)="'" THEN l%=0
 6160IF (ASC(LEFT$(P$,1)) < &3A OR ASC(MID$(P$,2,1)) =&27) AND l%=0 THEN
 6170 IF RIGHT$(P$,1)="h" OR RIGHT$(P$,1)="H" THEN
 6180 s%=1
 6190 FOR a%=LEN(P$)-1 TO 1 STEP -1
 6200 e%=ASC(MID$(P$,a%,1))
 6210 IF e%>&66 OR (e%>&46 AND e%<&61) OR e%<&30 THEN PROCeprint("Bad hex")
 6220 IF e%<&3A THEN e%=e% AND &F ELSE e%=(e% AND &F)+9
 6230 d%=d%+e%*s%
 6240 s%=s%*16
 6250 NEXT
 6260 ELSE
 6270 e%=INSTR(P$,"'")
 6280 IF e%<>0 THEN
 6290 d%=FNaltnum(P$)
 6300 ELSE
 6310 d%=VAL(P$)
 6320 IF STR$(d%)<>P$ THEN PROCeprint(" Value not understood ")
 6330 ENDIF
 6340 ENDIF
 6350ELSE
 6360REM Extract a lable value first look for arithmitic
 6370 d%=FNLabLog
 6380ENDIF
 6390=d%
 6400
 6410REM See if string contains any operators
 6420DEF FNclab(s$)
 6430LOCAL L%
 6440L%=0
 6450L%=INSTR(s$,"^")
 6460L%+=INSTR(s$,"+")
 6470L%+=INSTR(s$,".")
 6480L%+=INSTR(s$,"!")
 6490L%+=INSTR(s$,"-")
 6500=L%
 6510
 6520REM Define a lable
 6530DEF PROC_Lable(l$)
 6540LOCAL n%
 6550IF Pass%=1 THEN
 6560IF RIGHT$(l$,1)=":" THEN l$=LEFT$(l$,LEN(l$)-1)
 6570REPEAT
 6580    n%=n%+1
 6590  UNTIL Mne$(n%)=l$ OR n%>33
 6600IF n%>33 THEN
 6610  n%=0
 6620  WHILE n%<>Lables% AND Lable$(n%)<>l$
 6630  n%+=1
 6640  ENDWHILE
 6650  IF n%<>Lables% AND n%<>0 THEN
 6660  PROCeprint(" Duplicate lable ")
 6670  ELSE
 6680  Lable$(n%)=l$
 6690  LabVal%(n%)=Address%
 6700  Lastlable%=n%
 6710  Lables%+=1
 6720  IF Lables%>MxL% THEN PROCeprint(" Too many Lables ")
 6730  ENDIF
 6740ELSE
 6750PROCeprint(" Reserved word ")
 6760ENDIF
 6770ENDIF
 6780IF RIGHT$(l$,1)=":" THEN PROCsprint("")
 6790ENDPROC
 6800
 6810DEF FNaltnum(g$)
 6820LOCAL v%,t$,a%,w%,e%
 6830t$=CHR$(ASC(RIGHT$(g$,1)))
 6840IF t$="'" THEN
 6850t$=CHR$(ASC(LEFT$(g$,1)) OR &20)
 6860CASE t$ OF
 6870WHEN "h": g$=FNbtq(g$)
 6880          v%=0:w%=1
 6890          FOR a%=LEN(g$) TO 1 STEP -1
 6900          e%=ASC(MID$(g$,a%,1))
 6910          IF e%>&66 OR (e%>&46 AND e%<&61) OR e%<&30 THEN PROCeprint("Bad hex")
 6920          IF e%<&3A THEN e%=e% AND &F ELSE e%=(e% AND &F)+9
 6930          v%=v%+e%*w%
 6940          w%=w%*16
 6950          NEXT
 6960WHEN "d": g$=FNbtq(g$)
 6970          v%=VAL(g$)
 6980          IF STR$(v%)<>g$ THEN PROCeprint("Decimal value not understood")
 6990WHEN "o": g$=FNbtq(g$)
 7000          v%=0:w%=1
 7010          FOR a%=LEN(g$) TO 1 STEP -1
 7020          e%=ASC(MID$(g$,a%,1))
 7030          IF e%>&37 OR e%<&30 THEN PROCeprint("Bad octal")
 7040          e%=e% AND &F
 7050          v%=v%+e%*w%
 7060          w%=w%*8
 7070          NEXT
 7080WHEN "b": g$=FNbtq(g$)
 7090          v%=0:w%=1
 7100          FOR a%=LEN(g$) TO 1 STEP -1
 7110          e%=ASC(MID$(g$,a%,1))
 7120          IF NOT(e%=&30 OR e%=&31) THEN PROCeprint("Bad binary")
 7130          IF e%=&31 THEN e%=1 ELSE e%=0
 7140          v%=v%+e%*w%
 7150          w%=w%*2
 7160          NEXT
 7170WHEN "'": v%=ASC(MID$(P$,2,1))
 7180OTHERWISE PROCeprint("Value not understood")
 7190ENDCASE
 7200ELSE
 7210v%=0
 7220PROCeprint("missing end '")
 7230ENDIF
 7240=v%
 7250
 7260REM extract a value between the quotes
 7270DEF FNbtq(p$)
 7280LOCAL q$,e%,a%
 7290q$=""
 7300a%=3
 7310REPEAT
 7320e$=MID$(p$,a%,1)
 7330IF e$<>"'" THEN q$=q$+e$
 7340a%+=1
 7350UNTIL e$="'"
 7360=q$
 7370
 7380REM print a hex number with 4 places
 7390DEF PROCp(N%)
 7400LOCAL A$
 7410A$=STR$~N%
 7420IF LEN(A$)=1 THEN A$="000"+A$
 7430IF LEN(A$)=2 THEN A$="00"+A$
 7440IF LEN(A$)=3 THEN A$="0"+A$
 7450PROCsprint(A$+"   ")
 7460ENDPROC
 7470
 7480REM convert to lower case
 7490DEF FNlc(N$)
 7500LOCAL a%,L$
 7510L$=""
 7520FOR a%=1 TO LEN(N$)
 7530L$=L$+CHR$(ASC(MID$(N$,a%,1)) OR &60)
 7540NEXT
 7550=L$
 7560
 7570REM Pars an instruction or a lable
 7580DEF FNpars
 7590LOCAL a%,N$,C$
 7600REPEAT
 7610IF NOT(EOF#F%) THEN a%=BGET#F% ELSE a%=&3B
 7620IF a%>&1F THEN La%+=1
 7630IF a%=&0A THEN PROCsprint("")
 7640UNTIL a%>&20
 7650N$=CHR$(a%)
 7660IF N$<>";" THEN
 7670 REPEAT
 7680  IF NOT(EOF#F%) THEN a%=BGET#F% ELSE a%=10
 7690  IF a%>&20 THEN C$=CHR$(a%):N$=N$+C$
 7700 UNTIL EOF#F% OR C$="," OR a%<&21
 7710 IF a%=13 THEN a%=BGET#F%
 7720 IF a%=10 THEN NcNl%=TRUE
 7730 IF RIGHT$(N$,1)="," THEN N$=LEFT$(N$,LEN(N$)-1)
 7740ELSE
 7750PROCsprint(N$)
 7760PROC_Pc
 7770ENDIF
 7780=N$
 7790
 7800REM Pars comment
 7810DEF PROC_Pc
 7820LOCAL b%
 7830La%+=1
 7840REPEAT
 7850 IF NOT(EOF#F%) THEN b%=BGET#F% ELSE b%=10
 7860 IF b%>&1F THEN PROCsprint(CHR$(b%))
 7870UNTIL b%=10
 7880PROCsprint("")
 7890ENDPROC
 7900
 7910DEF PROCsprint(N$)
 7920IF Pass%=2 THEN
 7930PROCFstream(N$)
 7940ENDIF
 7950ENDPROC
 7960
 7970DEF PROCeprint(N$)
 7980IF Pass%=2 THEN
 7990PROCsprint("***  "+N$+" *** ")
 8000Errors%+=1
 8010IF Errors%<100 THEN Elist%(Errors%)=LinesP%:Estr$(Errors%)=N$
 8020ENDIF
 8030ENDPROC
 8040
 8050DEF PROCFstream(P$)
 8060LOCAL A%,B%
 8070IF P$="" THEN
 8080BPUT#FL%,10
 8090ELSE
 8100FOR A%=1 TO LEN(P$)
 8110B%=ASC(MID$(P$,A%,1))
 8120BPUT#FL%,B%
 8130NEXT
 8140ENDIF
 8150ENDPROC
 8160
 8170REM Mnemonic, opcode, type
 8180DATA addwf,&700,1, andwf, &500,1,  clrf,&180,4, clrw,&100,0
 8190DATA comf,&900,1, decf,&300,1, decfsz,&B00,1, incf,&A00,1
 8200DATA incfsz,&F00,1, iorwf,&400,1, movf,&800,1, movwf,&080,4
 8210DATA nop,0,0, rlf,&D00,1, rrf,&C00,1, subwf,&200,1
 8220DATA swapf,&E00,1, xorwf,&600,1, bcf,&1000,2, bsf,&1400,2
 8230DATA btfsc,&1800,2, btfss,&1C00,2, addlw,&3E00,3, andlw,&3900,3, call,&2000,3
 8240DATA clrwdt,&64,0, goto,&2800,5, iorlw,&3800,3, movlw,&3000,3
 8250DATA retfie, &9,0, retlw,&3400,3, return,&8,0, sleep,&063,0
 8260DATA sublw,&3C00,3, xorlw,&3A00,3
 8270REM Instructions to phase out
 8280DATA tris,&60,4,  option,&062,0
 8290REM Type 6 instructions are psudo op codes
 8300DATA org,&0,6, list,&0,6, equb,&0,6, equs,&0,6, rets,&0,6, cblock,&0,6
 8310
 8320DEF PROCmWipe
 8330LOCAL A%
 8340FOR A%=0 TO &7FF
 8350ProgMemS%?A%=&FF
 8360NEXT
 8370FOR A%=0 TO &7F
 8380DataMemS%?A%=&FF
 8390NEXT
 8400FOR A%=0 TO &F
 8410ConfigMem%?A%=&FF
 8420NEXT
 8430ENDPROC
 8440
 8450REM Put opcode in memory
 8460DEF PROCmem(o%)
 8470LOCAL Base%,P%,Q%
 8480Base%=-1
 8490IF Address%<&400 AND Address%>=0 THEN Base%=ProgMemS%:Q%=Address%
 8500IF Address%>&1FFF AND Address%<&2009 THEN Base%=ConfigMem%:Q%=Address%-&2000
 8510IF Address%>&20FF AND Address%<&2140 THEN Base%=DataMemS%:Q%=Address%-&2100
 8520IF Base%=-1 THEN
 8530PROCeprint(" Address out of range ")
 8540ELSE
 8550P%=Q%<<1
 8560Base%?P%=o% >> 8
 8570Base%?(P%+1)=o% AND &FF
 8580ENDIF
 8590ENDPROC
 8600
 8610DEF PROCmemUsage
 8620LOCAL A%,B%,C%
 8630PROCsprint("")
 8640PROCsprint("Memory Usage Map ('X' = Used, '-' = Unused)")
 8650PROCsprint("")
 8660B%=0
 8670REPEAT
 8680A%=0
 8690 REPEAT
 8700 C%=ProgMemS%?((A%<<1)+(B%<<1))
 8710 A%+=1
 8720 UNTIL A%=&3F OR C%<>&FF
 8730IF C%<>&FF THEN PROCmLine(B%)
 8740B%+=&40
 8750UNTIL B%=&400
 8760PROCsprint("")
 8770ENDPROC
 8780
 8790DEF PROCmLine(N%)
 8800LOCAL A%
 8810PROCsprint(""):PROCp(N%):PROCsprint(":")
 8820FOR A%=N% TO N%+&3F
 8830IF (A% MOD &10)=0 THEN PROCsprint(" ")
 8840IF ProgMemS%?(1+(A%<<1))=&FF THEN PROCsprint("-") ELSE PROCsprint("X")
 8850NEXT
 8860ENDPROC
 8870
 8880DEF PROChead
 8890LOCAL D$
 8900D$=FNsysV("Sys$Date")+" "+FNsysV("Sys$Year")+" at "+FNsysV("Sys$Time")
 8910PROCsprint("PIC 16C84 Assembler V1.0 by Mike Cook"):PROCsprint("")
 8920PROCsprint("File:- "+InFile$)
 8930PROCsprint("")
 8940PROCsprint("Assembled on :- "+D$)
 8950PROCsprint(""):PROCsprint("")
 8960ENDPROC
 8970
 8980DEF FNsysV(V$)
 8990LOCAL R$,A%,L%,B%
 9000DIM B% 20
 9010SYS"OS_ReadVarVal",V$,B%,20 TO ,,L%
 9020R$=""
 9030FOR A%=0 TO L%-1
 9040R$=R$+CHR$(B%?A%)
 9050NEXT
 9060=R$
 9070
 9080DEF PROCwriteObj
 9090LOCAL from%,to%,size%,base%,n%
 9100IF Errors%=0 THEN
 9110FO%=OPENOUT(ObjFile$)
 9120IF FO%=0 THEN PROC_setupW("Hex file can't be created"):ENDPROC
 9130REM Do the saving of a hex file here
 9140FOR n%=1 TO 3
 9150CASE n% OF
 9160WHEN 1: base%=ProgMemS%  :size%=&3FF
 9170WHEN 2: base%=DataMemS%  :size%=&3F
 9180WHEN 3: base%=ConfigMem% :size%=7
 9190ENDCASE
 9200
 9210to%=0:from%=0
 9220REPEAT
 9230from%=FNsused(base%,to%,size%+1)
 9240IF from%<size% THEN to%=FNsUnused(base%,from%,size%+1) ELSE to%=from%
 9250IF from%<(size%+1) THEN PROCsLine(base%,from%,to%)
 9260to%+=1
 9270UNTIL from%>=size%
 9280NEXT
 9290PROC_eof
 9300CLOSE#FO%:OSCLI("SETTYPE "+ObjFile$+" 084")
 9310ENDIF
 9320ENDPROC
 9330
 9340DEF FNsused(B%,S%,E%)
 9350LOCAL P%
 9360P%=S%
 9370REPEAT
 9380C%=B%?(P%<<1)
 9390P%+=1
 9400UNTIL C%<>&FF OR P%>E%
 9410=P%-1
 9420
 9430DEF FNsUnused(B%,S%,E%)
 9440LOCAL P%
 9450P%=S%
 9460REPEAT
 9470C%=B%?(P%<<1)
 9480P%+=1
 9490UNTIL C%=&FF OR P%>E%
 9500=P%-1
 9510
 9520DEF PROCsLine(Base%,Start%,Limit%)
 9530LOCAL A%,D1%,D2%,P%,B%,C%,Add%,Wa%
 9540Limit%=Limit%
 9550Add%=Start%
 9560IF Base%=DataMemS%  THEN Add%+=&2100
 9570IF Base%=ConfigMem% THEN Add%+=&2000
 9580A%=Start%
 9590REPEAT
 9600BPUT#FO%,ASC(":")
 9610IF (A%+4)<=Limit% THEN P%=8 ELSE P%=(Limit%-A%)<<1
 9620IF P%=0 THEN P%=2
 9630Check%=0
 9640PROCasc(P%)
 9650Wa%=Add%<<1
 9660PROCasc(Wa%>>8):PROCasc(Wa% AND &FF)
 9670PROCasc(0)
 9680FOR B%=1 TO P%/2
 9690D1%=Base%?(A%<<1)
 9700D2%=Base%?((A%<<1)+1)
 9710PROCasc(D2%)
 9720PROCasc(D1%)
 9730A%+=1:Add%+=1
 9740NEXT
 9750C%=(NOT(Check%)+1) AND &FF
 9760PROCasc(C%)
 9770BPUT#FO%,13
 9780BPUT#FO%,10
 9790UNTIL A%>=Limit%
 9800ENDPROC
 9810
 9820DEF PROC_eof
 9830REM Put end of file marker
 9840BPUT#FO%,ASC(":")
 9850PROCasc(0):PROCasc(0):PROCasc(0):PROCasc(1):PROCasc(&FF)
 9860BPUT#FO%,13
 9870BPUT#FO%,10
 9880ENDPROC
 9890
 9900DEF PROCasc(N%)
 9910LOCAL S$
 9920Check%+=N%
 9930S$=STR$~(N%>>4)
 9940BPUT#FO%,ASC(S$)
 9950S$=STR$~(N% AND &F)
 9960BPUT#FO%,ASC(S$)
 9970ENDPROC
 9980


"� Pic 16C84 assembler operands
� Version 1.2 By Mike Cook
� All rights reserved
(N� q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 128,SW% 256,cb% 18
2K� IsName% 356, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
<
F� � �errorbox
P*� taskid%4,intmess% 20:$taskid%="TASK"
ZIintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
dSș "Wimp_Initialise",300,!taskid%,"PIC-Assembler",intmess% � version%,taskhand%
n
xMxL%=300
�OpN%=43
�E� Mne$(OpN%+1),Op%(OpN%+1),It%(OpN%+1),Lable$(MxL%),LabVal%(MxL%)
�M� S7%(9), SPoint%(7),IX%(7),IY%(7),IX1%(7),IY1%(7),Elist%(100),Estr$(100)
�1� ProgMemS% &800,DataMemS% 128, ConfigMem% 16
�
�3ș "Wimp_OpenTemplate",,"<PIC84$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�<ș "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Control",0
�
Wn%!28=-1
�� A%=0 � 7
�$SPoint%(A%)=!(Wn%+4+88+20+32*A%)
9IX%(A%)=!(Wn%+4+88+32*A%):IY%(A%)=!(Wn%+4+88+4+32*A%)
>IX1%(A%)=!(Wn%+4+88+8+32*A%):IY1%(A%)=!(Wn%+4+88+12+32*A%)
�
"
,)ș "Wimp_CreateWindow",,Wn%+4 � monW%
6Wn%!0=monW%:Wn%!28=-1
@
J9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
T)q%!108=TextWarn%:q%!112=-1:q%!116=300
^ XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
h*ș "Wimp_CreateWindow",,q% � warningW%
rș "Wimp_CloseTemplate"
|
�
�smpicon%=�icon
�wopen%=�:warnOn%=�
�InWin%=�
��setupmenu
��_PutPrams(7,0)
�#�_PutPramsS(4,"Drag File Here")
�
�_INIT
�Check%=0
�constblock%=0
�constval%=0
�
��
 ș "Wimp_Poll",0,q% � A%

  Ȏ A% �

   � 1:�7
&O   � 2:ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%: ș "Wimp_OpenWindow",,q%
0   � 3:�_close
:!   � 4:InWin%=�:LX%=-1:LY%=-1
D   � 5:InWin%=�
N   � 6:�_do_click(q%)
X   � 7:�_PutDown(q%)
b   � 8:�_KeyPress
l   � 9:�_SORT_Menu
v   � 17,18:�receive(q%)
�   �
� � �
�
��
�
�
�� �_SORT_Menu
� � !q%=1 � �die
��
��
�
�
� �_close
�7� q%!0=monW% � ș"Wimp_GetWindowInfo",,Wn%:wopen%=�
 � q%!0=warningW% � warnOn%=�
ș "Wimp_CloseWindow",,q%
�
 
*� �_do_click(q%)
4i%=q%!16
>Ȏ q%!12 �
H(� warningW%: q%!0=warningW% :�_close
R(� -2: � Look first at Icon Bar Click
\        � q%!16=smpicon% �
fI        � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-74,180:IconMenu%=�
p        � q%!8=4 � �_Open
z
        �
�
�� monW%:  
�'              � q%!8=4 � �_MonClick
�P              � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-96,q%!4:IconMenu%=�
��
��
�
�
�� �_MonClick
�� D%,V%,B%
�&� Do the action for a window click
�Ȏ i% �
�   � 8: �_GetPrams
           D%=�vfn
           � D%=0 �
2            �_setupW("Need to specify a file")
$            �
.            D%=�opf
8            � D%=0 �
B2             �_setupW("Files can't be opened")
L             �
V             � DO Assembly
`             �_Ass
j&             �_PutPrams(7,Errors%)
t            �
~            �closeF
�           �
� �
��
�
�� �_Open
�.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
�� OPEN UP WINDOW HERE
�� wopen% �
�q%!0=monW%
�ș"Wimp_GetWindowState",,q%
�6  � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
��
ș "Wimp_OpenWindow",,Wn%

wopen%=�
�
�
(
2��setupmenu
<� m%
F
P$menu%="PIC"
Zmenu%?12=7
dmenu%?13=2
nmenu%?14=7
xmenu%?15=0
�menu%!16=128
�menu%!20=40
�menu%!24=0
�m%=menu%+28
�
m%!0=0
�m%!4=info%
�m%!8=(7<<24)� %10001
�$(m%+12)="Info"
�
�
m%+=24
�m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
$(m%+12)="Quit"
�

"� �receive(q%)
,� A%
6A%=q%!16
@Ȏ A% �
J� 0:�die
T
^� 3:n$=�sget(q%+44)
h'       sendth%=q%!4:icontype%=q%!40
r       myref%=q%!8
|L       � icontype%=&FFF � ( (q%!20=-2 � q%!24=smpicon%) � q%!20=monW%) �
�        �_Fname(n$)
�        �_Dack
�        � wopen%=� � �_Open
�
        �
�<        � icontype%<>&FFF � �_setupW("Need a text file")
�       �
�� &502:   Ȏ � �
�q             � q%!32=-2 � q%!36=smpicon%:mes$="This is the PIC Assembler icon.|MAssemble PIC controller code"
�             :mes$=""
�             �
�    � mes$<>"" �
�    q%!12=q%!8
�    $(q%+20)=mes$+�0
    q%!0=(20+�mes$+4)� � 3
    q%!16=&503
(    ș "Wimp_SendMessage",18,q%,q%!4
&�
0�
:
D� �_Dack
Nsendth%=q%!4
Xmyref%=q%!8
b"ș "Wimp_GetPointerInfo",,q%+8
lq%!28=q%!8
vq%!32=q%!12
�q%!0=(44+�n$+4)� � 3
�q%!12=myref%
�q%!16=4
�q%!36=-1
�q%!40=&FF9
�$(q%+44)=n$+�0
�'ș "Wimp_SendMessage",17,q%,sendth%
��
��
�
�ݤsget(x%)
�� x$
�ȕ ?x% x$+=�(?x%):x%+=1:�
=x$


ݤicon
 q%!0=-1
*
q%!4=0
4q%!8=10 : � Y DIRECTION
>q%!12=70 : � X DIRECTION
Hq%!16=96
Rq%!20=&2002
\$(q%+24)="!Asm84"
f$ș "Wimp_CreateIcon",,q% � icon%
p
=icon%
z
�� �_setupW(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
�
warnOn%=�
�ș "Wimp_OpenWindow",,q%
��
�
�� �errorbox
�� SYS "Wimp_DragBox",,-1
�2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
�*ș "Wimp_ReportError",buffers%,1,"PIC"
	�die
	�
	
	$	��die
	.*ș "Wimp_CloseDown",taskhand%,!taskid%
	8�
	B�
	L
	V� �_KeyPress
	`
Ȏ q%!0 �
	j%� monW%: �_GetinName:�_Fname(fn$)
	t�
	~�
	�
	�� �_GetPrams
	�� A$
	�q%!0=Wn%!0
	�InFile$=�sget(SPoint%(4))
	�ListFile$=�sget(SPoint%(5))
	�ObjFile$=�sget(SPoint%(6))
	��
	�
	�� Verify file names
	�
� �vfn
	�� V%
V%=1

� �InFile$,"$")=0 � V%=0
� �ListFile$,"$")=0 � V%=0
� �ObjFile$,"$")=0 � V%=0
(=V%
2
<
� �opf
F� V%
PV%=1
ZF%=�(InFile$)
dFL%=�(ListFile$)
n� F%=0 � FL%=0 � V%=0
x=V%
�
�
� �closeF
�� F%<>0 � �#F%
�3� FL%<>0 � �#FL%:�("SETTYPE "+ListFile$+" FFF")
�
�writeObj
��
�
�� �_PutPrams(n%,V%)
��_sput(SPoint%(n%),�(V%))
�@ș"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
��
�
�� �_PutPramsS(n%,V$)
�_sput(SPoint%(n%),V$)
@ș"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
�
"
,� �_sput(x%,X$)
6� A%
@� A%=1 � �(X$)
J?x%=�(�X$,A%,1))
T	x%+=1
^�
h	?x%=0
r�
|
�� �_GetinName
�� T%,A%,F$
�F$="":fn$=""
�q%!0=monW%:q%!4=4
�ș "Wimp_GetIconState",,q%
�T%=q%!28
�	T%-=1
��
�	T%+=1
�F$=F$+�(?T%)
�� ?T%=0
�fn$=�F$,1,�(F$)-1)
��

� �_Fname(n$)
InFile$=n$
&�_PutPramsS(4,n$)
0�_PutPramsS(7,"?")
:ListFile$=�mkfn(n$,"/L")
DObjFile$=�mkfn(n$,"/H")
N�_PutPramsS(5,ListFile$)
X�_PutPramsS(6,ObjFile$)
b�
l
v� �mkfn(S$,A$)
�� T$,P$,A%
�A%=�(S$)+1
��
�	A%-=1
�T$=�S$,A%,1)
�� T$="."
�P$=�S$,A%)
�T$=�S$,�(S$)-A%)
�T$=T$+A$
�� �(T$)>10 � T$=�T$,10)
�
=P$+T$
�
�A� -----------------------------------------------------------

� �_INIT

� A%=1 � OpN%

   � Mne$(A%),Op%(A%),It%(A%)

 �

*
Errors%=0

4�

>

H� �_Ass

R
�mWipe

\LinesP%=0:TotalL%=0

f
Lables%=0

pLastlable%=0

zComment%=�

�NcNl%=�

�ș"Hourglass_Start",1

�

�� Pass%=1 � 2

�� Pass%=2 � �head

�
Errors%=0

�Address%=0

��

�C� Pass%=2 � ș"Hourglass_Percentage",50+100*(LinesP%/TotalL%)/2

�  n%=0:La%=0

�  nm$=�pars

�  LinesP%+=1

�  � nm$="endc" �
  constblock%=0
(  �sprint(" cblock end"):�sprint("")
  �
$   � constblock%=-1 �
.�_Lable(nm$)
8d%=constval%
B&� Pass%=1 � LabVal%(Lastlable%)=d%
LV$=�sl("       "+nm$,16)
V.�sprint(V$+"     "+�~(d%)+"h"):�sprint("")
`constval%+=1
j�
t  � nm$="END" � nm$="end"
~*  � La%=1 � �nm$,1)<>":" � nm$=nm$+":"
�  � �nm$,1)=":" �
�a  � �(�nm$,1)) <&41 � �eprint(" Lable must start with a letter ") � �sprint(nm$):�_Lable(nm$)
�  �
�:   � nm$<>"end" � nm$<>";" � (�(�#F%)) � �_Mnomic(nm$)
�  �
� �
��
�� nm$="end" � �#F%
��sprint("end"):�sprint("")
�<� Pass%=1 � �#F%:F%=�(InFile$):TotalL%=LinesP%:LinesP%=0
��
�
Pass%=2


�memUsage
�sprint("")
/�sprint(�(Lables%)+" Lables & Constants:-")
(�sprint("")
2&�sprint("Hex    Name"):�sprint("")
<� A%=0 � Lables%-1
F�p(LabVal%(A%))
P�sprint(Lable$(A%))
Z�sprint("")
d�
n�sprint("")
x$�sprint(�(Errors%)+" "+"Errors")
�� Errors%<>0 �
�� Errors%>100 � Errors%=100
��sprint("")
�� A%=1 � Errors%
�0�sprint(Estr$(A%)+" at line "+�(Elist%(A%)))
��sprint("")
��
��
�ș"Hourglass_Smash"
��
�
�� �_Mnomic(m$)
�� P1$,P2$,V$,d%
  V$=m$
  m$=�lc(m$)

"  �
,    n%=n%+1
6  � Mne$(n%)=m$ � n%>OpN%
@
J  � n%>OpN% �
T/    � see if it is a lable - search for equ
^    P1$=�pars:P1$=�lc(P1$)
h    � P1$="equ" �
r      �_Lable(V$)
|"      P2$=�pars:d%=�const(P2$)
�,      � Pass%=1 � LabVal%(Lastlable%)=d%
�!      V$=�sl("       "+V$,16)
�6      �sprint(V$+"     "+P1$+" "+P2$+"          ")
�	    �
�1      �eprint(m$+" is not a valid Mnemonic ")
�	    �
�'    � NcNl%=� � NcNl%=�:�sprint("")
�  �
�    Fop%=Op%(n%)
�#    � It%(n%)<>6 � �p(Address%)
�    
�    Ȏ It%(n%) �
�    � 0:  m$=�sl(m$,22)
    � 1:  P1$=�pars
             d%=�const(P1$)
T             � d%<&80 � d%>-1 � Fop%=Fop% � d% � �eprint(" File reg too large ")
&             P2$=�pars
0             d%=-1
:5             � P2$="W" � P2$="w" � P2$="0" � d%=0
D7             � P2$="F" � P2$="f" � P2$="1" � d%=&80
N;             � d%=-1 � �eprint(" Invalid destination ")
X             Fop%=Fop% � d%
b             m$=�sl(m$,6)
l.             m$=�sl(m$+" "+P1$+","+P2$,22)
v    � 2:  P1$=�pars
�             d%=�const(P1$)
�M             � d%< &80 � Fop%=Fop% � d% � �eprint(" File reg too large ")
�             P2$=�pars
�1             � d%=VAL(RIGHT$(P2$,LEN(P2$)-1))
�             d%=�const(P2$)
�N             � d%>7 �eprint(" Bit number too large") � Fop%=Fop% � (d%<<7)
�             m$=�sl(m$,6)
�.             m$=�sl(m$+" "+P1$+","+P2$,22)
�    � 3:  P1$=�pars
�             d%=�const(P1$)
�J             � d%< &100 � Fop%=Fop% � d% � �eprint(" Number too big ")
�             m$=�sl(m$,6)
�&             m$=�sl(m$+" "+P1$,22)
    � 4:  P1$=�pars
             d%=�const(P1$)
I             � d%< &80 � Fop%=Fop% � d% � �eprint(" Number too big ")
 A             � m$="tris" � d%>7 � �eprint(" Number too big ")
*             m$=�sl(m$,6)
4&             m$=�sl(m$+" "+P1$,22)
>    � 5:  P1$=�pars
H             d%=�const(P1$)
RJ             � d%< &400 � Fop%=Fop% � d% � �eprint(" Branch too far ")
\             m$=�sl(m$,6)
f&             m$=�sl(m$+" "+P1$,22)
p    � 6:  �psudo
z
�	    �
�    
�*    � It%(n%)<>6 � �mem(Fop%):�p(Fop%)
�    �sprint(m$)
�'    � NcNl%=� � NcNl%=�:�sprint("")
�"    � It%(n%)<>6 � Address%+=1
�  �
��
�
�� �psudo
�� v%,a%,S$
�Ȏ m$ �
�� "org":P1$=�pars
#           Address%=�const(P1$)
0           m$="              "+m$+"    "+P1$

$� "list":P1$=�pars
.t           � �P1$,"16C84")=0 � �eprint(" Incorrect processor "):m$=m$+" "+P1$ � m$="              "+m$+"   "+P1$
8           
B� "equb":P1$=�pars
L            v%=�const(P1$)
V!            � v%>255 � V%<0 �
`/            �eprint(" Byte Value too big ")
j            �
t            �p(Address%)
~+            �mem(v%):�p(v%):Address%+=1
�(            m$=�sl(m$+"    "+P1$,22)
�            �
�� "equs":�_Pstr(0)
�� "rets":�_Pstr(&3400)
�� "cblock":P1$=�pars
�'              constval%=�const(P1$)
�               constblock%=-1
�              �sprint("")
�G              �sprint(" definitions starting at "+�~constval%+"h ")
�*              �sprint(""):�sprint(" ")
�              �
��
�


� �_Pstr(op%)
 �sprint("              "+m$)
(	m$=""
2�sprint("")
<�
F� �(�#F%) � a%=�#F% � a%=10
P� a%=10 � a%=�("'")
Z� a%=�("'") �
d�
n� �(�#F%) � a%=�#F% � a%=10
x� a%<>10 � a%<>�("'") �
��p(Address%)
�a%=a% � op%
��mem(a%):�p(a%):Address%+=1
� � op%<>0 � �sprint("retlw ")
��sprint("'"+�(a%)+"'")
��sprint("")
��
�� a%=10 � a%=�("'")
�1� a%=10 � �eprint(" No terminating quote ' ")
��
�"�eprint(" No literal string ")
��
��

� Do the lable logic

� �LabLog
"� e%,p1$,p2$,d%,o%
,o%=�
6e%=�P$,"^")
@
� e%<>0 �
J%p1$=�P$,e%-1) : p2$=�P$,�(P$)-e%)
T d%=�const(p1$) � �const(p2$)
^o%=�
h�
re%=�P$,"+")
|� e%<>0 � o% �
�%p1$=�P$,e%-1) : p2$=�P$,�(P$)-e%)
� d%=�const(p1$) � �const(p2$)
�o%=�
��
�e%=�P$,".")
�� e%<>0 � o% �
�%p1$=�P$,e%-1) : p2$=�P$,�(P$)-e%)
� d%=�const(p1$) � �const(p2$)
�o%=�
��
�e%=�P$,"!")
�� e%<>0 � o% �
�%p1$=�P$,e%-1) : p2$=�P$,�(P$)-e%)
 d%=�const(p1$) + �const(p2$)
o%=�
�
&e%=�P$,"-")
0� e%<>0 � o% �
:%p1$=�P$,e%-1) : p2$=�P$,�(P$)-e%)
D d%=�const(p1$) - �const(p2$)
No%=�
X�
b
l
� o% �
v� Search for lable value
�
  s%=0
�%  ȕ s%<>Lables% � Lable$(s%)<>P$
�  s%+=1
�  �
�B  � s%=Lables% � �eprint(" Undefined lable ") � d%=LabVal%(s%)
� �
�=d%
��
�
>#� make string a standard length
H� �sl(N$,L%)
R� t$
\� �(N$)<L% �
f+N$=N$+"                               "
pt$=�N$,L%)
z�
�	t$=N$
��
�=t$
�
�8� Extract a constant in hex or decimal eg. 0dh or 13
�:� Also look for constant containg ' like:-  b'0011001'
�1� or a lable value if not start with a letter
�� �const(P$)
�� d%,a%,e%,s%,p1$,p2$,l%
�3� �P$,2)="0x" � �P$,2)="0X" � P$="0"+�P$,3)+"h"
�%� �P$,1)="." � P$="d'"+�P$,2)+"'"
�d%=0
�l%=�clab(P$)
� �P$,1)="'" � l%=0
3� (�(�P$,1)) < &3A � �(�P$,2,1)) =&27) � l%=0 �
  � �P$,1)="h" � �P$,1)="H" �
$	 s%=1
. � a%=�(P$)-1 � 1 � -1
8 e%=�(�P$,a%,1))
B? � e%>&66 � (e%>&46 � e%<&61) � e%<&30 � �eprint("Bad hex")
L+ � e%<&3A � e%=e% � &F � e%=(e% � &F)+9
V d%=d%+e%*s%
`
 s%=s%*16
j �
t �
~ e%=�P$,"'")
� � e%<>0 �
� d%=�altnum(P$)
� �
�
 d%=�(P$)
�4 � �(d%)<>P$ � �eprint(" Value not understood ")
� �
� �
��
�5� Extract a lable value first look for arithmitic
� d%=�LabLog
��
�=d%


*� See if string contains any operators
� �clab(s$)
� L%
(L%=0
2L%=�s$,"^")
<L%+=�s$,"+")
FL%+=�s$,".")
PL%+=�s$,"!")
ZL%+=�s$,"-")
d=L%
n
x� Define a lable
�� �_Lable(l$)
�� n%
�� Pass%=1 �
�"� �l$,1)=":" � l$=�l$,�(l$)-1)
��
�    n%=n%+1
�  � Mne$(n%)=l$ � n%>33
�
� n%>33 �
�
  n%=0
�%  ȕ n%<>Lables% � Lable$(n%)<>l$
�  n%+=1
�  �
�  � n%<>Lables% � n%<>0 �
"  �eprint(" Duplicate lable ")
  �
  Lable$(n%)=l$
"  LabVal%(n%)=Address%
,  Lastlable%=n%
6  Lables%+=1
@3  � Lables%>MxL% � �eprint(" Too many Lables ")
J  �
T�
^�eprint(" Reserved word ")
h�
r�
|� �l$,1)=":" � �sprint("")
��
�
�� �altnum(g$)
�� v%,t$,a%,w%,e%
�t$=�(�(�g$,1)))
�� t$="'" �
�t$=�(�(�g$,1)) � &20)
�Ȏ t$ �
�� "h": g$=�btq(g$)
�          v%=0:w%=1
�!          � a%=�(g$) � 1 � -1
�          e%=�(�g$,a%,1))
�H          � e%>&66 � (e%>&46 � e%<&61) � e%<&30 � �eprint("Bad hex")
4          � e%<&3A � e%=e% � &F � e%=(e% � &F)+9
          v%=v%+e%*w%
          w%=w%*16
&          �
0� "d": g$=�btq(g$)
:          v%=�(g$)
DC          � �(v%)<>g$ � �eprint("Decimal value not understood")
N� "o": g$=�btq(g$)
X          v%=0:w%=1
b!          � a%=�(g$) � 1 � -1
l          e%=�(�g$,a%,1))
v6          � e%>&37 � e%<&30 � �eprint("Bad octal")
�          e%=e% � &F
�          v%=v%+e%*w%
�          w%=w%*8
�          �
�� "b": g$=�btq(g$)
�          v%=0:w%=1
�!          � a%=�(g$) � 1 � -1
�          e%=�(�g$,a%,1))
�:          � �(e%=&30 � e%=&31) � �eprint("Bad binary")
�$          � e%=&31 � e%=1 � e%=0
�          v%=v%+e%*w%
�          w%=w%*2
�          �
� "'": v%=�(�P$,2,1))
% �eprint("Value not understood")
�
 �
*v%=0
4�eprint("missing end '")
>�
H=v%
R
\(� extract a value between the quotes
f� �btq(p$)
p� q$,e%,a%
z	q$=""
�a%=3
��
�e$=�p$,a%,1)
�� e$<>"'" � q$=q$+e$
�	a%+=1
�� e$="'"
�=q$
�
�&� print a hex number with 4 places
�� �p(N%)
�� A$
�A$=�~N%
�� �(A$)=1 � A$="000"+A$
� �(A$)=2 � A$="00"+A$
� �(A$)=3 � A$="0"+A$
�sprint(A$+"   ")
$�
.
8� convert to lower case
B
� �lc(N$)
L� a%,L$
V	L$=""
`� a%=1 � �(N$)
jL$=L$+�(�(�N$,a%,1)) � &60)
t�
~=L$
�
�$� Pars an instruction or a lable
�� �pars
�� a%,N$,C$
��
� � �(�#F%) � a%=�#F% � a%=&3B
�� a%>&1F � La%+=1
�� a%=&0A � �sprint("")
�� a%>&20
�N$=�(a%)
�� N$<>";" �
� �
!  � �(�#F%) � a%=�#F% � a%=10

"  � a%>&20 � C$=�(a%):N$=N$+C$
 � �#F% � C$="," � a%<&21
 � a%=13 � a%=�#F%
( � a%=10 � NcNl%=�
2# � �N$,1)="," � N$=�N$,�(N$)-1)
<�
F�sprint(N$)
P�_Pc
Z�
d=N$
n
x� Pars comment
�
� �_Pc
�� b%
�
La%+=1
��
�  � �(�#F%) � b%=�#F% � b%=10
� � b%>&1F � �sprint(�(b%))
�� b%=10
��sprint("")
��
�
�� �sprint(N$)
�� Pass%=2 �
��Fstream(N$)
�
�

"� �eprint(N$)
,� Pass%=2 �
6�sprint("***  "+N$+" *** ")
@Errors%+=1
J=� Errors%<100 � Elist%(Errors%)=LinesP%:Estr$(Errors%)=N$
T�
^�
h
r� �Fstream(P$)
|� A%,B%
�
� P$="" �
��#FL%,10
��
�� A%=1 � �(P$)
�B%=�(�P$,A%,1))
��#FL%,B%
��
��
��
�
�� Mnemonic, opcode, type
�<� addwf,&700,1, andwf, &500,1,  clrf,&180,4, clrw,&100,0
�:� comf,&900,1, decf,&300,1, decfsz,&B00,1, incf,&A00,1
 <� incfsz,&F00,1, iorwf,&400,1, movf,&800,1, movwf,&080,4
 3� nop,0,0, rlf,&D00,1, rrf,&C00,1, subwf,&200,1
 :� swapf,&E00,1, xorwf,&600,1, bcf,&1000,2, bsf,&1400,2
 &N� btfsc,&1800,2, btfss,&1C00,2, addlw,&3E00,3, andlw,&3900,3, call,&2000,3
 0>� clrwdt,&64,0, goto,&2800,5, iorlw,&3800,3, movlw,&3000,3
 :<� retfie, &9,0, retlw,&3400,3, return,&8,0, sleep,&063,0
 D"� sublw,&3C00,3, xorlw,&3A00,3
 N� Instructions to phase out
 X � tris,&60,4,  option,&062,0
 b,� Type 6 instructions are psudo op codes
 lG� org,&0,6, list,&0,6, equb,&0,6, equs,&0,6, rets,&0,6, cblock,&0,6
 v
 �� �mWipe
 �� A%
 �� A%=0 � &7FF
 �ProgMemS%?A%=&FF
 ��
 �� A%=0 � &7F
 �DataMemS%?A%=&FF
 ��
 �� A%=0 � &F
 �ConfigMem%?A%=&FF
 ��
 ��
 �
!� Put opcode in memory
!� �mem(o%)
!� Base%,P%,Q%
! Base%=-1
!*?� Address%<&400 � Address%>=0 � Base%=ProgMemS%:Q%=Address%
!4J� Address%>&1FFF � Address%<&2009 � Base%=ConfigMem%:Q%=Address%-&2000
!>I� Address%>&20FF � Address%<&2140 � Base%=DataMemS%:Q%=Address%-&2100
!H� Base%=-1 �
!R%�eprint(" Address out of range ")
!\�
!fP%=Q%<<1
!pBase%?P%=o% >> 8
!zBase%?(P%+1)=o% � &FF
!��
!��
!�
!�� �memUsage
!�� A%,B%,C%
!��sprint("")
!�:�sprint("Memory Usage Map ('X' = Used, '-' = Unused)")
!��sprint("")
!�B%=0
!��
!�A%=0
!� �
!�# C%=ProgMemS%?((A%<<1)+(B%<<1))
"
 A%+=1
" � A%=&3F � C%<>&FF
"� C%<>&FF � �mLine(B%)
"$B%+=&40
".
� B%=&400
"8�sprint("")
"B�
"L
"V� �mLine(N%)
"`� A%
"j#�sprint(""):�p(N%):�sprint(":")
"t� A%=N% � N%+&3F
"~!� (A% � &10)=0 � �sprint(" ")
"�=� ProgMemS%?(1+(A%<<1))=&FF � �sprint("-") � �sprint("X")
"��
"��
"�
"�� �head
"�� D$
"�GD$=�sysV("Sys$Date")+" "+�sysV("Sys$Year")+" at "+�sysV("Sys$Time")
"�@�sprint("PIC 16C84 Assembler V1.0 by Mike Cook"):�sprint("")
"��sprint("File:- "+InFile$)
"��sprint("")
"�"�sprint("Assembled on :- "+D$)
"��sprint(""):�sprint("")
#�
#

#� �sysV(V$)
#� R$,A%,L%,B%
#(� B% 20
#2%ș"OS_ReadVarVal",V$,B%,20 � ,,L%
#<	R$=""
#F� A%=0 � L%-1
#PR$=R$+�(B%?A%)
#Z�
#d=R$
#n
#x� �writeObj
#�� from%,to%,size%,base%,n%
#�� Errors%=0 �
#�FO%=�(ObjFile$)
#�5� FO%=0 � �_setupW("Hex file can't be created"):�
#�&� Do the saving of a hex file here
#�� n%=1 � 3
#�Ȏ n% �
#�%� 1: base%=ProgMemS%  :size%=&3FF
#�$� 2: base%=DataMemS%  :size%=&3F
#�"� 3: base%=ConfigMem% :size%=7
#��
#�
#�to%=0:from%=0
$�
$#from%=�sused(base%,to%,size%+1)
$A� from%<size% � to%=�sUnused(base%,from%,size%+1) � to%=from%
$"/� from%<(size%+1) � �sLine(base%,from%,to%)
$,
to%+=1
$6� from%>=size%
$@�
$J	�_eof
$T'�#FO%:�("SETTYPE "+ObjFile$+" 084")
$^�
$h�
$r
$|� �sused(B%,S%,E%)
$�� P%
$�	P%=S%
$��
$�C%=B%?(P%<<1)
$�	P%+=1
$�� C%<>&FF � P%>E%
$�	=P%-1
$�
$�� �sUnused(B%,S%,E%)
$�� P%
$�	P%=S%
$��
$�C%=B%?(P%<<1)
%	P%+=1
%� C%=&FF � P%>E%
%	=P%-1
%&
%0!� �sLine(Base%,Start%,Limit%)
%:"� A%,D1%,D2%,P%,B%,C%,Add%,Wa%
%DLimit%=Limit%
%NAdd%=Start%
%X$� Base%=DataMemS%  � Add%+=&2100
%b$� Base%=ConfigMem% � Add%+=&2000
%l
A%=Start%
%v�
%��#FO%,�(":")
%�/� (A%+4)<=Limit% � P%=8 � P%=(Limit%-A%)<<1
%�� P%=0 � P%=2
%�Check%=0
%��asc(P%)
%�Wa%=Add%<<1
%� �asc(Wa%>>8):�asc(Wa% � &FF)
%��asc(0)
%�� B%=1 � P%/2
%�D1%=Base%?(A%<<1)
%�D2%=Base%?((A%<<1)+1)
%�
�asc(D2%)
%�
�asc(D1%)
&A%+=1:Add%+=1
&�
&C%=(�(Check%)+1) � &FF
& �asc(C%)
&*�#FO%,13
&4�#FO%,10
&>� A%>=Limit%
&H�
&R
&\� �_eof
&f� Put end of file marker
&p�#FO%,�(":")
&z-�asc(0):�asc(0):�asc(0):�asc(1):�asc(&FF)
&��#FO%,13
&��#FO%,10
&��
&�
&�� �asc(N%)
&�� S$
&�Check%+=N%
&�S$=�~(N%>>4)
&��#FO%,�(S$)
&�S$=�~(N% � &F)
&��#FO%,�(S$)
&��
&�
�

00000000  0d 00 0a 22 f4 20 50 69  63 20 31 36 43 38 34 20  |...". Pic 16C84 |
00000010  61 73 73 65 6d 62 6c 65  72 20 6f 70 65 72 61 6e  |assembler operan|
00000020  64 73 0d 00 14 1e f4 20  56 65 72 73 69 6f 6e 20  |ds..... Version |
00000030  31 2e 32 20 42 79 20 4d  69 6b 65 20 43 6f 6f 6b  |1.2 By Mike Cook|
00000040  0d 00 1e 19 f4 20 41 6c  6c 20 72 69 67 68 74 73  |..... All rights|
00000050  20 72 65 73 65 72 76 65  64 0d 00 28 4e de 20 71  | reserved..(N. q|
00000060  25 20 26 33 30 30 2c 71  63 25 20 38 30 2c 20 57  |% &300,qc% 80, W|
00000070  6e 25 20 26 33 30 30 2c  74 65 6d 70 25 20 32 35  |n% &300,temp% 25|
00000080  36 2c 62 75 66 66 65 72  73 25 20 35 31 32 2c 6d  |6,buffers% 512,m|
00000090  65 6e 75 25 20 31 32 38  2c 53 57 25 20 32 35 36  |enu% 128,SW% 256|
000000a0  2c 63 62 25 20 31 38 0d  00 32 4b de 20 49 73 4e  |,cb% 18..2K. IsN|
000000b0  61 6d 65 25 20 33 35 36  2c 20 57 6d 65 6e 75 25  |ame% 356, Wmenu%|
000000c0  20 35 31 32 2c 53 6d 65  6e 75 25 20 32 35 36 2c  | 512,Smenu% 256,|
000000d0  49 6d 65 6e 75 25 20 32  35 36 2c 20 54 65 78 74  |Imenu% 256, Text|
000000e0  57 61 72 6e 25 20 31 30  30 2c 20 77 77 25 20 32  |Warn% 100, ww% 2|
000000f0  35 36 0d 00 3c 04 0d 00  46 11 ee 20 85 20 f2 65  |56..<...F.. . .e|
00000100  72 72 6f 72 62 6f 78 0d  00 50 2a de 20 74 61 73  |rrorbox..P*. tas|
00000110  6b 69 64 25 34 2c 69 6e  74 6d 65 73 73 25 20 32  |kid%4,intmess% 2|
00000120  30 3a 24 74 61 73 6b 69  64 25 3d 22 54 41 53 4b  |0:$taskid%="TASK|
00000130  22 0d 00 5a 49 69 6e 74  6d 65 73 73 25 21 30 3d  |"..ZIintmess%!0=|
00000140  31 3a 69 6e 74 6d 65 73  73 25 21 34 3d 32 3a 69  |1:intmess%!4=2:i|
00000150  6e 74 6d 65 73 73 25 21  38 3d 33 3a 69 6e 74 6d  |ntmess%!8=3:intm|
00000160  65 73 73 25 21 31 32 3d  26 35 30 32 3a 69 6e 74  |ess%!12=&502:int|
00000170  6d 65 73 73 25 21 31 36  3d 30 0d 00 64 53 c8 99  |mess%!16=0..dS..|
00000180  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000190  65 22 2c 33 30 30 2c 21  74 61 73 6b 69 64 25 2c  |e",300,!taskid%,|
000001a0  22 50 49 43 2d 41 73 73  65 6d 62 6c 65 72 22 2c  |"PIC-Assembler",|
000001b0  69 6e 74 6d 65 73 73 25  20 b8 20 76 65 72 73 69  |intmess% . versi|
000001c0  6f 6e 25 2c 74 61 73 6b  68 61 6e 64 25 0d 00 6e  |on%,taskhand%..n|
000001d0  04 0d 00 78 0c 4d 78 4c  25 3d 33 30 30 0d 00 82  |...x.MxL%=300...|
000001e0  0b 4f 70 4e 25 3d 34 33  0d 00 8c 45 de 20 4d 6e  |.OpN%=43...E. Mn|
000001f0  65 24 28 4f 70 4e 25 2b  31 29 2c 4f 70 25 28 4f  |e$(OpN%+1),Op%(O|
00000200  70 4e 25 2b 31 29 2c 49  74 25 28 4f 70 4e 25 2b  |pN%+1),It%(OpN%+|
00000210  31 29 2c 4c 61 62 6c 65  24 28 4d 78 4c 25 29 2c  |1),Lable$(MxL%),|
00000220  4c 61 62 56 61 6c 25 28  4d 78 4c 25 29 0d 00 96  |LabVal%(MxL%)...|
00000230  4d de 20 53 37 25 28 39  29 2c 20 53 50 6f 69 6e  |M. S7%(9), SPoin|
00000240  74 25 28 37 29 2c 49 58  25 28 37 29 2c 49 59 25  |t%(7),IX%(7),IY%|
00000250  28 37 29 2c 49 58 31 25  28 37 29 2c 49 59 31 25  |(7),IX1%(7),IY1%|
00000260  28 37 29 2c 45 6c 69 73  74 25 28 31 30 30 29 2c  |(7),Elist%(100),|
00000270  45 73 74 72 24 28 31 30  30 29 0d 00 a0 31 de 20  |Estr$(100)...1. |
00000280  50 72 6f 67 4d 65 6d 53  25 20 26 38 30 30 2c 44  |ProgMemS% &800,D|
00000290  61 74 61 4d 65 6d 53 25  20 31 32 38 2c 20 43 6f  |ataMemS% 128, Co|
000002a0  6e 66 69 67 4d 65 6d 25  20 31 36 0d 00 aa 04 0d  |nfigMem% 16.....|
000002b0  00 b4 33 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..3.. "Wimp_Open|
000002c0  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 50 49 43  |Template",,"<PIC|
000002d0  38 34 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |84$Dir>.Template|
000002e0  73 22 0d 00 be 29 ee 20  85 20 c8 99 20 22 57 69  |s"...). . .. "Wi|
000002f0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000300  22 3a f2 65 72 72 6f 72  62 6f 78 0d 00 c8 3a c8  |":.errorbox...:.|
00000310  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000320  6c 61 74 65 22 2c 2c 71  25 2c 74 65 6d 70 25 2c  |late",,q%,temp%,|
00000330  74 65 6d 70 25 2b 32 35  36 2c 2d 31 2c 22 49 6e  |temp%+256,-1,"In|
00000340  66 6f 22 2c 30 0d 00 d2  26 c8 99 20 22 57 69 6d  |fo",0...&.. "Wim|
00000350  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000360  2c 71 25 20 b8 20 69 6e  66 6f 25 0d 00 dc 3c c8  |,q% . info%...<.|
00000370  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000380  6c 61 74 65 22 2c 2c 57  6e 25 2b 34 2c 53 57 25  |late",,Wn%+4,SW%|
00000390  2c 53 57 25 2b 32 35 36  2c 2d 31 2c 22 43 6f 6e  |,SW%+256,-1,"Con|
000003a0  74 72 6f 6c 22 2c 30 0d  00 e6 0d 57 6e 25 21 32  |trol",0....Wn%!2|
000003b0  38 3d 2d 31 0d 00 f0 0e  e3 20 41 25 3d 30 20 b8  |8=-1..... A%=0 .|
000003c0  20 37 0d 00 fa 24 53 50  6f 69 6e 74 25 28 41 25  | 7...$SPoint%(A%|
000003d0  29 3d 21 28 57 6e 25 2b  34 2b 38 38 2b 32 30 2b  |)=!(Wn%+4+88+20+|
000003e0  33 32 2a 41 25 29 0d 01  04 39 49 58 25 28 41 25  |32*A%)...9IX%(A%|
000003f0  29 3d 21 28 57 6e 25 2b  34 2b 38 38 2b 33 32 2a  |)=!(Wn%+4+88+32*|
00000400  41 25 29 3a 49 59 25 28  41 25 29 3d 21 28 57 6e  |A%):IY%(A%)=!(Wn|
00000410  25 2b 34 2b 38 38 2b 34  2b 33 32 2a 41 25 29 0d  |%+4+88+4+32*A%).|
00000420  01 0e 3e 49 58 31 25 28  41 25 29 3d 21 28 57 6e  |..>IX1%(A%)=!(Wn|
00000430  25 2b 34 2b 38 38 2b 38  2b 33 32 2a 41 25 29 3a  |%+4+88+8+32*A%):|
00000440  49 59 31 25 28 41 25 29  3d 21 28 57 6e 25 2b 34  |IY1%(A%)=!(Wn%+4|
00000450  2b 38 38 2b 31 32 2b 33  32 2a 41 25 29 0d 01 18  |+88+12+32*A%)...|
00000460  05 ed 0d 01 22 04 0d 01  2c 29 c8 99 20 22 57 69  |...."...,).. "Wi|
00000470  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000480  2c 2c 57 6e 25 2b 34 20  b8 20 6d 6f 6e 57 25 0d  |,,Wn%+4 . monW%.|
00000490  01 36 19 57 6e 25 21 30  3d 6d 6f 6e 57 25 3a 57  |.6.Wn%!0=monW%:W|
000004a0  6e 25 21 32 38 3d 2d 31  0d 01 40 04 0d 01 4a 39  |n%!28=-1..@...J9|
000004b0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000004c0  70 6c 61 74 65 22 2c 2c  71 25 2c 77 77 25 2c 77  |plate",,q%,ww%,w|
000004d0  77 25 2b 32 35 36 2c 2d  31 2c 22 57 61 72 6e 69  |w%+256,-1,"Warni|
000004e0  6e 67 22 2c 30 0d 01 54  29 71 25 21 31 30 38 3d  |ng",0..T)q%!108=|
000004f0  54 65 78 74 57 61 72 6e  25 3a 71 25 21 31 31 32  |TextWarn%:q%!112|
00000500  3d 2d 31 3a 71 25 21 31  31 36 3d 33 30 30 0d 01  |=-1:q%!116=300..|
00000510  5e 20 58 51 25 3d 71 25  21 38 2d 71 25 21 30 3a  |^ XQ%=q%!8-q%!0:|
00000520  59 51 25 3d 71 25 21 31  32 2d 71 25 21 34 0d 01  |YQ%=q%!12-q%!4..|
00000530  68 2a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |h*.. "Wimp_Creat|
00000540  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 77  |eWindow",,q% . w|
00000550  61 72 6e 69 6e 67 57 25  0d 01 72 1b c8 99 20 22  |arningW%..r... "|
00000560  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
00000570  74 65 22 0d 01 7c 04 0d  01 86 04 0d 01 90 12 73  |te"..|.........s|
00000580  6d 70 69 63 6f 6e 25 3d  a4 69 63 6f 6e 0d 01 9a  |mpicon%=.icon...|
00000590  16 77 6f 70 65 6e 25 3d  a3 3a 77 61 72 6e 4f 6e  |.wopen%=.:warnOn|
000005a0  25 3d a3 0d 01 a4 0c 49  6e 57 69 6e 25 3d a3 0d  |%=.....InWin%=..|
000005b0  01 ae 0e f2 73 65 74 75  70 6d 65 6e 75 0d 01 b8  |....setupmenu...|
000005c0  13 f2 5f 50 75 74 50 72  61 6d 73 28 37 2c 30 29  |.._PutPrams(7,0)|
000005d0  0d 01 c2 23 f2 5f 50 75  74 50 72 61 6d 73 53 28  |...#._PutPramsS(|
000005e0  34 2c 22 44 72 61 67 20  46 69 6c 65 20 48 65 72  |4,"Drag File Her|
000005f0  65 22 29 0d 01 cc 0a f2  5f 49 4e 49 54 0d 01 d6  |e")....._INIT...|
00000600  0c 43 68 65 63 6b 25 3d  30 0d 01 e0 11 63 6f 6e  |.Check%=0....con|
00000610  73 74 62 6c 6f 63 6b 25  3d 30 0d 01 ea 0f 63 6f  |stblock%=0....co|
00000620  6e 73 74 76 61 6c 25 3d  30 0d 01 f4 04 0d 01 fe  |nstval%=0.......|
00000630  05 f5 0d 02 08 1d 20 c8  99 20 22 57 69 6d 70 5f  |...... .. "Wimp_|
00000640  50 6f 6c 6c 22 2c 30 2c  71 25 20 b8 20 41 25 0d  |Poll",0,q% . A%.|
00000650  02 12 0d 20 20 c8 8e 20  41 25 20 ca 0d 02 1c 0d  |...  .. A% .....|
00000660  20 20 20 c9 20 31 3a ef  37 0d 02 26 4f 20 20 20  |   . 1:.7..&O   |
00000670  c9 20 32 3a c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |. 2:.."OS_ReadMo|
00000680  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 33  |deVariable",-1,3|
00000690  20 b8 20 2c 2c 4e 63 6f  6c 6f 75 72 73 25 3a 20  | . ,,Ncolours%: |
000006a0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000006b0  64 6f 77 22 2c 2c 71 25  0d 02 30 12 20 20 20 c9  |dow",,q%..0.   .|
000006c0  20 33 3a f2 5f 63 6c 6f  73 65 0d 02 3a 21 20 20  | 3:._close..:!  |
000006d0  20 c9 20 34 3a 49 6e 57  69 6e 25 3d a3 3a 4c 58  | . 4:InWin%=.:LX|
000006e0  25 3d 2d 31 3a 4c 59 25  3d 2d 31 0d 02 44 13 20  |%=-1:LY%=-1..D. |
000006f0  20 20 c9 20 35 3a 49 6e  57 69 6e 25 3d b9 0d 02  |  . 5:InWin%=...|
00000700  4e 19 20 20 20 c9 20 36  3a f2 5f 64 6f 5f 63 6c  |N.   . 6:._do_cl|
00000710  69 63 6b 28 71 25 29 0d  02 58 18 20 20 20 c9 20  |ick(q%)..X.   . |
00000720  37 3a f2 5f 50 75 74 44  6f 77 6e 28 71 25 29 0d  |7:._PutDown(q%).|
00000730  02 62 15 20 20 20 c9 20  38 3a f2 5f 4b 65 79 50  |.b.   . 8:._KeyP|
00000740  72 65 73 73 0d 02 6c 16  20 20 20 c9 20 39 3a f2  |ress..l.   . 9:.|
00000750  5f 53 4f 52 54 5f 4d 65  6e 75 0d 02 76 1b 20 20  |_SORT_Menu..v.  |
00000760  20 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  | . 17,18:.receiv|
00000770  65 28 71 25 29 0d 02 80  08 20 20 20 cb 0d 02 8a  |e(q%)....   ....|
00000780  08 20 fd 20 a3 0d 02 94  04 0d 02 9e 05 e0 0d 02  |. . ............|
00000790  a8 04 0d 02 b2 04 0d 02  bc 11 dd 20 f2 5f 53 4f  |........... ._SO|
000007a0  52 54 5f 4d 65 6e 75 0d  02 c6 13 20 e7 20 21 71  |RT_Menu.... . !q|
000007b0  25 3d 31 20 8c 20 f2 64  69 65 0d 02 d0 05 cd 0d  |%=1 . .die......|
000007c0  02 da 05 e1 0d 02 e4 04  0d 02 ee 0d dd 20 f2 5f  |............. ._|
000007d0  63 6c 6f 73 65 0d 02 f8  37 e7 20 71 25 21 30 3d  |close...7. q%!0=|
000007e0  6d 6f 6e 57 25 20 8c 20  c8 99 22 57 69 6d 70 5f  |monW% . .."Wimp_|
000007f0  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
00000800  57 6e 25 3a 77 6f 70 65  6e 25 3d a3 0d 03 02 20  |Wn%:wopen%=.... |
00000810  e7 20 71 25 21 30 3d 77  61 72 6e 69 6e 67 57 25  |. q%!0=warningW%|
00000820  20 8c 20 77 61 72 6e 4f  6e 25 3d a3 0d 03 0c 1d  | . warnOn%=.....|
00000830  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00000840  6e 64 6f 77 22 2c 2c 71  25 0d 03 16 05 e1 0d 03  |ndow",,q%.......|
00000850  20 04 0d 03 2a 14 dd 20  f2 5f 64 6f 5f 63 6c 69  | ...*.. ._do_cli|
00000860  63 6b 28 71 25 29 0d 03  34 0c 69 25 3d 71 25 21  |ck(q%)..4.i%=q%!|
00000870  31 36 0d 03 3e 0e c8 8e  20 71 25 21 31 32 20 ca  |16..>... q%!12 .|
00000880  0d 03 48 28 c9 20 77 61  72 6e 69 6e 67 57 25 3a  |..H(. warningW%:|
00000890  20 71 25 21 30 3d 77 61  72 6e 69 6e 67 57 25 20  | q%!0=warningW% |
000008a0  3a f2 5f 63 6c 6f 73 65  0d 03 52 28 c9 20 2d 32  |:._close..R(. -2|
000008b0  3a 20 f4 20 4c 6f 6f 6b  20 66 69 72 73 74 20 61  |: . Look first a|
000008c0  74 20 49 63 6f 6e 20 42  61 72 20 43 6c 69 63 6b  |t Icon Bar Click|
000008d0  0d 03 5c 1e 20 20 20 20  20 20 20 20 e7 20 71 25  |..\.        . q%|
000008e0  21 31 36 3d 73 6d 70 69  63 6f 6e 25 20 8c 0d 03  |!16=smpicon% ...|
000008f0  66 49 20 20 20 20 20 20  20 20 e7 20 71 25 21 38  |fI        . q%!8|
00000900  3d 32 20 8c 20 c8 99 22  57 69 6d 70 5f 43 72 65  |=2 . .."Wimp_Cre|
00000910  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00000920  71 25 21 30 2d 37 34 2c  31 38 30 3a 49 63 6f 6e  |q%!0-74,180:Icon|
00000930  4d 65 6e 75 25 3d b9 0d  03 70 1d 20 20 20 20 20  |Menu%=...p.     |
00000940  20 20 20 e7 20 71 25 21  38 3d 34 20 8c 20 f2 5f  |   . q%!8=4 . ._|
00000950  4f 70 65 6e 0d 03 7a 0d  20 20 20 20 20 20 20 20  |Open..z.        |
00000960  cd 0d 03 84 04 0d 03 8e  0e c9 20 6d 6f 6e 57 25  |.......... monW%|
00000970  3a 20 20 0d 03 98 27 20  20 20 20 20 20 20 20 20  |:  ...'         |
00000980  20 20 20 20 20 e7 20 71  25 21 38 3d 34 20 8c 20  |     . q%!8=4 . |
00000990  f2 5f 4d 6f 6e 43 6c 69  63 6b 0d 03 a2 50 20 20  |._MonClick...P  |
000009a0  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 71 25  |            . q%|
000009b0  21 38 3d 32 20 8c 20 c8  99 22 57 69 6d 70 5f 43  |!8=2 . .."Wimp_C|
000009c0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
000009d0  25 2c 71 25 21 30 2d 39  36 2c 71 25 21 34 3a 49  |%,q%!0-96,q%!4:I|
000009e0  63 6f 6e 4d 65 6e 75 25  3d a3 0d 03 ac 05 cb 0d  |conMenu%=.......|
000009f0  03 b6 05 e1 0d 03 c0 04  0d 03 ca 04 0d 03 d4 10  |................|
00000a00  dd 20 f2 5f 4d 6f 6e 43  6c 69 63 6b 0d 03 de 0e  |. ._MonClick....|
00000a10  ea 20 44 25 2c 56 25 2c  42 25 0d 03 e8 26 f4 20  |. D%,V%,B%...&. |
00000a20  44 6f 20 74 68 65 20 61  63 74 69 6f 6e 20 66 6f  |Do the action fo|
00000a30  72 20 61 20 77 69 6e 64  6f 77 20 63 6c 69 63 6b  |r a window click|
00000a40  0d 03 f2 0b c8 8e 20 69  25 20 ca 0d 03 fc 16 20  |...... i% ..... |
00000a50  20 20 c9 20 38 3a 20 f2  5f 47 65 74 50 72 61 6d  |  . 8: ._GetPram|
00000a60  73 0d 04 06 16 20 20 20  20 20 20 20 20 20 20 20  |s....           |
00000a70  44 25 3d a4 76 66 6e 0d  04 10 17 20 20 20 20 20  |D%=.vfn....     |
00000a80  20 20 20 20 20 20 e7 20  44 25 3d 30 20 8c 0d 04  |      . D%=0 ...|
00000a90  1a 32 20 20 20 20 20 20  20 20 20 20 20 20 f2 5f  |.2            ._|
00000aa0  73 65 74 75 70 57 28 22  4e 65 65 64 20 74 6f 20  |setupW("Need to |
00000ab0  73 70 65 63 69 66 79 20  61 20 66 69 6c 65 22 29  |specify a file")|
00000ac0  0d 04 24 11 20 20 20 20  20 20 20 20 20 20 20 20  |..$.            |
00000ad0  cc 0d 04 2e 17 20 20 20  20 20 20 20 20 20 20 20  |.....           |
00000ae0  20 44 25 3d a4 6f 70 66  0d 04 38 18 20 20 20 20  | D%=.opf..8.    |
00000af0  20 20 20 20 20 20 20 20  e7 20 44 25 3d 30 20 8c  |        . D%=0 .|
00000b00  0d 04 42 32 20 20 20 20  20 20 20 20 20 20 20 20  |..B2            |
00000b10  20 f2 5f 73 65 74 75 70  57 28 22 46 69 6c 65 73  | ._setupW("Files|
00000b20  20 63 61 6e 27 74 20 62  65 20 6f 70 65 6e 65 64  | can't be opened|
00000b30  22 29 0d 04 4c 12 20 20  20 20 20 20 20 20 20 20  |")..L.          |
00000b40  20 20 20 cc 0d 04 56 1e  20 20 20 20 20 20 20 20  |   ...V.        |
00000b50  20 20 20 20 20 f4 20 44  4f 20 41 73 73 65 6d 62  |     . DO Assemb|
00000b60  6c 79 0d 04 60 16 20 20  20 20 20 20 20 20 20 20  |ly..`.          |
00000b70  20 20 20 f2 5f 41 73 73  0d 04 6a 26 20 20 20 20  |   ._Ass..j&    |
00000b80  20 20 20 20 20 20 20 20  20 f2 5f 50 75 74 50 72  |         ._PutPr|
00000b90  61 6d 73 28 37 2c 45 72  72 6f 72 73 25 29 0d 04  |ams(7,Errors%)..|
00000ba0  74 11 20 20 20 20 20 20  20 20 20 20 20 20 cd 0d  |t.            ..|
00000bb0  04 7e 17 20 20 20 20 20  20 20 20 20 20 20 20 f2  |.~.            .|
00000bc0  63 6c 6f 73 65 46 0d 04  88 10 20 20 20 20 20 20  |closeF....      |
00000bd0  20 20 20 20 20 cd 0d 04  92 06 20 cb 0d 04 9c 05  |     ..... .....|
00000be0  e1 0d 04 a6 04 0d 04 b0  0c dd 20 f2 5f 4f 70 65  |.......... ._Ope|
00000bf0  6e 0d 04 ba 2e c8 99 22  4f 53 5f 52 65 61 64 4d  |n......"OS_ReadM|
00000c00  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00000c10  33 20 b8 20 2c 2c 4e 63  6f 6c 6f 75 72 73 25 0d  |3 . ,,Ncolours%.|
00000c20  04 c4 19 f4 20 4f 50 45  4e 20 55 50 20 57 49 4e  |.... OPEN UP WIN|
00000c30  44 4f 57 20 48 45 52 45  0d 04 ce 0e e7 20 77 6f  |DOW HERE..... wo|
00000c40  70 65 6e 25 20 8c 0d 04  d8 0e 71 25 21 30 3d 6d  |pen% .....q%!0=m|
00000c50  6f 6e 57 25 0d 04 e2 1f  c8 99 22 57 69 6d 70 5f  |onW%......"Wimp_|
00000c60  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000c70  2c 71 25 0d 04 ec 36 20  20 e7 20 71 25 21 32 38  |,q%...6  . q%!28|
00000c80  3c 3e 2d 31 20 8c 20 71  25 21 32 38 3d 2d 31 3a  |<>-1 . q%!28=-1:|
00000c90  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00000ca0  6e 64 6f 77 22 2c 2c 71  25 0d 04 f6 05 cc 0d 05  |ndow",,q%.......|
00000cb0  00 1d c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |.... "Wimp_OpenW|
00000cc0  69 6e 64 6f 77 22 2c 2c  57 6e 25 0d 05 0a 0c 77  |indow",,Wn%....w|
00000cd0  6f 70 65 6e 25 3d b9 0d  05 14 05 cd 0d 05 1e 05  |open%=..........|
00000ce0  e1 0d 05 28 04 0d 05 32  0f dd f2 73 65 74 75 70  |...(...2...setup|
00000cf0  6d 65 6e 75 0d 05 3c 08  ea 20 6d 25 0d 05 46 04  |menu..<.. m%..F.|
00000d00  0d 05 50 10 24 6d 65 6e  75 25 3d 22 50 49 43 22  |..P.$menu%="PIC"|
00000d10  0d 05 5a 0e 6d 65 6e 75  25 3f 31 32 3d 37 0d 05  |..Z.menu%?12=7..|
00000d20  64 0e 6d 65 6e 75 25 3f  31 33 3d 32 0d 05 6e 0e  |d.menu%?13=2..n.|
00000d30  6d 65 6e 75 25 3f 31 34  3d 37 0d 05 78 0e 6d 65  |menu%?14=7..x.me|
00000d40  6e 75 25 3f 31 35 3d 30  0d 05 82 10 6d 65 6e 75  |nu%?15=0....menu|
00000d50  25 21 31 36 3d 31 32 38  0d 05 8c 0f 6d 65 6e 75  |%!16=128....menu|
00000d60  25 21 32 30 3d 34 30 0d  05 96 0e 6d 65 6e 75 25  |%!20=40....menu%|
00000d70  21 32 34 3d 30 0d 05 a0  0f 6d 25 3d 6d 65 6e 75  |!24=0....m%=menu|
00000d80  25 2b 32 38 0d 05 aa 0a  6d 25 21 30 3d 30 0d 05  |%+28....m%!0=0..|
00000d90  b4 0e 6d 25 21 34 3d 69  6e 66 6f 25 0d 05 be 18  |..m%!4=info%....|
00000da0  6d 25 21 38 3d 28 37 3c  3c 32 34 29 84 20 25 31  |m%!8=(7<<24). %1|
00000db0  30 30 30 31 0d 05 c8 13  24 28 6d 25 2b 31 32 29  |0001....$(m%+12)|
00000dc0  3d 22 49 6e 66 6f 22 0d  05 d2 04 0d 05 dc 0a 6d  |="Info"........m|
00000dd0  25 2b 3d 32 34 0d 05 e6  0c 6d 25 21 30 3d 26 38  |%+=24....m%!0=&8|
00000de0  30 0d 05 f0 0a 6d 25 21  34 3d 30 0d 05 fa 18 6d  |0....m%!4=0....m|
00000df0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
00000e00  30 30 31 0d 06 04 13 24  28 6d 25 2b 31 32 29 3d  |001....$(m%+12)=|
00000e10  22 51 75 69 74 22 0d 06  0e 05 e1 0d 06 18 04 0d  |"Quit"..........|
00000e20  06 22 12 dd 20 f2 72 65  63 65 69 76 65 28 71 25  |.".. .receive(q%|
00000e30  29 0d 06 2c 08 ea 20 41  25 0d 06 36 0c 41 25 3d  |)..,.. A%..6.A%=|
00000e40  71 25 21 31 36 0d 06 40  0b c8 8e 20 41 25 20 ca  |q%!16..@... A% .|
00000e50  0d 06 4a 0c c9 20 30 3a  f2 64 69 65 0d 06 54 04  |..J.. 0:.die..T.|
00000e60  0d 06 5e 17 c9 20 33 3a  6e 24 3d a4 73 67 65 74  |..^.. 3:n$=.sget|
00000e70  28 71 25 2b 34 34 29 0d  06 68 27 20 20 20 20 20  |(q%+44)..h'     |
00000e80  20 20 73 65 6e 64 74 68  25 3d 71 25 21 34 3a 69  |  sendth%=q%!4:i|
00000e90  63 6f 6e 74 79 70 65 25  3d 71 25 21 34 30 0d 06  |contype%=q%!40..|
00000ea0  72 16 20 20 20 20 20 20  20 6d 79 72 65 66 25 3d  |r.       myref%=|
00000eb0  71 25 21 38 0d 06 7c 4c  20 20 20 20 20 20 20 e7  |q%!8..|L       .|
00000ec0  20 69 63 6f 6e 74 79 70  65 25 3d 26 46 46 46 20  | icontype%=&FFF |
00000ed0  80 20 28 20 28 71 25 21  32 30 3d 2d 32 20 80 20  |. ( (q%!20=-2 . |
00000ee0  71 25 21 32 34 3d 73 6d  70 69 63 6f 6e 25 29 20  |q%!24=smpicon%) |
00000ef0  84 20 71 25 21 32 30 3d  6d 6f 6e 57 25 29 20 8c  |. q%!20=monW%) .|
00000f00  0d 06 86 17 20 20 20 20  20 20 20 20 f2 5f 46 6e  |....        ._Fn|
00000f10  61 6d 65 28 6e 24 29 0d  06 90 12 20 20 20 20 20  |ame(n$)....     |
00000f20  20 20 20 f2 5f 44 61 63  6b 0d 06 9a 1f 20 20 20  |   ._Dack....   |
00000f30  20 20 20 20 20 e7 20 77  6f 70 65 6e 25 3d a3 20  |     . wopen%=. |
00000f40  8c 20 f2 5f 4f 70 65 6e  0d 06 a4 0d 20 20 20 20  |. ._Open....    |
00000f50  20 20 20 20 cc 0d 06 ae  3c 20 20 20 20 20 20 20  |    ....<       |
00000f60  20 e7 20 69 63 6f 6e 74  79 70 65 25 3c 3e 26 46  | . icontype%<>&F|
00000f70  46 46 20 8c 20 f2 5f 73  65 74 75 70 57 28 22 4e  |FF . ._setupW("N|
00000f80  65 65 64 20 61 20 74 65  78 74 20 66 69 6c 65 22  |eed a text file"|
00000f90  29 0d 06 b8 0c 20 20 20  20 20 20 20 cd 0d 06 c2  |)....       ....|
00000fa0  14 c9 20 26 35 30 32 3a  20 20 20 c8 8e 20 b9 20  |.. &502:   .. . |
00000fb0  ca 0d 06 cc 71 20 20 20  20 20 20 20 20 20 20 20  |....q           |
00000fc0  20 20 c9 20 71 25 21 33  32 3d 2d 32 20 80 20 71  |  . q%!32=-2 . q|
00000fd0  25 21 33 36 3d 73 6d 70  69 63 6f 6e 25 3a 6d 65  |%!36=smpicon%:me|
00000fe0  73 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |s$="This is the |
00000ff0  50 49 43 20 41 73 73 65  6d 62 6c 65 72 20 69 63  |PIC Assembler ic|
00001000  6f 6e 2e 7c 4d 41 73 73  65 6d 62 6c 65 20 50 49  |on.|MAssemble PI|
00001010  43 20 63 6f 6e 74 72 6f  6c 6c 65 72 20 63 6f 64  |C controller cod|
00001020  65 22 0d 06 d6 1a 20 20  20 20 20 20 20 20 20 20  |e"....          |
00001030  20 20 20 7f 3a 6d 65 73  24 3d 22 22 0d 06 e0 12  |   .:mes$=""....|
00001040  20 20 20 20 20 20 20 20  20 20 20 20 20 cb 0d 06  |             ...|
00001050  ea 14 20 20 20 20 e7 20  6d 65 73 24 3c 3e 22 22  |..    . mes$<>""|
00001060  20 8c 0d 06 f4 12 20 20  20 20 71 25 21 31 32 3d  | .....    q%!12=|
00001070  71 25 21 38 0d 06 fe 18  20 20 20 20 24 28 71 25  |q%!8....    $(q%|
00001080  2b 32 30 29 3d 6d 65 73  24 2b bd 30 0d 07 08 1e  |+20)=mes$+.0....|
00001090  20 20 20 20 71 25 21 30  3d 28 32 30 2b a9 6d 65  |    q%!0=(20+.me|
000010a0  73 24 2b 34 29 80 20 ac  20 33 0d 07 12 12 20 20  |s$+4). . 3....  |
000010b0  20 20 71 25 21 31 36 3d  26 35 30 33 0d 07 1c 28  |  q%!16=&503...(|
000010c0  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |    .. "Wimp_Sen|
000010d0  64 4d 65 73 73 61 67 65  22 2c 31 38 2c 71 25 2c  |dMessage",18,q%,|
000010e0  71 25 21 34 0d 07 26 05  cb 0d 07 30 05 e1 0d 07  |q%!4..&....0....|
000010f0  3a 04 0d 07 44 0c dd 20  f2 5f 44 61 63 6b 0d 07  |:...D.. ._Dack..|
00001100  4e 10 73 65 6e 64 74 68  25 3d 71 25 21 34 0d 07  |N.sendth%=q%!4..|
00001110  58 0f 6d 79 72 65 66 25  3d 71 25 21 38 0d 07 62  |X.myref%=q%!8..b|
00001120  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |".. "Wimp_GetPoi|
00001130  6e 74 65 72 49 6e 66 6f  22 2c 2c 71 25 2b 38 0d  |nterInfo",,q%+8.|
00001140  07 6c 0e 71 25 21 32 38  3d 71 25 21 38 0d 07 76  |.l.q%!28=q%!8..v|
00001150  0f 71 25 21 33 32 3d 71  25 21 31 32 0d 07 80 18  |.q%!32=q%!12....|
00001160  71 25 21 30 3d 28 34 34  2b a9 6e 24 2b 34 29 80  |q%!0=(44+.n$+4).|
00001170  20 ac 20 33 0d 07 8a 10  71 25 21 31 32 3d 6d 79  | . 3....q%!12=my|
00001180  72 65 66 25 0d 07 94 0b  71 25 21 31 36 3d 34 0d  |ref%....q%!16=4.|
00001190  07 9e 0c 71 25 21 33 36  3d 2d 31 0d 07 a8 0e 71  |...q%!36=-1....q|
000011a0  25 21 34 30 3d 26 46 46  39 0d 07 b2 12 24 28 71  |%!40=&FF9....$(q|
000011b0  25 2b 34 34 29 3d 6e 24  2b bd 30 0d 07 bc 27 c8  |%+44)=n$+.0...'.|
000011c0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
000011d0  61 67 65 22 2c 31 37 2c  71 25 2c 73 65 6e 64 74  |age",17,q%,sendt|
000011e0  68 25 0d 07 c6 05 cd 0d  07 d0 05 e1 0d 07 da 04  |h%..............|
000011f0  0d 07 e4 0e dd a4 73 67  65 74 28 78 25 29 0d 07  |......sget(x%)..|
00001200  ee 08 ea 20 78 24 0d 07  f8 1d c8 95 20 3f 78 25  |... x$...... ?x%|
00001210  20 78 24 2b 3d bd 28 3f  78 25 29 3a 78 25 2b 3d  | x$+=.(?x%):x%+=|
00001220  31 3a ce 0d 08 02 07 3d  78 24 0d 08 0c 04 0d 08  |1:.....=x$......|
00001230  16 0a dd a4 69 63 6f 6e  0d 08 20 0b 71 25 21 30  |....icon.. .q%!0|
00001240  3d 2d 31 0d 08 2a 0a 71  25 21 34 3d 30 0d 08 34  |=-1..*.q%!4=0..4|
00001250  1b 71 25 21 38 3d 31 30  20 3a 20 f4 20 59 20 44  |.q%!8=10 : . Y D|
00001260  49 52 45 43 54 49 4f 4e  0d 08 3e 1c 71 25 21 31  |IRECTION..>.q%!1|
00001270  32 3d 37 30 20 3a 20 f4  20 58 20 44 49 52 45 43  |2=70 : . X DIREC|
00001280  54 49 4f 4e 0d 08 48 0c  71 25 21 31 36 3d 39 36  |TION..H.q%!16=96|
00001290  0d 08 52 0f 71 25 21 32  30 3d 26 32 30 30 32 0d  |..R.q%!20=&2002.|
000012a0  08 5c 15 24 28 71 25 2b  32 34 29 3d 22 21 41 73  |.\.$(q%+24)="!As|
000012b0  6d 38 34 22 0d 08 66 24  c8 99 20 22 57 69 6d 70  |m84"..f$.. "Wimp|
000012c0  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 71 25  |_CreateIcon",,q%|
000012d0  20 b8 20 69 63 6f 6e 25  0d 08 70 0a 3d 69 63 6f  | . icon%..p.=ico|
000012e0  6e 25 0d 08 7a 04 0d 08  84 12 dd 20 f2 5f 73 65  |n%..z...... ._se|
000012f0  74 75 70 57 28 74 24 29  0d 08 8e 58 21 71 25 3d  |tupW(t$)...X!q%=|
00001300  77 61 72 6e 69 6e 67 57  25 3a 71 25 21 34 3d 32  |warningW%:q%!4=2|
00001310  30 30 3a 71 25 21 38 3d  32 30 30 3a 71 25 21 31  |00:q%!8=200:q%!1|
00001320  32 3d 32 30 30 2b 58 51  25 3a 71 25 21 31 36 3d  |2=200+XQ%:q%!16=|
00001330  32 30 30 2b 59 51 25 3a  71 25 21 32 30 3d 30 3a  |200+YQ%:q%!20=0:|
00001340  71 25 21 32 34 3d 30 3a  71 25 21 32 38 3d 2d 31  |q%!24=0:q%!28=-1|
00001350  0d 08 98 11 24 54 65 78  74 57 61 72 6e 25 3d 74  |....$TextWarn%=t|
00001360  24 0d 08 a2 15 54 65 78  74 57 61 72 6e 25 3f a9  |$....TextWarn%?.|
00001370  28 74 24 29 3d 30 0d 08  ac 07 ef 20 37 0d 08 b6  |(t$)=0..... 7...|
00001380  0d 77 61 72 6e 4f 6e 25  3d b9 0d 08 c0 1c c8 99  |.warnOn%=.......|
00001390  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000013a0  77 22 2c 2c 71 25 0d 08  ca 05 e1 0d 08 d4 04 0d  |w",,q%..........|
000013b0  08 de 0f dd 20 f2 65 72  72 6f 72 62 6f 78 0d 08  |.... .errorbox..|
000013c0  e8 1c f4 20 53 59 53 20  22 57 69 6d 70 5f 44 72  |... SYS "Wimp_Dr|
000013d0  61 67 42 6f 78 22 2c 2c  2d 31 0d 08 f2 32 21 62  |agBox",,-1...2!b|
000013e0  75 66 66 65 72 73 25 3d  9f 3a 24 28 62 75 66 66  |uffers%=.:$(buff|
000013f0  65 72 73 25 2b 34 29 3d  f6 24 2b 22 20 61 74 20  |ers%+4)=.$+" at |
00001400  6c 69 6e 65 20 22 2b c3  9e 2b bd 30 0d 08 fc 2a  |line "+..+.0...*|
00001410  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00001420  72 72 6f 72 22 2c 62 75  66 66 65 72 73 25 2c 31  |rror",buffers%,1|
00001430  2c 22 50 49 43 22 0d 09  06 08 f2 64 69 65 0d 09  |,"PIC".....die..|
00001440  10 05 e1 0d 09 1a 04 0d  09 24 09 dd f2 64 69 65  |.........$...die|
00001450  0d 09 2e 2a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...*.. "Wimp_Clo|
00001460  73 65 44 6f 77 6e 22 2c  74 61 73 6b 68 61 6e 64  |seDown",taskhand|
00001470  25 2c 21 74 61 73 6b 69  64 25 0d 09 38 05 e0 0d  |%,!taskid%..8...|
00001480  09 42 05 e1 0d 09 4c 04  0d 09 56 10 dd 20 f2 5f  |.B....L...V.. ._|
00001490  4b 65 79 50 72 65 73 73  0d 09 60 0d c8 8e 20 71  |KeyPress..`... q|
000014a0  25 21 30 20 ca 0d 09 6a  25 c9 20 6d 6f 6e 57 25  |%!0 ...j%. monW%|
000014b0  3a 20 f2 5f 47 65 74 69  6e 4e 61 6d 65 3a f2 5f  |: ._GetinName:._|
000014c0  46 6e 61 6d 65 28 66 6e  24 29 0d 09 74 05 cb 0d  |Fname(fn$)..t...|
000014d0  09 7e 05 e1 0d 09 88 04  0d 09 92 10 dd 20 f2 5f  |.~........... ._|
000014e0  47 65 74 50 72 61 6d 73  0d 09 9c 08 ea 20 41 24  |GetPrams..... A$|
000014f0  0d 09 a6 0e 71 25 21 30  3d 57 6e 25 21 30 0d 09  |....q%!0=Wn%!0..|
00001500  b0 1d 49 6e 46 69 6c 65  24 3d a4 73 67 65 74 28  |..InFile$=.sget(|
00001510  53 50 6f 69 6e 74 25 28  34 29 29 0d 09 ba 1f 4c  |SPoint%(4))....L|
00001520  69 73 74 46 69 6c 65 24  3d a4 73 67 65 74 28 53  |istFile$=.sget(S|
00001530  50 6f 69 6e 74 25 28 35  29 29 0d 09 c4 1e 4f 62  |Point%(5))....Ob|
00001540  6a 46 69 6c 65 24 3d a4  73 67 65 74 28 53 50 6f  |jFile$=.sget(SPo|
00001550  69 6e 74 25 28 36 29 29  0d 09 ce 05 e1 0d 09 d8  |int%(6))........|
00001560  04 0d 09 e2 17 f4 20 56  65 72 69 66 79 20 66 69  |...... Verify fi|
00001570  6c 65 20 6e 61 6d 65 73  0d 09 ec 0a dd 20 a4 76  |le names..... .v|
00001580  66 6e 0d 09 f6 08 ea 20  56 25 0d 0a 00 08 56 25  |fn..... V%....V%|
00001590  3d 31 0d 0a 0a 1c e7 20  a7 49 6e 46 69 6c 65 24  |=1..... .InFile$|
000015a0  2c 22 24 22 29 3d 30 20  8c 20 56 25 3d 30 0d 0a  |,"$")=0 . V%=0..|
000015b0  14 1e e7 20 a7 4c 69 73  74 46 69 6c 65 24 2c 22  |... .ListFile$,"|
000015c0  24 22 29 3d 30 20 8c 20  56 25 3d 30 0d 0a 1e 1d  |$")=0 . V%=0....|
000015d0  e7 20 a7 4f 62 6a 46 69  6c 65 24 2c 22 24 22 29  |. .ObjFile$,"$")|
000015e0  3d 30 20 8c 20 56 25 3d  30 0d 0a 28 07 3d 56 25  |=0 . V%=0..(.=V%|
000015f0  0d 0a 32 04 0d 0a 3c 0a  dd 20 a4 6f 70 66 0d 0a  |..2...<.. .opf..|
00001600  46 08 ea 20 56 25 0d 0a  50 08 56 25 3d 31 0d 0a  |F.. V%..P.V%=1..|
00001610  5a 11 46 25 3d 8e 28 49  6e 46 69 6c 65 24 29 0d  |Z.F%=.(InFile$).|
00001620  0a 64 14 46 4c 25 3d ae  28 4c 69 73 74 46 69 6c  |.d.FL%=.(ListFil|
00001630  65 24 29 0d 0a 6e 19 e7  20 46 25 3d 30 20 84 20  |e$)..n.. F%=0 . |
00001640  46 4c 25 3d 30 20 8c 20  56 25 3d 30 0d 0a 78 07  |FL%=0 . V%=0..x.|
00001650  3d 56 25 0d 0a 82 04 0d  0a 8c 0d dd 20 f2 63 6c  |=V%......... .cl|
00001660  6f 73 65 46 0d 0a 96 12  e7 20 46 25 3c 3e 30 20  |oseF..... F%<>0 |
00001670  8c 20 d9 23 46 25 0d 0a  a0 33 e7 20 46 4c 25 3c  |. .#F%...3. FL%<|
00001680  3e 30 20 8c 20 d9 23 46  4c 25 3a ff 28 22 53 45  |>0 . .#FL%:.("SE|
00001690  54 54 59 50 45 20 22 2b  4c 69 73 74 46 69 6c 65  |TTYPE "+ListFile|
000016a0  24 2b 22 20 46 46 46 22  29 0d 0a aa 0d f2 77 72  |$+" FFF").....wr|
000016b0  69 74 65 4f 62 6a 0d 0a  b4 05 e1 0d 0a be 04 0d  |iteObj..........|
000016c0  0a c8 17 dd 20 f2 5f 50  75 74 50 72 61 6d 73 28  |.... ._PutPrams(|
000016d0  6e 25 2c 56 25 29 0d 0a  d2 1d f2 5f 73 70 75 74  |n%,V%)....._sput|
000016e0  28 53 50 6f 69 6e 74 25  28 6e 25 29 2c c3 28 56  |(SPoint%(n%),.(V|
000016f0  25 29 29 0d 0a dc 40 c8  99 22 57 69 6d 70 5f 46  |%))...@.."Wimp_F|
00001700  6f 72 63 65 52 65 64 72  61 77 22 2c 6d 6f 6e 57  |orceRedraw",monW|
00001710  25 2c 49 58 25 28 6e 25  29 2c 49 59 25 28 6e 25  |%,IX%(n%),IY%(n%|
00001720  29 2c 49 58 31 25 28 6e  25 29 2c 49 59 31 25 28  |),IX1%(n%),IY1%(|
00001730  6e 25 29 0d 0a e6 05 e1  0d 0a f0 04 0d 0a fa 18  |n%).............|
00001740  dd 20 f2 5f 50 75 74 50  72 61 6d 73 53 28 6e 25  |. ._PutPramsS(n%|
00001750  2c 56 24 29 0d 0b 04 1a  f2 5f 73 70 75 74 28 53  |,V$)....._sput(S|
00001760  50 6f 69 6e 74 25 28 6e  25 29 2c 56 24 29 0d 0b  |Point%(n%),V$)..|
00001770  0e 40 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.@.."Wimp_ForceR|
00001780  65 64 72 61 77 22 2c 6d  6f 6e 57 25 2c 49 58 25  |edraw",monW%,IX%|
00001790  28 6e 25 29 2c 49 59 25  28 6e 25 29 2c 49 58 31  |(n%),IY%(n%),IX1|
000017a0  25 28 6e 25 29 2c 49 59  31 25 28 6e 25 29 0d 0b  |%(n%),IY1%(n%)..|
000017b0  18 05 e1 0d 0b 22 04 0d  0b 2c 13 dd 20 f2 5f 73  |....."...,.. ._s|
000017c0  70 75 74 28 78 25 2c 58  24 29 0d 0b 36 08 ea 20  |put(x%,X$)..6.. |
000017d0  41 25 0d 0b 40 12 e3 20  41 25 3d 31 20 b8 20 a9  |A%..@.. A%=1 . .|
000017e0  28 58 24 29 0d 0b 4a 14  3f 78 25 3d 97 28 c1 58  |(X$)..J.?x%=.(.X|
000017f0  24 2c 41 25 2c 31 29 29  0d 0b 54 09 78 25 2b 3d  |$,A%,1))..T.x%+=|
00001800  31 0d 0b 5e 05 ed 0d 0b  68 09 3f 78 25 3d 30 0d  |1..^....h.?x%=0.|
00001810  0b 72 05 e1 0d 0b 7c 04  0d 0b 86 11 dd 20 f2 5f  |.r....|...... ._|
00001820  47 65 74 69 6e 4e 61 6d  65 0d 0b 90 0e ea 20 54  |GetinName..... T|
00001830  25 2c 41 25 2c 46 24 0d  0b 9a 10 46 24 3d 22 22  |%,A%,F$....F$=""|
00001840  3a 66 6e 24 3d 22 22 0d  0b a4 15 71 25 21 30 3d  |:fn$=""....q%!0=|
00001850  6d 6f 6e 57 25 3a 71 25  21 34 3d 34 0d 0b ae 1e  |monW%:q%!4=4....|
00001860  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001870  53 74 61 74 65 22 2c 2c  71 25 0d 0b b8 0c 54 25  |State",,q%....T%|
00001880  3d 71 25 21 32 38 0d 0b  c2 09 54 25 2d 3d 31 0d  |=q%!28....T%-=1.|
00001890  0b cc 05 f5 0d 0b d6 09  54 25 2b 3d 31 0d 0b e0  |........T%+=1...|
000018a0  10 46 24 3d 46 24 2b bd  28 3f 54 25 29 0d 0b ea  |.F$=F$+.(?T%)...|
000018b0  0b fd 20 3f 54 25 3d 30  0d 0b f4 16 66 6e 24 3d  |.. ?T%=0....fn$=|
000018c0  c1 46 24 2c 31 2c a9 28  46 24 29 2d 31 29 0d 0b  |.F$,1,.(F$)-1)..|
000018d0  fe 05 e1 0d 0c 08 04 0d  0c 12 11 dd 20 f2 5f 46  |............ ._F|
000018e0  6e 61 6d 65 28 6e 24 29  0d 0c 1c 0e 49 6e 46 69  |name(n$)....InFi|
000018f0  6c 65 24 3d 6e 24 0d 0c  26 15 f2 5f 50 75 74 50  |le$=n$..&.._PutP|
00001900  72 61 6d 73 53 28 34 2c  6e 24 29 0d 0c 30 16 f2  |ramsS(4,n$)..0..|
00001910  5f 50 75 74 50 72 61 6d  73 53 28 37 2c 22 3f 22  |_PutPramsS(7,"?"|
00001920  29 0d 0c 3a 1c 4c 69 73  74 46 69 6c 65 24 3d a4  |)..:.ListFile$=.|
00001930  6d 6b 66 6e 28 6e 24 2c  22 2f 4c 22 29 0d 0c 44  |mkfn(n$,"/L")..D|
00001940  1b 4f 62 6a 46 69 6c 65  24 3d a4 6d 6b 66 6e 28  |.ObjFile$=.mkfn(|
00001950  6e 24 2c 22 2f 48 22 29  0d 0c 4e 1c f2 5f 50 75  |n$,"/H")..N.._Pu|
00001960  74 50 72 61 6d 73 53 28  35 2c 4c 69 73 74 46 69  |tPramsS(5,ListFi|
00001970  6c 65 24 29 0d 0c 58 1b  f2 5f 50 75 74 50 72 61  |le$)..X.._PutPra|
00001980  6d 73 53 28 36 2c 4f 62  6a 46 69 6c 65 24 29 0d  |msS(6,ObjFile$).|
00001990  0c 62 05 e1 0d 0c 6c 04  0d 0c 76 12 dd 20 a4 6d  |.b....l...v.. .m|
000019a0  6b 66 6e 28 53 24 2c 41  24 29 0d 0c 80 0e ea 20  |kfn(S$,A$)..... |
000019b0  54 24 2c 50 24 2c 41 25  0d 0c 8a 0e 41 25 3d a9  |T$,P$,A%....A%=.|
000019c0  28 53 24 29 2b 31 0d 0c  94 05 f5 0d 0c 9e 09 41  |(S$)+1.........A|
000019d0  25 2d 3d 31 0d 0c a8 10  54 24 3d c1 53 24 2c 41  |%-=1....T$=.S$,A|
000019e0  25 2c 31 29 0d 0c b2 0c  fd 20 54 24 3d 22 2e 22  |%,1)..... T$="."|
000019f0  0d 0c bc 0e 50 24 3d c0  53 24 2c 41 25 29 0d 0c  |....P$=.S$,A%)..|
00001a00  c6 14 54 24 3d c2 53 24  2c a9 28 53 24 29 2d 41  |..T$=.S$,.(S$)-A|
00001a10  25 29 0d 0c d0 0c 54 24  3d 54 24 2b 41 24 0d 0c  |%)....T$=T$+A$..|
00001a20  da 1b e7 20 a9 28 54 24  29 3e 31 30 20 8c 20 54  |... .(T$)>10 . T|
00001a30  24 3d c2 54 24 2c 31 30  29 0d 0c e4 0a 3d 50 24  |$=.T$,10)....=P$|
00001a40  2b 54 24 0d 0c ee 04 0d  0c f8 41 f4 20 2d 2d 2d  |+T$.......A. ---|
00001a50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001a80  2d 2d 2d 2d 2d 2d 2d 2d  0d 0d 02 0c dd 20 f2 5f  |--------..... ._|
00001a90  49 4e 49 54 0d 0d 0c 11  e3 20 41 25 3d 31 20 b8  |INIT..... A%=1 .|
00001aa0  20 4f 70 4e 25 0d 0d 16  20 20 20 f3 20 4d 6e 65  | OpN%...   . Mne|
00001ab0  24 28 41 25 29 2c 4f 70  25 28 41 25 29 2c 49 74  |$(A%),Op%(A%),It|
00001ac0  25 28 41 25 29 0d 0d 20  05 ed 0d 0d 2a 0d 45 72  |%(A%).. ....*.Er|
00001ad0  72 6f 72 73 25 3d 30 0d  0d 34 05 e1 0d 0d 3e 04  |rors%=0..4....>.|
00001ae0  0d 0d 48 0b dd 20 f2 5f  41 73 73 0d 0d 52 0a f2  |..H.. ._Ass..R..|
00001af0  6d 57 69 70 65 0d 0d 5c  17 4c 69 6e 65 73 50 25  |mWipe..\.LinesP%|
00001b00  3d 30 3a 54 6f 74 61 6c  4c 25 3d 30 0d 0d 66 0d  |=0:TotalL%=0..f.|
00001b10  4c 61 62 6c 65 73 25 3d  30 0d 0d 70 10 4c 61 73  |Lables%=0..p.Las|
00001b20  74 6c 61 62 6c 65 25 3d  30 0d 0d 7a 0e 43 6f 6d  |tlable%=0..z.Com|
00001b30  6d 65 6e 74 25 3d a3 0d  0d 84 0b 4e 63 4e 6c 25  |ment%=.....NcNl%|
00001b40  3d a3 0d 0d 8e 19 c8 99  22 48 6f 75 72 67 6c 61  |=......."Hourgla|
00001b50  73 73 5f 53 74 61 72 74  22 2c 31 0d 0d 98 04 0d  |ss_Start",1.....|
00001b60  0d a2 11 e3 20 50 61 73  73 25 3d 31 20 b8 20 32  |.... Pass%=1 . 2|
00001b70  0d 0d ac 15 e7 20 50 61  73 73 25 3d 32 20 8c 20  |..... Pass%=2 . |
00001b80  f2 68 65 61 64 0d 0d b6  0d 45 72 72 6f 72 73 25  |.head....Errors%|
00001b90  3d 30 0d 0d c0 0e 41 64  64 72 65 73 73 25 3d 30  |=0....Address%=0|
00001ba0  0d 0d ca 05 f5 0d 0d d4  43 e7 20 50 61 73 73 25  |........C. Pass%|
00001bb0  3d 32 20 8c 20 c8 99 22  48 6f 75 72 67 6c 61 73  |=2 . .."Hourglas|
00001bc0  73 5f 50 65 72 63 65 6e  74 61 67 65 22 2c 35 30  |s_Percentage",50|
00001bd0  2b 31 30 30 2a 28 4c 69  6e 65 73 50 25 2f 54 6f  |+100*(LinesP%/To|
00001be0  74 61 6c 4c 25 29 2f 32  0d 0d de 10 20 20 6e 25  |talL%)/2....  n%|
00001bf0  3d 30 3a 4c 61 25 3d 30  0d 0d e8 0f 20 20 6e 6d  |=0:La%=0....  nm|
00001c00  24 3d a4 70 61 72 73 0d  0d f2 10 20 20 4c 69 6e  |$=.pars....  Lin|
00001c10  65 73 50 25 2b 3d 31 0d  0d fc 14 20 20 e7 20 6e  |esP%+=1....  . n|
00001c20  6d 24 3d 22 65 6e 64 63  22 20 8c 0d 0e 06 13 20  |m$="endc" ..... |
00001c30  20 63 6f 6e 73 74 62 6c  6f 63 6b 25 3d 30 0d 0e  | constblock%=0..|
00001c40  10 28 20 20 f2 73 70 72  69 6e 74 28 22 20 63 62  |.(  .sprint(" cb|
00001c50  6c 6f 63 6b 20 65 6e 64  22 29 3a f2 73 70 72 69  |lock end"):.spri|
00001c60  6e 74 28 22 22 29 0d 0e  1a 07 20 20 cc 0d 0e 24  |nt("")....  ...$|
00001c70  19 20 20 20 e7 20 63 6f  6e 73 74 62 6c 6f 63 6b  |.   . constblock|
00001c80  25 3d 2d 31 20 8c 0d 0e  2e 10 f2 5f 4c 61 62 6c  |%=-1 ......_Labl|
00001c90  65 28 6e 6d 24 29 0d 0e  38 10 64 25 3d 63 6f 6e  |e(nm$)..8.d%=con|
00001ca0  73 74 76 61 6c 25 0d 0e  42 26 e7 20 50 61 73 73  |stval%..B&. Pass|
00001cb0  25 3d 31 20 8c 20 4c 61  62 56 61 6c 25 28 4c 61  |%=1 . LabVal%(La|
00001cc0  73 74 6c 61 62 6c 65 25  29 3d 64 25 0d 0e 4c 1c  |stlable%)=d%..L.|
00001cd0  56 24 3d a4 73 6c 28 22  20 20 20 20 20 20 20 22  |V$=.sl("       "|
00001ce0  2b 6e 6d 24 2c 31 36 29  0d 0e 56 2e f2 73 70 72  |+nm$,16)..V..spr|
00001cf0  69 6e 74 28 56 24 2b 22  20 20 20 20 20 22 2b c3  |int(V$+"     "+.|
00001d00  7e 28 64 25 29 2b 22 68  22 29 3a f2 73 70 72 69  |~(d%)+"h"):.spri|
00001d10  6e 74 28 22 22 29 0d 0e  60 10 63 6f 6e 73 74 76  |nt("")..`.constv|
00001d20  61 6c 25 2b 3d 31 0d 0e  6a 05 cc 0d 0e 74 1d 20  |al%+=1..j....t. |
00001d30  20 e7 20 6e 6d 24 3d 22  45 4e 44 22 20 8c 20 6e  | . nm$="END" . n|
00001d40  6d 24 3d 22 65 6e 64 22  0d 0e 7e 2a 20 20 e7 20  |m$="end"..~*  . |
00001d50  4c 61 25 3d 31 20 80 20  c2 6e 6d 24 2c 31 29 3c  |La%=1 . .nm$,1)<|
00001d60  3e 22 3a 22 20 8c 20 6e  6d 24 3d 6e 6d 24 2b 22  |>":" . nm$=nm$+"|
00001d70  3a 22 0d 0e 88 15 20 20  e7 20 c2 6e 6d 24 2c 31  |:"....  . .nm$,1|
00001d80  29 3d 22 3a 22 20 8c 0d  0e 92 61 20 20 e7 20 97  |)=":" ....a  . .|
00001d90  28 c0 6e 6d 24 2c 31 29  29 20 3c 26 34 31 20 8c  |(.nm$,1)) <&41 .|
00001da0  20 f2 65 70 72 69 6e 74  28 22 20 4c 61 62 6c 65  | .eprint(" Lable|
00001db0  20 6d 75 73 74 20 73 74  61 72 74 20 77 69 74 68  | must start with|
00001dc0  20 61 20 6c 65 74 74 65  72 20 22 29 20 8b 20 f2  | a letter ") . .|
00001dd0  73 70 72 69 6e 74 28 6e  6d 24 29 3a f2 5f 4c 61  |sprint(nm$):._La|
00001de0  62 6c 65 28 6e 6d 24 29  0d 0e 9c 07 20 20 cc 0d  |ble(nm$)....  ..|
00001df0  0e a6 3a 20 20 20 e7 20  6e 6d 24 3c 3e 22 65 6e  |..:   . nm$<>"en|
00001e00  64 22 20 80 20 6e 6d 24  3c 3e 22 3b 22 20 80 20  |d" . nm$<>";" . |
00001e10  28 ac 28 c5 23 46 25 29  29 20 8c 20 f2 5f 4d 6e  |(.(.#F%)) . ._Mn|
00001e20  6f 6d 69 63 28 6e 6d 24  29 0d 0e b0 07 20 20 cd  |omic(nm$)....  .|
00001e30  0d 0e ba 06 20 cd 0d 0e  c4 05 cd 0d 0e ce 16 fd  |.... ...........|
00001e40  20 6e 6d 24 3d 22 65 6e  64 22 20 84 20 c5 23 46  | nm$="end" . .#F|
00001e50  25 0d 0e d8 1e f2 73 70  72 69 6e 74 28 22 65 6e  |%.....sprint("en|
00001e60  64 22 29 3a f2 73 70 72  69 6e 74 28 22 22 29 0d  |d"):.sprint("").|
00001e70  0e e2 3c e7 20 50 61 73  73 25 3d 31 20 8c 20 d9  |..<. Pass%=1 . .|
00001e80  23 46 25 3a 46 25 3d 8e  28 49 6e 46 69 6c 65 24  |#F%:F%=.(InFile$|
00001e90  29 3a 54 6f 74 61 6c 4c  25 3d 4c 69 6e 65 73 50  |):TotalL%=LinesP|
00001ea0  25 3a 4c 69 6e 65 73 50  25 3d 30 0d 0e ec 05 ed  |%:LinesP%=0.....|
00001eb0  0d 0e f6 04 0d 0f 00 0b  50 61 73 73 25 3d 32 0d  |........Pass%=2.|
00001ec0  0f 0a 0d f2 6d 65 6d 55  73 61 67 65 0d 0f 14 0f  |....memUsage....|
00001ed0  f2 73 70 72 69 6e 74 28  22 22 29 0d 0f 1e 2f f2  |.sprint("").../.|
00001ee0  73 70 72 69 6e 74 28 c3  28 4c 61 62 6c 65 73 25  |sprint(.(Lables%|
00001ef0  29 2b 22 20 4c 61 62 6c  65 73 20 26 20 43 6f 6e  |)+" Lables & Con|
00001f00  73 74 61 6e 74 73 3a 2d  22 29 0d 0f 28 0f f2 73  |stants:-")..(..s|
00001f10  70 72 69 6e 74 28 22 22  29 0d 0f 32 26 f2 73 70  |print("")..2&.sp|
00001f20  72 69 6e 74 28 22 48 65  78 20 20 20 20 4e 61 6d  |rint("Hex    Nam|
00001f30  65 22 29 3a f2 73 70 72  69 6e 74 28 22 22 29 0d  |e"):.sprint("").|
00001f40  0f 3c 16 e3 20 41 25 3d  30 20 b8 20 4c 61 62 6c  |.<.. A%=0 . Labl|
00001f50  65 73 25 2d 31 0d 0f 46  13 f2 70 28 4c 61 62 56  |es%-1..F..p(LabV|
00001f60  61 6c 25 28 41 25 29 29  0d 0f 50 17 f2 73 70 72  |al%(A%))..P..spr|
00001f70  69 6e 74 28 4c 61 62 6c  65 24 28 41 25 29 29 0d  |int(Lable$(A%)).|
00001f80  0f 5a 0f f2 73 70 72 69  6e 74 28 22 22 29 0d 0f  |.Z..sprint("")..|
00001f90  64 05 ed 0d 0f 6e 0f f2  73 70 72 69 6e 74 28 22  |d....n..sprint("|
00001fa0  22 29 0d 0f 78 24 f2 73  70 72 69 6e 74 28 c3 28  |")..x$.sprint(.(|
00001fb0  45 72 72 6f 72 73 25 29  2b 22 20 22 2b 22 45 72  |Errors%)+" "+"Er|
00001fc0  72 6f 72 73 22 29 0d 0f  82 12 e7 20 45 72 72 6f  |rors")..... Erro|
00001fd0  72 73 25 3c 3e 30 20 8c  0d 0f 8c 1f e7 20 45 72  |rs%<>0 ...... Er|
00001fe0  72 6f 72 73 25 3e 31 30  30 20 8c 20 45 72 72 6f  |rors%>100 . Erro|
00001ff0  72 73 25 3d 31 30 30 0d  0f 96 0f f2 73 70 72 69  |rs%=100.....spri|
00002000  6e 74 28 22 22 29 0d 0f  a0 14 e3 20 41 25 3d 31  |nt("")..... A%=1|
00002010  20 b8 20 45 72 72 6f 72  73 25 0d 0f aa 30 f2 73  | . Errors%...0.s|
00002020  70 72 69 6e 74 28 45 73  74 72 24 28 41 25 29 2b  |print(Estr$(A%)+|
00002030  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 28 45 6c  |" at line "+.(El|
00002040  69 73 74 25 28 41 25 29  29 29 0d 0f b4 0f f2 73  |ist%(A%))).....s|
00002050  70 72 69 6e 74 28 22 22  29 0d 0f be 05 ed 0d 0f  |print("").......|
00002060  c8 05 cd 0d 0f d2 17 c8  99 22 48 6f 75 72 67 6c  |........."Hourgl|
00002070  61 73 73 5f 53 6d 61 73  68 22 0d 0f dc 05 e1 0d  |ass_Smash"......|
00002080  0f e6 04 0d 0f f0 12 dd  20 f2 5f 4d 6e 6f 6d 69  |........ ._Mnomi|
00002090  63 28 6d 24 29 0d 0f fa  13 ea 20 50 31 24 2c 50  |c(m$)..... P1$,P|
000020a0  32 24 2c 56 24 2c 64 25  0d 10 04 0b 20 20 56 24  |2$,V$,d%....  V$|
000020b0  3d 6d 24 0d 10 0e 10 20  20 6d 24 3d a4 6c 63 28  |=m$....  m$=.lc(|
000020c0  6d 24 29 0d 10 18 04 0d  10 22 07 20 20 f5 0d 10  |m$)......".  ...|
000020d0  2c 0f 20 20 20 20 6e 25  3d 6e 25 2b 31 0d 10 36  |,.    n%=n%+1..6|
000020e0  1d 20 20 fd 20 4d 6e 65  24 28 6e 25 29 3d 6d 24  |.  . Mne$(n%)=m$|
000020f0  20 84 20 6e 25 3e 4f 70  4e 25 0d 10 40 04 0d 10  | . n%>OpN%..@...|
00002100  4a 11 20 20 e7 20 6e 25  3e 4f 70 4e 25 20 8c 0d  |J.  . n%>OpN% ..|
00002110  10 54 2f 20 20 20 20 f4  20 73 65 65 20 69 66 20  |.T/    . see if |
00002120  69 74 20 69 73 20 61 20  6c 61 62 6c 65 20 2d 20  |it is a lable - |
00002130  73 65 61 72 63 68 20 66  6f 72 20 65 71 75 0d 10  |search for equ..|
00002140  5e 1e 20 20 20 20 50 31  24 3d a4 70 61 72 73 3a  |^.    P1$=.pars:|
00002150  50 31 24 3d a4 6c 63 28  50 31 24 29 0d 10 68 15  |P1$=.lc(P1$)..h.|
00002160  20 20 20 20 e7 20 50 31  24 3d 22 65 71 75 22 20  |    . P1$="equ" |
00002170  8c 0d 10 72 15 20 20 20  20 20 20 f2 5f 4c 61 62  |...r.      ._Lab|
00002180  6c 65 28 56 24 29 0d 10  7c 22 20 20 20 20 20 20  |le(V$)..|"      |
00002190  50 32 24 3d a4 70 61 72  73 3a 64 25 3d a4 63 6f  |P2$=.pars:d%=.co|
000021a0  6e 73 74 28 50 32 24 29  0d 10 86 2c 20 20 20 20  |nst(P2$)...,    |
000021b0  20 20 e7 20 50 61 73 73  25 3d 31 20 8c 20 4c 61  |  . Pass%=1 . La|
000021c0  62 56 61 6c 25 28 4c 61  73 74 6c 61 62 6c 65 25  |bVal%(Lastlable%|
000021d0  29 3d 64 25 0d 10 90 21  20 20 20 20 20 20 56 24  |)=d%...!      V$|
000021e0  3d a4 73 6c 28 22 20 20  20 20 20 20 20 22 2b 56  |=.sl("       "+V|
000021f0  24 2c 31 36 29 0d 10 9a  36 20 20 20 20 20 20 f2  |$,16)...6      .|
00002200  73 70 72 69 6e 74 28 56  24 2b 22 20 20 20 20 20  |sprint(V$+"     |
00002210  22 2b 50 31 24 2b 22 20  22 2b 50 32 24 2b 22 20  |"+P1$+" "+P2$+" |
00002220  20 20 20 20 20 20 20 20  20 22 29 0d 10 a4 09 20  |         ").... |
00002230  20 20 20 cc 0d 10 ae 31  20 20 20 20 20 20 f2 65  |   ....1      .e|
00002240  70 72 69 6e 74 28 6d 24  2b 22 20 69 73 20 6e 6f  |print(m$+" is no|
00002250  74 20 61 20 76 61 6c 69  64 20 4d 6e 65 6d 6f 6e  |t a valid Mnemon|
00002260  69 63 20 22 29 0d 10 b8  09 20 20 20 20 cd 0d 10  |ic ")....    ...|
00002270  c2 27 20 20 20 20 e7 20  4e 63 4e 6c 25 3d b9 20  |.'    . NcNl%=. |
00002280  8c 20 4e 63 4e 6c 25 3d  a3 3a f2 73 70 72 69 6e  |. NcNl%=.:.sprin|
00002290  74 28 22 22 29 0d 10 cc  07 20 20 cc 0d 10 d6 14  |t("")....  .....|
000022a0  20 20 20 20 46 6f 70 25  3d 4f 70 25 28 6e 25 29  |    Fop%=Op%(n%)|
000022b0  0d 10 e0 23 20 20 20 20  e7 20 49 74 25 28 6e 25  |...#    . It%(n%|
000022c0  29 3c 3e 36 20 8c 20 f2  70 28 41 64 64 72 65 73  |)<>6 . .p(Addres|
000022d0  73 25 29 0d 10 ea 08 20  20 20 20 0d 10 f4 14 20  |s%)....    .... |
000022e0  20 20 20 c8 8e 20 49 74  25 28 6e 25 29 20 ca 0d  |   .. It%(n%) ..|
000022f0  10 fe 1b 20 20 20 20 c9  20 30 3a 20 20 6d 24 3d  |...    . 0:  m$=|
00002300  a4 73 6c 28 6d 24 2c 32  32 29 0d 11 08 17 20 20  |.sl(m$,22)....  |
00002310  20 20 c9 20 31 3a 20 20  50 31 24 3d a4 70 61 72  |  . 1:  P1$=.par|
00002320  73 0d 11 12 1f 20 20 20  20 20 20 20 20 20 20 20  |s....           |
00002330  20 20 64 25 3d a4 63 6f  6e 73 74 28 50 31 24 29  |  d%=.const(P1$)|
00002340  0d 11 1c 54 20 20 20 20  20 20 20 20 20 20 20 20  |...T            |
00002350  20 e7 20 64 25 3c 26 38  30 20 80 20 64 25 3e 2d  | . d%<&80 . d%>-|
00002360  31 20 8c 20 46 6f 70 25  3d 46 6f 70 25 20 84 20  |1 . Fop%=Fop% . |
00002370  64 25 20 8b 20 f2 65 70  72 69 6e 74 28 22 20 46  |d% . .eprint(" F|
00002380  69 6c 65 20 72 65 67 20  74 6f 6f 20 6c 61 72 67  |ile reg too larg|
00002390  65 20 22 29 0d 11 26 1a  20 20 20 20 20 20 20 20  |e ")..&.        |
000023a0  20 20 20 20 20 50 32 24  3d a4 70 61 72 73 0d 11  |     P2$=.pars..|
000023b0  30 16 20 20 20 20 20 20  20 20 20 20 20 20 20 64  |0.             d|
000023c0  25 3d 2d 31 0d 11 3a 35  20 20 20 20 20 20 20 20  |%=-1..:5        |
000023d0  20 20 20 20 20 e7 20 50  32 24 3d 22 57 22 20 84  |     . P2$="W" .|
000023e0  20 50 32 24 3d 22 77 22  20 84 20 50 32 24 3d 22  | P2$="w" . P2$="|
000023f0  30 22 20 8c 20 64 25 3d  30 0d 11 44 37 20 20 20  |0" . d%=0..D7   |
00002400  20 20 20 20 20 20 20 20  20 20 e7 20 50 32 24 3d  |          . P2$=|
00002410  22 46 22 20 84 20 50 32  24 3d 22 66 22 20 84 20  |"F" . P2$="f" . |
00002420  50 32 24 3d 22 31 22 20  8c 20 64 25 3d 26 38 30  |P2$="1" . d%=&80|
00002430  0d 11 4e 3b 20 20 20 20  20 20 20 20 20 20 20 20  |..N;            |
00002440  20 e7 20 64 25 3d 2d 31  20 8c 20 f2 65 70 72 69  | . d%=-1 . .epri|
00002450  6e 74 28 22 20 49 6e 76  61 6c 69 64 20 64 65 73  |nt(" Invalid des|
00002460  74 69 6e 61 74 69 6f 6e  20 22 29 0d 11 58 1f 20  |tination ")..X. |
00002470  20 20 20 20 20 20 20 20  20 20 20 20 46 6f 70 25  |            Fop%|
00002480  3d 46 6f 70 25 20 84 20  64 25 0d 11 62 1d 20 20  |=Fop% . d%..b.  |
00002490  20 20 20 20 20 20 20 20  20 20 20 6d 24 3d a4 73  |           m$=.s|
000024a0  6c 28 6d 24 2c 36 29 0d  11 6c 2e 20 20 20 20 20  |l(m$,6)..l.     |
000024b0  20 20 20 20 20 20 20 20  6d 24 3d a4 73 6c 28 6d  |        m$=.sl(m|
000024c0  24 2b 22 20 22 2b 50 31  24 2b 22 2c 22 2b 50 32  |$+" "+P1$+","+P2|
000024d0  24 2c 32 32 29 0d 11 76  17 20 20 20 20 c9 20 32  |$,22)..v.    . 2|
000024e0  3a 20 20 50 31 24 3d a4  70 61 72 73 0d 11 80 1f  |:  P1$=.pars....|
000024f0  20 20 20 20 20 20 20 20  20 20 20 20 20 64 25 3d  |             d%=|
00002500  a4 63 6f 6e 73 74 28 50  31 24 29 0d 11 8a 4d 20  |.const(P1$)...M |
00002510  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 64 25  |            . d%|
00002520  3c 20 26 38 30 20 8c 20  46 6f 70 25 3d 46 6f 70  |< &80 . Fop%=Fop|
00002530  25 20 84 20 64 25 20 8b  20 f2 65 70 72 69 6e 74  |% . d% . .eprint|
00002540  28 22 20 46 69 6c 65 20  72 65 67 20 74 6f 6f 20  |(" File reg too |
00002550  6c 61 72 67 65 20 22 29  0d 11 94 1a 20 20 20 20  |large ")....    |
00002560  20 20 20 20 20 20 20 20  20 50 32 24 3d a4 70 61  |         P2$=.pa|
00002570  72 73 0d 11 9e 31 20 20  20 20 20 20 20 20 20 20  |rs...1          |
00002580  20 20 20 f4 20 64 25 3d  56 41 4c 28 52 49 47 48  |   . d%=VAL(RIGH|
00002590  54 24 28 50 32 24 2c 4c  45 4e 28 50 32 24 29 2d  |T$(P2$,LEN(P2$)-|
000025a0  31 29 29 0d 11 a8 1f 20  20 20 20 20 20 20 20 20  |1))....         |
000025b0  20 20 20 20 64 25 3d a4  63 6f 6e 73 74 28 50 32  |    d%=.const(P2|
000025c0  24 29 0d 11 b2 4e 20 20  20 20 20 20 20 20 20 20  |$)...N          |
000025d0  20 20 20 e7 20 64 25 3e  37 20 f2 65 70 72 69 6e  |   . d%>7 .eprin|
000025e0  74 28 22 20 42 69 74 20  6e 75 6d 62 65 72 20 74  |t(" Bit number t|
000025f0  6f 6f 20 6c 61 72 67 65  22 29 20 8b 20 46 6f 70  |oo large") . Fop|
00002600  25 3d 46 6f 70 25 20 84  20 28 64 25 3c 3c 37 29  |%=Fop% . (d%<<7)|
00002610  0d 11 bc 1d 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
00002620  20 6d 24 3d a4 73 6c 28  6d 24 2c 36 29 0d 11 c6  | m$=.sl(m$,6)...|
00002630  2e 20 20 20 20 20 20 20  20 20 20 20 20 20 6d 24  |.             m$|
00002640  3d a4 73 6c 28 6d 24 2b  22 20 22 2b 50 31 24 2b  |=.sl(m$+" "+P1$+|
00002650  22 2c 22 2b 50 32 24 2c  32 32 29 0d 11 d0 17 20  |","+P2$,22).... |
00002660  20 20 20 c9 20 33 3a 20  20 50 31 24 3d a4 70 61  |   . 3:  P1$=.pa|
00002670  72 73 0d 11 da 1f 20 20  20 20 20 20 20 20 20 20  |rs....          |
00002680  20 20 20 64 25 3d a4 63  6f 6e 73 74 28 50 31 24  |   d%=.const(P1$|
00002690  29 0d 11 e4 4a 20 20 20  20 20 20 20 20 20 20 20  |)...J           |
000026a0  20 20 e7 20 64 25 3c 20  26 31 30 30 20 8c 20 46  |  . d%< &100 . F|
000026b0  6f 70 25 3d 46 6f 70 25  20 84 20 64 25 20 8b 20  |op%=Fop% . d% . |
000026c0  f2 65 70 72 69 6e 74 28  22 20 4e 75 6d 62 65 72  |.eprint(" Number|
000026d0  20 74 6f 6f 20 62 69 67  20 22 29 0d 11 ee 1d 20  | too big ").... |
000026e0  20 20 20 20 20 20 20 20  20 20 20 20 6d 24 3d a4  |            m$=.|
000026f0  73 6c 28 6d 24 2c 36 29  0d 11 f8 26 20 20 20 20  |sl(m$,6)...&    |
00002700  20 20 20 20 20 20 20 20  20 6d 24 3d a4 73 6c 28  |         m$=.sl(|
00002710  6d 24 2b 22 20 22 2b 50  31 24 2c 32 32 29 0d 12  |m$+" "+P1$,22)..|
00002720  02 17 20 20 20 20 c9 20  34 3a 20 20 50 31 24 3d  |..    . 4:  P1$=|
00002730  a4 70 61 72 73 0d 12 0c  1f 20 20 20 20 20 20 20  |.pars....       |
00002740  20 20 20 20 20 20 64 25  3d a4 63 6f 6e 73 74 28  |      d%=.const(|
00002750  50 31 24 29 0d 12 16 49  20 20 20 20 20 20 20 20  |P1$)...I        |
00002760  20 20 20 20 20 e7 20 64  25 3c 20 26 38 30 20 8c  |     . d%< &80 .|
00002770  20 46 6f 70 25 3d 46 6f  70 25 20 84 20 64 25 20  | Fop%=Fop% . d% |
00002780  8b 20 f2 65 70 72 69 6e  74 28 22 20 4e 75 6d 62  |. .eprint(" Numb|
00002790  65 72 20 74 6f 6f 20 62  69 67 20 22 29 0d 12 20  |er too big ").. |
000027a0  41 20 20 20 20 20 20 20  20 20 20 20 20 20 e7 20  |A             . |
000027b0  6d 24 3d 22 74 72 69 73  22 20 80 20 64 25 3e 37  |m$="tris" . d%>7|
000027c0  20 8c 20 f2 65 70 72 69  6e 74 28 22 20 4e 75 6d  | . .eprint(" Num|
000027d0  62 65 72 20 74 6f 6f 20  62 69 67 20 22 29 0d 12  |ber too big ")..|
000027e0  2a 1d 20 20 20 20 20 20  20 20 20 20 20 20 20 6d  |*.             m|
000027f0  24 3d a4 73 6c 28 6d 24  2c 36 29 0d 12 34 26 20  |$=.sl(m$,6)..4& |
00002800  20 20 20 20 20 20 20 20  20 20 20 20 6d 24 3d a4  |            m$=.|
00002810  73 6c 28 6d 24 2b 22 20  22 2b 50 31 24 2c 32 32  |sl(m$+" "+P1$,22|
00002820  29 0d 12 3e 17 20 20 20  20 c9 20 35 3a 20 20 50  |)..>.    . 5:  P|
00002830  31 24 3d a4 70 61 72 73  0d 12 48 1f 20 20 20 20  |1$=.pars..H.    |
00002840  20 20 20 20 20 20 20 20  20 64 25 3d a4 63 6f 6e  |         d%=.con|
00002850  73 74 28 50 31 24 29 0d  12 52 4a 20 20 20 20 20  |st(P1$)..RJ     |
00002860  20 20 20 20 20 20 20 20  e7 20 64 25 3c 20 26 34  |        . d%< &4|
00002870  30 30 20 8c 20 46 6f 70  25 3d 46 6f 70 25 20 84  |00 . Fop%=Fop% .|
00002880  20 64 25 20 8b 20 f2 65  70 72 69 6e 74 28 22 20  | d% . .eprint(" |
00002890  42 72 61 6e 63 68 20 74  6f 6f 20 66 61 72 20 22  |Branch too far "|
000028a0  29 0d 12 5c 1d 20 20 20  20 20 20 20 20 20 20 20  |)..\.           |
000028b0  20 20 6d 24 3d a4 73 6c  28 6d 24 2c 36 29 0d 12  |  m$=.sl(m$,6)..|
000028c0  66 26 20 20 20 20 20 20  20 20 20 20 20 20 20 6d  |f&             m|
000028d0  24 3d a4 73 6c 28 6d 24  2b 22 20 22 2b 50 31 24  |$=.sl(m$+" "+P1$|
000028e0  2c 32 32 29 0d 12 70 14  20 20 20 20 c9 20 36 3a  |,22)..p.    . 6:|
000028f0  20 20 f2 70 73 75 64 6f  0d 12 7a 04 0d 12 84 09  |  .psudo..z.....|
00002900  20 20 20 20 cb 0d 12 8e  08 20 20 20 20 0d 12 98  |    .....    ...|
00002910  2a 20 20 20 20 e7 20 49  74 25 28 6e 25 29 3c 3e  |*    . It%(n%)<>|
00002920  36 20 8c 20 f2 6d 65 6d  28 46 6f 70 25 29 3a f2  |6 . .mem(Fop%):.|
00002930  70 28 46 6f 70 25 29 0d  12 a2 13 20 20 20 20 f2  |p(Fop%)....    .|
00002940  73 70 72 69 6e 74 28 6d  24 29 0d 12 ac 27 20 20  |sprint(m$)...'  |
00002950  20 20 e7 20 4e 63 4e 6c  25 3d b9 20 8c 20 4e 63  |  . NcNl%=. . Nc|
00002960  4e 6c 25 3d a3 3a f2 73  70 72 69 6e 74 28 22 22  |Nl%=.:.sprint(""|
00002970  29 0d 12 b6 22 20 20 20  20 e7 20 49 74 25 28 6e  |)..."    . It%(n|
00002980  25 29 3c 3e 36 20 8c 20  41 64 64 72 65 73 73 25  |%)<>6 . Address%|
00002990  2b 3d 31 0d 12 c0 07 20  20 cd 0d 12 ca 05 e1 0d  |+=1....  .......|
000029a0  12 d4 04 0d 12 de 0c dd  20 f2 70 73 75 64 6f 0d  |........ .psudo.|
000029b0  12 e8 0e ea 20 76 25 2c  61 25 2c 53 24 0d 12 f2  |.... v%,a%,S$...|
000029c0  0b c8 8e 20 6d 24 20 ca  0d 12 fc 15 c9 20 22 6f  |... m$ ...... "o|
000029d0  72 67 22 3a 50 31 24 3d  a4 70 61 72 73 0d 13 06  |rg":P1$=.pars...|
000029e0  23 20 20 20 20 20 20 20  20 20 20 20 41 64 64 72  |#           Addr|
000029f0  65 73 73 25 3d a4 63 6f  6e 73 74 28 50 31 24 29  |ess%=.const(P1$)|
00002a00  0d 13 10 30 20 20 20 20  20 20 20 20 20 20 20 6d  |...0           m|
00002a10  24 3d 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |$="             |
00002a20  20 22 2b 6d 24 2b 22 20  20 20 20 22 2b 50 31 24  | "+m$+"    "+P1$|
00002a30  0d 13 1a 04 0d 13 24 16  c9 20 22 6c 69 73 74 22  |......$.. "list"|
00002a40  3a 50 31 24 3d a4 70 61  72 73 0d 13 2e 74 20 20  |:P1$=.pars...t  |
00002a50  20 20 20 20 20 20 20 20  20 e7 20 a7 50 31 24 2c  |         . .P1$,|
00002a60  22 31 36 43 38 34 22 29  3d 30 20 8c 20 f2 65 70  |"16C84")=0 . .ep|
00002a70  72 69 6e 74 28 22 20 49  6e 63 6f 72 72 65 63 74  |rint(" Incorrect|
00002a80  20 70 72 6f 63 65 73 73  6f 72 20 22 29 3a 6d 24  | processor "):m$|
00002a90  3d 6d 24 2b 22 20 22 2b  50 31 24 20 8b 20 6d 24  |=m$+" "+P1$ . m$|
00002aa0  3d 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |="              |
00002ab0  22 2b 6d 24 2b 22 20 20  20 22 2b 50 31 24 0d 13  |"+m$+"   "+P1$..|
00002ac0  38 0f 20 20 20 20 20 20  20 20 20 20 20 0d 13 42  |8.           ..B|
00002ad0  16 c9 20 22 65 71 75 62  22 3a 50 31 24 3d a4 70  |.. "equb":P1$=.p|
00002ae0  61 72 73 0d 13 4c 1e 20  20 20 20 20 20 20 20 20  |ars..L.         |
00002af0  20 20 20 76 25 3d a4 63  6f 6e 73 74 28 50 31 24  |   v%=.const(P1$|
00002b00  29 0d 13 56 21 20 20 20  20 20 20 20 20 20 20 20  |)..V!           |
00002b10  20 e7 20 76 25 3e 32 35  35 20 84 20 56 25 3c 30  | . v%>255 . V%<0|
00002b20  20 8c 0d 13 60 2f 20 20  20 20 20 20 20 20 20 20  | ...`/          |
00002b30  20 20 f2 65 70 72 69 6e  74 28 22 20 42 79 74 65  |  .eprint(" Byte|
00002b40  20 56 61 6c 75 65 20 74  6f 6f 20 62 69 67 20 22  | Value too big "|
00002b50  29 0d 13 6a 11 20 20 20  20 20 20 20 20 20 20 20  |)..j.           |
00002b60  20 cc 0d 13 74 1c 20 20  20 20 20 20 20 20 20 20  | ...t.          |
00002b70  20 20 f2 70 28 41 64 64  72 65 73 73 25 29 0d 13  |  .p(Address%)..|
00002b80  7e 2b 20 20 20 20 20 20  20 20 20 20 20 20 f2 6d  |~+            .m|
00002b90  65 6d 28 76 25 29 3a f2  70 28 76 25 29 3a 41 64  |em(v%):.p(v%):Ad|
00002ba0  64 72 65 73 73 25 2b 3d  31 0d 13 88 28 20 20 20  |dress%+=1...(   |
00002bb0  20 20 20 20 20 20 20 20  20 6d 24 3d a4 73 6c 28  |         m$=.sl(|
00002bc0  6d 24 2b 22 20 20 20 20  22 2b 50 31 24 2c 32 32  |m$+"    "+P1$,22|
00002bd0  29 0d 13 92 11 20 20 20  20 20 20 20 20 20 20 20  |)....           |
00002be0  20 cd 0d 13 9c 16 c9 20  22 65 71 75 73 22 3a f2  | ...... "equs":.|
00002bf0  5f 50 73 74 72 28 30 29  0d 13 a6 1a c9 20 22 72  |_Pstr(0)..... "r|
00002c00  65 74 73 22 3a f2 5f 50  73 74 72 28 26 33 34 30  |ets":._Pstr(&340|
00002c10  30 29 0d 13 b0 18 c9 20  22 63 62 6c 6f 63 6b 22  |0)..... "cblock"|
00002c20  3a 50 31 24 3d a4 70 61  72 73 0d 13 ba 27 20 20  |:P1$=.pars...'  |
00002c30  20 20 20 20 20 20 20 20  20 20 20 20 63 6f 6e 73  |            cons|
00002c40  74 76 61 6c 25 3d a4 63  6f 6e 73 74 28 50 31 24  |tval%=.const(P1$|
00002c50  29 0d 13 c4 20 20 20 20  20 20 20 20 20 20 20 20  |)...            |
00002c60  20 20 20 63 6f 6e 73 74  62 6c 6f 63 6b 25 3d 2d  |   constblock%=-|
00002c70  31 0d 13 ce 1d 20 20 20  20 20 20 20 20 20 20 20  |1....           |
00002c80  20 20 20 f2 73 70 72 69  6e 74 28 22 22 29 0d 13  |   .sprint("")..|
00002c90  d8 47 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.G              |
00002ca0  f2 73 70 72 69 6e 74 28  22 20 64 65 66 69 6e 69  |.sprint(" defini|
00002cb0  74 69 6f 6e 73 20 73 74  61 72 74 69 6e 67 20 61  |tions starting a|
00002cc0  74 20 22 2b c3 7e 63 6f  6e 73 74 76 61 6c 25 2b  |t "+.~constval%+|
00002cd0  22 68 20 22 29 0d 13 e2  2a 20 20 20 20 20 20 20  |"h ")...*       |
00002ce0  20 20 20 20 20 20 20 f2  73 70 72 69 6e 74 28 22  |       .sprint("|
00002cf0  22 29 3a f2 73 70 72 69  6e 74 28 22 20 22 29 0d  |"):.sprint(" ").|
00002d00  13 ec 13 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00002d10  20 cd 0d 13 f6 05 cb 0d  14 00 05 e1 0d 14 0a 04  | ...............|
00002d20  0d 14 14 11 dd 20 f2 5f  50 73 74 72 28 6f 70 25  |..... ._Pstr(op%|
00002d30  29 0d 14 1e 20 f2 73 70  72 69 6e 74 28 22 20 20  |)... .sprint("  |
00002d40  20 20 20 20 20 20 20 20  20 20 20 20 22 2b 6d 24  |            "+m$|
00002d50  29 0d 14 28 09 6d 24 3d  22 22 0d 14 32 0f f2 73  |)..(.m$=""..2..s|
00002d60  70 72 69 6e 74 28 22 22  29 0d 14 3c 05 f5 0d 14  |print("")..<....|
00002d70  46 1f e7 20 ac 28 c5 23  46 25 29 20 8c 20 61 25  |F.. .(.#F%) . a%|
00002d80  3d 9a 23 46 25 20 8b 20  61 25 3d 31 30 0d 14 50  |=.#F% . a%=10..P|
00002d90  17 fd 20 61 25 3d 31 30  20 84 20 61 25 3d 97 28  |.. a%=10 . a%=.(|
00002da0  22 27 22 29 0d 14 5a 11  e7 20 61 25 3d 97 28 22  |"'")..Z.. a%=.("|
00002db0  27 22 29 20 8c 0d 14 64  05 f5 0d 14 6e 1f e7 20  |'") ...d....n.. |
00002dc0  ac 28 c5 23 46 25 29 20  8c 20 61 25 3d 9a 23 46  |.(.#F%) . a%=.#F|
00002dd0  25 20 8b 20 61 25 3d 31  30 0d 14 78 1b e7 20 61  |% . a%=10..x.. a|
00002de0  25 3c 3e 31 30 20 80 20  61 25 3c 3e 97 28 22 27  |%<>10 . a%<>.("'|
00002df0  22 29 20 8c 0d 14 82 10  f2 70 28 41 64 64 72 65  |") ......p(Addre|
00002e00  73 73 25 29 0d 14 8c 0f  61 25 3d 61 25 20 84 20  |ss%)....a%=a% . |
00002e10  6f 70 25 0d 14 96 1f f2  6d 65 6d 28 61 25 29 3a  |op%.....mem(a%):|
00002e20  f2 70 28 61 25 29 3a 41  64 64 72 65 73 73 25 2b  |.p(a%):Address%+|
00002e30  3d 31 0d 14 a0 20 e7 20  6f 70 25 3c 3e 30 20 8c  |=1... . op%<>0 .|
00002e40  20 f2 73 70 72 69 6e 74  28 22 72 65 74 6c 77 20  | .sprint("retlw |
00002e50  22 29 0d 14 aa 1a f2 73  70 72 69 6e 74 28 22 27  |").....sprint("'|
00002e60  22 2b bd 28 61 25 29 2b  22 27 22 29 0d 14 b4 0f  |"+.(a%)+"'")....|
00002e70  f2 73 70 72 69 6e 74 28  22 22 29 0d 14 be 05 cd  |.sprint("").....|
00002e80  0d 14 c8 17 fd 20 61 25  3d 31 30 20 84 20 61 25  |..... a%=10 . a%|
00002e90  3d 97 28 22 27 22 29 0d  14 d2 31 e7 20 61 25 3d  |=.("'")...1. a%=|
00002ea0  31 30 20 8c 20 f2 65 70  72 69 6e 74 28 22 20 4e  |10 . .eprint(" N|
00002eb0  6f 20 74 65 72 6d 69 6e  61 74 69 6e 67 20 71 75  |o terminating qu|
00002ec0  6f 74 65 20 27 20 22 29  0d 14 dc 05 cc 0d 14 e6  |ote ' ")........|
00002ed0  22 f2 65 70 72 69 6e 74  28 22 20 4e 6f 20 6c 69  |".eprint(" No li|
00002ee0  74 65 72 61 6c 20 73 74  72 69 6e 67 20 22 29 0d  |teral string ").|
00002ef0  14 f0 05 cd 0d 14 fa 05  e1 0d 15 04 04 0d 15 0e  |................|
00002f00  18 f4 20 44 6f 20 74 68  65 20 6c 61 62 6c 65 20  |.. Do the lable |
00002f10  6c 6f 67 69 63 0d 15 18  0d dd 20 a4 4c 61 62 4c  |logic..... .LabL|
00002f20  6f 67 0d 15 22 16 ea 20  65 25 2c 70 31 24 2c 70  |og..".. e%,p1$,p|
00002f30  32 24 2c 64 25 2c 6f 25  0d 15 2c 08 6f 25 3d b9  |2$,d%,o%..,.o%=.|
00002f40  0d 15 36 0f 65 25 3d a7  50 24 2c 22 5e 22 29 0d  |..6.e%=.P$,"^").|
00002f50  15 40 0d e7 20 65 25 3c  3e 30 20 8c 0d 15 4a 25  |.@.. e%<>0 ...J%|
00002f60  70 31 24 3d c0 50 24 2c  65 25 2d 31 29 20 3a 20  |p1$=.P$,e%-1) : |
00002f70  70 32 24 3d c2 50 24 2c  a9 28 50 24 29 2d 65 25  |p2$=.P$,.(P$)-e%|
00002f80  29 0d 15 54 20 64 25 3d  a4 63 6f 6e 73 74 28 70  |)..T d%=.const(p|
00002f90  31 24 29 20 82 20 a4 63  6f 6e 73 74 28 70 32 24  |1$) . .const(p2$|
00002fa0  29 0d 15 5e 08 6f 25 3d  a3 0d 15 68 05 cd 0d 15  |)..^.o%=...h....|
00002fb0  72 0f 65 25 3d a7 50 24  2c 22 2b 22 29 0d 15 7c  |r.e%=.P$,"+")..||
00002fc0  12 e7 20 65 25 3c 3e 30  20 80 20 6f 25 20 8c 0d  |.. e%<>0 . o% ..|
00002fd0  15 86 25 70 31 24 3d c0  50 24 2c 65 25 2d 31 29  |..%p1$=.P$,e%-1)|
00002fe0  20 3a 20 70 32 24 3d c2  50 24 2c a9 28 50 24 29  | : p2$=.P$,.(P$)|
00002ff0  2d 65 25 29 0d 15 90 20  64 25 3d a4 63 6f 6e 73  |-e%)... d%=.cons|
00003000  74 28 70 31 24 29 20 84  20 a4 63 6f 6e 73 74 28  |t(p1$) . .const(|
00003010  70 32 24 29 0d 15 9a 08  6f 25 3d a3 0d 15 a4 05  |p2$)....o%=.....|
00003020  cd 0d 15 ae 0f 65 25 3d  a7 50 24 2c 22 2e 22 29  |.....e%=.P$,".")|
00003030  0d 15 b8 12 e7 20 65 25  3c 3e 30 20 80 20 6f 25  |..... e%<>0 . o%|
00003040  20 8c 0d 15 c2 25 70 31  24 3d c0 50 24 2c 65 25  | ....%p1$=.P$,e%|
00003050  2d 31 29 20 3a 20 70 32  24 3d c2 50 24 2c a9 28  |-1) : p2$=.P$,.(|
00003060  50 24 29 2d 65 25 29 0d  15 cc 20 64 25 3d a4 63  |P$)-e%)... d%=.c|
00003070  6f 6e 73 74 28 70 31 24  29 20 80 20 a4 63 6f 6e  |onst(p1$) . .con|
00003080  73 74 28 70 32 24 29 0d  15 d6 08 6f 25 3d a3 0d  |st(p2$)....o%=..|
00003090  15 e0 05 cd 0d 15 ea 0f  65 25 3d a7 50 24 2c 22  |........e%=.P$,"|
000030a0  21 22 29 0d 15 f4 12 e7  20 65 25 3c 3e 30 20 80  |!")..... e%<>0 .|
000030b0  20 6f 25 20 8c 0d 15 fe  25 70 31 24 3d c0 50 24  | o% ....%p1$=.P$|
000030c0  2c 65 25 2d 31 29 20 3a  20 70 32 24 3d c2 50 24  |,e%-1) : p2$=.P$|
000030d0  2c a9 28 50 24 29 2d 65  25 29 0d 16 08 20 64 25  |,.(P$)-e%)... d%|
000030e0  3d a4 63 6f 6e 73 74 28  70 31 24 29 20 2b 20 a4  |=.const(p1$) + .|
000030f0  63 6f 6e 73 74 28 70 32  24 29 0d 16 12 08 6f 25  |const(p2$)....o%|
00003100  3d a3 0d 16 1c 05 cd 0d  16 26 0f 65 25 3d a7 50  |=........&.e%=.P|
00003110  24 2c 22 2d 22 29 0d 16  30 12 e7 20 65 25 3c 3e  |$,"-")..0.. e%<>|
00003120  30 20 80 20 6f 25 20 8c  0d 16 3a 25 70 31 24 3d  |0 . o% ...:%p1$=|
00003130  c0 50 24 2c 65 25 2d 31  29 20 3a 20 70 32 24 3d  |.P$,e%-1) : p2$=|
00003140  c2 50 24 2c a9 28 50 24  29 2d 65 25 29 0d 16 44  |.P$,.(P$)-e%)..D|
00003150  20 64 25 3d a4 63 6f 6e  73 74 28 70 31 24 29 20  | d%=.const(p1$) |
00003160  2d 20 a4 63 6f 6e 73 74  28 70 32 24 29 0d 16 4e  |- .const(p2$)..N|
00003170  08 6f 25 3d a3 0d 16 58  05 cd 0d 16 62 04 0d 16  |.o%=...X....b...|
00003180  6c 0a e7 20 6f 25 20 8c  0d 16 76 1c f4 20 53 65  |l.. o% ...v.. Se|
00003190  61 72 63 68 20 66 6f 72  20 6c 61 62 6c 65 20 76  |arch for lable v|
000031a0  61 6c 75 65 0d 16 80 0a  20 20 73 25 3d 30 0d 16  |alue....  s%=0..|
000031b0  8a 25 20 20 c8 95 20 73  25 3c 3e 4c 61 62 6c 65  |.%  .. s%<>Lable|
000031c0  73 25 20 80 20 4c 61 62  6c 65 24 28 73 25 29 3c  |s% . Lable$(s%)<|
000031d0  3e 50 24 0d 16 94 0b 20  20 73 25 2b 3d 31 0d 16  |>P$....  s%+=1..|
000031e0  9e 07 20 20 ce 0d 16 a8  42 20 20 e7 20 73 25 3d  |..  ....B  . s%=|
000031f0  4c 61 62 6c 65 73 25 20  8c 20 f2 65 70 72 69 6e  |Lables% . .eprin|
00003200  74 28 22 20 55 6e 64 65  66 69 6e 65 64 20 6c 61  |t(" Undefined la|
00003210  62 6c 65 20 22 29 20 8b  20 64 25 3d 4c 61 62 56  |ble ") . d%=LabV|
00003220  61 6c 25 28 73 25 29 0d  16 b2 06 20 cd 0d 16 bc  |al%(s%).... ....|
00003230  07 3d 64 25 0d 16 c6 05  e1 0d 16 d0 04 0d 17 3e  |.=d%...........>|
00003240  23 f4 20 6d 61 6b 65 20  73 74 72 69 6e 67 20 61  |#. make string a|
00003250  20 73 74 61 6e 64 61 72  64 20 6c 65 6e 67 74 68  | standard length|
00003260  0d 17 48 10 dd 20 a4 73  6c 28 4e 24 2c 4c 25 29  |..H.. .sl(N$,L%)|
00003270  0d 17 52 08 ea 20 74 24  0d 17 5c 10 e7 20 a9 28  |..R.. t$..\.. .(|
00003280  4e 24 29 3c 4c 25 20 8c  0d 17 66 2b 4e 24 3d 4e  |N$)<L% ...f+N$=N|
00003290  24 2b 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |$+"             |
000032a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000032b0  20 20 22 0d 17 70 0e 74  24 3d c0 4e 24 2c 4c 25  |  "..p.t$=.N$,L%|
000032c0  29 0d 17 7a 05 cc 0d 17  84 09 74 24 3d 4e 24 0d  |)..z......t$=N$.|
000032d0  17 8e 05 cd 0d 17 98 07  3d 74 24 0d 17 a2 04 0d  |........=t$.....|
000032e0  17 ac 38 f4 20 45 78 74  72 61 63 74 20 61 20 63  |..8. Extract a c|
000032f0  6f 6e 73 74 61 6e 74 20  69 6e 20 68 65 78 20 6f  |onstant in hex o|
00003300  72 20 64 65 63 69 6d 61  6c 20 65 67 2e 20 30 64  |r decimal eg. 0d|
00003310  68 20 6f 72 20 31 33 0d  17 b6 3a f4 20 41 6c 73  |h or 13...:. Als|
00003320  6f 20 6c 6f 6f 6b 20 66  6f 72 20 63 6f 6e 73 74  |o look for const|
00003330  61 6e 74 20 63 6f 6e 74  61 69 6e 67 20 27 20 6c  |ant containg ' l|
00003340  69 6b 65 3a 2d 20 20 62  27 30 30 31 31 30 30 31  |ike:-  b'0011001|
00003350  27 0d 17 c0 31 f4 20 6f  72 20 61 20 6c 61 62 6c  |'...1. or a labl|
00003360  65 20 76 61 6c 75 65 20  69 66 20 6e 6f 74 20 73  |e value if not s|
00003370  74 61 72 74 20 77 69 74  68 20 61 20 6c 65 74 74  |tart with a lett|
00003380  65 72 0d 17 ca 10 dd 20  a4 63 6f 6e 73 74 28 50  |er..... .const(P|
00003390  24 29 0d 17 d4 1c ea 20  64 25 2c 61 25 2c 65 25  |$)..... d%,a%,e%|
000033a0  2c 73 25 2c 70 31 24 2c  70 32 24 2c 6c 25 0d 17  |,s%,p1$,p2$,l%..|
000033b0  de 33 e7 20 c0 50 24 2c  32 29 3d 22 30 78 22 20  |.3. .P$,2)="0x" |
000033c0  84 20 c0 50 24 2c 32 29  3d 22 30 58 22 20 8c 20  |. .P$,2)="0X" . |
000033d0  50 24 3d 22 30 22 2b c1  50 24 2c 33 29 2b 22 68  |P$="0"+.P$,3)+"h|
000033e0  22 0d 17 e8 25 e7 20 c0  50 24 2c 31 29 3d 22 2e  |"...%. .P$,1)=".|
000033f0  22 20 8c 20 50 24 3d 22  64 27 22 2b c1 50 24 2c  |" . P$="d'"+.P$,|
00003400  32 29 2b 22 27 22 0d 17  f2 08 64 25 3d 30 0d 17  |2)+"'"....d%=0..|
00003410  fc 10 6c 25 3d a4 63 6c  61 62 28 50 24 29 0d 18  |..l%=.clab(P$)..|
00003420  06 17 e7 20 c0 50 24 2c  31 29 3d 22 27 22 20 8c  |... .P$,1)="'" .|
00003430  20 6c 25 3d 30 0d 18 10  33 e7 20 28 97 28 c0 50  | l%=0...3. (.(.P|
00003440  24 2c 31 29 29 20 3c 20  26 33 41 20 84 20 97 28  |$,1)) < &3A . .(|
00003450  c1 50 24 2c 32 2c 31 29  29 20 3d 26 32 37 29 20  |.P$,2,1)) =&27) |
00003460  80 20 6c 25 3d 30 20 8c  0d 18 1a 20 20 e7 20 c2  |. l%=0 ....  . .|
00003470  50 24 2c 31 29 3d 22 68  22 20 84 20 c2 50 24 2c  |P$,1)="h" . .P$,|
00003480  31 29 3d 22 48 22 20 8c  0d 18 24 09 20 73 25 3d  |1)="H" ...$. s%=|
00003490  31 0d 18 2e 1a 20 e3 20  61 25 3d a9 28 50 24 29  |1.... . a%=.(P$)|
000034a0  2d 31 20 b8 20 31 20 88  20 2d 31 0d 18 38 14 20  |-1 . 1 . -1..8. |
000034b0  65 25 3d 97 28 c1 50 24  2c 61 25 2c 31 29 29 0d  |e%=.(.P$,a%,1)).|
000034c0  18 42 3f 20 e7 20 65 25  3e 26 36 36 20 84 20 28  |.B? . e%>&66 . (|
000034d0  65 25 3e 26 34 36 20 80  20 65 25 3c 26 36 31 29  |e%>&46 . e%<&61)|
000034e0  20 84 20 65 25 3c 26 33  30 20 8c 20 f2 65 70 72  | . e%<&30 . .epr|
000034f0  69 6e 74 28 22 42 61 64  20 68 65 78 22 29 0d 18  |int("Bad hex")..|
00003500  4c 2b 20 e7 20 65 25 3c  26 33 41 20 8c 20 65 25  |L+ . e%<&3A . e%|
00003510  3d 65 25 20 80 20 26 46  20 8b 20 65 25 3d 28 65  |=e% . &F . e%=(e|
00003520  25 20 80 20 26 46 29 2b  39 0d 18 56 10 20 64 25  |% . &F)+9..V. d%|
00003530  3d 64 25 2b 65 25 2a 73  25 0d 18 60 0d 20 73 25  |=d%+e%*s%..`. s%|
00003540  3d 73 25 2a 31 36 0d 18  6a 06 20 ed 0d 18 74 06  |=s%*16..j. ...t.|
00003550  20 cc 0d 18 7e 10 20 65  25 3d a7 50 24 2c 22 27  | ...~. e%=.P$,"'|
00003560  22 29 0d 18 88 0e 20 e7  20 65 25 3c 3e 30 20 8c  |").... . e%<>0 .|
00003570  0d 18 92 13 20 64 25 3d  a4 61 6c 74 6e 75 6d 28  |.... d%=.altnum(|
00003580  50 24 29 0d 18 9c 06 20  cc 0d 18 a6 0d 20 64 25  |P$).... ..... d%|
00003590  3d bb 28 50 24 29 0d 18  b0 34 20 e7 20 c3 28 64  |=.(P$)...4 . .(d|
000035a0  25 29 3c 3e 50 24 20 8c  20 f2 65 70 72 69 6e 74  |%)<>P$ . .eprint|
000035b0  28 22 20 56 61 6c 75 65  20 6e 6f 74 20 75 6e 64  |(" Value not und|
000035c0  65 72 73 74 6f 6f 64 20  22 29 0d 18 ba 06 20 cd  |erstood ").... .|
000035d0  0d 18 c4 06 20 cd 0d 18  ce 05 cc 0d 18 d8 35 f4  |.... .........5.|
000035e0  20 45 78 74 72 61 63 74  20 61 20 6c 61 62 6c 65  | Extract a lable|
000035f0  20 76 61 6c 75 65 20 66  69 72 73 74 20 6c 6f 6f  | value first loo|
00003600  6b 20 66 6f 72 20 61 72  69 74 68 6d 69 74 69 63  |k for arithmitic|
00003610  0d 18 e2 0f 20 64 25 3d  a4 4c 61 62 4c 6f 67 0d  |.... d%=.LabLog.|
00003620  18 ec 05 cd 0d 18 f6 07  3d 64 25 0d 19 00 04 0d  |........=d%.....|
00003630  19 0a 2a f4 20 53 65 65  20 69 66 20 73 74 72 69  |..*. See if stri|
00003640  6e 67 20 63 6f 6e 74 61  69 6e 73 20 61 6e 79 20  |ng contains any |
00003650  6f 70 65 72 61 74 6f 72  73 0d 19 14 0f dd 20 a4  |operators..... .|
00003660  63 6c 61 62 28 73 24 29  0d 19 1e 08 ea 20 4c 25  |clab(s$)..... L%|
00003670  0d 19 28 08 4c 25 3d 30  0d 19 32 0f 4c 25 3d a7  |..(.L%=0..2.L%=.|
00003680  73 24 2c 22 5e 22 29 0d  19 3c 10 4c 25 2b 3d a7  |s$,"^")..<.L%+=.|
00003690  73 24 2c 22 2b 22 29 0d  19 46 10 4c 25 2b 3d a7  |s$,"+")..F.L%+=.|
000036a0  73 24 2c 22 2e 22 29 0d  19 50 10 4c 25 2b 3d a7  |s$,".")..P.L%+=.|
000036b0  73 24 2c 22 21 22 29 0d  19 5a 10 4c 25 2b 3d a7  |s$,"!")..Z.L%+=.|
000036c0  73 24 2c 22 2d 22 29 0d  19 64 07 3d 4c 25 0d 19  |s$,"-")..d.=L%..|
000036d0  6e 04 0d 19 78 14 f4 20  44 65 66 69 6e 65 20 61  |n...x.. Define a|
000036e0  20 6c 61 62 6c 65 0d 19  82 11 dd 20 f2 5f 4c 61  | lable..... ._La|
000036f0  62 6c 65 28 6c 24 29 0d  19 8c 08 ea 20 6e 25 0d  |ble(l$)..... n%.|
00003700  19 96 0f e7 20 50 61 73  73 25 3d 31 20 8c 0d 19  |.... Pass%=1 ...|
00003710  a0 22 e7 20 c2 6c 24 2c  31 29 3d 22 3a 22 20 8c  |.". .l$,1)=":" .|
00003720  20 6c 24 3d c0 6c 24 2c  a9 28 6c 24 29 2d 31 29  | l$=.l$,.(l$)-1)|
00003730  0d 19 aa 05 f5 0d 19 b4  0f 20 20 20 20 6e 25 3d  |.........    n%=|
00003740  6e 25 2b 31 0d 19 be 1b  20 20 fd 20 4d 6e 65 24  |n%+1....  . Mne$|
00003750  28 6e 25 29 3d 6c 24 20  84 20 6e 25 3e 33 33 0d  |(n%)=l$ . n%>33.|
00003760  19 c8 0d e7 20 6e 25 3e  33 33 20 8c 0d 19 d2 0a  |.... n%>33 .....|
00003770  20 20 6e 25 3d 30 0d 19  dc 25 20 20 c8 95 20 6e  |  n%=0...%  .. n|
00003780  25 3c 3e 4c 61 62 6c 65  73 25 20 80 20 4c 61 62  |%<>Lables% . Lab|
00003790  6c 65 24 28 6e 25 29 3c  3e 6c 24 0d 19 e6 0b 20  |le$(n%)<>l$.... |
000037a0  20 6e 25 2b 3d 31 0d 19  f0 07 20 20 ce 0d 19 fa  | n%+=1....  ....|
000037b0  1d 20 20 e7 20 6e 25 3c  3e 4c 61 62 6c 65 73 25  |.  . n%<>Lables%|
000037c0  20 80 20 6e 25 3c 3e 30  20 8c 0d 1a 04 22 20 20  | . n%<>0 ...."  |
000037d0  f2 65 70 72 69 6e 74 28  22 20 44 75 70 6c 69 63  |.eprint(" Duplic|
000037e0  61 74 65 20 6c 61 62 6c  65 20 22 29 0d 1a 0e 07  |ate lable ")....|
000037f0  20 20 cc 0d 1a 18 13 20  20 4c 61 62 6c 65 24 28  |  .....  Lable$(|
00003800  6e 25 29 3d 6c 24 0d 1a  22 1a 20 20 4c 61 62 56  |n%)=l$..".  LabV|
00003810  61 6c 25 28 6e 25 29 3d  41 64 64 72 65 73 73 25  |al%(n%)=Address%|
00003820  0d 1a 2c 13 20 20 4c 61  73 74 6c 61 62 6c 65 25  |..,.  Lastlable%|
00003830  3d 6e 25 0d 1a 36 10 20  20 4c 61 62 6c 65 73 25  |=n%..6.  Lables%|
00003840  2b 3d 31 0d 1a 40 33 20  20 e7 20 4c 61 62 6c 65  |+=1..@3  . Lable|
00003850  73 25 3e 4d 78 4c 25 20  8c 20 f2 65 70 72 69 6e  |s%>MxL% . .eprin|
00003860  74 28 22 20 54 6f 6f 20  6d 61 6e 79 20 4c 61 62  |t(" Too many Lab|
00003870  6c 65 73 20 22 29 0d 1a  4a 07 20 20 cd 0d 1a 54  |les ")..J.  ...T|
00003880  05 cc 0d 1a 5e 1e f2 65  70 72 69 6e 74 28 22 20  |....^..eprint(" |
00003890  52 65 73 65 72 76 65 64  20 77 6f 72 64 20 22 29  |Reserved word ")|
000038a0  0d 1a 68 05 cd 0d 1a 72  05 cd 0d 1a 7c 1e e7 20  |..h....r....|.. |
000038b0  c2 6c 24 2c 31 29 3d 22  3a 22 20 8c 20 f2 73 70  |.l$,1)=":" . .sp|
000038c0  72 69 6e 74 28 22 22 29  0d 1a 86 05 e1 0d 1a 90  |rint("")........|
000038d0  04 0d 1a 9a 11 dd 20 a4  61 6c 74 6e 75 6d 28 67  |...... .altnum(g|
000038e0  24 29 0d 1a a4 14 ea 20  76 25 2c 74 24 2c 61 25  |$)..... v%,t$,a%|
000038f0  2c 77 25 2c 65 25 0d 1a  ae 13 74 24 3d bd 28 97  |,w%,e%....t$=.(.|
00003900  28 c2 67 24 2c 31 29 29  29 0d 1a b8 0e e7 20 74  |(.g$,1)))..... t|
00003910  24 3d 22 27 22 20 8c 0d  1a c2 19 74 24 3d bd 28  |$="'" .....t$=.(|
00003920  97 28 c0 67 24 2c 31 29  29 20 84 20 26 32 30 29  |.(.g$,1)) . &20)|
00003930  0d 1a cc 0b c8 8e 20 74  24 20 ca 0d 1a d6 16 c9  |...... t$ ......|
00003940  20 22 68 22 3a 20 67 24  3d a4 62 74 71 28 67 24  | "h": g$=.btq(g$|
00003950  29 0d 1a e0 17 20 20 20  20 20 20 20 20 20 20 76  |)....          v|
00003960  25 3d 30 3a 77 25 3d 31  0d 1a ea 21 20 20 20 20  |%=0:w%=1...!    |
00003970  20 20 20 20 20 20 e3 20  61 25 3d a9 28 67 24 29  |      . a%=.(g$)|
00003980  20 b8 20 31 20 88 20 2d  31 0d 1a f4 1d 20 20 20  | . 1 . -1....   |
00003990  20 20 20 20 20 20 20 65  25 3d 97 28 c1 67 24 2c  |       e%=.(.g$,|
000039a0  61 25 2c 31 29 29 0d 1a  fe 48 20 20 20 20 20 20  |a%,1))...H      |
000039b0  20 20 20 20 e7 20 65 25  3e 26 36 36 20 84 20 28  |    . e%>&66 . (|
000039c0  65 25 3e 26 34 36 20 80  20 65 25 3c 26 36 31 29  |e%>&46 . e%<&61)|
000039d0  20 84 20 65 25 3c 26 33  30 20 8c 20 f2 65 70 72  | . e%<&30 . .epr|
000039e0  69 6e 74 28 22 42 61 64  20 68 65 78 22 29 0d 1b  |int("Bad hex")..|
000039f0  08 34 20 20 20 20 20 20  20 20 20 20 e7 20 65 25  |.4          . e%|
00003a00  3c 26 33 41 20 8c 20 65  25 3d 65 25 20 80 20 26  |<&3A . e%=e% . &|
00003a10  46 20 8b 20 65 25 3d 28  65 25 20 80 20 26 46 29  |F . e%=(e% . &F)|
00003a20  2b 39 0d 1b 12 19 20 20  20 20 20 20 20 20 20 20  |+9....          |
00003a30  76 25 3d 76 25 2b 65 25  2a 77 25 0d 1b 1c 16 20  |v%=v%+e%*w%.... |
00003a40  20 20 20 20 20 20 20 20  20 77 25 3d 77 25 2a 31  |         w%=w%*1|
00003a50  36 0d 1b 26 0f 20 20 20  20 20 20 20 20 20 20 ed  |6..&.          .|
00003a60  0d 1b 30 16 c9 20 22 64  22 3a 20 67 24 3d a4 62  |..0.. "d": g$=.b|
00003a70  74 71 28 67 24 29 0d 1b  3a 16 20 20 20 20 20 20  |tq(g$)..:.      |
00003a80  20 20 20 20 76 25 3d bb  28 67 24 29 0d 1b 44 43  |    v%=.(g$)..DC|
00003a90  20 20 20 20 20 20 20 20  20 20 e7 20 c3 28 76 25  |          . .(v%|
00003aa0  29 3c 3e 67 24 20 8c 20  f2 65 70 72 69 6e 74 28  |)<>g$ . .eprint(|
00003ab0  22 44 65 63 69 6d 61 6c  20 76 61 6c 75 65 20 6e  |"Decimal value n|
00003ac0  6f 74 20 75 6e 64 65 72  73 74 6f 6f 64 22 29 0d  |ot understood").|
00003ad0  1b 4e 16 c9 20 22 6f 22  3a 20 67 24 3d a4 62 74  |.N.. "o": g$=.bt|
00003ae0  71 28 67 24 29 0d 1b 58  17 20 20 20 20 20 20 20  |q(g$)..X.       |
00003af0  20 20 20 76 25 3d 30 3a  77 25 3d 31 0d 1b 62 21  |   v%=0:w%=1..b!|
00003b00  20 20 20 20 20 20 20 20  20 20 e3 20 61 25 3d a9  |          . a%=.|
00003b10  28 67 24 29 20 b8 20 31  20 88 20 2d 31 0d 1b 6c  |(g$) . 1 . -1..l|
00003b20  1d 20 20 20 20 20 20 20  20 20 20 65 25 3d 97 28  |.          e%=.(|
00003b30  c1 67 24 2c 61 25 2c 31  29 29 0d 1b 76 36 20 20  |.g$,a%,1))..v6  |
00003b40  20 20 20 20 20 20 20 20  e7 20 65 25 3e 26 33 37  |        . e%>&37|
00003b50  20 84 20 65 25 3c 26 33  30 20 8c 20 f2 65 70 72  | . e%<&30 . .epr|
00003b60  69 6e 74 28 22 42 61 64  20 6f 63 74 61 6c 22 29  |int("Bad octal")|
00003b70  0d 1b 80 18 20 20 20 20  20 20 20 20 20 20 65 25  |....          e%|
00003b80  3d 65 25 20 80 20 26 46  0d 1b 8a 19 20 20 20 20  |=e% . &F....    |
00003b90  20 20 20 20 20 20 76 25  3d 76 25 2b 65 25 2a 77  |      v%=v%+e%*w|
00003ba0  25 0d 1b 94 15 20 20 20  20 20 20 20 20 20 20 77  |%....          w|
00003bb0  25 3d 77 25 2a 38 0d 1b  9e 0f 20 20 20 20 20 20  |%=w%*8....      |
00003bc0  20 20 20 20 ed 0d 1b a8  16 c9 20 22 62 22 3a 20  |    ...... "b": |
00003bd0  67 24 3d a4 62 74 71 28  67 24 29 0d 1b b2 17 20  |g$=.btq(g$).... |
00003be0  20 20 20 20 20 20 20 20  20 76 25 3d 30 3a 77 25  |         v%=0:w%|
00003bf0  3d 31 0d 1b bc 21 20 20  20 20 20 20 20 20 20 20  |=1...!          |
00003c00  e3 20 61 25 3d a9 28 67  24 29 20 b8 20 31 20 88  |. a%=.(g$) . 1 .|
00003c10  20 2d 31 0d 1b c6 1d 20  20 20 20 20 20 20 20 20  | -1....         |
00003c20  20 65 25 3d 97 28 c1 67  24 2c 61 25 2c 31 29 29  | e%=.(.g$,a%,1))|
00003c30  0d 1b d0 3a 20 20 20 20  20 20 20 20 20 20 e7 20  |...:          . |
00003c40  ac 28 65 25 3d 26 33 30  20 84 20 65 25 3d 26 33  |.(e%=&30 . e%=&3|
00003c50  31 29 20 8c 20 f2 65 70  72 69 6e 74 28 22 42 61  |1) . .eprint("Ba|
00003c60  64 20 62 69 6e 61 72 79  22 29 0d 1b da 24 20 20  |d binary")...$  |
00003c70  20 20 20 20 20 20 20 20  e7 20 65 25 3d 26 33 31  |        . e%=&31|
00003c80  20 8c 20 65 25 3d 31 20  8b 20 65 25 3d 30 0d 1b  | . e%=1 . e%=0..|
00003c90  e4 19 20 20 20 20 20 20  20 20 20 20 76 25 3d 76  |..          v%=v|
00003ca0  25 2b 65 25 2a 77 25 0d  1b ee 15 20 20 20 20 20  |%+e%*w%....     |
00003cb0  20 20 20 20 20 77 25 3d  77 25 2a 32 0d 1b f8 0f  |     w%=w%*2....|
00003cc0  20 20 20 20 20 20 20 20  20 20 ed 0d 1c 02 19 c9  |          ......|
00003cd0  20 22 27 22 3a 20 76 25  3d 97 28 c1 50 24 2c 32  | "'": v%=.(.P$,2|
00003ce0  2c 31 29 29 0d 1c 0c 25  7f 20 f2 65 70 72 69 6e  |,1))...%. .eprin|
00003cf0  74 28 22 56 61 6c 75 65  20 6e 6f 74 20 75 6e 64  |t("Value not und|
00003d00  65 72 73 74 6f 6f 64 22  29 0d 1c 16 05 cb 0d 1c  |erstood").......|
00003d10  20 05 cc 0d 1c 2a 08 76  25 3d 30 0d 1c 34 1c f2  | ....*.v%=0..4..|
00003d20  65 70 72 69 6e 74 28 22  6d 69 73 73 69 6e 67 20  |eprint("missing |
00003d30  65 6e 64 20 27 22 29 0d  1c 3e 05 cd 0d 1c 48 07  |end '")..>....H.|
00003d40  3d 76 25 0d 1c 52 04 0d  1c 5c 28 f4 20 65 78 74  |=v%..R...\(. ext|
00003d50  72 61 63 74 20 61 20 76  61 6c 75 65 20 62 65 74  |ract a value bet|
00003d60  77 65 65 6e 20 74 68 65  20 71 75 6f 74 65 73 0d  |ween the quotes.|
00003d70  1c 66 0e dd 20 a4 62 74  71 28 70 24 29 0d 1c 70  |.f.. .btq(p$)..p|
00003d80  0e ea 20 71 24 2c 65 25  2c 61 25 0d 1c 7a 09 71  |.. q$,e%,a%..z.q|
00003d90  24 3d 22 22 0d 1c 84 08  61 25 3d 33 0d 1c 8e 05  |$=""....a%=3....|
00003da0  f5 0d 1c 98 10 65 24 3d  c1 70 24 2c 61 25 2c 31  |.....e$=.p$,a%,1|
00003db0  29 0d 1c a2 18 e7 20 65  24 3c 3e 22 27 22 20 8c  |)..... e$<>"'" .|
00003dc0  20 71 24 3d 71 24 2b 65  24 0d 1c ac 09 61 25 2b  | q$=q$+e$....a%+|
00003dd0  3d 31 0d 1c b6 0c fd 20  65 24 3d 22 27 22 0d 1c  |=1..... e$="'"..|
00003de0  c0 07 3d 71 24 0d 1c ca  04 0d 1c d4 26 f4 20 70  |..=q$.......&. p|
00003df0  72 69 6e 74 20 61 20 68  65 78 20 6e 75 6d 62 65  |rint a hex numbe|
00003e00  72 20 77 69 74 68 20 34  20 70 6c 61 63 65 73 0d  |r with 4 places.|
00003e10  1c de 0c dd 20 f2 70 28  4e 25 29 0d 1c e8 08 ea  |.... .p(N%).....|
00003e20  20 41 24 0d 1c f2 0b 41  24 3d c3 7e 4e 25 0d 1c  | A$....A$=.~N%..|
00003e30  fc 1b e7 20 a9 28 41 24  29 3d 31 20 8c 20 41 24  |... .(A$)=1 . A$|
00003e40  3d 22 30 30 30 22 2b 41  24 0d 1d 06 1a e7 20 a9  |="000"+A$..... .|
00003e50  28 41 24 29 3d 32 20 8c  20 41 24 3d 22 30 30 22  |(A$)=2 . A$="00"|
00003e60  2b 41 24 0d 1d 10 19 e7  20 a9 28 41 24 29 3d 33  |+A$..... .(A$)=3|
00003e70  20 8c 20 41 24 3d 22 30  22 2b 41 24 0d 1d 1a 15  | . A$="0"+A$....|
00003e80  f2 73 70 72 69 6e 74 28  41 24 2b 22 20 20 20 22  |.sprint(A$+"   "|
00003e90  29 0d 1d 24 05 e1 0d 1d  2e 04 0d 1d 38 1b f4 20  |)..$........8.. |
00003ea0  63 6f 6e 76 65 72 74 20  74 6f 20 6c 6f 77 65 72  |convert to lower|
00003eb0  20 63 61 73 65 0d 1d 42  0d dd 20 a4 6c 63 28 4e  | case..B.. .lc(N|
00003ec0  24 29 0d 1d 4c 0b ea 20  61 25 2c 4c 24 0d 1d 56  |$)..L.. a%,L$..V|
00003ed0  09 4c 24 3d 22 22 0d 1d  60 12 e3 20 61 25 3d 31  |.L$=""..`.. a%=1|
00003ee0  20 b8 20 a9 28 4e 24 29  0d 1d 6a 1f 4c 24 3d 4c  | . .(N$)..j.L$=L|
00003ef0  24 2b bd 28 97 28 c1 4e  24 2c 61 25 2c 31 29 29  |$+.(.(.N$,a%,1))|
00003f00  20 84 20 26 36 30 29 0d  1d 74 05 ed 0d 1d 7e 07  | . &60)..t....~.|
00003f10  3d 4c 24 0d 1d 88 04 0d  1d 92 24 f4 20 50 61 72  |=L$.......$. Par|
00003f20  73 20 61 6e 20 69 6e 73  74 72 75 63 74 69 6f 6e  |s an instruction|
00003f30  20 6f 72 20 61 20 6c 61  62 6c 65 0d 1d 9c 0b dd  | or a lable.....|
00003f40  20 a4 70 61 72 73 0d 1d  a6 0e ea 20 61 25 2c 4e  | .pars..... a%,N|
00003f50  24 2c 43 24 0d 1d b0 05  f5 0d 1d ba 20 e7 20 ac  |$,C$........ . .|
00003f60  28 c5 23 46 25 29 20 8c  20 61 25 3d 9a 23 46 25  |(.#F%) . a%=.#F%|
00003f70  20 8b 20 61 25 3d 26 33  42 0d 1d c4 15 e7 20 61  | . a%=&3B..... a|
00003f80  25 3e 26 31 46 20 8c 20  4c 61 25 2b 3d 31 0d 1d  |%>&1F . La%+=1..|
00003f90  ce 1a e7 20 61 25 3d 26  30 41 20 8c 20 f2 73 70  |... a%=&0A . .sp|
00003fa0  72 69 6e 74 28 22 22 29  0d 1d d8 0c fd 20 61 25  |rint("")..... a%|
00003fb0  3e 26 32 30 0d 1d e2 0c  4e 24 3d bd 28 61 25 29  |>&20....N$=.(a%)|
00003fc0  0d 1d ec 0f e7 20 4e 24  3c 3e 22 3b 22 20 8c 0d  |..... N$<>";" ..|
00003fd0  1d f6 06 20 f5 0d 1e 00  21 20 20 e7 20 ac 28 c5  |... ....!  . .(.|
00003fe0  23 46 25 29 20 8c 20 61  25 3d 9a 23 46 25 20 8b  |#F%) . a%=.#F% .|
00003ff0  20 61 25 3d 31 30 0d 1e  0a 22 20 20 e7 20 61 25  | a%=10..."  . a%|
00004000  3e 26 32 30 20 8c 20 43  24 3d bd 28 61 25 29 3a  |>&20 . C$=.(a%):|
00004010  4e 24 3d 4e 24 2b 43 24  0d 1e 14 1d 20 fd 20 c5  |N$=N$+C$.... . .|
00004020  23 46 25 20 84 20 43 24  3d 22 2c 22 20 84 20 61  |#F% . C$="," . a|
00004030  25 3c 26 32 31 0d 1e 1e  16 20 e7 20 61 25 3d 31  |%<&21.... . a%=1|
00004040  33 20 8c 20 61 25 3d 9a  23 46 25 0d 1e 28 16 20  |3 . a%=.#F%..(. |
00004050  e7 20 61 25 3d 31 30 20  8c 20 4e 63 4e 6c 25 3d  |. a%=10 . NcNl%=|
00004060  b9 0d 1e 32 23 20 e7 20  c2 4e 24 2c 31 29 3d 22  |...2# . .N$,1)="|
00004070  2c 22 20 8c 20 4e 24 3d  c0 4e 24 2c a9 28 4e 24  |," . N$=.N$,.(N$|
00004080  29 2d 31 29 0d 1e 3c 05  cc 0d 1e 46 0f f2 73 70  |)-1)..<....F..sp|
00004090  72 69 6e 74 28 4e 24 29  0d 1e 50 08 f2 5f 50 63  |rint(N$)..P.._Pc|
000040a0  0d 1e 5a 05 cd 0d 1e 64  07 3d 4e 24 0d 1e 6e 04  |..Z....d.=N$..n.|
000040b0  0d 1e 78 12 f4 20 50 61  72 73 20 63 6f 6d 6d 65  |..x.. Pars comme|
000040c0  6e 74 0d 1e 82 0a dd 20  f2 5f 50 63 0d 1e 8c 08  |nt..... ._Pc....|
000040d0  ea 20 62 25 0d 1e 96 0a  4c 61 25 2b 3d 31 0d 1e  |. b%....La%+=1..|
000040e0  a0 05 f5 0d 1e aa 20 20  e7 20 ac 28 c5 23 46 25  |......  . .(.#F%|
000040f0  29 20 8c 20 62 25 3d 9a  23 46 25 20 8b 20 62 25  |) . b%=.#F% . b%|
00004100  3d 31 30 0d 1e b4 1e 20  e7 20 62 25 3e 26 31 46  |=10.... . b%>&1F|
00004110  20 8c 20 f2 73 70 72 69  6e 74 28 bd 28 62 25 29  | . .sprint(.(b%)|
00004120  29 0d 1e be 0b fd 20 62  25 3d 31 30 0d 1e c8 0f  |)..... b%=10....|
00004130  f2 73 70 72 69 6e 74 28  22 22 29 0d 1e d2 05 e1  |.sprint("").....|
00004140  0d 1e dc 04 0d 1e e6 11  dd 20 f2 73 70 72 69 6e  |......... .sprin|
00004150  74 28 4e 24 29 0d 1e f0  0f e7 20 50 61 73 73 25  |t(N$)..... Pass%|
00004160  3d 32 20 8c 0d 1e fa 10  f2 46 73 74 72 65 61 6d  |=2 ......Fstream|
00004170  28 4e 24 29 0d 1f 04 05  cd 0d 1f 0e 05 e1 0d 1f  |(N$)............|
00004180  18 04 0d 1f 22 11 dd 20  f2 65 70 72 69 6e 74 28  |....".. .eprint(|
00004190  4e 24 29 0d 1f 2c 0f e7  20 50 61 73 73 25 3d 32  |N$)..,.. Pass%=2|
000041a0  20 8c 0d 1f 36 1f f2 73  70 72 69 6e 74 28 22 2a  | ...6..sprint("*|
000041b0  2a 2a 20 20 22 2b 4e 24  2b 22 20 2a 2a 2a 20 22  |**  "+N$+" *** "|
000041c0  29 0d 1f 40 0e 45 72 72  6f 72 73 25 2b 3d 31 0d  |)..@.Errors%+=1.|
000041d0  1f 4a 3d e7 20 45 72 72  6f 72 73 25 3c 31 30 30  |.J=. Errors%<100|
000041e0  20 8c 20 45 6c 69 73 74  25 28 45 72 72 6f 72 73  | . Elist%(Errors|
000041f0  25 29 3d 4c 69 6e 65 73  50 25 3a 45 73 74 72 24  |%)=LinesP%:Estr$|
00004200  28 45 72 72 6f 72 73 25  29 3d 4e 24 0d 1f 54 05  |(Errors%)=N$..T.|
00004210  cd 0d 1f 5e 05 e1 0d 1f  68 04 0d 1f 72 12 dd 20  |...^....h...r.. |
00004220  f2 46 73 74 72 65 61 6d  28 50 24 29 0d 1f 7c 0b  |.Fstream(P$)..|.|
00004230  ea 20 41 25 2c 42 25 0d  1f 86 0d e7 20 50 24 3d  |. A%,B%..... P$=|
00004240  22 22 20 8c 0d 1f 90 0c  d5 23 46 4c 25 2c 31 30  |"" ......#FL%,10|
00004250  0d 1f 9a 05 cc 0d 1f a4  12 e3 20 41 25 3d 31 20  |.......... A%=1 |
00004260  b8 20 a9 28 50 24 29 0d  1f ae 13 42 25 3d 97 28  |. .(P$)....B%=.(|
00004270  c1 50 24 2c 41 25 2c 31  29 29 0d 1f b8 0c d5 23  |.P$,A%,1)).....#|
00004280  46 4c 25 2c 42 25 0d 1f  c2 05 ed 0d 1f cc 05 cd  |FL%,B%..........|
00004290  0d 1f d6 05 e1 0d 1f e0  04 0d 1f ea 1c f4 20 4d  |.............. M|
000042a0  6e 65 6d 6f 6e 69 63 2c  20 6f 70 63 6f 64 65 2c  |nemonic, opcode,|
000042b0  20 74 79 70 65 0d 1f f4  3c dc 20 61 64 64 77 66  | type...<. addwf|
000042c0  2c 26 37 30 30 2c 31 2c  20 61 6e 64 77 66 2c 20  |,&700,1, andwf, |
000042d0  26 35 30 30 2c 31 2c 20  20 63 6c 72 66 2c 26 31  |&500,1,  clrf,&1|
000042e0  38 30 2c 34 2c 20 63 6c  72 77 2c 26 31 30 30 2c  |80,4, clrw,&100,|
000042f0  30 0d 1f fe 3a dc 20 63  6f 6d 66 2c 26 39 30 30  |0...:. comf,&900|
00004300  2c 31 2c 20 64 65 63 66  2c 26 33 30 30 2c 31 2c  |,1, decf,&300,1,|
00004310  20 64 65 63 66 73 7a 2c  26 42 30 30 2c 31 2c 20  | decfsz,&B00,1, |
00004320  69 6e 63 66 2c 26 41 30  30 2c 31 0d 20 08 3c dc  |incf,&A00,1. .<.|
00004330  20 69 6e 63 66 73 7a 2c  26 46 30 30 2c 31 2c 20  | incfsz,&F00,1, |
00004340  69 6f 72 77 66 2c 26 34  30 30 2c 31 2c 20 6d 6f  |iorwf,&400,1, mo|
00004350  76 66 2c 26 38 30 30 2c  31 2c 20 6d 6f 76 77 66  |vf,&800,1, movwf|
00004360  2c 26 30 38 30 2c 34 0d  20 12 33 dc 20 6e 6f 70  |,&080,4. .3. nop|
00004370  2c 30 2c 30 2c 20 72 6c  66 2c 26 44 30 30 2c 31  |,0,0, rlf,&D00,1|
00004380  2c 20 72 72 66 2c 26 43  30 30 2c 31 2c 20 73 75  |, rrf,&C00,1, su|
00004390  62 77 66 2c 26 32 30 30  2c 31 0d 20 1c 3a dc 20  |bwf,&200,1. .:. |
000043a0  73 77 61 70 66 2c 26 45  30 30 2c 31 2c 20 78 6f  |swapf,&E00,1, xo|
000043b0  72 77 66 2c 26 36 30 30  2c 31 2c 20 62 63 66 2c  |rwf,&600,1, bcf,|
000043c0  26 31 30 30 30 2c 32 2c  20 62 73 66 2c 26 31 34  |&1000,2, bsf,&14|
000043d0  30 30 2c 32 0d 20 26 4e  dc 20 62 74 66 73 63 2c  |00,2. &N. btfsc,|
000043e0  26 31 38 30 30 2c 32 2c  20 62 74 66 73 73 2c 26  |&1800,2, btfss,&|
000043f0  31 43 30 30 2c 32 2c 20  61 64 64 6c 77 2c 26 33  |1C00,2, addlw,&3|
00004400  45 30 30 2c 33 2c 20 61  6e 64 6c 77 2c 26 33 39  |E00,3, andlw,&39|
00004410  30 30 2c 33 2c 20 63 61  6c 6c 2c 26 32 30 30 30  |00,3, call,&2000|
00004420  2c 33 0d 20 30 3e dc 20  63 6c 72 77 64 74 2c 26  |,3. 0>. clrwdt,&|
00004430  36 34 2c 30 2c 20 67 6f  74 6f 2c 26 32 38 30 30  |64,0, goto,&2800|
00004440  2c 35 2c 20 69 6f 72 6c  77 2c 26 33 38 30 30 2c  |,5, iorlw,&3800,|
00004450  33 2c 20 6d 6f 76 6c 77  2c 26 33 30 30 30 2c 33  |3, movlw,&3000,3|
00004460  0d 20 3a 3c dc 20 72 65  74 66 69 65 2c 20 26 39  |. :<. retfie, &9|
00004470  2c 30 2c 20 72 65 74 6c  77 2c 26 33 34 30 30 2c  |,0, retlw,&3400,|
00004480  33 2c 20 72 65 74 75 72  6e 2c 26 38 2c 30 2c 20  |3, return,&8,0, |
00004490  73 6c 65 65 70 2c 26 30  36 33 2c 30 0d 20 44 22  |sleep,&063,0. D"|
000044a0  dc 20 73 75 62 6c 77 2c  26 33 43 30 30 2c 33 2c  |. sublw,&3C00,3,|
000044b0  20 78 6f 72 6c 77 2c 26  33 41 30 30 2c 33 0d 20  | xorlw,&3A00,3. |
000044c0  4e 1f f4 20 49 6e 73 74  72 75 63 74 69 6f 6e 73  |N.. Instructions|
000044d0  20 74 6f 20 70 68 61 73  65 20 6f 75 74 0d 20 58  | to phase out. X|
000044e0  20 dc 20 74 72 69 73 2c  26 36 30 2c 34 2c 20 20  | . tris,&60,4,  |
000044f0  6f 70 74 69 6f 6e 2c 26  30 36 32 2c 30 0d 20 62  |option,&062,0. b|
00004500  2c f4 20 54 79 70 65 20  36 20 69 6e 73 74 72 75  |,. Type 6 instru|
00004510  63 74 69 6f 6e 73 20 61  72 65 20 70 73 75 64 6f  |ctions are psudo|
00004520  20 6f 70 20 63 6f 64 65  73 0d 20 6c 47 dc 20 6f  | op codes. lG. o|
00004530  72 67 2c 26 30 2c 36 2c  20 6c 69 73 74 2c 26 30  |rg,&0,6, list,&0|
00004540  2c 36 2c 20 65 71 75 62  2c 26 30 2c 36 2c 20 65  |,6, equb,&0,6, e|
00004550  71 75 73 2c 26 30 2c 36  2c 20 72 65 74 73 2c 26  |qus,&0,6, rets,&|
00004560  30 2c 36 2c 20 63 62 6c  6f 63 6b 2c 26 30 2c 36  |0,6, cblock,&0,6|
00004570  0d 20 76 04 0d 20 80 0c  dd 20 f2 6d 57 69 70 65  |. v.. ... .mWipe|
00004580  0d 20 8a 08 ea 20 41 25  0d 20 94 11 e3 20 41 25  |. ... A%. ... A%|
00004590  3d 30 20 b8 20 26 37 46  46 0d 20 9e 14 50 72 6f  |=0 . &7FF. ..Pro|
000045a0  67 4d 65 6d 53 25 3f 41  25 3d 26 46 46 0d 20 a8  |gMemS%?A%=&FF. .|
000045b0  05 ed 0d 20 b2 10 e3 20  41 25 3d 30 20 b8 20 26  |... ... A%=0 . &|
000045c0  37 46 0d 20 bc 14 44 61  74 61 4d 65 6d 53 25 3f  |7F. ..DataMemS%?|
000045d0  41 25 3d 26 46 46 0d 20  c6 05 ed 0d 20 d0 0f e3  |A%=&FF. .... ...|
000045e0  20 41 25 3d 30 20 b8 20  26 46 0d 20 da 15 43 6f  | A%=0 . &F. ..Co|
000045f0  6e 66 69 67 4d 65 6d 25  3f 41 25 3d 26 46 46 0d  |nfigMem%?A%=&FF.|
00004600  20 e4 05 ed 0d 20 ee 05  e1 0d 20 f8 04 0d 21 02  | .... .... ...!.|
00004610  1a f4 20 50 75 74 20 6f  70 63 6f 64 65 20 69 6e  |.. Put opcode in|
00004620  20 6d 65 6d 6f 72 79 0d  21 0c 0e dd 20 f2 6d 65  | memory.!... .me|
00004630  6d 28 6f 25 29 0d 21 16  11 ea 20 42 61 73 65 25  |m(o%).!... Base%|
00004640  2c 50 25 2c 51 25 0d 21  20 0c 42 61 73 65 25 3d  |,P%,Q%.! .Base%=|
00004650  2d 31 0d 21 2a 3f e7 20  41 64 64 72 65 73 73 25  |-1.!*?. Address%|
00004660  3c 26 34 30 30 20 80 20  41 64 64 72 65 73 73 25  |<&400 . Address%|
00004670  3e 3d 30 20 8c 20 42 61  73 65 25 3d 50 72 6f 67  |>=0 . Base%=Prog|
00004680  4d 65 6d 53 25 3a 51 25  3d 41 64 64 72 65 73 73  |MemS%:Q%=Address|
00004690  25 0d 21 34 4a e7 20 41  64 64 72 65 73 73 25 3e  |%.!4J. Address%>|
000046a0  26 31 46 46 46 20 80 20  41 64 64 72 65 73 73 25  |&1FFF . Address%|
000046b0  3c 26 32 30 30 39 20 8c  20 42 61 73 65 25 3d 43  |<&2009 . Base%=C|
000046c0  6f 6e 66 69 67 4d 65 6d  25 3a 51 25 3d 41 64 64  |onfigMem%:Q%=Add|
000046d0  72 65 73 73 25 2d 26 32  30 30 30 0d 21 3e 49 e7  |ress%-&2000.!>I.|
000046e0  20 41 64 64 72 65 73 73  25 3e 26 32 30 46 46 20  | Address%>&20FF |
000046f0  80 20 41 64 64 72 65 73  73 25 3c 26 32 31 34 30  |. Address%<&2140|
00004700  20 8c 20 42 61 73 65 25  3d 44 61 74 61 4d 65 6d  | . Base%=DataMem|
00004710  53 25 3a 51 25 3d 41 64  64 72 65 73 73 25 2d 26  |S%:Q%=Address%-&|
00004720  32 31 30 30 0d 21 48 10  e7 20 42 61 73 65 25 3d  |2100.!H.. Base%=|
00004730  2d 31 20 8c 0d 21 52 25  f2 65 70 72 69 6e 74 28  |-1 ..!R%.eprint(|
00004740  22 20 41 64 64 72 65 73  73 20 6f 75 74 20 6f 66  |" Address out of|
00004750  20 72 61 6e 67 65 20 22  29 0d 21 5c 05 cc 0d 21  | range ").!\...!|
00004760  66 0c 50 25 3d 51 25 3c  3c 31 0d 21 70 14 42 61  |f.P%=Q%<<1.!p.Ba|
00004770  73 65 25 3f 50 25 3d 6f  25 20 3e 3e 20 38 0d 21  |se%?P%=o% >> 8.!|
00004780  7a 19 42 61 73 65 25 3f  28 50 25 2b 31 29 3d 6f  |z.Base%?(P%+1)=o|
00004790  25 20 80 20 26 46 46 0d  21 84 05 cd 0d 21 8e 05  |% . &FF.!....!..|
000047a0  e1 0d 21 98 04 0d 21 a2  0f dd 20 f2 6d 65 6d 55  |..!...!... .memU|
000047b0  73 61 67 65 0d 21 ac 0e  ea 20 41 25 2c 42 25 2c  |sage.!... A%,B%,|
000047c0  43 25 0d 21 b6 0f f2 73  70 72 69 6e 74 28 22 22  |C%.!...sprint(""|
000047d0  29 0d 21 c0 3a f2 73 70  72 69 6e 74 28 22 4d 65  |).!.:.sprint("Me|
000047e0  6d 6f 72 79 20 55 73 61  67 65 20 4d 61 70 20 28  |mory Usage Map (|
000047f0  27 58 27 20 3d 20 55 73  65 64 2c 20 27 2d 27 20  |'X' = Used, '-' |
00004800  3d 20 55 6e 75 73 65 64  29 22 29 0d 21 ca 0f f2  |= Unused)").!...|
00004810  73 70 72 69 6e 74 28 22  22 29 0d 21 d4 08 42 25  |sprint("").!..B%|
00004820  3d 30 0d 21 de 05 f5 0d  21 e8 08 41 25 3d 30 0d  |=0.!....!..A%=0.|
00004830  21 f2 06 20 f5 0d 21 fc  23 20 43 25 3d 50 72 6f  |!.. ..!.# C%=Pro|
00004840  67 4d 65 6d 53 25 3f 28  28 41 25 3c 3c 31 29 2b  |gMemS%?((A%<<1)+|
00004850  28 42 25 3c 3c 31 29 29  0d 22 06 0a 20 41 25 2b  |(B%<<1)).".. A%+|
00004860  3d 31 0d 22 10 17 20 fd  20 41 25 3d 26 33 46 20  |=1.".. . A%=&3F |
00004870  84 20 43 25 3c 3e 26 46  46 0d 22 1a 1a e7 20 43  |. C%<>&FF."... C|
00004880  25 3c 3e 26 46 46 20 8c  20 f2 6d 4c 69 6e 65 28  |%<>&FF . .mLine(|
00004890  42 25 29 0d 22 24 0b 42  25 2b 3d 26 34 30 0d 22  |B%)."$.B%+=&40."|
000048a0  2e 0d fd 20 42 25 3d 26  34 30 30 0d 22 38 0f f2  |... B%=&400."8..|
000048b0  73 70 72 69 6e 74 28 22  22 29 0d 22 42 05 e1 0d  |sprint("")."B...|
000048c0  22 4c 04 0d 22 56 10 dd  20 f2 6d 4c 69 6e 65 28  |"L.."V.. .mLine(|
000048d0  4e 25 29 0d 22 60 08 ea  20 41 25 0d 22 6a 23 f2  |N%)."`.. A%."j#.|
000048e0  73 70 72 69 6e 74 28 22  22 29 3a f2 70 28 4e 25  |sprint(""):.p(N%|
000048f0  29 3a f2 73 70 72 69 6e  74 28 22 3a 22 29 0d 22  |):.sprint(":")."|
00004900  74 14 e3 20 41 25 3d 4e  25 20 b8 20 4e 25 2b 26  |t.. A%=N% . N%+&|
00004910  33 46 0d 22 7e 21 e7 20  28 41 25 20 83 20 26 31  |3F."~!. (A% . &1|
00004920  30 29 3d 30 20 8c 20 f2  73 70 72 69 6e 74 28 22  |0)=0 . .sprint("|
00004930  20 22 29 0d 22 88 3d e7  20 50 72 6f 67 4d 65 6d  | ").".=. ProgMem|
00004940  53 25 3f 28 31 2b 28 41  25 3c 3c 31 29 29 3d 26  |S%?(1+(A%<<1))=&|
00004950  46 46 20 8c 20 f2 73 70  72 69 6e 74 28 22 2d 22  |FF . .sprint("-"|
00004960  29 20 8b 20 f2 73 70 72  69 6e 74 28 22 58 22 29  |) . .sprint("X")|
00004970  0d 22 92 05 ed 0d 22 9c  05 e1 0d 22 a6 04 0d 22  |."...."...."..."|
00004980  b0 0b dd 20 f2 68 65 61  64 0d 22 ba 08 ea 20 44  |... .head."... D|
00004990  24 0d 22 c4 47 44 24 3d  a4 73 79 73 56 28 22 53  |$.".GD$=.sysV("S|
000049a0  79 73 24 44 61 74 65 22  29 2b 22 20 22 2b a4 73  |ys$Date")+" "+.s|
000049b0  79 73 56 28 22 53 79 73  24 59 65 61 72 22 29 2b  |ysV("Sys$Year")+|
000049c0  22 20 61 74 20 22 2b a4  73 79 73 56 28 22 53 79  |" at "+.sysV("Sy|
000049d0  73 24 54 69 6d 65 22 29  0d 22 ce 40 f2 73 70 72  |s$Time").".@.spr|
000049e0  69 6e 74 28 22 50 49 43  20 31 36 43 38 34 20 41  |int("PIC 16C84 A|
000049f0  73 73 65 6d 62 6c 65 72  20 56 31 2e 30 20 62 79  |ssembler V1.0 by|
00004a00  20 4d 69 6b 65 20 43 6f  6f 6b 22 29 3a f2 73 70  | Mike Cook"):.sp|
00004a10  72 69 6e 74 28 22 22 29  0d 22 d8 1e f2 73 70 72  |rint("")."...spr|
00004a20  69 6e 74 28 22 46 69 6c  65 3a 2d 20 22 2b 49 6e  |int("File:- "+In|
00004a30  46 69 6c 65 24 29 0d 22  e2 0f f2 73 70 72 69 6e  |File$)."...sprin|
00004a40  74 28 22 22 29 0d 22 ec  22 f2 73 70 72 69 6e 74  |t("").".".sprint|
00004a50  28 22 41 73 73 65 6d 62  6c 65 64 20 6f 6e 20 3a  |("Assembled on :|
00004a60  2d 20 22 2b 44 24 29 0d  22 f6 1b f2 73 70 72 69  |- "+D$)."...spri|
00004a70  6e 74 28 22 22 29 3a f2  73 70 72 69 6e 74 28 22  |nt(""):.sprint("|
00004a80  22 29 0d 23 00 05 e1 0d  23 0a 04 0d 23 14 0f dd  |").#....#...#...|
00004a90  20 a4 73 79 73 56 28 56  24 29 0d 23 1e 11 ea 20  | .sysV(V$).#... |
00004aa0  52 24 2c 41 25 2c 4c 25  2c 42 25 0d 23 28 0b de  |R$,A%,L%,B%.#(..|
00004ab0  20 42 25 20 32 30 0d 23  32 25 c8 99 22 4f 53 5f  | B% 20.#2%.."OS_|
00004ac0  52 65 61 64 56 61 72 56  61 6c 22 2c 56 24 2c 42  |ReadVarVal",V$,B|
00004ad0  25 2c 32 30 20 b8 20 2c  2c 4c 25 0d 23 3c 09 52  |%,20 . ,,L%.#<.R|
00004ae0  24 3d 22 22 0d 23 46 11  e3 20 41 25 3d 30 20 b8  |$="".#F.. A%=0 .|
00004af0  20 4c 25 2d 31 0d 23 50  12 52 24 3d 52 24 2b bd  | L%-1.#P.R$=R$+.|
00004b00  28 42 25 3f 41 25 29 0d  23 5a 05 ed 0d 23 64 07  |(B%?A%).#Z...#d.|
00004b10  3d 52 24 0d 23 6e 04 0d  23 78 0f dd 20 f2 77 72  |=R$.#n..#x.. .wr|
00004b20  69 74 65 4f 62 6a 0d 23  82 1e ea 20 66 72 6f 6d  |iteObj.#... from|
00004b30  25 2c 74 6f 25 2c 73 69  7a 65 25 2c 62 61 73 65  |%,to%,size%,base|
00004b40  25 2c 6e 25 0d 23 8c 11  e7 20 45 72 72 6f 72 73  |%,n%.#... Errors|
00004b50  25 3d 30 20 8c 0d 23 96  13 46 4f 25 3d ae 28 4f  |%=0 ..#..FO%=.(O|
00004b60  62 6a 46 69 6c 65 24 29  0d 23 a0 35 e7 20 46 4f  |bjFile$).#.5. FO|
00004b70  25 3d 30 20 8c 20 f2 5f  73 65 74 75 70 57 28 22  |%=0 . ._setupW("|
00004b80  48 65 78 20 66 69 6c 65  20 63 61 6e 27 74 20 62  |Hex file can't b|
00004b90  65 20 63 72 65 61 74 65  64 22 29 3a e1 0d 23 aa  |e created"):..#.|
00004ba0  26 f4 20 44 6f 20 74 68  65 20 73 61 76 69 6e 67  |&. Do the saving|
00004bb0  20 6f 66 20 61 20 68 65  78 20 66 69 6c 65 20 68  | of a hex file h|
00004bc0  65 72 65 0d 23 b4 0e e3  20 6e 25 3d 31 20 b8 20  |ere.#... n%=1 . |
00004bd0  33 0d 23 be 0b c8 8e 20  6e 25 20 ca 0d 23 c8 25  |3.#.... n% ..#.%|
00004be0  c9 20 31 3a 20 62 61 73  65 25 3d 50 72 6f 67 4d  |. 1: base%=ProgM|
00004bf0  65 6d 53 25 20 20 3a 73  69 7a 65 25 3d 26 33 46  |emS%  :size%=&3F|
00004c00  46 0d 23 d2 24 c9 20 32  3a 20 62 61 73 65 25 3d  |F.#.$. 2: base%=|
00004c10  44 61 74 61 4d 65 6d 53  25 20 20 3a 73 69 7a 65  |DataMemS%  :size|
00004c20  25 3d 26 33 46 0d 23 dc  22 c9 20 33 3a 20 62 61  |%=&3F.#.". 3: ba|
00004c30  73 65 25 3d 43 6f 6e 66  69 67 4d 65 6d 25 20 3a  |se%=ConfigMem% :|
00004c40  73 69 7a 65 25 3d 37 0d  23 e6 05 cb 0d 23 f0 04  |size%=7.#....#..|
00004c50  0d 23 fa 11 74 6f 25 3d  30 3a 66 72 6f 6d 25 3d  |.#..to%=0:from%=|
00004c60  30 0d 24 04 05 f5 0d 24  0e 23 66 72 6f 6d 25 3d  |0.$....$.#from%=|
00004c70  a4 73 75 73 65 64 28 62  61 73 65 25 2c 74 6f 25  |.sused(base%,to%|
00004c80  2c 73 69 7a 65 25 2b 31  29 0d 24 18 41 e7 20 66  |,size%+1).$.A. f|
00004c90  72 6f 6d 25 3c 73 69 7a  65 25 20 8c 20 74 6f 25  |rom%<size% . to%|
00004ca0  3d a4 73 55 6e 75 73 65  64 28 62 61 73 65 25 2c  |=.sUnused(base%,|
00004cb0  66 72 6f 6d 25 2c 73 69  7a 65 25 2b 31 29 20 8b  |from%,size%+1) .|
00004cc0  20 74 6f 25 3d 66 72 6f  6d 25 0d 24 22 2f e7 20  | to%=from%.$"/. |
00004cd0  66 72 6f 6d 25 3c 28 73  69 7a 65 25 2b 31 29 20  |from%<(size%+1) |
00004ce0  8c 20 f2 73 4c 69 6e 65  28 62 61 73 65 25 2c 66  |. .sLine(base%,f|
00004cf0  72 6f 6d 25 2c 74 6f 25  29 0d 24 2c 0a 74 6f 25  |rom%,to%).$,.to%|
00004d00  2b 3d 31 0d 24 36 12 fd  20 66 72 6f 6d 25 3e 3d  |+=1.$6.. from%>=|
00004d10  73 69 7a 65 25 0d 24 40  05 ed 0d 24 4a 09 f2 5f  |size%.$@...$J.._|
00004d20  65 6f 66 0d 24 54 27 d9  23 46 4f 25 3a ff 28 22  |eof.$T'.#FO%:.("|
00004d30  53 45 54 54 59 50 45 20  22 2b 4f 62 6a 46 69 6c  |SETTYPE "+ObjFil|
00004d40  65 24 2b 22 20 30 38 34  22 29 0d 24 5e 05 cd 0d  |e$+" 084").$^...|
00004d50  24 68 05 e1 0d 24 72 04  0d 24 7c 16 dd 20 a4 73  |$h...$r..$|.. .s|
00004d60  75 73 65 64 28 42 25 2c  53 25 2c 45 25 29 0d 24  |used(B%,S%,E%).$|
00004d70  86 08 ea 20 50 25 0d 24  90 09 50 25 3d 53 25 0d  |... P%.$..P%=S%.|
00004d80  24 9a 05 f5 0d 24 a4 11  43 25 3d 42 25 3f 28 50  |$....$..C%=B%?(P|
00004d90  25 3c 3c 31 29 0d 24 ae  09 50 25 2b 3d 31 0d 24  |%<<1).$..P%+=1.$|
00004da0  b8 15 fd 20 43 25 3c 3e  26 46 46 20 84 20 50 25  |... C%<>&FF . P%|
00004db0  3e 45 25 0d 24 c2 09 3d  50 25 2d 31 0d 24 cc 04  |>E%.$..=P%-1.$..|
00004dc0  0d 24 d6 18 dd 20 a4 73  55 6e 75 73 65 64 28 42  |.$... .sUnused(B|
00004dd0  25 2c 53 25 2c 45 25 29  0d 24 e0 08 ea 20 50 25  |%,S%,E%).$... P%|
00004de0  0d 24 ea 09 50 25 3d 53  25 0d 24 f4 05 f5 0d 24  |.$..P%=S%.$....$|
00004df0  fe 11 43 25 3d 42 25 3f  28 50 25 3c 3c 31 29 0d  |..C%=B%?(P%<<1).|
00004e00  25 08 09 50 25 2b 3d 31  0d 25 12 14 fd 20 43 25  |%..P%+=1.%... C%|
00004e10  3d 26 46 46 20 84 20 50  25 3e 45 25 0d 25 1c 09  |=&FF . P%>E%.%..|
00004e20  3d 50 25 2d 31 0d 25 26  04 0d 25 30 21 dd 20 f2  |=P%-1.%&..%0!. .|
00004e30  73 4c 69 6e 65 28 42 61  73 65 25 2c 53 74 61 72  |sLine(Base%,Star|
00004e40  74 25 2c 4c 69 6d 69 74  25 29 0d 25 3a 22 ea 20  |t%,Limit%).%:". |
00004e50  41 25 2c 44 31 25 2c 44  32 25 2c 50 25 2c 42 25  |A%,D1%,D2%,P%,B%|
00004e60  2c 43 25 2c 41 64 64 25  2c 57 61 25 0d 25 44 11  |,C%,Add%,Wa%.%D.|
00004e70  4c 69 6d 69 74 25 3d 4c  69 6d 69 74 25 0d 25 4e  |Limit%=Limit%.%N|
00004e80  0f 41 64 64 25 3d 53 74  61 72 74 25 0d 25 58 24  |.Add%=Start%.%X$|
00004e90  e7 20 42 61 73 65 25 3d  44 61 74 61 4d 65 6d 53  |. Base%=DataMemS|
00004ea0  25 20 20 8c 20 41 64 64  25 2b 3d 26 32 31 30 30  |%  . Add%+=&2100|
00004eb0  0d 25 62 24 e7 20 42 61  73 65 25 3d 43 6f 6e 66  |.%b$. Base%=Conf|
00004ec0  69 67 4d 65 6d 25 20 8c  20 41 64 64 25 2b 3d 26  |igMem% . Add%+=&|
00004ed0  32 30 30 30 0d 25 6c 0d  41 25 3d 53 74 61 72 74  |2000.%l.A%=Start|
00004ee0  25 0d 25 76 05 f5 0d 25  80 10 d5 23 46 4f 25 2c  |%.%v...%...#FO%,|
00004ef0  97 28 22 3a 22 29 0d 25  8a 2f e7 20 28 41 25 2b  |.(":").%./. (A%+|
00004f00  34 29 3c 3d 4c 69 6d 69  74 25 20 8c 20 50 25 3d  |4)<=Limit% . P%=|
00004f10  38 20 8b 20 50 25 3d 28  4c 69 6d 69 74 25 2d 41  |8 . P%=(Limit%-A|
00004f20  25 29 3c 3c 31 0d 25 94  11 e7 20 50 25 3d 30 20  |%)<<1.%... P%=0 |
00004f30  8c 20 50 25 3d 32 0d 25  9e 0c 43 68 65 63 6b 25  |. P%=2.%..Check%|
00004f40  3d 30 0d 25 a8 0c f2 61  73 63 28 50 25 29 0d 25  |=0.%...asc(P%).%|
00004f50  b2 0f 57 61 25 3d 41 64  64 25 3c 3c 31 0d 25 bc  |..Wa%=Add%<<1.%.|
00004f60  20 f2 61 73 63 28 57 61  25 3e 3e 38 29 3a f2 61  | .asc(Wa%>>8):.a|
00004f70  73 63 28 57 61 25 20 80  20 26 46 46 29 0d 25 c6  |sc(Wa% . &FF).%.|
00004f80  0b f2 61 73 63 28 30 29  0d 25 d0 11 e3 20 42 25  |..asc(0).%... B%|
00004f90  3d 31 20 b8 20 50 25 2f  32 0d 25 da 15 44 31 25  |=1 . P%/2.%..D1%|
00004fa0  3d 42 61 73 65 25 3f 28  41 25 3c 3c 31 29 0d 25  |=Base%?(A%<<1).%|
00004fb0  e4 19 44 32 25 3d 42 61  73 65 25 3f 28 28 41 25  |..D2%=Base%?((A%|
00004fc0  3c 3c 31 29 2b 31 29 0d  25 ee 0d f2 61 73 63 28  |<<1)+1).%...asc(|
00004fd0  44 32 25 29 0d 25 f8 0d  f2 61 73 63 28 44 31 25  |D2%).%...asc(D1%|
00004fe0  29 0d 26 02 11 41 25 2b  3d 31 3a 41 64 64 25 2b  |).&..A%+=1:Add%+|
00004ff0  3d 31 0d 26 0c 05 ed 0d  26 16 1a 43 25 3d 28 ac  |=1.&....&..C%=(.|
00005000  28 43 68 65 63 6b 25 29  2b 31 29 20 80 20 26 46  |(Check%)+1) . &F|
00005010  46 0d 26 20 0c f2 61 73  63 28 43 25 29 0d 26 2a  |F.& ..asc(C%).&*|
00005020  0c d5 23 46 4f 25 2c 31  33 0d 26 34 0c d5 23 46  |..#FO%,13.&4..#F|
00005030  4f 25 2c 31 30 0d 26 3e  10 fd 20 41 25 3e 3d 4c  |O%,10.&>.. A%>=L|
00005040  69 6d 69 74 25 0d 26 48  05 e1 0d 26 52 04 0d 26  |imit%.&H...&R..&|
00005050  5c 0b dd 20 f2 5f 65 6f  66 0d 26 66 1c f4 20 50  |\.. ._eof.&f.. P|
00005060  75 74 20 65 6e 64 20 6f  66 20 66 69 6c 65 20 6d  |ut end of file m|
00005070  61 72 6b 65 72 0d 26 70  10 d5 23 46 4f 25 2c 97  |arker.&p..#FO%,.|
00005080  28 22 3a 22 29 0d 26 7a  2d f2 61 73 63 28 30 29  |(":").&z-.asc(0)|
00005090  3a f2 61 73 63 28 30 29  3a f2 61 73 63 28 30 29  |:.asc(0):.asc(0)|
000050a0  3a f2 61 73 63 28 31 29  3a f2 61 73 63 28 26 46  |:.asc(1):.asc(&F|
000050b0  46 29 0d 26 84 0c d5 23  46 4f 25 2c 31 33 0d 26  |F).&...#FO%,13.&|
000050c0  8e 0c d5 23 46 4f 25 2c  31 30 0d 26 98 05 e1 0d  |...#FO%,10.&....|
000050d0  26 a2 04 0d 26 ac 0e dd  20 f2 61 73 63 28 4e 25  |&...&... .asc(N%|
000050e0  29 0d 26 b6 08 ea 20 53  24 0d 26 c0 0e 43 68 65  |).&... S$.&..Che|
000050f0  63 6b 25 2b 3d 4e 25 0d  26 ca 10 53 24 3d c3 7e  |ck%+=N%.&..S$=.~|
00005100  28 4e 25 3e 3e 34 29 0d  26 d4 0f d5 23 46 4f 25  |(N%>>4).&...#FO%|
00005110  2c 97 28 53 24 29 0d 26  de 12 53 24 3d c3 7e 28  |,.(S$).&..S$=.~(|
00005120  4e 25 20 80 20 26 46 29  0d 26 e8 0f d5 23 46 4f  |N% . &F).&...#FO|
00005130  25 2c 97 28 53 24 29 0d  26 f2 05 e1 0d 26 fc 04  |%,.(S$).&....&..|
00005140  0d ff                                             |..|
00005142

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .