/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / bcpl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 7c 0e 00 00 64 11 00 00 |Archive.||...d...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 42 43 50 4c 00 00 00 | 00 00 00 00 ff ff ff ff |.BCPL...|........|
|00000070| 45 fd ff ff 9b a1 47 39 | 00 00 00 00 ff ff ff ff |E.....G9|........|
|00000080| 3c 0c 00 80 82 61 6c 69 | 62 00 00 00 45 0f 01 00 |<....ali|b...E...|
|00000090| ff ff ff ff 45 fd ff ff | 92 a2 47 39 00 00 00 00 |....E...|..G9....|
|000000a0| ff ff ff ff cc 03 00 80 | 82 61 73 6d 48 65 61 64 |........|.asmHead|
|000000b0| 65 72 00 00 90 0a 00 00 | 40 ff ff ff d0 5b aa b1 |er......|@....[..|
|000000c0| 01 00 54 ab 90 0a 00 00 | 24 00 00 00 82 42 43 50 |..T.....|$....BCP|
|000000d0| 4c 4d 61 63 73 00 00 00 | e8 06 00 00 40 ff ff ff |LMacs...|....@...|
|000000e0| 94 89 a4 b1 01 00 e9 7a | e8 06 00 00 d8 0a 00 00 |.......z|........|
|000000f0| 82 62 63 70 6c 6d 61 63 | 73 61 00 00 80 06 00 00 |.bcplmac|sa......|
|00000100| 40 ff ff ff fc 22 84 cb | 01 00 22 dd 80 06 00 00 |@...."..|..".....|
|00000110| e4 11 00 00 82 42 63 70 | 6c 4d 61 63 73 42 00 00 |.....Bcp|lMacsB..|
|00000120| b7 07 00 00 3f ff ff ff | ac 32 2c 6a 01 00 7c 63 |....?...|.2,j..|c|
|00000130| b7 07 00 00 88 18 00 00 | 82 64 6f 63 00 00 00 00 |........|.doc....|
|00000140| 00 00 00 00 41 26 00 00 | 40 ff ff ff 64 25 31 c3 |....A&..|@...d%1.|
|00000150| 01 00 8e 04 41 26 00 00 | 63 20 00 00 82 65 76 68 |....A&..|c ...evh|
|00000160| 65 61 64 65 72 00 00 00 | b9 02 00 00 3e ff ff ff |eader...|....>...|
|00000170| c0 82 e8 d6 01 00 d7 d5 | b9 02 00 00 c8 46 00 00 |........|.....F..|
|00000180| 82 68 65 61 64 65 72 73 | 00 00 00 00 ff ff ff ff |.headers|........|
|00000190| 45 fd ff ff ca a6 47 39 | 08 00 00 00 ff ff ff ff |E.....G9|........|
|000001a0| b0 01 00 80 82 42 72 61 | 7a 69 6c 00 45 0f 01 00 |.....Bra|zil.E...|
|000001b0| b6 06 00 00 3f ff ff ff | f4 88 dc a7 01 00 36 79 |....?...|......6y|
|000001c0| b6 06 00 00 a5 49 00 00 | 82 65 72 72 6f 72 73 00 |.....I..|.errors.|
|000001d0| 45 0f 01 00 09 01 00 00 | 40 ff ff ff 50 45 58 b8 |E.......|@...PEX.|
|000001e0| 01 00 1d 8e 09 01 00 00 | 7f 50 00 00 00 00 00 00 |........|.P......|
|000001f0| 09 00 00 00 45 0f 01 00 | 03 00 00 00 ff ff ff ff |....E...|........|
|00000200| 03 00 23 00 46 fb f3 ff | 8c cf d6 59 59 0f 03 00 |..#.F...|...YY...|
|00000210| 82 68 69 73 74 6f 72 79 | 00 00 00 00 ff ff ff ff |.history|........|
|00000220| 45 fd ff ff 53 a8 47 39 | 08 00 00 00 ff ff ff ff |E...S.G9|........|
|00000230| 40 02 00 80 82 61 6c 69 | 62 00 00 00 45 0f 01 00 |@....ali|b...E...|
|00000240| 02 05 00 00 40 ff ff ff | 08 80 36 c4 01 00 2d b6 |....@...|..6...-.|
|00000250| 02 05 00 00 ac 51 00 00 | 82 63 6f 6d 70 69 6c 65 |.....Q..|.compile|
|00000260| 72 00 01 00 56 15 00 00 | 40 ff ff ff 1c 68 c2 c3 |r...V...|@....h..|
|00000270| 01 00 05 c9 56 15 00 00 | d2 56 00 00 00 00 00 00 |....V...|.V......|
|00000280| 09 00 00 00 45 0f 01 00 | 03 00 00 00 ff ff ff ff |....E...|........|
|00000290| 03 00 23 00 46 fb f3 ff | 8c cf d6 59 59 0f 03 00 |..#.F...|...YY...|
|000002a0| 82 49 4f 48 64 72 00 00 | 00 00 00 00 08 0d 00 00 |.IOHdr..|........|
|000002b0| 3f ff ff ff 54 c7 1f 58 | 01 00 39 7d 08 0d 00 00 |?...T..X|..9}....|
|000002c0| 4c 6c 00 00 82 4c 69 62 | 48 64 72 00 00 00 00 00 |Ll...Lib|Hdr.....|
|000002d0| b1 0b 00 00 40 ff ff ff | b0 66 61 ec 03 00 98 1c |....@...|.fa.....|
|000002e0| b1 0b 00 00 78 79 00 00 | 82 6e 65 77 6c 69 62 00 |....xy..|.newlib.|
|000002f0| 00 00 00 00 ff ff ff ff | 45 fd ff ff 40 ab 47 39 |........|E...@.G9|
|00000300| 08 00 00 00 ff ff ff ff | a8 03 00 80 82 6d 63 6c |........|.....mcl|
|00000310| 69 62 00 00 45 0f 01 00 | 30 15 00 00 00 80 00 00 |ib..E...|0.......|
|00000320| 00 80 00 00 03 00 e5 bf | 30 15 00 00 4d 85 00 00 |........|0...M...|
|00000330| 82 53 74 72 69 6e 67 49 | 4f 00 01 00 08 08 00 00 |.StringI|O.......|
|00000340| 40 ff ff ff 44 24 d9 eb | 01 00 49 c0 08 08 00 00 |@...D$..|..I.....|
|00000350| a1 9a 00 00 82 78 44 65 | 63 41 72 67 73 00 01 00 |.....xDe|cArgs...|
|00000360| ec 07 00 00 40 ff ff ff | 68 1b 78 dc 01 00 85 40 |....@...|h.x....@|
|00000370| ec 07 00 00 cd a2 00 00 | 82 78 66 70 00 00 00 00 |........|.xfp....|
|00000380| 45 0f 01 00 1c 03 00 00 | 40 ff ff ff b4 65 88 bd |E.......|@....e..|
|00000390| 01 00 60 1d 1c 03 00 00 | dd aa 00 00 82 78 69 6f |..`.....|.....xio|
|000003a0| 6d 00 00 00 45 0f 01 00 | d0 2c 00 00 41 ff ff ff |m...E...|.,..A...|
|000003b0| 34 19 32 71 03 00 e5 81 | d0 2c 00 00 1d ae 00 00 |4.2q....|.,......|
|000003c0| 82 78 6d 61 70 00 00 00 | 45 0f 01 00 7c 0e 00 00 |.xmap...|E...|...|
|000003d0| 40 ff ff ff 98 5f 31 c3 | 01 00 89 f5 7c 0e 00 00 |@...._1.|....|...|
|000003e0| 11 db 00 00 00 00 00 00 | 09 00 00 00 45 0f 01 00 |........|....E...|
|000003f0| 03 00 00 00 ff ff ff ff | 03 00 23 00 46 fb f3 ff |........|..#.F...|
|00000400| 8c cf d6 59 59 0f 03 00 | 00 00 00 00 00 00 00 00 |...YY...|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 82 61 72 6d |........|.....arm|
|00000430| 6c 69 62 00 45 0f 01 00 | ff ff ff ff 45 fd ff ff |lib.E...|....E...|
|00000440| ee af 47 39 00 00 00 00 | ff ff ff ff c0 06 00 80 |..G9....|........|
|00000450| 82 61 00 00 00 00 00 00 | 00 00 00 00 ff ff ff ff |.a......|........|
|00000460| 45 fd ff ff 6f b0 47 39 | 00 00 00 00 ff ff ff ff |E...o.G9|........|
|00000470| 10 05 00 80 82 46 50 4d | 61 74 68 00 45 0f 01 00 |.....FPM|ath.E...|
|00000480| 3b 09 00 00 40 ff ff ff | 84 d3 c1 6e 01 00 e5 53 |;...@...|...n...S|
|00000490| 3b 09 00 00 b1 e9 00 00 | 82 6d 63 6c 69 62 61 00 |;.......|.mcliba.|
|000004a0| 45 0f 01 00 32 01 00 00 | 40 ff ff ff e8 23 83 cb |E...2...|@....#..|
|000004b0| 01 00 08 88 32 01 00 00 | 10 f3 00 00 82 4d 43 4c |....2...|.....MCL|
|000004c0| 69 62 41 52 00 0f 01 00 | f7 00 00 00 40 ff ff ff |ibAR....|....@...|
|000004d0| e0 d3 a9 b1 01 00 cb 62 | f7 00 00 00 66 f4 00 00 |.......b|....f...|
|000004e0| 82 4d 43 4c 69 62 41 52 | 42 00 01 00 0d 01 00 00 |.MCLibAR|B.......|
|000004f0| 3f ff ff ff 34 2d 2c 6a | 01 00 e3 5e 0d 01 00 00 |?...4-,j|...^....|
|00000500| 81 f5 00 00 82 4d 43 4c | 69 62 6c 72 00 0f 01 00 |.....MCL|iblr....|
|00000510| 09 0c 00 00 40 ff ff ff | 10 82 73 78 01 00 74 fa |....@...|..sx..t.|
|00000520| 09 0c 00 00 b2 f6 00 00 | 82 6d 63 6c 69 62 72 00 |........|.mclibr.|
|00000530| 45 0f 01 00 b1 ae 00 00 | 42 ff ff ff 58 a2 49 0b |E.......|B...X.I.|
|00000540| 03 00 fb 1f b1 ae 00 00 | df 02 01 00 00 00 00 00 |........|........|
|00000550| 09 00 00 00 45 0f 01 00 | 03 00 00 00 ff ff ff ff |....E...|........|
|00000560| 03 00 23 00 46 fb f3 ff | 8c cf d6 59 59 0f 03 00 |..#.F...|...YY...|
|00000570| 82 62 00 00 00 00 00 00 | 00 00 00 00 ff ff ff ff |.b......|........|
|00000580| 45 fd ff ff f7 b4 47 39 | 00 00 00 00 ff ff ff ff |E.....G9|........|
|00000590| 30 06 00 80 82 62 61 63 | 6b 74 72 00 45 0f 01 00 |0....bac|ktr.E...|
|000005a0| 65 18 00 00 40 ff ff ff | 38 56 31 c3 01 00 9c fc |e...@...|8V1.....|
|000005b0| 65 18 00 00 b4 b1 01 00 | 82 64 65 63 6f 64 65 61 |e.......|.decodea|
|000005c0| 72 67 73 00 be 0e 00 00 | 40 ff ff ff dc 10 78 dc |rgs.....|@.....x.|
|000005d0| 01 00 31 d6 be 0e 00 00 | 3d ca 01 00 82 49 4f 48 |..1.....|=....IOH|
|000005e0| 64 72 00 00 45 0f 01 00 | 08 0d 00 00 3f ff ff ff |dr..E...|....?...|
|000005f0| 54 c7 1f 58 01 00 39 7d | 08 0d 00 00 1f d9 01 00 |T..X..9}|........|
|00000600| 82 69 6f 6c 69 62 00 00 | 45 0f 01 00 76 4e 00 00 |.iolib..|E...vN..|
|00000610| 41 ff ff ff 5c a1 37 2a | 03 00 ce 6a 76 4e 00 00 |A...\.7*|...jvN..|
|00000620| 4b e6 01 00 82 73 74 6f | 72 65 66 69 6c 65 73 00 |K....sto|refiles.|
|00000630| 34 22 00 00 4c ff ff ff | 2c fe 01 00 01 00 c1 65 |4"..L...|,......e|
|00000640| 34 22 00 00 e5 34 02 00 | 82 53 74 72 69 6e 67 49 |4"...4..|.StringI|
|00000650| 4f 00 01 00 8c 0f 00 00 | 3f ff ff ff 58 46 88 fd |O.......|?...XF..|
|00000660| 01 00 5c f3 8c 0f 00 00 | 3d 57 02 00 00 00 00 00 |..\.....|=W......|
|00000670| 09 00 00 00 45 0f 01 00 | 03 00 00 00 ff ff ff ff |....E...|........|
|00000680| 03 00 23 00 46 fb f3 ff | 8c cf d6 59 59 0f 03 00 |..#.F...|...YY...|
|00000690| 82 48 69 73 74 6f 72 79 | 00 00 00 00 02 05 00 00 |.History|........|
|000006a0| 40 ff ff ff 08 80 36 c4 | 01 00 2d b6 02 05 00 00 |@.....6.|..-.....|
|000006b0| ed 66 02 00 82 74 00 00 | 00 00 00 00 00 00 00 00 |.f...t..|........|
|000006c0| 4c 02 00 00 40 ff ff ff | 54 79 df 94 01 00 4a 95 |L...@...|Ty....J.|
|000006d0| 4c 02 00 00 13 6c 02 00 | 82 74 65 73 74 65 76 00 |L....l..|.testev.|
|000006e0| 00 00 00 00 ce 01 00 00 | 3e ff ff ff 7c 9e e8 d6 |........|>...|...|
|000006f0| 01 00 7e ac ce 01 00 00 | 83 6e 02 00 00 00 00 00 |..~.....|.n......|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 82 62 00 00 09 00 00 00 | 45 0f 01 00 ff ff ff ff |.b......|E.......|
|00000730| 45 fd ff ff 7b bb 47 39 | 00 00 00 00 ff ff ff ff |E...{.G9|........|
|00000740| 8c 0a 00 80 82 63 67 61 | 00 00 00 00 00 00 00 00 |.....cga|........|
|00000750| 86 37 00 00 40 ff ff ff | 28 14 4d 59 01 00 ba 39 |.7..@...|(.MY...9|
|00000760| 86 37 00 00 75 70 02 00 | 82 63 67 62 00 00 00 00 |.7..up..|.cgb....|
|00000770| 00 00 00 00 a6 38 00 00 | 40 ff ff ff 04 1b ea 97 |.....8..|@.......|
|00000780| 01 00 03 5f a6 38 00 00 | 1f a8 02 00 82 63 67 63 |..._.8..|.....cgc|
|00000790| 00 00 00 00 00 00 00 00 | 14 45 00 00 43 ff ff ff |........|.E..C...|
|000007a0| c4 82 5b 33 03 00 d7 c9 | 14 45 00 00 e9 e0 02 00 |..[3....|.E......|
|000007b0| 82 63 67 64 00 00 00 00 | 00 00 00 00 e5 2c 00 00 |.cgd....|.....,..|
|000007c0| 40 ff ff ff 24 1d e8 ea | 03 00 89 d7 e5 2c 00 00 |@...$...|.....,..|
|000007d0| 21 26 03 00 82 63 67 65 | 00 00 00 00 00 00 00 00 |!&...cge|........|
|000007e0| 6d 49 00 00 40 ff ff ff | e0 00 e9 ea 03 00 01 bb |mI..@...|........|
|000007f0| 6d 49 00 00 2a 53 03 00 | 82 63 67 66 00 00 00 00 |mI..*S..|.cgf....|
|00000800| 00 00 00 00 ef 58 00 00 | 40 ff ff ff e8 40 79 63 |.....X..|@....@yc|
|00000810| 01 00 f0 32 ef 58 00 00 | bb 9c 03 00 82 63 67 67 |...2.X..|.....cgg|
|00000820| 00 00 00 00 00 00 00 00 | 8e 2e 00 00 41 ff ff ff |........|....A...|
|00000830| 64 51 13 28 03 00 46 62 | 8e 2e 00 00 ce f5 03 00 |dQ.(..Fb|........|
|00000840| 82 63 67 68 00 00 00 00 | 00 00 00 00 c2 5c 00 00 |.cgh....|.....\..|
|00000850| 40 ff ff ff 1c 1c 8c 78 | 01 00 0b 21 c2 5c 00 00 |@......x|...!.\..|
|00000860| 80 24 04 00 82 63 67 68 | 65 61 64 65 72 00 00 00 |.$...cgh|eader...|
|00000870| 9f 31 00 00 41 ff ff ff | 9c cd 13 28 03 00 f4 28 |.1..A...|...(...(|
|00000880| 9f 31 00 00 66 81 04 00 | 82 63 67 69 00 00 00 00 |.1..f...|.cgi....|
|00000890| 00 00 00 00 9d 29 00 00 | 40 ff ff ff d8 06 eb ea |.....)..|@.......|
|000008a0| 03 00 97 f1 9d 29 00 00 | 29 b3 04 00 82 63 67 6a |.....)..|)....cgj|
|000008b0| 00 00 00 00 00 00 00 00 | 26 3c 00 00 41 ff ff ff |........|&<..A...|
|000008c0| f8 30 13 28 03 00 b3 ea | 26 3c 00 00 ea dc 04 00 |.0.(....|&<......|
|000008d0| 82 63 67 6b 00 00 00 00 | 00 00 00 00 04 1e 00 00 |.cgk....|........|
|000008e0| 40 ff ff ff d8 65 b8 6e | 01 00 46 30 04 1e 00 00 |@....e.n|..F0....|
|000008f0| 34 19 05 00 82 63 67 6d | 00 00 00 00 00 00 00 00 |4....cgm|........|
|00000900| 7d 45 00 00 41 ff ff ff | 5c 6d 98 25 03 00 cb 33 |}E..A...|\m.%...3|
|00000910| 7d 45 00 00 5c 37 05 00 | 82 64 69 73 73 00 00 00 |}E..\7..|.diss...|
|00000920| 00 00 00 00 46 0c 00 00 | 3f ff ff ff 08 18 94 43 |....F...|?......C|
|00000930| 01 00 77 08 46 0c 00 00 | fd 7c 05 00 82 66 70 32 |..w.F...|.|...fp2|
|00000940| 6f 70 73 00 00 00 00 00 | 29 09 00 00 40 ff ff ff |ops.....|)...@...|
|00000950| 18 02 d6 4c 01 00 ff a7 | 29 09 00 00 67 89 05 00 |...L....|)...g...|
|00000960| 82 66 70 6f 70 73 00 00 | 00 00 00 00 f7 04 00 00 |.fpops..|........|
|00000970| 40 ff ff ff 38 03 31 49 | 01 00 fe 49 f7 04 00 00 |@...8.1I|...I....|
|00000980| b4 92 05 00 82 68 65 61 | 64 65 72 00 00 00 00 00 |.....hea|der.....|
|00000990| 4a 0c 00 00 40 ff ff ff | dc 93 2c c3 01 00 ab 70 |J...@...|..,....p|
|000009a0| 4a 0c 00 00 cf 97 05 00 | 82 69 6e 73 70 65 63 74 |J.......|.inspect|
|000009b0| 00 00 00 00 c8 09 00 00 | 3f ff ff ff 2c 34 fc 0e |........|?...,4..|
|000009c0| 01 00 2b 94 c8 09 00 00 | 3d a4 05 00 82 6d 61 70 |..+.....|=....map|
|000009d0| 00 00 00 00 00 00 00 00 | 05 10 00 00 3e ff ff ff |........|....>...|
|000009e0| a0 d1 53 b5 01 00 bb 80 | 05 10 00 00 29 ae 05 00 |..S.....|....)...|
|000009f0| 82 6f 70 73 00 00 00 00 | 00 00 00 00 f9 12 00 00 |.ops....|........|
|00000a00| 40 ff ff ff 54 03 2e b2 | 01 00 59 09 f9 12 00 00 |@...T...|..Y.....|
|00000a10| 52 be 05 00 82 70 6f 63 | 00 00 00 00 00 00 00 00 |R....poc|........|
|00000a20| 8c 1e 00 00 40 ff ff ff | ec 22 7f 22 01 00 f9 62 |....@...|."."...b|
|00000a30| 8c 1e 00 00 6f d1 05 00 | 82 70 70 00 00 00 00 00 |....o...|.pp.....|
|00000a40| 00 00 00 00 47 05 00 00 | 3f ff ff ff cc d5 ae 5b |....G...|?......[|
|00000a50| 01 00 78 a8 47 05 00 00 | 1f f0 05 00 82 72 6f 6f |..x.G...|.....roo|
|00000a60| 74 00 00 00 00 00 00 00 | 25 41 00 00 40 ff ff ff |t.......|%A..@...|
|00000a70| 84 7e 2d b2 01 00 c3 d6 | 25 41 00 00 8a f5 05 00 |.~-.....|%A......|
|00000a80| 82 73 79 6e 00 00 00 00 | 00 00 00 00 f0 83 00 00 |.syn....|........|
|00000a90| 40 ff ff ff 6c 20 f4 75 | 01 00 bd 2f f0 83 00 00 |@...l .u|.../....|
|00000aa0| d3 36 06 00 82 74 72 6e | 00 00 00 00 00 00 00 00 |.6...trn|........|
|00000ab0| 6e 86 00 00 3f ff ff ff | dc e5 cf 5b 01 00 ba ad |n...?...|...[....|
|00000ac0| 6e 86 00 00 e7 ba 06 00 | 00 00 00 00 00 00 00 00 |n.......|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 82 62 69 6e |........|.....bin|
|00000af0| 00 00 00 00 45 0f 01 00 | ff ff ff ff 45 fd ff ff |....E...|....E...|
|00000b00| 7c cf 47 39 00 00 00 00 | ff ff ff ff 64 0b 00 80 ||.G9....|....d...|
|00000b10| 82 62 63 70 6c 00 00 00 | 00 00 00 00 9f 78 01 00 |.bcpl...|.....x..|
|00000b20| 41 f8 ff ff 94 74 35 71 | 01 00 85 43 9f 78 01 00 |A....t5q|...C.x..|
|00000b30| 79 41 07 00 82 64 65 63 | 62 63 70 6c 00 00 00 00 |yA...dec|bcpl....|
|00000b40| 4f 41 00 00 42 f8 ff ff | d0 81 0b 47 01 00 cd 31 |OA..B...|...G...1|
|00000b50| 4f 41 00 00 3c ba 08 00 | 82 6a 6f 69 6e 00 00 00 |OA..<...|.join...|
|00000b60| 00 00 00 00 1f 44 00 00 | 41 f8 ff ff 50 20 38 2a |.....D..|A...P 8*|
|00000b70| 01 00 15 3b 1f 44 00 00 | af fb 08 00 82 70 72 5f |...;.D..|.....pr_|
|00000b80| 6f 63 6f 64 65 00 00 00 | 3f 49 00 00 41 f8 ff ff |ocode...|?I..A...|
|00000b90| 88 16 96 25 01 00 0a dd | 3f 49 00 00 f2 3f 09 00 |...%....|?I...?..|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 82 67 00 00 | 09 00 00 00 45 0f 01 00 |.....g..|....E...|
|00000bd0| ff ff ff ff 45 fd ff ff | 7e d5 47 39 00 00 00 00 |....E...|~.G9....|
|00000be0| ff ff ff ff ac 0b 00 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 82 48 69 73 |........|.....His|
|00000c10| 74 6f 72 79 00 0f 01 00 | d6 14 00 00 40 ff ff ff |tory....|....@...|
|00000c20| 98 97 ed 97 01 00 73 a8 | d6 14 00 00 55 89 09 00 |......s.|....U...|
|00000c30| 82 4d 61 6b 65 66 69 6c | 65 00 01 00 73 08 00 00 |.Makefil|e...s...|
|00000c40| 43 ff ff ff d8 15 75 36 | 03 00 1e 28 73 08 00 00 |C.....u6|...(s...|
|00000c50| 4f 9e 09 00 82 52 45 41 | 44 4d 45 00 45 0f 01 00 |O....REA|DME.E...|
|00000c60| ea 02 00 00 44 ff ff ff | fd e1 0c b5 03 00 54 f5 |....D...|......T.|
|00000c70| ea 02 00 00 e6 a6 09 00 | 00 00 00 00 09 00 00 00 |........|........|
|00000c80| 45 0f 01 00 03 00 00 00 | ff ff ff ff 03 00 23 00 |E.......|......#.|
|00000c90| 46 fb f3 ff 8c cf d6 59 | 59 0f 03 00 82 42 43 50 |F......Y|Y....BCP|
|00000ca0| 4c 69 00 00 00 00 00 00 | ff ff ff ff 45 fd ff ff |Li......|....E...|
|00000cb0| 5f c1 4a 39 00 00 00 00 | ff ff ff ff 58 0e 00 80 |_.J9....|....X...|
|00000cc0| 82 62 63 70 6c 72 6f 6f | 74 00 00 00 b1 95 00 00 |.bcplroo|t.......|
|00000cd0| 45 ab f1 ff 09 62 fb 15 | 03 00 99 58 b1 95 00 00 |E....b..|...X....|
|00000ce0| f4 a9 09 00 82 62 6c 69 | 62 00 00 00 00 00 00 00 |.....bli|b.......|
|00000cf0| ff ff ff ff 45 fd ff ff | e3 c3 4a 39 00 00 00 00 |....E...|..J9....|
|00000d00| ff ff ff ff a4 0d 00 80 | 82 62 63 70 6c 72 6f 6f |........|.bcplroo|
|00000d10| 74 00 00 00 80 12 00 00 | 45 f8 ff ff d0 67 fb 15 |t.......|E....g..|
|00000d20| 03 00 4f 4c 80 12 00 00 | c9 3f 0a 00 82 78 62 63 |..OL....|.?...xbc|
|00000d30| 70 6c 69 62 00 00 00 00 | 2c 11 00 00 42 ac f1 ff |plib....|,...B...|
|00000d40| c0 25 b9 62 03 00 e7 6b | 2c 11 00 00 6d 52 0a 00 |.%.b...k|,...mR..|
|00000d50| 82 78 6d 61 70 00 00 00 | 00 00 00 00 b8 0f 00 00 |.xmap...|........|
|00000d60| 42 ac f1 ff 56 1c 21 81 | 03 00 d8 cc b8 0f 00 00 |B...V.!.|........|
|00000d70| bd 63 0a 00 82 78 73 77 | 69 73 00 00 00 00 00 00 |.c...xsw|is......|
|00000d80| d0 05 00 00 45 ac f1 ff | 4c 2a 51 34 03 00 48 aa |....E...|L*Q4..H.|
|00000d90| d0 05 00 00 99 73 0a 00 | 82 78 77 69 6d 70 73 00 |.....s..|.xwimps.|
|00000da0| 00 00 00 00 78 07 00 00 | 45 ac f1 ff 74 e1 95 1b |....x...|E...t...|
|00000db0| 03 00 f7 4c 78 07 00 00 | 8d 79 0a 00 82 78 5a 48 |...Lx...|.y...xZH|
|00000dc0| 6f 75 72 00 00 00 00 00 | e0 02 00 00 44 ac f1 ff |our.....|....D...|
|00000dd0| 27 04 2c ba 03 00 df 2f | e0 02 00 00 29 81 0a 00 |'.,..../|....)...|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 82 52 65 61 | 64 4d 65 00 00 00 00 00 |.....Rea|dMe.....|
|00000e10| 54 01 00 00 45 ff ff ff | 26 78 4a 39 03 00 54 0b |T...E...|&xJ9..T.|
|00000e20| 54 01 00 00 2d 84 0a 00 | 82 73 77 69 73 00 00 00 |T...-...|.swis...|
|00000e30| 00 00 00 00 68 37 00 00 | 45 ab f1 ff a7 26 51 34 |....h7..|E....&Q4|
|00000e40| 03 00 a1 4a 68 37 00 00 | a5 85 0a 00 82 77 69 6d |...Jh7..|.....wim|
|00000e50| 70 73 00 00 00 00 00 00 | a6 48 00 00 45 ab f1 ff |ps......|.H..E...|
|00000e60| cb dc 95 1b 03 00 02 c6 | a6 48 00 00 31 bd 0a 00 |........|.H..1...|
|00000e70| 82 5a 48 6f 75 72 00 00 | 00 00 00 00 49 26 00 00 |.ZHour..|....I&..|
|00000e80| 44 ab f1 ff 88 00 2c ba | 03 00 e0 7f 49 26 00 00 |D.....,.|....I&..|
|00000e90| fb 05 0b 00 00 6f 70 73 | 00 00 00 00 00 00 00 00 |.....ops|........|
|00000ea0| f9 12 00 00 40 ff ff ff | 54 03 2e b2 01 00 59 09 |....@...|T.....Y.|
|00000eb0| f9 12 00 00 82 bb 05 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 6c 65 72 20 |........|....ler |
|00000ee0| 2d 2a 2d 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |-*-*****|********|
|00000ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00000f00| 3b 2a 20 20 54 69 74 6c | 65 3a 09 42 43 50 4c 20 |;*  Titl|e:.BCPL |
|00000f10| 4c 69 62 48 64 72 20 64 | 65 66 69 6e 69 74 69 6f |LibHdr d|efinitio|
|00000f20| 6e 73 20 66 6f 72 20 75 | 73 65 20 66 72 6f 6d 20 |ns for u|se from |
|00000f30| 61 73 73 65 6d 62 6c 65 | 72 09 20 20 20 20 20 20 |assemble|r.      |
|00000f40| 2a 0a 3b 2a 20 20 41 75 | 74 68 6f 72 3a 09 48 43 |*.;*  Au|thor:.HC|
|00000f50| 4d 4d 09 09 09 09 09 09 | 20 20 20 20 20 20 2a 0a |MM......|      *.|
|00000f60| 3b 2a 20 20 4c 61 73 74 | 65 64 69 74 3a 09 31 39 |;*  Last|edit:.19|
|00000f70| 20 4a 61 6e 20 38 38 20 | 31 33 3a 33 33 3a 30 36 | Jan 88 |13:33:06|
|00000f80| 20 62 79 20 48 61 72 72 | 79 20 4d 65 65 6b 69 6e | by Harr|y Meekin|
|00000f90| 67 73 09 09 20 20 20 20 | 20 20 2a 0a 3b 2a 09 09 |gs..    |  *.;*..|
|00000fa0| 43 6f 70 79 72 69 67 68 | 74 20 28 63 29 20 31 39 |Copyrigh|t (c) 19|
|00000fb0| 38 38 20 62 79 20 41 63 | 6f 72 6e 20 43 6f 6d 70 |88 by Ac|orn Comp|
|00000fc0| 75 74 65 72 73 20 4c 74 | 64 09 20 20 20 20 20 20 |uters Lt|d.      |
|00000fd0| 2a 0a 3b 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.;*****|********|
|00000fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 0a 09 47 45 54 20 |********|*...GET |
|00001020| 22 24 2e 61 6c 69 62 2e | 42 43 50 4c 4d 61 63 73 |"$.alib.|BCPLMacs|
|00001030| 22 0a 0a 54 52 55 45 09 | 09 2a 09 2d 31 0a 46 41 |"..TRUE.|.*.-1.FA|
|00001040| 4c 53 45 09 09 2a 09 30 | 0a 0a 47 30 09 09 47 6c |LSE..*.0|..G0..Gl|
|00001050| 6f 62 4e 6f 09 30 0a 53 | 74 61 72 74 09 09 47 6c |obNo.0.S|tart..Gl|
|00001060| 6f 62 4e 6f 09 31 0a 68 | 6f 73 74 50 72 6f 63 65 |obNo.1.h|ostProce|
|00001070| 73 73 6f 72 09 47 6c 6f | 62 4e 6f 09 32 0a 0a 3b |ssor.Glo|bNo.2..;|
|00001080| 2f 2f 33 2d 31 32 0a 72 | 65 73 75 6c 74 32 20 09 |//3-12.r|esult2 .|
|00001090| 47 6c 6f 62 4e 6f 09 31 | 33 0a 50 75 74 42 79 74 |GlobNo.1|3.PutByt|
|000010a0| 65 20 09 47 6c 6f 62 4e | 6f 09 31 34 0a 42 79 74 |e .GlobN|o.14.Byt|
|000010b0| 65 50 75 74 20 09 47 6c | 6f 62 4e 6f 09 31 34 0a |ePut .Gl|obNo.14.|
|000010c0| 47 65 74 42 79 74 65 20 | 09 47 6c 6f 62 4e 6f 09 |GetByte |.GlobNo.|
|000010d0| 31 35 0a 4d 75 6c 44 69 | 76 09 09 47 6c 6f 62 4e |15.MulDi|v..GlobN|
|000010e0| 6f 09 31 36 0a 6c 69 6e | 65 42 75 66 66 09 47 6c |o.16.lin|eBuff.Gl|
|000010f0| 6f 62 4e 6f 09 31 37 0a | 57 72 69 74 65 53 09 09 |obNo.17.|WriteS..|
|00001100| 47 6c 6f 62 4e 6f 09 31 | 38 0a 57 72 69 74 65 46 |GlobNo.1|8.WriteF|
|00001110| 09 09 47 6c 6f 62 4e 6f | 09 31 39 0a 43 61 70 69 |..GlobNo|.19.Capi|
|00001120| 74 61 6c 43 68 09 47 6c | 6f 62 4e 6f 09 32 30 0a |talCh.Gl|obNo.20.|
|00001130| 43 6f 6d 70 43 68 09 09 | 47 6c 6f 62 4e 6f 09 32 |CompCh..|GlobNo.2|
|00001140| 31 0a 43 6f 6d 70 53 74 | 72 69 6e 67 09 47 6c 6f |1.CompSt|ring.Glo|
|00001150| 62 4e 6f 09 32 32 0a 4e | 65 77 4c 69 6e 65 20 09 |bNo.22.N|ewLine .|
|00001160| 47 6c 6f 62 46 69 6c 65 | 44 61 74 61 82 61 73 6d |GlobFile|Data.asm|
|00001170| 48 65 61 64 65 72 00 00 | 90 0a 00 00 40 ff ff ff |Header..|....@...|
|00001180| d0 5b aa b1 03 00 54 ab | 3b 2a 2a 2a 2a 2a 2a 2a |.[....T.|;*******|
|00001190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2d 2a 2d 20 |********|****-*- |
|000011a0| 4d 6f 64 65 3a 20 41 73 | 73 65 6d 62 6c 65 72 20 |Mode: As|sembler |
|000011b0| 2d 2a 2d 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |-*-*****|********|
|000011c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|000011d0| 3b 2a 20 20 54 69 74 6c | 65 3a 09 42 43 50 4c 20 |;*  Titl|e:.BCPL |
|000011e0| 4c 69 62 48 64 72 20 64 | 65 66 69 6e 69 74 69 6f |LibHdr d|efinitio|
|000011f0| 6e 73 20 66 6f 72 20 75 | 73 65 20 66 72 6f 6d 20 |ns for u|se from |
|00001200| 61 73 73 65 6d 62 6c 65 | 72 09 20 20 20 20 20 20 |assemble|r.      |
|00001210| 2a 0a 3b 2a 20 20 41 75 | 74 68 6f 72 3a 09 48 43 |*.;*  Au|thor:.HC|
|00001220| 4d 4d 09 09 09 09 09 09 | 20 20 20 20 20 20 2a 0a |MM......|      *.|
|00001230| 3b 2a 20 20 4c 61 73 74 | 65 64 69 74 3a 09 31 39 |;*  Last|edit:.19|
|00001240| 20 4a 61 6e 20 38 38 20 | 31 33 3a 33 33 3a 30 36 | Jan 88 |13:33:06|
|00001250| 20 62 79 20 48 61 72 72 | 79 20 4d 65 65 6b 69 6e | by Harr|y Meekin|
|00001260| 67 73 09 09 20 20 20 20 | 20 20 2a 0a 3b 2a 09 09 |gs..    |  *.;*..|
|00001270| 43 6f 70 79 72 69 67 68 | 74 20 28 63 29 20 31 39 |Copyrigh|t (c) 19|
|00001280| 38 38 20 62 79 20 41 63 | 6f 72 6e 20 43 6f 6d 70 |88 by Ac|orn Comp|
|00001290| 75 74 65 72 73 20 4c 74 | 64 09 20 20 20 20 20 20 |uters Lt|d.      |
|000012a0| 2a 0a 3b 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.;*****|********|
|000012b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 0a 09 47 45 54 20 |********|*...GET |
|000012f0| 22 24 2e 61 6c 69 62 2e | 42 43 50 4c 4d 61 63 73 |"$.alib.|BCPLMacs|
|00001300| 22 0a 0a 54 52 55 45 09 | 09 2a 09 2d 31 0a 46 41 |"..TRUE.|.*.-1.FA|
|00001310| 4c 53 45 09 09 2a 09 30 | 0a 0a 47 30 09 09 47 6c |LSE..*.0|..G0..Gl|
|00001320| 6f 62 4e 6f 09 30 0a 53 | 74 61 72 74 09 09 47 6c |obNo.0.S|tart..Gl|
|00001330| 6f 62 4e 6f 09 31 0a 68 | 6f 73 74 50 72 6f 63 65 |obNo.1.h|ostProce|
|00001340| 73 73 6f 72 09 47 6c 6f | 62 4e 6f 09 32 0a 0a 3b |ssor.Glo|bNo.2..;|
|00001350| 2f 2f 33 2d 31 32 0a 72 | 65 73 75 6c 74 32 20 09 |//3-12.r|esult2 .|
|00001360| 47 6c 6f 62 4e 6f 09 31 | 33 0a 50 75 74 42 79 74 |GlobNo.1|3.PutByt|
|00001370| 65 20 09 47 6c 6f 62 4e | 6f 09 31 34 0a 42 79 74 |e .GlobN|o.14.Byt|
|00001380| 65 50 75 74 20 09 47 6c | 6f 62 4e 6f 09 31 34 0a |ePut .Gl|obNo.14.|
|00001390| 47 65 74 42 79 74 65 20 | 09 47 6c 6f 62 4e 6f 09 |GetByte |.GlobNo.|
|000013a0| 31 35 0a 4d 75 6c 44 69 | 76 09 09 47 6c 6f 62 4e |15.MulDi|v..GlobN|
|000013b0| 6f 09 31 36 0a 6c 69 6e | 65 42 75 66 66 09 47 6c |o.16.lin|eBuff.Gl|
|000013c0| 6f 62 4e 6f 09 31 37 0a | 57 72 69 74 65 53 09 09 |obNo.17.|WriteS..|
|000013d0| 47 6c 6f 62 4e 6f 09 31 | 38 0a 57 72 69 74 65 46 |GlobNo.1|8.WriteF|
|000013e0| 09 09 47 6c 6f 62 4e 6f | 09 31 39 0a 43 61 70 69 |..GlobNo|.19.Capi|
|000013f0| 74 61 6c 43 68 09 47 6c | 6f 62 4e 6f 09 32 30 0a |talCh.Gl|obNo.20.|
|00001400| 43 6f 6d 70 43 68 09 09 | 47 6c 6f 62 4e 6f 09 32 |CompCh..|GlobNo.2|
|00001410| 31 0a 43 6f 6d 70 53 74 | 72 69 6e 67 09 47 6c 6f |1.CompSt|ring.Glo|
|00001420| 62 4e 6f 09 32 32 0a 4e | 65 77 4c 69 6e 65 20 09 |bNo.22.N|ewLine .|
|00001430| 47 6c 6f 62 4e 6f 09 32 | 33 0a 52 64 43 68 09 09 |GlobNo.2|3.RdCh..|
|00001440| 47 6c 6f 62 4e 6f 09 32 | 34 0a 55 6e 52 64 43 68 |GlobNo.2|4.UnRdCh|
|00001450| 09 09 47 6c 6f 62 4e 6f | 09 32 35 0a 57 72 43 68 |..GlobNo|.25.WrCh|
|00001460| 09 09 47 6c 6f 62 4e 6f | 09 32 36 0a 49 6e 70 75 |..GlobNo|.26.Inpu|
|00001470| 74 09 09 47 6c 6f 62 4e | 6f 09 32 37 0a 4f 75 74 |t..GlobN|o.27.Out|
|00001480| 70 75 74 09 09 47 6c 6f | 62 4e 6f 09 32 38 0a 53 |put..Glo|bNo.28.S|
|00001490| 65 6c 65 63 74 49 6e 70 | 75 74 09 47 6c 6f 62 4e |electInp|ut.GlobN|
|000014a0| 6f 09 32 39 0a 53 65 6c | 65 63 74 4f 75 74 70 75 |o.29.Sel|ectOutpu|
|000014b0| 74 09 47 6c 6f 62 4e 6f | 09 33 30 0a 63 69 73 09 |t.GlobNo|.30.cis.|
|000014c0| 09 47 6c 6f 62 4e 6f 09 | 33 31 0a 63 6f 73 09 09 |.GlobNo.|31.cos..|
|000014d0| 47 6c 6f 62 4e 6f 09 33 | 32 0a 0a 3b 2f 2f 33 33 |GlobNo.3|2..;//33|
|000014e0| 2d 33 34 0a 53 74 6f 70 | 09 09 47 6c 6f 62 4e 6f |-34.Stop|..GlobNo|
|000014f0| 09 33 35 0a 4e 65 77 50 | 61 67 65 20 09 47 6c 6f |.35.NewP|age .Glo|
|00001500| 62 4e 6f 09 33 36 0a 47 | 42 79 74 65 73 09 09 47 |bNo.36.G|Bytes..G|
|00001510| 6c 6f 62 4e 6f 09 33 37 | 0a 50 42 79 74 65 73 09 |lobNo.37|.PBytes.|
|00001520| 09 47 6c 6f 62 4e 6f 09 | 33 38 0a 72 65 74 75 72 |.GlobNo.|38.retur|
|00001530| 6e 43 6f 64 65 09 47 6c | 6f 62 4e 6f 09 33 39 0a |nCode.Gl|obNo.39.|
|00001540| 73 74 61 63 6b 42 61 73 | 65 09 47 6c 6f 62 4e 6f |stackBas|e.GlobNo|
|00001550| 09 34 30 0a 4c 65 76 65 | 6c 09 09 47 6c 6f 62 4e |.40.Leve|l..GlobN|
|00001560| 6f 09 34 31 0a 4c 6f 6e | 67 4a 75 6d 70 09 47 6c |o.41.Lon|gJump.Gl|
|00001570| 6f 62 4e 6f 09 34 32 0a | 41 70 74 6f 76 65 63 20 |obNo.42.|Aptovec |
|00001580| 09 47 6c 6f 62 4e 6f 09 | 34 33 0a 42 69 6e 52 64 |.GlobNo.|43.BinRd|
|00001590| 43 68 20 09 47 6c 6f 62 | 4e 6f 09 34 34 0a 42 69 |Ch .Glob|No.44.Bi|
|000015a0| 6e 57 72 43 68 20 09 47 | 6c 6f 62 4e 6f 09 34 35 |nWrCh .G|lobNo.45|
|000015b0| 0a 46 69 6e 64 49 6e 70 | 75 74 09 47 6c 6f 62 4e |.FindInp|ut.GlobN|
|000015c0| 6f 09 34 36 0a 46 69 6e | 64 4f 75 74 70 75 74 09 |o.46.Fin|dOutput.|
|000015d0| 47 6c 6f 62 4e 6f 09 34 | 37 0a 0a 43 72 65 61 74 |GlobNo.4|7..Creat|
|000015e0| 65 43 6f 09 47 6c 6f 62 | 4e 6f 09 34 38 0a 44 65 |eCo.Glob|No.48.De|
|000015f0| 6c 65 74 65 43 6f 09 47 | 6c 6f 62 4e 6f 09 34 39 |leteCo.G|lobNo.49|
|00001600| 0a 43 61 6c 6c 43 6f 09 | 09 47 6c 6f 62 4e 6f 09 |.CallCo.|.GlobNo.|
|00001610| 35 30 0a 52 65 73 75 6d | 65 43 6f 09 47 6c 6f 62 |50.Resum|eCo.Glob|
|00001620| 4e 6f 09 35 31 0a 43 6f | 57 61 69 74 09 09 47 6c |No.51.Co|Wait..Gl|
|00001630| 6f 62 4e 6f 09 35 32 0a | 0a 3b 2f 2f 35 33 0a 47 |obNo.52.|.;//53.G|
|00001640| 65 74 56 65 63 09 09 47 | 6c 6f 62 4e 6f 09 35 34 |etVec..G|lobNo.54|
|00001650| 0a 46 72 65 65 56 65 63 | 20 09 47 6c 6f 62 4e 6f |.FreeVec| .GlobNo|
|00001660| 09 35 35 0a 4d 61 78 56 | 65 63 09 09 47 6c 6f 62 |.55.MaxV|ec..Glob|
|00001670| 4e 6f 09 35 36 0a 62 6c | 6f 63 6b 4c 69 73 74 09 |No.56.bl|ockList.|
|00001680| 47 6c 6f 62 4e 6f 09 35 | 37 0a 66 72 65 65 53 74 |GlobNo.5|7.freeSt|
|00001690| 6f 72 65 09 47 6c 6f 62 | 4e 6f 09 35 37 0a 3b 2f |ore.Glob|No.57.;/|
|000016a0| 2f 35 38 0a 52 65 61 64 | 4f 66 66 73 65 74 09 47 |/58.Read|Offset.G|
|000016b0| 6c 6f 62 4e 6f 09 35 39 | 0a 53 65 74 4f 66 66 73 |lobNo.59|.SetOffs|
|000016c0| 65 74 09 47 6c 6f 62 4e | 6f 09 36 30 0a 45 78 74 |et.GlobN|o.60.Ext|
|000016d0| 65 6e 74 09 09 47 6c 6f | 62 4e 6f 09 36 31 0a 3b |ent..Glo|bNo.61.;|
|000016e0| 2f 2f 36 32 0a 41 62 6f | 72 74 09 09 47 6c 6f 62 |//62.Abo|rt..Glob|
|000016f0| 4e 6f 09 36 33 0a 42 61 | 63 6b 54 72 61 63 65 09 |No.63.Ba|ckTrace.|
|00001700| 47 6c 6f 62 4e 6f 09 36 | 34 0a 4d 61 70 53 74 6f |GlobNo.6|4.MapSto|
|00001710| 72 65 09 47 6c 6f 62 4e | 6f 09 36 35 0a 52 65 61 |re.GlobN|o.65.Rea|
|00001720| 64 42 79 74 65 73 09 47 | 6c 6f 62 4e 6f 09 36 36 |dBytes.G|lobNo.66|
|00001730| 0a 57 72 69 74 65 42 79 | 74 65 73 09 47 6c 6f 62 |.WriteBy|tes.Glob|
|00001740| 4e 6f 09 36 37 0a 3b 2f | 2f 36 36 2d 36 38 0a 50 |No.67.;/|/66-68.P|
|00001750| 61 63 6b 53 74 72 69 6e | 67 09 47 6c 6f 62 4e 6f |ackStrin|g.GlobNo|
|00001760| 09 36 39 0a 55 6e 70 61 | 63 6b 53 74 72 69 6e 67 |.69.Unpa|ckString|
|00001770| 09 47 6c 6f 62 4e 6f 09 | 37 30 0a 3b 2f 2f 37 31 |.GlobNo.|70.;//71|
|00001780| 2d 37 35 0a 45 6e 64 52 | 65 61 64 20 09 47 6c 6f |-75.EndR|ead .Glo|
|00001790| 62 4e 6f 09 37 36 0a 45 | 6e 64 57 72 69 74 65 09 |bNo.76.E|ndWrite.|
|000017a0| 47 6c 6f 62 4e 6f 09 37 | 37 0a 52 65 61 64 4e 09 |GlobNo.7|7.ReadN.|
|000017b0| 09 47 6c 6f 62 4e 6f 09 | 37 38 0a 57 72 69 74 65 |.GlobNo.|78.Write|
|000017c0| 44 09 09 47 6c 6f 62 4e | 6f 09 37 39 0a 57 72 69 |D..GlobN|o.79.Wri|
|000017d0| 74 65 4e 09 09 47 6c 6f | 62 4e 6f 09 38 30 0a 57 |teN..Glo|bNo.80.W|
|000017e0| 72 69 74 65 48 65 78 09 | 47 6c 6f 62 4e 6f 09 38 |riteHex.|GlobNo.8|
|000017f0| 31 0a 57 72 69 74 65 4f | 63 74 09 47 6c 6f 62 4e |1.WriteO|ct.GlobN|
|00001800| 6f 09 38 32 0a 52 64 41 | 72 67 73 09 09 47 6c 6f |o.82.RdA|rgs..Glo|
|00001810| 62 4e 6f 09 38 33 0a 52 | 64 49 74 65 6d 09 09 47 |bNo.83.R|dItem..G|
|00001820| 6c 6f 62 4e 6f 09 38 34 | 0a 46 69 6e 64 41 72 67 |lobNo.84|.FindArg|
|00001830| 20 09 47 6c 6f 62 4e 6f | 09 38 35 0a 3b 2f 2f 38 | .GlobNo|.85.;//8|
|00001840| 36 2d 38 38 0a 72 61 6e | 64 6f 6d 53 74 61 74 65 |6-88.ran|domState|
|00001850| 09 47 6c 6f 62 4e 6f 09 | 38 39 0a 52 61 6e 64 6f |.GlobNo.|89.Rando|
|00001860| 6d 09 09 47 6c 6f 62 4e | 6f 09 39 30 0a 3b 2f 2f |m..GlobN|o.90.;//|
|00001870| 39 31 2d 39 34 0a 46 61 | 75 6c 74 09 09 47 6c 6f |91-94.Fa|ult..Glo|
|00001880| 62 4e 6f 09 39 35 0a 4f | 53 41 72 67 73 09 09 47 |bNo.95.O|SArgs..G|
|00001890| 6c 6f 62 4e 6f 09 39 36 | 0a 4f 53 42 47 65 74 09 |lobNo.96|.OSBGet.|
|000018a0| 09 47 6c 6f 62 4e 6f 09 | 39 37 0a 4f 53 42 50 75 |.GlobNo.|97.OSBPu|
|000018b0| 74 09 09 47 6c 6f 62 4e | 6f 09 39 38 0a 4f 53 46 |t..GlobN|o.98.OSF|
|000018c0| 69 6e 64 09 09 47 6c 6f | 62 4e 6f 09 39 39 0a 4f |ind..Glo|bNo.99.O|
|000018d0| 53 46 69 6c 65 09 09 47 | 6c 6f 62 4e 6f 09 31 30 |SFile..G|lobNo.10|
|000018e0| 30 0a 4f 53 43 4c 49 09 | 09 47 6c 6f 62 4e 6f 09 |0.OSCLI.|.GlobNo.|
|000018f0| 31 30 31 0a 4f 53 57 72 | 63 68 09 09 47 6c 6f 62 |101.OSWr|ch..Glob|
|00001900| 4e 6f 09 31 30 32 0a 4f | 53 52 64 43 68 09 09 47 |No.102.O|SRdCh..G|
|00001910| 6c 6f 62 4e 6f 09 31 30 | 33 0a 4f 53 42 79 74 65 |lobNo.10|3.OSByte|
|00001920| 09 09 47 6c 6f 62 4e 6f | 09 31 30 34 0a 4f 53 57 |..GlobNo|.104.OSW|
|00001930| 6f 72 64 09 09 47 6c 6f | 62 4e 6f 09 31 30 35 0a |ord..Glo|bNo.105.|
|00001940| 54 4b 52 65 72 72 09 09 | 47 6c 6f 62 4e 6f 09 31 |TKRerr..|GlobNo.1|
|00001950| 30 36 0a 4f 53 47 42 50 | 42 09 09 47 6c 6f 62 4e |06.OSGBP|B..GlobN|
|00001960| 6f 09 31 30 37 0a 54 69 | 6d 65 09 09 47 6c 6f 62 |o.107.Ti|me..Glob|
|00001970| 4e 6f 09 31 30 38 0a 54 | 69 6d 65 4f 66 44 61 79 |No.108.T|imeOfDay|
|00001980| 09 47 6c 6f 62 4e 6f 09 | 31 30 39 0a 44 61 74 65 |.GlobNo.|109.Date|
|00001990| 09 09 47 6c 6f 62 4e 6f | 09 31 31 30 0a 4c 69 62 |..GlobNo|.110.Lib|
|000019a0| 49 6e 69 74 49 4f 09 47 | 6c 6f 62 4e 6f 09 31 31 |InitIO.G|lobNo.11|
|000019b0| 31 0a 0a 3b 2f 2f 31 31 | 32 2d 31 31 39 0a 53 53 |1..;//11|2-119.SS|
|000019c0| 69 6e 09 09 47 6c 6f 62 | 4e 6f 09 31 32 30 0a 53 |in..Glob|No.120.S|
|000019d0| 43 6f 73 09 09 47 6c 6f | 62 4e 6f 09 31 32 31 0a |Cos..Glo|bNo.121.|
|000019e0| 53 54 61 6e 09 09 47 6c | 6f 62 4e 6f 09 31 32 32 |STan..Gl|obNo.122|
|000019f0| 0a 53 41 53 69 6e 09 09 | 47 6c 6f 62 4e 6f 09 31 |.SASin..|GlobNo.1|
|00001a00| 32 33 0a 53 41 43 6f 73 | 09 09 47 6c 6f 62 4e 6f |23.SACos|..GlobNo|
|00001a10| 09 31 32 34 0a 53 41 54 | 61 6e 09 09 47 6c 6f 62 |.124.SAT|an..Glob|
|00001a20| 4e 6f 09 31 32 35 0a 53 | 4c 6f 67 45 09 09 47 6c |No.125.S|LogE..Gl|
|00001a30| 6f 62 4e 6f 09 31 32 36 | 0a 53 4c 6f 67 31 30 09 |obNo.126|.SLog10.|
|00001a40| 09 47 6c 6f 62 4e 6f 09 | 31 32 37 0a 53 45 58 50 |.GlobNo.|127.SEXP|
|00001a50| 09 09 47 6c 6f 62 4e 6f | 09 31 32 38 0a 53 50 6f |..GlobNo|.128.SPo|
|00001a60| 77 65 72 09 09 47 6c 6f | 62 4e 6f 09 31 32 39 0a |wer..Glo|bNo.129.|
|00001a70| 53 53 71 72 74 09 09 47 | 6c 6f 62 4e 6f 09 31 33 |SSqrt..G|lobNo.13|
|00001a80| 30 0a 53 41 54 61 6e 32 | 09 09 47 6c 6f 62 4e 6f |0.SATan2|..GlobNo|
|00001a90| 09 31 33 31 0a 53 52 6f | 75 6e 64 09 09 47 6c 6f |.131.SRo|und..Glo|
|00001aa0| 62 4e 6f 09 31 33 32 0a | 43 6f 6e 76 65 72 74 53 |bNo.132.|ConvertS|
|00001ab0| 54 6f 50 09 47 6c 6f 62 | 4e 6f 09 31 33 33 0a 0a |ToP.Glob|No.133..|
|00001ac0| 46 69 6e 64 53 74 72 69 | 6e 67 49 6e 70 75 74 20 |FindStri|ngInput |
|00001ad0| 47 6c 6f 62 4e 6f 09 31 | 33 34 0a 3b 2f 2f 20 31 |GlobNo.1|34.;// 1|
|00001ae0| 33 35 20 26 20 31 33 36 | 20 62 65 6c 6f 6e 67 20 |35 & 136| belong |
|00001af0| 74 6f 20 49 4f 4c 69 62 | 0a 46 69 6e 64 46 69 6c |to IOLib|.FindFil|
|00001b00| 65 49 6e 70 75 74 09 47 | 6c 6f 62 4e 6f 09 31 33 |eInput.G|lobNo.13|
|00001b10| 37 0a 46 69 6e 64 46 69 | 6c 65 4f 75 74 70 75 74 |7.FindFi|leOutput|
|00001b20| 09 47 6c 6f 62 4e 6f 09 | 31 33 38 0a 53 74 72 69 |.GlobNo.|138.Stri|
|00001b30| 6e 67 46 20 09 47 6c 6f | 62 4e 6f 09 31 33 39 0a |ngF .Glo|bNo.139.|
|00001b40| 4d 6f 76 65 57 6f 72 64 | 73 09 47 6c 6f 62 4e 6f |MoveWord|s.GlobNo|
|00001b50| 09 31 34 30 0a 46 69 6c | 6c 57 6f 72 64 73 09 47 |.140.Fil|lWords.G|
|00001b60| 6c 6f 62 4e 6f 09 31 34 | 31 0a 6c 6f 61 64 50 6f |lobNo.14|1.loadPo|
|00001b70| 69 6e 74 09 47 6c 6f 62 | 4e 6f 09 31 34 32 0a 4c |int.Glob|No.142.L|
|00001b80| 69 62 54 65 72 6d 69 6e | 61 74 65 49 4f 09 47 6c |ibTermin|ateIO.Gl|
|00001b90| 6f 62 4e 6f 09 31 34 33 | 0a 76 64 75 53 74 72 65 |obNo.143|.vduStre|
|00001ba0| 61 6d 09 47 6c 6f 62 4e | 6f 09 31 34 34 0a 65 72 |am.GlobN|o.144.er|
|00001bb0| 72 6f 72 53 74 72 65 61 | 6d 09 47 6c 6f 62 4e 6f |rorStrea|m.GlobNo|
|00001bc0| 09 31 34 35 0a 73 74 72 | 65 61 6d 43 68 61 69 6e |.145.str|eamChain|
|00001bd0| 09 47 6c 6f 62 4e 6f 09 | 31 34 36 0a 44 65 73 63 |.GlobNo.|146.Desc|
|00001be0| 72 69 62 65 53 74 72 65 | 61 6d 09 47 6c 6f 62 4e |ribeStre|am.GlobN|
|00001bf0| 6f 09 31 34 37 0a 74 6f | 70 4f 66 53 74 6f 72 65 |o.147.to|pOfStore|
|00001c00| 09 47 6c 6f 62 4e 6f 09 | 31 34 38 0a 3b 2f 2f 31 |.GlobNo.|148.;//1|
|00001c10| 34 39 0a 09 45 4e 44 0a | 46 69 6c 65 44 61 74 61 |49..END.|FileData|
|00001c20| 82 42 43 50 4c 4d 61 63 | 73 00 00 00 e8 06 00 00 |.BCPLMac|s.......|
|00001c30| 40 ff ff ff 94 89 a4 b1 | 03 00 e9 7a 70 63 09 09 |@.......|...zpc..|
|00001c40| 52 4e 09 31 35 0a 72 31 | 34 09 09 52 4e 09 31 34 |RN.15.r1|4..RN.14|
|00001c50| 0a 72 62 09 09 52 4e 09 | 38 0a 72 6c 09 09 52 4e |.rb..RN.|8.rl..RN|
|00001c60| 09 31 32 0a 72 74 73 09 | 09 52 4e 09 31 31 0a 72 |.12.rts.|.RN.11.r|
|00001c70| 70 09 09 52 4e 09 31 30 | 0a 72 67 09 09 52 4e 09 |p..RN.10|.rg..RN.|
|00001c80| 39 0a 72 67 62 09 09 52 | 4e 09 37 0a 77 31 09 09 |9.rgb..R|N.7.w1..|
|00001c90| 52 4e 09 34 0a 77 32 09 | 09 52 4e 09 35 0a 6e 69 |RN.4.w2.|.RN.5.ni|
|00001ca0| 6c 09 09 52 4e 09 31 33 | 0a 6e 69 6c 62 61 73 65 |l..RN.13|.nilbase|
|00001cb0| 20 09 52 4e 09 36 0a 72 | 30 09 09 52 4e 09 30 0a | .RN.6.r|0..RN.0.|
|00001cc0| 61 31 09 09 52 4e 09 31 | 0a 61 32 09 09 52 4e 09 |a1..RN.1|.a2..RN.|
|00001cd0| 32 0a 61 33 09 09 52 4e | 09 33 0a 61 34 09 09 52 |2.a3..RN|.3.a4..R|
|00001ce0| 4e 09 34 0a 0a 50 53 52 | 42 69 74 73 20 09 2a 09 |N.4..PSR|Bits .*.|
|00001cf0| 26 66 63 30 30 30 30 30 | 30 0a 4f 76 65 72 66 6c |&fc00000|0.Overfl|
|00001d00| 6f 77 42 69 74 09 2a 09 | 26 31 30 30 30 30 30 30 |owBit.*.|&1000000|
|00001d10| 30 0a 0a 3b 20 33 72 64 | 20 61 72 67 75 6d 65 6e |0..; 3rd| argumen|
|00001d20| 74 20 28 77 68 61 74 20 | 74 6f 20 64 6f 29 20 66 |t (what |to do) f|
|00001d30| 6f 72 20 53 65 74 45 76 | 65 6e 74 48 61 6e 64 6c |or SetEv|entHandl|
|00001d40| 65 72 0a 65 76 5f 69 67 | 6e 6f 72 65 09 2a 09 30 |er.ev_ig|nore.*.0|
|00001d50| 0a 65 76 5f 73 65 74 5f | 66 6c 61 67 09 2a 09 31 |.ev_set_|flag.*.1|
|00001d60| 0a 65 76 5f 63 61 6c 6c | 5f 70 72 6f 63 09 2a 09 |.ev_call|_proc.*.|
|00001d70| 32 0a 65 76 5f 62 75 66 | 66 65 72 09 2a 09 33 0a |2.ev_buf|fer.*.3.|
|00001d80| 0a 09 47 42 4c 41 09 78 | 78 72 65 6c 6f 63 73 0a |..GBLA.x|xrelocs.|
|00001d90| 09 47 42 4c 41 09 78 78 | 67 6c 6f 62 73 0a 09 47 |.GBLA.xx|globs..G|
|00001da0| 42 4c 41 09 78 78 74 6f | 70 67 6c 6f 62 61 6c 0a |BLA.xxto|pglobal.|
|00001db0| 09 47 42 4c 41 09 74 65 | 6d 70 61 0a 09 47 42 4c |.GBLA.te|mpa..GBL|
|00001dc0| 53 09 74 65 6d 70 73 0a | 09 47 42 4c 4c 09 61 6f |S.temps.|.GBLL.ao|
|00001dd0| 66 0a 0a 78 78 72 65 6c | 6f 63 73 20 53 45 54 41 |f..xxrel|ocs SETA|
|00001de0| 09 30 0a 78 78 67 6c 6f | 62 73 20 53 45 54 41 09 |.0.xxglo|bs SETA.|
|00001df0| 30 0a 61 6f 66 09 53 45 | 54 4c 09 7b 46 41 4c 53 |0.aof.SE|TL.{FALS|
|00001e00| 45 7d 0a 0a 55 73 65 72 | 47 6c 6f 62 61 6c 73 20 |E}..User|Globals |
|00001e10| 2a 20 31 35 30 0a 0a 78 | 78 74 6f 70 67 6c 6f 62 |* 150..x|xtopglob|
|00001e20| 61 6c 20 53 45 54 41 20 | 20 55 73 65 72 47 6c 6f |al SETA | UserGlo|
|00001e30| 62 61 6c 73 0a 0a 09 4d | 41 43 52 4f 0a 09 4d 6f |bals...M|ACRO..Mo|
|00001e40| 64 75 6c 65 20 24 6e 61 | 6d 65 2c 24 64 61 74 65 |dule $na|me,$date|
|00001e50| 0a 53 74 61 72 74 0a 09 | 3d 09 22 42 43 50 4c 22 |.Start..|=."BCPL"|
|00001e60| 0a 09 26 09 67 6c 6f 62 | 69 6e 69 74 73 2d 53 74 |..&.glob|inits-St|
|00001e70| 61 72 74 0a 09 3d 09 28 | 22 24 6e 61 6d 65 22 3a |art..=.(|"$name":|
|00001e80| 43 43 3a 22 20 20 20 20 | 20 20 20 20 22 29 3a 4c |CC:"    |    "):L|
|00001e90| 45 46 54 3a 38 0a 20 5b | 20 22 24 64 61 74 65 22 |EFT:8. [| "$date"|
|00001ea0| 3d 22 22 0a 09 3d 09 22 | 3c 75 6e 73 65 74 3e 20 |=""..=."|<unset> |
|00001eb0| 3c 75 6e 73 65 74 3e 22 | 2c 30 2c 30 2c 30 2c 30 |<unset>"|,0,0,0,0|
|00001ec0| 2c 30 0a 20 20 7c 0a 09 | 3d 09 22 24 64 61 74 65 |,0.  |..|=."$date|
|00001ed0| 22 2c 30 2c 30 0a 20 5d | 0a 09 26 09 30 0a 09 4d |",0,0. ]|..&.0..M|
|00001ee0| 45 4e 44 0a 0a 09 4d 41 | 43 52 4f 0a 24 6e 61 6d |END...MA|CRO.$nam|
|00001ef0| 65 09 47 6c 6f 62 4e 6f | 20 24 6e 6f 0a 47 5f 24 |e.GlobNo| $no.G_$|
|00001f00| 6e 61 6d 65 20 2a 09 28 | 24 6e 6f 29 2a 34 0a 20 |name *.(|$no)*4. |
|00001f10| 5b 20 24 6e 6f 3e 78 78 | 74 6f 70 67 6c 6f 62 61 |[ $no>xx|topgloba|
|00001f20| 6c 0a 78 78 74 6f 70 67 | 6c 6f 62 61 6c 20 53 45 |l.xxtopg|lobal SE|
|00001f30| 54 41 20 24 6e 6f 0a 20 | 5d 0a 09 4d 45 4e 44 0a |TA $no. |]..MEND.|
|00001f40| 0a 09 4d 41 43 52 4f 0a | 09 47 6c 6f 62 44 65 66 |..MACRO.|.GlobDef|
|00001f50| 20 24 6e 6f 2c 24 6e 61 | 6d 65 0a 09 26 09 2d 31 | $no,$na|me..&.-1|
|00001f60| 0a 09 3d 09 37 2c 28 22 | 24 6e 61 6d 65 22 3a 43 |..=.7,("|$name":C|
|00001f70| 43 3a 22 20 20 20 20 20 | 20 20 22 29 3a 4c 45 46 |C:"     |  "):LEF|
|00001f80| 54 3a 37 0a 47 5f 24 6e | 61 6d 65 20 2a 09 28 24 |T:7.G_$n|ame *.($|
|00001f90| 6e 6f 29 2a 34 0a 20 5b | 20 24 6e 6f 3e 78 78 74 |no)*4. [| $no>xxt|
|00001fa0| 6f 70 67 6c 6f 62 61 6c | 0a 78 78 74 6f 70 67 6c |opglobal|.xxtopgl|
|00001fb0| 6f 62 61 6c 20 53 45 54 | 41 20 24 6e 6f 0a 20 5d |obal SET|A $no. ]|
|00001fc0| 0a 74 65 6d 70 73 09 53 | 45 54 53 09 22 78 78 67 |.temps.S|ETS."xxg|
|00001fd0| 6e 61 6d 65 22 3a 43 43 | 3a 22 24 78 78 67 6c 6f |name":CC|:"$xxglo|
|00001fe0| 62 73 22 0a 09 47 42 4c | 53 09 24 74 65 6d 70 73 |bs"..GBL|S.$temps|
|00001ff0| 0a 24 74 65 6d 70 73 09 | 53 45 54 53 09 22 24 6e |.$temps.|SETS."$n|
|00002000| 61 6d 65 22 0a 78 78 67 | 6c 6f 62 73 20 53 45 54 |ame".xxg|lobs SET|
|00002010| 41 09 78 78 67 6c 6f 62 | 73 2b 31 0a 24 6e 61 6d |A.xxglob|s+1.$nam|
|00002020| 65 0a 09 4d 45 4e 44 0a | 0a 09 4d 41 43 52 4f 0a |e..MEND.|..MACRO.|
|00002030| 09 47 6c 6f 62 49 6e 69 | 74 73 0a 67 6c 6f 62 69 |.GlobIni|ts.globi|
|00002040| 6e 69 74 73 0a 74 65 6d | 70 61 09 53 45 54 41 09 |nits.tem|pa.SETA.|
|00002050| 30 0a 20 20 20 20 20 57 | 48 49 4c 45 20 74 65 6d |0.     W|HILE tem|
|00002060| 70 61 3c 78 78 67 6c 6f | 62 73 0a 74 65 6d 70 73 |pa<xxglo|bs.temps|
|00002070| 09 53 45 54 53 09 22 78 | 78 67 6e 61 6d 65 22 3a |.SETS."x|xgname":|
|00002080| 43 43 3a 22 24 74 65 6d | 70 61 22 0a 74 65 6d 70 |CC:"$tem|pa".temp|
|00002090| 73 09 53 45 54 53 09 24 | 74 65 6d 70 73 0a 09 47 |s.SETS.$|temps..G|
|000020a0| 6c 6f 62 49 6e 69 74 20 | 24 74 65 6d 70 73 0a 74 |lobInit |$temps.t|
|000020b0| 65 6d 70 61 09 53 45 54 | 41 09 74 65 6d 70 61 2b |empa.SET|A.tempa+|
|000020c0| 31 0a 20 20 20 20 20 57 | 45 4e 44 0a 09 4d 45 4e |1.     W|END..MEN|
|000020d0| 44 0a 0a 09 4d 41 43 52 | 4f 0a 24 6c 61 62 09 41 |D...MACR|O.$lab.A|
|000020e0| 64 64 72 65 73 73 20 24 | 76 61 6c 75 65 0a 20 5b |ddress $|value. [|
|000020f0| 20 22 24 6c 61 62 22 3c | 3e 22 22 0a 24 6c 61 62 | "$lab"<|>"".$lab|
|00002100| 0a 20 5d 0a 74 65 6d 70 | 73 09 53 45 54 53 09 22 |. ].temp|s.SETS."|
|00002110| 72 78 22 3a 43 43 3a 22 | 24 78 78 72 65 6c 6f 63 |rx":CC:"|$xxreloc|
|00002120| 73 22 0a 24 74 65 6d 70 | 73 0a 09 26 09 24 76 61 |s".$temp|s..&.$va|
|00002130| 6c 75 65 2d 53 74 61 72 | 74 0a 78 78 72 65 6c 6f |lue-Star|t.xxrelo|
|00002140| 63 73 20 53 45 54 41 09 | 78 78 72 65 6c 6f 63 73 |cs SETA.|xxrelocs|
|00002150| 2b 31 0a 09 4d 45 4e 44 | 0a 0a 09 4d 41 43 52 4f |+1..MEND|...MACRO|
|00002160| 0a 09 47 6c 6f 62 49 6e | 69 74 20 24 6e 61 6d 65 |..GlobIn|it $name|
|00002170| 0a 09 26 09 47 5f 24 6e | 61 6d 65 2f 34 0a 74 65 |..&.G_$n|ame/4.te|
|00002180| 6d 70 73 09 53 45 54 53 | 09 22 72 78 22 3a 43 43 |mps.SETS|."rx":CC|
|00002190| 3a 22 24 78 78 72 65 6c | 6f 63 73 22 0a 24 74 65 |:"$xxrel|ocs".$te|
|000021a0| 6d 70 73 0a 09 26 09 24 | 6e 61 6d 65 2d 53 74 61 |mps..&.$|name-Sta|
|000021b0| 72 74 0a 78 78 72 65 6c | 6f 63 73 20 53 45 54 41 |rt.xxrel|ocs SETA|
|000021c0| 09 78 78 72 65 6c 6f 63 | 73 2b 31 0a 09 4d 45 4e |.xxreloc|s+1..MEN|
|000021d0| 44 0a 0a 09 4d 41 43 52 | 4f 0a 09 45 6e 64 4d 6f |D...MACR|O..EndMo|
|000021e0| 64 75 6c 65 0a 67 6c 6f | 62 69 6e 69 74 73 0a 74 |dule.glo|binits.t|
|000021f0| 65 6d 70 61 09 53 45 54 | 41 09 30 0a 20 20 20 20 |empa.SET|A.0.    |
|00002200| 20 57 48 49 4c 45 20 74 | 65 6d 70 61 3c 78 78 67 | WHILE t|empa<xxg|
|00002210| 6c 6f 62 73 0a 74 65 6d | 70 73 09 53 45 54 53 09 |lobs.tem|ps.SETS.|
|00002220| 22 78 78 67 6e 61 6d 65 | 22 3a 43 43 3a 22 24 74 |"xxgname|":CC:"$t|
|00002230| 65 6d 70 61 22 0a 74 65 | 6d 70 73 09 53 45 54 53 |empa".te|mps.SETS|
|00002240| 09 24 74 65 6d 70 73 0a | 09 47 6c 6f 62 49 6e 69 |.$temps.|.GlobIni|
|00002250| 74 20 24 74 65 6d 70 73 | 0a 74 65 6d 70 61 09 53 |t $temps|.tempa.S|
|00002260| 45 54 41 09 74 65 6d 70 | 61 2b 31 0a 20 20 20 20 |ETA.temp|a+1.    |
|00002270| 20 57 45 4e 44 0a 09 26 | 09 26 24 78 78 74 6f 70 | WEND..&|.&$xxtop|
|00002280| 67 6c 6f 62 61 6c 0a 09 | 26 09 30 0a 0a 09 26 09 |global..|&.0...&.|
|00002290| 26 31 32 33 34 35 36 37 | 38 0a 74 65 6d 70 61 09 |&1234567|8.tempa.|
|000022a0| 53 45 54 41 09 30 0a 20 | 20 20 20 20 57 48 49 4c |SETA.0. |    WHIL|
|000022b0| 45 20 74 65 6d 70 61 3c | 3e 78 78 72 65 6c 6f 63 |E tempa<|>xxreloc|
|000022c0| 73 0a 74 65 6d 70 73 09 | 53 45 54 53 09 22 72 78 |s.temps.|SETS."rx|
|000022d0| 22 3a 43 43 3a 22 24 74 | 65 6d 70 61 22 0a 74 65 |":CC:"$t|empa".te|
|000022e0| 6d 70 61 09 53 45 54 41 | 09 74 65 6d 70 61 2b 31 |mpa.SETA|.tempa+1|
|000022f0| 0a 09 26 09 24 74 65 6d | 70 73 2d 53 74 61 72 74 |..&.$tem|ps-Start|
|00002300| 0a 20 20 20 20 20 57 45 | 4e 44 0a 09 26 09 26 38 |.     WE|ND..&.&8|
|00002310| 37 36 35 34 33 32 31 0a | 09 4d 45 4e 44 0a 0a 09 |7654321.|.MEND...|
|00002320| 45 4e 44 0a 46 69 6c 65 | 44 61 74 61 82 62 63 70 |END.File|Data.bcp|
|00002330| 6c 6d 61 63 73 61 00 00 | 80 06 00 00 40 ff ff ff |lmacsa..|....@...|
|00002340| fc 22 84 cb 03 00 22 dd | 70 63 09 09 52 4e 09 31 |."....".|pc..RN.1|
|00002350| 35 0a 72 31 34 09 09 52 | 4e 09 31 34 0a 72 62 09 |5.r14..R|N.14.rb.|
|00002360| 09 52 4e 09 38 0a 72 6c | 09 09 52 4e 09 31 32 0a |.RN.8.rl|..RN.12.|
|00002370| 72 74 73 09 09 52 4e 09 | 31 31 0a 72 70 09 09 52 |rts..RN.|11.rp..R|
|00002380| 4e 09 31 30 0a 72 67 09 | 09 52 4e 09 39 0a 72 67 |N.10.rg.|.RN.9.rg|
|00002390| 62 09 09 52 4e 09 37 0a | 77 31 09 09 52 4e 09 34 |b..RN.7.|w1..RN.4|
|000023a0| 0a 77 32 09 09 52 4e 09 | 35 0a 6e 69 6c 09 09 52 |.w2..RN.|5.nil..R|
|000023b0| 4e 09 31 33 0a 6e 69 6c | 62 61 73 65 20 09 52 4e |N.13.nil|base .RN|
|000023c0| 09 36 0a 72 30 09 09 52 | 4e 09 30 0a 61 31 09 09 |.6.r0..R|N.0.a1..|
|000023d0| 52 4e 09 31 0a 61 32 09 | 09 52 4e 09 32 0a 61 33 |RN.1.a2.|.RN.2.a3|
|000023e0| 09 09 52 4e 09 33 0a 61 | 34 09 09 52 4e 09 34 0a |..RN.3.a|4..RN.4.|
|000023f0| 0a 50 53 52 42 69 74 73 | 20 09 2a 09 26 66 63 30 |.PSRBits| .*.&fc0|
|00002400| 30 30 30 30 30 0a 4f 76 | 65 72 66 6c 6f 77 42 69 |00000.Ov|erflowBi|
|00002410| 74 09 2a 09 26 31 30 30 | 30 30 30 30 30 0a 0a 3b |t.*.&100|00000..;|
|00002420| 20 33 72 64 20 61 72 67 | 75 6d 65 6e 74 20 28 77 | 3rd arg|ument (w|
|00002430| 68 61 74 20 74 6f 20 64 | 6f 29 20 66 6f 72 20 53 |hat to d|o) for S|
|00002440| 65 74 45 76 65 6e 74 48 | 61 6e 64 6c 65 72 0a 65 |etEventH|andler.e|
|00002450| 76 5f 69 67 6e 6f 72 65 | 09 2a 09 30 0a 65 76 5f |v_ignore|.*.0.ev_|
|00002460| 73 65 74 5f 66 6c 61 67 | 09 2a 09 31 0a 65 76 5f |set_flag|.*.1.ev_|
|00002470| 63 61 6c 6c 5f 70 72 6f | 63 09 2a 09 32 0a 65 76 |call_pro|c.*.2.ev|
|00002480| 5f 62 75 66 66 65 72 09 | 2a 09 33 0a 0a 09 47 42 |_buffer.|*.3...GB|
|00002490| 4c 41 09 78 78 67 6c 6f | 62 73 0a 09 47 42 4c 41 |LA.xxglo|bs..GBLA|
|000024a0| 09 78 78 74 6f 70 67 6c | 6f 62 61 6c 0a 09 47 42 |.xxtopgl|obal..GB|
|000024b0| 4c 41 09 74 65 6d 70 61 | 0a 09 47 42 4c 53 09 74 |LA.tempa|..GBLS.t|
|000024c0| 65 6d 70 73 0a 09 47 42 | 4c 53 09 56 42 61 72 0a |emps..GB|LS.VBar.|
|000024d0| 09 47 42 4c 53 09 78 78 | 4d 6f 64 75 6c 65 4e 61 |.GBLS.xx|ModuleNa|
|000024e0| 6d 65 0a 09 47 42 4c 4c | 09 61 6f 66 0a 0a 78 78 |me..GBLL|.aof..xx|
|000024f0| 67 6c 6f 62 73 20 53 45 | 54 41 09 30 0a 56 42 61 |globs SE|TA.0.VBa|
|00002500| 72 09 53 45 54 53 09 22 | 7c 22 0a 61 6f 66 09 53 |r.SETS."||".aof.S|
|00002510| 45 54 4c 09 7b 54 52 55 | 45 7d 0a 0a 55 73 65 72 |ETL.{TRU|E}..User|
|00002520| 47 6c 6f 62 61 6c 73 20 | 2a 20 31 35 30 0a 0a 78 |Globals |* 150..x|
|00002530| 78 74 6f 70 67 6c 6f 62 | 61 6c 20 53 45 54 41 20 |xtopglob|al SETA |
|00002540| 20 55 73 65 72 47 6c 6f | 62 61 6c 73 0a 0a 09 4d | UserGlo|bals...M|
|00002550| 41 43 52 4f 0a 09 4d 6f | 64 75 6c 65 20 24 6e 61 |ACRO..Mo|dule $na|
|00002560| 6d 65 2c 24 64 61 74 65 | 0a 09 41 52 45 41 09 7c |me,$date|..AREA.||
|00002570| 42 43 50 4c 24 24 43 6f | 64 65 7c 2c 20 43 4f 44 |BCPL$$Co|de|, COD|
|00002580| 45 2c 20 52 45 41 44 4f | 4e 4c 59 0a 53 74 61 72 |E, READO|NLY.Star|
|00002590| 74 0a 09 3d 09 22 42 43 | 50 4c 22 0a 09 26 09 67 |t..=."BC|PL"..&.g|
|000025a0| 6c 6f 62 69 6e 69 74 73 | 2d 53 74 61 72 74 0a 09 |lobinits|-Start..|
|000025b0| 3d 09 28 22 24 6e 61 6d | 65 22 3a 43 43 3a 22 20 |=.("$nam|e":CC:" |
|000025c0| 20 20 20 20 20 20 20 22 | 29 3a 4c 45 46 54 3a 38 |       "|):LEFT:8|
|000025d0| 0a 20 5b 20 22 24 64 61 | 74 65 22 3d 22 22 0a 09 |. [ "$da|te"=""..|
|000025e0| 3d 09 22 3c 75 6e 73 65 | 74 3e 20 3c 75 6e 73 65 |=."<unse|t> <unse|
|000025f0| 74 3e 22 2c 30 2c 30 2c | 30 2c 30 2c 30 0a 20 20 |t>",0,0,|0,0,0.  |
|00002600| 7c 0a 09 3d 09 22 24 64 | 61 74 65 22 2c 30 2c 30 ||..=."$d|ate",0,0|
|00002610| 0a 20 5d 0a 09 26 09 30 | 0a 78 78 4d 6f 64 75 6c |. ]..&.0|.xxModul|
|00002620| 65 4e 61 6d 65 20 53 45 | 54 53 20 22 24 6e 61 6d |eName SE|TS "$nam|
|00002630| 65 22 0a 09 4d 45 4e 44 | 0a 0a 09 4d 41 43 52 4f |e"..MEND|...MACRO|
|00002640| 0a 24 6e 61 6d 65 09 47 | 6c 6f 62 4e 6f 20 24 6e |.$name.G|lobNo $n|
|00002650| 6f 0a 09 4b 45 45 50 20 | 47 5f 24 6e 61 6d 65 0a |o..KEEP |G_$name.|
|00002660| 47 5f 24 6e 61 6d 65 20 | 2a 09 28 24 6e 6f 29 2a |G_$name |*.($no)*|
|00002670| 34 0a 20 5b 20 24 6e 6f | 3e 78 78 74 6f 70 67 6c |4. [ $no|>xxtopgl|
|00002680| 6f 62 61 6c 0a 78 78 74 | 6f 70 67 6c 6f 62 61 6c |obal.xxt|opglobal|
|00002690| 20 53 45 54 41 20 24 6e | 6f 0a 20 5d 0a 09 4d 45 | SETA $n|o. ]..ME|
|000026a0| 4e 44 0a 0a 09 4d 41 43 | 52 4f 0a 09 47 6c 6f 62 |ND...MAC|RO..Glob|
|000026b0| 44 65 66 20 24 6e 6f 2c | 24 6e 61 6d 65 0a 09 26 |Def $no,|$name..&|
|000026c0| 09 2d 31 0a 09 3d 09 37 | 2c 28 22 24 6e 61 6d 65 |.-1..=.7|,("$name|
|000026d0| 22 3a 43 43 3a 22 20 20 | 20 20 20 20 20 22 29 3a |":CC:"  |     "):|
|000026e0| 4c 45 46 54 3a 37 0a 09 | 4b 45 45 50 20 47 5f 24 |LEFT:7..|KEEP G_$|
|000026f0| 6e 61 6d 65 0a 47 5f 24 | 6e 61 6d 65 20 2a 09 28 |name.G_$|name *.(|
|00002700| 24 6e 6f 29 2a 34 0a 20 | 5b 20 24 6e 6f 3e 78 78 |$no)*4. |[ $no>xx|
|00002710| 74 6f 70 67 6c 6f 62 61 | 6c 0a 78 78 74 6f 70 67 |topgloba|l.xxtopg|
|00002720| 6c 6f 62 61 6c 20 53 45 | 54 41 20 24 6e 6f 0a 20 |lobal SE|TA $no. |
|00002730| 5d 0a 74 65 6d 70 73 09 | 53 45 54 53 09 22 78 78 |].temps.|SETS."xx|
|00002740| 67 6e 61 6d 65 22 3a 43 | 43 3a 22 24 78 78 67 6c |gname":C|C:"$xxgl|
|00002750| 6f 62 73 22 0a 09 47 42 | 4c 53 09 24 74 65 6d 70 |obs"..GB|LS.$temp|
|00002760| 73 0a 24 74 65 6d 70 73 | 09 53 45 54 53 09 22 24 |s.$temps|.SETS."$|
|00002770| 6e 61 6d 65 22 0a 78 78 | 67 6c 6f 62 73 20 53 45 |name".xx|globs SE|
|00002780| 54 41 09 78 78 67 6c 6f | 62 73 2b 31 0a 24 6e 61 |TA.xxglo|bs+1.$na|
|00002790| 6d 65 0a 74 65 6d 70 73 | 09 53 45 54 53 09 56 42 |me.temps|.SETS.VB|
|000027a0| 61 72 3a 43 43 3a 78 78 | 4d 6f 64 75 6c 65 4e 61 |ar:CC:xx|ModuleNa|
|000027b0| 6d 65 3a 43 43 3a 22 2e | 24 6e 61 6d 65 22 3a 43 |me:CC:".|$name":C|
|000027c0| 43 3a 56 42 61 72 0a 09 | 4b 45 45 50 09 24 74 65 |C:VBar..|KEEP.$te|
|000027d0| 6d 70 73 0a 24 74 65 6d | 70 73 0a 09 4d 45 4e 44 |mps.$tem|ps..MEND|
|000027e0| 0a 0a 09 4d 41 43 52 4f | 0a 09 47 6c 6f 62 49 6e |...MACRO|..GlobIn|
|000027f0| 69 74 73 0a 67 6c 6f 62 | 69 6e 69 74 73 0a 74 65 |its.glob|inits.te|
|00002800| 6d 70 61 09 53 45 54 41 | 09 30 0a 20 20 20 20 20 |mpa.SETA|.0.     |
|00002810| 57 48 49 4c 45 20 74 65 | 6d 70 61 3c 78 78 67 6c |WHILE te|mpa<xxgl|
|00002820| 6f 62 73 0a 74 65 6d 70 | 73 09 53 45 54 53 09 22 |obs.temp|s.SETS."|
|00002830| 78 78 67 6e 61 6d 65 22 | 3a 43 43 3a 22 24 74 65 |xxgname"|:CC:"$te|
|00002840| 6d 70 61 22 0a 74 65 6d | 70 73 09 53 45 54 53 09 |mpa".tem|ps.SETS.|
|00002850| 24 74 65 6d 70 73 0a 09 | 47 6c 6f 62 49 6e 69 74 |$temps..|GlobInit|
|00002860| 20 24 74 65 6d 70 73 0a | 74 65 6d 70 61 09 53 45 | $temps.|tempa.SE|
|00002870| 54 41 09 74 65 6d 70 61 | 2b 31 0a 20 20 20 20 20 |TA.tempa|+1.     |
|00002880| 57 45 4e 44 0a 09 4d 45 | 4e 44 0a 0a 09 4d 41 43 |WEND..ME|ND...MAC|
|00002890| 52 4f 0a 24 6c 61 62 09 | 41 64 64 72 65 73 73 20 |RO.$lab.|Address |
|000028a0| 24 76 61 6c 75 65 0a 20 | 5b 20 22 24 6c 61 62 22 |$value. |[ "$lab"|
|000028b0| 3c 3e 22 22 0a 24 6c 61 | 62 0a 20 5d 0a 09 26 09 |<>"".$la|b. ]..&.|
|000028c0| 24 76 61 6c 75 65 0a 09 | 4d 45 4e 44 0a 0a 09 4d |$value..|MEND...M|
|000028d0| 41 43 52 4f 0a 09 47 6c | 6f 62 49 6e 69 74 20 24 |ACRO..Gl|obInit $|
|000028e0| 6e 61 6d 65 0a 09 26 09 | 47 5f 24 6e 61 6d 65 2f |name..&.|G_$name/|
|000028f0| 34 0a 09 26 09 24 6e 61 | 6d 65 0a 09 4d 45 4e 44 |4..&.$na|me..MEND|
|00002900| 0a 0a 09 4d 41 43 52 4f | 0a 09 45 6e 64 4d 6f 64 |...MACRO|..EndMod|
|00002910| 75 6c 65 0a 67 6c 6f 62 | 69 6e 69 74 73 0a 74 65 |ule.glob|inits.te|
|00002920| 6d 70 61 09 53 45 54 41 | 09 30 0a 20 20 20 20 20 |mpa.SETA|.0.     |
|00002930| 57 48 49 4c 45 20 74 65 | 6d 70 61 3c 78 78 67 6c |WHILE te|mpa<xxgl|
|00002940| 6f 62 73 0a 74 65 6d 70 | 73 09 53 45 54 53 09 22 |obs.temp|s.SETS."|
|00002950| 78 78 67 6e 61 6d 65 22 | 3a 43 43 3a 22 24 74 65 |xxgname"|:CC:"$te|
|00002960| 6d 70 61 22 0a 74 65 6d | 70 73 09 53 45 54 53 09 |mpa".tem|ps.SETS.|
|00002970| 24 74 65 6d 70 73 0a 09 | 47 6c 6f 62 49 6e 69 74 |$temps..|GlobInit|
|00002980| 20 24 74 65 6d 70 73 0a | 74 65 6d 70 61 09 53 45 | $temps.|tempa.SE|
|00002990| 54 41 09 74 65 6d 70 61 | 2b 31 0a 20 20 20 20 20 |TA.tempa|+1.     |
|000029a0| 57 45 4e 44 0a 09 26 09 | 26 24 78 78 74 6f 70 67 |WEND..&.|&$xxtopg|
|000029b0| 6c 6f 62 61 6c 0a 09 26 | 09 30 0a 0a 09 4d 45 4e |lobal..&|.0...MEN|
|000029c0| 44 0a 0a 09 45 4e 44 0a | 46 69 6c 65 44 61 74 61 |D...END.|FileData|
|000029d0| 82 42 63 70 6c 4d 61 63 | 73 42 00 00 b7 07 00 00 |.BcplMac|sB......|
|000029e0| 3f ff ff ff ac 32 2c 6a | 03 00 7c 63 70 63 09 09 |?....2,j|..|cpc..|
|000029f0| 52 4e 09 31 35 0a 72 31 | 34 09 09 52 4e 09 31 34 |RN.15.r1|4..RN.14|
|00002a00| 0a 72 62 09 09 52 4e 09 | 38 0a 72 6c 09 09 52 4e |.rb..RN.|8.rl..RN|
|00002a10| 09 31 32 0a 72 74 73 09 | 09 52 4e 09 31 31 0a 72 |.12.rts.|.RN.11.r|
|00002a20| 70 09 09 52 4e 09 31 30 | 0a 72 67 09 09 52 4e 09 |p..RN.10|.rg..RN.|
|00002a30| 39 0a 72 67 62 09 09 52 | 4e 09 37 0a 77 31 09 09 |9.rgb..R|N.7.w1..|
|00002a40| 52 4e 09 34 0a 77 32 09 | 09 52 4e 09 35 0a 6e 69 |RN.4.w2.|.RN.5.ni|
|00002a50| 6c 09 09 52 4e 09 31 33 | 0a 6e 69 6c 62 61 73 65 |l..RN.13|.nilbase|
|00002a60| 20 09 52 4e 09 36 0a 72 | 30 09 09 52 4e 09 30 0a | .RN.6.r|0..RN.0.|
|00002a70| 61 31 09 09 52 4e 09 34 | 0a 61 32 09 09 52 4e 09 |a1..RN.4|.a2..RN.|
|00002a80| 33 0a 61 33 09 09 52 4e | 09 32 0a 61 34 09 09 52 |3.a3..RN|.2.a4..R|
|00002a90| 4e 09 31 0a 0a 3b 20 53 | 57 49 20 63 61 6c 6c 73 |N.1..; S|WI calls|
|00002aa0| 0a 4b 57 72 63 68 09 09 | 2a 09 30 0a 4b 57 72 69 |.KWrch..|*.0.KWri|
|00002ab0| 74 65 30 20 09 2a 09 32 | 0a 4b 4e 65 77 6c 69 6e |te0 .*.2|.KNewlin|
|00002ac0| 65 09 2a 09 33 0a 4b 52 | 64 63 68 09 09 2a 09 34 |e.*.3.KR|dch..*.4|
|00002ad0| 0a 4b 43 4c 49 09 09 2a | 09 35 0a 4b 42 79 74 65 |.KCLI..*|.5.KByte|
|00002ae0| 09 09 2a 09 36 0a 4b 57 | 6f 72 64 09 09 2a 09 37 |..*.6.KW|ord..*.7|
|00002af0| 0a 4b 46 69 6c 65 09 09 | 2a 09 38 0a 4b 41 72 67 |.KFile..|*.8.KArg|
|00002b00| 73 09 09 2a 09 39 0a 4b | 42 67 65 74 09 09 2a 09 |s..*.9.K|Bget..*.|
|00002b10| 26 61 0a 4b 42 70 75 74 | 09 09 2a 09 26 62 0a 4b |&a.KBput|..*.&b.K|
|00002b20| 67 62 70 62 09 09 2a 09 | 26 63 0a 4b 46 69 6e 64 |gbpb..*.|&c.KFind|
|00002b30| 09 09 2a 09 26 64 0a 4b | 43 6f 6e 74 72 6f 6c 09 |..*.&d.K|Control.|
|00002b40| 2a 09 26 66 0a 4b 52 65 | 61 64 45 6e 76 09 2a 09 |*.&f.KRe|adEnv.*.|
|00002b50| 26 31 30 0a 4b 45 78 69 | 74 09 09 2a 09 26 31 31 |&10.KExi|t..*.&11|
|00002b60| 0a 4b 53 65 74 45 6e 76 | 20 09 2a 09 26 31 32 0a |.KSetEnv| .*.&12.|
|00002b70| 4b 43 61 6c 6c 42 61 63 | 6b 09 2a 09 26 31 35 0a |KCallBac|k.*.&15.|
|00002b80| 0a 50 53 52 42 69 74 73 | 20 09 2a 09 26 66 63 30 |.PSRBits| .*.&fc0|
|00002b90| 30 30 30 30 30 0a 4f 76 | 65 72 66 6c 6f 77 42 69 |00000.Ov|erflowBi|
|00002ba0| 74 09 2a 09 26 31 30 30 | 30 30 30 30 30 0a 0a 3b |t.*.&100|00000..;|
|00002bb0| 20 33 72 64 20 61 72 67 | 75 6d 65 6e 74 20 28 77 | 3rd arg|ument (w|
|00002bc0| 68 61 74 20 74 6f 20 64 | 6f 29 20 66 6f 72 20 53 |hat to d|o) for S|
|00002bd0| 65 74 45 76 65 6e 74 48 | 61 6e 64 6c 65 72 0a 65 |etEventH|andler.e|
|00002be0| 76 5f 69 67 6e 6f 72 65 | 09 2a 09 30 0a 65 76 5f |v_ignore|.*.0.ev_|
|00002bf0| 73 65 74 5f 66 6c 61 67 | 09 2a 09 31 0a 65 76 5f |set_flag|.*.1.ev_|
|00002c00| 63 61 6c 6c 5f 70 72 6f | 63 09 2a 09 32 0a 65 76 |call_pro|c.*.2.ev|
|00002c10| 5f 62 75 66 66 65 72 09 | 2a 09 33 0a 0a 09 47 42 |_buffer.|*.3...GB|
|00002c20| 4c 41 09 78 78 72 65 6c | 6f 63 73 0a 09 47 42 4c |LA.xxrel|ocs..GBL|
|00002c30| 41 09 78 78 67 6c 6f 62 | 73 0a 09 47 42 4c 41 09 |A.xxglob|s..GBLA.|
|00002c40| 78 78 74 6f 70 67 6c 6f | 62 61 6c 0a 09 47 42 4c |xxtopglo|bal..GBL|
|00002c50| 41 09 74 65 6d 70 61 0a | 09 47 42 4c 53 09 74 65 |A.tempa.|.GBLS.te|
|00002c60| 6d 70 73 0a 78 78 72 65 | 6c 6f 63 73 20 53 45 54 |mps.xxre|locs SET|
|00002c70| 41 09 30 0a 78 78 67 6c | 6f 62 73 20 53 45 54 41 |A.0.xxgl|obs SETA|
|00002c80| 09 30 0a 55 73 65 72 47 | 6c 6f 62 61 6c 73 20 2a |.0.UserG|lobals *|
|00002c90| 20 31 35 30 0a 0a 78 78 | 74 6f 70 67 6c 6f 62 61 | 150..xx|topgloba|
|00002ca0| 6c 20 53 45 54 41 20 20 | 55 73 65 72 47 6c 6f 62 |l SETA  |UserGlob|
|00002cb0| 61 6c 73 0a 0a 09 4d 41 | 43 52 4f 0a 09 4d 6f 64 |als...MA|CRO..Mod|
|00002cc0| 75 6c 65 20 24 6e 61 6d | 65 2c 24 64 61 74 65 0a |ule $nam|e,$date.|
|00002cd0| 53 74 61 72 74 0a 09 3d | 09 22 42 43 50 4c 22 0a |Start..=|."BCPL".|
|00002ce0| 09 26 09 67 6c 6f 62 69 | 6e 69 74 73 2d 53 74 61 |.&.globi|nits-Sta|
|00002cf0| 72 74 0a 09 3d 09 28 22 | 24 6e 61 6d 65 22 3a 43 |rt..=.("|$name":C|
|00002d00| 43 3a 22 20 20 20 20 20 | 20 20 20 22 29 3a 4c 45 |C:"     |   "):LE|
|00002d10| 46 54 3a 38 0a 20 5b 20 | 22 24 64 61 74 65 22 3d |FT:8. [ |"$date"=|
|00002d20| 22 22 0a 09 3d 09 22 3c | 75 6e 73 65 74 3e 20 3c |""..=."<|unset> <|
|00002d30| 75 6e 73 65 74 3e 22 2c | 30 2c 30 2c 30 2c 30 2c |unset>",|0,0,0,0,|
|00002d40| 30 0a 20 20 7c 0a 09 3d | 09 22 24 64 61 74 65 22 |0.  |..=|."$date"|
|00002d50| 2c 30 2c 30 0a 20 5d 0a | 09 26 09 30 0a 09 4d 45 |,0,0. ].|.&.0..ME|
|00002d60| 4e 44 0a 0a 09 4d 41 43 | 52 4f 0a 24 6e 61 6d 65 |ND...MAC|RO.$name|
|00002d70| 09 47 6c 6f 62 4e 6f 20 | 24 6e 6f 0a 47 5f 24 6e |.GlobNo |$no.G_$n|
|00002d80| 61 6d 65 20 2a 09 28 24 | 6e 6f 29 2a 34 0a 20 5b |ame *.($|no)*4. [|
|00002d90| 20 24 6e 6f 3e 78 78 74 | 6f 70 67 6c 6f 62 61 6c | $no>xxt|opglobal|
|00002da0| 0a 78 78 74 6f 70 67 6c | 6f 62 61 6c 20 53 45 54 |.xxtopgl|obal SET|
|00002db0| 41 20 24 6e 6f 0a 20 5d | 0a 09 4d 45 4e 44 0a 0a |A $no. ]|..MEND..|
|00002dc0| 09 4d 41 43 52 4f 0a 09 | 47 6c 6f 62 44 65 66 20 |.MACRO..|GlobDef |
|00002dd0| 24 6e 6f 2c 24 6e 61 6d | 65 0a 09 26 09 2d 31 0a |$no,$nam|e..&.-1.|
|00002de0| 09 3d 09 37 2c 28 22 24 | 6e 61 6d 65 22 3a 43 43 |.=.7,("$|name":CC|
|00002df0| 3a 22 20 20 20 20 20 20 | 20 22 29 3a 4c 45 46 54 |:"      | "):LEFT|
|00002e00| 3a 37 0a 47 5f 24 6e 61 | 6d 65 20 2a 09 28 24 6e |:7.G_$na|me *.($n|
|00002e10| 6f 29 2a 34 0a 20 5b 20 | 24 6e 6f 3e 78 78 74 6f |o)*4. [ |$no>xxto|
|00002e20| 70 67 6c 6f 62 61 6c 0a | 78 78 74 6f 70 67 6c 6f |pglobal.|xxtopglo|
|00002e30| 62 61 6c 20 53 45 54 41 | 20 24 6e 6f 0a 20 5d 0a |bal SETA| $no. ].|
|00002e40| 74 65 6d 70 73 09 53 45 | 54 53 09 22 78 78 67 6e |temps.SE|TS."xxgn|
|00002e50| 61 6d 65 22 3a 43 43 3a | 22 24 78 78 67 6c 6f 62 |ame":CC:|"$xxglob|
|00002e60| 73 22 0a 09 47 42 4c 53 | 09 24 74 65 6d 70 73 0a |s"..GBLS|.$temps.|
|00002e70| 24 74 65 6d 70 73 09 53 | 45 54 53 09 22 24 6e 61 |$temps.S|ETS."$na|
|00002e80| 6d 65 22 0a 78 78 67 6c | 6f 62 73 20 53 45 54 41 |me".xxgl|obs SETA|
|00002e90| 09 78 78 67 6c 6f 62 73 | 2b 31 0a 24 6e 61 6d 65 |.xxglobs|+1.$name|
|00002ea0| 0a 09 4d 45 4e 44 0a 0a | 09 4d 41 43 52 4f 0a 09 |..MEND..|.MACRO..|
|00002eb0| 47 6c 6f 62 49 6e 69 74 | 73 0a 67 6c 6f 62 69 6e |GlobInit|s.globin|
|00002ec0| 69 74 73 0a 74 65 6d 70 | 61 09 53 45 54 41 09 30 |its.temp|a.SETA.0|
|00002ed0| 0a 20 20 20 20 20 57 48 | 49 4c 45 20 74 65 6d 70 |.     WH|ILE temp|
|00002ee0| 61 3c 78 78 67 6c 6f 62 | 73 0a 74 65 6d 70 73 09 |a<xxglob|s.temps.|
|00002ef0| 53 45 54 53 09 22 78 78 | 67 6e 61 6d 65 22 3a 43 |SETS."xx|gname":C|
|00002f00| 43 3a 22 24 74 65 6d 70 | 61 22 0a 74 65 6d 70 73 |C:"$temp|a".temps|
|00002f10| 09 53 45 54 53 09 24 74 | 65 6d 70 73 0a 09 47 6c |.SETS.$t|emps..Gl|
|00002f20| 6f 62 49 6e 69 74 20 24 | 74 65 6d 70 73 0a 74 65 |obInit $|temps.te|
|00002f30| 6d 70 61 09 53 45 54 41 | 09 74 65 6d 70 61 2b 31 |mpa.SETA|.tempa+1|
|00002f40| 0a 20 20 20 20 20 57 45 | 4e 44 0a 09 4d 45 4e 44 |.     WE|ND..MEND|
|00002f50| 0a 0a 09 4d 41 43 52 4f | 0a 24 6c 61 62 09 41 64 |...MACRO|.$lab.Ad|
|00002f60| 64 72 65 73 73 20 24 76 | 61 6c 75 65 0a 20 5b 20 |dress $v|alue. [ |
|00002f70| 22 24 6c 61 62 22 3c 3e | 22 22 0a 24 6c 61 62 0a |"$lab"<>|"".$lab.|
|00002f80| 20 5d 0a 74 65 6d 70 73 | 09 53 45 54 53 09 22 72 | ].temps|.SETS."r|
|00002f90| 78 22 3a 43 43 3a 22 24 | 78 78 72 65 6c 6f 63 73 |x":CC:"$|xxrelocs|
|00002fa0| 22 0a 24 74 65 6d 70 73 | 0a 09 26 09 24 76 61 6c |".$temps|..&.$val|
|00002fb0| 75 65 2d 53 74 61 72 74 | 0a 78 78 72 65 6c 6f 63 |ue-Start|.xxreloc|
|00002fc0| 73 20 53 45 54 41 09 78 | 78 72 65 6c 6f 63 73 2b |s SETA.x|xrelocs+|
|00002fd0| 31 0a 09 4d 45 4e 44 0a | 0a 09 4d 41 43 52 4f 0a |1..MEND.|..MACRO.|
|00002fe0| 09 47 6c 6f 62 49 6e 69 | 74 20 24 6e 61 6d 65 0a |.GlobIni|t $name.|
|00002ff0| 09 26 09 47 5f 24 6e 61 | 6d 65 2f 34 0a 74 65 6d |.&.G_$na|me/4.tem|
|00003000| 70 73 09 53 45 54 53 09 | 22 72 78 22 3a 43 43 3a |ps.SETS.|"rx":CC:|
|00003010| 22 24 78 78 72 65 6c 6f | 63 73 22 0a 24 74 65 6d |"$xxrelo|cs".$tem|
|00003020| 70 73 0a 09 26 09 24 6e | 61 6d 65 2d 53 74 61 72 |ps..&.$n|ame-Star|
|00003030| 74 0a 78 78 72 65 6c 6f | 63 73 20 53 45 54 41 09 |t.xxrelo|cs SETA.|
|00003040| 78 78 72 65 6c 6f 63 73 | 2b 31 0a 09 4d 45 4e 44 |xxrelocs|+1..MEND|
|00003050| 0a 0a 09 4d 41 43 52 4f | 0a 09 45 6e 64 4d 6f 64 |...MACRO|..EndMod|
|00003060| 75 6c 65 0a 67 6c 6f 62 | 69 6e 69 74 73 0a 74 65 |ule.glob|inits.te|
|00003070| 6d 70 61 09 53 45 54 41 | 09 30 0a 20 20 20 20 20 |mpa.SETA|.0.     |
|00003080| 57 48 49 4c 45 20 74 65 | 6d 70 61 3c 78 78 67 6c |WHILE te|mpa<xxgl|
|00003090| 6f 62 73 0a 74 65 6d 70 | 73 09 53 45 54 53 09 22 |obs.temp|s.SETS."|
|000030a0| 78 78 67 6e 61 6d 65 22 | 3a 43 43 3a 22 24 74 65 |xxgname"|:CC:"$te|
|000030b0| 6d 70 61 22 0a 74 65 6d | 70 73 09 53 45 54 53 09 |mpa".tem|ps.SETS.|
|000030c0| 24 74 65 6d 70 73 0a 09 | 47 6c 6f 62 49 6e 69 74 |$temps..|GlobInit|
|000030d0| 20 24 74 65 6d 70 73 0a | 74 65 6d 70 61 09 53 45 | $temps.|tempa.SE|
|000030e0| 54 41 09 74 65 6d 70 61 | 2b 31 0a 20 20 20 20 20 |TA.tempa|+1.     |
|000030f0| 57 45 4e 44 0a 09 26 09 | 26 24 78 78 74 6f 70 67 |WEND..&.|&$xxtopg|
|00003100| 6c 6f 62 61 6c 0a 09 26 | 09 30 0a 0a 09 26 09 26 |lobal..&|.0...&.&|
|00003110| 31 32 33 34 35 36 37 38 | 0a 74 65 6d 70 61 09 53 |12345678|.tempa.S|
|00003120| 45 54 41 09 30 0a 20 20 | 20 20 20 57 48 49 4c 45 |ETA.0.  |   WHILE|
|00003130| 20 74 65 6d 70 61 3c 3e | 78 78 72 65 6c 6f 63 73 | tempa<>|xxrelocs|
|00003140| 0a 74 65 6d 70 73 09 53 | 45 54 53 09 22 72 78 22 |.temps.S|ETS."rx"|
|00003150| 3a 43 43 3a 22 24 74 65 | 6d 70 61 22 0a 74 65 6d |:CC:"$te|mpa".tem|
|00003160| 70 61 09 53 45 54 41 09 | 74 65 6d 70 61 2b 31 0a |pa.SETA.|tempa+1.|
|00003170| 09 26 09 24 74 65 6d 70 | 73 2d 53 74 61 72 74 0a |.&.$temp|s-Start.|
|00003180| 20 20 20 20 20 57 45 4e | 44 0a 09 26 09 26 38 37 |     WEN|D..&.&87|
|00003190| 36 35 34 33 32 31 0a 09 | 4d 45 4e 44 0a 0a 09 45 |654321..|MEND...E|
|000031a0| 4e 44 0a 46 69 6c 65 44 | 61 74 61 82 64 6f 63 00 |ND.FileD|ata.doc.|
|000031b0| 00 00 00 00 00 00 00 41 | 26 00 00 40 ff ff ff 64 |.......A|&..@...d|
|000031c0| 25 31 c3 03 00 8e 04 42 | 43 50 4c 20 64 6f 63 75 |%1.....B|CPL docu|
|000031d0| 6d 65 6e 74 20 6f 66 20 | 32 35 20 4f 63 74 20 38 |ment of |25 Oct 8|
|000031e0| 35 20 31 37 3a 33 38 3a | 32 31 0a 0a 43 6f 6d 70 |5 17:38:|21..Comp|
|000031f0| 69 6c 65 72 20 6f 70 74 | 69 6f 6e 73 0a 0a 44 65 |iler opt|ions..De|
|00003200| 66 61 75 6c 74 20 76 61 | 6c 75 65 73 20 61 72 65 |fault va|lues are|
|00003210| 20 67 69 76 65 6e 20 69 | 6e 20 73 71 75 61 72 65 | given i|n square|
|00003220| 20 62 72 61 63 6b 65 74 | 73 2e 0a 0a 20 46 72 6f | bracket|s... Fro|
|00003230| 6e 74 20 65 6e 64 3a 0a | 0a 20 20 20 42 09 20 5b |nt end:.|.   B. [|
|00003240| 6f 66 66 5d 09 20 20 73 | 74 61 63 6b 20 67 72 6f |off].  s|tack gro|
|00003250| 77 73 20 66 72 6f 6d 20 | 68 69 67 68 20 74 6f 20 |ws from |high to |
|00003260| 6c 6f 77 20 61 64 64 72 | 65 73 73 65 73 20 2d 0a |low addr|esses -.|
|00003270| 09 09 20 20 70 6f 69 6e | 74 20 56 45 43 73 20 61 |..  poin|t VECs a|
|00003280| 74 20 74 68 65 20 65 6e | 64 2c 20 6e 6f 74 20 62 |t the en|d, not b|
|00003290| 65 67 69 6e 6e 69 6e 67 | 0a 20 20 20 43 09 20 5b |eginning|.   C. [|
|000032a0| 6f 6e 5d 09 20 20 65 71 | 75 61 74 65 20 63 61 73 |on].  eq|uate cas|
|000032b0| 65 73 0a 20 20 20 4c 09 | 20 5b 6f 6e 5d 09 20 20 |es.   L.| [on].  |
|000032c0| 65 6e 61 62 6c 65 20 73 | 70 65 63 69 61 6c 20 4c |enable s|pecial L|
|000032d0| 49 53 50 20 6f 70 65 72 | 61 74 6f 72 73 0a 20 20 |ISP oper|ators.  |
|000032e0| 20 52 09 20 5b 6f 66 66 | 5d 09 20 20 27 72 65 73 | R. [off|].  'res|
|000032f0| 74 72 69 63 74 65 64 27 | 20 6c 61 6e 67 75 61 67 |tricted'| languag|
|00003300| 65 0a 20 20 20 53 6e 09 | 20 5b 34 5d 09 20 20 73 |e.   Sn.| [4].  s|
|00003310| 65 74 20 73 61 76 65 73 | 70 61 63 65 20 73 69 7a |et saves|pace siz|
|00003320| 65 0a 20 20 20 54 09 20 | 5b 6f 66 66 5d 09 20 20 |e.   T. |[off].  |
|00003330| 70 72 69 6e 74 20 70 61 | 72 73 65 20 74 72 65 65 |print pa|rse tree|
|00003340| 0a 20 20 20 58 6e 09 20 | 5b 6c 61 72 67 65 5d 20 |.   Xn. |[large] |
|00003350| 20 73 65 74 20 65 78 74 | 65 6e 73 69 6f 6e 20 6c | set ext|ension l|
|00003360| 65 76 65 6c 20 74 6f 20 | 6e 0a 20 20 20 24 74 61 |evel to |n.   $ta|
|00003370| 67 20 09 20 20 73 65 74 | 20 74 61 67 20 74 6f 20 |g .  set| tag to |
|00003380| 54 52 55 45 0a 20 20 20 | 24 74 61 67 27 09 20 20 |TRUE.   |$tag'.  |
|00003390| 73 65 74 20 74 61 67 20 | 74 6f 20 46 41 4c 53 45 |set tag |to FALSE|
|000033a0| 0a 20 20 20 44 6e 09 20 | 2d 20 69 67 6e 6f 72 65 |.   Dn. |- ignore|
|000033b0| 64 20 2d 0a 0a 20 43 6f | 64 65 20 67 65 6e 65 72 |d -.. Co|de gener|
|000033c0| 61 74 6f 72 20 6f 70 74 | 69 6f 6e 73 3a 0a 0a 20 |ator opt|ions:.. |
|000033d0| 20 20 41 09 20 5b 6f 66 | 66 5d 09 20 20 67 65 6e |  A. [of|f].  gen|
|000033e0| 65 72 61 74 65 20 41 4f | 46 0a 20 20 20 42 09 20 |erate AO|F.   B. |
|000033f0| 5b 6f 6e 5d 09 20 20 65 | 6e 73 75 72 65 20 52 42 |[on].  e|nsure RB|
|00003400| 20 63 6f 6e 74 61 69 6e | 73 20 61 64 64 72 65 73 | contain|s addres|
|00003410| 73 20 6f 66 20 64 65 73 | 74 69 6e 61 74 69 6f 6e |s of des|tination|
|00003420| 20 70 72 6f 63 65 64 75 | 72 65 20 6f 6e 20 63 61 | procedu|re on ca|
|00003430| 6c 6c 0a 20 20 20 43 09 | 20 5b 6f 66 66 5d 09 20 |ll.   C.| [off]. |
|00003440| 20 73 74 61 63 6b 20 63 | 68 65 63 6b 69 6e 67 0a | stack c|hecking.|
|00003450| 20 20 20 50 09 20 5b 6f | 66 66 5d 09 20 20 70 72 |   P. [o|ff].  pr|
|00003460| 6f 66 69 6c 65 20 61 6e | 64 20 63 61 6c 6c 20 63 |ofile an|d call c|
|00003470| 6f 75 6e 74 69 6e 67 0a | 20 20 20 4b 09 20 5b 6f |ounting.|   K. [o|
|00003480| 66 66 5d 09 20 20 63 61 | 6c 6c 20 63 6f 75 6e 74 |ff].  ca|ll count|
|00003490| 69 6e 67 0a 20 20 20 4e | 09 20 5b 6f 66 66 5d 09 |ing.   N|. [off].|
|000034a0| 20 20 67 65 6e 65 72 61 | 74 65 20 76 61 72 69 61 |  genera|te varia|
|000034b0| 62 6c 65 20 6e 61 6d 65 | 73 20 69 6e 20 63 6f 64 |ble name|s in cod|
|000034c0| 65 0a 20 20 20 53 09 20 | 5b 6f 6e 5d 09 20 20 70 |e.   S. |[on].  p|
|000034d0| 72 6f 64 75 63 65 20 63 | 6f 6d 70 61 63 74 65 72 |roduce c|ompacter|
|000034e0| 20 63 6f 64 65 20 61 74 | 20 74 68 65 20 65 78 70 | code at| the exp|
|000034f0| 65 6e 73 65 20 6f 66 20 | 73 70 65 65 64 20 62 79 |ense of |speed by|
|00003500| 20 63 6f 6d 70 69 6c 69 | 6e 67 0a 09 09 20 20 76 | compili|ng...  v|
|00003510| 61 72 69 6f 75 73 20 73 | 65 71 75 65 6e 63 65 73 |arious s|equences|
|00003520| 20 6f 75 74 20 6f 66 20 | 6c 69 6e 65 0a 20 20 20 | out of |line.   |
|00003530| 57 6e 09 20 2d 20 69 67 | 6e 6f 72 65 64 20 2d 0a |Wn. - ig|nored -.|
|00003540| 20 20 20 44 6e 09 20 5b | 30 5d 09 20 20 73 65 74 |   Dn. [|0].  set|
|00003550| 20 43 47 20 64 65 62 75 | 67 20 6d 6f 64 65 20 74 | CG debu|g mode t|
|00003560| 6f 20 6e 2e 0a 09 09 20 | 20 49 20 61 73 73 75 72 |o n.... | I assur|
|00003570| 65 20 79 6f 75 2c 20 79 | 6f 75 20 64 6f 6e 27 74 |e you, y|ou don't|
|00003580| 20 77 61 6e 74 20 74 6f | 20 75 73 65 20 74 68 69 | want to| use thi|
|00003590| 73 0a 20 20 20 4f 6e 09 | 20 5b 31 5d 09 20 20 73 |s.   On.| [1].  s|
|000035a0| 65 74 20 43 47 20 6f 70 | 74 69 6d 69 73 65 20 6d |et CG op|timise m|
|000035b0| 6f 64 65 20 74 6f 20 6e | 0a 0a 20 53 77 69 74 63 |ode to n|.. Switc|
|000035c0| 68 20 6f 70 74 69 6f 6e | 73 20 6d 75 73 74 20 62 |h option|s must b|
|000035d0| 65 20 70 72 65 63 65 64 | 65 64 20 62 79 20 2b 20 |e preced|ed by + |
|000035e0| 6f 72 20 2d 2e 20 20 4f | 70 74 69 6f 6e 73 20 6d |or -.  O|ptions m|
|000035f0| 61 79 20 62 65 20 73 65 | 70 61 72 61 74 65 64 20 |ay be se|parated |
|00003600| 62 79 0a 20 63 6f 6d 6d | 61 73 20 61 6e 64 20 73 |by. comm|as and s|
|00003610| 70 61 63 65 73 2e 20 20 | 46 72 6f 6e 74 20 65 6e |paces.  |Front en|
|00003620| 64 20 6f 70 74 69 6f 6e | 73 20 61 72 65 20 73 65 |d option|s are se|
|00003630| 70 65 72 61 74 65 64 20 | 66 72 6f 6d 20 63 6f 64 |perated |from cod|
|00003640| 65 20 67 65 6e 65 72 61 | 74 6f 72 0a 20 6f 6e 65 |e genera|tor. one|
|00003650| 73 20 62 79 20 2f 2e 0a | 0a 20 49 66 20 74 68 65 |s by /..|. If the|
|00003660| 20 42 20 66 72 6f 6e 74 | 2d 65 6e 64 20 6f 70 74 | B front|-end opt|
|00003670| 69 6f 6e 20 69 73 20 75 | 73 65 64 2c 20 74 68 65 |ion is u|sed, the|
|00003680| 20 63 6f 64 65 20 67 65 | 6e 65 72 61 74 65 64 20 | code ge|nerated |
|00003690| 72 65 71 75 69 72 65 73 | 20 74 68 65 20 73 75 70 |requires| the sup|
|000036a0| 70 6f 72 74 0a 20 6f 66 | 20 61 20 64 69 66 66 65 |port. of| a diffe|
|000036b0| 72 65 6e 74 20 28 63 75 | 72 72 65 6e 74 6c 79 20 |rent (cu|rrently |
|000036c0| 6e 6f 6e 2d 65 78 69 73 | 74 65 6e 74 29 20 6d 63 |non-exis|tent) mc|
|000036d0| 6c 69 62 2e 0a 20 54 68 | 65 20 50 20 63 6f 64 65 |lib.. Th|e P code|
|000036e0| 20 67 65 6e 65 72 61 74 | 6f 72 20 6f 70 74 69 6f | generat|or optio|
|000036f0| 6e 20 63 75 72 72 65 6e | 74 6c 79 20 67 65 6e 65 |n curren|tly gene|
|00003700| 72 61 74 65 73 20 6f 6e | 6c 79 20 65 6e 74 72 79 |rates on|ly entry|
|00003710| 20 63 6f 75 6e 74 73 2e | 0a 20 54 68 65 20 4e 20 | counts.|. The N |
|00003720| 63 6f 64 65 20 67 65 6e | 65 72 61 74 6f 72 20 6f |code gen|erator o|
|00003730| 70 74 69 6f 6e 20 69 73 | 20 6f 6e 6c 79 20 70 61 |ption is| only pa|
|00003740| 72 74 69 61 6c 6c 79 20 | 69 6d 70 6c 65 6d 65 6e |rtially |implemen|
|00003750| 74 65 64 20 61 74 20 70 | 72 65 73 65 6e 74 2e 0a |ted at p|resent..|
|00003760| 0a 0a 54 68 65 20 6c 69 | 62 72 61 72 79 0a 0a 31 |..The li|brary..1|
|00003770| 34 09 50 75 74 42 79 74 | 65 28 76 65 63 2c 20 6f |4.PutByt|e(vec, o|
|00003780| 66 66 73 65 74 2c 20 76 | 61 6c 75 65 29 0a 31 35 |ffset, v|alue).15|
|00003790| 09 72 65 73 75 6c 74 20 | 3a 3d 20 47 65 74 42 79 |.result |:= GetBy|
|000037a0| 74 65 28 76 65 63 2c 20 | 6f 66 66 73 65 74 29 0a |te(vec, |offset).|
|000037b0| 0a 33 37 09 72 65 73 75 | 6c 74 20 3a 3d 20 47 42 |.37.resu|lt := GB|
|000037c0| 79 74 65 73 28 68 61 72 | 64 77 61 72 65 2d 61 64 |ytes(har|dware-ad|
|000037d0| 64 72 65 73 73 2c 20 20 | 73 69 7a 65 29 0a 33 38 |dress,  |size).38|
|000037e0| 09 50 42 79 74 65 73 28 | 68 61 72 64 77 61 72 65 |.PBytes(|hardware|
|000037f0| 2d 61 64 64 72 65 73 73 | 2c 20 20 73 69 7a 65 2c |-address|,  size,|
|00003800| 20 20 64 61 74 61 29 0a | 0a 31 36 09 72 65 73 75 |  data).|.16.resu|
|00003810| 6c 74 20 3a 3d 20 4d 75 | 6c 44 69 76 28 61 2c 20 |lt := Mu|lDiv(a, |
|00003820| 62 2c 20 63 29 0a 09 20 | 20 20 72 65 73 75 6c 74 |b, c).. |  result|
|00003830| 20 20 3d 20 61 2a 62 2f | 63 0a 09 20 20 20 72 65 |  = a*b/|c..   re|
|00003840| 73 75 6c 74 32 20 3d 20 | 61 2a 62 20 52 45 4d 20 |sult2 = |a*b REM |
|00003850| 63 0a 0a 32 30 09 63 68 | 20 3a 3d 20 43 61 70 69 |c..20.ch| := Capi|
|00003860| 74 61 6c 43 68 28 63 68 | 29 0a 0a 32 31 09 63 6f |talCh(ch|)..21.co|
|00003870| 6d 70 61 72 69 73 6f 6e | 20 3a 3d 20 43 6f 6d 70 |mparison| := Comp|
|00003880| 43 68 28 63 68 31 2c 20 | 63 68 32 29 0a 09 20 20 |Ch(ch1, |ch2)..  |
|00003890| 20 72 65 73 75 6c 74 20 | 68 61 73 20 74 68 65 20 | result |has the |
|000038a0| 73 69 67 6e 20 6f 66 20 | 63 68 31 2d 63 68 32 20 |sign of |ch1-ch2 |
|000038b0| 28 63 61 73 65 20 66 6f | 6c 64 65 64 29 0a 0a 32 |(case fo|lded)..2|
|000038c0| 32 09 63 6f 6d 70 61 72 | 69 73 6f 6e 20 3a 3d 20 |2.compar|ison := |
|000038d0| 43 6f 6d 70 53 74 72 69 | 6e 67 28 73 31 2c 20 73 |CompStri|ng(s1, s|
|000038e0| 32 29 0a 0a 33 35 09 53 | 74 6f 70 0a 0a 34 31 09 |2)..35.S|top..41.|
|000038f0| 66 72 61 6d 65 70 74 72 | 20 3a 3d 20 4c 65 76 65 |frameptr| := Leve|
|00003900| 6c 28 29 0a 0a 34 32 09 | 4c 6f 6e 67 4a 75 6d 70 |l()..42.|LongJump|
|00003910| 28 66 72 61 6d 65 70 74 | 72 2c 20 6c 61 62 29 0a |(framept|r, lab).|
|00003920| 09 20 20 20 54 68 65 20 | 66 72 61 6d 65 20 76 61 |.   The |frame va|
|00003930| 6c 75 65 20 6d 75 73 74 | 20 62 65 20 6f 6e 65 20 |lue must| be one |
|00003940| 74 68 61 74 20 69 73 20 | 72 65 61 63 68 61 62 6c |that is |reachabl|
|00003950| 65 20 62 79 20 63 68 61 | 69 6e 69 6e 67 20 62 61 |e by cha|ining ba|
|00003960| 63 6b 0a 09 20 20 20 66 | 72 6f 6d 20 74 68 65 20 |ck..   f|rom the |
|00003970| 63 75 72 72 65 6e 74 20 | 66 72 61 6d 65 0a 0a 34 |current |frame..4|
|00003980| 33 09 41 70 74 6f 76 65 | 63 28 70 72 6f 63 2c 20 |3.Aptove|c(proc, |
|00003990| 76 65 63 20 75 62 29 0a | 09 20 20 20 4e 6f 74 65 |vec ub).|.   Note|
|000039a0| 20 74 68 61 74 20 41 70 | 74 6f 76 65 63 20 75 73 | that Ap|tovec us|
|000039b0| 65 73 20 61 20 73 74 61 | 63 6b 20 66 72 61 6d 65 |es a sta|ck frame|
|000039c0| 20 69 74 73 65 6c 66 0a | 0a 34 38 09 43 72 65 61 | itself.|.48.Crea|
|000039d0| 74 65 43 6f 28 66 75 6e | 63 74 69 6f 6e 2c 20 73 |teCo(fun|ction, s|
|000039e0| 74 61 63 6b 73 69 7a 65 | 29 0a 0a 34 39 09 73 75 |tacksize|)..49.su|
|000039f0| 63 63 65 73 73 63 6f 64 | 65 20 3a 3d 20 44 65 6c |ccesscod|e := Del|
|00003a00| 65 74 65 43 6f 28 63 70 | 74 72 29 0a 0a 35 30 09 |eteCo(cp|tr)..50.|
|00003a10| 43 61 6c 6c 43 6f 28 63 | 70 74 72 2c 20 61 72 67 |CallCo(c|ptr, arg|
|00003a20| 29 0a 0a 35 31 09 52 65 | 73 75 6d 65 43 6f 28 63 |)..51.Re|sumeCo(c|
|00003a30| 70 74 72 2c 20 61 72 67 | 29 0a 0a 35 32 09 43 6f |ptr, arg|)..52.Co|
|00003a40| 57 61 69 74 28 63 70 74 | 72 29 0a 0a 35 34 09 76 |Wait(cpt|r)..54.v|
|00003a50| 65 63 20 3a 3d 20 47 65 | 74 56 65 63 28 75 70 70 |ec := Ge|tVec(upp|
|00003a60| 65 72 62 6f 75 6e 64 29 | 0a 0a 35 35 09 46 72 65 |erbound)|..55.Fre|
|00003a70| 65 56 65 63 28 76 65 63 | 29 0a 0a 35 36 09 73 69 |eVec(vec|)..56.si|
|00003a80| 7a 65 20 3a 3d 20 4d 61 | 78 56 65 63 28 29 0a 0a |ze := Ma|xVec()..|
|00003a90| 39 34 09 65 72 72 6f 72 | 20 73 74 61 74 75 73 20 |94.error| status |
|00003aa0| 3a 3d 20 53 57 49 28 6e | 75 6d 62 65 72 2c 20 61 |:= SWI(n|umber, a|
|00003ab0| 72 67 73 2c 20 72 65 73 | 75 6c 74 73 29 0a 09 20 |rgs, res|ults).. |
|00003ac0| 20 61 72 67 73 09 20 20 | 20 20 20 20 20 69 73 20 | args.  |     is |
|00003ad0| 61 20 31 30 20 77 6f 72 | 64 20 42 43 50 4c 20 76 |a 10 wor|d BCPL v|
|00003ae0| 65 63 74 6f 72 20 63 6f | 6e 74 61 69 6e 69 6e 67 |ector co|ntaining|
|00003af0| 20 74 68 65 20 76 61 6c | 75 65 73 20 66 6f 72 0a | the val|ues for.|
|00003b00| 09 09 20 20 20 20 20 20 | 20 52 30 20 74 6f 20 52 |..      | R0 to R|
|00003b10| 39 20 69 6e 63 6c 75 73 | 69 76 65 0a 09 20 20 72 |9 inclus|ive..  r|
|00003b20| 65 73 75 6c 74 73 20 20 | 20 20 20 20 69 73 20 61 |esults  |    is a|
|00003b30| 20 31 30 20 77 6f 72 64 | 20 42 43 50 4c 20 76 65 | 10 word| BCPL ve|
|00003b40| 63 74 6f 72 20 74 6f 20 | 72 65 63 65 69 76 65 20 |ctor to |receive |
|00003b50| 74 68 65 20 76 61 6c 75 | 65 73 20 6f 66 0a 09 09 |the valu|es of...|
|00003b60| 20 20 20 20 20 20 20 52 | 30 20 74 6f 20 52 39 20 |       R|0 to R9 |
|00003b70| 69 6e 63 6c 75 73 69 76 | 65 20 61 66 74 65 72 20 |inclusiv|e after |
|00003b80| 74 68 65 20 53 57 49 0a | 09 20 20 65 72 72 6f 72 |the SWI.|.  error|
|00003b90| 20 73 74 61 74 75 73 20 | 69 73 20 6e 6f 6e 2d 7a | status |is non-z|
|00003ba0| 65 72 6f 20 69 66 20 74 | 68 65 20 53 57 49 20 67 |ero if t|he SWI g|
|00003bb0| 61 76 65 20 72 69 73 65 | 20 74 6f 20 61 6e 20 65 |ave rise| to an e|
|00003bc0| 72 72 6f 72 0a 0a 39 36 | 09 41 76 61 6c 75 65 20 |rror..96|.Avalue |
|00003bd0| 3a 3d 20 4f 53 41 72 67 | 73 28 6f 70 2c 20 68 61 |:= OSArg|s(op, ha|
|00003be0| 6e 64 6c 65 2c 20 64 61 | 74 61 29 0a 09 20 20 72 |ndle, da|ta)..  r|
|00003bf0| 65 73 75 6c 74 20 69 73 | 20 6e 65 67 61 74 69 76 |esult is| negativ|
|00003c00| 65 20 69 66 20 61 6e 20 | 65 72 72 6f 72 20 6f 63 |e if an |error oc|
|00003c10| 63 75 72 72 65 64 2e 0a | 09 20 20 28 6f 74 68 65 |curred..|.  (othe|
|00003c20| 72 77 69 73 65 2c 20 6f | 6e 6c 79 20 73 69 67 6e |rwise, o|nly sign|
|00003c30| 69 66 69 63 61 6e 74 20 | 77 68 65 6e 20 6f 70 3d |ificant |when op=|
|00003c40| 68 61 6e 64 6c 65 3d 30 | 29 0a 09 20 20 72 65 73 |handle=0|)..  res|
|00003c50| 75 6c 74 32 20 72 65 63 | 65 69 76 65 73 20 74 68 |ult2 rec|eives th|
|00003c60| 65 20 72 65 74 75 72 6e | 65 64 20 64 61 74 61 20 |e return|ed data |
|00003c70| 76 61 6c 75 65 2e 0a 0a | 39 37 09 62 79 74 65 20 |value...|97.byte |
|00003c80| 3a 3d 20 4f 53 42 47 65 | 74 28 63 68 61 6e 6e 65 |:= OSBGe|t(channe|
|00003c90| 6c 29 0a 09 20 20 20 28 | 23 78 31 66 65 20 72 65 |l)..   (|#x1fe re|
|00003ca0| 74 75 72 6e 65 64 20 61 | 74 20 65 6e 64 20 6f 66 |turned a|t end of|
|00003cb0| 20 66 69 6c 65 29 0a 09 | 20 20 20 72 65 73 75 6c | file)..|   resul|
|00003cc0| 74 20 69 73 20 6e 65 67 | 61 74 69 76 65 20 6f 6e |t is neg|ative on|
|00003cd0| 20 61 6e 20 65 72 72 6f | 72 2e 0a 0a 39 38 09 65 | an erro|r...98.e|
|00003ce0| 72 72 6f 72 20 3a 3d 20 | 4f 53 42 50 75 74 28 62 |rror := |OSBPut(b|
|00003cf0| 79 74 65 2c 20 63 68 61 | 6e 6e 65 6c 29 0a 09 20 |yte, cha|nnel).. |
|00003d00| 20 20 72 65 73 75 6c 74 | 20 69 73 20 30 20 69 66 |  result| is 0 if|
|00003d10| 20 4f 4b 2c 20 6e 65 67 | 61 74 69 76 65 20 69 66 | OK, neg|ative if|
|00003d20| 20 61 6e 20 65 72 72 6f | 72 20 6f 63 63 75 72 72 | an erro|r occurr|
|00003d30| 65 64 2e 0a 0a 39 39 09 | 72 65 73 75 6c 74 20 3a |ed...99.|result :|
|00003d40| 3d 20 4f 53 46 69 6e 64 | 28 6f 70 2c 20 61 72 67 |= OSFind|(op, arg|
|00003d50| 29 0a 09 20 20 20 6f 70 | 3d 30 2c 20 28 63 6c 6f |)..   op|=0, (clo|
|00003d60| 73 65 29 20 61 72 67 20 | 69 73 20 66 69 6c 65 20 |se) arg |is file |
|00003d70| 68 61 6e 64 6c 65 0a 09 | 20 20 20 6f 70 20 7e 3d |handle..|   op ~=|
|00003d80| 30 20 28 6f 70 65 6e 29 | 20 61 72 67 20 69 73 20 |0 (open)| arg is |
|00003d90| 66 69 6c 65 20 6e 61 6d | 65 20 28 42 43 50 4c 20 |file nam|e (BCPL |
|00003da0| 73 74 72 69 6e 67 29 2c | 20 72 65 74 75 72 6e 73 |string),| returns|
|00003db0| 20 68 61 6e 64 6c 65 0a | 0a 31 30 30 09 72 65 73 | handle.|.100.res|
|00003dc0| 75 6c 74 20 3a 3d 20 4f | 53 46 69 6c 65 28 6f 70 |ult := O|SFile(op|
|00003dd0| 2c 20 66 69 6c 65 6e 61 | 6d 65 2c 20 61 72 67 73 |, filena|me, args|
|00003de0| 29 0a 09 20 20 66 69 6c | 65 6e 61 6d 65 20 69 73 |)..  fil|ename is|
|00003df0| 20 61 20 42 43 50 4c 20 | 73 74 72 69 6e 67 0a 09 | a BCPL |string..|
|00003e00| 20 20 61 72 67 73 09 20 | 20 20 69 73 20 61 20 42 |  args. |  is a B|
|00003e10| 43 50 4c 20 76 65 63 74 | 6f 72 20 63 6f 6e 74 61 |CPL vect|or conta|
|00003e20| 69 6e 69 6e 67 20 74 68 | 65 20 76 61 6c 75 65 73 |ining th|e values|
|00003e30| 20 77 61 6e 74 65 64 20 | 62 79 20 42 72 61 7a 69 | wanted |by Brazi|
|00003e40| 6c 0a 09 09 20 20 20 4f | 53 46 69 6c 65 20 69 6e |l...   O|SFile in|
|00003e50| 20 52 32 20 74 6f 20 52 | 35 2e 09 57 68 65 72 65 | R2 to R|5..Where|
|00003e60| 20 74 68 65 73 65 20 61 | 72 65 20 61 64 64 72 65 | these a|re addre|
|00003e70| 73 73 65 73 2c 20 74 68 | 65 79 20 61 72 65 0a 09 |sses, th|ey are..|
|00003e80| 09 20 20 20 68 61 72 64 | 77 61 72 65 20 61 64 72 |.   hard|ware adr|
|00003e90| 65 73 73 65 73 20 28 69 | 65 20 42 43 50 4c 20 70 |esses (i|e BCPL p|
|00003ea0| 6f 69 6e 74 65 72 73 20 | 73 68 69 66 74 65 64 20 |ointers |shifted |
|00003eb0| 75 70 20 74 77 6f 20 70 | 6c 61 63 65 73 29 2e 0a |up two p|laces)..|
|00003ec0| 09 20 20 72 65 73 75 6c | 74 20 69 73 20 67 75 61 |.  resul|t is gua|
|00003ed0| 72 61 6e 74 65 65 64 20 | 76 61 6c 69 64 20 6f 6e |ranteed |valid on|
|00003ee0| 6c 79 20 69 66 20 6f 70 | 20 69 73 20 35 0a 09 49 |ly if op| is 5..I|
|00003ef0| 66 20 61 6e 20 65 72 72 | 6f 72 20 6f 63 63 75 72 |f an err|or occur|
|00003f00| 73 2c 20 52 65 73 75 6c | 74 32 20 69 73 20 72 65 |s, Resul|t2 is re|
|00003f10| 74 75 72 6e 65 64 20 6e | 6f 6e 2d 7a 65 72 6f 0a |turned n|on-zero.|
|00003f20| 0a 31 30 31 09 72 65 73 | 75 6c 74 20 3a 3d 20 4f |.101.res|ult := O|
|00003f30| 53 43 4c 49 28 63 6f 6d | 6d 61 6e 64 29 0a 09 20 |SCLI(com|mand).. |
|00003f40| 20 63 6f 6d 6d 61 6e 64 | 20 69 73 20 61 20 42 43 | command| is a BC|
|00003f50| 50 4c 20 73 74 72 69 6e | 67 0a 09 20 20 72 65 73 |PL strin|g..  res|
|00003f60| 75 6c 74 20 20 69 73 20 | 46 61 6c 73 65 20 69 66 |ult  is |False if|
|00003f70| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 20 66 61 69 | the com|mand fai|
|00003f80| 6c 73 2c 20 54 72 75 65 | 20 6f 74 68 65 72 77 69 |ls, True| otherwi|
|00003f90| 73 65 0a 09 49 66 20 74 | 68 65 20 62 61 73 65 20 |se..If t|he base |
|00003fa0| 6f 66 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |of this |program |
|00003fb0| 69 73 20 6e 6f 74 20 23 | 78 38 30 30 30 2c 20 74 |is not #|x8000, t|
|00003fc0| 68 65 6e 20 69 74 20 74 | 72 69 65 73 20 74 6f 20 |hen it t|ries to |
|00003fd0| 72 75 6e 20 74 68 65 0a | 09 63 6f 6d 6d 61 6e 64 |run the.|.command|
|00003fe0| 20 61 73 20 61 20 73 75 | 62 2d 70 72 6f 67 72 61 | as a su|b-progra|
|00003ff0| 6d 2e 0a 0a 31 30 32 09 | 65 72 72 6f 72 20 3a 3d |m...102.|error :=|
|00004000| 20 4f 53 57 72 43 68 28 | 63 68 29 0a 09 20 20 20 | OSWrCh(|ch)..   |
|00004010| 72 65 73 75 6c 74 20 69 | 73 20 6e 65 67 61 74 69 |result i|s negati|
|00004020| 76 65 20 69 66 20 61 6e | 20 65 72 72 6f 72 20 6f |ve if an| error o|
|00004030| 63 63 75 72 72 65 64 0a | 0a 31 30 33 09 63 68 20 |ccurred.|.103.ch |
|00004040| 3a 3d 20 4f 53 52 64 43 | 68 28 29 0a 09 20 20 20 |:= OSRdC|h()..   |
|00004050| 52 65 73 75 6c 74 32 20 | 69 73 20 74 68 65 20 76 |Result2 |is the v|
|00004060| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 63 61 72 72 |alue of |the carr|
|00004070| 79 20 66 6c 61 67 20 72 | 65 73 75 6c 74 20 28 63 |y flag r|esult (c|
|00004080| 66 20 4f 53 57 6f 72 64 | 20 30 29 0a 0a 31 30 34 |f OSWord| 0)..104|
|00004090| 09 72 65 73 75 6c 74 20 | 3a 3d 20 4f 53 42 79 74 |.result |:= OSByt|
|000040a0| 65 28 61 2c 20 78 2c 20 | 79 29 2e 0a 09 20 20 20 |e(a, x, |y)...   |
|000040b0| 52 65 73 75 6c 74 20 69 | 73 20 72 65 74 75 72 6e |Result i|s return|
|000040c0| 20 58 20 76 61 6c 75 65 | 3b 20 52 65 73 75 6c 74 | X value|; Result|
|000040d0| 32 20 69 73 20 73 65 74 | 20 74 6f 20 72 65 74 75 |2 is set| to retu|
|000040e0| 72 6e 20 59 20 76 61 6c | 75 65 0a 0a 39 33 09 72 |rn Y val|ue..93.r|
|000040f0| 65 73 75 6c 74 20 3a 3d | 20 4f 53 42 79 74 65 32 |esult :=| OSByte2|
|00004100| 28 61 2c 20 78 2c 20 79 | 29 0a 09 20 20 20 52 65 |(a, x, y|)..   Re|
|00004110| 73 75 6c 74 20 69 73 20 | 6e 65 67 61 74 69 76 65 |sult is |negative|
|00004120| 20 69 66 20 61 6e 20 65 | 72 72 6f 72 3b 0a 09 20 | if an e|rror;.. |
|00004130| 20 20 6f 74 68 65 72 77 | 69 73 65 20 62 6f 74 74 |  otherw|ise bott|
|00004140| 6f 6d 20 62 79 74 65 20 | 3d 20 72 65 74 75 72 6e |om byte |= return|
|00004150| 20 78 0a 09 09 20 20 20 | 20 20 62 79 74 65 20 31 | x...   |  byte 1|
|00004160| 20 3d 20 72 65 74 75 72 | 6e 20 79 0a 09 09 20 20 | = retur|n y...  |
|00004170| 20 20 20 62 79 74 65 20 | 32 20 69 73 20 6e 6f 6e |   byte |2 is non|
|00004180| 2d 7a 65 72 6f 20 69 66 | 20 72 65 74 75 72 6e 20 |-zero if| return |
|00004190| 63 61 72 72 79 20 66 6c | 61 67 20 73 65 74 0a 09 |carry fl|ag set..|
|000041a0| 20 20 20 28 54 68 69 73 | 20 69 73 20 68 6f 77 20 |   (This| is how |
|000041b0| 4f 53 42 79 74 65 20 73 | 68 6f 75 6c 64 20 68 61 |OSByte s|hould ha|
|000041c0| 76 65 20 62 65 65 6e 3a | 20 49 20 6d 61 79 20 6c |ve been:| I may l|
|000041d0| 61 74 65 72 20 72 65 6d | 6f 76 65 20 69 74 20 69 |ater rem|ove it i|
|000041e0| 6e 0a 09 20 20 20 20 66 | 61 76 6f 75 72 20 6f 66 |n..    f|avour of|
|000041f0| 20 74 68 69 73 29 2e 0a | 0a 31 30 35 09 4f 53 57 | this)..|.105.OSW|
|00004200| 6f 72 64 28 6e 75 6d 62 | 65 72 2c 20 62 75 66 66 |ord(numb|er, buff|
|00004210| 65 72 29 0a 09 20 20 20 | 49 66 20 6e 75 6d 62 65 |er)..   |If numbe|
|00004220| 72 3d 30 20 74 68 69 73 | 20 64 6f 65 73 20 61 20 |r=0 this| does a |
|00004230| 42 72 61 7a 69 6c 20 52 | 65 61 64 4c 69 6e 65 2c |Brazil R|eadLine,|
|00004240| 20 61 6e 64 20 72 65 74 | 75 72 6e 73 20 74 68 65 | and ret|urns the|
|00004250| 20 6c 65 6e 67 74 68 20 | 72 65 61 64 0a 09 09 20 | length |read... |
|00004260| 20 20 20 20 20 20 61 73 | 20 72 65 73 75 6c 74 20 |      as| result |
|00004270| 61 6e 64 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |and the |value of|
|00004280| 20 74 68 65 20 63 61 72 | 72 79 20 66 6c 61 67 20 | the car|ry flag |
|00004290| 69 6e 20 52 65 73 75 6c | 74 32 0a 09 09 20 20 20 |in Resul|t2...   |
|000042a0| 20 20 20 20 28 54 52 55 | 45 20 69 66 20 73 65 74 |    (TRU|E if set|
|000042b0| 2c 20 46 41 4c 53 45 20 | 6f 74 68 65 72 77 69 73 |, FALSE |otherwis|
|000042c0| 65 29 0a 09 20 20 20 49 | 66 20 6e 75 6d 62 65 72 |e)..   I|f number|
|000042d0| 7e 3d 30 20 64 6f 65 73 | 20 61 20 42 72 61 7a 69 |~=0 does| a Brazi|
|000042e0| 6c 20 4f 53 57 6f 72 64 | 3b 20 6e 6f 20 72 65 73 |l OSWord|; no res|
|000042f0| 75 6c 74 20 72 65 74 75 | 72 6e 65 64 0a 0a 31 30 |ult retu|rned..10|
|00004300| 36 09 62 75 66 66 65 72 | 20 3a 3d 20 54 4b 52 45 |6.buffer| := TKRE|
|00004310| 72 72 28 62 75 66 66 65 | 72 2c 20 6d 61 78 6c 65 |rr(buffe|r, maxle|
|00004320| 6e 67 74 68 29 0a 09 20 | 20 20 4d 6f 76 65 73 20 |ngth).. |  Moves |
|00004330| 74 68 65 20 6d 6f 73 74 | 20 72 65 63 65 6e 74 20 |the most| recent |
|00004340| 65 72 72 6f 72 20 73 74 | 72 69 6e 67 20 69 6e 74 |error st|ring int|
|00004350| 6f 20 74 68 65 20 67 69 | 76 65 6e 20 62 75 66 66 |o the gi|ven buff|
|00004360| 65 72 2e 0a 09 20 20 20 | 72 65 74 75 72 6e 73 20 |er...   |returns |
|00004370| 74 68 65 20 28 62 63 70 | 6c 20 61 64 64 72 65 73 |the (bcp|l addres|
|00004380| 73 20 6f 66 20 74 68 65 | 29 20 62 65 66 66 65 72 |s of the|) beffer|
|00004390| 2c 20 6a 75 73 74 20 61 | 73 20 70 61 73 73 65 64 |, just a|s passed|
|000043a0| 0a 0a 31 34 30 09 4d 6f | 76 65 57 6f 72 64 73 28 |..140.Mo|veWords(|
|000043b0| 64 69 72 65 63 74 69 6f | 6e 2c 20 6c 65 6e 67 74 |directio|n, lengt|
|000043c0| 68 2c 20 66 72 6f 6d 2c | 20 74 6f 29 0a 09 20 20 |h, from,| to)..  |
|000043d0| 20 66 72 6f 6d 20 61 6e | 64 20 74 6f 20 61 72 65 | from an|d to are|
|000043e0| 20 42 43 50 4c 20 61 64 | 64 72 65 73 73 65 73 0a | BCPL ad|dresses.|
|000043f0| 0a 31 34 31 09 46 69 6c | 6c 57 6f 72 64 73 28 62 |.141.Fil|lWords(b|
|00004400| 61 73 65 2c 20 6c 65 6e | 67 74 68 2c 20 76 61 6c |ase, len|gth, val|
|00004410| 75 65 29 0a 09 20 20 20 | 49 6e 69 74 69 61 6c 69 |ue)..   |Initiali|
|00004420| 73 65 20 21 62 61 73 65 | 20 74 6f 20 62 61 73 65 |se !base| to base|
|00004430| 21 28 6c 65 6e 67 74 68 | 2d 31 29 20 74 6f 20 76 |!(length|-1) to v|
|00004440| 61 6c 75 65 2e 0a 09 20 | 20 20 62 61 73 65 20 69 |alue... |  base i|
|00004450| 73 20 61 20 42 43 50 4c | 20 61 64 64 72 65 73 73 |s a BCPL| address|
|00004460| 2e 0a 0a 31 31 32 09 53 | 65 74 45 76 65 6e 74 48 |...112.S|etEventH|
|00004470| 61 6e 64 6c 65 72 28 65 | 76 65 6e 74 20 6e 75 6d |andler(e|vent num|
|00004480| 62 65 72 2c 20 64 61 74 | 61 2c 20 74 72 65 61 74 |ber, dat|a, treat|
|00004490| 6d 65 6e 74 29 0a 0a 20 | 20 54 72 65 61 74 6d 65 |ment).. | Treatme|
|000044a0| 6e 74 20 6d 61 79 20 68 | 61 76 65 20 6f 6e 65 20 |nt may h|ave one |
|000044b0| 6f 66 20 74 68 65 20 76 | 61 6c 75 65 73 3a 0a 20 |of the v|alues:. |
|000044c0| 20 20 20 20 20 65 76 5f | 69 67 6e 6f 72 65 20 28 |     ev_|ignore (|
|000044d0| 30 29 0a 20 20 20 20 20 | 20 65 76 5f 73 65 74 5f |0).     | ev_set_|
|000044e0| 66 6c 61 67 20 28 31 29 | 0a 09 20 64 61 74 61 20 |flag (1)|.. data |
|000044f0| 20 69 73 20 74 68 65 20 | 28 42 43 50 4c 29 20 61 | is the |(BCPL) a|
|00004500| 64 64 72 65 73 73 20 6f | 66 20 61 20 77 6f 72 64 |ddress o|f a word|
|00004510| 20 77 68 69 63 68 20 6f | 6e 6f 63 63 75 72 72 65 | which o|noccurre|
|00004520| 6e 63 65 20 6f 66 20 74 | 68 65 0a 09 20 20 20 20 |nce of t|he..    |
|00004530| 20 20 20 65 76 65 6e 74 | 20 77 69 6c 6c 20 62 65 |   event| will be|
|00004540| 20 73 65 74 20 74 6f 20 | 61 20 6e 6f 6e 2d 7a 65 | set to |a non-ze|
|00004550| 72 6f 20 76 61 6c 75 65 | 0a 20 20 20 20 20 20 65 |ro value|.      e|
|00004560| 76 5f 63 61 6c 6c 5f 70 | 72 6f 63 20 28 32 29 0a |v_call_p|roc (2).|
|00004570| 09 20 64 61 74 61 20 20 | 69 73 20 74 68 65 20 68 |. data  |is the h|
|00004580| 61 72 64 77 61 72 65 20 | 61 64 64 72 65 73 73 20 |ardware |address |
|00004590| 6f 66 20 61 20 70 69 65 | 63 65 20 6f 66 20 63 6f |of a pie|ce of co|
|000045a0| 64 65 20 74 6f 62 65 20 | 63 61 6c 6c 65 64 20 77 |de tobe |called w|
|000045b0| 68 65 6e 0a 09 20 20 20 | 20 20 20 20 74 68 65 20 |hen..   |    the |
|000045c0| 65 76 65 6e 74 20 6f 63 | 63 75 72 73 2e 20 20 43 |event oc|curs.  C|
|000045d0| 61 6c 6c 20 63 6f 6e 64 | 69 74 69 6f 6e 73 20 61 |all cond|itions a|
|000045e0| 72 65 20 61 73 20 66 6f | 72 20 74 68 65 20 42 72 |re as fo|r the Br|
|000045f0| 61 7a 69 6c 0a 09 20 20 | 20 20 20 20 20 65 76 65 |azil..  |     eve|
|00004600| 6e 74 20 68 61 6e 64 6c | 65 72 2e 20 20 4e 6f 20 |nt handl|er.  No |
|00004610| 42 43 50 4c 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |BCPL env|ironment|
|00004620| 20 69 73 20 73 65 74 20 | 75 70 20 66 6f 72 20 74 | is set |up for t|
|00004630| 68 65 20 63 61 6c 6c 2e | 0a 0a 20 20 20 20 20 20 |he call.|..      |
|00004640| 65 76 5f 62 75 66 66 65 | 72 20 28 33 29 0a 09 20 |ev_buffe|r (3).. |
|00004650| 64 61 74 61 20 20 69 73 | 20 74 68 65 20 61 64 64 |data  is| the add|
|00004660| 72 65 73 73 20 6f 66 20 | 61 20 62 75 66 66 65 72 |ress of |a buffer|
|00004670| 20 74 6f 20 62 65 20 75 | 73 65 64 20 66 6f 72 20 | to be u|sed for |
|00004680| 74 68 65 20 65 76 65 6e | 74 20 76 61 6c 75 65 73 |the even|t values|
|00004690| 2e 0a 09 20 20 20 20 20 | 20 20 54 68 65 20 76 61 |...     |  The va|
|000046a0| 6c 75 65 73 20 77 72 69 | 74 74 65 6e 20 61 72 65 |lues wri|tten are|
|000046b0| 0a 09 09 20 20 28 65 76 | 65 6e 74 20 6e 75 6d 62 |...  (ev|ent numb|
|000046c0| 65 72 3c 3c 31 36 29 20 | 2b 20 28 58 20 76 61 6c |er<<16) |+ (X val|
|000046d0| 75 65 3c 3c 38 29 20 2b | 20 59 20 76 61 6c 75 65 |ue<<8) +| Y value|
|000046e0| 2e 0a 09 20 20 20 20 20 | 20 20 54 68 65 20 62 75 |...     |  The bu|
|000046f0| 66 66 65 72 20 69 73 20 | 61 20 73 74 72 75 63 74 |ffer is |a struct|
|00004700| 75 72 65 20 6f 66 20 74 | 68 65 20 66 6f 72 6d 0a |ure of t|he form.|
|00004710| 09 09 20 20 69 6e 73 65 | 72 74 69 6f 6e 5f 70 6f |..  inse|rtion_po|
|00004720| 69 6e 74 65 72 20 3d 20 | 30 2a 34 0a 09 09 20 20 |inter = |0*4...  |
|00004730| 65 78 74 72 61 63 74 69 | 6f 6e 5f 70 6f 69 6e 74 |extracti|on_point|
|00004740| 65 72 20 3d 20 31 2a 34 | 0a 09 09 20 20 62 75 66 |er = 1*4|...  buf|
|00004750| 66 65 72 5f 73 69 7a 65 | 20 3d 20 32 2a 34 0a 09 |fer_size| = 2*4..|
|00004760| 09 20 20 62 75 66 66 65 | 72 20 3d 20 33 2a 34 20 |.  buffe|r = 3*4 |
|00004770| 2f 2f 20 74 6f 20 28 62 | 75 66 66 65 72 5f 73 69 |// to (b|uffer_si|
|00004780| 7a 65 2b 32 29 2a 34 0a | 09 20 20 20 20 20 20 56 |ze+2)*4.|.      V|
|00004790| 61 6c 75 65 73 20 61 72 | 65 20 69 6e 73 65 72 74 |alues ar|e insert|
|000047a0| 65 64 20 69 6e 74 6f 20 | 74 68 65 20 62 75 66 66 |ed into |the buff|
|000047b0| 65 72 20 75 73 69 6e 67 | 20 74 68 65 20 61 6c 67 |er using| the alg|
|000047c0| 6f 72 69 74 68 6d 0a 09 | 09 20 20 62 75 66 66 65 |orithm..|.  buffe|
|000047d0| 72 21 69 6e 73 65 72 74 | 69 6f 6e 5f 70 6f 69 6e |r!insert|ion_poin|
|000047e0| 74 65 72 20 3a 3d 20 76 | 61 6c 75 65 3b 0a 09 09 |ter := v|alue;...|
|000047f0| 20 20 24 28 20 4c 45 54 | 20 6e 65 77 5f 69 5f 70 |  $( LET| new_i_p|
|00004800| 20 3d 20 69 6e 73 65 72 | 74 69 6f 6e 5f 70 6f 69 | = inser|tion_poi|
|00004810| 6e 74 65 72 2b 31 3b 0a | 09 09 20 20 20 20 20 49 |nter+1;.|..     I|
|00004820| 46 20 6e 65 77 5f 69 5f | 70 3d 62 75 66 66 65 72 |F new_i_|p=buffer|
|00004830| 5f 73 69 7a 65 20 54 48 | 45 4e 20 6e 65 77 5f 69 |_size TH|EN new_i|
|00004840| 5f 70 20 3a 3d 20 30 3b | 0a 09 09 20 20 20 20 20 |_p := 0;|...     |
|00004850| 49 46 20 6e 65 77 5f 69 | 5f 70 7e 3d 65 78 74 72 |IF new_i|_p~=extr|
|00004860| 61 63 74 69 6f 6e 5f 70 | 6f 69 6e 74 65 72 0a 09 |action_p|ointer..|
|00004870| 09 09 54 48 45 4e 20 69 | 6e 73 65 72 74 69 6f 6e |..THEN i|nsertion|
|00004880| 5f 70 6f 69 6e 74 65 72 | 20 3a 3d 20 6e 65 77 5f |_pointer| := new_|
|00004890| 69 5f 70 0a 09 09 20 20 | 24 29 0a 20 20 45 73 63 |i_p...  |$).  Esc|
|000048a0| 61 70 65 20 66 6c 61 67 | 20 75 70 64 61 74 65 20 |ape flag| update |
|000048b0| 69 73 20 74 72 65 61 74 | 65 64 20 61 73 20 65 76 |is treat|ed as ev|
|000048c0| 65 6e 74 20 6e 75 6d 62 | 65 72 20 2d 31 3a 20 61 |ent numb|er -1: a|
|000048d0| 63 6b 6e 6f 77 6c 65 64 | 67 65 6d 65 6e 74 20 69 |cknowled|gement i|
|000048e0| 73 0a 20 20 64 6f 6e 65 | 20 61 75 74 6f 6d 61 74 |s.  done| automat|
|000048f0| 69 63 61 6c 6c 79 2e 0a | 0a 0a 34 36 09 73 74 72 |ically..|..46.str|
|00004900| 65 61 6d 20 3a 3d 20 46 | 69 6e 64 49 6e 70 75 74 |eam := F|indInput|
|00004910| 28 6e 61 6d 65 29 0a 34 | 37 09 73 74 72 65 61 6d |(name).4|7.stream|
|00004920| 20 3a 3d 20 46 69 6e 64 | 4f 75 74 70 75 74 28 6e | := Find|Output(n|
|00004930| 61 6d 65 29 0a 20 20 20 | 53 70 65 63 69 61 6c 20 |ame).   |Special |
|00004940| 63 61 73 65 73 20 61 72 | 65 0a 09 56 44 55 3a 0a |cases ar|e..VDU:.|
|00004950| 09 52 53 34 32 33 3a 0a | 09 52 53 32 33 32 3a 0a |.RS423:.|.RS232:.|
|00004960| 09 50 52 49 4e 54 45 52 | 3a 0a 09 4e 55 4c 4c 3a |.PRINTER|:..NULL:|
|00004970| 0a 0a 32 39 09 53 65 6c | 65 63 74 49 6e 70 75 74 |..29.Sel|ectInput|
|00004980| 28 73 74 72 65 61 6d 29 | 0a 33 30 09 53 65 6c 65 |(stream)|.30.Sele|
|00004990| 63 74 4f 75 74 70 75 74 | 28 73 74 72 65 61 6d 29 |ctOutput|(stream)|
|000049a0| 0a 0a 32 37 09 73 74 72 | 65 61 6d 20 3a 3d 20 49 |..27.str|eam := I|
|000049b0| 6e 70 75 74 28 29 0a 32 | 38 09 73 74 72 65 61 6d |nput().2|8.stream|
|000049c0| 20 3a 3d 20 4f 75 74 70 | 75 74 28 29 0a 0a 32 34 | := Outp|ut()..24|
|000049d0| 09 63 68 20 3a 3d 20 52 | 64 43 68 28 29 0a 32 36 |.ch := R|dCh().26|
|000049e0| 09 57 72 43 68 28 63 68 | 29 0a 0a 34 34 09 63 68 |.WrCh(ch|)..44.ch|
|000049f0| 20 3a 3d 20 52 64 42 69 | 6e 28 29 0a 34 35 09 57 | := RdBi|n().45.W|
|00004a00| 72 42 69 6e 28 62 79 74 | 65 29 0a 0a 37 36 09 45 |rBin(byt|e)..76.E|
|00004a10| 6e 64 52 65 61 64 28 29 | 0a 37 37 09 45 6e 64 57 |ndRead()|.77.EndW|
|00004a20| 72 69 74 65 28 29 0a 0a | 32 35 09 55 6e 52 64 63 |rite()..|25.UnRdc|
|00004a30| 68 28 29 0a 0a 36 36 09 | 63 6f 75 6e 74 20 3a 3d |h()..66.|count :=|
|00004a40| 20 52 65 61 64 42 79 74 | 65 73 28 76 65 63 74 6f | ReadByt|es(vecto|
|00004a50| 72 2c 20 6f 66 66 73 65 | 74 2c 20 63 6f 75 6e 74 |r, offse|t, count|
|00004a60| 29 0a 36 37 09 57 72 69 | 74 65 42 79 74 65 73 28 |).67.Wri|teBytes(|
|00004a70| 76 65 63 74 6f 72 2c 20 | 6f 66 66 73 65 74 2c 20 |vector, |offset, |
|00004a80| 63 6f 75 6e 74 29 0a 0a | 35 39 09 52 65 61 64 2e |count)..|59.Read.|
|00004a90| 4f 66 66 73 65 74 28 73 | 74 72 65 61 6d 2c 20 76 |Offset(s|tream, v|
|00004aa0| 65 63 74 6f 72 29 0a 09 | 20 20 76 65 63 74 6f 72 |ector)..|  vector|
|00004ab0| 21 30 20 69 73 20 73 65 | 74 20 74 6f 20 74 68 65 |!0 is se|t to the|
|00004ac0| 20 73 65 71 75 65 6e 74 | 69 61 6c 20 70 6f 69 6e | sequent|ial poin|
|00004ad0| 74 65 72 20 66 6f 72 20 | 74 68 65 20 66 69 6c 65 |ter for |the file|
|00004ae0| 20 6f 70 65 6e 20 6f 6e | 20 73 74 72 65 61 6d 0a | open on| stream.|
|00004af0| 0a 36 30 09 53 65 74 2e | 4f 66 66 73 65 74 28 73 |.60.Set.|Offset(s|
|00004b00| 74 72 65 61 6d 2c 20 76 | 65 63 74 6f 72 29 0a 09 |tream, v|ector)..|
|00004b10| 20 20 53 65 74 73 20 74 | 68 65 20 73 65 71 75 65 |  Sets t|he seque|
|00004b20| 6e 74 69 61 6c 20 70 6f | 69 6e 74 65 72 20 66 6f |ntial po|inter fo|
|00004b30| 72 20 74 68 65 20 66 69 | 6c 65 20 6f 70 65 6e 20 |r the fi|le open |
|00004b40| 6f 6e 20 20 73 74 72 65 | 61 6d 20 20 74 6f 20 76 |on  stre|am  to v|
|00004b50| 65 63 74 6f 72 21 30 0a | 0a 36 31 09 66 69 6c 65 |ector!0.|.61.file|
|00004b60| 6c 65 6e 67 74 68 20 3a | 3d 20 45 78 74 65 6e 74 |length :|= Extent|
|00004b70| 28 73 74 72 65 61 6d 29 | 0a 0a 37 38 09 6e 20 3a |(stream)|..78.n :|
|00004b80| 3d 20 52 65 61 64 4e 28 | 29 0a 0a 32 33 09 4e 65 |= ReadN(|)..23.Ne|
|00004b90| 77 4c 69 6e 65 28 29 0a | 33 36 09 4e 65 77 50 61 |wLine().|36.NewPa|
|00004ba0| 67 65 28 29 0a 0a 31 39 | 09 57 72 69 74 65 46 28 |ge()..19|.WriteF(|
|00004bb0| 66 6f 72 6d 61 74 2c 20 | 61 2c 20 62 2c 20 63 2c |format, |a, b, c,|
|00004bc0| 20 64 2c 20 65 2c 20 66 | 2c 20 67 2c 20 68 2c 20 | d, e, f|, g, h, |
|00004bd0| 69 2c 20 6a 2c 20 6b 29 | 0a 0a 31 38 09 57 72 69 |i, j, k)|..18.Wri|
|00004be0| 74 65 53 28 73 74 72 69 | 6e 67 29 0a 0a 37 39 09 |teS(stri|ng)..79.|
|00004bf0| 57 72 69 74 65 44 28 6e | 2c 20 64 69 67 69 74 73 |WriteD(n|, digits|
|00004c00| 29 0a 0a 38 30 09 57 72 | 69 74 65 4e 28 6e 29 0a |)..80.Wr|iteN(n).|
|00004c10| 0a 38 31 09 57 72 69 74 | 65 48 65 78 28 6e 2c 20 |.81.Writ|eHex(n, |
|00004c20| 64 69 67 69 74 73 29 0a | 0a 38 32 09 57 72 69 74 |digits).|.82.Writ|
|00004c30| 65 4f 63 74 28 6e 2c 20 | 64 69 67 69 74 73 29 0a |eOct(n, |digits).|
|00004c40| 0a 38 33 09 52 64 41 72 | 67 73 28 6b 65 79 73 2c |.83.RdAr|gs(keys,|
|00004c50| 20 61 72 67 76 2c 20 73 | 69 7a 65 29 0a 38 35 09 | argv, s|ize).85.|
|00004c60| 46 69 6e 64 41 72 67 28 | 6b 65 79 73 2c 20 77 29 |FindArg(|keys, w)|
|00004c70| 0a 0a 31 30 38 09 63 65 | 6e 74 69 73 65 63 6f 6e |..108.ce|ntisecon|
|00004c80| 64 74 69 6d 65 20 3a 3d | 20 54 69 6d 65 28 29 0a |dtime :=| Time().|
|00004c90| 31 30 39 09 74 69 6d 65 | 6f 66 64 61 79 73 74 72 |109.time|ofdaystr|
|00004ca0| 69 6e 67 20 3a 3d 20 54 | 69 6d 65 4f 66 44 61 79 |ing := T|imeOfDay|
|00004cb0| 28 29 0a 31 31 30 09 64 | 61 74 65 73 74 72 69 6e |().110.d|atestrin|
|00004cc0| 67 20 3a 3d 20 44 61 74 | 65 28 29 0a 0a 39 30 09 |g := Dat|e()..90.|
|00004cd0| 6e 20 3a 3d 20 52 61 6e | 64 6f 6d 28 6e 29 0a 0a |n := Ran|dom(n)..|
|00004ce0| 36 39 09 50 61 63 6b 53 | 74 72 69 6e 67 28 76 65 |69.PackS|tring(ve|
|00004cf0| 63 74 6f 72 2c 20 73 74 | 72 69 6e 67 29 0a 37 30 |ctor, st|ring).70|
|00004d00| 09 55 6e 70 61 63 6b 53 | 74 72 69 6e 67 28 73 74 |.UnpackS|tring(st|
|00004d10| 72 69 6e 67 2c 20 76 65 | 63 74 6f 72 29 0a 0a 36 |ring, ve|ctor)..6|
|00004d20| 33 09 41 62 6f 72 74 28 | 6e 29 0a 09 20 20 43 61 |3.Abort(|n)..  Ca|
|00004d30| 6c 6c 65 64 20 6f 6e 20 | 68 61 72 64 77 61 72 65 |lled on |hardware|
|00004d40| 20 61 62 6f 72 74 2c 20 | 6f 72 20 6c 69 62 72 61 | abort, |or libra|
|00004d50| 72 79 2d 64 65 74 65 63 | 74 65 64 20 66 61 74 61 |ry-detec|ted fata|
|00004d60| 6c 20 66 61 75 6c 74 2e | 20 20 54 68 65 20 63 61 |l fault.|  The ca|
|00004d70| 6c 6c 0a 09 20 20 69 73 | 20 61 73 20 66 72 6f 6d |ll..  is| as from|
|00004d80| 20 74 68 65 20 70 6c 61 | 63 65 20 6f 66 20 74 68 | the pla|ce of th|
|00004d90| 65 20 66 61 75 6c 74 3b | 20 6e 20 3d 20 30 20 66 |e fault;| n = 0 f|
|00004da0| 6f 72 20 61 20 73 6f 66 | 74 77 61 72 65 2d 64 65 |or a sof|tware-de|
|00004db0| 74 65 63 74 65 64 0a 09 | 20 20 66 61 75 6c 74 20 |tected..|  fault |
|00004dc0| 6f 72 20 74 68 65 20 41 | 72 74 68 75 72 20 65 72 |or the A|rthur er|
|00004dd0| 72 6f 72 20 63 6f 64 65 | 20 66 6f 72 20 61 20 68 |ror code| for a h|
|00004de0| 61 72 64 77 61 72 65 20 | 74 72 61 70 0a 09 20 20 |ardware |trap..  |
|00004df0| 4e 6f 74 65 20 74 68 61 | 74 20 67 6c 6f 62 61 6c |Note tha|t global|
|00004e00| 20 6e 20 69 73 20 69 6e | 69 74 69 61 6c 69 73 65 | n is in|itialise|
|00004e10| 64 20 74 6f 20 23 78 41 | 45 39 35 30 30 30 30 2b |d to #xA|E950000+|
|00004e20| 34 2a 6e 2e 09 49 66 20 | 75 73 65 64 20 61 73 20 |4*n..If |used as |
|00004e30| 61 6e 0a 09 20 20 61 64 | 64 72 65 73 73 2c 20 74 |an..  ad|dress, t|
|00004e40| 68 69 73 20 77 69 6c 6c | 20 67 69 76 65 20 61 6e |his will| give an|
|00004e50| 20 61 64 64 72 65 73 73 | 20 65 78 63 65 70 74 69 | address| excepti|
|00004e60| 6f 6e 2c 20 61 6e 64 20 | 69 66 20 62 72 61 6e 63 |on, and |if branc|
|00004e70| 68 65 64 20 74 6f 0a 09 | 20 20 77 69 6c 6c 20 67 |hed to..|  will g|
|00004e80| 69 76 65 20 61 20 70 72 | 65 66 65 74 63 68 20 61 |ive a pr|efetch a|
|00004e90| 62 6f 72 74 2e 0a 0a 36 | 34 09 42 61 63 6b 54 72 |bort...6|4.BackTr|
|00004ea0| 61 63 65 28 29 0a 0a 36 | 35 09 4d 61 70 53 74 6f |ace()..6|5.MapSto|
|00004eb0| 72 65 28 29 0a 0a 56 61 | 72 69 61 62 6c 65 73 0a |re()..Va|riables.|
|00004ec0| 38 39 09 72 61 6e 64 6f | 6d 2e 73 74 61 74 65 0a |89.rando|m.state.|
|00004ed0| 34 30 09 73 74 61 63 6b | 62 61 73 65 0a 35 37 09 |40.stack|base.57.|
|00004ee0| 62 6c 6f 63 6b 6c 69 73 | 74 0a 31 34 34 09 76 64 |blocklis|t.144.vd|
|00004ef0| 75 73 74 72 65 61 6d 0a | 31 34 35 09 65 72 72 6f |ustream.|145.erro|
|00004f00| 72 73 74 72 65 61 6d 0a | 0a 0a 0a 53 65 63 74 69 |rstream.|...Secti|
|00004f10| 6f 6e 20 66 6f 72 6d 61 | 74 0a 0a 53 65 63 74 69 |on forma|t..Secti|
|00004f20| 6f 6e 53 74 61 72 74 0a | 09 3d 09 22 42 43 50 4c |onStart.|.=."BCPL|
|00004f30| 22 0a 09 26 09 67 6c 6f | 62 69 6e 69 74 73 2d 53 |"..&.glo|binits-S|
|00004f40| 65 63 74 69 6f 6e 53 74 | 61 72 74 0a 09 3d 09 38 |ectionSt|art..=.8|
|00004f50| 20 62 79 74 65 73 20 6f | 66 20 73 65 63 74 69 6f | bytes o|f sectio|
|00004f60| 6e 20 6e 61 6d 65 20 28 | 38 20 64 61 74 61 20 62 |n name (|8 data b|
|00004f70| 79 74 65 73 2c 20 6e 6f | 74 20 61 20 73 74 72 69 |ytes, no|t a stri|
|00004f80| 6e 67 29 0a 09 3d 09 32 | 30 20 62 79 74 65 73 20 |ng)..=.2|0 bytes |
|00004f90| 64 61 74 65 20 61 6e 64 | 20 74 69 6d 65 20 63 6f |date and| time co|
|00004fa0| 6d 70 69 6c 65 64 2c 20 | 61 6c 73 6f 20 6e 6f 74 |mpiled, |also not|
|00004fb0| 20 61 20 73 74 72 69 6e | 67 2e 0a 09 09 54 68 65 | a strin|g....The|
|00004fc0| 20 42 43 50 4c 20 73 79 | 73 74 65 6d 20 75 73 65 | BCPL sy|stem use|
|00004fd0| 73 20 74 68 65 20 66 6f | 72 6d 61 74 2c 20 65 67 |s the fo|rmat, eg|
|00004fe0| 0a 09 09 22 30 37 20 4f | 63 74 20 38 35 20 31 35 |..."07 O|ct 85 15|
|00004ff0| 3a 35 34 3a 33 35 22 2c | 30 2c 30 2e 0a 09 09 41 |:54:35",|0,0....A|
|00005000| 6e 79 74 68 69 6e 67 20 | 64 69 66 66 65 72 65 6e |nything |differen|
|00005010| 74 20 77 69 6c 6c 20 67 | 69 76 65 20 6f 64 64 20 |t will g|ive odd |
|00005020| 6f 75 74 70 75 74 20 66 | 72 6f 6d 20 4d 61 70 53 |output f|rom MapS|
|00005030| 74 6f 72 65 2e 0a 09 3d | 09 30 0a 0a 67 6c 6f 62 |tore...=|.0..glob|
|00005040| 69 6e 69 74 73 0a 09 26 | 09 6f 66 66 73 65 74 20 |inits..&|.offset |
|00005050| 6f 66 20 67 6c 6f 62 61 | 6c 20 69 6e 20 73 65 63 |of globa|l in sec|
|00005060| 74 69 6f 6e 2c 20 20 67 | 6c 6f 62 61 6c 20 6e 75 |tion,  g|lobal nu|
|00005070| 6d 62 65 72 0a 09 20 20 | 20 2e 2e 2e 0a 09 26 09 |mber..  | .....&.|
|00005080| 68 69 67 68 65 73 74 20 | 67 6c 6f 62 61 6c 20 6e |highest |global n|
|00005090| 75 6d 62 65 72 20 75 73 | 65 64 2c 20 30 0a 0a 5b |umber us|ed, 0..[|
|000050a0| 20 54 68 69 73 20 62 69 | 74 20 77 69 6c 6c 20 6e | This bi|t will n|
|000050b0| 6f 74 20 62 65 20 70 72 | 65 73 65 6e 74 20 77 68 |ot be pr|esent wh|
|000050c0| 65 6e 20 75 73 69 6e 67 | 20 61 20 42 43 50 4c 20 |en using| a BCPL |
|000050d0| 73 79 73 74 65 6d 20 77 | 68 69 63 68 20 72 65 71 |system w|hich req|
|000050e0| 75 69 72 65 73 0a 20 20 | 6c 69 6e 6b 69 6e 67 20 |uires.  |linking |
|000050f0| 72 61 74 68 65 72 20 74 | 68 61 6e 20 6a 6f 69 6e |rather t|han join|
|00005100| 69 6e 67 0a 0a 20 20 20 | 20 20 20 20 26 20 20 20 |ing..   |    &   |
|00005110| 20 20 20 20 26 31 32 33 | 34 35 36 37 38 0a 0a 09 |    &123|45678...|
|00005120| 26 09 6f 66 66 73 65 74 | 20 6f 66 20 77 6f 72 64 |&.offset| of word|
|00005130| 20 69 6e 20 73 65 63 74 | 69 6f 6e 20 72 65 71 75 | in sect|ion requ|
|00005140| 69 72 69 6e 67 20 72 65 | 6c 6f 63 61 74 69 6f 6e |iring re|location|
|00005150| 0a 09 20 20 2e 2e 2e 2e | 0a 0a 09 26 09 26 38 37 |..  ....|...&.&87|
|00005160| 36 35 34 33 32 31 0a 28 | 6e 6f 74 65 20 74 68 61 |654321.(|note tha|
|00005170| 74 20 67 6c 6f 62 61 6c | 20 69 6e 69 74 69 61 6c |t global| initial|
|00005180| 69 73 61 74 69 6f 6e 73 | 20 6e 65 65 64 20 74 6f |isations| need to|
|00005190| 20 62 65 20 72 65 6c 6f | 63 61 74 65 64 2e 0a 54 | be relo|cated..T|
|000051a0| 68 65 72 65 27 73 20 6c | 61 7a 69 6e 65 73 73 20 |here's l|aziness |
|000051b0| 66 6f 72 20 79 6f 75 29 | 2e 0a 5d 0a 0a 45 61 63 |for you)|..]..Eac|
|000051c0| 68 20 70 72 6f 63 65 64 | 75 72 65 20 69 73 20 70 |h proced|ure is p|
|000051d0| 72 65 63 65 64 65 64 20 | 62 79 20 61 20 31 32 2d |receded |by a 12-|
|000051e0| 62 79 74 65 20 68 65 61 | 64 65 72 0a 09 26 09 2d |byte hea|der..&.-|
|000051f0| 31 0a 09 3d 09 37 2c 20 | 66 69 72 73 74 20 37 20 |1..=.7, |first 7 |
|00005200| 63 68 61 72 61 63 74 65 | 72 73 20 6f 66 20 70 72 |characte|rs of pr|
|00005210| 6f 63 65 64 75 72 65 20 | 6e 61 6d 65 20 28 66 69 |ocedure |name (fi|
|00005220| 6c 6c 65 64 20 77 69 74 | 68 20 73 70 61 63 65 29 |lled wit|h space)|
|00005230| 0a 43 6f 6d 70 69 6c 65 | 64 20 42 43 50 4c 20 6d |.Compile|d BCPL m|
|00005240| 61 79 20 70 72 65 63 65 | 65 64 20 74 68 61 74 20 |ay prece|ed that |
|00005250| 77 69 74 68 20 61 20 77 | 6f 72 64 20 67 69 76 69 |with a w|ord givi|
|00005260| 6e 67 20 74 68 65 20 61 | 64 64 72 65 73 73 20 6f |ng the a|ddress o|
|00005270| 66 20 73 74 61 74 69 63 | 20 64 61 74 61 0a 66 6f |f static| data.fo|
|00005280| 72 20 74 68 65 20 73 65 | 63 74 69 6f 6e 2e 0a 0a |r the se|ction...|
|00005290| 0a 0a 43 6f 6d 70 69 6c | 65 64 20 63 6f 64 65 20 |..Compil|ed code |
|000052a0| 63 6f 6e 76 65 6e 74 69 | 6f 6e 73 0a 0a 52 65 67 |conventi|ons..Reg|
|000052b0| 69 73 74 65 72 73 3a 0a | 0a 52 42 09 20 20 20 38 |isters:.|.RB.   8|
|000052c0| 0a 52 4c 09 20 20 20 31 | 32 0a 52 54 53 09 20 20 |.RL.   1|2.RTS.  |
|000052d0| 20 31 31 0a 52 50 09 20 | 20 20 31 30 0a 52 47 09 | 11.RP. |  10.RG.|
|000052e0| 20 20 20 39 0a 52 47 42 | 09 20 20 20 37 0a 0a 54 |   9.RGB|.   7..T|
|000052f0| 68 65 72 65 20 69 73 20 | 61 6e 20 75 70 77 61 72 |here is |an upwar|
|00005300| 64 73 2d 67 72 6f 77 69 | 6e 67 20 73 74 61 63 6b |ds-growi|ng stack|
|00005310| 2c 20 61 64 64 72 65 73 | 73 65 64 20 62 79 20 74 |, addres|sed by t|
|00005320| 77 6f 20 72 65 67 69 73 | 74 65 72 73 2e 09 52 46 |wo regis|ters..RF|
|00005330| 50 20 69 73 20 74 68 65 | 0a 66 72 61 6d 65 20 70 |P is the|.frame p|
|00005340| 6f 69 6e 74 65 72 2c 20 | 52 54 53 20 74 68 65 20 |ointer, |RTS the |
|00005350| 74 6f 70 20 6f 66 20 73 | 74 61 63 6b 20 70 6f 69 |top of s|tack poi|
|00005360| 6e 74 65 72 20 28 61 63 | 74 75 61 6c 6c 79 2c 20 |nter (ac|tually, |
|00005370| 69 74 20 70 6f 69 6e 74 | 73 20 74 6f 20 74 68 65 |it point|s to the|
|00005380| 20 66 69 72 73 74 0a 75 | 6e 75 73 65 64 20 77 6f | first.u|nused wo|
|00005390| 72 64 20 61 62 6f 76 65 | 20 74 68 65 20 73 74 61 |rd above| the sta|
|000053a0| 63 6b 29 2e 20 20 52 54 | 53 20 69 73 20 6e 6f 74 |ck).  RT|S is not|
|000053b0| 20 61 6c 77 61 79 73 20 | 63 6f 72 72 65 63 74 20 | always |correct |
|000053c0| 77 69 74 68 69 6e 20 70 | 72 6f 63 65 64 75 72 65 |within p|rocedure|
|000053d0| 73 2c 20 62 75 74 0a 69 | 74 20 61 6c 77 61 79 73 |s, but.i|t always|
|000053e0| 20 69 73 20 6f 6e 20 70 | 72 6f 63 65 64 75 72 65 | is on p|rocedure|
|000053f0| 20 63 61 6c 6c 20 61 6e | 64 20 6d 75 73 74 20 62 | call an|d must b|
|00005400| 65 20 6f 6e 20 72 65 74 | 75 72 6e 2e 0a 0a 52 47 |e on ret|urn...RG|
|00005410| 20 70 6f 69 6e 74 73 20 | 61 74 20 74 68 65 20 62 | points |at the b|
|00005420| 61 73 65 20 6f 66 20 74 | 68 65 20 67 6c 6f 62 61 |ase of t|he globa|
|00005430| 6c 20 76 65 63 74 6f 72 | 3b 20 52 47 42 20 61 64 |l vector|; RGB ad|
|00005440| 64 72 65 73 73 65 73 20 | 61 20 73 65 74 20 6f 66 |dresses |a set of|
|00005450| 20 73 75 62 72 6f 75 74 | 69 6e 65 73 0a 77 69 74 | subrout|ines.wit|
|00005460| 68 69 6e 20 74 68 65 20 | 6c 69 62 72 61 72 79 2e |hin the |library.|
|00005470| 0a 0a 4f 6e 20 70 72 6f | 63 65 64 75 72 65 20 65 |..On pro|cedure e|
|00005480| 6e 74 72 79 2c 20 52 42 | 20 68 6f 6c 64 73 20 74 |ntry, RB| holds t|
|00005490| 68 65 20 61 64 64 72 65 | 73 73 20 6f 66 20 74 68 |he addre|ss of th|
|000054a0| 65 20 63 61 6c 6c 65 64 | 20 70 72 6f 63 65 64 75 |e called| procedu|
|000054b0| 72 65 2e 20 20 49 74 20 | 6e 65 65 64 20 6e 6f 74 |re.  It |need not|
|000054c0| 0a 62 65 20 70 72 65 73 | 65 72 76 65 64 2e 20 20 |.be pres|erved.  |
|000054d0| 52 4c 20 68 6f 6c 64 73 | 20 74 68 65 20 61 64 64 |RL holds| the add|
|000054e0| 72 65 73 73 20 6f 66 20 | 74 68 65 20 63 61 6c 6c |ress of |the call|
|000054f0| 65 72 27 73 20 73 74 61 | 74 69 63 20 64 61 74 61 |er's sta|tic data|
|00005500| 2c 20 61 6e 64 20 6d 75 | 73 74 20 62 65 0a 70 72 |, and mu|st be.pr|
|00005510| 65 73 65 72 76 65 64 2e | 20 20 52 31 34 20 68 6f |eserved.|  R14 ho|
|00005520| 6c 64 73 20 74 68 65 20 | 6c 69 6e 6b 3a 20 74 68 |lds the |link: th|
|00005530| 69 73 20 6d 75 73 74 20 | 62 65 20 77 72 69 74 74 |is must |be writt|
|00005540| 65 6e 20 74 6f 20 62 6f | 74 68 20 50 43 20 61 6e |en to bo|th PC an|
|00005550| 64 20 50 53 52 20 6f 6e | 0a 72 65 74 75 72 6e 2e |d PSR on|.return.|
|00005560| 20 20 52 31 20 74 6f 20 | 52 34 20 68 6f 6c 64 20 |  R1 to |R4 hold |
|00005570| 74 68 65 20 66 69 72 73 | 74 20 66 6f 75 72 20 61 |the firs|t four a|
|00005580| 72 67 75 6d 65 6e 74 73 | 2c 20 77 69 74 68 20 6f |rguments|, with o|
|00005590| 74 68 65 72 73 20 6f 6e | 20 74 68 65 20 73 74 61 |thers on| the sta|
|000055a0| 63 6b 0a 61 62 6f 76 65 | 20 52 54 53 20 69 6e 20 |ck.above| RTS in |
|000055b0| 74 68 65 20 75 73 75 61 | 6c 20 77 61 79 2e 20 54 |the usua|l way. T|
|000055c0| 68 75 73 2c 20 61 20 67 | 65 6e 65 72 61 6c 20 70 |hus, a g|eneral p|
|000055d0| 72 6f 63 65 64 75 72 65 | 20 77 6f 75 6c 64 20 6c |rocedure| would l|
|000055e0| 6f 6f 6b 20 6c 69 6b 65 | 3a 0a 09 53 54 4d 45 41 |ook like|:..STMEA|
|000055f0| 09 72 74 73 21 2c 20 7b | 72 62 2c 20 72 70 2c 20 |.rts!, {|rb, rp, |
|00005600| 72 6c 2c 20 72 31 34 7d | 20 3b 20 73 61 76 65 20 |rl, r14}| ; save |
|00005610| 6c 69 6e 6b 61 67 65 0a | 09 53 55 42 09 72 70 2c |linkage.|.SUB.rp,|
|00005620| 20 72 74 73 2c 20 23 31 | 36 09 09 3b 20 6e 65 77 | rts, #1|6..; new|
|00005630| 20 66 72 61 6d 65 20 70 | 6f 69 6e 74 65 72 0a 09 | frame p|ointer..|
|00005640| 53 54 4d 45 41 09 72 74 | 73 21 2c 20 7b 61 31 2c |STMEA.rt|s!, {a1,|
|00005650| 20 2e 2e 2e 7d 20 09 3b | 20 61 72 67 75 6d 65 6e | ...} .;| argumen|
|00005660| 74 73 0a 09 20 20 20 2e | 2e 2e 0a 09 4d 4f 56 09 |ts..   .|....MOV.|
|00005670| 72 74 73 2c 20 72 70 20 | 09 09 3b 20 75 6e 77 69 |rts, rp |..; unwi|
|00005680| 6e 64 20 6f 75 72 20 66 | 72 61 6d 65 0a 09 4c 44 |nd our f|rame..LD|
|00005690| 4d 49 42 09 72 70 2c 20 | 7b 72 70 2c 20 72 6c 2c |MIB.rp, |{rp, rl,|
|000056a0| 20 70 63 7d 5e 09 3b 20 | 6e 6f 20 6e 65 65 64 20 | pc}^.; |no need |
|000056b0| 74 6f 20 72 65 73 74 6f | 72 65 20 52 42 0a 0a 46 |to resto|re RB..F|
|000056c0| 75 6e 63 74 69 6f 6e 73 | 20 72 65 74 75 72 6e 20 |unctions| return |
|000056d0| 74 68 65 69 72 20 72 65 | 73 75 6c 74 20 69 6e 20 |their re|sult in |
|000056e0| 52 31 2e 0a 0a 52 30 20 | 74 6f 20 52 36 20 61 6e |R1...R0 |to R6 an|
|000056f0| 64 20 52 42 20 6d 61 79 | 20 62 65 20 75 73 65 64 |d RB may| be used|
|00005700| 20 77 69 74 68 6f 75 74 | 20 73 61 76 69 6e 67 20 | without| saving |
|00005710| 74 68 65 69 72 20 76 61 | 6c 75 65 73 3b 20 73 6f |their va|lues; so|
|00005720| 20 6d 61 79 20 52 31 33 | 20 61 6e 64 0a 6d 6f 72 | may R13| and.mor|
|00005730| 65 6f 76 65 72 20 69 74 | 20 69 73 20 61 63 63 65 |eover it| is acce|
|00005740| 73 73 69 62 6c 65 20 66 | 72 6f 6d 20 42 43 50 4c |ssible f|rom BCPL|
|00005750| 20 74 68 72 6f 75 67 68 | 20 74 68 65 20 6e 61 6d | through| the nam|
|00005760| 65 20 4e 49 4c 20 28 61 | 73 73 69 67 6e 6d 65 6e |e NIL (a|ssignmen|
|00005770| 74 20 74 6f 20 4e 49 4c | 0a 66 72 6f 6d 20 42 43 |t to NIL|.from BC|
|00005780| 50 4c 20 68 61 73 20 74 | 68 65 20 73 69 64 65 2d |PL has t|he side-|
|00005790| 65 66 66 65 63 74 20 6f | 66 20 75 70 64 61 74 69 |effect o|f updati|
|000057a0| 6e 67 20 52 36 29 2e 09 | 52 36 20 61 6e 64 20 52 |ng R6)..|R6 and R|
|000057b0| 31 33 20 61 72 65 20 67 | 75 61 72 61 6e 74 65 65 |13 are g|uarantee|
|000057c0| 64 0a 75 6e 74 6f 75 63 | 68 65 64 20 62 79 20 74 |d.untouc|hed by t|
|000057d0| 68 65 20 6c 69 62 72 61 | 72 79 2c 20 61 6e 64 20 |he libra|ry, and |
|000057e0| 62 79 20 42 43 50 4c 20 | 63 6f 64 65 20 77 68 69 |by BCPL |code whi|
|000057f0| 63 68 20 64 6f 65 73 20 | 6e 6f 74 20 75 70 64 61 |ch does |not upda|
|00005800| 74 65 20 4e 49 4c 2e 0a | 46 69 6c 65 44 61 74 61 |te NIL..|FileData|
|00005810| 82 65 76 68 65 61 64 65 | 72 00 00 00 b9 02 00 00 |.evheade|r.......|
|00005820| 3e ff ff ff c0 82 e8 d6 | 03 00 d7 d5 0a 47 4c 4f |>.......|.....GLO|
|00005830| 42 41 4c 20 24 28 20 53 | 65 74 45 76 65 6e 74 48 |BAL $( S|etEventH|
|00005840| 61 6e 64 6c 65 72 3a 31 | 31 32 20 24 29 0a 0a 4d |andler:1|12 $)..M|
|00005850| 41 4e 49 46 45 53 54 0a | 24 28 20 65 76 2e 45 73 |ANIFEST.|$( ev.Es|
|00005860| 63 61 70 65 46 6c 61 67 | 09 3d 20 2d 31 3b 0a 20 |capeFlag|.= -1;. |
|00005870| 20 20 65 76 2e 42 75 66 | 66 65 72 45 6d 70 74 79 |  ev.Buf|ferEmpty|
|00005880| 09 3d 20 30 3b 0a 20 20 | 20 65 76 2e 42 75 66 66 |.= 0;.  | ev.Buff|
|00005890| 65 72 46 75 6c 6c 09 3d | 20 31 3b 0a 20 20 20 65 |erFull.=| 1;.   e|
|000058a0| 76 2e 4b 42 09 09 3d 20 | 32 3b 0a 20 20 20 65 76 |v.KB..= |2;.   ev|
|000058b0| 2e 41 44 43 43 6f 6d 70 | 6c 65 74 65 09 3d 20 33 |.ADCComp|lete.= 3|
|000058c0| 3b 0a 20 20 20 65 76 2e | 56 53 79 6e 63 09 09 3d |;.   ev.|VSync..=|
|000058d0| 20 34 3b 0a 20 20 20 65 | 76 2e 54 69 6d 65 72 09 | 4;.   e|v.Timer.|
|000058e0| 09 3d 20 35 3b 0a 20 20 | 20 65 76 2e 45 73 63 61 |.= 5;.  | ev.Esca|
|000058f0| 70 65 09 09 3d 20 36 3b | 0a 20 20 20 65 76 2e 52 |pe..= 6;|.   ev.R|
|00005900| 53 34 32 33 45 72 72 6f | 72 09 3d 20 37 3b 0a 20 |S423Erro|r.= 7;. |
|00005910| 20 20 65 76 2e 4e 65 74 | 45 72 72 6f 72 09 09 3d |  ev.Net|Error..=|
|00005920| 20 38 3b 0a 20 20 20 65 | 76 2e 55 73 65 72 09 09 | 8;.   e|v.User..|
|00005930| 3d 20 39 3b 0a 0a 20 20 | 20 65 76 68 2e 49 67 6e |= 9;..  | evh.Ign|
|00005940| 6f 72 65 09 09 3d 20 30 | 3b 0a 20 20 20 65 76 68 |ore..= 0|;.   evh|
|00005950| 2e 53 65 74 46 6c 61 67 | 09 09 3d 20 31 3b 0a 20 |.SetFlag|..= 1;. |
|00005960| 20 20 65 76 68 2e 43 61 | 6c 6c 50 72 6f 63 20 09 |  evh.Ca|llProc .|
|00005970| 3d 20 32 3b 0a 20 20 20 | 65 76 68 2e 42 75 66 66 |= 2;.   |evh.Buff|
|00005980| 65 72 09 09 3d 20 33 3b | 0a 0a 20 20 20 65 76 62 |er..= 3;|..   evb|
|00005990| 2e 49 6e 73 65 72 74 69 | 6f 6e 09 3d 20 30 3b 0a |.Inserti|on.= 0;.|
|000059a0| 20 20 20 65 76 62 2e 45 | 78 74 72 61 63 74 69 6f |   evb.E|xtractio|
|000059b0| 6e 09 3d 20 31 3b 0a 20 | 20 20 65 76 62 2e 42 75 |n.= 1;. |  evb.Bu|
|000059c0| 66 66 65 72 45 6e 64 09 | 3d 20 32 3b 0a 20 20 20 |fferEnd.|= 2;.   |
|000059d0| 65 76 62 2e 42 75 66 66 | 65 72 09 09 3d 20 33 0a |evb.Buff|er..= 3.|
|000059e0| 24 29 0a 0a 2f 2f 4c 45 | 54 20 45 78 74 72 61 63 |$)..//LE|T Extrac|
|000059f0| 74 46 72 6f 6d 45 76 65 | 6e 74 42 75 66 66 65 72 |tFromEve|ntBuffer|
|00005a00| 28 62 29 20 3d 20 56 41 | 4c 4f 46 0a 2f 2f 24 28 |(b) = VA|LOF.//$(|
|00005a10| 20 4c 45 54 20 70 20 3d | 20 62 21 65 76 62 2e 45 | LET p =| b!evb.E|
|00005a20| 78 74 72 61 63 74 69 6f | 6e 3b 0a 2f 2f 20 20 20 |xtractio|n;.//   |
|00005a30| 49 46 20 70 3d 62 21 65 | 76 62 2e 49 6e 73 65 72 |IF p=b!e|vb.Inser|
|00005a40| 74 69 6f 6e 20 54 48 45 | 4e 20 52 45 53 55 4c 54 |tion THE|N RESULT|
|00005a50| 49 53 20 46 41 4c 53 45 | 3b 0a 2f 2f 20 20 20 72 |IS FALSE|;.//   r|
|00005a60| 65 73 75 6c 74 32 20 3a | 3d 20 62 21 28 65 76 62 |esult2 :|= b!(evb|
|00005a70| 2e 42 75 66 66 65 72 2b | 70 29 3b 0a 2f 2f 20 20 |.Buffer+|p);.//  |
|00005a80| 20 70 20 3a 3d 20 70 2b | 31 3b 0a 2f 2f 20 20 20 | p := p+|1;.//   |
|00005a90| 49 46 20 70 3e 62 21 65 | 76 62 2e 42 75 66 66 65 |IF p>b!e|vb.Buffe|
|00005aa0| 72 45 6e 64 20 54 48 45 | 4e 20 70 20 3a 3d 20 30 |rEnd THE|N p := 0|
|00005ab0| 3b 0a 2f 2f 20 20 20 62 | 21 65 76 62 2e 45 78 74 |;.//   b|!evb.Ext|
|00005ac0| 72 61 63 74 69 6f 6e 20 | 3a 3d 20 70 0a 2f 2f 20 |raction |:= p.// |
|00005ad0| 20 20 52 45 53 55 4c 54 | 49 53 20 54 52 55 45 0a |  RESULT|IS TRUE.|
|00005ae0| 2f 2f 24 29 0a 46 69 6c | 65 44 61 74 61 82 42 72 |//$).Fil|eData.Br|
|00005af0| 61 7a 69 6c 00 45 0f 01 | 00 b6 06 00 00 3f ff ff |azil.E..|.....?..|
|00005b00| ff f4 88 dc a7 03 00 36 | 79 0a 3b 20 53 56 43 20 |.......6|y.; SVC |
|00005b10| 63 61 6c 6c 73 0a 57 72 | 69 74 65 43 09 09 2a 09 |calls.Wr|iteC..*.|
|00005b20| 30 0a 57 72 69 74 65 53 | 09 09 2a 09 31 0a 57 72 |0.WriteS|..*.1.Wr|
|00005b30| 69 74 65 30 09 09 2a 09 | 32 0a 4e 65 77 4c 69 6e |ite0..*.|2.NewLin|
|00005b40| 65 20 09 2a 09 33 0a 52 | 65 61 64 43 09 09 2a 09 |e .*.3.R|eadC..*.|
|00005b50| 34 0a 43 4c 49 09 09 2a | 09 35 0a 42 79 74 65 09 |4.CLI..*|.5.Byte.|
|00005b60| 09 2a 09 36 0a 57 6f 72 | 64 09 09 2a 09 37 0a 46 |.*.6.Wor|d..*.7.F|
|00005b70| 69 6c 65 09 09 2a 09 38 | 0a 41 72 67 73 09 09 2a |ile..*.8|.Args..*|
|00005b80| 09 39 0a 42 47 65 74 09 | 09 2a 09 26 61 0a 42 50 |.9.BGet.|.*.&a.BP|
|00005b90| 75 74 09 09 2a 09 26 62 | 0a 4d 75 6c 74 69 70 6c |ut..*.&b|.Multipl|
|00005ba0| 65 09 2a 09 26 63 0a 4f | 70 65 6e 09 09 2a 09 26 |e.*.&c.O|pen..*.&|
|00005bb0| 64 0a 52 65 61 64 4c 69 | 6e 65 09 2a 09 26 65 0a |d.ReadLi|ne.*.&e.|
|00005bc0| 43 6f 6e 74 72 6f 6c 20 | 09 2a 09 26 66 0a 47 65 |Control |.*.&f.Ge|
|00005bd0| 74 45 6e 76 09 09 2a 09 | 26 31 30 0a 45 78 69 74 |tEnv..*.|&10.Exit|
|00005be0| 09 09 2a 09 26 31 31 0a | 53 65 74 45 6e 76 09 09 |..*.&11.|SetEnv..|
|00005bf0| 2a 09 26 31 32 0a 49 6e | 74 4f 6e 09 09 2a 09 26 |*.&12.In|tOn..*.&|
|00005c00| 31 33 0a 49 6e 74 4f 66 | 66 09 09 2a 09 26 31 34 |13.IntOf|f..*.&14|
|00005c10| 0a 43 61 6c 6c 42 61 63 | 6b 09 2a 09 26 31 35 0a |.CallBac|k.*.&15.|
|00005c20| 45 6e 74 65 72 53 56 43 | 09 2a 09 26 31 36 0a 42 |EnterSVC|.*.&16.B|
|00005c30| 72 65 61 6b 50 74 20 09 | 2a 09 26 31 37 0a 42 72 |reakPt .|*.&17.Br|
|00005c40| 65 61 6b 43 74 72 6c 09 | 2a 09 26 31 38 0a 55 6e |eakCtrl.|*.&18.Un|
|00005c50| 75 73 65 64 53 57 49 09 | 2a 09 26 31 39 0a 4b 55 |usedSWI.|*.&19.KU|
|00005c60| 70 64 61 74 65 4d 45 4d | 43 09 2a 09 26 31 41 0a |pdateMEM|C.*.&1A.|
|00005c70| 53 65 74 43 61 6c 6c 42 | 61 63 6b 09 2a 09 26 31 |SetCallB|ack.*.&1|
|00005c80| 42 0a 0a 57 72 69 74 65 | 49 09 09 2a 09 26 31 30 |B..Write|I..*.&10|
|00005c90| 30 0a 0a 09 4d 41 43 52 | 4f 0a 09 4f 53 62 79 74 |0...MACR|O..OSbyt|
|00005ca0| 65 20 24 6e 6f 2c 24 61 | 72 67 31 2c 24 61 72 67 |e $no,$a|rg1,$arg|
|00005cb0| 32 0a 20 5b 20 22 24 61 | 72 67 32 22 3c 3e 22 22 |2. [ "$a|rg2"<>""|
|00005cc0| 0a 09 4d 4f 56 09 72 32 | 2c 20 23 24 61 72 67 32 |..MOV.r2|, #$arg2|
|00005cd0| 0a 20 5d 0a 20 5b 20 22 | 24 61 72 67 31 22 3c 3e |. ]. [ "|$arg1"<>|
|00005ce0| 22 22 0a 09 4d 4f 56 09 | 72 31 2c 20 23 24 61 72 |""..MOV.|r1, #$ar|
|00005cf0| 67 31 0a 20 5d 0a 09 4d | 4f 56 09 72 30 2c 20 23 |g1. ]..M|OV.r0, #|
|00005d00| 24 6e 6f 0a 09 53 57 49 | 09 42 79 74 65 0a 09 4d |$no..SWI|.Byte..M|
|00005d10| 45 4e 44 0a 0a 09 4d 41 | 43 52 4f 0a 09 4f 53 77 |END...MA|CRO..OSw|
|00005d20| 6f 72 64 20 24 6e 6f 2c | 24 62 75 66 66 65 72 2c |ord $no,|$buffer,|
|00005d30| 24 63 6f 64 65 0a 20 5b | 20 22 24 63 6f 64 65 22 |$code. [| "$code"|
|00005d40| 3c 3e 22 22 0a 09 41 44 | 52 09 72 31 2c 20 24 62 |<>""..AD|R.r1, $b|
|00005d50| 75 66 66 65 72 0a 20 7c | 0a 09 41 44 44 09 72 31 |uffer. ||..ADD.r1|
|00005d60| 2c 20 73 62 2c 20 23 24 | 62 75 66 66 65 72 2e 5f |, sb, #$|buffer._|
|00005d70| 6f 66 66 73 65 74 0a 20 | 5d 0a 09 4d 4f 56 09 72 |offset. |]..MOV.r|
|00005d80| 30 2c 20 23 24 6e 6f 0a | 09 53 57 49 09 57 6f 72 |0, #$no.|.SWI.Wor|
|00005d90| 64 0a 09 4d 45 4e 44 0a | 0a 09 4d 41 43 52 4f 0a |d..MEND.|..MACRO.|
|00005da0| 09 77 72 69 74 65 73 09 | 24 41 72 67 31 0a 09 41 |.writes.|$Arg1..A|
|00005db0| 44 52 09 72 30 2c 20 25 | 46 30 30 0a 09 53 57 49 |DR.r0, %|F00..SWI|
|00005dc0| 09 57 72 69 74 65 30 0a | 09 42 09 25 46 30 31 0a |.Write0.|.B.%F01.|
|00005dd0| 30 30 0a 09 3d 09 22 24 | 41 72 67 31 22 0a 09 3d |00..=."$|Arg1"..=|
|00005de0| 09 30 0a 09 41 4c 49 47 | 4e 0a 30 31 0a 09 4d 45 |.0..ALIG|N.01..ME|
|00005df0| 4e 44 0a 0a 09 4d 41 43 | 52 4f 0a 09 77 72 69 74 |ND...MAC|RO..writ|
|00005e00| 65 6c 6e 20 24 41 72 67 | 31 0a 09 41 44 52 09 72 |eln $Arg|1..ADR.r|
|00005e10| 30 2c 20 25 46 30 30 0a | 09 53 57 49 09 57 72 69 |0, %F00.|.SWI.Wri|
|00005e20| 74 65 30 0a 09 42 09 25 | 46 30 31 0a 30 30 0a 09 |te0..B.%|F01.00..|
|00005e30| 3d 09 22 24 41 72 67 31 | 22 0a 09 3d 09 31 30 2c |=."$Arg1|"..=.10,|
|00005e40| 20 31 33 2c 20 30 0a 09 | 41 4c 49 47 4e 0a 30 31 | 13, 0..|ALIGN.01|
|00005e50| 0a 09 4d 45 4e 44 0a 0a | 09 4d 41 43 52 4f 0a 09 |..MEND..|.MACRO..|
|00005e60| 77 72 63 68 09 24 41 72 | 67 31 0a 09 53 57 49 09 |wrch.$Ar|g1..SWI.|
|00005e70| 26 31 30 30 2b 22 24 41 | 72 67 31 22 0a 09 4d 45 |&100+"$A|rg1"..ME|
|00005e80| 4e 44 0a 0a 3b 0a 3b 20 | 4f 53 42 59 54 45 20 6e |ND..;.; |OSBYTE n|
|00005e90| 75 6d 62 65 72 73 0a 43 | 68 61 6e 67 65 4f 75 74 |umbers.C|hangeOut|
|00005ea0| 70 75 74 09 09 2a 09 33 | 0a 43 6f 6e 74 72 6f 6c |put..*.3|.Control|
|00005eb0| 43 75 72 73 6f 72 45 64 | 69 74 69 6e 67 09 2a 09 |CursorEd|iting.*.|
|00005ec0| 34 0a 53 65 74 41 75 74 | 6f 52 65 70 65 61 74 44 |4.SetAut|oRepeatD|
|00005ed0| 65 6c 61 79 09 2a 09 31 | 31 0a 53 65 74 41 75 74 |elay.*.1|1.SetAut|
|00005ee0| 6f 52 65 70 65 61 74 52 | 61 74 65 09 2a 09 31 32 |oRepeatR|ate.*.12|
|00005ef0| 0a 44 69 73 61 62 6c 65 | 45 76 65 6e 74 09 09 2a |.Disable|Event..*|
|00005f00| 09 31 33 0a 45 6e 61 62 | 6c 65 45 76 65 6e 74 09 |.13.Enab|leEvent.|
|00005f10| 09 2a 09 31 34 0a 52 65 | 73 65 74 53 6f 66 74 4b |.*.14.Re|setSoftK|
|00005f20| 65 79 73 09 09 2a 09 31 | 38 0a 4b 65 79 62 6f 61 |eys..*.1|8.Keyboa|
|00005f30| 72 64 53 63 61 6e 09 09 | 2a 09 31 32 31 0a 47 65 |rdScan..|*.121.Ge|
|00005f40| 74 42 75 66 66 65 72 53 | 74 61 74 75 73 20 09 2a |tBufferS|tatus .*|
|00005f50| 09 31 32 38 0a 49 6e 73 | 65 72 74 49 6e 74 6f 42 |.128.Ins|ertIntoB|
|00005f60| 75 66 66 65 72 09 2a 09 | 31 33 38 0a 52 65 6d 6f |uffer.*.|138.Remo|
|00005f70| 76 65 46 72 6f 6d 42 75 | 66 66 65 72 09 2a 09 31 |veFromBu|ffer.*.1|
|00005f80| 34 35 0a 52 65 61 64 50 | 61 67 65 46 43 09 09 2a |45.ReadP|ageFC..*|
|00005f90| 09 31 34 36 0a 57 72 69 | 74 65 50 61 67 65 46 43 |.146.Wri|tePageFC|
|00005fa0| 09 09 2a 09 31 34 37 0a | 52 65 61 64 57 72 69 74 |..*.147.|ReadWrit|
|00005fb0| 65 54 61 62 43 68 61 72 | 61 63 74 65 72 09 2a 09 |eTabChar|acter.*.|
|00005fc0| 32 31 39 0a 52 65 61 64 | 57 72 69 74 65 45 73 63 |219.Read|WriteEsc|
|00005fd0| 61 70 65 53 74 61 74 75 | 73 09 2a 09 32 32 39 0a |apeStatu|s.*.229.|
|00005fe0| 3b 0a 3b 20 4f 53 57 4f | 52 44 20 6e 75 6d 62 65 |;.; OSWO|RD numbe|
|00005ff0| 72 73 0a 3b 0a 52 65 61 | 64 43 6c 6f 63 6b 09 2a |rs.;.Rea|dClock.*|
|00006000| 09 31 0a 57 72 69 74 65 | 43 6c 6f 63 6b 09 2a 09 |.1.Write|Clock.*.|
|00006010| 32 0a 52 65 61 64 54 69 | 6d 65 72 09 2a 09 33 0a |2.ReadTi|mer.*.3.|
|00006020| 57 72 69 74 65 54 69 6d | 65 72 09 2a 09 34 0a 3b |WriteTim|er.*.4.;|
|00006030| 0a 3b 20 45 76 65 6e 74 | 20 6e 75 6d 62 65 72 73 |.; Event| numbers|
|00006040| 0a 3b 0a 42 75 66 66 65 | 72 45 6d 70 74 79 45 76 |.;.Buffe|rEmptyEv|
|00006050| 65 6e 74 09 2a 09 30 0a | 42 75 66 66 65 72 46 75 |ent.*.0.|BufferFu|
|00006060| 6c 6c 45 76 65 6e 74 20 | 09 2a 09 31 0a 4b 65 79 |llEvent |.*.1.Key|
|00006070| 62 6f 61 72 64 45 76 65 | 6e 74 09 09 2a 09 32 0a |boardEve|nt..*.2.|
|00006080| 41 44 43 45 76 65 6e 74 | 09 09 2a 09 33 0a 56 73 |ADCEvent|..*.3.Vs|
|00006090| 79 6e 63 45 76 65 6e 74 | 09 09 2a 09 34 0a 54 69 |yncEvent|..*.4.Ti|
|000060a0| 6d 65 72 45 76 65 6e 74 | 09 09 2a 09 35 0a 45 73 |merEvent|..*.5.Es|
|000060b0| 63 61 70 65 45 76 65 6e | 74 09 09 2a 09 36 0a 45 |capeEven|t..*.6.E|
|000060c0| 63 6f 6e 65 74 45 76 65 | 6e 74 09 09 2a 09 32 35 |conetEve|nt..*.25|
|000060d0| 34 0a 0a 3b 20 41 72 67 | 75 6d 65 6e 74 73 20 66 |4..; Arg|uments f|
|000060e0| 6f 72 20 43 48 41 4e 47 | 45 4f 55 54 50 55 54 20 |or CHANG|EOUTPUT |
|000060f0| 4f 53 62 79 74 65 20 63 | 61 6c 6c 0a 52 53 34 32 |OSbyte c|all.RS42|
|00006100| 33 4f 6e 6c 79 09 2a 09 | 31 2b 32 2b 34 2b 26 31 |3Only.*.|1+2+4+&1|
|00006110| 30 0a 50 72 69 6e 74 65 | 72 4f 6e 6c 79 09 2a 09 |0.Printe|rOnly.*.|
|00006120| 32 2b 38 2b 26 31 30 0a | 56 44 55 4f 6e 6c 79 20 |2+8+&10.|VDUOnly |
|00006130| 09 2a 09 34 2b 26 31 30 | 0a 0a 3b 20 42 75 66 66 |.*.4+&10|..; Buff|
|00006140| 65 72 20 6e 75 6d 62 65 | 72 73 0a 3b 0a 4b 42 42 |er numbe|rs.;.KBB|
|00006150| 75 66 66 65 72 09 2a 09 | 30 0a 53 65 72 69 61 6c |uffer.*.|0.Serial|
|00006160| 49 6e 42 75 66 66 65 72 | 09 2a 09 31 0a 53 65 72 |InBuffer|.*.1.Ser|
|00006170| 69 61 6c 4f 75 74 42 75 | 66 66 65 72 20 2a 09 32 |ialOutBu|ffer *.2|
|00006180| 0a 50 72 69 6e 74 65 72 | 42 75 66 66 65 72 09 2a |.Printer|Buffer.*|
|00006190| 09 33 0a 53 6f 75 6e 64 | 31 42 75 66 66 65 72 09 |.3.Sound|1Buffer.|
|000061a0| 2a 09 34 20 3b 20 46 69 | 72 73 74 20 73 6f 75 6e |*.4 ; Fi|rst soun|
|000061b0| 64 20 62 75 66 66 65 72 | 0a 0a 09 45 4e 44 0a 46 |d buffer|...END.F|
|000061c0| 69 6c 65 44 61 74 61 82 | 65 72 72 6f 72 73 00 45 |ileData.|errors.E|
|000061d0| 0f 01 00 09 01 00 00 40 | ff ff ff 50 45 58 b8 03 |.......@|...PEX..|
|000061e0| 00 1d 8e 45 72 72 6f 72 | 5f 49 6c 6c 65 67 61 6c |...Error|_Illegal|
|000061f0| 49 6e 73 74 72 75 63 74 | 69 6f 6e 09 2a 09 26 38 |Instruct|ion.*.&8|
|00006200| 30 30 30 30 30 30 30 0a | 45 72 72 6f 72 5f 50 72 |0000000.|Error_Pr|
|00006210| 65 66 65 74 63 68 41 62 | 6f 72 74 09 09 2a 09 26 |efetchAb|ort..*.&|
|00006220| 38 30 30 30 30 30 30 31 | 0a 45 72 72 6f 72 5f 44 |80000001|.Error_D|
|00006230| 61 74 61 41 62 6f 72 74 | 20 09 09 2a 09 26 38 30 |ataAbort| ..*.&80|
|00006240| 30 30 30 30 30 32 0a 45 | 72 72 6f 72 5f 41 64 64 |000002.E|rror_Add|
|00006250| 72 65 73 73 45 78 63 65 | 70 74 69 6f 6e 09 09 2a |ressExce|ption..*|
|00006260| 09 26 38 30 30 30 30 30 | 30 33 0a 45 72 72 6f 72 |.&800000|03.Error|
|00006270| 5f 55 6e 6b 6e 6f 77 6e | 49 52 51 09 09 2a 09 26 |_Unknown|IRQ..*.&|
|00006280| 38 30 30 30 30 30 30 34 | 0a 45 72 72 6f 72 5f 42 |80000004|.Error_B|
|00006290| 72 61 6e 63 68 54 68 72 | 6f 75 67 68 5a 65 72 6f |ranchThr|oughZero|
|000062a0| 20 09 2a 09 26 38 30 30 | 30 30 30 30 35 0a 0a 45 | .*.&800|00005..E|
|000062b0| 72 72 6f 72 5f 46 50 42 | 61 73 65 09 09 09 2a 09 |rror_FPB|ase...*.|
|000062c0| 26 38 30 30 30 30 32 30 | 30 0a 45 72 72 6f 72 5f |&8000020|0.Error_|
|000062d0| 46 50 4c 69 6d 69 74 09 | 09 09 2a 09 26 38 30 30 |FPLimit.|..*.&800|
|000062e0| 30 30 33 30 30 0a 0a 09 | 45 4e 44 0a 46 69 6c 65 |00300...|END.File|
|000062f0| 44 61 74 61 82 61 6c 69 | 62 00 00 00 45 0f 01 00 |Data.ali|b...E...|
|00006300| 02 05 00 00 40 ff ff ff | 08 80 36 c4 03 00 2d b6 |....@...|..6...-.|
|00006310| 32 34 20 46 65 62 20 38 | 38 20 20 20 4d 43 4c 69 |24 Feb 8|8   MCLi|
|00006320| 62 20 31 2e 36 0a 0a 20 | 20 54 68 65 72 65 20 77 |b 1.6.. | There w|
|00006330| 61 73 20 61 20 73 6d 61 | 6c 6c 20 6d 69 73 74 61 |as a sma|ll mista|
|00006340| 6b 65 20 69 6e 20 74 68 | 65 20 45 72 72 6f 72 20 |ke in th|e Error |
|00006350| 48 61 6e 64 6c 65 72 20 | 69 6e 20 31 2e 35 2c 20 |Handler |in 1.5, |
|00006360| 63 61 75 73 69 6e 67 20 | 69 6e 73 74 61 6e 74 0a |causing |instant.|
|00006370| 20 20 63 6f 6c 6c 61 70 | 73 65 20 69 66 20 61 6e |  collap|se if an|
|00006380| 20 4f 53 20 45 72 72 6f | 72 20 68 61 70 70 65 6e | OS Erro|r happen|
|00006390| 65 64 2e 0a 0a 20 20 41 | 6c 73 6f 2c 20 74 68 65 |ed...  A|lso, the|
|000063a0| 72 65 20 77 61 73 20 61 | 20 6d 69 73 74 61 6b 65 |re was a| mistake|
|000063b0| 20 69 6e 20 74 68 65 20 | 53 57 49 20 70 72 6f 63 | in the |SWI proc|
|000063c0| 65 64 75 72 65 2c 20 77 | 68 65 72 65 62 79 20 74 |edure, w|hereby t|
|000063d0| 68 65 20 62 72 61 6e 63 | 68 20 74 6f 20 74 68 65 |he branc|h to the|
|000063e0| 0a 20 20 53 57 49 20 70 | 6c 61 6e 74 65 64 20 6f |.  SWI p|lanted o|
|000063f0| 6e 20 74 68 65 20 73 74 | 61 63 6b 20 63 6f 75 6c |n the st|ack coul|
+--------+-------------------------+-------------------------+--------+--------+