home *** CD-ROM | disk | FTP | other *** search
open in:
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: LBR Archive
(archive/lbr).
Confidence | Program | Detection | Match Type | Support
|
---|
100%
| dexvert
| LBR Archive (archive/lbr)
| magic
| Supported |
1%
| dexvert
| Micro Focus COBOL library (other/microFocusCobolLibrary)
| ext
| Unsupported |
1%
| dexvert
| Micro Focus COBOL Library (other/microFocusCOBOLLibrary)
| ext
| Unsupported |
100%
| file
| LBR archive data
| default
| |
99%
| file
| data
| default
| |
87%
| TrID
| LU library
| default
| |
12%
| TrID
| C64 Hires bitmap
| default (weak)
| |
100%
| lsar
| LBR
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 06 00 |. | ....|
|00000010| 6c 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ls......|........|
|00000020| 00 41 53 4d 45 50 52 4f | 20 53 55 42 06 00 03 00 |.ASMEPRO| SUB....|
|00000030| f7 2b 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.+......|........|
|00000040| 00 41 53 53 45 4d 20 20 | 20 5a 38 30 09 00 0d 00 |.ASSEM | Z80....|
|00000050| c8 48 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.H......|........|
|00000060| 00 43 4c 41 53 53 20 20 | 20 5a 38 30 16 00 1e 00 |.CLASS | Z80....|
|00000070| be c1 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 43 4d 44 20 20 20 20 | 20 5a 38 30 34 00 6c 00 |.CMD | Z804.l.|
|00000090| f7 99 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 44 41 54 42 41 44 44 | 20 5a 38 30 a0 00 0c 00 |.DATBADD| Z80....|
|000000b0| 3c 36 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |<6......|........|
|000000c0| 00 45 50 52 4f 20 20 20 | 20 43 4f 4d ac 00 2e 00 |.EPRO | COM....|
|000000d0| b5 b2 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 45 50 52 4f 20 20 20 | 20 44 4f 43 da 00 61 00 |.EPRO | DOC..a.|
|000000f0| 82 08 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 45 50 52 4f 20 20 20 | 20 5a 38 30 3b 01 33 00 |.EPRO | Z80;.3.|
|00000110| 82 a3 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 45 52 52 4f 52 20 20 | 20 5a 38 30 6e 01 07 00 |.ERROR | Z80n...|
|00000130| b8 90 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 48 45 41 50 20 20 20 | 20 5a 38 30 75 01 35 00 |.HEAP | Z80u.5.|
|00000150| 29 b3 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |).......|........|
|00000160| 00 49 4e 49 54 20 20 20 | 20 5a 38 30 aa 01 10 00 |.INIT | Z80....|
|00000170| 33 7e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |3~......|........|
|00000180| 00 49 4e 50 55 54 20 20 | 20 5a 38 30 ba 01 1b 00 |.INPUT | Z80....|
|00000190| 2f a0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/.......|........|
|000001a0| 00 4f 55 54 50 55 54 20 | 20 5a 38 30 d5 01 32 00 |.OUTPUT | Z80..2.|
|000001b0| 1b 37 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.7......|........|
|000001c0| 00 50 20 20 20 20 20 20 | 20 56 41 4c 07 02 02 00 |.P | VAL....|
|000001d0| 5b be 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |[.......|........|
|000001e0| 00 50 52 4f 56 45 20 20 | 20 5a 38 30 09 02 4d 00 |.PROVE | Z80..M.|
|000001f0| 2f 80 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/.......|........|
|00000200| 00 53 41 4d 50 4c 45 20 | 20 50 52 4f 56 02 04 00 |.SAMPLE | PROV...|
|00000210| 1a ba 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 53 43 49 41 4d 20 20 | 20 50 52 4f 5a 02 0a 00 |.SCIAM | PROZ...|
|00000230| a2 15 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 53 54 44 20 20 20 20 | 20 50 52 4f 64 02 07 00 |.STD | PROd...|
|00000250| b0 ac 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 53 59 4d 42 20 20 20 | 20 5a 38 30 6b 02 2b 00 |.SYMB | Z80k.+.|
|00000270| a4 cc 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 55 4e 49 46 59 20 20 | 20 5a 38 30 96 02 33 00 |.UNIFY | Z80..3.|
|00000290| 4f ec 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |O.......|........|
|000002a0| 00 56 41 4c 47 4f 4c 20 | 20 44 4f 43 c9 02 27 00 |.VALGOL | DOC..'.|
|000002b0| ec 55 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U......|........|
|000002c0| 00 56 41 4c 47 4f 4c 20 | 20 50 52 4f f0 02 43 00 |.VALGOL | PRO..C.|
|000002d0| 5a ca 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Z.......|........|
|000002e0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 3b 20 63 6f 6d 70 6c 65 | 74 65 6c 79 20 72 65 61 |; comple|tely rea|
|00000310| 73 73 65 6d 62 6c 65 20 | 45 2d 50 72 6f 6c 6f 67 |ssemble |E-Prolog|
|00000320| 0d 0a 6d 38 30 20 3d 65 | 70 72 6f 2e 7a 38 30 0d |..m80 =e|pro.z80.|
|00000330| 0a 6d 38 30 20 3d 63 6c | 61 73 73 2e 5a 38 30 0d |.m80 =cl|ass.Z80.|
|00000340| 0a 6d 38 30 20 3d 73 79 | 6d 62 2e 5a 38 30 0d 0a |.m80 =sy|mb.Z80..|
|00000350| 6d 38 30 20 3d 68 65 61 | 70 2e 5a 38 30 0d 0a 6d |m80 =hea|p.Z80..m|
|00000360| 38 30 20 3d 69 6e 69 74 | 2e 7a 38 30 0d 0a 6d 38 |80 =init|.z80..m8|
|00000370| 30 20 3d 64 61 74 62 61 | 64 64 2e 5a 38 30 0d 0a |0 =datba|dd.Z80..|
|00000380| 6d 38 30 20 3d 75 6e 69 | 66 79 2e 5a 38 30 0d 0a |m80 =uni|fy.Z80..|
|00000390| 6d 38 30 20 3d 63 6d 64 | 2e 5a 38 30 0d 0a 6d 38 |m80 =cmd|.Z80..m8|
|000003a0| 30 20 3d 70 72 6f 76 65 | 2e 5a 38 30 0d 0a 6d 38 |0 =prove|.Z80..m8|
|000003b0| 30 20 3d 69 6e 70 75 74 | 2e 7a 38 30 0d 0a 6d 38 |0 =input|.z80..m8|
|000003c0| 30 20 3d 6f 75 74 70 75 | 74 2e 7a 38 30 0d 0a 6d |0 =outpu|t.z80..m|
|000003d0| 38 30 20 3d 65 72 72 6f | 72 2e 7a 38 30 0d 0a 6d |80 =erro|r.z80..m|
|000003e0| 38 30 20 3d 61 73 73 65 | 6d 2e 7a 38 30 2f 7a 0d |80 =asse|m.z80/z.|
|000003f0| 0a 78 73 75 62 0d 0a 6c | 38 30 0d 0a 65 70 72 6f |.xsub..l|80..epro|
|00000400| 2f 6e 2c 65 70 72 6f 2c | 63 6c 61 73 73 2c 73 79 |/n,epro,|class,sy|
|00000410| 6d 62 2c 68 65 61 70 2c | 64 61 74 62 61 64 64 2c |mb,heap,|datbadd,|
|00000420| 75 6e 69 66 79 2c 63 6d | 64 2c 70 72 6f 76 65 0d |unify,cm|d,prove.|
|00000430| 0a 69 6e 70 75 74 2c 6f | 75 74 70 75 74 2c 65 72 |.input,o|utput,er|
|00000440| 72 6f 72 2c 61 73 73 65 | 6d 2c 69 6e 69 74 2f 65 |ror,asse|m,init/e|
|00000450| 0d 0a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000460| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000470| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000480| 0d 0a 3b 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..; ====|========|
|00000490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000004c0| 0a 3b 20 41 53 53 45 4d | 2e 5a 38 30 0d 0a 3b 09 |.; ASSEM|.Z80..;.|
|000004d0| 61 73 73 65 6d 62 6c 79 | 2d 6c 61 6e 67 75 61 67 |assembly|-languag|
|000004e0| 65 20 70 6f 72 74 69 6f | 6e 73 20 6f 66 20 45 2d |e portio|ns of E-|
|000004f0| 50 72 6f 6c 6f 67 0d 0a | 3b 09 4d 61 79 20 31 31 |Prolog..|;.May 11|
|00000500| 2c 20 31 39 38 35 0d 0a | 0d 0a 3b 20 28 66 6f 72 |, 1985..|..; (for|
|00000510| 20 4d 61 63 72 6f 2d 38 | 30 29 0d 0a 3b 20 54 68 | Macro-8|0)..; Th|
|00000520| 69 73 20 6d 6f 64 75 6c | 65 20 73 68 6f 75 6c 64 |is modul|e should|
|00000530| 20 62 65 20 6c 6f 61 64 | 65 64 20 6c 61 73 74 20 | be load|ed last |
|00000540| 28 65 78 63 65 70 74 20 | 66 6f 72 20 69 6e 69 74 |(except |for init|
|00000550| 69 61 6c 69 7a 61 74 69 | 6f 6e 0d 0a 3b 20 63 6f |ializati|on..; co|
|00000560| 64 65 29 2c 20 73 69 6e | 63 65 20 61 6e 79 74 68 |de), sin|ce anyth|
|00000570| 69 6e 67 20 66 6f 6c 6c | 6f 77 69 6e 67 20 69 74 |ing foll|owing it|
|00000580| 20 77 69 6c 6c 20 62 65 | 20 6f 76 65 72 77 72 69 | will be| overwri|
|00000590| 74 74 65 6e 20 62 79 0d | 0a 3b 20 74 68 65 20 73 |tten by.|.; the s|
|000005a0| 79 6d 62 6f 6c 20 74 61 | 62 6c 65 2e 0d 0a 0d 0a |ymbol ta|ble.....|
|000005b0| 09 2e 5a 38 30 0d 0a 0d | 0a 45 4d 50 54 09 45 51 |..Z80...|.EMPT.EQ|
|000005c0| 55 09 2d 31 0d 0a 0d 0a | 3f 53 54 4e 47 09 4d 41 |U.-1....|?STNG.MA|
|000005d0| 43 52 4f 09 3f 54 58 54 | 2c 3f 41 44 44 52 2c 3f |CRO.?TXT|,?ADDR,?|
|000005e0| 4c 50 2c 3f 52 50 0d 0a | 09 44 57 09 3f 41 44 44 |LP,?RP..|.DW.?ADD|
|000005f0| 52 0d 0a 09 44 57 09 3f | 4c 50 0d 0a 09 44 57 09 |R...DW.?|LP...DW.|
|00000600| 3f 52 50 0d 0a 09 44 42 | 09 3f 54 58 54 0d 0a 09 |?RP...DB|.?TXT...|
|00000610| 44 42 09 30 0d 0a 09 45 | 4e 44 4d 0d 0a 0d 0a 3b |DB.0...E|NDM....;|
|00000620| 20 63 68 61 72 20 2a 20 | 73 62 6f 74 20 3d 20 41 | char * |sbot = A|
|00000630| 53 42 4f 54 3b 0d 0a 53 | 42 4f 54 3a 3a 09 44 57 |SBOT;..S|BOT::.DW|
|00000640| 09 41 53 42 4f 54 0d 0a | 3b 20 63 68 61 72 20 2a |.ASBOT..|; char *|
|00000650| 20 73 66 72 65 65 20 3d | 20 41 53 46 52 45 45 3b | sfree =| ASFREE;|
|00000660| 0d 0a 53 46 52 45 45 3a | 3a 09 44 57 09 41 53 46 |..SFREE:|:.DW.ASF|
|00000670| 52 45 45 0d 0a 0d 0a 24 | 4d 45 4d 52 59 3a 3a 20 |REE....$|MEMRY:: |
|00000680| 44 53 09 32 0d 0a 09 43 | 53 45 47 0d 0a 0d 0a 53 |DS.2...C|SEG....S|
|00000690| 45 54 54 4f 50 3a 3a 0d | 0a 09 4c 44 09 44 45 2c |ETTOP::.|..LD.DE,|
|000006a0| 28 24 4d 45 4d 52 59 29 | 0d 0a 09 50 55 53 48 09 |($MEMRY)|...PUSH.|
|000006b0| 44 45 0d 0a 09 41 44 44 | 09 48 4c 2c 44 45 0d 0a |DE...ADD|.HL,DE..|
|000006c0| 09 50 55 53 48 09 48 4c | 0d 0a 09 4c 44 09 44 45 |.PUSH.HL|...LD.DE|
|000006d0| 2c 31 32 38 0d 0a 09 41 | 44 44 09 48 4c 2c 44 45 |,128...A|DD.HL,DE|
|000006e0| 0d 0a 09 53 42 43 09 48 | 4c 2c 53 50 0d 0a 09 4a |...SBC.H|L,SP...J|
|000006f0| 52 09 43 2c 53 45 54 31 | 0d 0a 09 50 4f 50 09 44 |R.C,SET1|...POP.D|
|00000700| 45 0d 0a 09 50 4f 50 09 | 44 45 0d 0a 09 4a 50 09 |E...POP.|DE...JP.|
|00000710| 52 45 54 46 23 23 0d 0a | 53 45 54 31 3a 09 50 4f |RETF##..|SET1:.PO|
|00000720| 50 09 48 4c 0d 0a 09 4c | 44 09 28 24 4d 45 4d 52 |P.HL...L|D.($MEMR|
|00000730| 59 29 2c 48 4c 0d 0a 09 | 50 4f 50 09 48 4c 0d 0a |Y),HL...|POP.HL..|
|00000740| 09 52 45 54 0d 0a 0d 0a | 09 45 58 54 52 4e 09 5f |.RET....|.EXTRN._|
|00000750| 41 50 50 45 4e 2c 5f 43 | 4c 4f 53 45 2c 5f 43 52 |APPEN,_C|LOSE,_CR|
|00000760| 45 41 2c 5f 4c 45 53 53 | 2c 5f 4c 49 53 54 2c 5f |EA,_LESS|,_LIST,_|
|00000770| 4c 4f 41 44 0d 0a 09 45 | 58 54 52 4e 09 5f 4f 50 |LOAD...E|XTRN._OP|
|00000780| 45 4e 2c 5f 52 45 41 44 | 2c 5f 52 45 41 44 43 2c |EN,_READ|,_READC,|
|00000790| 5f 52 45 41 44 4c 2c 5f | 53 41 56 45 0d 0a 09 45 |_READL,_|SAVE...E|
|000007a0| 58 54 52 4e 09 5f 57 52 | 49 54 45 2c 5f 57 52 43 |XTRN._WR|ITE,_WRC|
|000007b0| 48 2c 5f 43 55 54 2c 5f | 46 41 49 4c 0d 0a 0d 0a |H,_CUT,_|FAIL....|
|000007c0| 0d 0a 3b 20 73 79 6d 62 | 6f 6c 20 74 61 62 6c 65 |..; symb|ol table|
|000007d0| 0d 0a 0d 0a 41 53 42 4f | 54 3a 0d 0a 41 44 4f 54 |....ASBO|T:..ADOT|
|000007e0| 3a 3a 09 3f 53 54 4e 47 | 09 3c 27 2e 27 3e 2c 45 |::.?STNG|.<'.'>,E|
|000007f0| 4d 50 54 2c 45 4d 50 54 | 2c 41 31 30 0d 0a 41 32 |MPT,EMPT|,A10..A2|
|00000800| 3a 09 3f 53 54 4e 47 09 | 3c 27 2f 27 3e 2c 5f 43 |:.?STNG.|<'/'>,_C|
|00000810| 55 54 2c 45 4d 50 54 2c | 45 4d 50 54 0d 0a 41 43 |UT,EMPT,|EMPT..AC|
|00000820| 4f 4c 4f 4e 3a 3a 20 3f | 53 54 4e 47 09 3c 27 3a |OLON:: ?|STNG.<':|
|00000830| 27 3e 2c 45 4d 50 54 2c | 41 32 2c 41 34 0d 0a 41 |'>,EMPT,|A2,A4..A|
|00000840| 34 3a 09 3f 53 54 4e 47 | 09 3c 27 41 50 50 45 4e |4:.?STNG|.<'APPEN|
|00000850| 44 27 3e 2c 5f 41 50 50 | 45 4e 2c 45 4d 50 54 2c |D'>,_APP|EN,EMPT,|
|00000860| 45 4d 50 54 0d 0a 41 35 | 3a 09 3f 53 54 4e 47 09 |EMPT..A5|:.?STNG.|
|00000870| 3c 27 43 4c 4f 53 45 27 | 3e 2c 5f 43 4c 4f 53 45 |<'CLOSE'|>,_CLOSE|
|00000880| 2c 41 43 4f 4c 4f 4e 2c | 41 36 0d 0a 41 43 4f 4e |,ACOLON,|A6..ACON|
|00000890| 3a 3a 09 3f 53 54 4e 47 | 09 3c 27 43 4f 4e 27 3e |::.?STNG|.<'CON'>|
|000008a0| 2c 45 4d 50 54 2c 45 4d | 50 54 2c 45 4d 50 54 0d |,EMPT,EM|PT,EMPT.|
|000008b0| 0a 41 36 3a 09 3f 53 54 | 4e 47 09 3c 27 43 52 45 |.A6:.?ST|NG.<'CRE|
|000008c0| 41 54 45 27 3e 2c 5f 43 | 52 45 41 2c 41 43 4f 4e |ATE'>,_C|REA,ACON|
|000008d0| 2c 41 38 0d 0a 41 37 3a | 09 3f 53 54 4e 47 09 3c |,A8..A7:|.?STNG.<|
|000008e0| 27 46 41 49 4c 27 3e 2c | 5f 46 41 49 4c 2c 45 4d |'FAIL'>,|_FAIL,EM|
|000008f0| 50 54 2c 45 4d 50 54 0d | 0a 41 38 3a 09 3f 53 54 |PT,EMPT.|.A8:.?ST|
|00000900| 4e 47 09 3c 27 4c 45 53 | 53 27 3e 2c 5f 4c 45 53 |NG.<'LES|S'>,_LES|
|00000910| 53 2c 41 37 2c 41 39 0d | 0a 41 39 3a 09 3f 53 54 |S,A7,A9.|.A9:.?ST|
|00000920| 4e 47 09 3c 27 4c 49 53 | 54 27 3e 2c 5f 4c 49 53 |NG.<'LIS|T'>,_LIS|
|00000930| 54 2c 45 4d 50 54 2c 45 | 4d 50 54 0d 0a 41 31 30 |T,EMPT,E|MPT..A10|
|00000940| 3a 09 3f 53 54 4e 47 09 | 3c 27 4c 4f 41 44 27 3e |:.?STNG.|<'LOAD'>|
|00000950| 2c 5f 4c 4f 41 44 2c 41 | 35 2c 41 31 35 0d 0a 41 |,_LOAD,A|5,A15..A|
|00000960| 4e 55 4c 4c 3a 3a 09 3f | 53 54 4e 47 09 3c 27 4e |NULL::.?|STNG.<'N|
|00000970| 55 4c 4c 27 3e 2c 45 4d | 50 54 2c 45 4d 50 54 2c |ULL'>,EM|PT,EMPT,|
|00000980| 45 4d 50 54 0d 0a 41 31 | 32 3a 09 3f 53 54 4e 47 |EMPT..A1|2:.?STNG|
|00000990| 09 3c 27 4f 50 45 4e 27 | 3e 2c 5f 4f 50 45 4e 2c |.<'OPEN'|>,_OPEN,|
|000009a0| 41 4e 55 4c 4c 2c 41 31 | 34 0d 0a 41 50 52 4f 3a |ANULL,A1|4..APRO:|
|000009b0| 3a 09 3f 53 54 4e 47 09 | 3c 27 50 52 4f 27 3e 2c |:.?STNG.|<'PRO'>,|
|000009c0| 45 4d 50 54 2c 45 4d 50 | 54 2c 45 4d 50 54 0d 0a |EMPT,EMP|T,EMPT..|
|000009d0| 41 31 34 3a 09 3f 53 54 | 4e 47 09 3c 27 52 45 41 |A14:.?ST|NG.<'REA|
|000009e0| 44 27 3e 2c 5f 52 45 41 | 44 2c 41 50 52 4f 2c 45 |D'>,_REA|D,APRO,E|
|000009f0| 4d 50 54 0d 0a 41 31 35 | 3a 09 3f 53 54 4e 47 09 |MPT..A15|:.?STNG.|
|00000a00| 3c 27 52 45 41 44 43 48 | 41 52 27 3e 2c 5f 52 45 |<'READCH|AR'>,_RE|
|00000a10| 41 44 43 2c 41 31 32 2c | 41 31 37 0d 0a 41 31 36 |ADC,A12,|A17..A16|
|00000a20| 3a 09 3f 53 54 4e 47 09 | 3c 27 52 45 41 44 4c 49 |:.?STNG.|<'READLI|
|00000a30| 53 54 27 3e 2c 5f 52 45 | 41 44 4c 2c 45 4d 50 54 |ST'>,_RE|ADL,EMPT|
|00000a40| 2c 45 4d 50 54 0d 0a 41 | 31 37 3a 09 3f 53 54 4e |,EMPT..A|17:.?STN|
|00000a50| 47 09 3c 27 53 41 56 45 | 27 3e 2c 5f 53 41 56 45 |G.<'SAVE|'>,_SAVE|
|00000a60| 2c 41 31 36 2c 41 31 39 | 0d 0a 41 31 38 3a 09 3f |,A16,A19|..A18:.?|
|00000a70| 53 54 4e 47 09 3c 27 57 | 52 49 54 45 27 3e 2c 5f |STNG.<'W|RITE'>,_|
|00000a80| 57 52 49 54 45 2c 45 4d | 50 54 2c 45 4d 50 54 0d |WRITE,EM|PT,EMPT.|
|00000a90| 0a 41 31 39 3a 09 3f 53 | 54 4e 47 09 3c 27 57 52 |.A19:.?S|TNG.<'WR|
|00000aa0| 49 54 45 43 48 41 52 27 | 3e 2c 5f 57 52 43 48 2c |ITECHAR'|>,_WRCH,|
|00000ab0| 41 31 38 2c 45 4d 50 54 | 0d 0a 41 53 46 52 45 45 |A18,EMPT|..ASFREE|
|00000ac0| 3a 0d 0a 09 45 4e 44 0d | 0a 1a 1a 1a 1a 1a 1a 1a |:...END.|........|
|00000ad0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ae0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000af0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000b00| 0d 0a 3b 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..; ====|========|
|00000b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000b40| 0a 3b 20 43 4c 41 53 53 | 2e 5a 38 30 0d 0a 3b 09 |.; CLASS|.Z80..;.|
|00000b50| 70 72 65 64 69 63 61 74 | 65 73 2c 20 63 6c 61 73 |predicat|es, clas|
|00000b60| 73 69 66 69 65 72 73 20 | 61 6e 64 20 74 61 67 2d |sifiers |and tag-|
|00000b70| 6d 6f 76 65 72 73 20 66 | 6f 72 20 45 2d 50 72 6f |movers f|or E-Pro|
|00000b80| 6c 6f 67 0d 0a 3b 09 4a | 75 6e 65 20 32 32 2c 20 |log..;.J|une 22, |
|00000b90| 31 39 38 35 0d 0a 0d 0a | 09 2e 5a 38 30 0d 0a 0d |1985....|..Z80...|
|00000ba0| 0a 46 41 4c 53 45 09 45 | 51 55 09 30 0d 0a 54 52 |.FALSE.E|QU.0..TR|
|00000bb0| 55 45 09 45 51 55 09 31 | 0d 0a 45 4d 50 54 59 09 |UE.EQU.1|..EMPTY.|
|00000bc0| 45 51 55 09 2d 31 0d 0a | 55 4e 44 45 46 09 45 51 |EQU.-1..|UNDEF.EQ|
|00000bd0| 55 09 2d 32 0d 0a 0d 0a | 48 54 09 45 51 55 09 39 |U.-2....|HT.EQU.9|
|00000be0| 0d 0a 4c 46 09 45 51 55 | 09 31 30 0d 0a 43 52 09 |..LF.EQU|.10..CR.|
|00000bf0| 45 51 55 09 31 33 0d 0a | 43 54 4c 5a 09 45 51 55 |EQU.13..|CTLZ.EQU|
|00000c00| 09 32 36 0d 0a 0d 0a 43 | 50 4d 09 45 51 55 09 20 |.26....C|PM.EQU. |
|00000c10| 20 20 20 30 30 30 30 48 | 0d 0a 42 44 4f 53 09 45 | 0000H|..BDOS.E|
|00000c20| 51 55 09 43 50 4d 2b 30 | 30 30 35 48 0d 0a 43 44 |QU.CPM+0|005H..CD|
|00000c30| 4d 41 09 45 51 55 09 43 | 50 4d 2b 30 30 38 30 48 |MA.EQU.C|PM+0080H|
|00000c40| 0d 0a 54 50 41 09 45 51 | 55 09 43 50 4d 2b 30 31 |..TPA.EQ|U.CPM+01|
|00000c50| 30 30 48 0d 0a 0d 0a 0d | 0a 3b 42 4f 4f 4c 45 41 |00H.....|.;BOOLEA|
|00000c60| 4e 0d 0a 3b 61 74 6f 6d | 70 28 70 29 0d 0a 3b 20 |N..;atom|p(p)..; |
|00000c70| 20 63 68 61 72 20 2a 20 | 70 3b 0d 0a 3b 20 20 7b | char * |p;..; {|
|00000c80| 0d 0a 3b 20 20 72 65 74 | 75 72 6e 20 28 6e 65 6c |..; ret|urn (nel|
|00000c90| 69 73 74 70 28 70 29 20 | 26 26 20 73 79 6d 62 70 |istp(p) |&& symbp|
|00000ca0| 28 66 69 72 73 74 28 70 | 29 29 29 3b 0d 0a 3b 20 |(first(p|)));..; |
|00000cb0| 20 7d 0d 0a 41 54 4f 4d | 50 3a 3a 0d 0a 09 50 55 | }..ATOM|P::...PU|
|00000cc0| 53 48 09 48 4c 0d 0a 09 | 43 41 4c 4c 09 4e 45 4c |SH.HL...|CALL.NEL|
|00000cd0| 50 0d 0a 09 4a 50 09 5a | 2c 50 4f 50 46 0d 0a 09 |P...JP.Z|,POPF...|
|00000ce0| 43 41 4c 4c 09 40 4c 45 | 46 54 0d 0a 09 43 41 4c |CALL.@LE|FT...CAL|
|00000cf0| 4c 09 53 59 4d 42 50 0d | 0a 09 50 4f 50 09 48 4c |L.SYMBP.|..POP.HL|
|00000d00| 0d 0a 09 52 45 54 0d 0a | 0d 0a 3b 42 4f 4f 4c 45 |...RET..|..;BOOLE|
|00000d10| 41 4e 0d 0a 3b 63 6c 61 | 75 73 65 70 28 70 29 0d |AN..;cla|usep(p).|
|00000d20| 0a 3b 20 20 63 68 61 72 | 20 2a 20 70 3b 0d 0a 3b |.; char| * p;..;|
|00000d30| 20 20 7b 0d 0a 3b 20 20 | 72 65 74 75 72 6e 20 28 | {..; |return (|
|00000d40| 6e 65 6c 69 73 74 70 28 | 70 29 20 26 26 20 61 74 |nelistp(|p) && at|
|00000d50| 6f 6d 70 28 66 69 72 73 | 74 28 70 29 29 29 3b 0d |omp(firs|t(p)));.|
|00000d60| 0a 3b 20 20 7d 0d 0a 43 | 4c 50 3a 3a 0d 0a 09 50 |.; }..C|LP::...P|
|00000d70| 55 53 48 09 48 4c 0d 0a | 09 43 41 4c 4c 09 4e 45 |USH.HL..|.CALL.NE|
|00000d80| 4c 50 0d 0a 09 4a 50 09 | 5a 2c 50 4f 50 46 0d 0a |LP...JP.|Z,POPF..|
|00000d90| 09 43 41 4c 4c 09 40 4c | 45 46 54 0d 0a 09 43 41 |.CALL.@L|EFT...CA|
|00000da0| 4c 4c 09 41 54 4f 4d 50 | 0d 0a 09 50 4f 50 09 48 |LL.ATOMP|...POP.H|
|00000db0| 4c 0d 0a 09 52 45 54 0d | 0a 0d 0a 3b 42 4f 4f 4c |L...RET.|...;BOOL|
|00000dc0| 45 41 4e 0d 0a 3b 6c 69 | 73 74 70 28 70 29 0d 0a |EAN..;li|stp(p)..|
|00000dd0| 3b 20 20 63 68 61 72 20 | 2a 20 70 3b 0d 0a 3b 20 |; char |* p;..; |
|00000de0| 20 7b 0d 0a 3b 20 20 72 | 65 74 75 72 6e 20 28 70 | {..; r|eturn (p|
|00000df0| 20 3d 3d 20 65 6d 70 74 | 79 20 7c 7c 20 6e 65 6c | == empt|y || nel|
|00000e00| 69 73 74 70 28 70 29 29 | 3b 0d 0a 3b 20 20 7d 0d |istp(p))|;..; }.|
|00000e10| 0a 4c 49 53 54 50 3a 3a | 0d 0a 09 50 55 53 48 09 |.LISTP::|...PUSH.|
|00000e20| 48 4c 0d 0a 09 43 41 4c | 4c 09 4e 45 4c 50 0d 0a |HL...CAL|L.NELP..|
|00000e30| 09 4a 50 09 4e 5a 2c 50 | 4f 50 54 0d 0a 09 4c 44 |.JP.NZ,P|OPT...LD|
|00000e40| 09 44 45 2c 45 4d 50 54 | 59 0d 0a 09 43 41 4c 4c |.DE,EMPT|Y...CALL|
|00000e50| 09 43 50 48 4c 23 23 0d | 0a 09 4a 50 09 5a 2c 50 |.CPHL##.|..JP.Z,P|
|00000e60| 4f 50 54 0d 0a 09 4a 50 | 09 50 4f 50 46 0d 0a 0d |OPT...JP|.POPF...|
|00000e70| 0a 3b 42 4f 4f 4c 45 41 | 4e 0d 0a 3b 6e 65 6c 69 |.;BOOLEA|N..;neli|
|00000e80| 73 74 70 28 70 29 0d 0a | 3b 20 20 63 68 61 72 20 |stp(p)..|; char |
|00000e90| 2a 20 70 3b 0d 0a 3b 20 | 20 7b 0d 0a 3b 20 20 72 |* p;..; | {..; r|
|00000ea0| 65 74 75 72 6e 20 28 68 | 62 6f 74 20 3c 3d 20 70 |eturn (h|bot <= p|
|00000eb0| 20 26 26 20 70 20 3c 20 | 68 66 72 65 65 29 3b 0d | && p < |hfree);.|
|00000ec0| 0a 3b 20 20 7d 0d 0a 4e | 45 4c 50 3a 3a 0d 0a 09 |.; }..N|ELP::...|
|00000ed0| 50 55 53 48 09 48 4c 0d | 0a 09 4c 44 09 44 45 2c |PUSH.HL.|..LD.DE,|
|00000ee0| 28 53 54 4f 50 23 23 29 | 0d 0a 09 43 41 4c 4c 09 |(STOP##)|...CALL.|
|00000ef0| 43 50 48 4c 23 23 0d 0a | 09 4a 50 09 43 2c 50 4f |CPHL##..|.JP.C,PO|
|00000f00| 50 46 0d 0a 09 4c 44 09 | 44 45 2c 28 48 46 52 45 |PF...LD.|DE,(HFRE|
|00000f10| 45 23 23 29 0d 0a 09 43 | 41 4c 4c 09 43 50 48 4c |E##)...C|ALL.CPHL|
|00000f20| 23 23 0d 0a 09 4a 50 09 | 4e 43 2c 50 4f 50 46 0d |##...JP.|NC,POPF.|
|00000f30| 0a 09 4a 50 09 50 4f 50 | 54 0d 0a 0d 0a 3b 42 4f |..JP.POP|T....;BO|
|00000f40| 4f 4c 45 41 4e 0d 0a 3b | 6e 75 6d 62 70 28 70 29 |OLEAN..;|numbp(p)|
|00000f50| 0d 0a 3b 20 20 63 68 61 | 72 20 2a 20 70 3b 0d 0a |..; cha|r * p;..|
|00000f60| 3b 20 20 7b 0d 0a 3b 20 | 20 72 65 74 75 72 6e 20 |; {..; | return |
|00000f70| 28 30 20 3c 3d 20 70 20 | 26 26 20 70 20 3c 20 73 |(0 <= p |&& p < s|
|00000f80| 62 6f 74 29 3b 0d 0a 3b | 20 20 7d 0d 0a 4e 55 4d |bot);..;| }..NUM|
|00000f90| 42 50 3a 3a 0d 0a 09 50 | 55 53 48 09 48 4c 0d 0a |BP::...P|USH.HL..|
|00000fa0| 09 4c 44 09 44 45 2c 28 | 53 42 4f 54 29 0d 0a 09 |.LD.DE,(|SBOT)...|
|00000fb0| 43 41 4c 4c 09 43 50 48 | 4c 23 23 0d 0a 09 4a 50 |CALL.CPH|L##...JP|
|00000fc0| 09 43 2c 50 4f 50 54 0d | 0a 09 4a 50 09 50 4f 50 |.C,POPT.|..JP.POP|
|00000fd0| 46 0d 0a 0d 0a 3b 42 4f | 4f 4c 45 41 4e 0d 0a 3b |F....;BO|OLEAN..;|
|00000fe0| 73 75 62 73 74 70 28 78 | 29 0d 0a 3b 20 20 2f 2a |substp(x|)..; /*|
|00000ff0| 20 64 69 73 74 69 6e 67 | 75 69 73 68 20 28 53 55 | disting|uish (SU|
|00001000| 42 53 54 20 2a 29 20 66 | 72 6f 6d 20 28 53 45 58 |BST *) f|rom (SEX|
|00001010| 50 52 20 2a 29 20 69 6e | 20 53 55 42 56 41 4c 20 |PR *) in| SUBVAL |
|00001020| 2a 2f 0d 0a 3b 20 20 53 | 55 42 56 41 4c 20 2a 20 |*/..; S|UBVAL * |
|00001030| 78 3b 0d 0a 3b 20 20 7b | 0d 0a 3b 20 20 72 65 74 |x;..; {|..; ret|
|00001040| 75 72 6e 20 76 61 72 70 | 28 78 2d 3e 76 6e 61 6d |urn varp|(x->vnam|
|00001050| 65 29 3b 0d 0a 3b 20 20 | 7d 0d 0a 53 55 42 53 54 |e);..; |}..SUBST|
|00001060| 50 3a 3a 0d 0a 09 50 55 | 53 48 09 48 4c 0d 0a 09 |P::...PU|SH.HL...|
|00001070| 43 41 4c 4c 09 40 56 4e | 41 4d 45 0d 0a 09 43 41 |CALL.@VN|AME...CA|
|00001080| 4c 4c 09 56 41 52 50 0d | 0a 09 50 4f 50 09 48 4c |LL.VARP.|..POP.HL|
|00001090| 0d 0a 09 52 45 54 0d 0a | 0d 0a 3b 42 4f 4f 4c 45 |...RET..|..;BOOLE|
|000010a0| 41 4e 0d 0a 3b 73 79 6d | 62 70 28 70 29 0d 0a 3b |AN..;sym|bp(p)..;|
|000010b0| 20 20 63 68 61 72 20 2a | 20 70 3b 0d 0a 3b 20 20 | char *| p;..; |
|000010c0| 7b 0d 0a 3b 20 20 72 65 | 74 75 72 6e 20 28 73 62 |{..; re|turn (sb|
|000010d0| 6f 74 20 3c 3d 20 70 20 | 26 26 20 70 20 3c 20 73 |ot <= p |&& p < s|
|000010e0| 66 72 65 65 29 3b 0d 0a | 3b 20 20 7d 0d 0a 53 59 |free);..|; }..SY|
|000010f0| 4d 42 50 3a 3a 0d 0a 09 | 50 55 53 48 09 48 4c 0d |MBP::...|PUSH.HL.|
|00001100| 0a 09 4c 44 09 44 45 2c | 28 53 42 4f 54 23 23 29 |..LD.DE,|(SBOT##)|
|00001110| 0d 0a 09 43 41 4c 4c 09 | 43 50 48 4c 23 23 0d 0a |...CALL.|CPHL##..|
|00001120| 09 4a 50 09 43 2c 50 4f | 50 46 0d 0a 09 4c 44 09 |.JP.C,PO|PF...LD.|
|00001130| 44 45 2c 28 53 46 52 45 | 45 23 23 29 0d 0a 09 43 |DE,(SFRE|E##)...C|
|00001140| 41 4c 4c 09 43 50 48 4c | 23 23 0d 0a 09 4a 50 09 |ALL.CPHL|##...JP.|
|00001150| 4e 43 2c 50 4f 50 46 0d | 0a 09 4a 50 09 50 4f 50 |NC,POPF.|..JP.POP|
|00001160| 54 0d 0a 0d 0a 3b 42 4f | 4f 4c 45 41 4e 0d 0a 3b |T....;BO|OLEAN..;|
|00001170| 76 61 72 70 28 70 29 0d | 0a 3b 20 20 53 59 4d 42 |varp(p).|.; SYMB|
|00001180| 4f 4c 20 2a 20 70 3b 0d | 0a 3b 20 20 7b 0d 0a 3b |OL * p;.|.; {..;|
|00001190| 20 20 72 65 74 75 72 6e | 20 28 73 79 6d 62 70 28 | return| (symbp(|
|000011a0| 70 29 20 26 26 20 28 70 | 2d 3e 73 74 72 69 6e 67 |p) && (p|->string|
|000011b0| 5b 30 5d 20 3d 3d 20 27 | 3f 27 29 29 3b 0d 0a 3b |[0] == '|?'));..;|
|000011c0| 20 20 7d 0d 0a 56 41 52 | 50 3a 3a 0d 0a 09 50 55 | }..VAR|P::...PU|
|000011d0| 53 48 09 48 4c 0d 0a 09 | 43 41 4c 4c 09 53 59 4d |SH.HL...|CALL.SYM|
|000011e0| 42 50 0d 0a 09 4a 52 09 | 5a 2c 50 4f 50 46 0d 0a |BP...JR.|Z,POPF..|
|000011f0| 09 43 41 4c 4c 09 40 53 | 54 52 0d 0a 09 4c 44 09 |.CALL.@S|TR...LD.|
|00001200| 41 2c 28 48 4c 29 0d 0a | 09 43 50 09 27 3f 27 0d |A,(HL)..|.CP.'?'.|
|00001210| 0a 09 4a 52 09 5a 2c 50 | 4f 50 54 0d 0a 09 4a 52 |..JR.Z,P|OPT...JR|
|00001220| 09 50 4f 50 46 0d 0a 50 | 4f 50 54 3a 09 4c 44 09 |.POPF..P|OPT:.LD.|
|00001230| 41 2c 31 0d 0a 09 4f 52 | 09 41 0d 0a 09 50 4f 50 |A,1...OR|.A...POP|
|00001240| 09 48 4c 0d 0a 09 52 45 | 54 0d 0a 50 4f 50 46 3a |.HL...RE|T..POPF:|
|00001250| 09 58 4f 52 09 41 0d 0a | 09 50 4f 50 09 48 4c 0d |.XOR.A..|.POP.HL.|
|00001260| 0a 09 52 45 54 0d 0a 0d | 0a 3b 20 2d 2d 2d 2d 2d |..RET...|.; -----|
|00001270| 2d 2d 2d 2d 2d 2d 2d 20 | 69 6e 64 69 72 65 63 74 |------- |indirect|
|00001280| 20 72 65 66 65 72 65 6e | 63 65 20 72 6f 75 74 69 | referen|ce routi|
|00001290| 6e 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nes ----|--------|
|000012a0| 2d 2d 2d 2d 0d 0a 0d 0a | 49 4e 44 49 52 3a 3a 0d |----....|INDIR::.|
|000012b0| 0a 09 4c 44 09 41 2c 28 | 48 4c 29 0d 0a 09 49 4e |..LD.A,(|HL)...IN|
|000012c0| 43 09 48 4c 0d 0a 09 4c | 44 09 48 2c 28 48 4c 29 |C.HL...L|D.H,(HL)|
|000012d0| 0d 0a 09 4c 44 09 4c 2c | 41 0d 0a 09 52 45 54 0d |...LD.L,|A...RET.|
|000012e0| 0a 40 4c 49 4e 44 49 52 | 3a 0d 0a 09 50 55 53 48 |.@LINDIR|:...PUSH|
|000012f0| 09 48 4c 0d 0a 09 41 44 | 44 09 48 4c 2c 42 43 0d |.HL...AD|D.HL,BC.|
|00001300| 0a 4c 49 4e 44 49 52 3a | 3a 0d 0a 09 4c 44 09 28 |.LINDIR:|:...LD.(|
|00001310| 48 4c 29 2c 45 0d 0a 09 | 49 4e 43 09 48 4c 0d 0a |HL),E...|INC.HL..|
|00001320| 09 4c 44 09 28 48 4c 29 | 2c 44 0d 0a 09 50 4f 50 |.LD.(HL)|,D...POP|
|00001330| 09 48 4c 0d 0a 09 52 45 | 54 0d 0a 40 49 4e 44 49 |.HL...RE|T..@INDI|
|00001340| 52 3a 09 41 44 44 09 48 | 4c 2c 44 45 0d 0a 09 4a |R:.ADD.H|L,DE...J|
|00001350| 52 09 49 4e 44 49 52 0d | 0a 40 49 4e 44 30 09 45 |R.INDIR.|.@IND0.E|
|00001360| 51 55 09 49 4e 44 49 52 | 0d 0a 40 49 4e 44 32 3a |QU.INDIR|..@IND2:|
|00001370| 09 4c 44 09 44 45 2c 32 | 0d 0a 09 4a 52 09 40 49 |.LD.DE,2|...JR.@I|
|00001380| 4e 44 49 52 0d 0a 40 49 | 4e 44 34 3a 09 4c 44 09 |NDIR..@I|ND4:.LD.|
|00001390| 44 45 2c 34 0d 0a 09 4a | 52 09 40 49 4e 44 49 52 |DE,4...J|R.@INDIR|
|000013a0| 0d 0a 40 49 4e 44 36 3a | 09 4c 44 09 44 45 2c 36 |..@IND6:|.LD.DE,6|
|000013b0| 0d 0a 09 4a 52 09 40 49 | 4e 44 49 52 0d 0a 40 4c |...JR.@I|NDIR..@L|
|000013c0| 49 4e 44 30 3a 09 4c 44 | 09 42 43 2c 30 0d 0a 09 |IND0:.LD|.BC,0...|
|000013d0| 4a 52 09 40 4c 49 4e 44 | 49 52 0d 0a 40 4c 49 4e |JR.@LIND|IR..@LIN|
|000013e0| 44 32 3a 09 4c 44 09 42 | 43 2c 32 0d 0a 09 4a 52 |D2:.LD.B|C,2...JR|
|000013f0| 09 40 4c 49 4e 44 49 52 | 0d 0a 40 4c 49 4e 44 34 |.@LINDIR|..@LIND4|
|00001400| 3a 09 4c 44 09 42 43 2c | 34 0d 0a 09 4a 52 09 40 |:.LD.BC,|4...JR.@|
|00001410| 4c 49 4e 44 49 52 0d 0a | 40 4c 49 4e 44 36 3a 09 |LINDIR..|@LIND6:.|
|00001420| 4c 44 09 42 43 2c 36 0d | 0a 09 4a 52 09 40 4c 49 |LD.BC,6.|..JR.@LI|
|00001430| 4e 44 49 52 0d 0a 0d 0a | 3b 20 66 6f 72 20 28 53 |NDIR....|; for (S|
|00001440| 59 4d 42 4f 4c 20 2a 29 | 20 6f 72 20 56 41 52 49 |YMBOL *)| or VARI|
|00001450| 41 42 4c 45 0d 0a 09 50 | 55 42 4c 49 43 09 40 41 |ABLE...P|UBLIC.@A|
|00001460| 44 44 52 2c 40 4c 50 54 | 52 2c 40 52 50 54 52 2c |DDR,@LPT|R,@RPTR,|
|00001470| 40 4c 41 44 44 52 2c 40 | 4c 4c 50 54 52 2c 40 4c |@LADDR,@|LLPTR,@L|
|00001480| 52 50 54 52 2c 40 53 54 | 52 0d 0a 40 41 44 44 52 |RPTR,@ST|R..@ADDR|
|00001490| 09 45 51 55 09 40 49 4e | 44 30 0d 0a 40 4c 50 54 |.EQU.@IN|D0..@LPT|
|000014a0| 52 09 45 51 55 09 40 49 | 4e 44 32 0d 0a 40 52 50 |R.EQU.@I|ND2..@RP|
|000014b0| 54 52 09 45 51 55 09 40 | 49 4e 44 34 0d 0a 40 4c |TR.EQU.@|IND4..@L|
|000014c0| 41 44 44 52 09 45 51 55 | 09 40 4c 49 4e 44 30 0d |ADDR.EQU|.@LIND0.|
|000014d0| 0a 40 4c 4c 50 54 52 09 | 45 51 55 09 40 4c 49 4e |.@LLPTR.|EQU.@LIN|
|000014e0| 44 32 0d 0a 40 4c 52 50 | 54 52 09 45 51 55 09 40 |D2..@LRP|TR.EQU.@|
|000014f0| 4c 49 4e 44 34 0d 0a 40 | 53 54 52 3a 09 4c 44 09 |LIND4..@|STR:.LD.|
|00001500| 44 45 2c 36 09 3b 20 70 | 6f 69 6e 74 65 72 0d 0a |DE,6.; p|ointer..|
|00001510| 09 41 44 44 09 48 4c 2c | 44 45 0d 0a 09 52 45 54 |.ADD.HL,|DE...RET|
|00001520| 0d 0a 0d 0a 3b 20 66 6f | 72 20 28 4e 4f 44 45 20 |....; fo|r (NODE |
|00001530| 2a 29 20 6f 72 20 50 41 | 49 52 0d 0a 09 50 55 42 |*) or PA|IR...PUB|
|00001540| 4c 49 43 09 40 4c 45 46 | 54 2c 40 52 49 47 48 54 |LIC.@LEF|T,@RIGHT|
|00001550| 2c 40 4c 4c 45 46 54 2c | 40 4c 52 49 47 48 54 0d |,@LLEFT,|@LRIGHT.|
|00001560| 0a 40 4c 45 46 54 09 45 | 51 55 09 40 49 4e 44 30 |.@LEFT.E|QU.@IND0|
|00001570| 0d 0a 40 52 49 47 48 54 | 09 45 51 55 09 40 49 4e |..@RIGHT|.EQU.@IN|
|00001580| 44 32 0d 0a 40 4c 4c 45 | 46 54 09 45 51 55 09 40 |D2..@LLE|FT.EQU.@|
|00001590| 4c 49 4e 44 30 0d 0a 40 | 4c 52 49 47 48 54 09 45 |LIND0..@|LRIGHT.E|
|000015a0| 51 55 09 40 4c 49 4e 44 | 32 0d 0a 0d 0a 3b 20 66 |QU.@LIND|2....; f|
|000015b0| 6f 72 20 28 53 55 42 53 | 54 20 2a 29 20 6f 72 20 |or (SUBS|T *) or |
|000015c0| 4c 53 55 42 53 54 0d 0a | 09 50 55 42 4c 49 43 09 |LSUBST..|.PUBLIC.|
|000015d0| 40 56 4e 41 4d 45 2c 40 | 42 41 43 4b 2c 40 46 4f |@VNAME,@|BACK,@FO|
|000015e0| 52 57 2c 40 4c 56 4e 41 | 4d 45 2c 40 4c 42 41 43 |RW,@LVNA|ME,@LBAC|
|000015f0| 4b 2c 40 4c 46 4f 52 57 | 0d 0a 40 56 4e 41 4d 45 |K,@LFORW|..@VNAME|
|00001600| 09 45 51 55 09 40 49 4e | 44 30 0d 0a 40 42 41 43 |.EQU.@IN|D0..@BAC|
|00001610| 4b 09 45 51 55 09 40 49 | 4e 44 32 0d 0a 40 46 4f |K.EQU.@I|ND2..@FO|
|00001620| 52 57 09 45 51 55 09 40 | 49 4e 44 34 0d 0a 40 4c |RW.EQU.@|IND4..@L|
|00001630| 56 4e 41 4d 45 09 45 51 | 55 09 40 4c 49 4e 44 30 |VNAME.EQ|U.@LIND0|
|00001640| 0d 0a 40 4c 42 41 43 4b | 09 45 51 55 09 40 4c 49 |..@LBACK|.EQU.@LI|
|00001650| 4e 44 32 0d 0a 40 4c 46 | 4f 52 57 09 45 51 55 09 |ND2..@LF|ORW.EQU.|
|00001660| 40 4c 49 4e 44 34 0d 0a | 0d 0a 3b 20 66 6f 72 20 |@LIND4..|..; for |
|00001670| 28 53 45 58 50 52 20 2a | 29 0d 0a 09 50 55 42 4c |(SEXPR *|)...PUBL|
|00001680| 49 43 09 40 45 58 50 52 | 2c 40 53 4c 49 53 54 2c |IC.@EXPR|,@SLIST,|
|00001690| 40 4c 45 58 50 52 2c 40 | 4c 53 4c 49 53 54 0d 0a |@LEXPR,@|LSLIST..|
|000016a0| 40 45 58 50 52 09 45 51 | 55 09 40 49 4e 44 30 0d |@EXPR.EQ|U.@IND0.|
|000016b0| 0a 3b 40 42 41 43 4b 20 | 61 73 20 61 62 6f 76 65 |.;@BACK |as above|
|000016c0| 0d 0a 40 53 4c 49 53 54 | 09 45 51 55 09 40 49 4e |..@SLIST|.EQU.@IN|
|000016d0| 44 34 0d 0a 40 4c 45 58 | 50 52 09 45 51 55 09 40 |D4..@LEX|PR.EQU.@|
|000016e0| 4c 49 4e 44 30 0d 0a 3b | 40 4c 42 41 43 4b 20 61 |LIND0..;|@LBACK a|
|000016f0| 73 20 61 62 6f 76 65 0d | 0a 40 4c 53 4c 49 53 54 |s above.|.@LSLIST|
|00001700| 09 45 51 55 09 40 4c 49 | 4e 44 34 0d 0a 0d 0a 3b |.EQU.@LI|ND4....;|
|00001710| 20 66 6f 72 20 28 41 4c | 50 48 41 53 54 41 54 45 | for (AL|PHASTATE|
|00001720| 20 2a 29 0d 0a 09 50 55 | 42 4c 49 43 09 40 50 52 | *)...PU|BLIC.@PR|
|00001730| 45 44 2c 40 58 42 41 43 | 4b 0d 0a 40 50 52 45 44 |ED,@XBAC|K..@PRED|
|00001740| 09 45 51 55 09 40 49 4e | 44 30 0d 0a 58 50 52 45 |.EQU.@IN|D0..XPRE|
|00001750| 44 3a 3a 09 4c 44 09 4c | 2c 28 49 58 2b 30 29 0d |D::.LD.L|,(IX+0).|
|00001760| 0a 09 4c 44 09 48 2c 28 | 49 58 2b 31 29 0d 0a 09 |..LD.H,(|IX+1)...|
|00001770| 52 45 54 0d 0a 58 47 4f | 41 4c 3a 3a 09 4c 44 09 |RET..XGO|AL::.LD.|
|00001780| 4c 2c 28 49 58 2b 32 29 | 0d 0a 09 4c 44 09 48 2c |L,(IX+2)|...LD.H,|
|00001790| 28 49 58 2b 33 29 0d 0a | 09 52 45 54 0d 0a 58 44 |(IX+3)..|.RET..XD|
|000017a0| 41 54 42 3a 3a 09 4c 44 | 09 4c 2c 28 49 58 2b 34 |ATB::.LD|.L,(IX+4|
|000017b0| 29 0d 0a 09 4c 44 09 48 | 2c 28 49 58 2b 35 29 0d |)...LD.H|,(IX+5).|
|000017c0| 0a 09 52 45 54 0d 0a 58 | 42 41 43 4b 3a 3a 09 4c |..RET..X|BACK::.L|
|000017d0| 44 09 4c 2c 28 49 58 2b | 36 29 0d 0a 09 4c 44 09 |D.L,(IX+|6)...LD.|
|000017e0| 48 2c 28 49 58 2b 37 29 | 0d 0a 09 52 45 54 0d 0a |H,(IX+7)|...RET..|
|000017f0| 40 58 42 41 43 4b 09 45 | 51 55 09 40 49 4e 44 36 |@XBACK.E|QU.@IND6|
|00001800| 0d 0a 58 4c 50 52 45 44 | 3a 3a 0d 0a 09 4c 44 09 |..XLPRED|::...LD.|
|00001810| 28 49 58 2b 30 29 2c 4c | 0d 0a 09 4c 44 09 28 49 |(IX+0),L|...LD.(I|
|00001820| 58 2b 31 29 2c 48 0d 0a | 09 52 45 54 0d 0a 58 4c |X+1),H..|.RET..XL|
|00001830| 47 4f 41 4c 3a 3a 0d 0a | 09 4c 44 09 28 49 58 2b |GOAL::..|.LD.(IX+|
|00001840| 32 29 2c 4c 0d 0a 09 4c | 44 09 28 49 58 2b 33 29 |2),L...L|D.(IX+3)|
|00001850| 2c 48 0d 0a 09 52 45 54 | 0d 0a 58 4c 44 41 54 42 |,H...RET|..XLDATB|
|00001860| 3a 3a 0d 0a 09 4c 44 09 | 28 49 58 2b 34 29 2c 4c |::...LD.|(IX+4),L|
|00001870| 0d 0a 09 4c 44 09 28 49 | 58 2b 35 29 2c 48 0d 0a |...LD.(I|X+5),H..|
|00001880| 09 52 45 54 0d 0a 58 4c | 42 41 43 4b 3a 3a 0d 0a |.RET..XL|BACK::..|
|00001890| 09 4c 44 09 28 49 58 2b | 36 29 2c 4c 0d 0a 09 4c |.LD.(IX+|6),L...L|
|000018a0| 44 09 28 49 58 2b 37 29 | 2c 48 0d 0a 09 52 45 54 |D.(IX+7)|,H...RET|
|000018b0| 0d 0a 0d 0a 3b 20 66 6f | 72 20 28 42 45 54 41 53 |....; fo|r (BETAS|
|000018c0| 54 41 54 45 20 2a 29 0d | 0a 59 50 52 45 44 3a 3a |TATE *).|.YPRED::|
|000018d0| 09 4c 44 09 4c 2c 28 49 | 59 2b 30 29 0d 0a 09 4c |.LD.L,(I|Y+0)...L|
|000018e0| 44 09 48 2c 28 49 59 2b | 31 29 0d 0a 09 52 45 54 |D.H,(IY+|1)...RET|
|000018f0| 0d 0a 59 41 53 53 3a 3a | 09 4c 44 09 4c 2c 28 49 |..YASS::|.LD.L,(I|
|00001900| 59 2b 32 29 0d 0a 09 4c | 44 09 48 2c 28 49 59 2b |Y+2)...L|D.H,(IY+|
|00001910| 33 29 0d 0a 09 52 45 54 | 0d 0a 59 4c 50 52 45 44 |3)...RET|..YLPRED|
|00001920| 3a 3a 0d 0a 09 4c 44 09 | 28 49 59 2b 30 29 2c 4c |::...LD.|(IY+0),L|
|00001930| 0d 0a 09 4c 44 09 28 49 | 59 2b 31 29 2c 48 0d 0a |...LD.(I|Y+1),H..|
|00001940| 09 52 45 54 0d 0a 59 4c | 41 53 53 3a 3a 09 4c 44 |.RET..YL|ASS::.LD|
|00001950| 09 28 49 59 2b 32 29 2c | 4c 0d 0a 09 4c 44 09 28 |.(IY+2),|L...LD.(|
|00001960| 49 59 2b 33 29 2c 48 0d | 0a 09 52 45 54 0d 0a 59 |IY+3),H.|..RET..Y|
|00001970| 53 55 42 53 54 3a 3a 20 | 50 55 53 48 09 49 59 09 |SUBST:: |PUSH.IY.|
|00001980| 3b 20 70 6f 69 6e 74 65 | 72 0d 0a 09 50 4f 50 09 |; pointe|r...POP.|
|00001990| 48 4c 0d 0a 40 53 55 42 | 53 54 3a 3a 20 49 4e 43 |HL..@SUB|ST:: INC|
|000019a0| 09 48 4c 0d 0a 09 49 4e | 43 09 48 4c 0d 0a 09 49 |.HL...IN|C.HL...I|
|000019b0| 4e 43 09 48 4c 0d 0a 09 | 49 4e 43 09 48 4c 0d 0a |NC.HL...|INC.HL..|
|000019c0| 09 52 45 54 0d 0a 0d 0a | 09 45 4e 44 0d 0a 1a 1a |.RET....|.END....|
|000019d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000019e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000019f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001a00| 0d 0a 3b 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..; ====|========|
|00001a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00001a40| 0a 3b 20 43 4d 44 2e 5a | 38 30 0d 0a 3b 09 62 75 |.; CMD.Z|80..;.bu|
|00001a50| 69 6c 74 2d 69 6e 20 63 | 6f 6d 6d 61 6e 64 73 20 |ilt-in c|ommands |
|00001a60| 66 6f 72 20 45 2d 50 72 | 6f 6c 6f 67 0d 0a 3b 09 |for E-Pr|olog..;.|
|00001a70| 4a 75 6e 65 20 31 2c 20 | 31 39 38 35 0d 0a 0d 0a |June 1, |1985....|
|00001a80| 09 2e 5a 38 30 0d 0a 0d | 0a 46 41 4c 53 45 09 45 |..Z80...|.FALSE.E|
|00001a90| 51 55 09 30 0d 0a 54 52 | 55 45 09 45 51 55 09 31 |QU.0..TR|UE.EQU.1|
|00001aa0| 0d 0a 45 4d 50 54 59 09 | 45 51 55 09 2d 31 0d 0a |..EMPTY.|EQU.-1..|
|00001ab0| 55 4e 44 45 46 09 45 51 | 55 09 2d 32 0d 0a 0d 0a |UNDEF.EQ|U.-2....|
|00001ac0| 48 54 09 45 51 55 09 39 | 0d 0a 4c 46 09 45 51 55 |HT.EQU.9|..LF.EQU|
|00001ad0| 09 31 30 0d 0a 43 52 09 | 45 51 55 09 31 33 0d 0a |.10..CR.|EQU.13..|
|00001ae0| 43 54 4c 5a 09 45 51 55 | 09 32 36 0d 0a 0d 0a 43 |CTLZ.EQU|.26....C|
|00001af0| 50 4d 09 45 51 55 09 20 | 20 20 20 30 30 30 30 48 |PM.EQU. | 0000H|
|00001b00| 0d 0a 42 44 4f 53 09 45 | 51 55 09 43 50 4d 2b 30 |..BDOS.E|QU.CPM+0|
|00001b10| 30 30 35 48 0d 0a 43 44 | 4d 41 09 45 51 55 09 43 |005H..CD|MA.EQU.C|
|00001b20| 50 4d 2b 30 30 38 30 48 | 0d 0a 54 50 41 09 45 51 |PM+0080H|..TPA.EQ|
|00001b30| 55 09 43 50 4d 2b 30 31 | 30 30 48 0d 0a 0d 0a 3b |U.CPM+01|00H....;|
|00001b40| 20 63 6f 6d 70 61 72 65 | 20 77 69 74 68 20 67 69 | compare| with gi|
|00001b50| 76 65 6e 20 76 61 6c 75 | 65 0d 0a 3b 0d 0a 3f 43 |ven valu|e..;..?C|
|00001b60| 50 48 4c 09 4d 41 43 52 | 4f 09 3f 56 41 4c 55 45 |PHL.MACR|O.?VALUE|
|00001b70| 0d 0a 09 50 55 53 48 09 | 44 45 0d 0a 09 4c 44 09 |...PUSH.|DE...LD.|
|00001b80| 44 45 2c 3f 56 41 4c 55 | 45 0d 0a 09 43 41 4c 4c |DE,?VALU|E...CALL|
|00001b90| 09 43 50 48 4c 23 23 0d | 0a 09 50 4f 50 09 44 45 |.CPHL##.|..POP.DE|
|00001ba0| 0d 0a 09 45 4e 44 4d 0d | 0a 0d 0a 3b 20 63 6f 70 |...ENDM.|...; cop|
|00001bb0| 79 20 73 74 72 69 6e 67 | 0d 0a 3b 0d 0a 3b 20 69 |y string|..;..; i|
|00001bc0| 6e 70 75 74 3a 0d 0a 3b | 09 48 4c 20 2d 3e 20 73 |nput:..;|.HL -> s|
|00001bd0| 6f 75 72 63 65 0d 0a 3b | 20 61 6c 6c 20 72 65 67 |ource..;| all reg|
|00001be0| 69 73 74 65 72 73 20 64 | 65 73 74 72 6f 79 65 64 |isters d|estroyed|
|00001bf0| 0d 0a 3f 43 4f 50 59 09 | 4d 41 43 52 4f 09 3f 41 |..?COPY.|MACRO.?A|
|00001c00| 44 44 52 0d 0a 09 4c 44 | 09 44 45 2c 3f 41 44 44 |DDR...LD|.DE,?ADD|
|00001c10| 52 0d 0a 09 43 41 4c 4c | 09 43 4f 50 59 23 23 0d |R...CALL|.COPY##.|
|00001c20| 0a 09 45 4e 44 4d 0d 0a | 0d 0a 3b 20 6c 6f 63 61 |..ENDM..|..; loca|
|00001c30| 6c 20 73 74 6f 72 61 67 | 65 0d 0a 09 44 53 45 47 |l storag|e...DSEG|
|00001c40| 0d 0a 4c 4f 43 53 54 3a | 09 44 53 09 38 0d 0a 52 |..LOCST:|.DS.8..R|
|00001c50| 45 53 54 09 45 51 55 09 | 4c 4f 43 53 54 0d 0a 4c |EST.EQU.|LOCST..L|
|00001c60| 53 09 45 51 55 09 4c 4f | 43 53 54 2b 32 0d 0a 58 |S.EQU.LO|CST+2..X|
|00001c70| 09 45 51 55 09 4c 4f 43 | 53 54 2b 34 0d 0a 59 09 |.EQU.LOC|ST+4..Y.|
|00001c80| 45 51 55 09 4c 4f 43 53 | 54 2b 36 0d 0a 53 56 09 |EQU.LOCS|T+6..SV.|
|00001c90| 45 51 55 09 4c 4f 43 53 | 54 2b 34 0d 0a 50 54 52 |EQU.LOCS|T+4..PTR|
|00001ca0| 09 45 51 55 09 4c 4f 43 | 53 54 0d 0a 4c 53 53 09 |.EQU.LOC|ST..LSS.|
|00001cb0| 45 51 55 09 4c 53 0d 0a | 58 31 09 45 51 55 09 4c |EQU.LS..|X1.EQU.L|
|00001cc0| 4f 43 53 54 2b 34 0d 0a | 58 32 09 45 51 55 09 4c |OCST+4..|X2.EQU.L|
|00001cd0| 4f 43 53 54 2b 36 0d 0a | 09 43 53 45 47 0d 0a 0d |OCST+6..|.CSEG...|
|00001ce0| 0a 3b 6e 6f 72 65 74 72 | 79 28 61 73 74 29 0d 0a |.;noretr|y(ast)..|
|00001cf0| 3b 20 20 41 4c 50 48 41 | 53 54 41 54 45 20 2a 20 |; ALPHA|STATE * |
|00001d00| 61 73 74 3b 0d 0a 3b 20 | 20 7b 0d 0a 3b 20 20 61 |ast;..; | {..; a|
|00001d10| 73 74 2d 3e 64 61 74 62 | 20 3d 20 28 50 41 49 52 |st->datb| = (PAIR|
|00001d20| 29 65 6d 70 74 79 3b 0d | 0a 3b 20 20 7d 0d 0a 4e |)empty;.|.; }..N|
|00001d30| 4f 52 45 3a 3a 0d 0a 09 | 4c 44 09 48 4c 2c 45 4d |ORE::...|LD.HL,EM|
|00001d40| 50 54 59 0d 0a 0d 0a 3b | 73 65 74 72 65 74 72 79 |PTY....;|setretry|
|00001d50| 28 61 73 74 2c 61 64 64 | 72 29 0d 0a 3b 20 20 41 |(ast,add|r)..; A|
|00001d60| 4c 50 48 41 53 54 41 54 | 45 20 2a 20 61 73 74 3b |LPHASTAT|E * ast;|
|00001d70| 0d 0a 3b 20 20 63 68 61 | 72 20 2a 20 61 64 64 72 |..; cha|r * addr|
|00001d80| 3b 0d 0a 3b 20 20 7b 0d | 0a 3b 20 20 61 73 74 2d |;..; {.|.; ast-|
|00001d90| 3e 64 61 74 62 20 3d 20 | 28 50 41 49 52 20 2a 29 |>datb = |(PAIR *)|
|00001da0| 61 64 64 72 3b 0d 0a 3b | 20 20 7d 0d 0a 53 45 54 |addr;..;| }..SET|
|00001db0| 52 45 3a 3a 0d 0a 09 4a | 50 09 58 4c 44 41 54 42 |RE::...J|P.XLDATB|
|00001dc0| 23 23 0d 0a 0d 0a 3b 53 | 59 4d 42 4f 4c 20 2a 0d |##....;S|YMBOL *.|
|00001dd0| 0a 3b 76 6e 65 78 74 28 | 70 65 78 70 2c 70 6c 73 |.;vnext(|pexp,pls|
|00001de0| 75 62 29 0d 0a 3b 20 20 | 45 58 50 52 20 2a 20 70 |ub)..; |EXPR * p|
|00001df0| 65 78 70 3b 0d 0a 3b 20 | 20 4c 53 55 42 53 54 20 |exp;..; | LSUBST |
|00001e00| 2a 20 70 6c 73 75 62 3b | 0d 0a 3b 20 20 7b 0d 0a |* plsub;|..; {..|
|00001e10| 3b 20 20 53 59 4d 42 4f | 4c 20 2a 20 78 3b 0d 0a |; SYMBO|L * x;..|
|00001e20| 3b 20 20 53 45 58 50 52 | 20 2a 20 79 3b 0d 0a 09 |; SEXPR| * y;...|
|00001e30| 44 53 45 47 0d 0a 50 45 | 58 50 3a 09 44 57 09 30 |DSEG..PE|XP:.DW.0|
|00001e40| 0d 0a 50 4c 53 55 42 3a | 09 44 57 09 30 0d 0a 56 |..PLSUB:|.DW.0..V|
|00001e50| 58 3a 09 44 57 09 30 0d | 0a 56 59 3a 09 44 57 09 |X:.DW.0.|.VY:.DW.|
|00001e60| 30 0d 0a 09 43 53 45 47 | 0d 0a 56 4e 45 58 54 3a |0...CSEG|..VNEXT:|
|00001e70| 3a 0d 0a 09 4c 44 09 28 | 50 45 58 50 29 2c 48 4c |:...LD.(|PEXP),HL|
|00001e80| 0d 0a 09 4c 44 09 28 50 | 4c 53 55 42 29 2c 44 45 |...LD.(P|LSUB),DE|
|00001e90| 0d 0a 3b 0d 0a 3b 20 20 | 69 66 20 28 76 61 72 70 |..;..; |if (varp|
|00001ea0| 28 70 65 78 70 2d 3e 6c | 69 73 74 29 29 0d 0a 09 |(pexp->l|ist))...|
|00001eb0| 43 41 4c 4c 09 49 4e 44 | 49 52 23 23 0d 0a 09 43 |CALL.IND|IR##...C|
|00001ec0| 41 4c 4c 09 56 41 52 50 | 23 23 0d 0a 09 4a 52 09 |ALL.VARP|##...JR.|
|00001ed0| 5a 2c 56 4e 31 0d 0a 3b | 20 20 20 20 7b 0d 0a 3b |Z,VN1..;| {..;|
|00001ee0| 20 20 20 20 79 20 3d 20 | 76 61 6c 75 65 28 76 66 | y = |value(vf|
|00001ef0| 28 70 65 78 70 2d 3e 6c | 69 73 74 2c 2a 70 6c 73 |(pexp->l|ist,*pls|
|00001f00| 75 62 29 29 3b 0d 0a 09 | 50 55 53 48 09 48 4c 0d |ub));...|PUSH.HL.|
|00001f10| 0a 09 4c 44 09 48 4c 2c | 28 50 4c 53 55 42 29 0d |..LD.HL,|(PLSUB).|
|00001f20| 0a 09 43 41 4c 4c 09 49 | 4e 44 49 52 23 23 0d 0a |..CALL.I|NDIR##..|
|00001f30| 09 45 58 09 44 45 2c 48 | 4c 0d 0a 09 50 4f 50 09 |.EX.DE,H|L...POP.|
|00001f40| 48 4c 0d 0a 09 43 41 4c | 4c 09 56 46 23 23 0d 0a |HL...CAL|L.VF##..|
|00001f50| 09 43 41 4c 4c 09 56 41 | 4c 55 45 23 23 0d 0a 09 |.CALL.VA|LUE##...|
|00001f60| 4c 44 09 28 56 59 29 2c | 48 4c 0d 0a 3b 20 20 20 |LD.(VY),|HL..; |
|00001f70| 20 69 66 20 28 73 75 62 | 73 74 70 28 79 29 29 0d | if (sub|stp(y)).|
|00001f80| 0a 09 43 41 4c 4c 09 53 | 55 42 53 54 50 23 23 0d |..CALL.S|UBSTP##.|
|00001f90| 0a 09 4a 52 09 5a 2c 56 | 4e 32 0d 0a 3b 20 20 20 |..JR.Z,V|N2..; |
|00001fa0| 20 20 20 72 65 74 75 72 | 6e 20 55 4e 44 45 46 3b | retur|n UNDEF;|
|00001fb0| 0d 0a 09 4c 44 09 48 4c | 2c 55 4e 44 45 46 0d 0a |...LD.HL|,UNDEF..|
|00001fc0| 09 52 45 54 0d 0a 56 4e | 32 3a 0d 0a 3b 20 20 20 |.RET..VN|2:..; |
|00001fd0| 20 70 65 78 70 2d 3e 6c | 69 73 74 20 3d 20 79 2d | pexp->l|ist = y-|
|00001fe0| 3e 73 65 78 70 2e 6c 69 | 73 74 3b 0d 0a 09 43 41 |>sexp.li|st;...CA|
|00001ff0| 4c 4c 09 40 45 58 50 52 | 23 23 0d 0a 09 45 58 09 |LL.@EXPR|##...EX.|
|00002000| 44 45 2c 48 4c 0d 0a 09 | 4c 44 09 48 4c 2c 28 50 |DE,HL...|LD.HL,(P|
|00002010| 45 58 50 29 0d 0a 09 4c | 44 09 28 48 4c 29 2c 45 |EXP)...L|D.(HL),E|
|00002020| 0d 0a 09 49 4e 43 09 48 | 4c 0d 0a 09 4c 44 09 28 |...INC.H|L...LD.(|
|00002030| 48 4c 29 2c 44 0d 0a 3b | 20 20 20 20 2a 70 6c 73 |HL),D..;| *pls|
|00002040| 75 62 20 3d 20 79 2d 3e | 73 6c 69 73 74 3b 0d 0a |ub = y->|slist;..|
|00002050| 09 4c 44 09 48 4c 2c 28 | 56 59 29 0d 0a 09 43 41 |.LD.HL,(|VY)...CA|
|00002060| 4c 4c 09 40 53 4c 49 53 | 54 23 23 0d 0a 09 45 58 |LL.@SLIS|T##...EX|
|00002070| 09 44 45 2c 48 4c 0d 0a | 09 4c 44 09 48 4c 2c 28 |.DE,HL..|.LD.HL,(|
|00002080| 50 4c 53 55 42 29 0d 0a | 09 4c 44 09 28 48 4c 29 |PLSUB)..|.LD.(HL)|
|00002090| 2c 45 0d 0a 09 49 4e 43 | 09 48 4c 0d 0a 09 4c 44 |,E...INC|.HL...LD|
|000020a0| 09 28 48 4c 29 2c 44 0d | 0a 3b 20 20 20 20 7d 0d |.(HL),D.|.; }.|
|000020b0| 0a 56 4e 31 3a 0d 0a 3b | 20 20 69 66 20 28 6e 65 |.VN1:..;| if (ne|
|000020c0| 6c 69 73 74 70 28 70 65 | 78 70 2d 3e 6c 69 73 74 |listp(pe|xp->list|
|000020d0| 29 29 0d 0a 09 4c 44 09 | 48 4c 2c 28 50 45 58 50 |))...LD.|HL,(PEXP|
|000020e0| 29 0d 0a 09 43 41 4c 4c | 09 49 4e 44 49 52 23 23 |)...CALL|.INDIR##|
|000020f0| 0d 0a 09 43 41 4c 4c 09 | 4e 45 4c 50 23 23 0d 0a |...CALL.|NELP##..|
|00002100| 09 4a 52 09 5a 2c 56 4e | 33 0d 0a 3b 20 20 20 20 |.JR.Z,VN|3..; |
|00002110| 7b 0d 0a 3b 20 20 20 20 | 78 20 3d 20 70 65 78 70 |{..; |x = pexp|
|00002120| 2d 3e 6c 69 73 74 2d 3e | 6c 65 66 74 2e 73 79 6d |->list->|left.sym|
|00002130| 62 6f 6c 3b 0d 0a 09 43 | 41 4c 4c 09 40 4c 45 46 |bol;...C|ALL.@LEF|
|00002140| 54 23 23 0d 0a 09 4c 44 | 09 28 56 58 29 2c 48 4c |T##...LD|.(VX),HL|
|00002150| 0d 0a 3b 20 20 20 20 69 | 66 20 28 76 61 72 70 28 |..; i|f (varp(|
|00002160| 78 29 29 0d 0a 09 43 41 | 4c 4c 09 56 41 52 50 23 |x))...CA|LL.VARP#|
|00002170| 23 0d 0a 09 4a 52 09 5a | 2c 56 4e 34 0d 0a 3b 20 |#...JR.Z|,VN4..; |
|00002180| 20 20 20 20 20 7b 0d 0a | 3b 20 20 20 20 20 20 79 | {..|; y|
|00002190| 20 3d 20 76 61 6c 75 65 | 28 76 66 28 78 2c 2a 70 | = value|(vf(x,*p|
|000021a0| 6c 73 75 62 29 29 3b 0d | 0a 09 50 55 53 48 09 48 |lsub));.|..PUSH.H|
|000021b0| 4c 0d 0a 09 4c 44 09 48 | 4c 2c 28 50 4c 53 55 42 |L...LD.H|L,(PLSUB|
|000021c0| 29 0d 0a 09 43 41 4c 4c | 09 49 4e 44 49 52 23 23 |)...CALL|.INDIR##|
|000021d0| 0d 0a 09 45 58 09 44 45 | 2c 48 4c 0d 0a 09 50 4f |...EX.DE|,HL...PO|
|000021e0| 50 09 48 4c 0d 0a 09 43 | 41 4c 4c 09 56 46 23 23 |P.HL...C|ALL.VF##|
|000021f0| 0d 0a 09 43 41 4c 4c 09 | 56 41 4c 55 45 23 23 0d |...CALL.|VALUE##.|
|00002200| 0a 09 4c 44 09 28 56 59 | 29 2c 48 4c 0d 0a 3b 20 |..LD.(VY|),HL..; |
|00002210| 20 20 20 20 20 78 20 3d | 20 79 2d 3e 73 65 78 70 | x =| y->sexp|
|00002220| 2e 73 79 6d 62 6f 6c 3b | 0d 0a 09 43 41 4c 4c 09 |.symbol;|...CALL.|
|00002230| 40 45 58 50 52 23 23 0d | 0a 09 4c 44 09 28 56 58 |@EXPR##.|..LD.(VX|
|00002240| 29 2c 48 4c 0d 0a 3b 20 | 20 20 20 20 20 69 66 20 |),HL..; | if |
|00002250| 28 76 61 72 70 28 78 29 | 29 0d 0a 09 43 41 4c 4c |(varp(x)|)...CALL|
|00002260| 09 56 41 52 50 23 23 0d | 0a 09 4a 52 09 5a 2c 56 |.VARP##.|..JR.Z,V|
|00002270| 4e 34 0d 0a 3b 20 20 20 | 20 20 20 20 20 78 20 3d |N4..; | x =|
|00002280| 20 79 3b 0d 0a 09 4c 44 | 09 48 4c 2c 28 56 59 29 | y;...LD|.HL,(VY)|
|00002290| 0d 0a 09 4c 44 09 28 56 | 58 29 2c 48 4c 0d 0a 3b |...LD.(V|X),HL..;|
|000022a0| 20 20 20 20 20 20 7d 0d | 0a 56 4e 34 3a 0d 0a 3b | }.|.VN4:..;|
|000022b0| 20 20 20 20 70 65 78 70 | 2d 3e 6c 69 73 74 20 3d | pexp|->list =|
|000022c0| 20 70 65 78 70 2d 3e 6c | 69 73 74 2d 3e 72 69 67 | pexp->l|ist->rig|
|000022d0| 68 74 2e 6c 69 73 74 3b | 0d 0a 09 4c 44 09 48 4c |ht.list;|...LD.HL|
|000022e0| 2c 28 50 45 58 50 29 0d | 0a 09 50 55 53 48 09 48 |,(PEXP).|..PUSH.H|
|000022f0| 4c 0d 0a 09 43 41 4c 4c | 09 49 4e 44 49 52 23 23 |L...CALL|.INDIR##|
|00002300| 0d 0a 09 43 41 4c 4c 09 | 40 52 49 47 48 54 23 23 |...CALL.|@RIGHT##|
|00002310| 0d 0a 09 45 58 09 44 45 | 2c 48 4c 0d 0a 09 50 4f |...EX.DE|,HL...PO|
|00002320| 50 09 48 4c 0d 0a 09 4c | 44 09 28 48 4c 29 2c 45 |P.HL...L|D.(HL),E|
|00002330| 0d 0a 09 49 4e 43 09 48 | 4c 0d 0a 09 4c 44 09 28 |...INC.H|L...LD.(|
|00002340| 48 4c 29 2c 44 0d 0a 3b | 20 20 20 20 72 65 74 75 |HL),D..;| retu|
|00002350| 72 6e 20 78 3b 0d 0a 09 | 4c 44 09 48 4c 2c 28 56 |rn x;...|LD.HL,(V|
|00002360| 58 29 0d 0a 09 52 45 54 | 0d 0a 3b 20 20 20 20 7d |X)...RET|..; }|
|00002370| 0d 0a 56 4e 33 3a 0d 0a | 3b 20 20 72 65 74 75 72 |..VN3:..|; retur|
|00002380| 6e 20 55 4e 44 45 46 3b | 0d 0a 09 4c 44 09 48 4c |n UNDEF;|...LD.HL|
|00002390| 2c 55 4e 44 45 46 0d 0a | 09 52 45 54 0d 0a 3b 20 |,UNDEF..|.RET..; |
|000023a0| 20 7d 0d 0a 0d 0a 52 45 | 54 54 3a 3a 09 4c 44 09 | }....RE|TT::.LD.|
|000023b0| 48 4c 2c 54 52 55 45 0d | 0a 52 45 54 58 3a 09 4c |HL,TRUE.|.RETX:.L|
|000023c0| 44 09 41 2c 48 0d 0a 09 | 4f 52 09 4c 0d 0a 09 52 |D.A,H...|OR.L...R|
|000023d0| 45 54 0d 0a 52 45 54 46 | 3a 3a 09 4c 44 09 48 4c |ET..RETF|::.LD.HL|
|000023e0| 2c 46 41 4c 53 45 0d 0a | 09 4a 52 09 52 45 54 58 |,FALSE..|.JR.RETX|
|000023f0| 0d 0a 0d 0a 3b 62 75 69 | 6c 74 2d 69 6e 20 63 6f |....;bui|lt-in co|
|00002400| 6d 6d 61 6e 64 73 20 63 | 61 6c 6c 65 64 20 69 6e |mmands c|alled in|
|00002410| 20 74 68 69 73 20 66 6f | 72 6d 3a 0d 0a 3b 09 66 | this fo|rm:..;.f|
|00002420| 28 72 65 73 74 2c 61 73 | 74 2c 6c 73 2c 70 62 73 |(rest,as|t,ls,pbs|
|00002430| 74 29 0d 0a 3b 09 50 41 | 49 52 20 72 65 73 74 3b |t)..;.PA|IR rest;|
|00002440| 09 09 28 69 6e 20 48 4c | 29 20 72 65 73 74 20 6f |..(in HL|) rest o|
|00002450| 66 20 61 74 6f 6d 0d 0a | 3b 09 41 4c 50 48 41 53 |f atom..|;.ALPHAS|
|00002460| 54 41 54 45 20 2a 20 61 | 73 74 3b 09 28 69 6e 20 |TATE * a|st;.(in |
|00002470| 49 58 29 20 74 68 69 73 | 20 73 74 61 74 65 0d 0a |IX) this| state..|
|00002480| 3b 09 4c 53 55 42 53 54 | 20 6c 73 3b 09 09 28 69 |;.LSUBST| ls;..(i|
|00002490| 6e 20 44 45 20 29 20 73 | 75 62 73 74 73 20 66 6f |n DE ) s|ubsts fo|
|000024a0| 72 20 72 65 73 74 0d 0a | 3b 09 42 45 54 41 53 54 |r rest..|;.BETAST|
|000024b0| 41 54 45 20 2a 20 62 73 | 74 3b 09 28 69 6e 20 49 |ATE * bs|t;.(in I|
|000024c0| 59 29 20 65 6d 70 74 79 | 2c 20 61 74 20 66 69 72 |Y) empty|, at fir|
|000024d0| 73 74 0d 0a 3b 0d 0a 3b | 72 65 74 75 72 6e 20 54 |st..;..;|return T|
|000024e0| 52 55 45 20 74 6f 20 73 | 75 63 63 65 65 64 2c 20 |RUE to s|ucceed, |
|000024f0| 72 65 74 75 72 6e 20 46 | 41 4c 53 45 20 74 6f 20 |return F|ALSE to |
|00002500| 66 61 69 6c 0d 0a 3b 63 | 61 6c 6c 20 6e 6f 72 65 |fail..;c|all nore|
|00002510| 74 72 79 28 29 20 74 6f | 20 70 72 6f 68 69 62 69 |try() to| prohibi|
|00002520| 74 20 66 75 72 74 68 65 | 72 20 72 65 74 72 69 65 |t furthe|r retrie|
|00002530| 73 0d 0a 3b 63 61 6c 6c | 20 73 65 74 72 65 74 72 |s..;call| setretr|
|00002540| 79 28 29 20 74 6f 20 73 | 65 74 20 65 6e 74 72 79 |y() to s|et entry|
|00002550| 20 70 6f 69 6e 74 20 66 | 6f 72 20 6e 65 78 74 20 | point f|or next |
|00002560| 72 65 74 72 79 0d 0a 0d | 0a 3b 20 3d 3d 3d 3d 3d |retry...|.; =====|
|00002570| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00002580| 20 2f 20 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | / ====|========|
|00002590| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 3b 5f 63 75 74 28 |========|..;_cut(|
|000025a0| 72 65 73 74 2c 61 73 74 | 2c 6c 73 2c 70 62 73 74 |rest,ast|,ls,pbst|
|000025b0| 29 0d 0a 3b 20 20 50 41 | 49 52 20 72 65 73 74 3b |)..; PA|IR rest;|
|000025c0| 0d 0a 3b 20 20 41 4c 50 | 48 41 53 54 41 54 45 20 |..; ALP|HASTATE |
|000025d0| 2a 20 61 73 74 3b 0d 0a | 3b 20 20 4c 53 55 42 53 |* ast;..|; LSUBS|
|000025e0| 54 20 6c 73 3b 0d 0a 3b | 20 20 42 45 54 41 53 54 |T ls;..;| BETAST|
|000025f0| 41 54 45 20 2a 2a 20 70 | 62 73 74 3b 0d 0a 3b 20 |ATE ** p|bst;..; |
|00002600| 20 7b 0d 0a 3b 20 20 73 | 65 74 72 65 74 72 79 28 | {..; s|etretry(|
|00002610| 61 73 74 2c 26 72 63 75 | 74 29 3b 0d 0a 3b 20 20 |ast,&rcu|t);..; |
|00002620| 72 65 74 75 72 6e 20 54 | 52 55 45 3b 0d 0a 3b 20 |return T|RUE;..; |
|00002630| 20 7d 0d 0a 5f 43 55 54 | 3a 3a 0d 0a 09 4c 44 09 | }.._CUT|::...LD.|
|00002640| 48 4c 2c 52 43 55 54 0d | 0a 09 43 41 4c 4c 09 53 |HL,RCUT.|..CALL.S|
|00002650| 45 54 52 45 0d 0a 09 4a | 50 09 52 45 54 54 0d 0a |ETRE...J|P.RETT..|
|00002660| 0d 0a 3b 72 63 75 74 28 | 29 09 09 2f 2a 20 72 65 |..;rcut(|)../* re|
|00002670| 74 72 79 20 6f 66 20 63 | 75 74 20 2a 2f 0d 0a 3b |try of c|ut */..;|
|00002680| 20 20 7b 0d 0a 3b 20 20 | 72 65 74 75 72 6e 20 45 | {..; |return E|
|00002690| 4d 50 54 59 3b 0d 0a 3b | 20 20 7d 0d 0a 52 43 55 |MPTY;..;| }..RCU|
|000026a0| 54 3a 3a 0d 0a 09 4c 44 | 09 48 4c 2c 45 4d 50 54 |T::...LD|.HL,EMPT|
|000026b0| 59 0d 0a 09 4c 44 09 41 | 2c 48 0d 0a 09 4f 52 09 |Y...LD.A|,H...OR.|
|000026c0| 4c 0d 0a 09 52 45 54 0d | 0a 0d 0a 3b 20 3d 3d 3d |L...RET.|...; ===|
|000026d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000026e0| 3d 20 41 50 50 45 4e 44 | 20 3d 3d 3d 3d 3d 3d 3d |= APPEND| =======|
|000026f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 0a 3b |========|=====..;|
|00002700| 20 41 50 50 45 4e 44 20 | 63 6f 6d 6d 61 6e 64 0d | APPEND |command.|
|00002710| 0a 3b 0d 0a 3b 20 6f 70 | 65 6e 20 66 69 6c 65 20 |.;..; op|en file |
|00002720| 66 6f 72 20 6f 75 74 70 | 75 74 2c 20 70 6f 73 69 |for outp|ut, posi|
|00002730| 74 69 6f 6e 20 74 6f 20 | 74 68 65 20 65 6e 64 20 |tion to |the end |
|00002740| 6f 66 20 74 68 65 20 66 | 69 6c 65 0d 0a 5f 41 50 |of the f|ile.._AP|
|00002750| 50 45 4e 3a 3a 0d 0a 09 | 50 55 53 48 09 48 4c 0d |PEN::...|PUSH.HL.|
|00002760| 0a 09 50 55 53 48 09 44 | 45 0d 0a 09 43 41 4c 4c |..PUSH.D|E...CALL|
|00002770| 09 4e 4f 52 45 0d 0a 09 | 43 41 4c 4c 09 43 4c 4f |.NORE...|CALL.CLO|
|00002780| 53 45 23 23 09 09 3b 20 | 63 6c 6f 73 65 20 65 78 |SE##..; |close ex|
|00002790| 69 73 74 69 6e 67 20 6f | 75 74 70 75 74 20 66 69 |isting o|utput fi|
|000027a0| 6c 65 0d 0a 09 50 4f 50 | 09 44 45 0d 0a 09 50 4f |le...POP|.DE...PO|
|000027b0| 50 09 48 4c 0d 0a 09 43 | 41 4c 4c 09 44 4f 4f 55 |P.HL...C|ALL.DOOU|
|000027c0| 54 23 23 0d 0a 09 4c 44 | 09 41 2c 28 4f 55 54 46 |T##...LD|.A,(OUTF|
|000027d0| 23 23 29 0d 0a 09 44 45 | 43 09 41 0d 0a 09 4a 50 |##)...DE|C.A...JP|
|000027e0| 09 4e 5a 2c 52 45 54 54 | 09 09 3b 20 6e 6f 74 20 |.NZ,RETT|..; not |
|000027f0| 64 69 73 6b 20 66 69 6c | 65 0d 0a 09 4c 44 09 44 |disk fil|e...LD.D|
|00002800| 45 2c 4f 55 54 46 43 42 | 23 23 0d 0a 09 4c 44 09 |E,OUTFCB|##...LD.|
|00002810| 43 2c 31 35 09 09 3b 20 | 6f 70 65 6e 20 66 69 6c |C,15..; |open fil|
|00002820| 65 0d 0a 09 43 41 4c 4c | 09 42 44 4f 53 0d 0a 09 |e...CALL|.BDOS...|
|00002830| 49 4e 43 09 41 0d 0a 09 | 4a 52 09 4e 5a 2c 41 50 |INC.A...|JR.NZ,AP|
|00002840| 50 45 4e 31 0d 0a 09 4c | 44 09 28 4f 55 54 46 29 |PEN1...L|D.(OUTF)|
|00002850| 2c 41 09 3b 20 6e 6f 74 | 20 66 6f 75 6e 64 2c 20 |,A.; not| found, |
|00002860| 72 65 76 65 72 74 20 74 | 6f 20 63 6f 6e 73 6f 6c |revert t|o consol|
|00002870| 65 0d 0a 09 4a 50 09 52 | 45 54 46 0d 0a 41 50 50 |e...JP.R|ETF..APP|
|00002880| 45 4e 31 3a 09 4c 44 09 | 44 45 2c 4f 55 54 46 43 |EN1:.LD.|DE,OUTFC|
|00002890| 42 23 23 0d 0a 09 4c 44 | 09 43 2c 33 35 09 09 3b |B##...LD|.C,35..;|
|000028a0| 20 63 6f 6d 70 75 74 65 | 20 66 69 6c 65 20 73 69 | compute| file si|
|000028b0| 7a 65 0d 0a 09 43 41 4c | 4c 09 42 44 4f 53 0d 0a |ze...CAL|L.BDOS..|
|000028c0| 09 4c 44 09 48 4c 2c 28 | 4f 55 54 46 43 42 23 23 |.LD.HL,(|OUTFCB##|
|000028d0| 2b 33 33 29 20 3b 20 72 | 61 6e 64 6f 6d 20 72 65 |+33) ; r|andom re|
|000028e0| 63 6f 72 64 20 6e 75 6d | 62 65 72 0d 0a 09 44 45 |cord num|ber...DE|
|000028f0| 43 09 48 4c 0d 0a 09 4c | 44 09 28 4f 55 54 46 43 |C.HL...L|D.(OUTFC|
|00002900| 42 23 23 2b 33 33 29 2c | 48 4c 20 3b 20 6c 61 73 |B##+33),|HL ; las|
|00002910| 74 20 65 78 69 73 74 69 | 6e 67 20 72 65 63 6f 72 |t existi|ng recor|
|00002920| 64 0d 0a 09 4c 44 09 44 | 45 2c 4f 55 54 44 4d 41 |d...LD.D|E,OUTDMA|
|00002930| 23 23 0d 0a 09 4c 44 09 | 43 2c 32 36 09 09 3b 20 |##...LD.|C,26..; |
|00002940| 73 65 74 20 44 4d 41 0d | 0a 09 43 41 4c 4c 09 42 |set DMA.|..CALL.B|
|00002950| 44 4f 53 0d 0a 09 4c 44 | 09 44 45 2c 4f 55 54 46 |DOS...LD|.DE,OUTF|
|00002960| 43 42 23 23 0d 0a 09 4c | 44 09 43 2c 33 33 09 09 |CB##...L|D.C,33..|
|00002970| 3b 20 72 65 61 64 20 72 | 61 6e 64 6f 6d 0d 0a 09 |; read r|andom...|
|00002980| 43 41 4c 4c 09 42 44 4f | 53 0d 0a 09 4c 44 09 48 |CALL.BDO|S...LD.H|
|00002990| 4c 2c 4f 55 54 44 4d 41 | 23 23 0d 0a 41 50 50 45 |L,OUTDMA|##..APPE|
|000029a0| 4e 32 3a 09 4c 44 09 41 | 2c 28 48 4c 29 0d 0a 09 |N2:.LD.A|,(HL)...|
|000029b0| 43 50 09 43 54 4c 5a 0d | 0a 09 4a 52 09 5a 2c 41 |CP.CTLZ.|..JR.Z,A|
|000029c0| 50 50 45 4e 33 0d 0a 09 | 49 4e 43 09 48 4c 0d 0a |PPEN3...|INC.HL..|
|000029d0| 09 3f 43 50 48 4c 09 4f | 55 54 45 23 23 0d 0a 09 |.?CPHL.O|UTE##...|
|000029e0| 4a 52 09 4e 5a 2c 41 50 | 50 45 4e 32 0d 0a 09 4c |JR.NZ,AP|PEN2...L|
|000029f0| 44 09 44 45 2c 4f 55 54 | 46 43 42 23 23 09 3b 20 |D.DE,OUT|FCB##.; |
|00002a00| 72 65 61 64 20 73 65 71 | 75 65 6e 74 69 61 6c 20 |read seq|uential |
|00002a10| 74 6f 20 70 72 65 70 61 | 72 65 0d 0a 09 4c 44 09 |to prepa|re...LD.|
|00002a20| 43 2c 32 30 09 09 3b 20 | 20 6e 65 78 74 20 72 65 |C,20..; | next re|
|00002a30| 63 6f 72 64 20 66 69 65 | 6c 64 0d 0a 09 43 41 4c |cord fie|ld...CAL|
|00002a40| 4c 09 42 44 4f 53 0d 0a | 09 4c 44 09 48 4c 2c 4f |L.BDOS..|.LD.HL,O|
|00002a50| 55 54 45 23 23 0d 0a 41 | 50 50 45 4e 33 3a 09 4c |UTE##..A|PPEN3:.L|
|00002a60| 44 09 28 4f 55 54 50 29 | 2c 48 4c 0d 0a 09 4a 50 |D.(OUTP)|,HL...JP|
|00002a70| 09 52 45 54 54 0d 0a 0d | 0a 3b 20 3d 3d 3d 3d 3d |.RETT...|.; =====|
|00002a80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00002a90| 43 4c 4f 53 45 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |CLOSE ==|========|
|00002aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 0a 3b 5f 63 6c |========|==..;_cl|
|00002ab0| 6f 73 65 28 72 65 73 74 | 2c 61 73 74 29 0d 0a 3b |ose(rest|,ast)..;|
|00002ac0| 20 20 50 41 49 52 20 72 | 65 73 74 3b 0d 0a 3b 20 | PAIR r|est;..; |
|00002ad0| 20 41 4c 50 48 41 53 54 | 41 54 45 20 2a 20 61 73 | ALPHAST|ATE * as|
|00002ae0| 74 3b 0d 0a 3b 20 20 7b | 0d 0a 3b 20 20 6e 6f 72 |t;..; {|..; nor|
|00002af0| 65 74 72 79 28 61 73 74 | 29 3b 0d 0a 3b 20 20 63 |etry(ast|);..; c|
|00002b00| 6c 6f 73 65 28 29 3b 0d | 0a 3b 20 20 7d 0d 0a 0d |lose();.|.; }...|
|00002b10| 0a 5f 43 4c 4f 53 45 3a | 3a 0d 0a 09 43 41 4c 4c |._CLOSE:|:...CALL|
|00002b20| 09 4e 4f 52 45 0d 0a 43 | 4c 4f 53 45 58 3a 09 43 |.NORE..C|LOSEX:.C|
|00002b30| 41 4c 4c 09 43 4c 4f 53 | 45 23 23 0d 0a 09 4a 50 |ALL.CLOS|E##...JP|
|00002b40| 09 52 45 54 54 0d 0a 0d | 0a 3b 20 3d 3d 3d 3d 3d |.RETT...|.; =====|
|00002b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00002b60| 43 52 45 41 54 45 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |CREATE =|========|
|00002b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0a 3b 20 43 |========|===..; C|
|00002b80| 52 45 41 54 45 20 63 6f | 6d 6d 61 6e 64 0d 0a 3b |REATE co|mmand..;|
|00002b90| 0d 0a 3b 20 6f 70 65 6e | 73 20 61 20 6e 65 77 20 |..; open|s a new |
|00002ba0| 66 69 6c 65 20 61 73 20 | 6f 75 74 70 75 74 0d 0a |file as |output..|
|00002bb0| 3b 20 64 65 6c 65 74 65 | 73 20 61 6e 79 20 65 78 |; delete|s any ex|
|00002bc0| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 77 69 74 68 |isting f|ile with|
|00002bd0| 20 74 68 65 20 73 61 6d | 65 20 6e 61 6d 65 0d 0a | the sam|e name..|
|00002be0| 3b 20 28 63 66 2e 20 41 | 50 50 45 4e 44 20 63 6f |; (cf. A|PPEND co|
|00002bf0| 6d 6d 61 6e 64 29 0d 0a | 5f 43 52 45 41 3a 3a 0d |mmand)..|_CREA::.|
|00002c00| 0a 09 50 55 53 48 09 48 | 4c 0d 0a 09 50 55 53 48 |..PUSH.H|L...PUSH|
|00002c10| 09 44 45 0d 0a 09 43 41 | 4c 4c 09 4e 4f 52 45 0d |.DE...CA|LL.NORE.|
|00002c20| 0a 09 43 41 4c 4c 09 43 | 4c 4f 53 45 23 23 09 09 |..CALL.C|LOSE##..|
|00002c30| 3b 20 63 6c 6f 73 65 20 | 65 78 69 73 74 69 6e 67 |; close |existing|
|00002c40| 20 6f 75 74 70 75 74 20 | 66 69 6c 65 0d 0a 09 50 | output |file...P|
|00002c50| 4f 50 09 44 45 0d 0a 09 | 50 4f 50 09 48 4c 0d 0a |OP.DE...|POP.HL..|
|00002c60| 09 43 41 4c 4c 09 44 4f | 4f 55 54 23 23 0d 0a 09 |.CALL.DO|OUT##...|
|00002c70| 43 41 4c 4c 09 53 41 56 | 45 58 0d 0a 09 4a 50 09 |CALL.SAV|EX...JP.|
|00002c80| 52 45 54 54 0d 0a 0d 0a | 3b 20 3d 3d 3d 3d 3d 3d |RETT....|; ======|
|00002c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 20 46 |========|====== F|
|00002ca0| 41 49 4c 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |AIL ====|========|
|00002cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 3b 5f 66 61 69 6c |========|..;_fail|
|00002cc0| 28 29 0d 0a 3b 20 20 7b | 0d 0a 3b 20 20 72 65 74 |()..; {|..; ret|
|00002cd0| 75 72 6e 20 46 41 4c 53 | 45 3b 0d 0a 3b 20 20 7d |urn FALS|E;..; }|
|00002ce0| 0d 0a 5f 46 41 49 4c 3a | 3a 0d 0a 09 4a 50 09 52 |.._FAIL:|:...JP.R|
|00002cf0| 45 54 46 0d 0a 0d 0a 3b | 20 3d 3d 3d 3d 3d 3d 3d |ETF....;| =======|
|00002d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 20 4c 45 |========|===== LE|
|00002d10| 53 53 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |SS =====|========|
|00002d20| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 3b 5f 6c 65 73 73 28 |=======.|.;_less(|
|00002d30| 72 65 73 74 2c 61 73 74 | 2c 6c 73 2c 70 62 73 74 |rest,ast|,ls,pbst|
|00002d40| 29 0d 0a 3b 20 20 50 41 | 49 52 20 72 65 73 74 3b |)..; PA|IR rest;|
|00002d50| 0d 0a 3b 20 20 41 4c 50 | 48 41 53 54 41 54 45 20 |..; ALP|HASTATE |
|00002d60| 2a 20 61 73 74 3b 0d 0a | 3b 20 20 4c 53 55 42 53 |* ast;..|; LSUBS|
|00002d70| 54 20 6c 73 3b 0d 0a 3b | 20 20 42 45 54 41 53 54 |T ls;..;| BETAST|
|00002d80| 41 54 45 20 2a 2a 20 70 | 62 73 74 3b 0d 0a 3b 20 |ATE ** p|bst;..; |
|00002d90| 20 7b 0d 0a 3b 20 20 73 | 74 61 74 69 63 20 45 58 | {..; s|tatic EX|
|00002da0| 50 52 20 78 31 3b 0d 0a | 3b 20 20 73 74 61 74 69 |PR x1;..|; stati|
|00002db0| 63 20 45 58 50 52 20 78 | 32 3b 0d 0a 3b 20 20 73 |c EXPR x|2;..; s|
|00002dc0| 74 61 74 69 63 20 4c 53 | 55 42 53 54 20 6c 73 73 |tatic LS|UBST lss|
|00002dd0| 3b 0d 0a 5f 4c 45 53 53 | 3a 3a 0d 0a 3b 0d 0a 3b |;.._LESS|::..;..;|
|00002de0| 20 20 6c 73 73 20 3d 20 | 6c 73 3b 0d 0a 09 4c 44 | lss = |ls;...LD|
|00002df0| 09 28 52 45 53 54 29 2c | 48 4c 0d 0a 09 4c 44 09 |.(REST),|HL...LD.|
|00002e00| 28 4c 53 53 29 2c 44 45 | 0d 0a 3b 20 20 6e 6f 72 |(LSS),DE|..; nor|
|00002e10| 65 74 72 79 28 61 73 74 | 29 3b 0d 0a 09 43 41 4c |etry(ast|);...CAL|
|00002e20| 4c 09 4e 4f 52 45 0d 0a | 3b 20 20 78 31 2e 6c 69 |L.NORE..|; x1.li|
|00002e30| 73 74 20 3d 20 76 6e 65 | 78 74 28 26 72 65 73 74 |st = vne|xt(&rest|
|00002e40| 2c 26 6c 73 73 29 3b 0d | 0a 09 4c 44 09 48 4c 2c |,&lss);.|..LD.HL,|
|00002e50| 52 45 53 54 0d 0a 09 4c | 44 09 44 45 2c 4c 53 53 |REST...L|D.DE,LSS|
|00002e60| 0d 0a 09 43 41 4c 4c 09 | 56 4e 45 58 54 0d 0a 09 |...CALL.|VNEXT...|
|00002e70| 4c 44 09 28 58 31 29 2c | 48 4c 0d 0a 3b 20 20 69 |LD.(X1),|HL..; i|
|00002e80| 66 20 28 78 31 2e 6c 69 | 73 74 20 3d 3d 20 55 4e |f (x1.li|st == UN|
|00002e90| 44 45 46 29 0d 0a 3b 20 | 20 20 20 72 65 74 75 72 |DEF)..; | retur|
|00002ea0| 6e 20 46 41 4c 53 45 3b | 0d 0a 09 3f 43 50 48 4c |n FALSE;|...?CPHL|
|00002eb0| 09 55 4e 44 45 46 0d 0a | 09 4a 50 09 5a 2c 52 45 |.UNDEF..|.JP.Z,RE|
|00002ec0| 54 46 0d 0a 3b 20 20 78 | 32 2e 6c 69 73 74 20 3d |TF..; x|2.list =|
|00002ed0| 20 76 6e 65 78 74 28 26 | 72 65 73 74 2c 26 6c 73 | vnext(&|rest,&ls|
|00002ee0| 73 29 3b 0d 0a 09 4c 44 | 09 48 4c 2c 52 45 53 54 |s);...LD|.HL,REST|
|00002ef0| 0d 0a 09 4c 44 09 44 45 | 2c 4c 53 53 0d 0a 09 43 |...LD.DE|,LSS...C|
|00002f00| 41 4c 4c 09 56 4e 45 58 | 54 0d 0a 09 4c 44 09 28 |ALL.VNEX|T...LD.(|
|00002f10| 58 32 29 2c 48 4c 0d 0a | 3b 20 20 69 66 20 28 78 |X2),HL..|; if (x|
|00002f20| 32 2e 6c 69 73 74 20 3d | 3d 20 55 4e 44 45 46 29 |2.list =|= UNDEF)|
|00002f30| 0d 0a 3b 20 20 20 20 72 | 65 74 75 72 6e 20 46 41 |..; r|eturn FA|
|00002f40| 4c 53 45 3b 0d 0a 09 3f | 43 50 48 4c 09 55 4e 44 |LSE;...?|CPHL.UND|
|00002f50| 45 46 0d 0a 09 4a 50 09 | 5a 2c 52 45 54 46 0d 0a |EF...JP.|Z,RETF..|
|00002f60| 3b 20 20 69 66 20 28 6e | 75 6d 62 70 28 78 31 2e |; if (n|umbp(x1.|
|00002f70| 6e 75 6d 62 65 72 29 20 | 26 26 20 6e 75 6d 62 70 |number) |&& numbp|
|00002f80| 28 78 32 2e 6e 75 6d 62 | 65 72 29 29 0d 0a 3b 20 |(x2.numb|er))..; |
|00002f90| 20 20 20 72 65 74 75 72 | 6e 20 28 78 31 2e 6e 75 | retur|n (x1.nu|
|00002fa0| 6d 62 65 72 20 3c 20 78 | 32 2e 6e 75 6d 62 65 72 |mber < x|2.number|
|00002fb0| 29 3b 0d 0a 09 4c 44 09 | 48 4c 2c 28 58 31 29 0d |);...LD.|HL,(X1).|
|00002fc0| 0a 09 43 41 4c 4c 09 4e | 55 4d 42 50 23 23 0d 0a |..CALL.N|UMBP##..|
|00002fd0| 09 4a 52 09 5a 2c 4c 45 | 31 0d 0a 09 4c 44 09 48 |.JR.Z,LE|1...LD.H|
|00002fe0| 4c 2c 28 58 32 29 0d 0a | 09 43 41 4c 4c 09 4e 55 |L,(X2)..|.CALL.NU|
|00002ff0| 4d 42 50 23 23 0d 0a 09 | 4a 52 09 5a 2c 4c 45 31 |MBP##...|JR.Z,LE1|
|00003000| 0d 0a 09 4c 44 09 48 4c | 2c 28 58 31 29 0d 0a 09 |...LD.HL|,(X1)...|
|00003010| 4c 44 09 44 45 2c 28 58 | 32 29 0d 0a 09 43 41 4c |LD.DE,(X|2)...CAL|
|00003020| 4c 09 43 50 48 4c 23 23 | 0d 0a 09 4a 50 09 43 2c |L.CPHL##|...JP.C,|
|00003030| 52 45 54 54 0d 0a 09 4a | 50 09 52 45 54 46 0d 0a |RETT...J|P.RETF..|
|00003040| 4c 45 31 3a 0d 0a 3b 20 | 20 69 66 20 28 73 79 6d |LE1:..; | if (sym|
|00003050| 62 70 28 78 31 2e 73 79 | 6d 62 6f 6c 29 20 26 26 |bp(x1.sy|mbol) &&|
|00003060| 20 73 79 6d 62 70 28 78 | 32 2e 73 79 6d 62 6f 6c | symbp(x|2.symbol|
|00003070| 29 29 0d 0a 3b 20 20 20 | 20 72 65 74 75 72 6e 20 |))..; | return |
|00003080| 28 73 74 72 63 6d 70 28 | 78 31 2e 73 79 6d 62 6f |(strcmp(|x1.symbo|
|00003090| 6c 2d 3e 73 74 72 69 6e | 67 2c 78 32 2e 73 79 6d |l->strin|g,x2.sym|
|000030a0| 62 6f 6c 2d 3e 73 74 72 | 69 6e 67 29 20 3c 20 30 |bol->str|ing) < 0|
|000030b0| 29 3b 0d 0a 09 4c 44 09 | 48 4c 2c 28 58 31 29 0d |);...LD.|HL,(X1).|
|000030c0| 0a 09 43 41 4c 4c 09 53 | 59 4d 42 50 23 23 0d 0a |..CALL.S|YMBP##..|
|000030d0| 09 4a 52 09 5a 2c 4c 45 | 32 0d 0a 09 4c 44 09 48 |.JR.Z,LE|2...LD.H|
|000030e0| 4c 2c 28 58 32 29 0d 0a | 09 43 41 4c 4c 09 53 59 |L,(X2)..|.CALL.SY|
|000030f0| 4d 42 50 23 23 0d 0a 09 | 4a 52 09 5a 2c 4c 45 32 |MBP##...|JR.Z,LE2|
|00003100| 0d 0a 09 4c 44 09 48 4c | 2c 28 58 32 29 0d 0a 09 |...LD.HL|,(X2)...|
|00003110| 43 41 4c 4c 09 40 53 54 | 52 23 23 0d 0a 09 50 55 |CALL.@ST|R##...PU|
|00003120| 53 48 09 48 4c 0d 0a 09 | 4c 44 09 48 4c 2c 28 58 |SH.HL...|LD.HL,(X|
|00003130| 31 29 0d 0a 09 43 41 4c | 4c 09 40 53 54 52 23 23 |1)...CAL|L.@STR##|
|00003140| 0d 0a 09 50 4f 50 09 44 | 45 0d 0a 09 43 41 4c 4c |...POP.D|E...CALL|
|00003150| 09 53 54 52 43 4d 50 23 | 23 0d 0a 09 4a 50 09 43 |.STRCMP#|#...JP.C|
|00003160| 2c 52 45 54 54 0d 0a 09 | 4a 50 09 52 45 54 46 0d |,RETT...|JP.RETF.|
|00003170| 0a 4c 45 32 3a 0d 0a 3b | 20 20 2a 70 62 73 74 20 |.LE2:..;| *pbst |
|00003180| 3d 20 6d 61 6b 65 62 65 | 74 61 28 61 73 74 2c 65 |= makebe|ta(ast,e|
|00003190| 6d 70 74 79 29 3b 0d 0a | 09 4c 44 09 48 4c 2c 45 |mpty);..|.LD.HL,E|
|000031a0| 4d 50 54 59 0d 0a 09 43 | 41 4c 4c 09 4d 4b 42 45 |MPTY...C|ALL.MKBE|
|000031b0| 54 41 23 23 0d 0a 3b 20 | 20 69 66 20 28 73 75 62 |TA##..; | if (sub|
|000031c0| 73 74 70 28 78 31 2e 73 | 79 6d 62 6f 6c 29 29 0d |stp(x1.s|ymbol)).|
|000031d0| 0a 09 4c 44 09 48 4c 2c | 28 58 31 29 0d 0a 09 43 |..LD.HL,|(X1)...C|
|000031e0| 41 4c 4c 09 53 55 42 53 | 54 50 23 23 0d 0a 09 4a |ALL.SUBS|TP##...J|
|000031f0| 52 09 5a 2c 4c 45 33 0d | 0a 3b 20 20 20 20 7b 0d |R.Z,LE3.|.; {.|
|00003200| 0a 3b 20 20 20 20 73 65 | 74 72 65 74 72 79 28 61 |.; se|tretry(a|
|00003210| 73 74 2c 26 72 6c 65 73 | 73 29 3b 0d 0a 09 4c 44 |st,&rles|s);...LD|
|00003220| 09 48 4c 2c 52 4c 45 53 | 53 0d 0a 09 43 41 4c 4c |.HL,RLES|S...CALL|
|00003230| 09 53 45 54 52 45 0d 0a | 3b 20 20 20 20 69 66 20 |.SETRE..|; if |
|00003240| 28 6e 75 6d 62 70 28 78 | 32 2e 6e 75 6d 62 65 72 |(numbp(x|2.number|
|00003250| 29 29 0d 0a 09 4c 44 09 | 48 4c 2c 28 58 32 29 0d |))...LD.|HL,(X2).|
|00003260| 0a 09 43 41 4c 4c 09 4e | 55 4d 42 50 23 23 0d 0a |..CALL.N|UMBP##..|
|00003270| 09 4a 52 09 5a 2c 4c 45 | 35 0d 0a 3b 20 20 20 20 |.JR.Z,LE|5..; |
|00003280| 20 20 7b 0d 0a 3b 20 20 | 20 20 20 20 6c 65 73 73 | {..; | less|
|00003290| 76 28 78 32 2e 6e 75 6d | 62 65 72 2d 31 2c 78 31 |v(x2.num|ber-1,x1|
|000032a0| 2e 73 79 6d 62 6f 6c 29 | 3b 0d 0a 09 4c 44 09 48 |.symbol)|;...LD.H|
|000032b0| 4c 2c 28 58 32 29 0d 0a | 09 44 45 43 09 48 4c 0d |L,(X2)..|.DEC.HL.|
|000032c0| 0a 09 4c 44 09 44 45 2c | 28 58 31 29 0d 0a 09 43 |..LD.DE,|(X1)...C|
|000032d0| 41 4c 4c 09 4c 45 53 53 | 56 0d 0a 3b 20 20 20 20 |ALL.LESS|V..; |
|000032e0| 20 20 72 65 74 75 72 6e | 20 54 52 55 45 3b 0d 0a | return| TRUE;..|
|000032f0| 09 4a 50 09 52 45 54 54 | 0d 0a 3b 20 20 20 20 20 |.JP.RETT|..; |
|00003300| 20 7d 0d 0a 4c 45 35 3a | 0d 0a 3b 20 20 20 20 69 | }..LE5:|..; i|
|00003310| 66 20 28 73 75 62 73 74 | 70 28 78 32 2e 73 79 6d |f (subst|p(x2.sym|
|00003320| 62 6f 6c 29 29 0d 0a 09 | 4c 44 09 48 4c 2c 28 58 |bol))...|LD.HL,(X|
|00003330| 32 29 0d 0a 09 43 41 4c | 4c 09 53 55 42 53 54 50 |2)...CAL|L.SUBSTP|
|00003340| 23 23 0d 0a 09 4a 50 09 | 5a 2c 4c 45 36 0d 0a 3b |##...JP.|Z,LE6..;|
|00003350| 20 20 20 20 20 20 7b 0d | 0a 3b 20 20 20 20 20 20 | {.|.; |
|00003360| 6c 65 73 73 76 28 30 2c | 78 31 2e 73 79 6d 62 6f |lessv(0,|x1.symbo|
|00003370| 6c 29 3b 0d 0a 09 4c 44 | 09 48 4c 2c 30 0d 0a 09 |l);...LD|.HL,0...|
|00003380| 4c 44 09 44 45 2c 28 58 | 31 29 0d 0a 09 43 41 4c |LD.DE,(X|1)...CAL|
|00003390| 4c 09 4c 45 53 53 56 0d | 0a 3b 20 20 20 20 20 20 |L.LESSV.|.; |
|000033a0| 6c 65 73 73 76 28 31 2c | 78 32 2e 73 79 6d 62 6f |lessv(1,|x2.symbo|
|000033b0| 6c 29 3b 0d 0a 09 4c 44 | 09 48 4c 2c 31 0d 0a 09 |l);...LD|.HL,1...|
|000033c0| 4c 44 09 44 45 2c 28 58 | 32 29 0d 0a 09 43 41 4c |LD.DE,(X|2)...CAL|
|000033d0| 4c 09 4c 45 53 53 56 0d | 0a 3b 20 20 20 20 20 20 |L.LESSV.|.; |
|000033e0| 72 65 74 75 72 6e 20 54 | 52 55 45 3b 0d 0a 09 4a |return T|RUE;...J|
|000033f0| 50 09 52 45 54 54 0d 0a | 3b 20 20 20 20 20 20 7d |P.RETT..|; }|
|00003400| 0d 0a 4c 45 36 09 45 51 | 55 09 52 45 54 46 0d 0a |..LE6.EQ|U.RETF..|
|00003410| 3b 20 20 20 20 7d 0d 0a | 4c 45 33 3a 0d 0a 3b 20 |; }..|LE3:..; |
|00003420| 20 65 6c 73 65 20 69 66 | 20 28 73 75 62 73 74 70 | else if| (substp|
|00003430| 28 78 32 2e 73 79 6d 62 | 6f 6c 29 29 0d 0a 09 4c |(x2.symb|ol))...L|
|00003440| 44 09 48 4c 2c 28 58 32 | 29 0d 0a 09 43 41 4c 4c |D.HL,(X2|)...CALL|
|00003450| 09 53 55 42 53 54 50 23 | 23 0d 0a 09 4a 50 09 5a |.SUBSTP#|#...JP.Z|
|00003460| 2c 4c 45 34 0d 0a 3b 20 | 20 20 20 7b 0d 0a 3b 20 |,LE4..; | {..; |
|00003470| 20 20 20 73 65 74 72 65 | 74 72 79 28 61 73 74 2c | setre|try(ast,|
|00003480| 26 72 6c 65 73 73 29 3b | 0d 0a 09 4c 44 09 48 4c |&rless);|...LD.HL|
|00003490| 2c 52 4c 45 53 53 0d 0a | 09 43 41 4c 4c 09 53 45 |,RLESS..|.CALL.SE|
|000034a0| 54 52 45 0d 0a 3b 20 20 | 20 20 69 66 20 28 6e 75 |TRE..; | if (nu|
|000034b0| 6d 62 70 28 78 31 2e 6e | 75 6d 62 65 72 29 29 0d |mbp(x1.n|umber)).|
|000034c0| 0a 09 4c 44 09 48 4c 2c | 28 58 31 29 0d 0a 09 43 |..LD.HL,|(X1)...C|
|000034d0| 41 4c 4c 09 4e 55 4d 42 | 50 23 23 0d 0a 09 4a 50 |ALL.NUMB|P##...JP|
|000034e0| 09 5a 2c 4c 45 34 0d 0a | 3b 20 20 20 20 20 20 7b |.Z,LE4..|; {|
|000034f0| 0d 0a 3b 20 20 20 20 20 | 20 6c 65 73 73 76 28 78 |..; | lessv(x|
|00003500| 31 2e 6e 75 6d 62 65 72 | 2b 31 2c 78 32 2e 73 79 |1.number|+1,x2.sy|
|00003510| 6d 62 6f 6c 29 3b 0d 0a | 09 4c 44 09 48 4c 2c 28 |mbol);..|.LD.HL,(|
|00003520| 58 31 29 0d 0a 09 49 4e | 43 09 48 4c 0d 0a 09 4c |X1)...IN|C.HL...L|
|00003530| 44 09 44 45 2c 28 58 32 | 29 0d 0a 09 43 41 4c 4c |D.DE,(X2|)...CALL|
|00003540| 09 4c 45 53 53 56 0d 0a | 3b 20 20 20 20 20 20 72 |.LESSV..|; r|
|00003550| 65 74 75 72 6e 20 54 52 | 55 45 3b 0d 0a 09 4a 50 |eturn TR|UE;...JP|
|00003560| 09 52 45 54 54 0d 0a 3b | 20 20 20 20 20 20 7d 0d |.RETT..;| }.|
|00003570| 0a 3b 20 20 20 20 7d 0d | 0a 4c 45 34 09 45 51 55 |.; }.|.LE4.EQU|
|00003580| 09 52 45 54 46 0d 0a 3b | 20 20 72 65 74 75 72 6e |.RETF..;| return|
|00003590| 20 46 41 4c 53 45 3b 0d | 0a 3b 20 20 7d 0d 0a 3b | FALSE;.|.; }..;|
|000035a0| 0d 0a 3b 72 6c 65 73 73 | 28 29 0d 0a 52 4c 45 53 |..;rless|()..RLES|
|000035b0| 53 3a 09 09 09 3b 20 6e | 65 65 64 73 20 6d 6f 72 |S:...; n|eeds mor|
|000035c0| 65 20 77 6f 72 6b 20 74 | 6f 20 64 6f 20 72 65 74 |e work t|o do ret|
|000035d0| 72 69 65 73 0d 0a 3b 20 | 20 7b 0d 0a 3b 20 20 66 |ries..; | {..; f|
|000035e0| 61 74 61 6c 28 22 5c 72 | 5c 6e 52 65 74 72 79 20 |atal("\r|\nRetry |
|000035f0| 6f 6e 20 4c 45 53 53 2e | 22 29 3b 0d 0a 09 4c 44 |on LESS.|");...LD|
|00003600| 09 48 4c 2c 52 4c 4d 53 | 47 0d 0a 09 4a 50 09 46 |.HL,RLMS|G...JP.F|
|00003610| 41 54 41 4c 23 23 0d 0a | 09 44 53 45 47 0d 0a 52 |ATAL##..|.DSEG..R|
|00003620| 4c 4d 53 47 3a 09 44 42 | 09 43 52 2c 4c 46 2c 27 |LMSG:.DB|.CR,LF,'|
|00003630| 52 65 74 72 79 20 6f 6e | 20 4c 45 53 53 2e 27 2c |Retry on| LESS.',|
|00003640| 30 0d 0a 09 43 53 45 47 | 0d 0a 3b 20 20 7d 0d 0a |0...CSEG|..; }..|
|00003650| 3b 0d 0a 3b 6c 65 73 73 | 76 28 76 61 6c 2c 73 75 |;..;less|v(val,su|
|00003660| 62 29 0d 0a 3b 20 20 4e | 55 4d 42 45 52 20 76 61 |b)..; N|UMBER va|
|00003670| 6c 3b 0d 0a 3b 20 20 53 | 55 42 53 54 20 2a 20 73 |l;..; S|UBST * s|
|00003680| 75 62 3b 0d 0a 3b 20 20 | 7b 0d 0a 3b 20 20 75 6e |ub;..; |{..; un|
|00003690| 69 66 79 28 76 61 6c 2c | 65 6d 70 74 79 2c 73 75 |ify(val,|empty,su|
|000036a0| 62 2d 3e 76 6e 61 6d 65 | 2c 73 75 62 29 3b 0d 0a |b->vname|,sub);..|
|000036b0| 4c 45 53 53 56 3a 0d 0a | 09 50 55 53 48 09 44 45 |LESSV:..|.PUSH.DE|
|000036c0| 0d 0a 09 4c 44 09 44 45 | 2c 45 4d 50 54 59 0d 0a |...LD.DE|,EMPTY..|
|000036d0| 09 45 58 58 0d 0a 09 50 | 4f 50 09 48 4c 0d 0a 09 |.EXX...P|OP.HL...|
|000036e0| 50 55 53 48 09 48 4c 0d | 0a 09 43 41 4c 4c 09 40 |PUSH.HL.|..CALL.@|
|000036f0| 56 4e 41 4d 45 23 23 0d | 0a 09 50 4f 50 09 44 45 |VNAME##.|..POP.DE|
|00003700| 0d 0a 09 45 58 58 0d 0a | 09 4a 50 09 55 4e 49 46 |...EXX..|.JP.UNIF|
|00003710| 59 23 23 0d 0a 3b 20 20 | 7d 0d 0a 0d 0a 3b 20 3d |Y##..; |}....; =|
|00003720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003730| 3d 3d 3d 20 4c 49 53 54 | 20 3d 3d 3d 3d 3d 3d 3d |=== LIST| =======|
|00003740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 0a 3b |========|=====..;|
|00003750| 5f 6c 69 73 74 28 72 65 | 73 74 2c 61 73 74 29 0d |_list(re|st,ast).|
|00003760| 0a 3b 20 20 50 41 49 52 | 20 72 65 73 74 3b 0d 0a |.; PAIR| rest;..|
|00003770| 3b 20 20 41 4c 50 48 41 | 53 54 41 54 45 20 2a 20 |; ALPHA|STATE * |
|00003780| 61 73 74 3b 0d 0a 3b 20 | 20 7b 0d 0a 5f 4c 49 53 |ast;..; | {.._LIS|
|00003790| 54 3a 3a 0d 0a 3b 20 20 | 6e 6f 72 65 74 72 79 28 |T::..; |noretry(|
|000037a0| 61 73 74 29 3b 0d 0a 09 | 43 41 4c 4c 09 4e 4f 52 |ast);...|CALL.NOR|
|000037b0| 45 0d 0a 3b 20 20 6c 69 | 73 74 74 28 28 53 59 4d |E..; li|stt((SYM|
|000037c0| 42 4f 4c 20 2a 29 73 62 | 6f 74 29 3b 0d 0a 4c 49 |BOL *)sb|ot);..LI|
|000037d0| 53 54 58 3a 09 4c 44 09 | 48 4c 2c 28 53 42 4f 54 |STX:.LD.|HL,(SBOT|
|000037e0| 23 23 29 0d 0a 09 43 41 | 4c 4c 09 4c 49 53 54 54 |##)...CA|LL.LISTT|
|000037f0| 0d 0a 3b 20 20 72 65 74 | 75 72 6e 20 54 52 55 45 |..; ret|urn TRUE|
|00003800| 3b 0d 0a 09 4a 50 09 52 | 45 54 54 0d 0a 3b 20 20 |;...JP.R|ETT..; |
|00003810| 7d 0d 0a 3b 0d 0a 3b 6c | 69 73 74 74 28 70 74 72 |}..;..;l|istt(ptr|
|00003820| 29 09 2f 2a 20 72 65 63 | 75 72 73 69 76 65 20 2a |)./* rec|ursive *|
|00003830| 2f 0d 0a 3b 20 20 53 59 | 4d 42 4f 4c 20 2a 20 70 |/..; SY|MBOL * p|
|00003840| 74 72 3b 0d 0a 3b 20 20 | 7b 0d 0a 3b 20 20 50 41 |tr;..; |{..; PA|
|00003850| 49 52 20 78 3b 0d 0a 4c | 49 53 54 54 3a 0d 0a 09 |IR x;..L|ISTT:...|
|00003860| 4c 44 09 28 50 54 52 29 | 2c 48 4c 0d 0a 3b 0d 0a |LD.(PTR)|,HL..;..|
|00003870| 3b 20 20 69 66 20 28 70 | 74 72 20 21 3d 20 28 53 |; if (p|tr != (S|
|00003880| 59 4d 42 4f 4c 20 2a 29 | 65 6d 70 74 79 29 0d 0a |YMBOL *)|empty)..|
|00003890| 09 3f 43 50 48 4c 09 45 | 4d 50 54 59 0d 0a 09 52 |.?CPHL.E|MPTY...R|
|000038a0| 45 54 09 5a 0d 0a 3b 20 | 20 20 20 7b 0d 0a 3b 20 |ET.Z..; | {..; |
|000038b0| 20 20 20 6c 69 73 74 74 | 28 70 74 72 2d 3e 6c 70 | listt|(ptr->lp|
|000038c0| 74 72 29 3b 0d 0a 09 4c | 44 09 48 4c 2c 28 50 54 |tr);...L|D.HL,(PT|
|000038d0| 52 29 0d 0a 09 50 55 53 | 48 09 48 4c 0d 0a 09 43 |R)...PUS|H.HL...C|
|000038e0| 41 4c 4c 09 40 4c 50 54 | 52 23 23 0d 0a 09 43 41 |ALL.@LPT|R##...CA|
|000038f0| 4c 4c 09 4c 49 53 54 54 | 09 09 3b 20 72 65 63 75 |LL.LISTT|..; recu|
|00003900| 72 73 69 76 65 0d 0a 09 | 50 4f 50 09 48 4c 0d 0a |rsive...|POP.HL..|
|00003910| 09 4c 44 09 28 50 54 52 | 29 2c 48 4c 0d 0a 3b 20 |.LD.(PTR|),HL..; |
|00003920| 20 20 20 69 66 20 28 6e | 65 6c 69 73 74 70 28 78 | if (n|elistp(x|
|00003930| 20 3d 20 28 50 41 49 52 | 29 28 70 74 72 2d 3e 61 | = (PAIR|)(ptr->a|
|00003940| 64 64 72 29 29 29 0d 0a | 09 43 41 4c 4c 09 40 41 |ddr)))..|.CALL.@A|
|00003950| 44 44 52 23 23 0d 0a 09 | 4c 44 09 28 58 29 2c 48 |DDR##...|LD.(X),H|
|00003960| 4c 0d 0a 09 43 41 4c 4c | 09 4e 45 4c 50 23 23 0d |L...CALL|.NELP##.|
|00003970| 0a 09 4a 52 09 5a 2c 4c | 49 31 0d 0a 3b 20 20 20 |..JR.Z,L|I1..; |
|00003980| 20 20 20 7b 0d 0a 3b 20 | 20 20 20 20 20 64 6f 0d | {..; | do.|
|00003990| 0a 4c 49 32 3a 0d 0a 3b | 20 20 20 20 20 20 20 20 |.LI2:..;| |
|000039a0| 7b 0d 0a 3b 20 20 20 20 | 20 20 20 20 6c 69 73 74 |{..; | list|
|000039b0| 70 72 28 78 2d 3e 6c 65 | 66 74 2e 6c 69 73 74 29 |pr(x->le|ft.list)|
|000039c0| 3b 0d 0a 09 4c 44 09 48 | 4c 2c 28 58 29 0d 0a 09 |;...LD.H|L,(X)...|
|000039d0| 43 41 4c 4c 09 40 4c 45 | 46 54 23 23 0d 0a 09 43 |CALL.@LE|FT##...C|
|000039e0| 41 4c 4c 09 4c 49 53 54 | 50 52 0d 0a 3b 20 20 20 |ALL.LIST|PR..; |
|000039f0| 20 20 20 20 20 7d 0d 0a | 3b 20 20 20 20 20 20 77 | }..|; w|
|00003a00| 68 69 6c 65 20 28 6e 65 | 6c 69 73 74 70 28 78 20 |hile (ne|listp(x |
|00003a10| 3d 20 78 2d 3e 72 69 67 | 68 74 2e 6c 69 73 74 29 |= x->rig|ht.list)|
|00003a20| 29 20 3b 0d 0a 09 4c 44 | 09 48 4c 2c 28 58 29 0d |) ;...LD|.HL,(X).|
|00003a30| 0a 09 43 41 4c 4c 09 40 | 52 49 47 48 54 23 23 0d |..CALL.@|RIGHT##.|
|00003a40| 0a 09 4c 44 09 28 58 29 | 2c 48 4c 0d 0a 09 43 41 |..LD.(X)|,HL...CA|
|00003a50| 4c 4c 09 4e 45 4c 50 23 | 23 0d 0a 09 4a 52 09 4e |LL.NELP#|#...JR.N|
|00003a60| 5a 2c 4c 49 32 0d 0a 3b | 20 20 20 20 20 20 63 68 |Z,LI2..;| ch|
|00003a70| 72 6f 75 74 28 27 5c 72 | 27 29 3b 0d 0a 3b 20 20 |rout('\r|');..; |
|00003a80| 20 20 20 20 63 68 72 6f | 75 74 28 27 5c 6e 27 29 | chro|ut('\n')|
|00003a90| 3b 0d 0a 09 43 41 4c 4c | 09 43 52 4c 46 23 23 0d |;...CALL|.CRLF##.|
|00003aa0| 0a 3b 20 20 20 20 20 20 | 7d 0d 0a 4c 49 31 3a 0d |.; |}..LI1:.|
|00003ab0| 0a 3b 20 20 20 20 6c 69 | 73 74 74 28 70 74 72 2d |.; li|stt(ptr-|
|00003ac0| 3e 72 70 74 72 29 3b 0d | 0a 09 4c 44 09 48 4c 2c |>rptr);.|..LD.HL,|
|00003ad0| 28 50 54 52 29 0d 0a 09 | 43 41 4c 4c 09 40 52 50 |(PTR)...|CALL.@RP|
|00003ae0| 54 52 23 23 0d 0a 09 4a | 52 09 4c 49 53 54 54 09 |TR##...J|R.LISTT.|
|00003af0| 09 3b 20 74 61 69 6c 20 | 72 65 63 75 72 73 69 6f |.; tail |recursio|
|00003b00| 6e 0d 0a 3b 20 20 20 20 | 7d 0d 0a 3b 20 20 7d 0d |n..; |}..; }.|
|00003b10| 0a 3b 0d 0a 3b 6c 69 73 | 74 70 72 28 79 29 0d 0a |.;..;lis|tpr(y)..|
|00003b20| 3b 20 20 50 41 49 52 20 | 79 3b 0d 0a 3b 20 20 7b |; PAIR |y;..; {|
|00003b30| 0d 0a 4c 49 53 54 50 52 | 3a 0d 0a 09 4c 44 09 28 |..LISTPR|:...LD.(|
|00003b40| 59 29 2c 48 4c 0d 0a 3b | 20 20 63 68 72 6f 75 74 |Y),HL..;| chrout|
|00003b50| 28 27 28 27 29 3b 0d 0a | 09 4c 44 09 41 2c 27 28 |('(');..|.LD.A,'(|
|00003b60| 27 0d 0a 09 43 41 4c 4c | 09 43 48 52 4f 55 54 23 |'...CALL|.CHROUT#|
|00003b70| 23 0d 0a 3b 20 20 65 70 | 72 69 6e 74 28 79 2d 3e |#..; ep|rint(y->|
|00003b80| 6c 65 66 74 2e 6c 69 73 | 74 2c 65 6d 70 74 79 29 |left.lis|t,empty)|
|00003b90| 3b 0d 0a 09 4c 44 09 48 | 4c 2c 28 59 29 0d 0a 09 |;...LD.H|L,(Y)...|
|00003ba0| 43 41 4c 4c 09 40 4c 45 | 46 54 23 23 0d 0a 09 4c |CALL.@LE|FT##...L|
|00003bb0| 44 09 44 45 2c 45 4d 50 | 54 59 0d 0a 09 43 41 4c |D.DE,EMP|TY...CAL|
|00003bc0| 4c 09 45 50 52 49 4e 54 | 23 23 0d 0a 3b 20 20 66 |L.EPRINT|##..; f|
|00003bd0| 6f 72 20 28 79 20 3d 20 | 79 2d 3e 72 69 67 68 74 |or (y = |y->right|
|00003be0| 2e 6c 69 73 74 20 3b 20 | 6e 65 6c 69 73 74 70 28 |.list ; |nelistp(|
|00003bf0| 79 29 20 3b 20 79 20 3d | 20 79 2d 3e 72 69 67 68 |y) ; y =| y->righ|
|00003c00| 74 2e 6c 69 73 74 29 0d | 0a 3b 20 20 20 20 7b 0d |t.list).|.; {.|
|00003c10| 0a 4c 49 34 3a 0d 0a 09 | 4c 44 09 48 4c 2c 28 59 |.LI4:...|LD.HL,(Y|
|00003c20| 29 0d 0a 09 43 41 4c 4c | 09 40 52 49 47 48 54 23 |)...CALL|.@RIGHT#|
|00003c30| 23 0d 0a 09 4c 44 09 28 | 59 29 2c 48 4c 0d 0a 09 |#...LD.(|Y),HL...|
|00003c40| 43 41 4c 4c 09 4e 45 4c | 50 23 23 0d 0a 09 4a 52 |CALL.NEL|P##...JR|
|00003c50| 09 5a 2c 4c 49 33 0d 0a | 3b 20 20 20 20 6d 73 67 |.Z,LI3..|; msg|
|00003c60| 28 22 5c 72 5c 6e 5c 74 | 22 29 3b 0d 0a 09 4c 44 |("\r\n\t|");...LD|
|00003c70| 09 48 4c 2c 4c 49 34 4d | 53 47 0d 0a 09 44 53 45 |.HL,LI4M|SG...DSE|
|00003c80| 47 0d 0a 4c 49 34 4d 53 | 47 3a 09 44 42 09 43 52 |G..LI4MS|G:.DB.CR|
|00003c90| 2c 4c 46 2c 48 54 2c 30 | 0d 0a 09 43 53 45 47 0d |,LF,HT,0|...CSEG.|
|00003ca0| 0a 09 43 41 4c 4c 09 4d | 53 47 23 23 0d 0a 3b 20 |..CALL.M|SG##..; |
|00003cb0| 20 20 20 65 70 72 69 6e | 74 28 79 2d 3e 6c 65 66 | eprin|t(y->lef|
|00003cc0| 74 2e 6c 69 73 74 2c 65 | 6d 70 74 79 29 3b 0d 0a |t.list,e|mpty);..|
|00003cd0| 09 4c 44 09 48 4c 2c 28 | 59 29 0d 0a 09 43 41 4c |.LD.HL,(|Y)...CAL|
|00003ce0| 4c 09 40 4c 45 46 54 0d | 0a 09 4c 44 09 44 45 2c |L.@LEFT.|..LD.DE,|
|00003cf0| 45 4d 50 54 59 0d 0a 09 | 43 41 4c 4c 09 45 50 52 |EMPTY...|CALL.EPR|
|00003d00| 49 4e 54 23 23 0d 0a 3b | 20 20 20 20 7d 0d 0a 09 |INT##..;| }...|
|00003d10| 4a 52 09 4c 49 34 0d 0a | 4c 49 33 3a 0d 0a 3b 20 |JR.LI4..|LI3:..; |
|00003d20| 20 6d 73 67 28 22 29 5c | 72 5c 6e 22 29 3b 0d 0a | msg(")\|r\n");..|
|00003d30| 09 4c 44 09 48 4c 2c 4c | 49 33 4d 53 47 0d 0a 09 |.LD.HL,L|I3MSG...|
|00003d40| 44 53 45 47 0d 0a 4c 49 | 33 4d 53 47 3a 09 44 42 |DSEG..LI|3MSG:.DB|
|00003d50| 09 27 29 27 2c 43 52 2c | 4c 46 2c 30 0d 0a 09 43 |.')',CR,|LF,0...C|
|00003d60| 53 45 47 0d 0a 09 4a 50 | 09 4d 53 47 23 23 0d 0a |SEG...JP|.MSG##..|
|00003d70| 3b 20 20 7d 0d 0a 0d 0a | 3b 20 3d 3d 3d 3d 3d 3d |; }....|; ======|
|00003d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 20 4c |========|====== L|
|00003d90| 4f 41 44 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |OAD ====|========|
|00003da0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 3b 20 4c 4f 41 44 |========|..; LOAD|
|00003db0| 20 63 6f 6d 6d 61 6e 64 | 0d 0a 3b 0d 0a 3b 20 6c | command|..;..; l|
|00003dc0| 6f 61 64 20 66 72 6f 6d | 20 67 69 76 65 6e 20 64 |oad from| given d|
|00003dd0| 69 73 6b 20 66 69 6c 65 | 0d 0a 3b 20 64 65 66 61 |isk file|..; defa|
|00003de0| 75 6c 74 20 66 69 6c 65 | 74 79 70 65 20 27 50 52 |ult file|type 'PR|
|00003df0| 4f 27 0d 0a 5f 4c 4f 41 | 44 3a 3a 0d 0a 09 43 41 |O'.._LOA|D::...CA|
|00003e00| 4c 4c 09 44 4f 49 4e 23 | 23 0d 0a 09 43 41 4c 4c |LL.DOIN#|#...CALL|
|00003e10| 09 4e 4f 52 45 0d 0a 09 | 4c 44 09 41 2c 28 49 4e |.NORE...|LD.A,(IN|
|00003e20| 46 23 23 29 0d 0a 09 44 | 45 43 09 41 0d 0a 09 4a |F##)...D|EC.A...J|
|00003e30| 50 09 4e 5a 2c 52 45 54 | 54 09 09 3b 20 6e 6f 74 |P.NZ,RET|T..; not|
|00003e40| 20 61 20 64 69 73 6b 20 | 66 69 6c 65 0d 0a 09 4c | a disk |file...L|
|00003e50| 44 09 41 2c 28 49 4e 46 | 43 42 23 23 2b 39 29 0d |D.A,(INF|CB##+9).|
|00003e60| 0a 09 43 50 09 27 20 27 | 09 09 3b 20 6e 6f 20 66 |..CP.' '|..; no f|
|00003e70| 69 6c 65 74 79 70 65 3f | 0d 0a 09 4a 52 09 4e 5a |iletype?|...JR.NZ|
|00003e80| 2c 4c 4f 41 44 31 0d 0a | 09 4c 44 09 48 4c 2c 41 |,LOAD1..|.LD.HL,A|
|00003e90| 50 52 4f 23 23 09 3b 20 | 75 73 65 20 64 65 66 61 |PRO##.; |use defa|
|00003ea0| 75 6c 74 20 27 50 52 4f | 27 0d 0a 09 3f 43 4f 50 |ult 'PRO|'...?COP|
|00003eb0| 59 09 49 4e 46 43 42 23 | 23 2b 39 0d 0a 4c 4f 41 |Y.INFCB#|#+9..LOA|
|00003ec0| 44 31 3a 09 4a 50 09 4c | 4f 41 44 58 0d 0a 0d 0a |D1:.JP.L|OADX....|
|00003ed0| 3b 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |; ======|========|
|00003ee0| 3d 3d 3d 3d 3d 3d 20 4f | 50 45 4e 20 3d 3d 3d 3d |====== O|PEN ====|
|00003ef0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f00| 0d 0a 3b 20 4f 50 45 4e | 20 63 6f 6d 6d 61 6e 64 |..; OPEN| command|
|00003f10| 0d 0a 3b 0d 0a 3b 20 6f | 70 65 6e 73 20 61 6e 20 |..;..; o|pens an |
|00003f20| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 61 73 |existing| file as|
|00003f30| 20 69 6e 70 75 74 0d 0a | 5f 4f 50 45 4e 3a 3a 0d | input..|_OPEN::.|
|00003f40| 0a 09 43 41 4c 4c 09 44 | 4f 49 4e 23 23 0d 0a 09 |..CALL.D|OIN##...|
|00003f50| 43 41 4c 4c 09 4e 4f 52 | 45 0d 0a 09 4c 44 09 41 |CALL.NOR|E...LD.A|
|00003f60| 2c 28 49 4e 46 23 23 29 | 0d 0a 09 44 45 43 09 41 |,(INF##)|...DEC.A|
|00003f70| 0d 0a 09 4a 50 09 4e 5a | 2c 52 45 54 54 09 09 3b |...JP.NZ|,RETT..;|
|00003f80| 20 6e 6f 74 20 61 20 64 | 69 73 6b 20 66 69 6c 65 | not a d|isk file|
|00003f90| 0d 0a 4c 4f 41 44 58 3a | 09 4c 44 09 44 45 2c 49 |..LOADX:|.LD.DE,I|
|00003fa0| 4e 46 43 42 23 23 0d 0a | 09 4c 44 09 43 2c 31 35 |NFCB##..|.LD.C,15|
|00003fb0| 09 09 3b 20 6f 70 65 6e | 20 66 69 6c 65 0d 0a 09 |..; open| file...|
|00003fc0| 43 41 4c 4c 09 42 44 4f | 53 0d 0a 09 49 4e 43 09 |CALL.BDO|S...INC.|
|00003fd0| 41 09 09 3b 20 66 69 6c | 65 20 66 6f 75 6e 64 3f |A..; fil|e found?|
|00003fe0| 0d 0a 09 4a 52 09 4e 5a | 2c 4f 50 45 4e 31 09 3b |...JR.NZ|,OPEN1.;|
|00003ff0| 20 79 65 73 0d 0a 09 58 | 4f 52 09 41 0d 0a 09 4c | yes...X|OR.A...L|
|00004000| 44 09 28 49 4e 46 23 23 | 29 2c 41 0d 0a 09 4a 50 |D.(INF##|),A...JP|
|00004010| 09 52 45 54 46 0d 0a 4f | 50 45 4e 31 3a 09 58 4f |.RETF..O|PEN1:.XO|
|00004020| 52 09 41 0d 0a 09 4c 44 | 09 28 49 4e 46 43 42 23 |R.A...LD|.(INFCB#|
|00004030| 23 2b 33 32 29 2c 41 09 | 3b 20 7a 65 72 6f 20 63 |#+32),A.|; zero c|
|00004040| 75 72 72 65 6e 74 20 72 | 65 63 6f 72 64 0d 0a 09 |urrent r|ecord...|
|00004050| 4c 44 09 48 4c 2c 49 4e | 45 23 23 09 3b 20 70 6f |LD.HL,IN|E##.; po|
|00004060| 69 6e 74 65 72 20 62 65 | 79 6f 6e 64 20 65 6e 64 |inter be|yond end|
|00004070| 0d 0a 09 4c 44 09 28 49 | 4e 50 23 23 29 2c 48 4c |...LD.(I|NP##),HL|
|00004080| 0d 0a 09 4a 50 09 52 45 | 54 54 0d 0a 0d 0a 3b 20 |...JP.RE|TT....; |
|00004090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000040a0| 3d 3d 3d 3d 20 20 52 45 | 41 44 20 20 3d 3d 3d 3d |==== RE|AD ====|
|000040b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000040c0| 0d 0a 3b 5f 72 65 61 64 | 28 72 65 73 74 2c 61 73 |..;_read|(rest,as|
|000040d0| 74 2c 6c 73 2c 70 62 73 | 74 29 0d 0a 3b 20 20 50 |t,ls,pbs|t)..; P|
|000040e0| 41 49 52 20 72 65 73 74 | 3b 0d 0a 3b 20 20 41 4c |AIR rest|;..; AL|
|000040f0| 50 48 41 53 54 41 54 45 | 20 2a 20 61 73 74 3b 0d |PHASTATE| * ast;.|
|00004100| 0a 3b 20 20 4c 53 55 42 | 53 54 20 6c 73 3b 0d 0a |.; LSUB|ST ls;..|
|00004110| 3b 20 20 42 45 54 41 53 | 54 41 54 45 20 2a 2a 20 |; BETAS|TATE ** |
|00004120| 70 62 73 74 3b 0d 0a 3b | 20 20 7b 0d 0a 3b 20 20 |pbst;..;| {..; |
|00004130| 50 41 49 52 20 78 3b 0d | 0a 5f 52 45 41 44 3a 3a |PAIR x;.|._READ::|
|00004140| 0d 0a 09 4c 44 09 28 52 | 45 53 54 29 2c 48 4c 0d |...LD.(R|EST),HL.|
|00004150| 0a 09 4c 44 09 28 4c 53 | 29 2c 44 45 0d 0a 3b 20 |..LD.(LS|),DE..; |
|00004160| 20 6e 6f 72 65 74 72 79 | 28 61 73 74 29 3b 0d 0a | noretry|(ast);..|
|00004170| 09 43 41 4c 4c 09 4e 4f | 52 45 0d 0a 3b 20 20 78 |.CALL.NO|RE..; x|
|00004180| 20 3d 20 6d 61 6b 65 70 | 61 69 72 28 67 74 6f 6b | = makep|air(gtok|
|00004190| 65 6e 28 29 2c 65 6d 70 | 74 79 29 3b 0d 0a 09 43 |en(),emp|ty);...C|
|000041a0| 41 4c 4c 09 47 54 4f 4b | 45 4e 23 23 0d 0a 09 4a |ALL.GTOK|EN##...J|
|000041b0| 52 09 52 45 41 44 58 0d | 0a 0d 0a 3b 20 3d 3d 3d |R.READX.|...; ===|
|000041c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041d0| 3d 20 20 52 45 41 44 43 | 48 41 52 20 20 3d 3d 3d |= READC|HAR ===|
|000041e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041f0| 3d 0d 0a 3b 5f 72 65 61 | 64 63 28 72 65 73 74 2c |=..;_rea|dc(rest,|
|00004200| 61 73 74 2c 6c 73 2c 70 | 62 73 74 29 0d 0a 3b 20 |ast,ls,p|bst)..; |
|00004210| 20 50 41 49 52 20 72 65 | 73 74 3b 0d 0a 3b 20 20 | PAIR re|st;..; |
|00004220| 41 4c 50 48 41 53 54 41 | 54 45 20 2a 20 61 73 74 |ALPHASTA|TE * ast|
|00004230| 3b 0d 0a 3b 20 20 4c 53 | 55 42 53 54 20 6c 73 3b |;..; LS|UBST ls;|
|00004240| 0d 0a 3b 20 20 42 45 54 | 41 53 54 41 54 45 20 2a |..; BET|ASTATE *|
|00004250| 2a 20 70 62 73 74 3b 0d | 0a 3b 20 20 7b 0d 0a 3b |* pbst;.|.; {..;|
|00004260| 20 20 50 41 49 52 20 78 | 3b 0d 0a 3b 0d 0a 5f 52 | PAIR x|;..;.._R|
|00004270| 45 41 44 43 3a 3a 0d 0a | 09 4c 44 09 28 52 45 53 |EADC::..|.LD.(RES|
|00004280| 54 29 2c 48 4c 0d 0a 09 | 4c 44 09 28 4c 53 29 2c |T),HL...|LD.(LS),|
|00004290| 44 45 0d 0a 3b 20 20 6e | 6f 72 65 74 72 79 28 61 |DE..; n|oretry(a|
|000042a0| 73 74 29 3b 0d 0a 09 43 | 41 4c 4c 09 4e 4f 52 45 |st);...C|ALL.NORE|
|000042b0| 0d 0a 3b 20 20 72 64 63 | 68 61 72 28 29 3b 0d 0a |..; rdc|har();..|
|000042c0| 09 43 41 4c 4c 09 52 44 | 43 48 41 52 23 23 0d 0a |.CALL.RD|CHAR##..|
|000042d0| 3b 20 20 78 20 3d 20 6d | 61 6b 65 70 61 69 72 28 |; x = m|akepair(|
|000042e0| 63 68 61 72 61 63 74 65 | 72 2c 65 6d 70 74 79 29 |characte|r,empty)|
|000042f0| 3b 0d 0a 09 4c 44 09 41 | 2c 28 43 48 52 23 23 29 |;...LD.A|,(CHR##)|
|00004300| 0d 0a 09 4c 44 09 4c 2c | 41 0d 0a 09 4c 44 09 48 |...LD.L,|A...LD.H|
|00004310| 2c 30 0d 0a 52 45 41 44 | 58 3a 09 4c 44 09 44 45 |,0..READ|X:.LD.DE|
|00004320| 2c 45 4d 50 54 59 0d 0a | 09 43 41 4c 4c 09 4d 4b |,EMPTY..|.CALL.MK|
|00004330| 50 41 49 52 23 23 0d 0a | 09 4c 44 09 28 58 29 2c |PAIR##..|.LD.(X),|
|00004340| 48 4c 0d 0a 3b 20 20 2a | 70 62 73 74 20 3d 20 6d |HL..; *|pbst = m|
|00004350| 61 6b 65 62 65 74 61 28 | 61 73 74 2c 65 6d 70 74 |akebeta(|ast,empt|
|00004360| 79 29 3b 0d 0a 09 4c 44 | 09 48 4c 2c 45 4d 50 54 |y);...LD|.HL,EMPT|
|00004370| 59 0d 0a 09 43 41 4c 4c | 09 4d 4b 42 45 54 41 23 |Y...CALL|.MKBETA#|
|00004380| 23 0d 0a 3b 20 20 69 66 | 20 28 75 6e 69 66 79 28 |#..; if| (unify(|
|00004390| 72 65 73 74 2c 6c 73 2c | 78 2c 65 6d 70 74 79 29 |rest,ls,|x,empty)|
|000043a0| 29 0d 0a 3b 20 20 20 20 | 72 65 74 75 72 6e 20 54 |)..; |return T|
|000043b0| 52 55 45 3b 0d 0a 09 4c | 44 09 48 4c 2c 28 58 29 |RUE;...L|D.HL,(X)|
|000043c0| 0d 0a 09 4c 44 09 44 45 | 2c 45 4d 50 54 59 0d 0a |...LD.DE|,EMPTY..|
|000043d0| 09 45 58 58 0d 0a 09 4c | 44 09 48 4c 2c 28 52 45 |.EXX...L|D.HL,(RE|
|000043e0| 53 54 29 0d 0a 09 4c 44 | 09 44 45 2c 28 4c 53 29 |ST)...LD|.DE,(LS)|
|000043f0| 0d 0a 09 43 41 4c 4c 09 | 55 4e 49 46 59 23 23 0d |...CALL.|UNIFY##.|
|00004400| 0a 09 4a 50 09 4e 5a 2c | 52 45 54 54 0d 0a 3b 20 |..JP.NZ,|RETT..; |
|00004410| 20 72 65 6c 65 61 73 65 | 28 78 29 3b 0d 0a 09 4c | release|(x);...L|
|00004420| 44 09 48 4c 2c 28 58 29 | 0d 0a 09 43 41 4c 4c 09 |D.HL,(X)|...CALL.|
|00004430| 52 4c 53 23 23 0d 0a 3b | 20 20 72 65 74 75 72 6e |RLS##..;| return|
|00004440| 20 46 41 4c 53 45 3b 0d | 0a 09 4a 50 09 52 45 54 | FALSE;.|..JP.RET|
|00004450| 46 0d 0a 3b 20 20 7d 0d | 0a 0d 0a 3b 20 3d 3d 3d |F..; }.|...; ===|
|00004460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004470| 3d 20 20 52 45 41 44 4c | 49 53 54 20 20 3d 3d 3d |= READL|IST ===|
|00004480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004490| 3d 0d 0a 3b 5f 72 65 61 | 64 6c 28 72 65 73 74 2c |=..;_rea|dl(rest,|
|000044a0| 61 73 74 2c 6c 73 2c 70 | 62 73 74 29 0d 0a 3b 20 |ast,ls,p|bst)..; |
|000044b0| 20 50 41 49 52 20 72 65 | 73 74 3b 0d 0a 3b 20 20 | PAIR re|st;..; |
|000044c0| 41 4c 50 48 41 53 54 41 | 54 45 20 2a 20 61 73 74 |ALPHASTA|TE * ast|
|000044d0| 3b 0d 0a 3b 20 20 4c 53 | 55 42 53 54 20 6c 73 3b |;..; LS|UBST ls;|
|000044e0| 0d 0a 3b 20 20 42 45 54 | 41 53 54 41 54 45 20 2a |..; BET|ASTATE *|
|000044f0| 2a 20 70 62 73 74 3b 0d | 0a 3b 20 20 7b 0d 0a 3b |* pbst;.|.; {..;|
|00004500| 20 20 50 41 49 52 20 78 | 3b 0d 0a 3b 0d 0a 5f 52 | PAIR x|;..;.._R|
|00004510| 45 41 44 4c 3a 3a 0d 0a | 09 4c 44 09 28 52 45 53 |EADL::..|.LD.(RES|
|00004520| 54 29 2c 48 4c 0d 0a 09 | 4c 44 09 28 4c 53 29 2c |T),HL...|LD.(LS),|
|00004530| 44 45 0d 0a 3b 20 20 6e | 6f 72 65 74 72 79 28 61 |DE..; n|oretry(a|
|00004540| 73 74 29 3b 0d 0a 09 43 | 41 4c 4c 09 4e 4f 52 45 |st);...C|ALL.NORE|
|00004550| 0d 0a 3b 20 20 6f 70 61 | 72 20 3d 20 30 3b 0d 0a |..; opa|r = 0;..|
|00004560| 09 58 4f 52 09 41 0d 0a | 09 4c 44 09 28 4f 50 41 |.XOR.A..|.LD.(OPA|
|00004570| 52 23 23 29 2c 41 0d 0a | 3b 20 20 78 20 3d 20 6d |R##),A..|; x = m|
|00004580| 61 6b 65 70 61 69 72 28 | 72 64 67 31 28 29 2c 65 |akepair(|rdg1(),e|
|00004590| 6d 70 74 79 29 3b 0d 0a | 09 43 41 4c 4c 09 52 44 |mpty);..|.CALL.RD|
|000045a0| 47 31 23 23 0d 0a 09 4a | 52 09 52 45 41 44 58 0d |G1##...J|R.READX.|
|000045b0| 0a 0d 0a 3b 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |...; ===|========|
|000045c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 20 20 53 41 56 45 20 |========|= SAVE |
|000045d0| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|000045e0| 3d 3d 3d 3d 3d 0d 0a 3b | 20 53 41 56 45 20 63 6f |=====..;| SAVE co|
|000045f0| 6d 6d 61 6e 64 0d 0a 3b | 0d 0a 3b 20 73 61 76 65 |mmand..;|..; save|
|00004600| 73 20 64 61 74 61 62 61 | 73 65 20 74 6f 20 6e 61 |s databa|se to na|
|00004610| 6d 65 64 20 66 69 6c 65 | 0d 0a 3b 20 64 65 66 61 |med file|..; defa|
|00004620| 75 6c 74 20 66 69 6c 65 | 74 79 70 65 20 27 50 52 |ult file|type 'PR|
|00004630| 4f 27 0d 0a 5f 53 41 56 | 45 3a 3a 0d 0a 09 50 55 |O'.._SAV|E::...PU|
|00004640| 53 48 09 48 4c 0d 0a 09 | 50 55 53 48 09 44 45 0d |SH.HL...|PUSH.DE.|
|00004650| 0a 09 43 41 4c 4c 09 4e | 4f 52 45 0d 0a 09 43 41 |..CALL.N|ORE...CA|
|00004660| 4c 4c 09 43 4c 4f 53 45 | 23 23 09 09 3b 20 63 6c |LL.CLOSE|##..; cl|
|00004670| 6f 73 65 20 65 78 69 73 | 74 69 6e 67 20 6f 75 74 |ose exis|ting out|
|00004680| 70 75 74 20 66 69 6c 65 | 0d 0a 09 50 4f 50 09 44 |put file|...POP.D|
|00004690| 45 0d 0a 09 50 4f 50 09 | 48 4c 0d 0a 09 43 41 4c |E...POP.|HL...CAL|
|000046a0| 4c 09 44 4f 4f 55 54 23 | 23 0d 0a 09 4c 44 09 41 |L.DOOUT#|#...LD.A|
|000046b0| 2c 28 4f 55 54 46 43 42 | 23 23 2b 39 29 0d 0a 09 |,(OUTFCB|##+9)...|
|000046c0| 43 50 09 27 20 27 09 09 | 3b 20 6e 6f 20 66 69 6c |CP.' '..|; no fil|
|000046d0| 65 74 79 70 65 3f 0d 0a | 09 4a 52 09 4e 5a 2c 53 |etype?..|.JR.NZ,S|
|000046e0| 41 56 45 31 0d 0a 09 4c | 44 09 48 4c 2c 41 50 52 |AVE1...L|D.HL,APR|
|000046f0| 4f 23 23 09 3b 20 75 73 | 65 20 64 65 66 61 75 6c |O##.; us|e defaul|
|00004700| 74 20 27 50 52 4f 27 0d | 0a 09 3f 43 4f 50 59 09 |t 'PRO'.|..?COPY.|
|00004710| 4f 55 54 46 43 42 23 23 | 2b 39 0d 0a 53 41 56 45 |OUTFCB##|+9..SAVE|
|00004720| 31 3a 09 43 41 4c 4c 09 | 53 41 56 45 58 09 09 3b |1:.CALL.|SAVEX..;|
|00004730| 20 63 72 65 61 74 65 20 | 74 68 65 20 66 69 6c 65 | create |the file|
|00004740| 20 66 6f 72 20 6f 75 74 | 70 75 74 0d 0a 09 43 41 | for out|put...CA|
|00004750| 4c 4c 09 4c 49 53 54 58 | 09 09 3b 20 73 65 6e 64 |LL.LISTX|..; send|
|00004760| 20 6c 69 73 74 69 6e 67 | 20 74 6f 20 66 69 6c 65 | listing| to file|
|00004770| 0d 0a 09 4a 50 09 43 4c | 4f 53 45 58 09 09 3b 20 |...JP.CL|OSEX..; |
|00004780| 63 6c 6f 73 65 20 66 69 | 6c 65 0d 0a 53 41 56 45 |close fi|le..SAVE|
|00004790| 58 3a 0d 0a 09 4c 44 09 | 41 2c 28 4f 55 54 46 23 |X:...LD.|A,(OUTF#|
|000047a0| 23 29 0d 0a 09 44 45 43 | 09 41 0d 0a 09 52 45 54 |#)...DEC|.A...RET|
|000047b0| 09 4e 5a 09 09 3b 20 6e | 6f 74 20 64 69 73 6b 20 |.NZ..; n|ot disk |
|000047c0| 66 69 6c 65 0d 0a 09 4c | 44 09 44 45 2c 4f 55 54 |file...L|D.DE,OUT|
|000047d0| 46 43 42 23 23 0d 0a 09 | 4c 44 09 43 2c 31 39 09 |FCB##...|LD.C,19.|
|000047e0| 09 3b 20 64 65 6c 65 74 | 65 20 66 69 6c 65 0d 0a |.; delet|e file..|
|000047f0| 09 43 41 4c 4c 09 42 44 | 4f 53 0d 0a 09 4c 44 09 |.CALL.BD|OS...LD.|
|00004800| 44 45 2c 4f 55 54 46 43 | 42 23 23 0d 0a 09 4c 44 |DE,OUTFC|B##...LD|
|00004810| 09 43 2c 32 32 09 09 3b | 20 6d 61 6b 65 20 66 69 |.C,22..;| make fi|
|00004820| 6c 65 0d 0a 09 43 41 4c | 4c 09 42 44 4f 53 0d 0a |le...CAL|L.BDOS..|
|00004830| 09 49 4e 43 09 41 0d 0a | 09 4a 50 09 5a 2c 52 45 |.INC.A..|.JP.Z,RE|
|00004840| 54 46 09 09 3b 20 75 6e | 73 75 63 63 65 73 73 66 |TF..; un|successf|
|00004850| 75 6c 0d 0a 09 4c 44 09 | 48 4c 2c 4f 55 54 44 4d |ul...LD.|HL,OUTDM|
|00004860| 41 23 23 0d 0a 09 4c 44 | 09 28 4f 55 54 50 23 23 |A##...LD|.(OUTP##|
|00004870| 29 2c 48 4c 0d 0a 09 52 | 45 54 0d 0a 0d 0a 3b 20 |),HL...R|ET....; |
|00004880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004890| 3d 3d 3d 3d 20 20 57 52 | 49 54 45 20 20 3d 3d 3d |==== WR|ITE ===|
|000048a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000048b0| 3d 0d 0a 3b 5f 77 72 69 | 74 65 28 72 65 73 74 2c |=..;_wri|te(rest,|
|000048c0| 61 73 74 2c 6c 73 2c 70 | 62 73 74 29 0d 0a 3b 20 |ast,ls,p|bst)..; |
|000048d0| 20 50 41 49 52 20 72 65 | 73 74 3b 0d 0a 3b 20 20 | PAIR re|st;..; |
|000048e0| 41 4c 50 48 41 53 54 41 | 54 45 20 2a 20 61 73 74 |ALPHASTA|TE * ast|
|000048f0| 3b 0d 0a 3b 20 20 4c 53 | 55 42 53 54 20 6c 73 3b |;..; LS|UBST ls;|
|00004900| 0d 0a 3b 20 20 42 45 54 | 41 53 54 41 54 45 20 2a |..; BET|ASTATE *|
|00004910| 2a 20 70 62 73 74 3b 0d | 0a 3b 20 20 7b 0d 0a 3b |* pbst;.|.; {..;|
|00004920| 20 20 73 74 61 74 69 63 | 20 53 55 42 56 41 4c 20 | static| SUBVAL |
|00004930| 73 76 3b 0d 0a 5f 57 52 | 49 54 45 3a 3a 0d 0a 09 |sv;.._WR|ITE::...|
|00004940| 4c 44 09 28 52 45 53 54 | 29 2c 48 4c 0d 0a 09 4c |LD.(REST|),HL...L|
|00004950| 44 09 28 4c 53 29 2c 44 | 45 0d 0a 3b 20 20 6e 6f |D.(LS),D|E..; no|
|00004960| 72 65 74 72 79 28 61 73 | 74 29 3b 0d 0a 09 43 41 |retry(as|t);...CA|
|00004970| 4c 4c 09 4e 4f 52 45 0d | 0a 3b 20 20 69 66 20 28 |LL.NORE.|.; if (|
|00004980| 76 61 72 70 28 72 65 73 | 74 29 29 0d 0a 09 4c 44 |varp(res|t))...LD|
|00004990| 09 48 4c 2c 28 52 45 53 | 54 29 0d 0a 09 43 41 4c |.HL,(RES|T)...CAL|
|000049a0| 4c 09 56 41 52 50 23 23 | 0d 0a 09 4a 52 09 5a 2c |L.VARP##|...JR.Z,|
|000049b0| 57 52 31 0d 0a 3b 20 20 | 20 20 7b 0d 0a 3b 20 20 |WR1..; | {..; |
|000049c0| 20 20 69 66 20 28 73 75 | 62 73 74 70 28 73 76 2e | if (su|bstp(sv.|
|000049d0| 76 61 6c 20 3d 20 76 61 | 6c 75 65 28 76 66 28 72 |val = va|lue(vf(r|
|000049e0| 65 73 74 2c 6c 73 29 29 | 29 29 0d 0a 3b 20 20 20 |est,ls))|))..; |
|000049f0| 20 20 20 3b 0d 0a 09 4c | 44 09 44 45 2c 28 4c 53 | ;...L|D.DE,(LS|
|00004a00| 29 0d 0a 09 43 41 4c 4c | 09 56 46 23 23 0d 0a 09 |)...CALL|.VF##...|
|00004a10| 43 41 4c 4c 09 56 41 4c | 55 45 23 23 0d 0a 09 4c |CALL.VAL|UE##...L|
|00004a20| 44 09 28 53 56 29 2c 48 | 4c 0d 0a 09 43 41 4c 4c |D.(SV),H|L...CALL|
|00004a30| 09 53 55 42 53 54 50 23 | 23 0d 0a 09 4a 52 09 4e |.SUBSTP#|#...JR.N|
|00004a40| 5a 2c 57 52 31 0d 0a 3b | 20 20 20 20 65 6c 73 65 |Z,WR1..;| else|
|00004a50| 0d 0a 3b 20 20 20 20 20 | 20 7b 0d 0a 3b 20 20 20 |..; | {..; |
|00004a60| 20 20 20 72 65 73 74 20 | 3d 20 73 76 2e 61 73 73 | rest |= sv.ass|
|00004a70| 67 6e 2d 3e 73 65 78 70 | 2e 6c 69 73 74 3b 0d 0a |gn->sexp|.list;..|
|00004a80| 09 43 41 4c 4c 09 40 45 | 58 50 52 23 23 0d 0a 09 |.CALL.@E|XPR##...|
|00004a90| 4c 44 09 28 52 45 53 54 | 29 2c 48 4c 0d 0a 3b 20 |LD.(REST|),HL..; |
|00004aa0| 20 20 20 20 20 6c 73 20 | 3d 20 73 76 2e 61 73 73 | ls |= sv.ass|
|00004ab0| 67 6e 2d 3e 73 6c 69 73 | 74 3b 0d 0a 09 4c 44 09 |gn->slis|t;...LD.|
|00004ac0| 48 4c 2c 28 53 56 29 0d | 0a 09 43 41 4c 4c 09 40 |HL,(SV).|..CALL.@|
|00004ad0| 53 4c 49 53 54 23 23 0d | 0a 09 4c 44 09 28 4c 53 |SLIST##.|..LD.(LS|
|00004ae0| 29 2c 48 4c 0d 0a 3b 20 | 20 20 20 20 20 7d 0d 0a |),HL..; | }..|
|00004af0| 3b 20 20 20 20 7d 0d 0a | 57 52 31 3a 0d 0a 3b 20 |; }..|WR1:..; |
|00004b00| 20 77 68 69 6c 65 20 28 | 6e 65 6c 69 73 74 70 28 | while (|nelistp(|
|00004b10| 72 65 73 74 29 29 0d 0a | 09 4c 44 09 48 4c 2c 28 |rest))..|.LD.HL,(|
|00004b20| 52 45 53 54 29 0d 0a 09 | 43 41 4c 4c 09 4e 45 4c |REST)...|CALL.NEL|
|00004b30| 50 23 23 0d 0a 09 4a 52 | 09 5a 2c 57 52 32 0d 0a |P##...JR|.Z,WR2..|
|00004b40| 3b 20 20 20 20 7b 0d 0a | 3b 20 20 20 20 65 70 72 |; {..|; epr|
|00004b50| 69 6e 74 28 72 65 73 74 | 2d 3e 6c 65 66 74 2e 6c |int(rest|->left.l|
|00004b60| 69 73 74 2c 6c 73 29 3b | 0d 0a 09 43 41 4c 4c 09 |ist,ls);|...CALL.|
|00004b70| 40 4c 45 46 54 0d 0a 09 | 4c 44 09 44 45 2c 28 4c |@LEFT...|LD.DE,(L|
|00004b80| 53 29 0d 0a 09 43 41 4c | 4c 09 45 50 52 49 4e 54 |S)...CAL|L.EPRINT|
|00004b90| 23 23 0d 0a 3b 20 20 20 | 20 72 65 73 74 20 3d 20 |##..; | rest = |
|00004ba0| 72 65 73 74 2d 3e 72 69 | 67 68 74 2e 6c 69 73 74 |rest->ri|ght.list|
|00004bb0| 3b 0d 0a 09 4c 44 09 48 | 4c 2c 28 52 45 53 54 29 |;...LD.H|L,(REST)|
|00004bc0| 0d 0a 09 43 41 4c 4c 09 | 40 52 49 47 48 54 23 23 |...CALL.|@RIGHT##|
|00004bd0| 0d 0a 09 4c 44 09 28 52 | 45 53 54 29 2c 48 4c 0d |...LD.(R|EST),HL.|
|00004be0| 0a 3b 20 20 20 20 69 66 | 20 28 76 61 72 70 28 72 |.; if| (varp(r|
|00004bf0| 65 73 74 29 29 0d 0a 09 | 43 41 4c 4c 09 56 41 52 |est))...|CALL.VAR|
|00004c00| 50 23 23 0d 0a 09 4a 52 | 09 5a 2c 57 52 33 0d 0a |P##...JR|.Z,WR3..|
|00004c10| 3b 20 20 20 20 20 20 7b | 0d 0a 3b 20 20 20 20 20 |; {|..; |
|00004c20| 20 69 66 20 28 73 75 62 | 73 74 70 28 73 76 2e 76 | if (sub|stp(sv.v|
|00004c30| 61 6c 20 3d 20 76 61 6c | 75 65 28 76 66 28 72 65 |al = val|ue(vf(re|
|00004c40| 73 74 2c 6c 73 29 29 29 | 29 0d 0a 3b 20 20 20 20 |st,ls)))|)..; |
|00004c50| 20 20 20 20 3b 0d 0a 09 | 4c 44 09 44 45 2c 28 4c | ;...|LD.DE,(L|
|00004c60| 53 29 0d 0a 09 43 41 4c | 4c 09 56 46 23 23 0d 0a |S)...CAL|L.VF##..|
|00004c70| 09 43 41 4c 4c 09 56 41 | 4c 55 45 23 23 0d 0a 09 |.CALL.VA|LUE##...|
|00004c80| 4c 44 09 28 53 56 29 2c | 48 4c 0d 0a 09 43 41 4c |LD.(SV),|HL...CAL|
|00004c90| 4c 09 53 55 42 53 54 50 | 23 23 0d 0a 09 4a 52 09 |L.SUBSTP|##...JR.|
|00004ca0| 4e 5a 2c 57 52 33 0d 0a | 3b 20 20 20 20 20 20 65 |NZ,WR3..|; e|
|00004cb0| 6c 73 65 0d 0a 3b 20 20 | 20 20 20 20 20 20 7b 0d |lse..; | {.|
|00004cc0| 0a 3b 20 20 20 20 20 20 | 20 20 72 65 73 74 20 3d |.; | rest =|
|00004cd0| 20 73 76 2e 61 73 73 67 | 6e 2d 3e 73 65 78 70 2e | sv.assg|n->sexp.|
|00004ce0| 6c 69 73 74 3b 0d 0a 09 | 43 41 4c 4c 09 40 45 58 |list;...|CALL.@EX|
|00004cf0| 50 52 23 23 0d 0a 09 4c | 44 09 28 52 45 53 54 29 |PR##...L|D.(REST)|
|00004d00| 2c 48 4c 0d 0a 3b 20 20 | 20 20 20 20 20 20 6c 73 |,HL..; | ls|
|00004d10| 20 3d 20 73 76 2e 61 73 | 73 67 6e 2d 3e 73 6c 69 | = sv.as|sgn->sli|
|00004d20| 73 74 3b 0d 0a 09 4c 44 | 09 48 4c 2c 28 53 56 29 |st;...LD|.HL,(SV)|
|00004d30| 0d 0a 09 43 41 4c 4c 09 | 40 53 4c 49 53 54 23 23 |...CALL.|@SLIST##|
|00004d40| 0d 0a 09 4c 44 09 28 4c | 53 29 2c 48 4c 0d 0a 3b |...LD.(L|S),HL..;|
|00004d50| 20 20 20 20 20 20 20 20 | 7d 0d 0a 3b 20 20 20 20 | |}..; |
|00004d60| 20 20 7d 0d 0a 57 52 33 | 09 45 51 55 09 57 52 31 | }..WR3|.EQU.WR1|
|00004d70| 0d 0a 09 4a 52 09 57 52 | 31 0d 0a 3b 20 20 20 20 |...JR.WR|1..; |
|00004d80| 7d 0d 0a 57 52 32 3a 0d | 0a 3b 20 20 72 65 74 75 |}..WR2:.|.; retu|
|00004d90| 72 6e 20 54 52 55 45 3b | 0d 0a 09 4a 50 09 52 45 |rn TRUE;|...JP.RE|
|00004da0| 54 54 0d 0a 3b 20 20 7d | 0d 0a 0d 0a 3b 20 3d 3d |TT..; }|....; ==|
|00004db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004dc0| 3d 3d 20 20 57 52 49 54 | 45 43 48 41 52 20 20 3d |== WRIT|ECHAR =|
|00004dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004de0| 3d 3d 3d 0d 0a 3b 5f 77 | 72 63 68 28 72 65 73 74 |===..;_w|rch(rest|
|00004df0| 2c 61 73 74 2c 6c 73 2c | 70 62 73 74 29 0d 0a 3b |,ast,ls,|pbst)..;|
|00004e00| 20 20 50 41 49 52 20 72 | 65 73 74 3b 0d 0a 3b 20 | PAIR r|est;..; |
|00004e10| 20 41 4c 50 48 41 53 54 | 41 54 45 20 2a 20 61 73 | ALPHAST|ATE * as|
|00004e20| 74 3b 0d 0a 3b 20 20 4c | 53 55 42 53 54 20 6c 73 |t;..; L|SUBST ls|
|00004e30| 3b 0d 0a 3b 20 20 42 45 | 54 41 53 54 41 54 45 20 |;..; BE|TASTATE |
|00004e40| 2a 2a 20 70 62 73 74 3b | 0d 0a 3b 20 20 7b 0d 0a |** pbst;|..; {..|
|00004e50| 3b 20 20 4e 55 4d 42 45 | 52 20 78 3b 0d 0a 5f 57 |; NUMBE|R x;.._W|
|00004e60| 52 43 48 3a 3a 0d 0a 09 | 4c 44 09 28 52 45 53 54 |RCH::...|LD.(REST|
|00004e70| 29 2c 48 4c 0d 0a 09 4c | 44 09 28 4c 53 29 2c 44 |),HL...L|D.(LS),D|
|00004e80| 45 0d 0a 3b 20 20 6e 6f | 72 65 74 72 79 28 61 73 |E..; no|retry(as|
|00004e90| 74 29 3b 0d 0a 09 43 41 | 4c 4c 09 4e 4f 52 45 0d |t);...CA|LL.NORE.|
|00004ea0| 0a 3b 20 20 78 20 3d 20 | 76 6e 65 78 74 28 26 72 |.; x = |vnext(&r|
|00004eb0| 65 73 74 2c 26 6c 73 29 | 3b 0d 0a 09 4c 44 09 48 |est,&ls)|;...LD.H|
|00004ec0| 4c 2c 52 45 53 54 0d 0a | 09 4c 44 09 44 45 2c 4c |L,REST..|.LD.DE,L|
|00004ed0| 53 0d 0a 09 43 41 4c 4c | 09 56 4e 45 58 54 0d 0a |S...CALL|.VNEXT..|
|00004ee0| 3b 20 20 69 66 20 28 21 | 20 6e 75 6d 62 70 28 78 |; if (!| numbp(x|
|00004ef0| 29 29 0d 0a 3b 20 20 20 | 20 72 65 74 75 72 6e 20 |))..; | return |
|00004f00| 46 41 4c 53 45 3b 0d 0a | 09 43 41 4c 4c 09 4e 55 |FALSE;..|.CALL.NU|
|00004f10| 4d 42 50 23 23 0d 0a 09 | 4a 50 09 5a 2c 52 45 54 |MBP##...|JP.Z,RET|
|00004f20| 46 0d 0a 3b 20 20 69 66 | 20 28 78 20 3e 20 32 35 |F..; if| (x > 25|
|00004f30| 35 29 0d 0a 3b 20 20 20 | 20 72 65 74 75 72 6e 20 |5)..; | return |
|00004f40| 46 41 4c 53 45 3b 0d 0a | 09 4c 44 09 44 45 2c 32 |FALSE;..|.LD.DE,2|
|00004f50| 35 36 0d 0a 09 43 41 4c | 4c 09 43 50 48 4c 23 23 |56...CAL|L.CPHL##|
|00004f60| 0d 0a 09 4a 50 09 4e 43 | 2c 52 45 54 46 0d 0a 3b |...JP.NC|,RETF..;|
|00004f70| 20 20 70 75 74 63 28 78 | 2c 6f 75 74 66 69 6c 65 | putc(x|,outfile|
|00004f80| 29 3b 0d 0a 09 4c 44 09 | 41 2c 4c 0d 0a 09 43 41 |);...LD.|A,L...CA|
|00004f90| 4c 4c 09 43 48 52 4f 55 | 54 23 23 0d 0a 3b 20 20 |LL.CHROU|T##..; |
|00004fa0| 72 65 74 75 72 6e 20 54 | 52 55 45 3b 0d 0a 09 4a |return T|RUE;...J|
|00004fb0| 50 09 52 45 54 54 0d 0a | 3b 20 20 7d 0d 0a 0d 0a |P.RETT..|; }....|
|00004fc0| 09 45 4e 44 0d 0a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.END....|........|
|00004fd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004fe0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004ff0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005000| 0d 0a 3b 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..; ====|========|
|00005010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00005040| 0a 3b 20 44 41 54 42 41 | 44 44 2e 5a 38 30 0d 0a |.; DATBA|DD.Z80..|
|00005050| 3b 09 61 64 64 20 74 6f | 20 74 68 65 20 64 61 74 |;.add to| the dat|
|00005060| 61 62 61 73 65 20 69 6e | 20 45 2d 50 72 6f 6c 6f |abase in| E-Prolo|
|00005070| 67 0d 0a 3b 09 4d 61 79 | 20 32 36 2c 20 31 39 38 |g..;.May| 26, 198|
|00005080| 35 0d 0a 0d 0a 09 2e 5a | 38 30 0d 0a 0d 0a 46 41 |5......Z|80....FA|
|00005090| 4c 53 45 09 45 51 55 09 | 30 0d 0a 54 52 55 45 09 |LSE.EQU.|0..TRUE.|
|000050a0| 45 51 55 09 31 0d 0a 45 | 4d 50 54 59 09 45 51 55 |EQU.1..E|MPTY.EQU|
|000050b0| 09 2d 31 0d 0a 55 4e 44 | 45 46 09 45 51 55 09 2d |.-1..UND|EF.EQU.-|
|000050c0| 32 0d 0a 0d 0a 48 54 09 | 45 51 55 09 39 0d 0a 4c |2....HT.|EQU.9..L|
|000050d0| 46 09 45 51 55 09 31 30 | 0d 0a 43 52 09 45 51 55 |F.EQU.10|..CR.EQU|
|000050e0| 09 31 33 0d 0a 43 54 4c | 5a 09 45 51 55 09 32 36 |.13..CTL|Z.EQU.26|
|000050f0| 0d 0a 0d 0a 43 50 4d 09 | 45 51 55 09 20 20 20 20 |....CPM.|EQU. |
|00005100| 30 30 30 30 48 0d 0a 42 | 44 4f 53 09 45 51 55 09 |0000H..B|DOS.EQU.|
|00005110| 43 50 4d 2b 30 30 30 35 | 48 0d 0a 43 44 4d 41 09 |CPM+0005|H..CDMA.|
|00005120| 45 51 55 09 43 50 4d 2b | 30 30 38 30 48 0d 0a 54 |EQU.CPM+|0080H..T|
|00005130| 50 41 09 45 51 55 09 43 | 50 4d 2b 30 31 30 30 48 |PA.EQU.C|PM+0100H|
|00005140| 0d 0a 0d 0a 09 44 53 45 | 47 0d 0a 3b 50 41 49 52 |.....DSE|G..;PAIR|
|00005150| 20 61 6c 6c 64 62 3b 0d | 0a 41 4c 4c 44 42 3a 3a | alldb;.|.ALLDB::|
|00005160| 09 44 53 09 32 0d 0a 3b | 50 41 49 52 20 2a 20 61 |.DS.2..;|PAIR * a|
|00005170| 6c 6c 64 62 65 3b 0d 0a | 41 4c 4c 44 42 45 3a 3a |lldbe;..|ALLDBE::|
|00005180| 20 44 53 09 32 0d 0a 09 | 43 53 45 47 0d 0a 0d 0a | DS.2...|CSEG....|
|00005190| 3b 64 61 74 62 61 64 64 | 28 72 65 6c 6e 61 6d 65 |;datbadd|(relname|
|000051a0| 2c 63 6c 61 75 73 65 29 | 0d 0a 3b 20 20 53 59 4d |,clause)|..; SYM|
|000051b0| 42 4f 4c 20 2a 20 72 65 | 6c 6e 61 6d 65 3b 0d 0a |BOL * re|lname;..|
|000051c0| 3b 20 20 45 58 50 52 20 | 63 6c 61 75 73 65 3b 0d |; EXPR |clause;.|
|000051d0| 0a 3b 20 20 7b 0d 0a 3b | 20 20 73 74 61 74 69 63 |.; {..;| static|
|000051e0| 20 50 41 49 52 20 2a 20 | 70 74 72 3b 0d 0a 09 44 | PAIR * |ptr;...D|
|000051f0| 53 45 47 0d 0a 43 4c 41 | 55 53 45 3a 09 44 57 09 |SEG..CLA|USE:.DW.|
|00005200| 30 0d 0a 50 54 52 3a 09 | 44 57 09 30 0d 0a 09 43 |0..PTR:.|DW.0...C|
|00005210| 53 45 47 0d 0a 44 42 41 | 44 44 3a 3a 0d 0a 3b 0d |SEG..DBA|DD::..;.|
|00005220| 0a 09 4c 44 09 28 43 4c | 41 55 53 45 29 2c 44 45 |..LD.(CL|AUSE),DE|
|00005230| 0d 0a 3b 20 20 70 74 72 | 20 3d 20 26 72 65 6c 6e |..; ptr| = &reln|
|00005240| 61 6d 65 2d 3e 61 64 64 | 72 3b 0d 0a 09 4c 44 09 |ame->add|r;...LD.|
|00005250| 28 50 54 52 29 2c 48 4c | 0d 0a 3b 20 20 69 66 20 |(PTR),HL|..; if |
|00005260| 28 6e 75 6d 62 70 28 2a | 70 74 72 29 29 0d 0a 09 |(numbp(*|ptr))...|
|00005270| 43 41 4c 4c 09 49 4e 44 | 49 52 23 23 0d 0a 09 43 |CALL.IND|IR##...C|
|00005280| 41 4c 4c 09 4e 55 4d 42 | 50 23 23 0d 0a 09 4a 52 |ALL.NUMB|P##...JR|
|00005290| 09 5a 2c 44 42 31 0d 0a | 3b 20 20 20 20 7b 0d 0a |.Z,DB1..|; {..|
|000052a0| 3b 20 20 20 20 65 72 72 | 6d 73 67 28 22 20 43 61 |; err|msg(" Ca|
|000052b0| 6e 6e 6f 74 20 63 68 61 | 6e 67 65 20 62 75 69 6c |nnot cha|nge buil|
|000052c0| 74 2d 69 6e 20 63 6f 6d | 6d 61 6e 64 73 2e 5c 72 |t-in com|mands.\r|
|000052d0| 5c 6e 22 29 3b 0d 0a 3b | 20 20 20 20 72 65 74 75 |\n");..;| retu|
|000052e0| 72 6e 3b 0d 0a 09 4c 44 | 09 48 4c 2c 44 42 31 4d |rn;...LD|.HL,DB1M|
|000052f0| 53 47 0d 0a 09 4a 50 09 | 45 52 52 4d 53 47 23 23 |SG...JP.|ERRMSG##|
|00005300| 0d 0a 09 44 53 45 47 0d | 0a 44 42 31 4d 53 47 3a |...DSEG.|.DB1MSG:|
|00005310| 09 44 42 09 27 20 43 61 | 6e 6e 6f 74 20 63 68 61 |.DB.' Ca|nnot cha|
|00005320| 6e 67 65 20 62 75 69 6c | 74 2d 69 6e 20 63 6f 6d |nge buil|t-in com|
|00005330| 6d 61 6e 64 73 2e 27 2c | 43 52 2c 4c 46 2c 30 20 |mands.',|CR,LF,0 |
|00005340| 0d 0a 09 43 53 45 47 0d | 0a 3b 20 20 20 20 7d 0d |...CSEG.|.; }.|
|00005350| 0a 44 42 31 3a 0d 0a 3b | 20 20 66 6f 72 20 28 20 |.DB1:..;| for ( |
|00005360| 3b 20 2a 70 74 72 20 21 | 3d 20 28 50 41 49 52 29 |; *ptr !|= (PAIR)|
|00005370| 65 6d 70 74 79 20 3b 20 | 70 74 72 20 3d 20 26 28 |empty ; |ptr = &(|
|00005380| 2a 70 74 72 29 2d 3e 72 | 69 67 68 74 2e 6c 69 73 |*ptr)->r|ight.lis|
|00005390| 74 29 0d 0a 3b 20 20 20 | 20 3b 0d 0a 09 4c 44 09 |t)..; | ;...LD.|
|000053a0| 48 4c 2c 28 50 54 52 29 | 0d 0a 09 43 41 4c 4c 09 |HL,(PTR)|...CALL.|
|000053b0| 49 4e 44 49 52 23 23 0d | 0a 09 4c 44 09 44 45 2c |INDIR##.|..LD.DE,|
|000053c0| 45 4d 50 54 59 0d 0a 09 | 43 41 4c 4c 09 43 50 48 |EMPTY...|CALL.CPH|
|000053d0| 4c 23 23 0d 0a 09 4a 52 | 09 5a 2c 44 42 32 0d 0a |L##...JR|.Z,DB2..|
|000053e0| 09 49 4e 43 09 48 4c 0d | 0a 09 49 4e 43 09 48 4c |.INC.HL.|..INC.HL|
|000053f0| 0d 0a 09 4c 44 09 28 50 | 54 52 29 2c 48 4c 0d 0a |...LD.(P|TR),HL..|
|00005400| 09 4a 52 09 44 42 31 0d | 0a 44 42 32 3a 0d 0a 3b |.JR.DB1.|.DB2:..;|
|00005410| 20 20 2a 70 74 72 20 3d | 20 6d 61 6b 65 70 61 69 | *ptr =| makepai|
|00005420| 72 28 63 6c 61 75 73 65 | 2c 65 6d 70 74 79 29 3b |r(clause|,empty);|
|00005430| 0d 0a 09 4c 44 09 48 4c | 2c 28 43 4c 41 55 53 45 |...LD.HL|,(CLAUSE|
|00005440| 29 0d 0a 09 4c 44 09 44 | 45 2c 45 4d 50 54 59 0d |)...LD.D|E,EMPTY.|
|00005450| 0a 09 43 41 4c 4c 09 4d | 4b 50 41 49 52 23 23 0d |..CALL.M|KPAIR##.|
|00005460| 0a 09 45 58 09 44 45 2c | 48 4c 0d 0a 09 4c 44 09 |..EX.DE,|HL...LD.|
|00005470| 48 4c 2c 28 50 54 52 29 | 0d 0a 09 4c 44 09 28 48 |HL,(PTR)|...LD.(H|
|00005480| 4c 29 2c 45 0d 0a 09 49 | 4e 43 09 48 4c 0d 0a 09 |L),E...I|NC.HL...|
|00005490| 4c 44 09 28 48 4c 29 2c | 44 0d 0a 3b 20 20 2a 61 |LD.(HL),|D..; *a|
|000054a0| 6c 6c 64 62 65 20 3d 20 | 6d 61 6b 65 70 61 69 72 |lldbe = |makepair|
|000054b0| 28 63 6c 61 75 73 65 2c | 65 6d 70 74 79 29 3b 0d |(clause,|empty);.|
|000054c0| 0a 09 4c 44 09 48 4c 2c | 28 43 4c 41 55 53 45 29 |..LD.HL,|(CLAUSE)|
|000054d0| 0d 0a 09 4c 44 09 44 45 | 2c 45 4d 50 54 59 0d 0a |...LD.DE|,EMPTY..|
|000054e0| 09 43 41 4c 4c 09 4d 4b | 50 41 49 52 23 23 0d 0a |.CALL.MK|PAIR##..|
|000054f0| 09 45 58 09 44 45 2c 48 | 4c 0d 0a 09 4c 44 09 48 |.EX.DE,H|L...LD.H|
|00005500| 4c 2c 28 41 4c 4c 44 42 | 45 29 0d 0a 09 4c 44 09 |L,(ALLDB|E)...LD.|
|00005510| 28 48 4c 29 2c 45 0d 0a | 09 49 4e 43 09 48 4c 0d |(HL),E..|.INC.HL.|
|00005520| 0a 09 4c 44 09 28 48 4c | 29 2c 44 0d 0a 3b 20 20 |..LD.(HL|),D..; |
|00005530| 61 6c 6c 64 62 65 20 3d | 20 26 28 28 2a 61 6c 6c |alldbe =| &((*all|
|00005540| 64 62 65 29 2d 3e 72 69 | 67 68 74 2e 6c 69 73 74 |dbe)->ri|ght.list|
|00005550| 29 3b 0d 0a 09 44 45 43 | 09 48 4c 0d 0a 09 43 41 |);...DEC|.HL...CA|
|00005560| 4c 4c 09 49 4e 44 49 52 | 23 23 0d 0a 09 49 4e 43 |LL.INDIR|##...INC|
|00005570| 09 48 4c 0d 0a 09 49 4e | 43 09 48 4c 0d 0a 09 4c |.HL...IN|C.HL...L|
|00005580| 44 09 28 41 4c 4c 44 42 | 45 29 2c 48 4c 0d 0a 3b |D.(ALLDB|E),HL..;|
|00005590| 20 20 64 61 74 62 74 6f | 70 20 3d 20 68 66 72 65 | datbto|p = hfre|
|000055a0| 65 3b 0d 0a 09 4c 44 09 | 48 4c 2c 28 48 46 52 45 |e;...LD.|HL,(HFRE|
|000055b0| 45 23 23 29 0d 0a 09 4c | 44 09 28 44 42 54 4f 50 |E##)...L|D.(DBTOP|
|000055c0| 23 23 29 2c 48 4c 0d 0a | 3b 20 20 7d 0d 0a 09 52 |##),HL..|; }...R|
|000055d0| 45 54 0d 0a 0d 0a 09 45 | 4e 44 0d 0a 1a 1a 1a 1a |ET.....E|ND......|
|000055e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000055f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005600| c3 5b 01 b8 0b dc 05 00 | 00 00 00 00 00 00 00 00 |.[......|........|
|00005610| 20 69 6c 6c 65 67 61 6c | 2e 0d 0a 00 00 00 0d 0a | illegal|........|
|00005620| 53 79 6e 74 61 78 20 65 | 72 72 6f 72 2e 0d 0a 00 |Syntax e|rror....|
|00005630| 45 2d 50 72 6f 6c 6f 67 | 20 20 20 76 65 72 2e 20 |E-Prolog| ver. |
|00005640| 32 2e 33 20 20 20 20 20 | 28 41 75 67 75 73 74 20 |2.3 |(August |
|00005650| 31 2c 20 31 39 38 35 29 | 0d 0a 00 ed 7b 06 00 cd |1, 1985)|....{...|
|00005660| 6c 17 2a 08 01 22 0e 01 | 2a 0e 01 22 0a 01 af 32 |l.*.."..|*.."...2|
|00005670| 07 01 cd a9 01 cd 48 02 | 20 05 cd c0 02 28 05 cd |......H.| ....(..|
|00005680| 69 0e 18 e4 cd 79 02 20 | 0e 11 ff ff cd dc 14 21 |i....y. |.......!|
|00005690| 10 01 cd 2e 16 18 d1 cd | 57 02 28 ed e5 cd d8 02 |........|W.(.....|
|000056a0| cd d8 02 d1 cd 78 07 18 | bf cd 8a 12 cd 1b 02 20 |.....x..|....... |
|000056b0| f8 3a da 10 fe 28 20 0a | 3a 07 01 3c 32 07 01 c3 |.:...( .|:..<2...|
|000056c0| c8 01 cd b5 12 c3 88 03 | cd 8a 12 cd 1b 02 20 f8 |........|...... .|
|000056d0| 3a da 10 fe 29 20 0b 3a | 07 01 3d 32 07 01 21 ff |:...) .:|..=2..!.|
|000056e0| ff c9 fe 7c 20 26 cd a9 | 01 22 1c 01 cd 8a 12 cd |...| &..|."......|
|000056f0| 1b 02 20 f8 3a da 10 fe | 29 28 06 21 1e 01 c3 44 |.. .:...|)(.!...D|
|00005700| 16 3a 07 01 3d 32 07 01 | 2a 1c 01 c9 cd b5 12 cd |.:..=2..|*.......|
|00005710| a9 01 e5 cd c8 01 eb e1 | c3 d2 05 3a da 10 fe 5b |........|...:...[|
|00005720| 20 0c cd 8a 12 3a da 10 | fe 5d 20 f6 18 10 fe 20 | ....:..|.] .... |
|00005730| 28 0c fe 0d 28 08 fe 0a | 28 04 fe 09 20 02 b7 c9 |(...(...|(... ...|
|00005740| af c9 af e5 ed 52 e1 c9 | e5 cd 79 02 ca d5 02 cd |.....R..|..y.....|
|00005750| d8 02 cd a8 02 e1 c9 e5 | cd 79 02 ca d5 02 cd d8 |........|.y......|
|00005760| 02 cd 48 02 e1 c9 e5 cd | 79 02 c2 d0 02 11 ff ff |..H.....|y.......|
|00005770| cd 42 02 ca d0 02 c3 d5 | 02 e5 ed 5b 08 01 cd 42 |.B......|...[...B|
|00005780| 02 da d5 02 ed 5b 0a 01 | cd 42 02 d2 d5 02 c3 d0 |.....[..|.B......|
|00005790| 02 e5 ed 5b 4f 16 cd 42 | 02 da d0 02 c3 d5 02 e5 |...[O..B|........|
|000057a0| cd d8 02 cd c0 02 e1 c9 | e5 ed 5b 4f 16 cd 42 02 |........|..[O..B.|
|000057b0| da d5 02 ed 5b 51 16 cd | 42 02 d2 d5 02 c3 d0 02 |....[Q..|B.......|
|000057c0| e5 cd a8 02 28 0f cd 0a | 03 7e fe 3f 28 02 18 05 |....(...|.~.?(...|
|000057d0| 3e 01 b7 e1 c9 af e1 c9 | 7e 23 66 6f c9 e5 09 73 |>.......|~#fo...s|
|000057e0| 23 72 e1 c9 19 18 f1 11 | 02 00 18 f8 11 04 00 18 |#r......|........|
|000057f0| f3 11 06 00 18 ee 01 00 | 00 18 e2 01 02 00 18 dd |........|........|
|00005800| 01 04 00 18 d8 01 06 00 | 18 d3 11 06 00 19 c9 dd |........|........|
|00005810| 6e 00 dd 66 01 c9 dd 6e | 02 dd 66 03 c9 dd 6e 04 |n..f...n|..f...n.|
|00005820| dd 66 05 c9 dd 6e 06 dd | 66 07 c9 dd 75 00 dd 74 |.f...n..|f...u..t|
|00005830| 01 c9 dd 75 02 dd 74 03 | c9 dd 75 04 dd 74 05 c9 |...u..t.|..u..t..|
|00005840| dd 75 06 dd 74 07 c9 fd | 6e 00 fd 66 01 c9 fd 6e |.u..t...|n..f...n|
|00005850| 02 fd 66 03 c9 fd 75 00 | fd 74 01 c9 fd 75 02 fd |..f...u.|.t...u..|
|00005860| 74 03 c9 fd e5 e1 23 23 | 23 23 c9 00 00 00 00 00 |t.....##|##......|
|00005870| 00 0d 0a 4f 75 74 20 6f | 66 20 73 74 72 69 6e 67 |...Out o|f string|
|00005880| 20 73 70 61 63 65 2e 00 | 21 80 00 22 6b 03 cd 8a | space..|!.."k...|
|00005890| 12 cd 1b 02 20 f8 cd 8a | 04 28 2a 21 00 00 e5 cd |.... ...|.(*!....|
|000058a0| 8a 04 28 15 e1 29 54 5d | 29 29 19 3a da 10 d6 30 |..(..)T]|)).:...0|
|000058b0| 5f 16 00 19 cd 8a 12 18 | e5 cd b5 12 e1 cd 91 02 |_.......|........|
|000058c0| c0 21 00 00 c9 3a da 10 | fe 22 20 1d cd 8a 12 cd |.!...:..|." .....|
|000058d0| 99 04 2a 6b 03 3a da 10 | 77 23 22 6b 03 cd 8a 12 |..*k.:..|w#"k....|
|000058e0| 3a da 10 fe 22 20 e8 18 | 49 fe 27 20 1d cd 8a 12 |:..." ..|I.' ....|
|000058f0| cd 99 04 2a 6b 03 3a da | 10 77 23 22 6b 03 cd 8a |...*k.:.|.w#"k...|
|00005900| 12 3a da 10 fe 27 20 e8 | 18 28 cd b0 04 28 18 2a |.:...' .|.(...(.*|
|00005910| 6b 03 3a da 10 77 23 22 | 6b 03 cd 8a 12 cd b0 04 |k.:..w#"|k.......|
|00005920| 20 ed cd b5 12 18 0b 2a | 6b 03 3a da 10 77 23 22 | ......*|k.:..w#"|
|00005930| 6b 03 2a 6b 03 36 00 2a | 4f 16 22 6d 03 2a 6d 03 |k.*k.6.*|O."m.*m.|
|00005940| cd 0a 03 11 80 00 cd 80 | 04 20 04 2a 6d 03 c9 30 |........|. .*m..0|
|00005950| 0c 2a 6d 03 23 23 23 23 | 22 6f 03 18 08 2a 6d 03 |.*m.####|"o...*m.|
|00005960| 23 23 22 6f 03 5e 23 56 | ed 53 6d 03 21 ff ff cd |##"o.^#V|.Sm.!...|
|00005970| 42 02 20 c9 cd e3 04 eb | 2a 6f 03 73 23 72 eb c9 |B. .....|*o.s#r..|
|00005980| eb 1a be c0 b7 c8 23 13 | 18 f7 3a da 10 fe 30 38 |......#.|..:...08|
|00005990| 06 fe 3a 30 02 b7 c9 af | c9 3a da 10 fe 5e c0 cd |..:0....|.:...^..|
|000059a0| 8a 12 3a da 10 fe 5e c8 | fe 40 d8 e6 1f 32 da 10 |..:...^.|.@...2..|
|000059b0| 3a da 10 fe 5f ca 95 04 | fe 2d ca 95 04 fe 3f ca |:..._...|.-....?.|
|000059c0| 95 04 fe 30 da 97 04 fe | 3a da 95 04 fe 41 da 97 |...0....|:....A..|
|000059d0| 04 fe 5b da 95 04 fe 61 | da 97 04 fe 7b da 95 04 |..[....a|....{...|
|000059e0| c3 97 04 2a 51 16 e5 11 | ff ff 73 23 72 23 73 23 |...*Q...|..s#r#s#|
|000059f0| 72 23 73 23 72 23 eb 21 | 80 00 7e 12 23 13 b7 20 |r#s#r#.!|..~.#.. |
|00005a00| f9 eb 22 51 16 ed 5b 08 | 01 1b cd 42 02 38 06 21 |.."Q..[.|...B.8.!|
|00005a10| 71 03 c3 44 16 e1 c9 00 | 00 0d 0a 4f 75 74 20 6f |q..D....|...Out o|
|00005a20| 66 20 68 65 61 70 20 73 | 70 61 63 65 2e 00 00 00 |f heap s|pace....|
|00005a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a40| 00 00 00 00 22 0a 01 c9 | cd 63 03 22 17 05 ed 5b |...."...|.c."...[|
|00005a50| 0a 01 cd 42 02 30 22 cd | e7 02 11 fd ff cd 42 02 |...B.0".|......B.|
|00005a60| 28 0b 11 fe ff cd 42 02 | 28 03 cd 00 03 2a 17 05 |(.....B.|(....*..|
|00005a70| 11 06 00 19 22 17 05 18 | d5 fd 22 0a 01 c9 cd 63 |...."...|.."....c|
|00005a80| 03 22 17 05 ed 5b 0a 01 | cd 42 02 d0 cd e7 02 11 |."...[..|.B......|
|00005a90| fe ff cd 42 02 20 09 2a | 17 05 11 fd ff cd fb 02 |...B. .*|........|
|00005aa0| 2a 17 05 11 06 00 19 22 | 17 05 18 d8 2a 0a 01 ed |*......"|....*...|
|00005ab0| 5b 0c 01 cd 42 02 d8 21 | 64 00 cd 55 16 7c b5 28 |[...B..!|d..U.|.(|
|00005ac0| 0b 2a 0c 01 11 64 00 19 | 22 0c 01 c9 21 19 05 c3 |.*...d..|"...!...|
|00005ad0| 44 16 22 2e 05 ed 53 30 | 05 2a 0a 01 22 32 05 23 |D."...S0|.*.."2.#|
|00005ae0| 23 23 23 22 0a 01 cd ac | 05 2a 32 05 ed 5b 2e 05 |###"....|.*2..[..|
|00005af0| cd f6 02 ed 5b 30 05 cd | fb 02 c9 22 3a 05 ed 53 |....[0..|...":..S|
|00005b00| 34 05 2a 0a 01 e5 dd e1 | 11 08 00 19 22 0a 01 cd |4.*.....|...."...|
|00005b10| ac 05 fd e5 e1 cd 2b 03 | 2a 3a 05 cd 32 03 2a 34 |......+.|*:..2.*4|
|00005b20| 05 cd 40 03 cd 63 03 22 | 38 05 2a 3a 05 cd d8 02 |..@..c."|8.*:....|
|00005b30| 22 3a 05 cd c0 02 28 27 | ed 5b 38 05 cd f9 07 cd |":....('|.[8.....|
|00005b40| e2 07 22 36 05 cd 9f 02 | 28 07 2a 4c 07 cd 39 03 |.."6....|(.*L..9.|
|00005b50| c9 e5 cd d8 02 22 3a 05 | e1 cd ec 02 22 38 05 2a |.....":.|...."8.*|
|00005b60| 3a 05 cd d8 02 22 3a 05 | cd c0 02 28 27 ed 5b 38 |:....":.|...('.[8|
|00005b70| 05 cd f9 07 cd e2 07 22 | 36 05 cd 9f 02 28 07 2a |......."|6....(.*|
|00005b80| 4c 07 cd 39 03 c9 e5 cd | d8 02 22 3a 05 e1 cd ec |L..9....|..":....|
|00005b90| 02 22 38 05 2a 3a 05 cd | d8 02 cd 39 03 c9 22 3c |."8.*:..|...9.."<|
|00005ba0| 05 2a 0a 01 e5 fd e1 23 | 23 23 23 22 0a 01 dd e5 |.*.....#|###"....|
|00005bb0| e1 cd 55 03 2a 3c 05 cd | 5c 03 ed 5b 0a 01 cd c5 |..U.*<..|\..[....|
|00005bc0| 06 cd ac 05 c9 ed 53 40 | 05 22 3e 05 cd c0 02 28 |......S@|.">....(|
|00005bd0| 25 2a 40 05 ed 5b 0a 01 | cd 42 02 30 13 e5 cd d8 |%*@..[..|.B.0....|
|00005be0| 02 ed 5b 3e 05 cd 42 02 | e1 c8 11 06 00 19 18 e4 |..[>..B.|........|
|00005bf0| 2a 3e 05 c3 0b 07 cd 79 | 02 c8 2a 3e 05 e5 cd d8 |*>.....y|..*>....|
|00005c00| 02 cd c9 06 e1 cd e7 02 | c3 c9 06 e5 2a 0a 01 22 |........|....*.."|
|00005c10| 42 05 11 06 00 19 22 0a | 01 2a 42 05 d1 cd f6 02 |B.....".|.*B.....|
|00005c20| 11 fe ff cd fb 02 11 fe | ff cd 00 03 c9 c5 d5 e5 |........|........|
|00005c30| 2a 0a 01 e5 11 06 00 19 | 22 0a 01 cd ac 05 e1 d1 |*.......|".......|
|00005c40| cd f6 02 d1 cd fb 02 d1 | cd 00 03 c9 04 c3 fa 30 |........|.......0|
|00005c50| 00 00 00 00 20 43 61 6e | 6e 6f 74 20 63 68 61 6e |.... Can|not chan|
|00005c60| 67 65 20 62 75 69 6c 74 | 2d 69 6e 20 63 6f 6d 6d |ge built|-in comm|
|00005c70| 61 6e 64 73 2e 0d 0a 00 | ed 53 50 07 22 52 07 cd |ands....|.SP."R..|
|00005c80| d8 02 cd 91 02 28 06 21 | 54 07 c3 2e 16 2a 52 07 |.....(.!|T....*R.|
|00005c90| cd d8 02 11 ff ff cd 42 | 02 28 07 23 23 22 52 07 |.......B|.(.##"R.|
|00005ca0| 18 eb 2a 50 07 11 ff ff | cd d2 05 eb 2a 52 07 73 |..*P....|....*R.s|
|00005cb0| 23 72 2a 50 07 11 ff ff | cd d2 05 eb 2a 4e 07 73 |#r*P....|....*N.s|
|00005cc0| 23 72 2b cd d8 02 23 23 | 22 4e 07 2a 0a 01 22 0e |#r+...##|"N.*..".|
|00005cd0| 01 c9 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ce0| 00 00 e5 cd 9f 02 28 0f | cd ec 02 11 fe ff cd 42 |......(.|.......B|
|00005cf0| 02 28 04 d1 e5 18 ec e1 | c9 22 d2 07 ed 53 d4 07 |.(......|."...S..|
|00005d00| eb cd d8 02 ed 5b d2 07 | cd 42 02 28 0c 2a d4 07 |.....[..|.B.(.*..|
|00005d10| 11 06 00 19 22 d4 07 18 | e8 2a d4 07 c9 22 d6 07 |...."...|.*..."..|
|00005d20| ed 53 da 07 d9 22 d8 07 | ed 53 dc 07 cd c0 02 28 |.S..."..|.S.....(|
|00005d30| 23 ed 5b dc 07 cd f9 07 | cd e2 07 22 e0 07 cd 9f |#.[.....|..."....|
|00005d40| 02 20 11 2a e0 07 cd ec | 02 e5 2a e0 07 cd d8 02 |. .*....|..*.....|
|00005d50| d1 d9 18 c9 2a d6 07 cd | c0 02 ca 16 09 ed 5b da |....*...|......[.|
|00005d60| 07 cd f9 07 cd e2 07 22 | de 07 cd 9f 02 ca fd 08 |......."|........|
|00005d70| 2a d8 07 cd c0 02 28 6e | 2a e0 07 ed 5b de 07 cd |*.....(n|*...[...|
|00005d80| 42 02 28 5e 30 0e 2a e0 | 07 e5 2a de 07 22 e0 07 |B.(^0.*.|..*.."..|
|00005d90| e1 22 de 07 2a e0 07 cd | e7 02 11 fe ff cd 42 02 |."..*...|......B.|
|00005da0| 28 2c 2a e0 07 e5 cd d8 | 02 d1 01 fe ff cd 2d 07 |(,*.....|......-.|
|00005db0| eb d5 2a e0 07 cd 00 03 | 2a e0 07 cd d8 02 11 fe |..*.....|*.......|
|00005dc0| ff 4b 42 cd 2d 07 22 e0 | 07 eb e1 cd 00 03 2a e0 |.KB.-.".|......*.|
|00005dd0| 07 ed 5b de 07 cd fb 02 | 2a de 07 ed 5b e0 07 cd |..[.....|*...[...|
|00005de0| 00 03 3e 01 b7 c9 2a d8 | 07 ed 5b de 07 ed 4b dc |..>...*.|..[...K.|
|00005df0| 07 cd 2d 07 eb 2a de 07 | cd 00 03 18 e5 2a d8 07 |..-..*..|.....*..|
|00005e00| ed 5b dc 07 d9 2a de 07 | cd ec 02 e5 2a de 07 cd |.[...*..|....*...|
|00005e10| d8 02 d1 c3 1d 08 2a d6 | 07 cd 79 02 28 5f 2a d8 |......*.|..y.(_*.|
|00005e20| 07 cd c0 02 28 18 2a d6 | 07 ed 5b e0 07 ed 4b da |....(.*.|..[...K.|
|00005e30| 07 cd 2d 07 eb 2a e0 07 | cd 00 03 c3 e2 08 2a d8 |..-..*..|......*.|
|00005e40| 07 cd 79 02 28 35 2a d8 | 07 e5 cd d8 02 ed 5b dc |..y.(5*.|......[.|
|00005e50| 07 d5 d9 2a d6 07 e5 cd | d8 02 ed 5b da 07 d5 cd |...*....|...[....|
|00005e60| 1d 08 28 13 d1 e1 d5 cd | e7 02 d1 d9 d1 e1 d5 cd |..(.....|........|
|00005e70| e7 02 d1 d9 c3 1d 08 e1 | e1 e1 e1 af c9 2a d8 07 |........|.....*..|
|00005e80| cd c0 02 28 18 2a d6 07 | ed 5b e0 07 ed 4b da 07 |...(.*..|.[...K..|
|00005e90| cd 2d 07 eb 2a e0 07 cd | 00 03 c3 e2 08 cd 79 02 |.-..*...|......y.|
|00005ea0| 20 d9 ed 5b d6 07 cd 42 | 02 ca e2 08 18 cd 32 04 | ..[...B|......2.|
|00005eb0| 05 ca 87 33 77 2b 00 00 | 00 00 00 00 00 00 0d 0a |...3w+..|........|
|00005ec0| 52 65 74 72 79 20 6f 6e | 20 4c 45 53 53 2e 00 0d |Retry on| LESS...|
|00005ed0| 0a 09 00 29 0d 0a 00 21 | ff ff c3 39 03 22 b6 09 |...)...!|...9."..|
|00005ee0| ed 53 b8 09 cd d8 02 cd | c0 02 28 32 e5 2a b8 09 |.S......|..(2.*..|
|00005ef0| cd d8 02 eb e1 cd f9 07 | cd e2 07 22 bc 09 cd 9f |........|..."....|
|00005f00| 02 28 04 21 fe ff c9 cd | d8 02 eb 2a b6 09 73 23 |.(.!....|...*..s#|
|00005f10| 72 2a bc 09 cd ec 02 eb | 2a b8 09 73 23 72 2a b6 |r*......|*..s#r*.|
|00005f20| 09 cd d8 02 cd 79 02 28 | 41 cd d8 02 22 ba 09 cd |.....y.(|A..."...|
|00005f30| c0 02 28 23 e5 2a b8 09 | cd d8 02 eb e1 cd f9 07 |..(#.*..|........|
|00005f40| cd e2 07 22 bc 09 cd d8 | 02 22 ba 09 cd c0 02 28 |..."....|.".....(|
|00005f50| 06 2a bc 09 22 ba 09 2a | b6 09 e5 cd d8 02 cd e7 |.*.."..*|........|
|00005f60| 02 eb e1 73 23 72 2a ba | 09 c9 21 fe ff c9 21 01 |...s#r*.|..!...!.|
|00005f70| 00 7c b5 c9 21 00 00 18 | f8 21 82 0a cd da 09 c3 |.|..!...|.!......|
|00005f80| 6e 0a 21 ff ff 7c b5 c9 | e5 d5 cd d7 09 cd b4 14 |n.!..|..|........|
|00005f90| d1 e1 cd b4 13 3a c1 12 | 3d c2 6e 0a 11 c2 12 0e |.....:..|=.n.....|
|00005fa0| 0f cd 05 00 3c 20 06 32 | c1 12 c3 74 0a 11 c2 12 |....< .2|...t....|
|00005fb0| 0e 23 cd 05 00 2a e3 12 | 2b 22 e3 12 11 e6 12 0e |.#...*..|+"......|
|00005fc0| 1a cd 05 00 11 c2 12 0e | 21 cd 05 00 21 e6 12 7e |........|!...!..~|
|00005fd0| fe 1a 28 16 23 d5 11 66 | 13 cd 42 02 d1 20 f0 11 |..(.#..f|..B.. ..|
|00005fe0| c2 12 0e 14 cd 05 00 21 | 66 13 22 66 13 c3 6e 0a |.......!|f."f..n.|
|00005ff0| cd d7 09 cd b4 14 c3 6e | 0a e5 d5 cd d7 09 cd b4 |.......n|........|
|00006000| 14 d1 e1 cd b4 13 cd 75 | 0d c3 6e 0a c3 74 0a 22 |.......u|..n..t."|
|00006010| ae 09 ed 53 b0 09 cd d7 | 09 21 ae 09 11 b0 09 cd |...S....|.!......|
|00006020| dd 09 22 b2 09 d5 11 fe | ff cd 42 02 d1 ca 74 0a |..".....|..B...t.|
|00006030| 21 ae 09 11 b0 09 cd dd | 09 22 b4 09 d5 11 fe ff |!.......|."......|
|00006040| cd 42 02 d1 ca 74 0a 2a | b2 09 cd 91 02 28 18 2a |.B...t.*|.....(.*|
|00006050| b4 09 cd 91 02 28 10 2a | b2 09 ed 5b b4 09 cd 42 |.....(.*|...[...B|
|00006060| 02 da 6e 0a c3 74 0a 2a | b2 09 cd a8 02 28 1f 2a |..n..t.*|.....(.*|
|00006070| b4 09 cd a8 02 28 17 2a | b4 09 cd 0a 03 e5 2a b2 |.....(.*|......*.|
|00006080| 09 cd 0a 03 d1 cd 80 04 | da 6e 0a c3 74 0a 21 ff |........|.n..t.!.|
|00006090| ff cd 9e 06 2a b2 09 cd | 9f 02 28 3c 21 fe 0b cd |....*...|..(<!...|
|000060a0| da 09 2a b4 09 cd 91 02 | 28 0e 2a b4 09 2b ed 5b |..*.....|(.*..+.[|
|000060b0| b2 09 cd 04 0c c3 6e 0a | 2a b4 09 cd 9f 02 ca 74 |......n.|*......t|
|000060c0| 0a 21 00 00 ed 5b b2 09 | cd 04 0c 21 01 00 ed 5b |.!...[..|...!...[|
|000060d0| b4 09 cd 04 0c c3 6e 0a | 2a b4 09 cd 9f 02 ca 74 |......n.|*......t|
|000060e0| 0a 21 fe 0b cd da 09 2a | b2 09 cd 91 02 ca 74 0a |.!.....*|......t.|
|000060f0| 2a b2 09 23 ed 5b b4 09 | cd 04 0c c3 6e 0a 21 be |*..#.[..|....n.!.|
|00006100| 09 c3 44 16 d5 11 ff ff | d9 e1 e5 cd d8 02 d1 d9 |..D.....|........|
|00006110| c3 1d 08 cd d7 09 2a 4f | 16 cd 1f 0c c3 6e 0a 22 |......*O|.....n."|
|00006120| ae 09 d5 11 ff ff cd 42 | 02 d1 c8 2a ae 09 e5 cd |.......B|...*....|
|00006130| e7 02 cd 1f 0c e1 22 ae | 09 cd d8 02 22 b2 09 cd |......".|...."...|
|00006140| 79 02 28 1a 2a b2 09 cd | d8 02 cd 66 0c 2a b2 09 |y.(.*...|...f.*..|
|00006150| cd e7 02 22 b2 09 cd 79 | 02 20 e9 cd 5a 14 2a ae |..."...y|. ..Z.*.|
|00006160| 09 cd ec 02 18 b9 22 b4 | 09 3e 28 cd 61 14 2a b4 |......".|.>(.a.*.|
|00006170| 09 cd d8 02 11 ff ff cd | dc 14 2a b4 09 cd e7 02 |........|..*.....|
|00006180| 22 b4 09 cd 79 02 28 14 | 21 cf 09 cd ab 14 2a b4 |"...y.(.|!.....*.|
|00006190| 09 cd d8 02 11 ff ff cd | dc 14 18 de 21 d3 09 c3 |........|....!...|
|000061a0| ab 14 cd 8b 11 cd d7 09 | 3a db 10 3d c2 6e 0a 3a |........|:..=.n.:|
|000061b0| e5 10 fe 20 20 09 21 f9 | 16 11 e5 10 cd 99 13 c3 |... .!.|........|
|000061c0| cf 0c cd 8b 11 cd d7 09 | 3a db 10 3d c2 6e 0a 11 |........|:..=.n..|
|000061d0| dc 10 0e 0f cd 05 00 3c | 20 07 af 32 db 10 c3 74 |.......<| ..2...t|
|000061e0| 0a af 32 fc 10 21 82 11 | 22 82 11 c3 6e 0a 22 ae |..2..!..|"...n.".|
|000061f0| 09 ed 53 b0 09 cd d7 09 | cd 88 03 18 13 22 ae 09 |..S.....|....."..|
|00006200| ed 53 b0 09 cd d7 09 cd | 8a 12 3a da 10 6f 26 00 |.S......|..:..o&.|
|00006210| 11 ff ff cd d2 05 22 b2 | 09 21 ff ff cd 9e 06 2a |......".|.!.....*|
|00006220| b2 09 11 ff ff d9 2a ae | 09 ed 5b b0 09 cd 1d 08 |......*.|..[.....|
|00006230| c2 6e 0a 2a b2 09 cd 44 | 05 c3 74 0a 22 ae 09 ed |.n.*...D|..t."...|
|00006240| 53 b0 09 cd d7 09 af 32 | 07 01 cd a9 01 18 c1 e5 |S......2|........|
|00006250| d5 cd d7 09 cd b4 14 d1 | e1 cd b4 13 3a cb 12 fe |........|....:...|
|00006260| 20 20 09 21 f9 16 11 cb | 12 cd 99 13 cd 75 0d cd | .!....|.....u..|
|00006270| 16 0c c3 f3 0a 3a c1 12 | 3d c0 11 c2 12 0e 13 cd |.....:..|=.......|
|00006280| 05 00 11 c2 12 0e 16 cd | 05 00 3c ca 74 0a 21 e6 |........|..<.t.!.|
|00006290| 12 22 66 13 c9 22 ae 09 | ed 53 b0 09 cd d7 09 2a |."f.."..|.S.....*|
|000062a0| ae 09 cd c0 02 28 21 ed | 5b b0 09 cd f9 07 cd e2 |.....(!.|[.......|
|000062b0| 07 22 b2 09 cd 9f 02 20 | 0f cd d8 02 22 ae 09 2a |."..... |...."..*|
|000062c0| b2 09 cd ec 02 22 b0 09 | 2a ae 09 cd 79 02 28 3b |....."..|*...y.(;|
|000062d0| cd d8 02 ed 5b b0 09 cd | dc 14 2a ae 09 cd e7 02 |....[...|..*.....|
|000062e0| 22 ae 09 cd c0 02 28 e0 | ed 5b b0 09 cd f9 07 cd |".....(.|.[......|
|000062f0| e2 07 22 b2 09 cd 9f 02 | 20 ce cd d8 02 22 ae 09 |..".....| ...."..|
|00006300| 2a b2 09 cd ec 02 22 b0 | 09 18 bd c3 6e 0a 22 ae |*.....".|....n.".|
|00006310| 09 ed 53 b0 09 cd d7 09 | 21 ae 09 11 b0 09 cd dd |..S.....|!.......|
|00006320| 09 cd 91 02 ca 74 0a 11 | 00 01 cd 42 02 d2 74 0a |.....t..|...B..t.|
|00006330| 7d cd 61 14 c3 6e 0a 00 | 00 00 00 59 65 73 2e 00 |}.a..n..|...Yes..|
|00006340| 00 00 00 20 3d 20 00 4d | 6f 72 65 3f 00 00 00 0d |... = .M|ore?....|
|00006350| 0a 4d 65 74 61 2d 76 61 | 72 69 61 62 6c 65 20 72 |.Meta-va|riable r|
|00006360| 65 6d 61 69 6e 69 6e 67 | 00 11 ff ff cd d2 05 dd |emaining|........|
|00006370| 21 ff ff cd 9e 06 fd 22 | 37 0e cd 7e 05 c3 89 0f |!......"|7..~....|
|00006380| cd 1d 03 cd 91 02 ca 1b | 0f fd 21 ff ff cd 0f 03 |........|..!.....|
|00006390| cd 66 03 e5 cd 16 03 d1 | cd d0 10 cd 9e 10 e5 d5 |.f......|........|
|000063a0| cd 1d 03 22 a9 0e d1 e1 | cd 00 00 28 5d 11 ff ff |..."....|...(]...|
|000063b0| cd 42 02 20 3e cd 24 03 | e5 fd e1 dd e5 e1 cd 44 |.B. >.$.|.......D|
|000063c0| 05 cd 0f 03 22 39 0e cd | d8 02 e5 dd e1 11 ff ff |...."9..|........|
|000063d0| cd 42 02 20 02 af c9 cd | 48 05 2a 39 0e fd e5 d1 |.B. ....|H.*9....|
|000063e0| cd 42 02 28 41 cd 47 03 | cd 44 05 cd f1 02 e5 fd |.B.(A.G.|.D......|
|000063f0| e1 18 e4 fd e5 e1 11 ff | ff cd 42 02 20 06 21 ff |........|..B. .!.|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.