Headers 0000 4F 50 4C 4F 62 Signature: OPLObjectFile** 6A 65 63 ... 0010 01 00 Format version 1 0012 2E 00 Offset of second header: $002e 0014 19 4C 4F 43 3A Source file: "LOC::M:\OPL\DUMPFILE.OPL 3A 4D 3A ... 002E 1E 07 00 00 File length: 1822 ($71E) 0032 0F 11 0F 11 Translator version 110F, runtime version 110F 0036 BE 06 00 00 Procedure table at: $06BE ==== Procedure "DUMPFILE" ==== 06BE 08 44 55 4D 50 Procedure "DUMPFILE" 46 49 4C 45 06C7 3A 00 00 00 File offset $003A 06CB 00 00 Line number 1 003A D6 00 6B 00 10 Stack frame 214 bytes, 16 dynamic bytes used 00 Q-code 107 bytes 0040 00 0 parameters: 0041 29 00 Global declarations 0043 07 48 41 4E 44 Global "HANDLE%" 4C 45 25 00 Type: W% 004C 4E 00 Stack offset 78 ($4E) 004E 08 4E 41 4D 45 Global "NAMEWIN%" 57 49 4E 25 00 Type: W% 0058 50 00 Stack offset 80 ($50) 005A 03 46 4E 24 03 Global "FN$" Type: S$ 005F 53 00 Stack offset 83 ($53) 0061 07 43 48 4F 4E Global "CHONLY%" 4C 59 25 00 Type: W% 006A D4 00 Stack offset 212 ($D4) 006C 13 00 Called procedures 006E 07 47 45 54 46 calls "GETFILE" 49 4C 45 01 1 arguments 0077 08 53 48 4F 57 calls "SHOWFILE" 46 49 4C 45 00 0 arguments 0081 00 End of global references 0082 52 00 80 String at 82 ($52) length 128 0085 00 00 End of string control 0087 00 00 End of array control 0089 07 53 00 a PUSH ADDRs local 83 008C 2B 0A 5C 64 61 a s PUSHs "\dat\*.dbf" 74 5C 2A ... 0098 87 empty STOREs from stack 0099 EF 01 empty STATUSWIN ON 009B 2B 00 s PUSHs "" 009D EE empty SETNAME 009E 04 50 00 a PUSH ADDRw local 80 00A1 4F 00 a w PUSHw 0 00A3 4F 00 a w w PUSHw 0 00A5 28 BD 00 a w w w PUSHw 189 00A8 4F 0B a w w w w PUSHw 11 00AA 4F 01 << w w w w PUSHw 1 00AC 57 26 a w GCREATE 00AE 84 empty STOREw from stack 00AF 4F 00 w PUSHw 0 00B1 F4 01 empty gBORDER 00B3 4F 00 w PUSHw 0 00B5 4F 0C w w PUSHw 12 00B7 28 BD 00 w w w PUSHw 189 00BA 4F 44 w w w w PUSHw 68 00BC 4F 01 w w w w w PUSHw 1 00BE 57 26 w GCREATE 00C0 80 empty POPw and discard 00C1 4F 00 w PUSHw 0 00C3 F4 01 empty gBORDER 00C5 4F 01 w PUSHw 1 00C7 C7 empty gUSE 00C8 4F 04 w PUSHw 4 00CA 4F 14 w w PUSHw 20 00CC 28 B7 00 w w w PUSHw 183 00CF 4F 3B w w w w PUSHw 59 00D1 C8 04 empty gSETWIN 00D3 4F 1E w PUSHw 30 00D5 4F 06 w w PUSHw 6 00D7 4F 01 w w w PUSHw 1 00D9 4F 01 w w w w PUSHw 1 00DB E7 empty SCREEN 00DC 4F 01 w PUSHw 1 00DE 4F 01 w w PUSHw 1 00E0 CF empty gORDER 00E1 04 D4 00 a PUSH ADDRw local 212 00E4 4F 00 a w PUSHw 0 00E6 84 empty STOREw from stack 00E7 4F 00 w PUSHw 0 00E9 4F 00 w w PUSHw 0 00EB 53 3B 00 r Call "GETFILE": 00EE 82 empty POPr and discard 00EF 53 44 00 r Call "SHOWFILE": 00F2 82 empty POPr and discard 00F3 76 empty RETURN ==== Procedure "GETFILE" ==== 06CD 07 47 45 54 46 Procedure "GETFILE" 49 4C 45 06D5 F4 00 00 00 File offset $00F4 06D9 15 00 Line number 22 00F4 28 00 94 00 08 Stack frame 40 bytes, 8 dynamic bytes used 00 Q-code 148 bytes 00FA 01 00 1 parameters: W% 00FC 00 00 Global declarations 00FE 0E 00 Called procedures 0100 05 43 4C 4F 53 calls "CLOSE" 45 00 0 arguments 0107 05 4F 50 45 4E calls "OPEN%" 25 01 1 arguments 010E 03 46 4E 24 03 Global reference "FN$" Type: S$ 0113 08 4E 41 4D 45 Global reference "NAMEWIN%" 57 49 4E 25 00 Type: W% 011D 00 End of global references 011E 00 00 End of string control 0120 00 00 End of array control 0122 04 26 00 a PUSH ADDRw local 38 0125 08 20 00 a w PUSHw parameter 1 (W%) 0128 84 empty STOREw from stack 0129 4F 01 w PUSHw 1 012B 5B 8A 00 empty Jump if zero to 01B5 012E 2B 0D 46 69 6C s PUSHs "File to dump?" 65 20 74 ... 013D EC 01 empty dINIT [1 arguments] 013F 0F 22 00 a PUSH ADDRs global "FN$" 0142 2B 05 46 69 6C a s PUSHs "File:" 65 3A 0149 4F 00 a s w PUSHw 0 014B ED 09 empty dFILE 014D 57 37 w DIALOG 014F 5B 44 00 empty Jump if zero to 0193 0152 4F 01 w PUSHw 1 0154 C7 empty gUSE 0155 D1 empty gCLS 0156 00 26 00 w PUSHw local 38 0159 5B 10 00 empty Jump if zero to 0169 015C 53 12 00 r Call "CLOSE": 015F 82 empty POPr and discard 0160 04 26 00 a PUSH ADDRw local 38 0163 4F 00 a w PUSHw 0 0165 84 empty STOREw from stack 0166 2B 00 s PUSHs "" 0168 EE empty SETNAME 0169 0B 22 00 s PUSHs global "FN$" 016C 4F 03 s w PUSHw 3 016E 53 19 00 w Call "OPEN%": 0171 4F 00 w w PUSHw 0 0173 3C w OP[>=]w 0174 5B 1C 00 empty Jump if zero to 0190 0177 0B 22 00 s PUSHs global "FN$" 017A EE empty SETNAME 017B 08 24 00 w PUSHw global "NAMEWIN%" 017E C7 empty gUSE 017F D1 empty gCLS 0180 4F 05 w PUSHw 5 0182 4F 09 w w PUSHw 9 0184 D2 empty gAT 0185 0B 22 00 s PUSHs global "FN$" 0188 D7 empty gPRINT str 0189 4F 00 w PUSHw 0 018B F4 01 empty gBORDER 018D BF 28 00 empty GOTO 01B5 0190 BF 10 00 empty GOTO 01A0 0193 00 26 00 w PUSHw local 38 0196 5B 09 00 empty Jump if zero to 019F 0199 BF 1C 00 empty GOTO 01B5 019C BF 04 00 empty GOTO 01A0 019F BB empty STOP 01A0 2B 0C 4E 6F 20 s PUSHs "No file open" 66 69 6C ... 01AE 57 38 01 w ALERT 01B1 80 empty POPw and discard 01B2 BF 77 FF empty GOTO 0129 01B5 76 empty RETURN ==== Procedure "OPEN%" ==== 06DB 05 4F 50 45 4E Procedure "OPEN%" 25 06E1 B6 01 00 00 File offset $01B6 06E5 36 00 Line number 55 01B6 16 00 0E 00 08 Stack frame 22 bytes, 8 dynamic bytes used 00 Q-code 14 bytes 01BC 01 03 1 parameters: S$ 01BE 00 00 Global declarations 01C0 00 00 Called procedures 01C2 07 48 41 4E 44 Global reference "HANDLE%" 4C 45 25 00 Type: W% 01CB 00 End of global references 01CC 00 00 End of string control 01CE 00 00 End of array control 01D0 0C 14 00 a PUSH ADDRw global "HANDLE%" 01D3 57 00 w ADDR 01D5 0B 12 00 w s PUSHs parameter 1 (S$) 01D8 28 00 06 w s w PUSHw 1536 01DB 57 0D w IOOPEN 01DD C0 empty RETURN top of stack ==== Procedure "CLOSE" ==== 06E7 05 43 4C 4F 53 Procedure "CLOSE" 45 06ED DE 01 00 00 File offset $01DE 06F1 3A 00 Line number 59 01DE 14 00 07 00 02 Stack frame 20 bytes, 2 dynamic bytes used 00 Q-code 7 bytes 01E4 00 0 parameters: 01E5 00 00 Global declarations 01E7 00 00 Called procedures 01E9 07 48 41 4E 44 Global reference "HANDLE%" 4C 45 25 00 Type: W% 01F2 00 End of global references 01F3 00 00 End of string control 01F5 00 00 End of array control 01F7 08 12 00 w PUSHw global "HANDLE%" 01FA 57 10 w IOCLOSE 01FC 80 empty POPw and discard 01FD 76 empty RETURN ==== Procedure "SHOWFILE" ==== 06F3 08 53 48 4F 57 Procedure "SHOWFILE" 46 49 4C 45 06FC FE 01 00 00 File offset $01FE 0700 3E 00 Line number 63 01FE 49 00 99 02 12 Stack frame 73 bytes, 18 dynamic bytes used 00 Q-code 665 bytes 0204 00 0 parameters: 0205 0C 00 Global declarations 0207 08 4C 49 4E 45 Global "LINELEN%" 4C 45 4E 25 00 Type: W% 0211 35 00 Stack offset 53 ($35) 0213 13 00 Called procedures 0215 08 53 48 4F 57 calls "SHOWDATA" 44 41 54 41 02 2 arguments 021F 07 47 45 54 46 calls "GETFILE" 49 4C 45 01 1 arguments 0228 07 43 48 4F 4E Global reference "CHONLY%" 4C 59 25 00 Type: W% 0231 07 48 41 4E 44 Global reference "HANDLE%" 4C 45 25 00 Type: W% 023A 00 End of global references 023B 00 00 End of string control 023D 00 00 End of array control 023F 4F 01 w PUSHw 1 0241 C7 empty gUSE 0242 4F 01 w PUSHw 1 0244 5B 93 02 empty Jump if zero to 04D7 0247 04 35 00 a PUSH ADDRw local 53 024A 4F 05 a w PUSHw 5 024C 08 31 00 a w w PUSHw global "CHONLY%" 024F 4F 0F a w w w PUSHw 15 0251 50 a w w OP[*]w 0252 48 a w OP[+]w 0253 84 empty STOREw from stack 0254 04 45 00 a PUSH ADDRw local 69 0257 00 35 00 a w PUSHw local 53 025A 4F 06 a w w PUSHw 6 025C 50 a w OP[*]w 025D 84 empty STOREw from stack 025E 04 47 00 a PUSH ADDRw local 71 0261 00 35 00 a w PUSHw local 53 0264 4F 14 a w w PUSHw 20 0266 50 a w OP[*]w 0267 84 empty STOREw from stack 0268 05 37 00 a PUSH ADDRl local 55 026B 4F 00 a w PUSHw 0 026D 7B a l Convert top of stack 026E 85 empty STOREl from stack 026F 05 3B 00 a PUSH ADDRl local 59 0272 4F 00 a w PUSHw 0 0274 7B a l Convert top of stack 0275 85 empty STOREl from stack 0276 08 33 00 w PUSHw global "HANDLE%" 0279 4F 02 w w PUSHw 2 027B 05 3B 00 w w a PUSH ADDRl local 59 027E 57 00 w w w ADDR 0280 57 21 w IOSEEK 0282 80 empty POPw and discard 0283 4F 01 w PUSHw 1 0285 5B 4F 02 empty Jump if zero to 04D4 0288 04 35 00 a PUSH ADDRw local 53 028B 4F 05 a w PUSHw 5 028D 08 31 00 a w w PUSHw global "CHONLY%" 0290 4F 0F a w w w PUSHw 15 0292 50 a w w OP[*]w 0293 48 a w OP[+]w 0294 84 empty STOREw from stack 0295 04 45 00 a PUSH ADDRw local 69 0298 00 35 00 a w PUSHw local 53 029B 4F 06 a w w PUSHw 6 029D 50 a w OP[*]w 029E 84 empty STOREw from stack 029F 04 47 00 a PUSH ADDRw local 71 02A2 00 35 00 a w PUSHw local 53 02A5 4F 14 a w w PUSHw 20 02A7 50 a w OP[*]w 02A8 84 empty STOREw from stack 02A9 01 37 00 l PUSHl local 55 02AC 4F 01 l w PUSHw 1 02AE 01 3B 00 l w l PUSHl local 59 02B1 4F 01 l w l w PUSHw 1 02B3 53 1E 00 r Call "SHOWDATA": 02B6 82 empty POPr and discard 02B7 04 3F 00 a PUSH ADDRw local 63 02BA 57 0A a w GET 02BC 84 empty STOREw from stack 02BD 00 3F 00 w PUSHw local 63 02C0 28 22 01 w w PUSHw 290 02C3 40 w OP[=]w 02C4 5B 59 00 empty Jump if zero to 031D 02C7 EA empty mINIT 02C8 2B 04 46 69 6C s PUSHs "File" 65 02CE 2B 04 4F 70 65 s s PUSHs "Open" 6E 02D4 4F 4F s s w PUSHw 79 02D6 2B 04 4A 75 6D s s w s PUSHs "Jump" 70 02DC 4F 4A s s w s w PUSHw 74 02DE 2B 04 45 78 69 << w s w s PUSHs "Exit" 74 02E4 4F 58 << s w s w PUSHw 88 02E6 EB 03 empty mCARD 02E8 2B 04 4D 6F 64 s PUSHs "Mode" 65 02EE 2B 05 4D 69 78 s s PUSHs "Mixed" 65 64 02F5 4F 4D s s w PUSHw 77 02F7 2B 09 43 68 61 s s w s PUSHs "Character" 72 61 63 ... 0302 4F 43 s s w s w PUSHw 67 0304 EB 02 empty mCARD 0306 04 3F 00 a PUSH ADDRw local 63 0309 57 36 a w MENU 030B 84 empty STOREw from stack 030C 00 3F 00 w PUSHw local 63 030F 5B 0E 00 empty Jump if zero to 031D 0312 04 3F 00 a PUSH ADDRw local 63 0315 00 3F 00 a w PUSHw local 63 0318 28 00 02 a w w PUSHw 512 031B 60 a w OP[OR]w 031C 84 empty STOREw from stack 031D 00 3F 00 w PUSHw local 63 0320 28 40 02 w w PUSHw 576 0323 3C w OP[>=]w 0324 00 3F 00 w w PUSHw local 63 0327 28 80 02 w w w PUSHw 640 032A 30 w w OP[<]w 032B 5C w OP[AND]w 032C 5B 0D 00 empty Jump if zero to 0339 032F 04 3F 00 a PUSH ADDRw local 63 0332 00 3F 00 a w PUSHw local 63 0335 4F DF a w w PUSHw -33 0337 5C a w OP[AND]w 0338 84 empty STOREw from stack 0339 00 3F 00 w PUSHw local 63 033C 28 00 02 w w PUSHw 512 033F 4F 4F w w w PUSHw 79 0341 48 w w OP[+]w 0342 40 w OP[=]w 0343 5B 11 00 empty Jump if zero to 0354 0346 4F 01 w PUSHw 1 0348 4F 00 w w PUSHw 0 034A 53 28 00 r Call "GETFILE": 034D 82 empty POPr and discard 034E BF 86 01 empty GOTO 04D4 0351 BF 41 01 empty GOTO 0492 0354 00 3F 00 w PUSHw local 63 0357 28 00 02 w w PUSHw 512 035A 4F 4A w w w PUSHw 74 035C 48 w w OP[+]w 035D 40 w OP[=]w 035E 5B 3C 00 empty Jump if zero to 039A 0361 2B 07 4A 75 6D s PUSHs "Jump to" 70 20 74 6F 036A EC 01 empty dINIT [1 arguments] 036C 05 41 00 a PUSH ADDRl local 65 036F 01 37 00 a l PUSHl local 55 0372 85 empty STOREl from stack 0373 05 41 00 a PUSH ADDRl local 65 0376 2B 07 4F 66 66 a s PUSHs "Offset:" 73 65 74 3A 037F 4F 00 a s w PUSHw 0 0381 7B a s l Convert top of stack 0382 01 3B 00 a s l l PUSHl local 59 0385 4F 01 a s l l w PUSHw 1 0387 7B a s l l l Convert top of stack 0388 4D a s l l OP[-]l 0389 ED 02 empty dLONG 038B 57 37 w DIALOG 038D 5B 0A 00 empty Jump if zero to 0397 0390 05 37 00 a PUSH ADDRl local 55 0393 01 41 00 a l PUSHl local 65 0396 85 empty STOREl from stack 0397 BF FB 00 empty GOTO 0492 039A 00 3F 00 w PUSHw local 63 039D 28 00 02 w w PUSHw 512 03A0 4F 58 w w w PUSHw 88 03A2 48 w w OP[+]w 03A3 40 w OP[=]w 03A4 5B 07 00 empty Jump if zero to 03AB 03A7 76 empty RETURN 03A8 BF EA 00 empty GOTO 0492 03AB 00 3F 00 w PUSHw local 63 03AE 28 00 02 w w PUSHw 512 03B1 4F 43 w w w PUSHw 67 03B3 48 w w OP[+]w 03B4 40 w OP[=]w 03B5 5B 0C 00 empty Jump if zero to 03C1 03B8 0C 31 00 a PUSH ADDRw global "CHONLY%" 03BB 4F 01 a w PUSHw 1 03BD 84 empty STOREw from stack 03BE BF D4 00 empty GOTO 0492 03C1 00 3F 00 w PUSHw local 63 03C4 28 00 02 w w PUSHw 512 03C7 4F 4D w w w PUSHw 77 03C9 48 w w OP[+]w 03CA 40 w OP[=]w 03CB 5B 0C 00 empty Jump if zero to 03D7 03CE 0C 31 00 a PUSH ADDRw global "CHONLY%" 03D1 4F 00 a w PUSHw 0 03D3 84 empty STOREw from stack 03D4 BF BE 00 empty GOTO 0492 03D7 00 3F 00 w PUSHw local 63 03DA 28 00 01 w w PUSHw 256 03DD 40 w OP[=]w 03DE 5B 12 00 empty Jump if zero to 03F0 03E1 05 37 00 a PUSH ADDRl local 55 03E4 01 37 00 a l PUSHl local 55 03E7 00 35 00 a l w PUSHw local 53 03EA 7B a l l Convert top of stack 03EB 4D a l OP[-]l 03EC 85 empty STOREl from stack 03ED BF A5 00 empty GOTO 0492 03F0 00 3F 00 w PUSHw local 63 03F3 28 01 01 w w PUSHw 257 03F6 40 w OP[=]w 03F7 5B 12 00 empty Jump if zero to 0409 03FA 05 37 00 a PUSH ADDRl local 55 03FD 01 37 00 a l PUSHl local 55 0400 00 35 00 a l w PUSHw local 53 0403 7B a l l Convert top of stack 0404 49 a l OP[+]l 0405 85 empty STOREl from stack 0406 BF 8C 00 empty GOTO 0492 0409 00 3F 00 w PUSHw local 63 040C 28 02 01 w w PUSHw 258 040F 40 w OP[=]w 0410 5B 12 00 empty Jump if zero to 0422 0413 05 37 00 a PUSH ADDRl local 55 0416 01 37 00 a l PUSHl local 55 0419 00 45 00 a l w PUSHw local 69 041C 7B a l l Convert top of stack 041D 49 a l OP[+]l 041E 85 empty STOREl from stack 041F BF 73 00 empty GOTO 0492 0422 00 3F 00 w PUSHw local 63 0425 28 03 01 w w PUSHw 259 0428 40 w OP[=]w 0429 5B 12 00 empty Jump if zero to 043B 042C 05 37 00 a PUSH ADDRl local 55 042F 01 37 00 a l PUSHl local 55 0432 00 45 00 a l w PUSHw local 69 0435 7B a l l Convert top of stack 0436 4D a l OP[-]l 0437 85 empty STOREl from stack 0438 BF 5A 00 empty GOTO 0492 043B 00 3F 00 w PUSHw local 63 043E 28 04 01 w w PUSHw 260 0441 40 w OP[=]w 0442 5B 0D 00 empty Jump if zero to 044F 0445 05 37 00 a PUSH ADDRl local 55 0448 4F 00 a w PUSHw 0 044A 7B a l Convert top of stack 044B 85 empty STOREl from stack 044C BF 46 00 empty GOTO 0492 044F 00 3F 00 w PUSHw local 63 0452 28 05 01 w w PUSHw 261 0455 40 w OP[=]w 0456 5B 0D 00 empty Jump if zero to 0463 0459 05 37 00 a PUSH ADDRl local 55 045C 01 3B 00 a l PUSHl local 59 045F 85 empty STOREl from stack 0460 BF 32 00 empty GOTO 0492 0463 00 3F 00 w PUSHw local 63 0466 28 06 01 w w PUSHw 262 0469 40 w OP[=]w 046A 5B 12 00 empty Jump if zero to 047C 046D 05 37 00 a PUSH ADDRl local 55 0470 01 37 00 a l PUSHl local 55 0473 00 47 00 a l w PUSHw local 71 0476 7B a l l Convert top of stack 0477 4D a l OP[-]l 0478 85 empty STOREl from stack 0479 BF 19 00 empty GOTO 0492 047C 00 3F 00 w PUSHw local 63 047F 28 07 01 w w PUSHw 263 0482 40 w OP[=]w 0483 5B 0F 00 empty Jump if zero to 0492 0486 05 37 00 a PUSH ADDRl local 55 0489 01 37 00 a l PUSHl local 55 048C 00 47 00 a l w PUSHw local 71 048F 7B a l l Convert top of stack 0490 49 a l OP[+]l 0491 85 empty STOREl from stack 0492 01 37 00 l PUSHl local 55 0495 4F 00 l w PUSHw 0 0497 7B l l Convert top of stack 0498 31 w OP[<]l 0499 5B 0D 00 empty Jump if zero to 04A6 049C 05 37 00 a PUSH ADDRl local 55 049F 4F 00 a w PUSHw 0 04A1 7B a l Convert top of stack 04A2 85 empty STOREl from stack 04A3 BF 1D 00 empty GOTO 04C0 04A6 01 37 00 l PUSHl local 55 04A9 01 3B 00 l l PUSHl local 59 04AC 3D w OP[>=]l 04AD 5B 13 00 empty Jump if zero to 04C0 04B0 05 37 00 a PUSH ADDRl local 55 04B3 01 3B 00 a l PUSHl local 59 04B6 00 35 00 a l w PUSHw local 53 04B9 7B a l l Convert top of stack 04BA 4D a l OP[-]l 04BB 4F 01 a l w PUSHw 1 04BD 7B a l l Convert top of stack 04BE 49 a l OP[+]l 04BF 85 empty STOREl from stack 04C0 05 37 00 a PUSH ADDRl local 55 04C3 01 37 00 a l PUSHl local 55 04C6 00 35 00 a l w PUSHw local 53 04C9 7B a l l Convert top of stack 04CA 55 a l OP[/]l 04CB 00 35 00 a l w PUSHw local 53 04CE 7B a l l Convert top of stack 04CF 51 a l OP[*]l 04D0 85 empty STOREl from stack 04D1 BF B2 FD empty GOTO 0283 04D4 BF 6E FD empty GOTO 0242 04D7 76 empty RETURN ==== Procedure "SHOWDATA" ==== 0702 08 53 48 4F 57 Procedure "SHOWDATA" 44 41 54 41 070B D8 04 00 00 File offset $04D8 070F 87 00 Line number 136 04D8 AA 00 91 00 0E Stack frame 170 bytes, 14 dynamic bytes used 00 Q-code 145 bytes 04DE 02 01 01 2 parameters: L& L& 04E1 00 00 Global declarations 04E3 06 00 Called procedures 04E5 04 4C 49 4E 45 calls "LINE" 03 3 arguments 04EB 08 4C 49 4E 45 Global reference "LINELEN%" 4C 45 4E 25 00 Type: W% 04F5 07 48 41 4E 44 Global reference "HANDLE%" 4C 45 25 00 Type: W% 04FE 00 End of global references 04FF 24 00 80 String at 36 ($24) length 128 0502 00 00 End of string control 0504 00 00 End of array control 0506 A2 empty CLS 0507 04 20 00 a PUSH ADDRw local 32 050A 4F 00 a w PUSHw 0 050C 84 empty STOREw from stack 050D 00 20 00 w PUSHw local 32 0510 4F 06 w w PUSHw 6 0512 30 w OP[<]w 0513 5B 83 00 empty Jump if zero to 0596 0516 05 A6 00 a PUSH ADDRl local 166 0519 09 18 00 a l PUSHl parameter 1 (L&) 051C 08 1C 00 a l w PUSHw global "LINELEN%" 051F 00 20 00 a l w w PUSHw local 32 0522 50 a l w OP[*]w 0523 7B a l l Convert top of stack 0524 49 a l OP[+]l 0525 85 empty STOREl from stack 0526 04 20 00 a PUSH ADDRw local 32 0529 00 20 00 a w PUSHw local 32 052C 4F 01 a w w PUSHw 1 052E 48 a w OP[+]w 052F 84 empty STOREw from stack 0530 08 1E 00 w PUSHw global "HANDLE%" 0533 4F 01 w w PUSHw 1 0535 05 A6 00 w w a PUSH ADDRl local 166 0538 57 00 w w w ADDR 053A 57 21 w IOSEEK 053C 80 empty POPw and discard 053D 04 22 00 a PUSH ADDRw local 34 0540 08 1E 00 a w PUSHw global "HANDLE%" 0543 07 25 00 a w a PUSH ADDRs local 37 0546 57 1F a w w ADDR 0548 4F 01 a w w w PUSHw 1 054A 48 a w w OP[+]w 054B 28 80 00 a w w w PUSHw 128 054E 57 0F a w IOREAD 0550 84 empty STOREw from stack 0551 00 22 00 w PUSHw local 34 0554 4F 00 w w PUSHw 0 0556 30 w OP[<]w 0557 5B 09 00 empty Jump if zero to 0560 055A 04 22 00 a PUSH ADDRw local 34 055D 4F 00 a w PUSHw 0 055F 84 empty STOREw from stack 0560 00 22 00 w PUSHw local 34 0563 08 1C 00 w w PUSHw global "LINELEN%" 0566 38 w OP[>]w 0567 5B 0A 00 empty Jump if zero to 0571 056A 04 22 00 a PUSH ADDRw local 34 056D 08 1C 00 a w PUSHw global "LINELEN%" 0570 84 empty STOREw from stack 0571 07 25 00 a PUSH ADDRs local 37 0574 57 1F w ADDR 0576 00 22 00 w w PUSHw local 34 0579 9C empty POKEB 057A 4F 01 w PUSHw 1 057C 00 20 00 w w PUSHw local 32 057F 9E empty AT 0580 01 A6 00 l PUSHl local 166 0583 4F 01 l w PUSHw 1 0585 00 22 00 l w w PUSHw local 34 0588 4F 00 l w w w PUSHw 0 058A 03 25 00 l w w w s PUSHs local 37 058D 4F 03 << w w s w PUSHw 3 058F 53 12 00 r Call "LINE": 0592 82 empty POPr and discard 0593 BF 7A FF empty GOTO 050D 0596 76 empty RETURN ==== Procedure "LINE" ==== 0711 04 4C 49 4E 45 Procedure "LINE" 0716 97 05 00 00 File offset $0597 071A 9C 00 Line number 157 0597 21 00 FE 00 0A Stack frame 33 bytes, 10 dynamic bytes used 00 Q-code 254 bytes 059D 03 03 00 01 3 parameters: L& W% S$ 05A1 00 00 Global declarations 05A3 00 00 Called procedures 05A5 08 4C 49 4E 45 Global reference "LINELEN%" 4C 45 4E 25 00 Type: W% 05AF 07 43 48 4F 4E Global reference "CHONLY%" 4C 59 25 00 Type: W% 05B8 00 End of global references 05B9 1E 00 01 String at 30 ($1E) length 1 05BC 00 00 End of string control 05BE 00 00 End of array control 05C0 09 12 00 l PUSHl parameter 1 (L&) 05C3 7D r Convert top of stack 05C4 4F 08 r w PUSHw 8 05C6 68 r w Negate 05C7 57 CE s NUM$ 05C9 8B empty PRINTs from stack 05CA 90 empty PRINT separator 05CB 04 1C 00 a PUSH ADDRw local 28 05CE 4F 00 a w PUSHw 0 05D0 84 empty STOREw from stack 05D1 00 1C 00 w PUSHw local 28 05D4 08 14 00 w w PUSHw parameter 2 (W%) 05D7 30 w OP[<]w 05D8 5B 80 00 empty Jump if zero to 0658 05DB 04 1C 00 a PUSH ADDRw local 28 05DE 00 1C 00 a w PUSHw local 28 05E1 4F 01 a w w PUSHw 1 05E3 48 a w OP[+]w 05E4 84 empty STOREw from stack 05E5 07 1F 00 a PUSH ADDRs local 31 05E8 0B 16 00 a s PUSHs parameter 3 (S$) 05EB 00 1C 00 a s w PUSHw local 28 05EE 4F 01 a s w w PUSHw 1 05F0 57 CC a s MID$ 05F2 87 empty STOREs from stack 05F3 03 1F 00 s PUSHs local 31 05F6 57 01 w ASC 05F8 4F 09 w w PUSHw 9 05FA 40 w OP[=]w 05FB 5B 0E 00 empty Jump if zero to 0609 05FE 07 1F 00 a PUSH ADDRs local 31 0601 4F 1A a w PUSHw 26 0603 57 C0 a s CHR$ 0605 87 empty STOREs from stack 0606 BF 4B 00 empty GOTO 0651 0609 03 1F 00 s PUSHs local 31 060C 57 01 w ASC 060E 4F 0A w w PUSHw 10 0610 40 w OP[=]w 0611 5B 0E 00 empty Jump if zero to 061F 0614 07 1F 00 a PUSH ADDRs local 31 0617 4F 19 a w PUSHw 25 0619 57 C0 a s CHR$ 061B 87 empty STOREs from stack 061C BF 35 00 empty GOTO 0651 061F 03 1F 00 s PUSHs local 31 0622 57 01 w ASC 0624 4F 0D w w PUSHw 13 0626 40 w OP[=]w 0627 5B 0E 00 empty Jump if zero to 0635 062A 07 1F 00 a PUSH ADDRs local 31 062D 4F 1B a w PUSHw 27 062F 57 C0 a s CHR$ 0631 87 empty STOREs from stack 0632 BF 1F 00 empty GOTO 0651 0635 03 1F 00 s PUSHs local 31 0638 57 01 w ASC 063A 4F 20 w w PUSHw 32 063C 30 w OP[<]w 063D 03 1F 00 w s PUSHs local 31 0640 57 01 w w ASC 0642 28 FF 00 w w w PUSHw 255 0645 40 w w OP[=]w 0646 60 w OP[OR]w 0647 5B 0A 00 empty Jump if zero to 0651 064A 07 1F 00 a PUSH ADDRs local 31 064D 2B 01 B1 a s PUSHs "±" 0650 87 empty STOREs from stack 0651 03 1F 00 s PUSHs local 31 0654 8B empty PRINTs from stack 0655 BF 7C FF empty GOTO 05D1 0658 00 1C 00 w PUSHw local 28 065B 08 18 00 w w PUSHw global "LINELEN%" 065E 30 w OP[<]w 065F 5B 14 00 empty Jump if zero to 0673 0662 04 1C 00 a PUSH ADDRw local 28 0665 00 1C 00 a w PUSHw local 28 0668 4F 01 a w w PUSHw 1 066A 48 a w OP[+]w 066B 84 empty STOREw from stack 066C 2B 01 20 s PUSHs " " 066F 8B empty PRINTs from stack 0670 BF E8 FF empty GOTO 0658 0673 2B 01 20 s PUSHs " " 0676 8B empty PRINTs from stack 0677 08 1A 00 w PUSHw global "CHONLY%" 067A 4F 00 w w PUSHw 0 067C 40 w OP[=]w 067D 5B 40 00 empty Jump if zero to 06BD 0680 04 1C 00 a PUSH ADDRw local 28 0683 4F 00 a w PUSHw 0 0685 84 empty STOREw from stack 0686 00 1C 00 w PUSHw local 28 0689 08 14 00 w w PUSHw parameter 2 (W%) 068C 30 w OP[<]w 068D 5B 30 00 empty Jump if zero to 06BD 0690 04 1C 00 a PUSH ADDRw local 28 0693 00 1C 00 a w PUSHw local 28 0696 4F 01 a w w PUSHw 1 0698 48 a w OP[+]w 0699 84 empty STOREw from stack 069A 07 1F 00 a PUSH ADDRs local 31 069D 0B 16 00 a s PUSHs parameter 3 (S$) 06A0 00 1C 00 a s w PUSHw local 28 06A3 4F 01 a s w w PUSHw 1 06A5 57 CC a s MID$ 06A7 87 empty STOREs from stack 06A8 03 1F 00 s PUSHs local 31 06AB 57 01 w ASC 06AD 28 00 01 w w PUSHw 256 06B0 48 w OP[+]w 06B1 7B l Convert top of stack 06B2 57 C8 s HEX$ 06B4 4F 02 s w PUSHw 2 06B6 57 D1 s RIGHT$ 06B8 8B empty PRINTs from stack 06B9 90 empty PRINT separator 06BA BF CC FF empty GOTO 0686 06BD 76 empty RETURN