home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1989 August / 89_aug.atr / iomac.lib < prev    next >
Unknown  |  1989-01-01  |  5.0 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Sibelius Music / Score (music/sibeliusMusicScore) ext Unsupported
1% dexvert IntelliFont Font (font/intelliFont) ext Unsupported
1% dexvert Amiga Hunk Library/Object (other/amigaLibrary) ext Unsupported
1% dexvert Amiga Shared Library (other/amigaSharedLibrary) ext Unsupported
1% dexvert Chess Assistant File (other/chessAssistant) ext Unsupported
1% dexvert CODESYS Library (other/codesysLibrary) ext Unsupported
1% dexvert COFF Library (other/coffLibrary) ext Unsupported
1% dexvert P-CAD binary Library (other/pCADBinaryLibrary) ext Unsupported
1% dexvert Maple Library (other/mapleLibrary) ext Unsupported
1% dexvert TopSpeed Modula-2 Library (other/topSpeedModula2Library) ext Unsupported
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe fa 13 e8 03 29 06 | 41 a2 49 4f 4d 41 43 2e |......).|A.IOMAC.|
|00000010| 4c 49 42 20 2d 2d 20 4f | 53 53 20 73 79 73 74 65 |LIB -- O|SS syste|
|00000020| 6d 20 49 2f 4f 20 6d 61 | 63 72 6f 73 41 f2 03 18 |m I/O ma|crosA...|
|00000030| 08 41 91 20 20 20 53 75 | 70 70 6f 72 74 20 4d 61 |.A. Su|pport Ma|
|00000040| 63 72 6f 73 41 fc 03 0b | 01 31 30 84 49 4f 43 42 |crosA...|.10.IOCB|
|00000050| 06 04 32 0a 41 ab 59 6f | 75 20 6d 75 73 74 20 69 |..2.A.Yo|u must i|
|00000060| 6e 63 6c 75 64 65 20 53 | 59 53 45 51 55 2e 4d 36 |nclude S|YSEQU.M6|
|00000070| 35 20 61 68 65 61 64 20 | 6f 66 20 74 68 69 73 21 |5 ahead |of this!|
|00000080| 21 41 10 04 04 03 1a 04 | 05 58 3b 24 04 36 58 3b |!A......|.X;$.6X;|
|00000090| 20 54 68 65 73 65 20 6d | 61 63 72 6f 73 20 61 72 | These m|acros ar|
|000000a0| 65 20 63 61 6c 6c 65 64 | 20 62 79 20 74 68 65 20 |e called| by the |
|000000b0| 61 63 74 75 61 6c 20 49 | 2f 4f 20 6d 61 63 72 6f |actual I|/O macro|
|000000c0| 73 2e 04 39 58 3b 20 74 | 6f 20 70 65 72 66 6f 72 |s..9X; t|o perfor|
|000000d0| 6d 20 74 68 65 20 72 75 | 64 69 6d 65 6e 74 61 72 |m the ru|dimentar|
|000000e0| 79 20 72 65 67 69 73 74 | 65 72 20 6c 6f 61 64 20 |y regist|er load |
|000000f0| 66 75 6e 63 74 69 6f 6e | 73 2e 38 04 05 58 3b 42 |function|s.8..X;B|
|00000100| 04 05 58 3b 4c 04 11 58 | 3b 20 4d 41 43 52 4f 3a |..X;L..X|; MACRO:|
|00000110| 20 20 40 43 48 56 04 05 | 58 3b 60 04 36 58 3b 20 | @CHV..|X;`.6X; |
|00000120| 4c 6f 61 64 73 20 49 4f | 43 42 20 6e 75 6d 62 65 |Loads IO|CB numbe|
|00000130| 72 20 28 70 61 72 61 6d | 65 74 65 72 20 31 29 20 |r (param|eter 1) |
|00000140| 69 6e 74 6f 20 58 20 72 | 65 67 69 73 74 65 72 2e |into X r|egister.|
|00000150| 6a 04 05 58 3b 74 04 3c | 58 3b 20 49 66 20 70 61 |j..X;t.<|X; If pa|
|00000160| 72 61 6d 65 74 65 72 20 | 76 61 6c 75 65 20 69 73 |rameter |value is|
|00000170| 20 30 20 74 6f 20 37 2c | 20 69 6d 6d 65 64 69 61 | 0 to 7,| immedia|
|00000180| 74 65 20 63 68 61 6e 6e | 65 6c 20 6e 75 6d 62 65 |te chann|el numbe|
|00000190| 72 7e 04 13 58 3b 20 20 | 20 69 73 20 61 73 73 75 |r~..X; | is assu|
|000001a0| 6d 65 64 2e 88 04 05 58 | 3b 92 04 36 58 3b 20 49 |med....X|;..6X; I|
|000001b0| 66 20 70 61 72 61 6d 65 | 74 65 72 20 76 61 6c 75 |f parame|ter valu|
|000001c0| 65 20 69 73 20 3e 20 37 | 20 74 68 65 6e 20 61 20 |e is > 7| then a |
|000001d0| 6d 65 6d 6f 72 79 20 6c | 6f 63 61 74 69 6f 6e 9c |memory l|ocation.|
|000001e0| 04 31 58 3b 20 20 20 69 | 73 20 61 73 73 75 6d 65 |.1X; i|s assume|
|000001f0| 64 20 74 6f 20 63 6f 6e | 74 61 69 6e 20 74 68 65 |d to con|tain the|
|00000200| 20 63 68 61 6e 6e 65 6c | 20 6e 75 6d 62 65 72 2e | channel| number.|
|00000210| a6 04 05 58 3b b0 04 09 | 04 84 40 43 48 20 ba 04 |...X;...|..@CH ..|
|00000220| 0a 01 0c 08 01 1c 08 07 | c4 04 07 51 0c 08 01 ce |........|...Q....|
|00000230| 04 05 54 3f d8 04 05 54 | 3f e2 04 05 54 3f ec 04 |..T?...T|?...T?..|
|00000240| 05 54 3f f6 04 04 3e 00 | 05 04 02 0a 05 0b 24 3e |.T?...>.|......$>|
|00000250| 0c 08 01 14 08 10 14 05 | 04 03 1e 05 04 05 28 05 |........|......(.|
|00000260| 05 58 3b 32 05 05 58 3b | 3c 05 11 58 3b 20 4d 41 |.X;2..X;|<..X; MA|
|00000270| 43 52 4f 3a 20 20 40 43 | 56 46 05 05 58 3b 50 05 |CRO: @C|VF..X;P.|
|00000280| 3a 58 3b 20 4c 6f 61 64 | 73 20 43 6f 6e 73 74 61 |:X; Load|s Consta|
|00000290| 6e 74 20 6f 72 20 56 61 | 6c 75 65 20 69 6e 74 6f |nt or Va|lue into|
|000002a0| 20 61 63 63 75 6d 75 6c | 74 6f 72 20 28 41 2d 72 | accumul|tor (A-r|
|000002b0| 65 67 69 73 74 65 72 29 | 5a 05 05 58 3b 64 05 2b |egister)|Z..X;d.+|
|000002c0| 58 3b 20 49 66 20 76 61 | 6c 75 65 20 6f 66 20 70 |X; If va|lue of p|
|000002d0| 61 72 61 6d 65 74 65 72 | 20 31 20 69 73 20 30 2d |arameter| 1 is 0-|
|000002e0| 32 35 35 2c 20 40 43 56 | 6e 05 2b 58 3b 20 61 73 |255, @CV|n.+X; as|
|000002f0| 73 75 6d 65 73 20 69 74 | 27 73 20 61 6e 20 28 69 |sumes it|'s an (i|
|00000300| 6d 6d 65 64 69 61 74 65 | 29 20 63 6f 6e 73 74 61 |mmediate|) consta|
|00000310| 6e 74 2e 78 05 05 58 3b | 82 05 27 58 3b 20 4f 74 |nt.x..X;|..'X; Ot|
|00000320| 68 65 72 77 69 73 65 20 | 74 68 65 20 76 61 6c 75 |herwise |the valu|
|00000330| 65 20 69 73 20 61 73 73 | 75 6d 65 64 20 74 6f 8c |e is ass|umed to.|
|00000340| 05 2b 58 3b 20 62 65 20 | 61 20 6d 65 6d 6f 72 79 |.+X; be |a memory|
|00000350| 20 6c 6f 63 61 74 69 6f | 6e 20 28 6e 6f 6e 2d 7a | locatio|n (non-z|
|00000360| 65 72 6f 20 70 61 67 65 | 29 2e 96 05 05 58 3b a0 |ero page|)....X;.|
|00000370| 05 05 58 3b aa 05 05 58 | 3b b4 05 09 04 84 40 43 |..X;...X|;.....@C|
|00000380| 56 20 be 05 0b 01 0c 08 | 01 1d 07 00 01 c8 05 08 |V ......|........|
|00000390| 51 3e 0c 08 01 d2 05 04 | 02 dc 05 07 51 0c 08 01 |Q>......|....Q...|
|000003a0| e6 05 04 03 f0 05 04 05 | fa 05 05 58 3b 04 06 05 |........|...X;...|
|000003b0| 58 3b 0e 06 05 58 3b 18 | 06 05 58 3b 22 06 11 58 |X;...X;.|..X;"..X|
|000003c0| 3b 20 4d 41 43 52 4f 3a | 20 20 40 46 4c 2c 06 05 |; MACRO:| @FL,..|
|000003d0| 58 3b 36 06 35 58 3b 20 | 40 46 4c 20 69 73 20 75 |X;6.5X; |@FL is u|
|000003e0| 73 65 64 20 74 6f 20 65 | 73 74 61 62 6c 69 73 68 |sed to e|stablish|
|000003f0| 20 61 20 66 69 6c 65 73 | 70 65 63 20 28 66 69 6c | a files|pec (fil|
|00000400| 65 20 6e 61 6d 65 29 40 | 06 05 58 3b 4a 06 2d 58 |e name)@|..X;J.-X|
|00000410| 3b 20 49 66 20 61 20 6c | 69 74 65 72 61 6c 20 73 |; If a l|iteral s|
|00000420| 74 72 69 6e 67 20 69 73 | 20 70 61 73 73 65 64 2c |tring is| passed,|
|00000430| 20 40 46 4c 20 77 69 6c | 6c 54 06 27 58 3b 20 67 | @FL wil|lT.'X; g|
|00000440| 65 6e 65 72 61 74 65 20 | 74 68 65 20 73 74 72 69 |enerate |the stri|
|00000450| 6e 67 20 69 6e 20 6c 69 | 6e 65 2c 20 6a 75 6d 70 |ng in li|ne, jump|
|00000460| 5e 06 26 58 3b 20 61 72 | 6f 75 6e 64 20 69 74 2c |^.&X; ar|ound it,|
|00000470| 20 61 6e 64 20 70 6c 61 | 63 65 20 69 74 73 20 61 | and pla|ce its a|
|00000480| 64 64 72 65 73 73 68 06 | 2f 58 3b 20 69 6e 20 74 |ddressh.|/X; in t|
|00000490| 68 65 20 49 4f 43 42 20 | 70 6f 69 6e 74 65 64 20 |he IOCB |pointed |
|000004a0| 74 6f 20 62 79 20 74 68 | 65 20 58 2d 72 65 67 69 |to by th|e X-regi|
|000004b0| 73 74 65 72 2e 72 06 05 | 58 3b 7c 06 28 58 3b 20 |ster.r..|X;|.(X; |
|000004c0| 49 66 20 61 20 6e 6f 6e | 2d 7a 65 72 6f 20 70 61 |If a non|-zero pa|
|000004d0| 67 65 20 6c 61 62 65 6c | 20 69 73 20 70 61 73 73 |ge label| is pass|
|000004e0| 65 64 86 06 2a 58 3b 20 | 74 68 65 20 4d 41 43 52 |ed..*X; |the MACR|
|000004f0| 4f 20 61 73 73 75 6d 65 | 73 20 69 74 20 74 6f 20 |O assume|s it to |
|00000500| 62 65 20 74 68 65 20 6c | 61 62 65 6c 90 06 2e 58 |be the l|abel...X|
|00000510| 3b 20 6f 66 20 61 20 76 | 61 6c 69 64 20 66 69 6c |; of a v|alid fil|
|00000520| 65 73 70 65 63 20 61 6e | 64 20 75 73 65 73 20 69 |espec an|d uses i|
|00000530| 74 20 69 6e 73 74 65 61 | 64 2e 9a 06 05 58 3b a4 |t instea|d....X;.|
|00000540| 06 05 58 3b ae 06 05 58 | 3b b8 06 09 04 84 40 46 |..X;...X|;.....@F|
|00000550| 4c 20 c2 06 0b 01 0c 08 | 01 1d 07 00 01 cc 06 0c |L ......|........|
|00000560| 21 0d 12 0c 08 01 12 08 | 04 d6 06 0d 82 40 46 0b |!.......|.....@F.|
|00000570| 0b 08 01 3d 08 00 e0 06 | 09 51 3e 34 82 40 46 ea |...=....|.Q>4.@F.|
|00000580| 06 0c 50 86 49 43 42 41 | 44 52 39 f4 06 09 51 3e |..P.ICBA|DR9...Q>|
|00000590| 35 82 40 46 fe 06 0f 50 | 86 49 43 42 41 44 52 12 |5.@F...P|.ICBADR.|
|000005a0| 08 01 39 08 07 04 02 12 | 07 09 51 3e 34 0c 08 01 |..9.....|..Q>4...|
|000005b0| 1c 07 0c 50 86 49 43 42 | 41 44 52 39 26 07 09 51 |...P.ICB|ADR9&..Q|
|000005c0| 3e 35 0c 08 01 30 07 0f | 50 86 49 43 42 41 44 52 |>5...0..|P.ICBADR|
|000005d0| 12 08 01 39 3a 07 04 03 | 44 07 04 05 4e 07 13 08 |...9:...|D...N...|
|000005e0| 41 8c 20 20 20 58 49 4f | 20 6d 61 63 72 6f 41 58 |A. XIO| macroAX|
|000005f0| 07 05 58 3b 62 07 11 58 | 3b 20 4d 41 43 52 4f 3a |..X;b..X|; MACRO:|
|00000600| 20 20 58 49 4f 6c 07 05 | 58 3b 76 07 2f 58 3b 20 | XIOl..|X;v./X; |
|00000610| 20 46 4f 52 4d 3a 20 20 | 58 49 4f 20 63 6d 64 2c | FORM: |XIO cmd,|
|00000620| 63 68 5b 2c 61 75 78 31 | 2c 61 75 78 32 5d 5b 2c |ch[,aux1|,aux2][,|
|00000630| 66 69 6c 65 73 70 65 63 | 5d 80 07 05 58 3b 8a 07 |filespec|]...X;..|
|00000640| 25 58 3b 20 63 68 20 69 | 73 20 67 69 76 65 6e 20 |%X; ch i|s given |
|00000650| 61 73 20 69 6e 20 74 68 | 65 20 40 43 48 20 6d 61 |as in th|e @CH ma|
|00000660| 63 72 6f 94 07 33 58 3b | 20 63 6d 64 2c 20 61 75 |cro..3X;| cmd, au|
|00000670| 78 31 2c 20 61 75 78 32 | 20 61 72 65 20 67 69 76 |x1, aux2| are giv|
|00000680| 65 6e 20 61 73 20 69 6e | 20 74 68 65 20 40 43 56 |en as in| the @CV|
|00000690| 20 6d 61 63 72 6f 9e 07 | 2b 58 3b 20 66 69 6c 65 | macro..|+X; file|
|000006a0| 73 70 65 63 20 69 73 20 | 67 69 76 65 6e 20 61 73 |spec is |given as|
|000006b0| 20 69 6e 20 74 68 65 20 | 40 46 4c 20 6d 61 63 72 | in the |@FL macr|
|000006c0| 6f a8 07 05 58 3b b2 07 | 35 58 3b 20 70 65 72 66 |o...X;..|5X; perf|
|000006d0| 6f 72 6d 73 20 66 61 6d | 69 6c 69 61 72 20 58 49 |orms fam|iliar XI|
|000006e0| 4f 20 6f 70 65 72 61 74 | 69 6f 6e 73 20 77 69 74 |O operat|ions wit|
|000006f0| 68 2f 66 6f 72 20 4f 53 | 2f 41 2b bc 07 05 58 3b |h/for OS|/A+...X;|
|00000700| c6 07 2f 58 3b 20 49 66 | 20 61 75 78 31 20 69 73 |../X; If| aux1 is|
|00000710| 20 67 69 76 65 6e 2c 20 | 61 75 78 32 20 6d 75 73 | given, |aux2 mus|
|00000720| 74 20 61 6c 73 6f 20 62 | 65 20 67 69 76 65 6e d0 |t also b|e given.|
|00000730| 07 38 58 3b 20 49 66 20 | 61 75 78 31 20 61 6e 64 |.8X; If |aux1 and|
|00000740| 20 61 75 78 32 20 61 72 | 65 20 6f 6d 69 74 74 65 | aux2 ar|e omitte|
|00000750| 64 2c 20 74 68 65 79 20 | 61 72 65 20 73 65 74 20 |d, they |are set |
|00000760| 74 6f 20 7a 65 72 6f da | 07 31 58 3b 20 49 66 20 |to zero.|.1X; If |
|00000770| 74 68 65 20 66 69 6c 65 | 73 70 65 63 20 69 73 20 |the file|spec is |
|00000780| 6f 6d 69 74 74 65 64 2c | 20 22 53 3a 22 20 69 73 |omitted,| "S:" is|
|00000790| 20 61 73 73 75 6d 65 64 | e4 07 05 58 3b ee 07 09 | assumed|...X;...|
|000007a0| 04 84 58 49 4f 20 f8 07 | 11 01 0c 08 00 1d 08 02 |..XIO ..|........|
|000007b0| 33 0c 08 00 1c 08 05 02 | 08 25 0a 41 9e 58 49 4f |3.......|.%.A.XIO|
|000007c0| 3a 20 77 72 6f 6e 67 20 | 6e 75 6d 62 65 72 20 6f |: wrong |number o|
|000007d0| 66 20 61 72 67 75 6d 65 | 6e 74 73 41 0c 08 04 02 |f argume|ntsA....|
|000007e0| 16 08 0c 07 84 40 43 48 | 20 0c 08 02 20 08 0c 07 |.....@CH| ... ...|
|000007f0| 84 40 43 56 20 0c 08 01 | 2a 08 15 50 85 49 43 43 |.@CV ...|*..P.ICC|
|00000800| 4f 4d 39 3b 3b 20 43 4f | 4d 4d 41 4e 44 34 08 0a |OM9;; CO|MMAND4..|
|00000810| 01 0c 08 00 1a 08 04 3e | 08 0c 07 84 40 43 56 20 |.......>|....@CV |
|00000820| 0c 08 03 48 08 0c 50 86 | 49 43 41 55 58 31 39 52 |...H..P.|ICAUX19R|
|00000830| 08 0c 07 84 40 43 56 20 | 0c 08 04 5c 08 0c 50 86 |....@CV |...\..P.|
|00000840| 49 43 41 55 58 32 39 66 | 08 04 02 70 08 07 51 3e |ICAUX29f|...p..Q>|
|00000850| 08 00 7a 08 0c 50 86 49 | 43 41 55 58 31 39 84 08 |..z..P.I|CAUX19..|
|00000860| 0c 50 86 49 43 41 55 58 | 32 39 8e 08 04 03 98 08 |.P.ICAUX|29......|
|00000870| 11 01 0c 08 00 18 08 02 | 33 0c 08 00 18 08 04 a2 |........|3.......|
|00000880| 08 0e 07 84 40 46 4c 20 | 41 82 53 3a 41 ac 08 04 |....@FL |A.S:A...|
|00000890| 02 b6 08 0c 84 40 40 49 | 4f 1f 0c 08 00 c0 08 11 |.....@@I|O.......|
|000008a0| 07 84 40 46 4c 20 0b 40 | 84 40 40 49 4f 3a ca 08 |..@FL .@|.@@IO:..|
|000008b0| 04 03 d4 08 08 20 83 43 | 49 4f de 08 04 03 e8 08 |..... .C|IO......|
|000008c0| 04 05 f2 08 14 08 41 8d | 20 20 20 4f 50 45 4e 20 |......A.| OPEN |
|000008d0| 6d 61 63 72 6f 41 fc 08 | 05 58 3b 06 09 12 58 3b |macroA..|.X;...X;|
|000008e0| 20 4d 41 43 52 4f 3a 20 | 20 4f 50 45 4e 10 09 05 | MACRO: | OPEN...|
|000008f0| 58 3b 1a 09 28 58 3b 20 | 20 46 4f 52 4d 3a 20 20 |X;..(X; | FORM: |
|00000900| 4f 50 45 4e 20 63 68 2c | 61 75 78 31 2c 61 75 78 |OPEN ch,|aux1,aux|
|00000910| 32 2c 66 69 6c 65 73 70 | 65 63 24 09 05 58 3b 2e |2,filesp|ec$..X;.|
|00000920| 09 25 58 3b 20 63 68 20 | 69 73 20 67 69 76 65 6e |.%X; ch |is given|
|00000930| 20 61 73 20 69 6e 20 74 | 68 65 20 40 43 48 20 6d | as in t|he @CH m|
|00000940| 61 63 72 6f 38 09 31 58 | 3b 20 61 75 78 31 20 61 |acro8.1X|; aux1 a|
|00000950| 6e 64 20 61 75 78 32 20 | 61 72 65 20 67 69 76 65 |nd aux2 |are give|
|00000960| 6e 20 61 73 20 69 6e 20 | 74 68 65 20 40 43 56 20 |n as in |the @CV |
|00000970| 6d 61 63 72 6f 42 09 2b | 58 3b 20 66 69 6c 65 73 |macroB.+|X; files|
|00000980| 70 65 63 20 69 73 20 67 | 69 76 65 6e 20 61 73 20 |pec is g|iven as |
|00000990| 69 6e 20 74 68 65 20 40 | 46 4c 20 6d 61 63 72 6f |in the @|FL macro|
|000009a0| 4c 09 05 58 3b 56 09 31 | 58 3b 20 77 69 6c 6c 20 |L..X;V.1|X; will |
|000009b0| 61 74 74 65 6d 70 74 20 | 74 6f 20 6f 70 65 6e 20 |attempt |to open |
|000009c0| 74 68 65 20 67 69 76 65 | 6e 20 66 69 6c 65 20 6e |the give|n file n|
|000009d0| 61 6d 65 20 6f 6e 60 09 | 2f 58 3b 20 74 68 65 20 |ame on`.|/X; the |
|000009e0| 67 69 76 65 6e 20 63 68 | 61 6e 6e 65 6c 2c 20 75 |given ch|annel, u|
|000009f0| 73 69 6e 67 20 74 68 65 | 20 6f 70 65 6e 20 22 6d |sing the| open "m|
|00000a00| 6f 64 65 73 22 6a 09 20 | 58 3b 20 73 70 65 63 69 |odes"j. |X; speci|
|00000a10| 66 69 65 64 20 62 79 20 | 61 75 78 31 20 61 6e 64 |fied by |aux1 and|
|00000a20| 20 61 75 78 32 74 09 05 | 58 3b 7e 09 0a 04 85 4f | aux2t..|X;~....O|
|00000a30| 50 45 4e 20 88 09 0a 01 | 0c 08 00 1b 08 04 92 09 |PEN ....|........|
|00000a40| 26 0a 41 9f 4f 50 45 4e | 3a 20 77 72 6f 6e 67 20 |&.A.OPEN|: wrong |
|00000a50| 6e 75 6d 62 65 72 20 6f | 66 20 61 72 67 75 6d 65 |number o|f argume|
|00000a60| 6e 74 73 41 9c 09 04 02 | a6 09 0b 01 0c 08 04 1d |ntsA....|........|
|00000a70| 07 00 01 b0 09 1e 07 84 | 58 49 4f 20 84 43 4f 50 |........|XIO .COP|
|00000a80| 4e 3d 0c 08 01 3d 0c 08 | 02 3d 0c 08 03 3d 0b 08 |N=...=..|.=...=..|
|00000a90| 04 ba 09 04 02 c4 09 1e | 07 84 58 49 4f 20 84 43 |........|..XIO .C|
|00000aa0| 4f 50 4e 3d 0c 08 01 3d | 0c 08 02 3d 0c 08 03 3d |OPN=...=|...=...=|
|00000ab0| 0c 08 04 ce 09 04 03 d8 | 09 04 03 e2 09 04 05 ec |........|........|
|00000ac0| 09 1e 08 41 97 20 20 20 | 42 47 45 54 20 61 6e 64 |...A. |BGET and|
|00000ad0| 20 42 50 55 54 20 6d 61 | 63 72 6f 73 41 f6 09 05 | BPUT ma|crosA...|
|00000ae0| 58 3b 00 0a 1b 58 3b 20 | 4d 41 43 52 4f 53 3a 20 |X;...X; |MACROS: |
|00000af0| 42 47 45 54 20 61 6e 64 | 20 42 50 55 54 0a 0a 05 |BGET and| BPUT...|
|00000b00| 58 3b 14 0a 1d 58 3b 20 | 20 20 46 4f 52 4d 3a 20 |X;...X; | FORM: |
|00000b10| 42 47 45 54 20 63 68 2c | 62 75 66 2c 6c 65 6e 1e |BGET ch,|buf,len.|
|00000b20| 0a 1d 58 3b 20 20 20 20 | 20 20 20 20 20 42 50 55 |..X; | BPU|
|00000b30| 54 20 63 68 2c 62 75 66 | 2c 6c 65 6e 28 0a 05 58 |T ch,buf|,len(..X|
|00000b40| 3b 32 0a 25 58 3b 20 63 | 68 20 69 73 20 67 69 76 |;2.%X; c|h is giv|
|00000b50| 65 6e 20 61 73 20 69 6e | 20 74 68 65 20 40 43 48 |en as in| the @CH|
|00000b60| 20 6d 61 63 72 6f 3c 0a | 2e 58 3b 20 6c 65 6e 20 | macro<.|.X; len |
|00000b70| 69 73 20 41 4c 57 41 59 | 53 20 61 73 73 75 6d 65 |is ALWAY|S assume|
|00000b80| 64 20 74 6f 20 62 65 20 | 61 6e 20 69 6d 6d 65 64 |d to be |an immed|
|00000b90| 69 61 74 65 46 0a 31 58 | 3b 20 20 20 61 6e 64 20 |iateF.1X|; and |
|00000ba0| 61 63 74 75 61 6c 20 76 | 61 6c 75 65 2e 2e 2e 6e |actual v|alue...n|
|00000bb0| 65 76 65 72 20 61 20 6d | 65 6d 6f 72 79 20 61 64 |ever a m|emory ad|
|00000bc0| 64 72 65 73 73 50 0a 2f | 58 3b 20 62 75 66 20 6d |dressP./|X; buf m|
|00000bd0| 75 73 74 20 62 65 20 74 | 68 65 20 61 64 64 72 65 |ust be t|he addre|
|00000be0| 73 73 20 6f 66 20 61 6e | 20 61 70 70 72 6f 70 72 |ss of an| appropr|
|00000bf0| 69 61 74 65 5a 0a 18 58 | 3b 20 20 20 62 75 66 66 |iateZ..X|; buff|
|00000c00| 65 72 20 69 6e 20 6d 65 | 6d 6f 72 79 64 0a 05 58 |er in me|moryd..X|
|00000c10| 3b 6e 0a 2b 58 3b 20 70 | 75 74 73 20 6f 72 20 67 |;n.+X; p|uts or g|
|00000c20| 65 74 73 20 6c 65 6e 67 | 74 68 20 62 79 74 65 73 |ets leng|th bytes|
|00000c30| 20 74 6f 2f 66 72 6f 6d | 20 74 68 65 78 0a 30 58 | to/from| thex.0X|
|00000c40| 3b 20 20 20 73 70 65 63 | 69 66 69 65 64 20 62 75 |; spec|ified bu|
|00000c50| 66 66 65 72 2c 20 75 73 | 65 73 20 62 69 6e 61 72 |ffer, us|es binar|
|00000c60| 79 20 72 65 61 64 2f 77 | 72 69 74 65 82 0a 05 58 |y read/w|rite...X|
|00000c70| 3b 8c 0a 05 58 3b 96 0a | 1b 58 3b 20 66 69 72 73 |;...X;..|.X; firs|
|00000c80| 74 3a 20 61 20 63 6f 6d | 6d 6f 6e 20 6d 61 63 72 |t: a com|mon macr|
|00000c90| 6f a0 0a 05 58 3b aa 0a | 09 04 84 40 47 50 20 b4 |o...X;..|...@GP .|
|00000ca0| 0a 0c 07 84 40 43 48 20 | 0c 08 01 be 0a 08 51 3e |....@CH |......Q>|
|00000cb0| 0c 08 04 c8 0a 0b 50 85 | 49 43 43 4f 4d 39 d2 0a |......P.|ICCOM9..|
|00000cc0| 09 51 3e 34 0c 08 02 dc | 0a 0c 50 86 49 43 42 41 |.Q>4....|..P.ICBA|
|00000cd0| 44 52 39 e6 0a 09 51 3e | 35 0c 08 02 f0 0a 0f 50 |DR9...Q>|5......P|
|00000ce0| 86 49 43 42 41 44 52 12 | 08 01 39 fa 0a 09 51 3e |.ICBADR.|..9...Q>|
|00000cf0| 34 0c 08 03 04 0b 0c 50 | 86 49 43 42 4c 45 4e 39 |4......P|.ICBLEN9|
|00000d00| 0e 0b 09 51 3e 35 0c 08 | 03 18 0b 0f 50 86 49 43 |...Q>5..|....P.IC|
|00000d10| 42 4c 45 4e 12 08 01 39 | 22 0b 08 20 83 43 49 4f |BLEN...9|".. .CIO|
|00000d20| 2c 0b 04 05 36 0b 05 58 | 3b 40 0b 0a 04 85 42 47 |,...6..X|;@....BG|
|00000d30| 45 54 20 4a 0b 0a 01 0c | 08 00 1b 08 03 54 0b 27 |ET J....|.....T.'|
|00000d40| 0a 41 a0 42 47 45 54 3a | 20 77 72 6f 6e 67 20 6e |.A.BGET:| wrong n|
|00000d50| 75 6d 62 65 72 20 6f 66 | 20 70 61 72 61 6d 65 74 |umber of| paramet|
|00000d60| 65 72 73 41 5e 0b 04 02 | 68 0b 1c 07 84 40 47 50 |ersA^...|h....@GP|
|00000d70| 20 0c 08 01 3d 0c 08 02 | 3d 0c 08 03 3d 86 43 47 | ...=...|=...=.CG|
|00000d80| 42 49 4e 52 72 0b 04 03 | 7c 0b 04 05 86 0b 05 58 |BINRr...||......X|
|00000d90| 3b 90 0b 0a 04 85 42 50 | 55 54 20 9a 0b 0a 01 0c |;.....BP|UT .....|
|00000da0| 08 00 1b 08 03 a4 0b 27 | 0a 41 a0 42 50 55 54 3a |.......'|.A.BPUT:|
|00000db0| 20 77 72 6f 6e 67 20 6e | 75 6d 62 65 72 20 6f 66 | wrong n|umber of|
|00000dc0| 20 70 61 72 61 6d 65 74 | 65 72 73 41 ae 0b 04 02 | paramet|ersA....|
|00000dd0| b8 0b 1c 07 84 40 47 50 | 20 0c 08 01 3d 0c 08 02 |.....@GP| ...=...|
|00000de0| 3d 0c 08 03 3d 86 43 50 | 42 49 4e 52 c2 0b 04 03 |=...=.CP|BINR....|
|00000df0| cc 0b 04 05 d6 0b 05 58 | 3b e0 0b 15 08 41 8e 20 |.......X|;....A. |
|00000e00| 20 20 50 52 49 4e 54 20 | 6d 61 63 72 6f 41 ea 0b | PRINT |macroA..|
|00000e10| 05 58 3b f4 0b 13 58 3b | 20 4d 41 43 52 4f 3a 20 |.X;...X;| MACRO: |
|00000e20| 20 50 52 49 4e 54 fe 0b | 05 58 3b 08 0c 28 58 3b | PRINT..|.X;..(X;|
|00000e30| 20 20 46 4f 52 4d 3a 20 | 20 50 52 49 4e 54 20 63 | FORM: | PRINT c|
|00000e40| 68 5b 2c 62 75 66 66 65 | 72 5b 2c 6c 65 6e 67 74 |h[,buffe|r[,lengt|
|00000e50| 68 5d 5d 12 0c 05 58 3b | 1c 0c 21 58 3b 20 63 68 |h]]...X;|..!X; ch|
|00000e60| 20 69 73 20 61 73 20 67 | 69 76 65 6e 20 69 6e 20 | is as g|iven in |
|00000e70| 40 43 48 20 6d 61 63 72 | 6f 26 0c 28 58 3b 20 69 |@CH macr|o&.(X; i|
|00000e80| 66 20 6e 6f 20 62 75 66 | 66 65 72 2c 20 70 72 69 |f no buf|fer, pri|
|00000e90| 6e 74 73 20 6a 75 73 74 | 20 61 20 52 45 54 55 52 |nts just| a RETUR|
|00000ea0| 4e 30 0c 25 58 3b 20 69 | 66 20 6e 6f 20 6c 65 6e |N0.%X; i|f no len|
|00000eb0| 67 74 68 20 67 69 76 65 | 6e 2c 20 32 35 35 20 61 |gth give|n, 255 a|
|00000ec0| 73 73 75 6d 65 64 3a 0c | 05 58 3b 44 0c 38 58 3b |ssumed:.|.X;D.8X;|
|00000ed0| 20 75 73 65 64 20 74 6f | 20 70 72 69 6e 74 20 74 | used to| print t|
|00000ee0| 65 78 74 2e 20 20 54 6f | 20 70 72 69 6e 74 20 74 |ext. To| print t|
|00000ef0| 65 78 74 20 77 69 74 68 | 6f 75 74 20 52 45 54 55 |ext with|out RETU|
|00000f00| 52 4e 2c 4e 0c 2d 58 3b | 20 6c 65 6e 67 74 68 20 |RN,N.-X;| length |
|00000f10| 6d 75 73 74 20 62 65 20 | 67 69 76 65 6e 2e 20 20 |must be |given. |
|00000f20| 53 65 65 20 4f 53 2f 41 | 2b 20 6d 61 6e 75 61 6c |See OS/A|+ manual|
|00000f30| 58 0c 05 58 3b 62 0c 32 | 58 3b 20 45 58 43 45 50 |X..X;b.2|X; EXCEP|
|00000f40| 54 49 4f 4e 3a 20 73 65 | 63 6f 6e 64 20 70 61 72 |TION: se|cond par|
|00000f50| 61 6d 65 74 65 72 20 6d | 61 79 20 62 65 20 61 20 |ameter m|ay be a |
|00000f60| 6c 69 74 65 72 61 6c 6c | 0c 2e 58 3b 20 20 73 74 |literall|..X; st|
|00000f70| 72 69 6e 67 20 28 65 2e | 67 2e 2c 20 50 52 49 4e |ring (e.|g., PRIN|
|00000f80| 54 20 30 2c 22 74 65 73 | 74 22 29 2c 20 69 6e 20 |T 0,"tes|t"), in |
|00000f90| 77 68 69 63 68 76 0c 2d | 58 3b 20 20 63 61 73 65 |whichv.-|X; case|
|00000fa0| 20 74 68 65 20 6c 65 6e | 67 74 68 20 28 69 66 20 | the len|gth (if |
|00000fb0| 67 69 76 65 6e 29 20 69 | 73 20 69 67 6e 6f 72 65 |given) i|s ignore|
|00000fc0| 64 2e 80 0c 05 58 3b 8a | 0c 0b 04 86 50 52 49 4e |d....X;.|....PRIN|
|00000fd0| 54 20 94 0c 11 01 0c 08 | 00 1d 08 01 33 0c 08 00 |T ......|....3...|
|00000fe0| 1c 08 03 9e 0c 28 0a 41 | a1 50 52 49 4e 54 3a 20 |.....(.A|.PRINT: |
|00000ff0| 77 72 6f 6e 67 20 6e 75 | 6d 62 65 72 20 6f 66 20 |wrong nu|mber of |
|00001000| 70 61 72 61 6d 65 74 65 | 72 73 41 a8 0c 04 02 b2 |paramete|rsA.....|
|00001010| 0c 0a 01 0c 08 00 1c 08 | 01 bc 0c 0a 01 0c 08 02 |........|........|
|00001020| 1d 08 80 c6 0c 0c 21 0d | 12 08 04 12 0c 08 02 d0 |......!.|........|
|00001030| 0c 0e 83 40 49 4f 0b 0b | 08 02 3d 06 9b da 0c 20 |...@IO..|..=.... |
|00001040| 07 84 40 47 50 20 0c 08 | 01 3d 83 40 49 4f 3d 0c |..@GP ..|.=.@IO=.|
|00001050| 08 02 12 08 01 3d 86 43 | 50 54 58 54 52 e4 0c 04 |.....=.C|PTXTR...|
|00001060| 02 ee 0c 0a 01 0c 08 00 | 18 08 02 f8 0c 1b 07 84 |........|........|
|00001070| 40 47 50 20 0c 08 01 3d | 0c 08 02 3d 08 ff 3d 86 |@GP ...=|...=..=.|
|00001080| 43 50 54 58 54 52 02 0d | 04 02 0c 0d 1c 07 84 40 |CPTXTR..|.......@|
|00001090| 47 50 20 0c 08 01 3d 0c | 08 02 3d 0c 08 03 3d 86 |GP ...=.|..=...=.|
|000010a0| 43 50 54 58 54 52 16 0d | 04 03 20 0d 04 03 2a 0d |CPTXTR..|.. ...*.|
|000010b0| 04 02 34 0d 08 21 0d 12 | 08 04 3e 0d 0a 83 40 49 |..4..!..|..>...@I|
|000010c0| 4f 0b 06 9b 48 0d 1c 07 | 84 40 47 50 20 0c 08 01 |O...H...|.@GP ...|
|000010d0| 3d 83 40 49 4f 3d 08 01 | 3d 86 43 50 54 58 54 52 |=.@IO=..|=.CPTXTR|
|000010e0| 52 0d 04 03 5c 0d 04 03 | 66 0d 04 05 70 0d 05 58 |R...\...|f...p..X|
|000010f0| 3b 7a 0d 15 08 41 8e 20 | 20 20 49 4e 50 55 54 20 |;z...A. | INPUT |
|00001100| 6d 61 63 72 6f 41 84 0d | 05 58 3b 8e 0d 13 58 3b |macroA..|.X;...X;|
|00001110| 20 4d 41 43 52 4f 3a 20 | 20 49 4e 50 55 54 98 0d | MACRO: | INPUT..|
|00001120| 05 58 3b a2 0d 1e 58 3b | 20 20 46 4f 52 4d 3a 20 |.X;...X;| FORM: |
|00001130| 20 49 4e 50 55 54 20 63 | 68 2c 62 75 66 2c 6c 65 | INPUT c|h,buf,le|
|00001140| 6e ac 0d 05 58 3b b6 0d | 25 58 3b 20 63 68 20 69 |n...X;..|%X; ch i|
|00001150| 73 20 67 69 76 65 6e 20 | 61 73 20 69 6e 20 74 68 |s given |as in th|
|00001160| 65 20 40 43 48 20 6d 61 | 63 72 6f c0 0d 29 58 3b |e @CH ma|cro..)X;|
|00001170| 20 62 75 66 20 4d 55 53 | 54 20 62 65 20 61 20 70 | buf MUS|T be a p|
|00001180| 72 6f 70 65 72 20 62 75 | 66 66 65 72 20 61 64 64 |roper bu|ffer add|
|00001190| 72 65 73 73 ca 0d 36 58 | 3b 20 6c 65 6e 20 6d 61 |ress..6X|; len ma|
|000011a0| 79 20 62 65 20 6f 6d 69 | 74 74 65 64 2c 20 69 6e |y be omi|tted, in|
|000011b0| 20 77 68 69 63 68 20 63 | 61 73 65 20 32 35 35 20 | which c|ase 255 |
|000011c0| 69 73 20 61 73 73 75 6d | 65 64 d4 0d 05 58 3b de |is assum|ed...X;.|
|000011d0| 0d 2c 58 3b 20 67 65 74 | 73 20 61 20 6c 69 6e 65 |.,X; get|s a line|
|000011e0| 20 6f 66 20 74 65 78 74 | 20 69 6e 70 75 74 20 74 | of text| input t|
|000011f0| 6f 20 74 68 65 20 67 69 | 76 65 6e e8 0d 27 58 3b |o the gi|ven..'X;|
|00001200| 20 20 20 62 75 66 66 65 | 72 2c 20 6d 61 78 69 6d | buffe|r, maxim|
|00001210| 75 6d 20 6f 66 20 6c 65 | 6e 67 74 68 20 62 79 74 |um of le|ngth byt|
|00001220| 65 73 f2 0d 05 58 3b fc | 0d 0b 04 86 49 4e 50 55 |es...X;.|....INPU|
|00001230| 54 20 06 0e 11 01 0c 08 | 00 1d 08 02 33 0c 08 00 |T ......|....3...|
|00001240| 1c 08 03 10 0e 28 0a 41 | a1 49 4e 50 55 54 3a 20 |.....(.A|.INPUT: |
|00001250| 77 72 6f 6e 67 20 6e 75 | 6d 62 65 72 20 6f 66 20 |wrong nu|mber of |
|00001260| 70 61 72 61 6d 65 74 65 | 72 73 41 1a 0e 04 02 24 |paramete|rsA....$|
|00001270| 0e 0a 01 0c 08 00 18 08 | 02 2e 0e 1b 07 84 40 47 |........|......@G|
|00001280| 50 20 0c 08 01 3d 0c 08 | 02 3d 08 ff 3d 86 43 47 |P ...=..|.=..=.CG|
|00001290| 54 58 54 52 38 0e 04 02 | 42 0e 1c 07 84 40 47 50 |TXTR8...|B....@GP|
|000012a0| 20 0c 08 01 3d 0c 08 02 | 3d 0c 08 03 3d 86 43 47 | ...=...|=...=.CG|
|000012b0| 54 58 54 52 4c 0e 04 03 | 56 0e 04 03 60 0e 04 05 |TXTRL...|V...`...|
|000012c0| 6a 0e 15 08 41 8e 20 20 | 20 43 4c 4f 53 45 20 6d |j...A. | CLOSE m|
|000012d0| 61 63 72 6f 41 74 0e 05 | 58 3b 7e 0e 13 58 3b 20 |acroAt..|X;~..X; |
|000012e0| 4d 41 43 52 4f 3a 20 20 | 43 4c 4f 53 45 88 0e 05 |MACRO: |CLOSE...|
|000012f0| 58 3b 92 0e 16 58 3b 20 | 20 46 4f 52 4d 3a 20 20 |X;...X; | FORM: |
|00001300| 43 4c 4f 53 45 20 63 68 | 9c 0e 05 58 3b a6 0e 25 |CLOSE ch|...X;..%|
|00001310| 58 3b 20 63 68 20 69 73 | 20 67 69 76 65 6e 20 61 |X; ch is| given a|
|00001320| 73 20 69 6e 20 74 68 65 | 20 40 43 48 20 6d 61 63 |s in the| @CH mac|
|00001330| 72 6f b0 0e 05 58 3b ba | 0e 17 58 3b 20 63 6c 6f |ro...X;.|..X; clo|
|00001340| 73 65 73 20 63 68 61 6e | 6e 65 6c 20 63 68 c4 0e |ses chan|nel ch..|
|00001350| 05 58 3b ce 0e 0b 04 86 | 43 4c 4f 53 45 20 d8 0e |.X;.....|CLOSE ..|
|00001360| 0a 01 0c 08 00 1b 08 01 | e2 0e 28 0a 41 a1 43 4c |........|..(.A.CL|
|00001370| 4f 53 45 3a 20 77 72 6f | 6e 67 20 6e 75 6d 62 65 |OSE: wro|ng numbe|
|00001380| 72 20 6f 66 20 70 61 72 | 61 6d 65 74 65 72 73 41 |r of par|ametersA|
|00001390| ec 0e 04 02 f6 0e 0c 07 | 84 40 43 48 20 0c 08 01 |........|.@CH ...|
|000013a0| 00 0f 0c 51 3e 86 43 43 | 4c 4f 53 45 0a 0f 0b 50 |...Q>.CC|LOSE...P|
|000013b0| 85 49 43 43 4f 4d 39 14 | 0f 08 20 83 43 49 4f 1e |.ICCOM9.|.. .CIO.|
|000013c0| 0f 04 03 28 0f 04 05 32 | 0f 05 58 3b 3c 0f 2d 58 |...(...2|..X;<.-X|
|000013d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 20 45 4e 44 20 |;;;;;;;;|;;; END |
|000013e0| 4f 46 20 49 4f 4d 41 43 | 2e 4c 49 42 20 3b 3b 3b |OF IOMAC|.LIB ;;;|
|000013f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 46 0f 05 58 3b |;;;;;;;;|;F..X; |
+--------+-------------------------+-------------------------+--------+--------+