/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / function.arc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1a 03 46 55 4e 43 30 32 | 2e 49 4e 43 00 12 3b dc |..FUNC02|.INC..;.|
|00000010| 00 00 00 cf 0a 25 8f ad | 6d 80 01 00 00 7b 20 44 |.....%..|m....{ D|
|00000020| 69 73 70 6c 61 79 20 63 | 68 61 72 61 63 74 65 72 |isplay c|haracter|
|00000030| 20 90 34 7d 0d 0a 0d 0a | 50 52 4f 43 45 44 55 52 | .4}....|PROCEDUR|
|00000040| 45 20 46 75 6e 63 30 32 | 20 28 43 20 3a 20 43 48 |E Func02| (C : CH|
|00000050| 41 52 29 3b 0d 0a 20 42 | 45 47 49 4e 0d 0a 20 20 |AR);.. B|EGIN..  |
|00000060| 57 49 54 48 20 52 65 67 | 69 73 74 65 72 73 20 44 |WITH Reg|isters D|
|00000070| 4f 0d 0a 20 90 03 42 45 | 47 49 4e 0d 0a 20 90 04 |O.. ..BE|GIN.. ..|
|00000080| 41 58 3a 3d 28 28 41 58 | 20 41 4e 44 20 24 30 30 |AX:=((AX| AND $00|
|00000090| 46 46 29 20 4f 52 20 28 | 24 30 32 20 53 48 4c 20 |FF) OR (|$02 SHL |
|000000a0| 38 29 29 3b 0d 0a 20 90 | 04 44 58 3a 3d 28 28 44 |8));.. .|.DX:=((D|
|000000b0| 58 20 41 4e 44 20 24 46 | 46 30 30 29 20 4f 52 20 |X AND $F|F00) OR |
|000000c0| 49 4e 54 45 47 45 52 20 | 28 43 29 29 3b 0d 0a 20 |INTEGER |(C));.. |
|000000d0| 90 04 4d 53 44 4f 53 20 | 28 52 65 67 69 73 74 65 |..MSDOS |(Registe|
|000000e0| 72 73 29 3b 0d 0a 20 90 | 03 45 4e 44 3b 0d 0a 20 |rs);.. .|.END;.. |
|000000f0| 45 4e 44 3b 0d 0a 1a 90 | 73 1a 03 46 55 4e 43 30 |END;....|s..FUNC0|
|00000100| 33 2e 49 4e 43 00 12 3b | c8 00 00 00 cf 0a 25 8f |3.INC..;|......%.|
|00000110| c3 be 00 01 00 00 7b 20 | 41 75 78 69 6c 69 61 72 |......{ |Auxiliar|
|00000120| 79 20 69 6e 70 75 74 20 | 90 36 7d 0d 0a 0d 0a 46 |y input |.6}....F|
|00000130| 55 4e 43 54 49 4f 4e 20 | 46 75 6e 63 30 33 20 3a |UNCTION |Func03 :|
|00000140| 20 43 48 41 52 3b 0d 0a | 20 42 45 47 49 4e 0d 0a | CHAR;..| BEGIN..|
|00000150| 20 20 57 49 54 48 20 52 | 65 67 69 73 74 65 72 73 |  WITH R|egisters|
|00000160| 20 44 4f 0d 0a 20 90 03 | 42 45 47 49 4e 0d 0a 20 | DO.. ..|BEGIN.. |
|00000170| 90 04 41 58 3a 3d 28 28 | 41 58 20 41 4e 44 20 24 |..AX:=((|AX AND $|
|00000180| 30 30 46 46 29 20 4f 52 | 20 28 24 30 33 20 53 48 |00FF) OR| ($03 SH|
|00000190| 4c 20 38 29 29 3b 0d 0a | 20 90 04 4d 53 44 4f 53 |L 8));..| ..MSDOS|
|000001a0| 20 28 52 65 67 69 73 74 | 65 72 73 29 3b 0d 0a 20 | (Regist|ers);.. |
|000001b0| 90 04 46 75 6e 63 30 33 | 3a 3d 28 41 58 20 41 4e |..Func03|:=(AX AN|
|000001c0| 44 20 24 30 30 46 46 29 | 3b 0d 0a 20 90 03 45 4e |D $00FF)|;.. ..EN|
|000001d0| 44 3b 0d 0a 20 45 4e 44 | 3b 0d 0a 1a 90 05 1a 03 |D;.. END|;.......|
|000001e0| 46 55 4e 43 30 34 2e 49 | 4e 43 00 12 3b db 00 00 |FUNC04.I|NC..;...|
|000001f0| 00 cf 0a 25 8f 05 69 80 | 01 00 00 7b 20 41 75 78 |...%..i.|...{ Aux|
|00000200| 69 6c 69 61 72 79 20 6f | 75 74 70 75 74 20 90 35 |iliary o|utput .5|
|00000210| 7d 0d 0a 0d 0a 50 52 4f | 43 45 44 55 52 45 20 46 |}....PRO|CEDURE F|
|00000220| 75 6e 63 30 34 20 28 43 | 20 3a 20 43 48 41 52 29 |unc04 (C| : CHAR)|
|00000230| 3b 0d 0a 20 42 45 47 49 | 4e 0d 0a 20 20 57 49 54 |;.. BEGI|N..  WIT|
|00000240| 48 20 52 65 67 69 73 74 | 65 72 73 20 44 4f 0d 0a |H Regist|ers DO..|
|00000250| 20 90 03 42 45 47 49 4e | 0d 0a 20 90 04 41 58 3a | ..BEGIN|.. ..AX:|
|00000260| 3d 28 28 41 58 20 41 4e | 44 20 24 30 30 46 46 29 |=((AX AN|D $00FF)|
|00000270| 20 4f 52 20 28 24 30 34 | 20 53 48 4c 20 38 29 29 | OR ($04| SHL 8))|
|00000280| 3b 0d 0a 20 90 04 44 58 | 3a 3d 28 28 44 58 20 41 |;.. ..DX|:=((DX A|
|00000290| 4e 44 20 24 46 46 30 30 | 29 20 4f 52 20 49 4e 54 |ND $FF00|) OR INT|
|000002a0| 45 47 45 52 20 28 43 29 | 29 3b 0d 0a 20 90 04 4d |EGER (C)|);.. ..M|
|000002b0| 53 44 4f 53 20 28 52 65 | 67 69 73 74 65 72 73 29 |SDOS (Re|gisters)|
|000002c0| 3b 0d 0a 20 90 03 45 4e | 44 3b 0d 0a 20 45 4e 44 |;.. ..EN|D;.. END|
|000002d0| 3b 0d 0a 1a 90 73 1a 03 | 46 55 4e 43 30 38 2e 49 |;....s..|FUNC08.I|
|000002e0| 4e 43 00 12 3b d2 00 00 | 00 cf 0a 25 8f c5 de 00 |NC..;...|...%....|
|000002f0| 01 00 00 7b 20 57 61 69 | 74 20 66 6f 72 20 6b 65 |...{ Wai|t for ke|
|00000300| 79 62 6f 61 72 64 20 69 | 6e 70 75 74 20 90 2e 7d |yboard i|nput ..}|
|00000310| 0d 0a 0d 0a 46 55 4e 43 | 54 49 4f 4e 20 46 75 6e |....FUNC|TION Fun|
|00000320| 63 30 38 20 3a 20 43 48 | 41 52 3b 0d 0a 20 42 45 |c08 : CH|AR;.. BE|
|00000330| 47 49 4e 0d 0a 20 20 57 | 49 54 48 20 52 65 67 69 |GIN..  W|ITH Regi|
|00000340| 73 74 65 72 73 20 44 4f | 0d 0a 20 90 03 42 45 47 |sters DO|.. ..BEG|
|00000350| 49 4e 0d 0a 20 90 04 41 | 58 3a 3d 28 28 41 58 20 |IN.. ..A|X:=((AX |
|00000360| 41 4e 44 20 24 30 30 46 | 46 29 20 4f 52 20 28 24 |AND $00F|F) OR ($|
|00000370| 30 38 20 53 48 4c 20 38 | 29 29 3b 0d 0a 20 90 04 |08 SHL 8|));.. ..|
|00000380| 4d 53 44 4f 53 20 28 52 | 65 67 69 73 74 65 72 73 |MSDOS (R|egisters|
|00000390| 29 3b 0d 0a 20 90 04 46 | 75 6e 63 30 38 3a 3d 43 |);.. ..F|unc08:=C|
|000003a0| 48 52 20 28 41 58 20 41 | 4e 44 20 24 30 30 46 46 |HR (AX A|ND $00FF|
|000003b0| 29 3b 0d 0a 20 90 03 45 | 4e 44 3b 0d 0a 20 45 4e |);.. ..E|ND;.. EN|
|000003c0| 44 3b 0d 0a 1a 1a 03 46 | 55 4e 43 31 39 2e 49 4e |D;.....F|UNC19.IN|
|000003d0| 43 00 12 3b d5 00 00 00 | cf 0a 26 8f 2a f1 00 01 |C..;....|..&.*...|
|000003e0| 00 00 7b 20 47 65 74 20 | 74 68 65 20 64 65 66 61 |..{ Get |the defa|
|000003f0| 75 6c 74 20 64 72 69 76 | 65 20 63 6f 64 65 20 90 |ult driv|e code .|
|00000400| 2b 7d 0d 0a 0d 0a 46 55 | 4e 43 54 49 4f 4e 20 46 |+}....FU|NCTION F|
|00000410| 75 6e 63 31 39 20 3a 20 | 49 4e 54 45 47 45 52 3b |unc19 : |INTEGER;|
|00000420| 0d 0a 20 42 45 47 49 4e | 0d 0a 20 20 57 49 54 48 |.. BEGIN|..  WITH|
|00000430| 20 52 65 67 69 73 74 65 | 72 73 20 44 4f 0d 0a 20 | Registe|rs DO.. |
|00000440| 90 03 42 45 47 49 4e 0d | 0a 20 90 04 41 58 3a 3d |..BEGIN.|. ..AX:=|
|00000450| 28 28 41 58 20 41 4e 44 | 20 24 30 30 46 46 29 20 |((AX AND| $00FF) |
|00000460| 4f 52 20 28 24 31 39 20 | 53 48 4c 20 38 29 29 3b |OR ($19 |SHL 8));|
|00000470| 0d 0a 20 90 04 4d 53 44 | 4f 53 20 28 52 65 67 69 |.. ..MSD|OS (Regi|
|00000480| 73 74 65 72 73 29 3b 0d | 0a 20 90 04 46 75 6e 63 |sters);.|. ..Func|
|00000490| 31 39 3a 3d 28 41 58 20 | 41 4e 44 20 24 30 30 46 |19:=(AX |AND $00F|
|000004a0| 46 29 3b 0d 0a 20 90 03 | 45 4e 44 3b 0d 0a 20 45 |F);.. ..|END;.. E|
|000004b0| 4e 44 3b 0d 0a 1a 1a 1a | 03 46 55 4e 43 31 41 2e |ND;.....|.FUNC1A.|
|000004c0| 49 4e 43 00 12 3b db 00 | 00 00 cf 0a 26 8f 18 00 |INC..;..|....&...|
|000004d0| 80 01 00 00 7b 20 53 65 | 74 20 74 68 65 20 64 69 |....{ Se|t the di|
|000004e0| 73 6b 20 74 72 61 6e 73 | 66 65 72 20 61 64 64 72 |sk trans|fer addr|
|000004f0| 65 73 73 20 90 28 7d 0d | 0a 0d 0a 50 52 4f 43 45 |ess .(}.|...PROCE|
|00000500| 44 55 52 45 20 46 75 6e | 63 31 41 20 28 53 2c 20 |DURE Fun|c1A (S, |
|00000510| 4f 20 3a 20 49 4e 54 45 | 47 45 52 29 3b 0d 0a 20 |O : INTE|GER);.. |
|00000520| 42 45 47 49 4e 0d 0a 20 | 20 57 49 54 48 20 52 65 |BEGIN.. | WITH Re|
|00000530| 67 69 73 74 65 72 73 20 | 44 4f 0d 0a 20 90 03 42 |gisters |DO.. ..B|
|00000540| 45 47 49 4e 0d 0a 20 90 | 04 41 58 3a 3d 28 28 41 |EGIN.. .|.AX:=((A|
|00000550| 58 20 41 4e 44 20 24 30 | 30 46 46 29 20 4f 52 20 |X AND $0|0FF) OR |
|00000560| 28 24 31 41 20 53 48 4c | 20 38 29 29 3b 0d 0a 20 |($1A SHL| 8));.. |
|00000570| 90 04 44 58 3a 3d 4f 3b | 0d 0a 20 90 04 44 53 3a |..DX:=O;|.. ..DS:|
|00000580| 3d 53 3b 0d 0a 20 90 04 | 4d 53 44 4f 53 20 28 52 |=S;.. ..|MSDOS (R|
|00000590| 65 67 69 73 74 65 72 73 | 29 3b 0d 0a 20 90 03 45 |egisters|);.. ..E|
|000005a0| 4e 44 3b 0d 0a 20 45 4e | 44 3b 0d 0a 1a 90 7f 1a |ND;.. EN|D;......|
|000005b0| 03 46 55 4e 43 31 43 2e | 49 4e 43 00 12 3b 0a 01 |.FUNC1C.|INC..;..|
|000005c0| 00 00 cf 0a 26 8f 89 5e | 80 01 00 00 7b 20 47 65 |....&..^|....{ Ge|
|000005d0| 74 20 61 6c 6c 6f 63 61 | 74 69 6f 6e 20 74 61 62 |t alloca|tion tab|
|000005e0| 6c 65 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 66 |le infor|mation f|
|000005f0| 6f 72 20 61 20 73 70 65 | 63 69 66 69 63 20 64 69 |or a spe|cific di|
|00000600| 73 6b 20 64 72 69 76 65 | 20 90 0b 7d 0d 0a 0d 0a |sk drive| ..}....|
|00000610| 50 52 4f 43 45 44 55 52 | 45 20 46 75 6e 63 31 43 |PROCEDUR|E Func1C|
|00000620| 20 28 44 20 3a 20 49 4e | 54 45 47 45 52 29 3b 0d | (D : IN|TEGER);.|
|00000630| 0a 20 42 45 47 49 4e 0d | 0a 20 20 57 49 54 48 20 |. BEGIN.|.  WITH |
|00000640| 52 65 67 69 73 74 65 72 | 73 20 44 4f 0d 0a 20 90 |Register|s DO.. .|
|00000650| 03 42 45 47 49 4e 0d 0a | 20 90 04 41 58 3a 3d 28 |.BEGIN..| ..AX:=(|
|00000660| 28 41 58 20 41 4e 44 20 | 24 30 30 46 46 29 20 4f |(AX AND |$00FF) O|
|00000670| 52 20 28 24 31 43 20 53 | 48 4c 20 38 29 29 3b 0d |R ($1C S|HL 8));.|
|00000680| 0a 20 90 04 44 58 3a 3d | 28 28 44 58 20 41 4e 44 |. ..DX:=|((DX AND|
|00000690| 20 24 46 46 30 30 29 20 | 4f 52 20 28 44 20 41 4e | $FF00) |OR (D AN|
|000006a0| 44 20 24 30 30 46 46 29 | 29 3b 0d 0a 20 90 04 4d |D $00FF)|);.. ..M|
|000006b0| 53 44 4f 53 20 28 52 65 | 67 69 73 74 65 72 73 29 |SDOS (Re|gisters)|
|000006c0| 3b 0d 0a 20 90 03 45 4e | 44 3b 0d 0a 20 45 4e 44 |;.. ..EN|D;.. END|
|000006d0| 3b 0d 0a 1a 90 6e 1a 03 | 46 55 4e 43 32 35 2e 49 |;....n..|FUNC25.I|
|000006e0| 4e 43 00 12 3b d6 00 00 | 00 cf 0a 26 8f a6 6e 00 |NC..;...|...&..n.|
|000006f0| 01 00 00 7b 20 53 65 74 | 20 69 6e 74 65 72 72 75 |...{ Set| interru|
|00000700| 70 74 20 76 65 63 74 6f | 72 20 61 64 64 72 65 73 |pt vecto|r addres|
|00000710| 73 20 90 29 7d 0d 0a 0d | 0a 50 52 4f 43 45 44 55 |s .)}...|.PROCEDU|
|00000720| 52 45 20 46 75 6e 63 32 | 35 20 28 53 2c 20 4f 2c |RE Func2|5 (S, O,|
|00000730| 20 56 20 3a 20 49 4e 54 | 45 47 45 52 29 3b 20 20 | V : INT|EGER);  |
|00000740| 0d 0a 20 42 45 47 49 4e | 0d 0a 20 20 57 49 54 48 |.. BEGIN|..  WITH|
|00000750| 20 52 65 67 69 73 74 65 | 72 73 20 44 4f 0d 0a 20 | Registe|rs DO.. |
|00000760| 90 03 42 45 47 49 4e 0d | 0a 20 90 04 41 58 3a 3d |..BEGIN.|. ..AX:=|
|00000770| 28 24 32 35 30 30 20 4f | 52 20 28 56 20 41 4e 44 |($2500 O|R (V AND|
|00000780| 20 24 30 30 46 46 29 29 | 3b 0d 0a 20 90 04 44 58 | $00FF))|;.. ..DX|
|00000790| 3a 3d 4f 3b 0d 0a 20 90 | 04 44 53 3a 3d 53 3b 0d |:=O;.. .|.DS:=S;.|
|000007a0| 0a 20 90 04 4d 53 44 4f | 53 20 28 52 65 67 69 73 |. ..MSDO|S (Regis|
|000007b0| 74 65 72 73 29 3b 0d 0a | 20 90 03 45 4e 44 3b 0d |ters);..| ..END;.|
|000007c0| 0a 20 45 4e 44 3b 0d 0a | 1a 1a 03 46 55 4e 43 32 |. END;..|...FUNC2|
|000007d0| 45 2e 49 4e 43 00 12 3b | ee 00 00 00 cf 0a 26 8f |E.INC..;|......&.|
|000007e0| 70 db 80 01 00 00 7b 20 | 53 65 74 20 6f 72 20 72 |p.....{ |Set or r|
|000007f0| 65 73 65 74 20 74 68 65 | 20 76 65 72 69 66 79 20 |eset the| verify |
|00000800| 66 6c 61 67 20 90 29 7d | 0d 0a 0d 0a 50 52 4f 43 |flag .)}|....PROC|
|00000810| 45 44 55 52 45 20 46 75 | 6e 63 32 45 20 28 46 6c |EDURE Fu|nc2E (Fl|
|00000820| 61 67 20 3a 20 42 4f 4f | 4c 45 41 4e 29 3b 0d 0a |ag : BOO|LEAN);..|
|00000830| 20 42 45 47 49 4e 0d 0a | 20 20 57 49 54 48 20 52 | BEGIN..|  WITH R|
|00000840| 65 67 69 73 74 65 72 73 | 20 44 4f 0d 0a 20 90 03 |egisters| DO.. ..|
|00000850| 42 45 47 49 4e 0d 0a 20 | 90 04 49 46 20 46 6c 61 |BEGIN.. |..IF Fla|
|00000860| 67 20 54 48 45 4e 0d 0a | 20 90 05 41 58 3a 3d 24 |g THEN..| ..AX:=$|
|00000870| 30 90 03 31 0d 0a 20 90 | 04 45 4c 53 45 0d 0a 20 |0..1.. .|.ELSE.. |
|00000880| 90 05 41 58 3a 3d 24 30 | 90 04 3b 0d 0a 20 90 04 |..AX:=$0|..;.. ..|
|00000890| 41 58 3a 3d 28 41 58 20 | 4f 52 20 28 24 32 45 20 |AX:=(AX |OR ($2E |
|000008a0| 53 48 4c 20 38 29 29 3b | 0d 0a 20 90 04 4d 53 44 |SHL 8));|.. ..MSD|
|000008b0| 4f 53 20 28 52 65 67 69 | 73 74 65 72 73 29 3b 0d |OS (Regi|sters);.|
|000008c0| 0a 20 90 03 45 4e 44 3b | 0d 0a 20 45 4e 44 3b 0d |. ..END;|.. END;.|
|000008d0| 0a 1a 90 66 1a 03 46 55 | 4e 43 33 35 2e 49 4e 43 |...f..FU|NC35.INC|
|000008e0| 00 12 3b bc 00 00 00 cf | 0a 27 8f 55 f0 00 01 00 |..;.....|.'.U....|
|000008f0| 00 7b 20 47 65 74 20 69 | 6e 74 65 72 72 75 70 74 |.{ Get i|nterrupt|
|00000900| 20 76 65 63 74 6f 72 20 | 61 64 64 72 65 73 73 20 | vector |address |
|00000910| 90 29 7d 0d 0a 0d 0a 50 | 52 4f 43 45 44 55 52 45 |.)}....P|ROCEDURE|
|00000920| 20 46 75 6e 63 33 35 20 | 28 56 20 3a 20 49 4e 54 | Func35 |(V : INT|
|00000930| 45 47 45 52 29 3b 20 20 | 0d 0a 20 42 45 47 49 4e |EGER);  |.. BEGIN|
|00000940| 0d 0a 20 20 57 49 54 48 | 20 52 65 67 69 73 74 65 |..  WITH| Registe|
|00000950| 72 73 20 44 4f 0d 0a 20 | 90 03 42 45 47 49 4e 0d |rs DO.. |..BEGIN.|
|00000960| 0a 20 90 04 41 58 3a 3d | 28 24 33 35 30 30 20 4f |. ..AX:=|($3500 O|
|00000970| 52 20 28 56 20 41 4e 44 | 20 24 30 30 46 46 29 29 |R (V AND| $00FF))|
|00000980| 3b 0d 0a 20 90 04 4d 53 | 44 4f 53 20 28 52 65 67 |;.. ..MS|DOS (Reg|
|00000990| 69 73 74 65 72 73 29 3b | 0d 0a 20 90 03 45 4e 44 |isters);|.. ..END|
|000009a0| 3b 0d 0a 20 45 4e 44 3b | 0d 0a 1a 90 1f 1a 03 46 |;.. END;|.......F|
|000009b0| 55 4e 43 33 36 2e 49 4e | 43 00 12 3b e3 00 00 00 |UNC36.IN|C..;....|
|000009c0| cf 0a 27 8f 00 80 80 01 | 00 00 7b 20 47 65 74 20 |..'.....|..{ Get |
|000009d0| 64 69 73 6b 20 66 72 65 | 65 20 73 70 61 63 65 20 |disk fre|e space |
|000009e0| 90 32 7d 0d 0a 0d 0a 50 | 52 4f 43 45 44 55 52 45 |.2}....P|ROCEDURE|
|000009f0| 20 46 75 6e 63 33 36 20 | 28 44 20 3a 20 49 4e 54 | Func36 |(D : INT|
|00000a00| 45 47 45 52 29 3b 0d 0a | 20 42 45 47 49 4e 0d 0a |EGER);..| BEGIN..|
|00000a10| 20 20 57 49 54 48 20 52 | 65 67 69 73 74 65 72 73 |  WITH R|egisters|
|00000a20| 20 44 4f 0d 0a 20 90 03 | 42 45 47 49 4e 0d 0a 20 | DO.. ..|BEGIN.. |
|00000a30| 90 04 41 58 3a 3d 28 28 | 41 58 20 41 4e 44 20 24 |..AX:=((|AX AND $|
|00000a40| 30 30 46 46 29 20 4f 52 | 20 28 24 33 36 20 53 48 |00FF) OR| ($36 SH|
|00000a50| 4c 20 38 29 29 3b 0d 0a | 20 90 04 44 58 3a 3d 28 |L 8));..| ..DX:=(|
|00000a60| 28 44 58 20 41 4e 44 20 | 24 46 46 30 30 29 20 4f |(DX AND |$FF00) O|
|00000a70| 52 20 28 44 20 41 4e 44 | 20 24 30 30 46 46 29 29 |R (D AND| $00FF))|
|00000a80| 3b 0d 0a 20 90 04 4d 53 | 44 4f 53 20 28 52 65 67 |;.. ..MS|DOS (Reg|
|00000a90| 69 73 74 65 72 73 29 3b | 0d 0a 20 90 03 45 4e 44 |isters);|.. ..END|
|00000aa0| 3b 0d 0a 20 45 4e 44 3b | 0d 0a 1a 90 6e 1a 03 46 |;.. END;|....n..F|
|00000ab0| 55 4e 43 33 39 2e 49 4e | 43 00 12 3b 29 01 00 00 |UNC39.IN|C..;)...|
|00000ac0| cf 0a 27 8f a3 6b 80 01 | 00 00 7b 20 43 72 65 61 |..'..k..|..{ Crea|
|00000ad0| 74 65 20 61 20 73 75 62 | 64 69 72 65 63 74 6f 72 |te a sub|director|
|00000ae0| 79 20 90 30 7d 0d 0a 0d | 0a 46 55 4e 43 54 49 4f |y .0}...|.FUNCTIO|
|00000af0| 4e 20 46 75 6e 63 33 39 | 20 28 53 2c 20 4f 20 3a |N Func39| (S, O :|
|00000b00| 20 49 4e 54 45 47 45 52 | 29 20 3a 20 42 4f 4f 4c | INTEGER|) : BOOL|
|00000b10| 45 41 4e 3b 0d 0a 20 42 | 45 47 49 4e 0d 0a 20 20 |EAN;.. B|EGIN..  |
|00000b20| 57 49 54 48 20 52 65 67 | 69 73 74 65 72 73 20 44 |WITH Reg|isters D|
|00000b30| 4f 0d 0a 20 90 03 42 45 | 47 49 4e 0d 0a 20 90 04 |O.. ..BE|GIN.. ..|
|00000b40| 41 58 3a 3d 28 28 41 58 | 20 41 4e 44 20 24 30 30 |AX:=((AX| AND $00|
|00000b50| 46 46 29 20 4f 52 20 28 | 24 33 39 20 53 48 4c 20 |FF) OR (|$39 SHL |
|00000b60| 38 29 29 3b 0d 0a 20 90 | 04 44 58 3a 3d 4f 3b 0d |8));.. .|.DX:=O;.|
|00000b70| 0a 20 90 04 44 53 3a 3d | 53 3b 0d 0a 20 90 04 4d |. ..DS:=|S;.. ..M|
|00000b80| 53 44 4f 53 20 28 52 65 | 67 69 73 74 65 72 73 29 |SDOS (Re|gisters)|
|00000b90| 3b 0d 0a 20 90 04 49 46 | 20 28 46 6c 61 67 73 20 |;.. ..IF| (Flags |
|00000ba0| 41 4e 44 20 24 30 90 03 | 31 29 3d 31 20 54 48 45 |AND $0..|1)=1 THE|
|00000bb0| 4e 0d 0a 20 90 05 46 75 | 6e 63 33 39 3a 3d 54 52 |N.. ..Fu|nc39:=TR|
|00000bc0| 55 45 0d 0a 20 90 04 45 | 4c 53 45 0d 0a 20 90 05 |UE.. ..E|LSE.. ..|
|00000bd0| 46 75 6e 63 33 39 3a 3d | 46 41 4c 53 45 3b 0d 0a |Func39:=|FALSE;..|
|00000be0| 20 90 03 45 4e 44 3b 0d | 0a 20 45 4e 44 3b 0d 0a | ..END;.|. END;..|
|00000bf0| 1a 90 23 1a 03 46 55 4e | 43 33 41 2e 49 4e 43 00 |..#..FUN|C3A.INC.|
|00000c00| 12 3b 2c 01 00 00 cf 0a | 27 8f e3 55 80 01 00 00 |.;,.....|'..U....|
|00000c10| 7b 20 52 65 6d 6f 76 65 | 20 61 20 64 69 72 65 63 |{ Remove| a direc|
|00000c20| 74 6f 72 79 20 65 6e 74 | 72 79 20 90 2d 7d 0d 0a |tory ent|ry .-}..|
|00000c30| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 46 75 6e 63 33 |..FUNCTI|ON Func3|
|00000c40| 41 20 28 53 2c 20 4f 20 | 3a 20 49 4e 54 45 47 45 |A (S, O |: INTEGE|
|00000c50| 52 29 20 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 0a 20 |R) : BOO|LEAN;.. |
|00000c60| 42 45 47 49 4e 0d 0a 20 | 20 57 49 54 48 20 52 65 |BEGIN.. | WITH Re|
|00000c70| 67 69 73 74 65 72 73 20 | 44 4f 0d 0a 20 90 03 42 |gisters |DO.. ..B|
|00000c80| 45 47 49 4e 0d 0a 20 90 | 04 41 58 3a 3d 28 28 41 |EGIN.. .|.AX:=((A|
|00000c90| 58 20 41 4e 44 20 24 30 | 30 46 46 29 20 4f 52 20 |X AND $0|0FF) OR |
|00000ca0| 28 24 33 41 20 53 48 4c | 20 38 29 29 3b 0d 0a 20 |($3A SHL| 8));.. |
|00000cb0| 90 04 44 58 3a 3d 4f 3b | 0d 0a 20 90 04 44 53 3a |..DX:=O;|.. ..DS:|
|00000cc0| 3d 53 3b 0d 0a 20 90 04 | 4d 53 44 4f 53 20 28 52 |=S;.. ..|MSDOS (R|
|00000cd0| 65 67 69 73 74 65 72 73 | 29 3b 0d 0a 20 90 04 49 |egisters|);.. ..I|
|00000ce0| 46 20 28 46 6c 61 67 73 | 20 41 4e 44 20 24 30 90 |F (Flags| AND $0.|
|00000cf0| 03 31 29 3d 31 20 54 48 | 45 4e 0d 0a 20 90 05 46 |.1)=1 TH|EN.. ..F|
|00000d00| 75 6e 63 33 41 3a 3d 54 | 52 55 45 0d 0a 20 90 04 |unc3A:=T|RUE.. ..|
|00000d10| 45 4c 53 45 0d 0a 20 90 | 05 46 75 6e 63 33 41 3a |ELSE.. .|.Func3A:|
|00000d20| 3d 46 41 4c 53 45 3b 0d | 0a 20 90 03 45 4e 44 3b |=FALSE;.|. ..END;|
|00000d30| 0d 0a 20 45 4e 44 3b 0d | 0a 1a 90 23 1a 03 46 55 |.. END;.|...#..FU|
|00000d40| 4e 43 33 42 2e 49 4e 43 | 00 12 3b 30 01 00 00 cf |NC3B.INC|..;0....|
|00000d50| 0a 28 8f 3d c0 80 01 00 | 00 7b 20 43 68 61 6e 67 |.(.=....|.{ Chang|
|00000d60| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 69 |e the cu|rrent di|
|00000d70| 72 65 63 74 6f 72 79 20 | 90 29 7d 0d 0a 0d 0a 46 |rectory |.)}....F|
|00000d80| 55 4e 43 54 49 4f 4e 20 | 46 75 6e 63 33 42 20 28 |UNCTION |Func3B (|
|00000d90| 53 2c 20 4f 20 3a 20 49 | 4e 54 45 47 45 52 29 20 |S, O : I|NTEGER) |
|00000da0| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 0d 0a 20 42 45 47 |: BOOLEA|N;.. BEG|
|00000db0| 49 4e 0d 0a 20 20 57 49 | 54 48 20 52 65 67 69 73 |IN..  WI|TH Regis|
|00000dc0| 74 65 72 73 20 44 4f 0d | 0a 20 90 03 42 45 47 49 |ters DO.|. ..BEGI|
|00000dd0| 4e 0d 0a 20 90 04 41 58 | 3a 3d 28 28 41 58 20 41 |N.. ..AX|:=((AX A|
|00000de0| 4e 44 20 24 30 30 46 46 | 29 20 4f 52 20 28 24 33 |ND $00FF|) OR ($3|
|00000df0| 42 20 53 48 4c 20 38 29 | 29 3b 0d 0a 20 90 04 44 |B SHL 8)|);.. ..D|
|00000e00| 58 3a 3d 4f 3b 0d 0a 20 | 90 04 44 53 3a 3d 53 3b |X:=O;.. |..DS:=S;|
|00000e10| 0d 0a 20 90 04 4d 53 44 | 4f 53 20 28 52 65 67 69 |.. ..MSD|OS (Regi|
|00000e20| 73 74 65 72 73 29 3b 0d | 0a 20 90 04 49 46 20 28 |sters);.|. ..IF (|
|00000e30| 46 6c 61 67 73 20 41 4e | 44 20 24 30 90 03 31 29 |Flags AN|D $0..1)|
|00000e40| 3d 31 20 54 48 45 4e 0d | 0a 20 90 05 46 75 6e 63 |=1 THEN.|. ..Func|
|00000e50| 33 42 3a 3d 54 52 55 45 | 0d 0a 20 90 04 45 4c 53 |3B:=TRUE|.. ..ELS|
|00000e60| 45 0d 0a 20 90 05 46 75 | 6e 63 33 42 3a 3d 46 41 |E.. ..Fu|nc3B:=FA|
|00000e70| 4c 53 45 3b 0d 0a 20 90 | 03 45 4e 44 3b 0d 0a 20 |LSE;.. .|.END;.. |
|00000e80| 45 4e 44 3b 0d 0a 1a 90 | 23 1a 03 46 55 4e 43 33 |END;....|#..FUNC3|
|00000e90| 43 2e 49 4e 43 00 12 3b | 24 01 00 00 cf 0a 28 8f |C.INC..;|$.....(.|
|00000ea0| 05 da 80 01 00 00 7b 20 | 43 72 65 61 74 65 20 61 |......{ |Create a|
|00000eb0| 20 66 69 6c 65 20 90 38 | 7d 0d 0a 0d 0a 46 55 4e | file .8|}....FUN|
|00000ec0| 43 54 49 4f 4e 20 46 75 | 6e 63 33 43 20 28 53 2c |CTION Fu|nc3C (S,|
|00000ed0| 20 4f 2c 20 41 20 3a 20 | 49 4e 54 45 47 45 52 29 | O, A : |INTEGER)|
|00000ee0| 20 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 0a 20 42 45 | : BOOLE|AN;.. BE|
|00000ef0| 47 49 4e 0d 0a 20 20 57 | 49 54 48 20 52 65 67 69 |GIN..  W|ITH Regi|
|00000f00| 73 74 65 72 73 20 44 4f | 0d 0a 20 90 03 42 45 47 |sters DO|.. ..BEG|
|00000f10| 49 4e 0d 0a 20 90 04 41 | 58 3a 3d 28 28 41 58 20 |IN.. ..A|X:=((AX |
|00000f20| 41 4e 44 20 24 30 30 46 | 46 29 20 4f 52 20 28 24 |AND $00F|F) OR ($|
|00000f30| 33 43 20 53 48 4c 20 38 | 29 29 3b 0d 0a 20 90 04 |3C SHL 8|));.. ..|
|00000f40| 44 58 3a 3d 4f 3b 0d 0a | 20 90 04 44 53 3a 3d 53 |DX:=O;..| ..DS:=S|
|00000f50| 3b 0d 0a 20 90 04 4d 53 | 44 4f 53 20 28 52 65 67 |;.. ..MS|DOS (Reg|
|00000f60| 69 73 74 65 72 73 29 3b | 0d 0a 20 90 04 49 46 20 |isters);|.. ..IF |
|00000f70| 28 46 6c 61 67 73 20 41 | 4e 44 20 24 30 90 03 31 |(Flags A|ND $0..1|
|00000f80| 29 3d 31 20 54 48 45 4e | 0d 0a 20 90 05 46 75 6e |)=1 THEN|.. ..Fun|
|00000f90| 63 33 43 3a 3d 54 52 55 | 45 0d 0a 20 90 04 45 4c |c3C:=TRU|E.. ..EL|
|00000fa0| 53 45 0d 0a 20 90 05 46 | 75 6e 63 33 43 3a 3d 46 |SE.. ..F|unc3C:=F|
|00000fb0| 41 4c 53 45 3b 0d 0a 20 | 90 03 45 4e 44 3b 0d 0a |ALSE;.. |..END;..|
|00000fc0| 20 45 4e 44 3b 0d 0a 1a | 90 20 1a 03 46 55 4e 43 | END;...|. ..FUNC|
|00000fd0| 33 44 2e 49 4e 43 00 12 | 3b 1b 01 00 00 cf 0a 28 |3D.INC..|;......(|
|00000fe0| 8f 45 06 80 01 00 00 7b | 20 4f 70 65 6e 20 61 20 |.E.....{| Open a |
|00000ff0| 66 69 6c 65 20 90 3a 7d | 0d 0a 0d 0a 46 55 4e 43 |file .:}|....FUNC|
|00001000| 54 49 4f 4e 20 46 75 6e | 63 33 44 20 28 53 2c 20 |TION Fun|c3D (S, |
|00001010| 4f 2c 20 41 20 3a 20 49 | 4e 54 45 47 45 52 29 20 |O, A : I|NTEGER) |
|00001020| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 0d 0a 20 42 45 47 |: BOOLEA|N;.. BEG|
|00001030| 49 4e 0d 0a 20 20 57 49 | 54 48 20 52 65 67 69 73 |IN..  WI|TH Regis|
|00001040| 74 65 72 73 20 44 4f 0d | 0a 20 90 03 42 45 47 49 |ters DO.|. ..BEGI|
|00001050| 4e 0d 0a 20 90 04 41 58 | 3a 3d 28 24 33 44 30 30 |N.. ..AX|:=($3D00|
|00001060| 20 4f 52 20 28 41 20 41 | 4e 44 20 24 30 30 46 46 | OR (A A|ND $00FF|
|00001070| 29 29 3b 0d 0a 20 90 04 | 44 58 3a 3d 4f 3b 0d 0a |));.. ..|DX:=O;..|
|00001080| 20 90 04 44 53 3a 3d 53 | 3b 0d 0a 20 90 04 4d 53 | ..DS:=S|;.. ..MS|
|00001090| 44 4f 53 20 28 52 65 67 | 69 73 74 65 72 73 29 3b |DOS (Reg|isters);|
|000010a0| 0d 0a 20 90 04 49 46 20 | 28 46 6c 61 67 73 20 41 |.. ..IF |(Flags A|
|000010b0| 4e 44 20 24 30 90 03 31 | 29 3d 31 20 54 48 45 4e |ND $0..1|)=1 THEN|
|000010c0| 0d 0a 20 90 05 46 75 6e | 63 33 44 3a 3d 54 52 55 |.. ..Fun|c3D:=TRU|
|000010d0| 45 0d 0a 20 90 04 45 4c | 53 45 0d 0a 20 90 05 46 |E.. ..EL|SE.. ..F|
|000010e0| 75 6e 63 33 44 3a 3d 46 | 41 4c 53 45 3b 0d 0a 20 |unc3D:=F|ALSE;.. |
|000010f0| 90 03 45 4e 44 3b 0d 0a | 20 45 4e 44 3b 0d 0a 1a |..END;..| END;...|
|00001100| 90 27 1a 03 46 55 4e 43 | 33 45 2e 49 4e 43 00 12 |.'..FUNC|3E.INC..|
|00001110| 3b 12 01 00 00 cf 0a 28 | 8f de 86 80 01 00 00 7b |;......(|.......{|
|00001120| 20 43 6c 6f 73 65 20 61 | 20 66 69 6c 65 20 90 39 | Close a| file .9|
|00001130| 7d 0d 0a 0d 0a 46 55 4e | 43 54 49 4f 4e 20 46 75 |}....FUN|CTION Fu|
|00001140| 6e 63 33 45 20 28 48 20 | 3a 20 49 4e 54 45 47 45 |nc3E (H |: INTEGE|
|00001150| 52 29 20 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 0a 20 |R) : BOO|LEAN;.. |
|00001160| 42 45 47 49 4e 0d 0a 20 | 20 57 49 54 48 20 52 65 |BEGIN.. | WITH Re|
|00001170| 67 69 73 74 65 72 73 20 | 44 4f 0d 0a 20 90 03 42 |gisters |DO.. ..B|
|00001180| 45 47 49 4e 0d 0a 20 90 | 04 41 58 3a 3d 28 28 41 |EGIN.. .|.AX:=((A|
|00001190| 58 20 41 4e 44 20 24 30 | 30 46 46 29 20 4f 52 20 |X AND $0|0FF) OR |
|000011a0| 28 24 33 45 20 53 48 4c | 20 38 29 29 3b 0d 0a 20 |($3E SHL| 8));.. |
|000011b0| 90 04 42 58 3a 3d 48 3b | 0d 0a 20 90 04 4d 53 44 |..BX:=H;|.. ..MSD|
|000011c0| 4f 53 20 28 52 65 67 69 | 73 74 65 72 73 29 3b 0d |OS (Regi|sters);.|
|000011d0| 0a 20 90 04 49 46 20 28 | 46 6c 61 67 73 20 41 4e |. ..IF (|Flags AN|
|000011e0| 44 20 24 30 90 03 31 29 | 3d 31 20 54 48 45 4e 0d |D $0..1)|=1 THEN.|
|000011f0| 0a 20 90 05 46 75 6e 63 | 33 45 3a 3d 54 52 55 45 |. ..Func|3E:=TRUE|
|00001200| 0d 0a 20 90 04 45 4c 53 | 45 0d 0a 20 90 05 46 75 |.. ..ELS|E.. ..Fu|
|00001210| 6e 63 33 45 3a 3d 46 41 | 4c 53 45 3b 0d 0a 20 90 |nc3E:=FA|LSE;.. .|
|00001220| 03 45 4e 44 3b 0d 0a 20 | 45 4e 44 3b 0d 0a 1a 90 |.END;.. |END;....|
|00001230| 32 1a 03 46 55 4e 43 33 | 46 2e 49 4e 43 00 12 3b |2..FUNC3|F.INC..;|
|00001240| 4a 01 00 00 cf 0a 28 8f | d9 71 80 01 00 00 7b 20 |J.....(.|.q....{ |
|00001250| 52 65 61 64 20 66 72 6f | 6d 20 61 20 66 69 6c 65 |Read fro|m a file|
|00001260| 20 6f 72 20 64 65 76 69 | 63 65 20 90 2b 7d 0d 0a | or devi|ce .+}..|
|00001270| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 46 75 6e 63 33 |..FUNCTI|ON Func3|
|00001280| 46 20 28 53 2c 20 4f 2c | 20 48 2c 20 43 20 3a 20 |F (S, O,| H, C : |
|00001290| 49 4e 54 45 47 45 52 29 | 20 3a 20 42 4f 4f 4c 45 |INTEGER)| : BOOLE|
|000012a0| 41 4e 3b 0d 0a 20 42 45 | 47 49 4e 0d 0a 20 20 57 |AN;.. BE|GIN..  W|
|000012b0| 49 54 48 20 52 65 67 69 | 73 74 65 72 73 20 44 4f |ITH Regi|sters DO|
|000012c0| 0d 0a 20 90 03 42 45 47 | 49 4e 0d 0a 20 90 04 41 |.. ..BEG|IN.. ..A|
|000012d0| 58 3a 3d 28 28 41 58 20 | 41 4e 44 20 24 30 30 46 |X:=((AX |AND $00F|
|000012e0| 46 29 20 4f 52 20 28 24 | 33 46 20 53 48 4c 20 38 |F) OR ($|3F SHL 8|
|000012f0| 29 29 3b 0d 0a 20 90 04 | 42 58 3a 3d 48 3b 0d 0a |));.. ..|BX:=H;..|
|00001300| 20 90 04 43 58 3a 3d 43 | 3b 0d 0a 20 90 04 44 58 | ..CX:=C|;.. ..DX|
|00001310| 3a 3d 4f 3b 0d 0a 20 90 | 04 44 53 3a 3d 53 3b 0d |:=O;.. .|.DS:=S;.|
|00001320| 0a 20 90 04 4d 53 44 4f | 53 20 28 52 65 67 69 73 |. ..MSDO|S (Regis|
|00001330| 74 65 72 73 29 3b 0d 0a | 20 90 04 49 46 20 28 46 |ters);..| ..IF (F|
|00001340| 6c 61 67 73 20 41 4e 44 | 20 24 30 90 03 31 29 3d |lags AND| $0..1)=|
|00001350| 31 20 54 48 45 4e 0d 0a | 20 90 05 46 75 6e 63 33 |1 THEN..| ..Func3|
|00001360| 46 3a 3d 54 52 55 45 0d | 0a 20 90 04 45 4c 53 45 |F:=TRUE.|. ..ELSE|
|00001370| 0d 0a 20 90 05 46 75 6e | 63 33 46 3a 3d 46 41 4c |.. ..Fun|c3F:=FAL|
|00001380| 53 45 3b 0d 0a 20 90 03 | 45 4e 44 3b 0d 0a 20 45 |SE;.. ..|END;.. E|
|00001390| 4e 44 3b 0d 0a 1a 90 05 | 1a 03 46 55 4e 43 34 30 |ND;.....|..FUNC40|
|000013a0| 2e 49 4e 43 00 12 3b 49 | 01 00 00 cf 0a 29 8f a5 |.INC..;I|.....)..|
|000013b0| 86 80 01 00 00 7b 20 57 | 72 69 74 65 20 74 6f 20 |.....{ W|rite to |
|000013c0| 61 20 66 69 6c 65 20 6f | 72 20 64 65 76 69 63 65 |a file o|r device|
|000013d0| 20 90 2c 7d 0d 0a 0d 0a | 46 55 4e 43 54 49 4f 4e | .,}....|FUNCTION|
|000013e0| 20 46 75 6e 63 34 30 20 | 28 53 2c 20 4f 2c 20 48 | Func40 |(S, O, H|
|000013f0| 2c 20 43 20 3a 20 49 4e | 54 45 47 45 52 29 20 3a |, C : IN|TEGER) :|
|00001400| 20 42 4f 4f 4c 45 41 4e | 3b 0d 0a 20 42 45 47 49 | BOOLEAN|;.. BEGI|
|00001410| 4e 0d 0a 20 20 57 49 54 | 48 20 52 65 67 69 73 74 |N..  WIT|H Regist|
|00001420| 65 72 73 20 44 4f 0d 0a | 20 90 03 42 45 47 49 4e |ers DO..| ..BEGIN|
|00001430| 0d 0a 20 90 04 41 58 3a | 3d 28 28 41 58 20 41 4e |.. ..AX:|=((AX AN|
|00001440| 44 20 24 30 30 46 46 29 | 20 4f 52 20 28 24 34 30 |D $00FF)| OR ($40|
|00001450| 20 53 48 4c 20 38 29 29 | 3b 0d 0a 20 90 04 42 58 | SHL 8))|;.. ..BX|
|00001460| 3a 3d 48 3b 0d 0a 20 90 | 04 43 58 3a 3d 43 3b 0d |:=H;.. .|.CX:=C;.|
|00001470| 0a 20 90 04 44 58 3a 3d | 4f 3b 0d 0a 20 90 04 44 |. ..DX:=|O;.. ..D|
|00001480| 53 3a 3d 53 3b 0d 0a 20 | 90 04 4d 53 44 4f 53 20 |S:=S;.. |..MSDOS |
|00001490| 28 52 65 67 69 73 74 65 | 72 73 29 3b 0d 0a 20 90 |(Registe|rs);.. .|
|000014a0| 04 49 46 20 28 46 6c 61 | 67 73 20 41 4e 44 20 24 |.IF (Fla|gs AND $|
|000014b0| 30 90 03 31 29 3d 31 20 | 54 48 45 4e 0d 0a 20 90 |0..1)=1 |THEN.. .|
|000014c0| 05 46 75 6e 63 34 30 3a | 3d 54 52 55 45 0d 0a 20 |.Func40:|=TRUE.. |
|000014d0| 90 04 45 4c 53 45 0d 0a | 20 90 05 46 75 6e 63 34 |..ELSE..| ..Func4|
|000014e0| 30 3a 3d 46 41 4c 53 45 | 3b 0d 0a 20 90 03 45 4e |0:=FALSE|;.. ..EN|
|000014f0| 44 3b 0d 0a 20 45 4e 44 | 3b 0d 0a 1a 90 05 1a 03 |D;.. END|;.......|
|00001500| 46 55 4e 43 34 31 2e 49 | 4e 43 00 12 3b 21 01 00 |FUNC41.I|NC..;!..|
|00001510| 00 cf 0a 29 8f d8 59 80 | 01 00 00 7b 20 44 65 6c |...)..Y.|...{ Del|
|00001520| 65 74 65 20 61 20 66 69 | 6c 65 20 90 38 7d 0d 0a |ete a fi|le .8}..|
|00001530| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 46 75 6e 63 34 |..FUNCTI|ON Func4|
|00001540| 31 20 28 53 2c 20 4f 20 | 3a 20 49 4e 54 45 47 45 |1 (S, O |: INTEGE|
|00001550| 52 29 20 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 0a 20 |R) : BOO|LEAN;.. |
|00001560| 42 45 47 49 4e 0d 0a 20 | 20 57 49 54 48 20 52 65 |BEGIN.. | WITH Re|
|00001570| 67 69 73 74 65 72 73 20 | 44 4f 0d 0a 20 90 03 42 |gisters |DO.. ..B|
|00001580| 45 47 49 4e 0d 0a 20 90 | 04 41 58 3a 3d 28 28 41 |EGIN.. .|.AX:=((A|
|00001590| 58 20 41 4e 44 20 24 30 | 30 46 46 29 20 4f 52 20 |X AND $0|0FF) OR |
|000015a0| 28 24 34 31 20 53 48 4c | 20 38 29 29 3b 0d 0a 20 |($41 SHL| 8));.. |
|000015b0| 90 04 44 58 3a 3d 4f 3b | 0d 0a 20 90 04 44 53 3a |..DX:=O;|.. ..DS:|
|000015c0| 3d 53 3b 0d 0a 20 90 04 | 4d 53 44 4f 53 20 28 52 |=S;.. ..|MSDOS (R|
|000015d0| 65 67 69 73 74 65 72 73 | 29 3b 0d 0a 20 90 04 49 |egisters|);.. ..I|
|000015e0| 46 20 28 46 6c 61 67 73 | 20 41 4e 44 20 24 30 90 |F (Flags| AND $0.|
|000015f0| 03 31 29 3d 31 20 54 48 | 45 4e 0d 0a 20 90 05 46 |.1)=1 TH|EN.. ..F|
|00001600| 75 6e 63 34 31 3a 3d 54 | 52 55 45 0d 0a 20 90 04 |unc41:=T|RUE.. ..|
|00001610| 45 4c 53 45 0d 0a 20 90 | 05 46 75 6e 63 34 31 3a |ELSE.. .|.Func41:|
|00001620| 3d 46 41 4c 53 45 3b 0d | 0a 20 90 03 45 4e 44 3b |=FALSE;.|. ..END;|
|00001630| 0d 0a 20 45 4e 44 3b 0d | 0a 1a 90 23 1a 03 46 55 |.. END;.|...#..FU|
|00001640| 4e 43 34 32 2e 49 4e 43 | 00 12 3b 3b 01 00 00 cf |NC42.INC|..;;....|
|00001650| 0a 29 8f 27 5f 80 01 00 | 00 7b 20 4d 6f 76 65 20 |.).'_...|.{ Move |
|00001660| 61 20 66 69 6c 65 20 72 | 65 61 64 2f 77 72 69 74 |a file r|ead/writ|
|00001670| 65 20 70 6f 69 6e 74 65 | 72 20 90 27 7d 0d 0a 0d |e pointe|r .'}...|
|00001680| 0a 46 55 4e 43 54 49 4f | 4e 20 46 75 6e 63 34 32 |.FUNCTIO|N Func42|
|00001690| 20 28 53 2c 20 4f 2c 20 | 48 2c 20 4d 3a 20 49 4e | (S, O, |H, M: IN|
|000016a0| 54 45 47 45 52 29 20 3a | 20 42 4f 4f 4c 45 41 4e |TEGER) :| BOOLEAN|
|000016b0| 3b 0d 0a 20 42 45 47 49 | 4e 0d 0a 20 20 57 49 54 |;.. BEGI|N..  WIT|
|000016c0| 48 20 52 65 67 69 73 74 | 65 72 73 20 44 4f 0d 0a |H Regist|ers DO..|
|000016d0| 20 90 03 42 45 47 49 4e | 0d 0a 20 90 04 41 58 3a | ..BEGIN|.. ..AX:|
|000016e0| 3d 28 24 34 32 30 30 20 | 4f 52 20 28 4d 20 41 4e |=($4200 |OR (M AN|
|000016f0| 44 20 24 30 30 46 46 29 | 29 3b 0d 0a 20 90 04 42 |D $00FF)|);.. ..B|
|00001700| 58 3a 3d 48 3b 0d 0a 20 | 90 04 43 58 3a 3d 53 3b |X:=H;.. |..CX:=S;|
|00001710| 0d 0a 20 90 04 44 58 3a | 3d 4f 3b 0d 0a 20 90 04 |.. ..DX:|=O;.. ..|
|00001720| 4d 53 44 4f 53 20 28 52 | 65 67 69 73 74 65 72 73 |MSDOS (R|egisters|
|00001730| 29 3b 0d 0a 20 90 04 49 | 46 20 28 46 6c 61 67 73 |);.. ..I|F (Flags|
|00001740| 20 41 4e 44 20 24 30 90 | 03 31 29 3d 31 20 54 48 | AND $0.|.1)=1 TH|
|00001750| 45 4e 0d 0a 20 90 05 46 | 75 6e 63 34 32 3a 3d 54 |EN.. ..F|unc42:=T|
|00001760| 52 55 45 0d 0a 20 90 04 | 45 4c 53 45 0d 0a 20 90 |RUE.. ..|ELSE.. .|
|00001770| 05 46 75 6e 63 34 32 3a | 3d 46 41 4c 53 45 3b 0d |.Func42:|=FALSE;.|
|00001780| 0a 20 90 03 45 4e 44 3b | 0d 0a 20 45 4e 44 3b 0d |. ..END;|.. END;.|
|00001790| 0a 1a 90 19 1a 03 46 55 | 4e 43 34 33 2e 49 4e 43 |......FU|NC43.INC|
|000017a0| 00 12 3b 6a 01 00 00 cf | 0a 29 8f ca 52 00 02 00 |..;j....|.)..R...|
|000017b0| 00 7b 20 43 68 61 6e 67 | 65 20 66 69 6c 65 20 61 |.{ Chang|e file a|
|000017c0| 74 74 72 69 62 75 74 65 | 20 90 30 7d 0d 0a 0d 0a |ttribute| .0}....|
|000017d0| 46 55 4e 43 54 49 4f 4e | 20 46 75 6e 63 34 33 20 |FUNCTION| Func43 |
|000017e0| 28 53 2c 20 4f 20 3a 20 | 49 4e 54 45 47 45 52 3b |(S, O : |INTEGER;|
|000017f0| 20 42 20 3a 20 42 4f 4f | 4c 45 41 4e 3b 20 41 20 | B : BOO|LEAN; A |
|00001800| 3a 20 49 4e 54 45 47 45 | 52 29 20 3a 20 42 4f 4f |: INTEGE|R) : BOO|
|00001810| 4c 45 41 4e 3b 0d 0a 20 | 42 45 47 49 4e 0d 0a 20 |LEAN;.. |BEGIN.. |
|00001820| 20 57 49 54 48 20 52 65 | 67 69 73 74 65 72 73 20 | WITH Re|gisters |
|00001830| 44 4f 0d 0a 20 90 03 42 | 45 47 49 4e 0d 0a 20 90 |DO.. ..B|EGIN.. .|
|00001840| 04 41 58 3a 3d 24 34 33 | 30 30 3b 0d 0a 20 90 04 |.AX:=$43|00;.. ..|
|00001850| 49 46 20 42 20 54 48 45 | 4e 0d 0a 20 90 05 42 45 |IF B THE|N.. ..BE|
|00001860| 47 49 4e 0d 0a 20 90 06 | 41 58 3a 3d 28 41 58 20 |GIN.. ..|AX:=(AX |
|00001870| 4f 52 20 24 30 31 29 3b | 0d 0a 20 90 06 43 58 3a |OR $01);|.. ..CX:|
|00001880| 3d 41 3b 0d 0a 20 90 05 | 45 4e 44 3b 0d 0a 20 90 |=A;.. ..|END;.. .|
|00001890| 04 44 58 3a 3d 4f 3b 0d | 0a 20 90 04 44 53 3a 3d |.DX:=O;.|. ..DS:=|
|000018a0| 53 3b 0d 0a 20 90 04 4d | 53 44 4f 53 20 28 52 65 |S;.. ..M|SDOS (Re|
|000018b0| 67 69 73 74 65 72 73 29 | 3b 0d 0a 20 90 04 49 46 |gisters)|;.. ..IF|
|000018c0| 20 28 46 6c 61 67 73 20 | 41 4e 44 20 24 30 90 03 | (Flags |AND $0..|
|000018d0| 31 29 3d 31 20 54 48 45 | 4e 0d 0a 20 90 05 46 75 |1)=1 THE|N.. ..Fu|
|000018e0| 6e 63 34 33 3a 3d 54 52 | 55 45 0d 0a 20 90 04 45 |nc43:=TR|UE.. ..E|
|000018f0| 4c 53 45 0d 0a 20 90 05 | 46 75 6e 63 34 33 3a 3d |LSE.. ..|Func43:=|
|00001900| 46 41 4c 53 45 3b 0d 0a | 20 90 03 45 4e 44 3b 0d |FALSE;..| ..END;.|
|00001910| 0a 20 45 4e 44 3b 0d 0a | 1a 90 57 1a 03 46 55 4e |. END;..|..W..FUN|
|00001920| 43 34 37 2e 49 4e 43 00 | 12 3b 5b 01 00 00 cf 0a |C47.INC.|.;[.....|
|00001930| 2a 8f 7a 10 00 02 00 00 | 7b 20 47 65 74 20 74 68 |*.z.....|{ Get th|
|00001940| 65 20 63 75 72 72 65 6e | 74 20 64 69 72 65 63 74 |e curren|t direct|
|00001950| 6f 72 79 20 90 2c 7d 0d | 0a 0d 0a 46 55 4e 43 54 |ory .,}.|...FUNCT|
|00001960| 49 4f 4e 20 46 75 6e 63 | 34 37 20 28 53 2c 20 4f |ION Func|47 (S, O|
|00001970| 2c 20 44 20 3a 20 49 4e | 54 45 47 45 52 29 20 3a |, D : IN|TEGER) :|
|00001980| 20 42 4f 4f 4c 45 41 4e | 3b 0d 0a 20 42 45 47 49 | BOOLEAN|;.. BEGI|
|00001990| 4e 0d 0a 20 20 57 49 54 | 48 20 52 65 67 69 73 74 |N..  WIT|H Regist|
|000019a0| 65 72 73 20 44 4f 0d 0a | 20 90 03 42 45 47 49 4e |ers DO..| ..BEGIN|
|000019b0| 0d 0a 20 90 04 41 58 3a | 3d 28 28 41 58 20 41 4e |.. ..AX:|=((AX AN|
|000019c0| 44 20 24 30 30 46 46 29 | 20 4f 52 20 28 24 34 37 |D $00FF)| OR ($47|
|000019d0| 20 53 48 4c 20 38 29 29 | 3b 0d 0a 20 90 04 44 58 | SHL 8))|;.. ..DX|
|000019e0| 3a 3d 28 28 44 58 20 41 | 4e 44 20 24 46 46 30 30 |:=((DX A|ND $FF00|
|000019f0| 29 20 4f 52 20 28 44 20 | 41 4e 44 20 24 30 30 46 |) OR (D |AND $00F|
|00001a00| 46 29 29 3b 0d 0a 20 90 | 04 53 49 3a 3d 4f 3b 0d |F));.. .|.SI:=O;.|
|00001a10| 0a 20 90 04 44 53 3a 3d | 53 3b 0d 0a 20 90 04 4d |. ..DS:=|S;.. ..M|
|00001a20| 53 44 4f 53 20 28 52 65 | 67 69 73 74 65 72 73 29 |SDOS (Re|gisters)|
|00001a30| 3b 0d 0a 20 90 04 49 46 | 20 28 46 6c 61 67 73 20 |;.. ..IF| (Flags |
|00001a40| 41 4e 44 20 24 30 90 03 | 31 29 3d 31 20 54 48 45 |AND $0..|1)=1 THE|
|00001a50| 4e 0d 0a 20 90 05 46 75 | 6e 63 34 37 3a 3d 54 52 |N.. ..Fu|nc47:=TR|
|00001a60| 55 45 0d 0a 20 90 04 45 | 4c 53 45 0d 0a 20 90 05 |UE.. ..E|LSE.. ..|
|00001a70| 46 75 6e 63 34 37 3a 3d | 46 41 4c 53 45 3b 0d 0a |Func47:=|FALSE;..|
|00001a80| 20 90 03 45 4e 44 3b 0d | 0a 20 45 4e 44 3b 0d 0a | ..END;.|. END;..|
|00001a90| 1a 90 74 1a 03 46 55 4e | 43 34 39 2e 49 4e 43 00 |..t..FUN|C49.INC.|
|00001aa0| 12 3b 1b 01 00 00 cf 0a | 2a 8f 46 94 80 01 00 00 |.;......|*.F.....|
|00001ab0| 7b 20 46 72 65 65 20 61 | 6c 6c 6f 63 61 74 65 64 |{ Free a|llocated|
|00001ac0| 20 6d 65 6d 6f 72 79 20 | 90 30 7d 0d 0a 0d 0a 46 | memory |.0}....F|
|00001ad0| 55 4e 43 54 49 4f 4e 20 | 46 75 6e 63 34 39 20 28 |UNCTION |Func49 (|
|00001ae0| 53 20 3a 20 49 4e 54 45 | 47 45 52 29 20 3a 20 42 |S : INTE|GER) : B|
|00001af0| 4f 4f 4c 45 41 4e 3b 0d | 0a 20 42 45 47 49 4e 0d |OOLEAN;.|. BEGIN.|
|00001b00| 0a 20 20 57 49 54 48 20 | 52 65 67 69 73 74 65 72 |.  WITH |Register|
|00001b10| 73 20 44 4f 0d 0a 20 90 | 03 42 45 47 49 4e 0d 0a |s DO.. .|.BEGIN..|
|00001b20| 20 90 04 41 58 3a 3d 28 | 28 41 58 20 41 4e 44 20 | ..AX:=(|(AX AND |
|00001b30| 24 30 30 46 46 29 20 4f | 52 20 28 24 34 39 20 53 |$00FF) O|R ($49 S|
|00001b40| 48 4c 20 38 29 29 3b 0d | 0a 20 90 04 45 53 3a 3d |HL 8));.|. ..ES:=|
|00001b50| 53 3b 0d 0a 20 90 04 4d | 53 44 4f 53 20 28 52 65 |S;.. ..M|SDOS (Re|
|00001b60| 67 69 73 74 65 72 73 29 | 3b 0d 0a 20 90 04 49 46 |gisters)|;.. ..IF|
|00001b70| 20 28 46 6c 61 67 73 20 | 41 4e 44 20 24 30 90 03 | (Flags |AND $0..|
|00001b80| 31 29 3d 31 20 54 48 45 | 4e 0d 0a 20 90 05 46 75 |1)=1 THE|N.. ..Fu|
|00001b90| 6e 63 34 39 3a 3d 54 52 | 55 45 0d 0a 20 90 04 45 |nc49:=TR|UE.. ..E|
|00001ba0| 4c 53 45 0d 0a 20 90 05 | 46 75 6e 63 34 39 3a 3d |LSE.. ..|Func49:=|
|00001bb0| 46 41 4c 53 45 3b 0d 0a | 20 90 03 45 4e 44 3b 0d |FALSE;..| ..END;.|
|00001bc0| 0a 20 45 4e 44 3b 0d 0a | 1a 90 32 1a 03 46 55 4e |. END;..|..2..FUN|
|00001bd0| 43 34 41 2e 49 4e 43 00 | 12 3b 2b 01 00 00 cf 0a |C4A.INC.|.;+.....|
|00001be0| 2a 8f d5 b6 80 01 00 00 | 7b 20 4d 6f 64 69 66 79 |*.......|{ Modify|
|00001bf0| 20 61 6c 6c 6f 63 61 74 | 65 64 20 6d 65 6d 6f 72 | allocat|ed memor|
|00001c00| 79 20 90 2e 7d 0d 0a 0d | 0a 46 55 4e 43 54 49 4f |y ..}...|.FUNCTIO|
|00001c10| 4e 20 46 75 6e 63 34 41 | 20 28 53 2c 20 4e 20 3a |N Func4A| (S, N :|
|00001c20| 20 49 4e 54 45 47 45 52 | 29 20 3a 20 42 4f 4f 4c | INTEGER|) : BOOL|
|00001c30| 45 41 4e 3b 0d 0a 20 42 | 45 47 49 4e 0d 0a 20 20 |EAN;.. B|EGIN..  |
|00001c40| 57 49 54 48 20 52 65 67 | 69 73 74 65 72 73 20 44 |WITH Reg|isters D|
|00001c50| 4f 0d 0a 20 90 03 42 45 | 47 49 4e 0d 0a 20 90 04 |O.. ..BE|GIN.. ..|
|00001c60| 41 58 3a 3d 28 28 41 58 | 20 41 4e 44 20 24 30 30 |AX:=((AX| AND $00|
|00001c70| 46 46 29 20 4f 52 20 28 | 24 34 41 20 53 48 4c 20 |FF) OR (|$4A SHL |
|00001c80| 38 29 29 3b 0d 0a 20 90 | 04 42 58 3a 3d 4e 3b 0d |8));.. .|.BX:=N;.|
|00001c90| 0a 20 90 04 45 53 3a 3d | 53 3b 0d 0a 20 90 04 4d |. ..ES:=|S;.. ..M|
|00001ca0| 53 44 4f 53 20 28 52 65 | 67 69 73 74 65 72 73 29 |SDOS (Re|gisters)|
|00001cb0| 3b 0d 0a 20 90 04 49 46 | 20 28 46 6c 61 67 73 20 |;.. ..IF| (Flags |
|00001cc0| 41 4e 44 20 24 30 90 03 | 31 29 3d 31 20 54 48 45 |AND $0..|1)=1 THE|
|00001cd0| 4e 0d 0a 20 90 05 46 75 | 6e 63 34 41 3a 3d 54 52 |N.. ..Fu|nc4A:=TR|
|00001ce0| 55 45 0d 0a 20 90 04 45 | 4c 53 45 0d 0a 20 90 05 |UE.. ..E|LSE.. ..|
|00001cf0| 46 75 6e 63 34 41 3a 3d | 46 41 4c 53 45 3b 0d 0a |Func4A:=|FALSE;..|
|00001d00| 20 90 03 45 4e 44 3b 0d | 0a 20 45 4e 44 3b 0d 0a | ..END;.|. END;..|
|00001d10| 1a 90 23 1a 03 46 55 4e | 43 34 42 2e 49 4e 43 00 |..#..FUN|C4B.INC.|
|00001d20| 12 3b 4c 01 00 00 cf 0a | 2a 8f 99 7b 80 01 00 00 |.;L.....|*..{....|
|00001d30| 7b 20 4c 6f 61 64 20 61 | 6e 64 20 65 78 65 63 75 |{ Load a|nd execu|
|00001d40| 74 65 20 61 20 70 72 6f | 67 72 61 6d 20 90 2b 7d |te a pro|gram .+}|
|00001d50| 0d 0a 0d 0a 46 55 4e 43 | 54 49 4f 4e 20 46 75 6e |....FUNC|TION Fun|
|00001d60| 63 34 42 20 28 53 31 2c | 20 4f 31 2c 20 53 32 2c |c4B (S1,| O1, S2,|
|00001d70| 20 4f 32 2c 20 46 20 3a | 20 49 4e 54 45 47 45 52 | O2, F :| INTEGER|
|00001d80| 29 20 3a 20 42 4f 4f 4c | 45 41 4e 3b 0d 0a 20 42 |) : BOOL|EAN;.. B|
|00001d90| 45 47 49 4e 0d 0a 20 20 | 57 49 54 48 20 52 65 67 |EGIN..  |WITH Reg|
|00001da0| 69 73 74 65 72 73 20 44 | 4f 0d 0a 20 90 03 42 45 |isters D|O.. ..BE|
|00001db0| 47 49 4e 0d 0a 20 90 04 | 41 58 3a 3d 28 24 34 42 |GIN.. ..|AX:=($4B|
|00001dc0| 30 30 20 4f 52 20 28 46 | 20 41 4e 44 20 24 30 30 |00 OR (F| AND $00|
|00001dd0| 46 46 29 29 3b 0d 0a 20 | 90 04 42 58 3a 3d 4f 32 |FF));.. |..BX:=O2|
|00001de0| 3b 0d 0a 20 90 04 44 58 | 3a 3d 4f 31 3b 0d 0a 20 |;.. ..DX|:=O1;.. |
|00001df0| 90 04 44 53 3a 3d 53 31 | 3b 0d 0a 20 90 04 45 53 |..DS:=S1|;.. ..ES|
|00001e00| 3a 3d 53 32 3b 0d 0a 20 | 90 04 4d 53 44 4f 53 20 |:=S2;.. |..MSDOS |
|00001e10| 28 52 65 67 69 73 74 65 | 72 73 29 3b 0d 0a 20 90 |(Registe|rs);.. .|
|00001e20| 04 49 46 20 28 46 6c 61 | 67 73 20 41 4e 44 20 24 |.IF (Fla|gs AND $|
|00001e30| 30 90 03 31 29 3d 31 20 | 54 48 45 4e 0d 0a 20 90 |0..1)=1 |THEN.. .|
|00001e40| 05 46 75 6e 63 34 42 3a | 3d 54 52 55 45 0d 0a 20 |.Func4B:|=TRUE.. |
|00001e50| 90 04 45 4c 53 45 0d 0a | 20 90 05 46 75 6e 63 34 |..ELSE..| ..Func4|
|00001e60| 42 3a 3d 46 41 4c 53 45 | 3b 0d 0a 20 90 03 45 4e |B:=FALSE|;.. ..EN|
|00001e70| 44 3b 0d 0a 20 45 4e 44 | 3b 0d 0a 1a 1a 03 46 55 |D;.. END|;.....FU|
|00001e80| 4e 43 34 45 2e 49 4e 43 | 00 12 3b 3e 01 00 00 cf |NC4E.INC|..;>....|
|00001e90| 0a 2a 8f c5 24 80 01 00 | 00 7b 20 46 69 6e 64 20 |.*..$...|.{ Find |
|00001ea0| 74 68 65 20 66 69 72 73 | 74 20 6d 61 74 63 68 69 |the firs|t matchi|
|00001eb0| 6e 67 20 66 69 6c 65 20 | 90 29 7d 0d 0a 0d 0a 46 |ng file |.)}....F|
|00001ec0| 55 4e 43 54 49 4f 4e 20 | 46 75 6e 63 34 45 20 28 |UNCTION |Func4E (|
|00001ed0| 53 2c 20 4f 2c 20 41 20 | 3a 20 49 4e 54 45 47 45 |S, O, A |: INTEGE|
|00001ee0| 52 29 20 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 0a 20 |R) : BOO|LEAN;.. |
|00001ef0| 42 45 47 49 4e 0d 0a 20 | 20 57 49 54 48 20 52 65 |BEGIN.. | WITH Re|
|00001f00| 67 69 73 74 65 72 73 20 | 44 4f 0d 0a 20 90 03 42 |gisters |DO.. ..B|
|00001f10| 45 47 49 4e 0d 0a 20 90 | 04 41 58 3a 3d 28 28 41 |EGIN.. .|.AX:=((A|
|00001f20| 58 20 41 4e 44 20 24 30 | 30 46 46 29 20 4f 52 20 |X AND $0|0FF) OR |
|00001f30| 28 24 34 45 20 53 48 4c | 20 38 29 29 3b 0d 0a 20 |($4E SHL| 8));.. |
|00001f40| 90 04 43 58 3a 3d 41 3b | 0d 0a 20 90 04 44 58 3a |..CX:=A;|.. ..DX:|
|00001f50| 3d 4f 3b 0d 0a 20 90 04 | 44 53 3a 3d 53 3b 0d 0a |=O;.. ..|DS:=S;..|
|00001f60| 20 90 04 4d 53 44 4f 53 | 20 28 52 65 67 69 73 74 | ..MSDOS| (Regist|
|00001f70| 65 72 73 29 3b 0d 0a 20 | 90 04 49 46 20 28 46 6c |ers);.. |..IF (Fl|
|00001f80| 61 67 73 20 41 4e 44 20 | 24 30 90 03 31 29 3d 31 |ags AND |$0..1)=1|
|00001f90| 20 54 48 45 4e 0d 0a 20 | 90 05 46 75 6e 63 34 45 | THEN.. |..Func4E|
|00001fa0| 3a 3d 54 52 55 45 0d 0a | 20 90 04 45 4c 53 45 0d |:=TRUE..| ..ELSE.|
|00001fb0| 0a 20 90 05 46 75 6e 63 | 34 45 3a 3d 46 41 4c 53 |. ..Func|4E:=FALS|
|00001fc0| 45 3b 0d 0a 20 90 03 45 | 4e 44 3b 0d 0a 20 45 4e |E;.. ..E|ND;.. EN|
|00001fd0| 44 3b 0d 0a 1a 90 14 1a | 03 46 55 4e 43 34 46 2e |D;......|.FUNC4F.|
|00001fe0| 49 4e 43 00 12 3b 08 01 | 00 00 cf 0a 2b 8f b8 ca |INC..;..|....+...|
|00001ff0| 80 01 00 00 7b 20 46 69 | 6e 64 20 74 68 65 20 6e |....{ Fi|nd the n|
|00002000| 65 78 74 20 6d 61 74 63 | 68 69 6e 67 20 66 69 6c |ext matc|hing fil|
|00002010| 65 20 90 2a 7d 0d 0a 0d | 0a 46 55 4e 43 54 49 4f |e .*}...|.FUNCTIO|
|00002020| 4e 20 46 75 6e 63 34 46 | 20 3a 20 42 4f 4f 4c 45 |N Func4F| : BOOLE|
|00002030| 41 4e 3b 0d 0a 20 42 45 | 47 49 4e 0d 0a 20 20 57 |AN;.. BE|GIN..  W|
|00002040| 49 54 48 20 52 65 67 69 | 73 74 65 72 73 20 44 4f |ITH Regi|sters DO|
|00002050| 0d 0a 20 90 03 42 45 47 | 49 4e 0d 0a 20 90 04 41 |.. ..BEG|IN.. ..A|
|00002060| 58 3a 3d 28 28 41 58 20 | 41 4e 44 20 24 30 30 46 |X:=((AX |AND $00F|
|00002070| 46 29 20 4f 52 20 28 24 | 34 46 20 53 48 4c 20 38 |F) OR ($|4F SHL 8|
|00002080| 29 29 3b 0d 0a 20 90 04 | 4d 53 44 4f 53 20 28 52 |));.. ..|MSDOS (R|
|00002090| 65 67 69 73 74 65 72 73 | 29 3b 0d 0a 20 90 04 49 |egisters|);.. ..I|
|000020a0| 46 20 28 46 6c 61 67 73 | 20 41 4e 44 20 24 30 90 |F (Flags| AND $0.|
|000020b0| 03 31 29 3d 31 20 54 48 | 45 4e 0d 0a 20 90 06 46 |.1)=1 TH|EN.. ..F|
|000020c0| 75 6e 63 34 46 3a 3d 54 | 52 55 45 0d 0a 20 90 04 |unc4F:=T|RUE.. ..|
|000020d0| 45 4c 53 45 0d 0a 20 90 | 05 46 75 6e 63 34 46 3a |ELSE.. .|.Func4F:|
|000020e0| 3d 46 41 4c 53 45 3b 0d | 0a 20 90 03 45 4e 44 3b |=FALSE;.|. ..END;|
|000020f0| 0d 0a 20 45 4e 44 3b 0d | 0a 1a 90 4b 1a 03 46 55 |.. END;.|...K..FU|
|00002100| 4e 43 35 36 2e 49 4e 43 | 00 12 3b 3a 01 00 00 cf |NC56.INC|..;:....|
|00002110| 0a 2b 8f 1d df 80 01 00 | 00 7b 20 52 65 6e 61 6d |.+......|.{ Renam|
|00002120| 65 20 61 20 66 69 6c 65 | 20 90 38 7d 0d 0a 0d 0a |e a file| .8}....|
|00002130| 46 55 4e 43 54 49 4f 4e | 20 46 75 6e 63 35 36 20 |FUNCTION| Func56 |
|00002140| 28 53 2c 20 46 2c 20 54 | 20 3a 20 49 4e 54 45 47 |(S, F, T| : INTEG|
|00002150| 45 52 29 20 3a 20 42 4f | 4f 4c 45 41 4e 3b 0d 0a |ER) : BO|OLEAN;..|
|00002160| 20 42 45 47 49 4e 0d 0a | 20 20 57 49 54 48 20 52 | BEGIN..|  WITH R|
|00002170| 65 67 69 73 74 65 72 73 | 20 44 4f 0d 0a 20 90 03 |egisters| DO.. ..|
|00002180| 42 45 47 49 4e 0d 0a 20 | 90 04 41 58 3a 3d 28 28 |BEGIN.. |..AX:=((|
|00002190| 41 58 20 41 4e 44 20 24 | 30 30 46 46 29 20 4f 52 |AX AND $|00FF) OR|
|000021a0| 20 28 24 35 36 20 53 48 | 4c 20 38 29 29 3b 0d 0a | ($56 SH|L 8));..|
|000021b0| 20 90 04 44 58 3a 3d 46 | 3b 0d 0a 20 90 04 44 49 | ..DX:=F|;.. ..DI|
|000021c0| 3a 3d 54 3b 0d 0a 20 90 | 04 44 53 3a 3d 53 3b 0d |:=T;.. .|.DS:=S;.|
|000021d0| 0a 20 90 04 45 53 3a 3d | 53 3b 0d 0a 20 90 04 4d |. ..ES:=|S;.. ..M|
|000021e0| 53 44 4f 53 20 28 52 65 | 67 69 73 74 65 72 73 29 |SDOS (Re|gisters)|
|000021f0| 3b 0d 0a 20 90 04 49 46 | 20 28 46 6c 61 67 73 20 |;.. ..IF| (Flags |
|00002200| 41 4e 44 20 24 30 90 03 | 31 29 3d 31 20 54 48 45 |AND $0..|1)=1 THE|
|00002210| 4e 0d 0a 20 90 05 46 75 | 6e 63 35 36 3a 3d 54 52 |N.. ..Fu|nc56:=TR|
|00002220| 55 45 0d 0a 20 90 04 45 | 4c 53 45 0d 0a 20 90 05 |UE.. ..E|LSE.. ..|
|00002230| 46 75 6e 63 35 36 3a 3d | 46 41 4c 53 45 3b 0d 0a |Func56:=|FALSE;..|
|00002240| 20 90 03 45 4e 44 3b 0d | 0a 20 45 4e 44 3b 0d 0a | ..END;.|. END;..|
|00002250| 1a 90 08 1a 03 46 55 4e | 43 35 37 2e 49 4e 43 00 |.....FUN|C57.INC.|
|00002260| 12 3b 43 01 00 00 cf 0a | 2b 8f 4c 4a 80 01 00 00 |.;C.....|+.LJ....|
|00002270| 7b 20 47 65 74 20 6f 72 | 20 73 65 74 20 61 20 66 |{ Get or| set a f|
|00002280| 69 6c 65 27 73 20 64 61 | 74 65 20 61 6e 64 20 74 |ile's da|te and t|
|00002290| 69 6d 65 20 90 24 7d 0d | 0a 0d 0a 46 55 4e 43 54 |ime .$}.|...FUNCT|
|000022a0| 49 4f 4e 20 46 75 6e 63 | 35 37 20 28 48 2c 20 44 |ION Func|57 (H, D|
|000022b0| 2c 20 54 20 3a 20 49 4e | 54 45 47 45 52 29 20 3a |, T : IN|TEGER) :|
|000022c0| 20 42 4f 4f 4c 45 41 4e | 3b 0d 0a 20 42 45 47 49 | BOOLEAN|;.. BEGI|
|000022d0| 4e 0d 0a 20 20 57 49 54 | 48 20 52 65 67 69 73 74 |N..  WIT|H Regist|
|000022e0| 65 72 73 20 44 4f 0d 0a | 20 90 03 42 45 47 49 4e |ers DO..| ..BEGIN|
|000022f0| 0d 0a 20 90 04 41 58 3a | 3d 28 28 41 58 20 41 4e |.. ..AX:|=((AX AN|
|00002300| 44 20 24 30 30 46 46 29 | 20 4f 52 20 28 24 35 37 |D $00FF)| OR ($57|
|00002310| 20 53 48 4c 20 38 29 29 | 3b 0d 0a 20 90 04 42 58 | SHL 8))|;.. ..BX|
|00002320| 3a 3d 48 3b 0d 0a 20 90 | 04 43 58 3a 3d 54 3b 0d |:=H;.. .|.CX:=T;.|
|00002330| 0a 20 90 04 44 58 3a 3d | 44 3b 0d 0a 20 90 04 4d |. ..DX:=|D;.. ..M|
|00002340| 53 44 4f 53 20 28 52 65 | 67 69 73 74 65 72 73 29 |SDOS (Re|gisters)|
|00002350| 3b 0d 0a 20 90 04 49 46 | 20 28 46 6c 61 67 73 20 |;.. ..IF| (Flags |
|00002360| 41 4e 44 20 24 30 90 03 | 31 29 3d 31 20 54 48 45 |AND $0..|1)=1 THE|
|00002370| 4e 0d 0a 20 90 05 46 75 | 6e 63 35 37 3a 3d 54 52 |N.. ..Fu|nc57:=TR|
|00002380| 55 45 0d 0a 20 90 04 45 | 4c 53 45 0d 0a 20 90 05 |UE.. ..E|LSE.. ..|
|00002390| 46 75 6e 63 35 37 3a 3d | 46 41 4c 53 45 3b 0d 0a |Func57:=|FALSE;..|
|000023a0| 20 90 03 45 4e 44 3b 0d | 0a 20 45 4e 44 3b 0d 0a | ..END;.|. END;..|
|000023b0| 1a 90 14 1a 03 54 59 50 | 45 2e 49 4e 43 00 43 00 |.....TYP|E.INC.C.|
|000023c0| 12 3b f3 00 00 00 cf 0a | 2b 8f cd b9 00 02 00 00 |.;......|+.......|
|000023d0| 20 54 59 50 45 0d 0a 20 | 20 50 61 73 73 52 65 63 | TYPE.. | PassRec|
|000023e0| 6f 72 64 20 3d 20 52 45 | 43 4f 52 44 0d 0a 20 90 |ord = RE|CORD.. .|
|000023f0| 10 41 58 20 90 04 3a 20 | 49 4e 54 45 47 45 52 3b |.AX ..: |INTEGER;|
|00002400| 0d 0a 20 90 10 42 58 20 | 90 04 3a 20 49 4e 54 45 |.. ..BX |..: INTE|
|00002410| 47 45 52 3b 0d 0a 20 90 | 10 43 58 20 90 04 3a 20 |GER;.. .|.CX ..: |
|00002420| 49 4e 54 45 47 45 52 3b | 0d 0a 20 90 10 44 58 20 |INTEGER;|.. ..DX |
|00002430| 90 04 3a 20 49 4e 54 45 | 47 45 52 3b 0d 0a 20 90 |..: INTE|GER;.. .|
|00002440| 10 42 50 20 90 04 3a 20 | 49 4e 54 45 47 45 52 3b |.BP ..: |INTEGER;|
|00002450| 0d 0a 20 90 10 53 49 20 | 90 04 3a 20 49 4e 54 45 |.. ..SI |..: INTE|
|00002460| 47 45 52 3b 0d 0a 20 90 | 10 44 49 20 90 04 3a 20 |GER;.. .|.DI ..: |
|00002470| 49 4e 54 45 47 45 52 3b | 0d 0a 20 90 10 44 53 20 |INTEGER;|.. ..DS |
|00002480| 90 04 3a 20 49 4e 54 45 | 47 45 52 3b 0d 0a 20 90 |..: INTE|GER;.. .|
|00002490| 10 45 53 20 90 04 3a 20 | 49 4e 54 45 47 45 52 3b |.ES ..: |INTEGER;|
|000024a0| 0d 0a 20 90 10 46 6c 61 | 67 73 20 3a 20 49 4e 54 |.. ..Fla|gs : INT|
|000024b0| 45 47 45 52 3b 0d 0a 20 | 90 0f 45 4e 44 3b 0d 0a |EGER;.. |..END;..|
|000024c0| 1a 90 79 1a 03 56 41 52 | 2e 49 4e 43 00 00 43 00 |..y..VAR|.INC..C.|
|000024d0| 12 3b 26 00 00 00 cf 0a | 2c 8f 46 dd 80 00 00 00 |.;&.....|,.F.....|
|000024e0| 20 56 41 52 0d 0a 20 20 | 52 65 67 69 73 74 65 72 | VAR..  |Register|
|000024f0| 73 20 90 05 3a 20 50 61 | 73 73 52 65 63 6f 72 64 |s ..: Pa|ssRecord|
|00002500| 3b 0d 0a 1a 90 5b 1a 00 | 47 45 52 3b 0d 0a 20 90 |;....[..|GER;.. .|
|00002510| 10 45 53 20 90 04 3a 20 | 49 4e 54 45 47 45 52 3b |.ES ..: |INTEGER;|
|00002520| 0d 0a 20 90 10 46 6c 61 | 67 73 20 3a 20 49 4e 54 |.. ..Fla|gs : INT|
|00002530| 45 47 45 52 3b 0d 0a 20 | 90 0f 45 4e 44 3b 0d 0a |EGER;.. |..END;..|
|00002540| 1a 90 79 1a 03 56 41 52 | 2e 49 4e 43 00 00 43 00 |..y..VAR|.INC..C.|
|00002550| 12 3b 26 00 00 00 cf 0a | 2c 8f 46 dd 80 00 00 00 |.;&.....|,.F.....|
|00002560| 20 56 41 52 0d 0a 20 20 | 52 65 67 69 73 74 65 72 | VAR..  |Register|
|00002570| 73 20 90 05 3a 20 50 61 | 73 73 52 65 63 6f 72 64 |s ..: Pa|ssRecord|
+--------+-------------------------+-------------------------+--------+--------+