/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / Andre / ConsoleLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 61 6e 64 72 | 65 27 73 20 63 6f 6e 73 |;.; andr|e's cons|
|00000010| 6f 6c 65 6c 69 62 20 20 | 28 72 65 76 20 62 75 6d |olelib  |(rev bum|
|00000020| 36 29 00 3b 00 00 21 6c | 69 62 68 65 61 64 65 72 |6).;..!l|ibheader|
|00000030| 7b 63 6f 6e 73 6f 6c 65 | 6c 69 62 2c 30 2c 30 2c |{console|lib,0,0,|
|00000040| 30 2c 30 7d 00 00 21 64 | 75 6d 74 6f 6b 65 7b 22 |0,0}..!d|umtoke{"|
|00000050| 43 6f 6e 73 6f 6c 65 22 | 2c 22 22 2c 5f 74 6f 6b |Console"|,"",_tok|
|00000060| 65 7d 00 00 21 61 63 6f | 6d 6d 61 6e 64 7b 23 6c |e}..!aco|mmand{#l|
|00000070| 6f 6e 67 7d 00 21 61 72 | 67 73 7b 23 77 6f 72 64 |ong}.!ar|gs{#word|
|00000080| 2c 23 77 6f 72 64 7d 00 | 21 6c 69 62 73 7b 23 77 |,#word}.|!libs{#w|
|00000090| 69 6e 64 6f 77 73 6c 69 | 62 2c 23 69 61 30 7c 23 |indowsli|b,#ia0|#|
|000000a0| 70 64 30 2c 33 32 2c 24 | 31 33 38 31 7d 00 21 73 |pd0,32,$|1381}.!s|
|000000b0| 75 62 73 7b 5f 6f 70 65 | 6e 63 6f 6e 2c 30 2c 30 |ubs{_ope|ncon,0,0|
|000000c0| 7d 00 21 6e 61 6d 65 7b | 22 4f 70 65 6e 43 6f 6e |}.!name{|"OpenCon|
|000000d0| 73 6f 6c 65 22 2c 22 23 | 57 69 6e 64 6f 77 2c 23 |sole","#|Window,#|
|000000e0| 43 6f 6e 73 6f 6c 65 22 | 7d 00 00 21 61 73 74 61 |Console"|}..!asta|
|000000f0| 74 65 6d 65 6e 74 00 21 | 61 72 67 73 7b 23 77 6f |tement.!|args{#wo|
|00000100| 72 64 2c 23 73 74 72 69 | 6e 67 7d 00 21 6c 69 62 |rd,#stri|ng}.!lib|
|00000110| 73 7b 33 32 2c 24 31 33 | 38 30 7d 00 21 73 75 62 |s{32,$13|80}.!sub|
|00000120| 73 7b 5f 77 72 69 74 65 | 2c 30 2c 30 7d 00 21 6e |s{_write|,0,0}.!n|
|00000130| 61 6d 65 7b 22 50 72 69 | 6e 74 43 6f 6e 22 2c 22 |ame{"Pri|ntCon","|
|00000140| 43 6f 6e 73 6f 6c 65 23 | 2c 45 78 70 72 65 73 73 |Console#|,Express|
|00000150| 69 6f 6e 22 7d 00 00 21 | 61 73 74 61 74 65 6d 65 |ion"}..!|astateme|
|00000160| 6e 74 00 21 61 72 67 73 | 7b 23 77 6f 72 64 2c 23 |nt.!args|{#word,#|
|00000170| 73 74 72 69 6e 67 7d 00 | 21 6c 69 62 73 7b 33 32 |string}.|!libs{32|
|00000180| 2c 24 31 33 38 30 7d 00 | 21 73 75 62 73 7b 5f 77 |,$1380}.|!subs{_w|
|00000190| 72 69 74 65 32 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |rite2,0,|0}.!name|
|000001a0| 7b 22 4e 50 72 69 6e 74 | 43 6f 6e 22 2c 22 43 6f |{"NPrint|Con","Co|
|000001b0| 6e 73 6f 6c 65 23 2c 45 | 78 70 72 65 73 73 69 6f |nsole#,E|xpressio|
|000001c0| 6e 22 7d 00 00 21 61 73 | 74 61 74 65 6d 65 6e 74 |n"}..!as|tatement|
|000001d0| 00 21 61 72 67 73 7b 23 | 77 6f 72 64 7d 00 21 6c |.!args{#|word}.!l|
|000001e0| 69 62 73 7b 33 32 2c 24 | 31 33 38 30 7d 00 21 73 |ibs{32,$|1380}.!s|
|000001f0| 75 62 73 7b 5f 63 6f 64 | 65 66 69 6e 69 74 2c 30 |ubs{_cod|efinit,0|
|00000200| 2c 30 7d 00 21 6e 61 6d | 65 7b 22 43 6c 6f 73 65 |,0}.!nam|e{"Close|
|00000210| 43 6f 6e 73 6f 6c 65 22 | 2c 22 43 6f 6e 73 6f 6c |Console"|,"Consol|
|00000220| 65 23 22 7d 00 00 66 69 | 6e 69 74 3a 21 6e 75 6c |e#"}..fi|nit:!nul|
|00000230| 6c 73 75 62 7b 5f 63 6f | 64 65 66 69 6e 69 74 2c |lsub{_co|definit,|
|00000240| 30 2c 30 7d 00 00 5f 6c | 6f 61 64 3a 21 6e 75 6c |0,0}.._l|oad:!nul|
|00000250| 6c 73 75 62 7b 30 2c 30 | 2c 30 7d 00 5f 73 61 76 |lsub{0,0|,0}._sav|
|00000260| 65 3a 21 6e 75 6c 6c 73 | 75 62 7b 30 2c 30 2c 30 |e:!nulls|ub{0,0,0|
|00000270| 7d 00 5f 75 73 65 3a 21 | 6e 75 6c 6c 73 75 62 7b |}._use:!|nullsub{|
|00000280| 30 2c 30 2c 30 7d 00 5f | 66 72 65 65 3a 21 6e 75 |0,0,0}._|free:!nu|
|00000290| 6c 6c 73 75 62 7b 5f 63 | 6f 64 65 66 69 6e 69 74 |llsub{_c|odefinit|
|000002a0| 2c 30 2c 30 7d 00 00 21 | 6c 69 62 66 69 6e 7b 5f |,0,0}..!|libfin{_|
|000002b0| 74 6f 6b 65 2c 5f 6c 6f | 61 64 2c 5f 73 61 76 65 |toke,_lo|ad,_save|
|000002c0| 2c 5f 75 73 65 2c 5f 66 | 72 65 65 2c 35 2c 33 7d |,_use,_f|ree,5,3}|
|000002d0| 00 00 3b 21 6c 69 62 66 | 69 6e 7b 30 2c 30 2c 30 |..;!libf|in{0,0,0|
|000002e0| 2c 30 2c 30 2c 30 2c 30 | 7d 20 3b 64 6f 6e 27 74 |,0,0,0,0|} ;don't|
|000002f0| 20 63 68 61 6e 67 65 21 | 21 21 28 63 6c 75 64 67 | change!|!!(cludg|
|00000300| 65 64 29 00 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ed)..;--|--------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000340| 2d 2d 2d 2d 2d 2d 00 00 | 2e 5f 63 6f 64 65 66 69 |------..|._codefi|
|00000350| 6e 69 74 3a 00 20 20 80 | 7e 2e 6c 20 28 61 33 29 |nit:.  .|~.l (a3)|
|00000360| 2c 69 6f 72 65 71 00 20 | 20 80 7e 2e 6c 20 34 28 |,ioreq. | .~.l 4(|
|00000370| 61 33 29 2c 70 6f 72 74 | 00 20 20 80 7e 2e 6c 20 |a3),port|.  .~.l |
|00000380| 69 6f 72 65 71 2c 64 30 | 00 20 20 80 b0 2e 6c 20 |ioreq,d0|.  ...l |
|00000390| 64 30 00 20 20 80 48 20 | 6e 6f 70 6f 72 74 00 20 |d0.  .H |noport. |
|000003a0| 20 80 7e 2e 6c 20 34 2c | 61 36 00 20 20 80 7a 20 | .~.l 4,|a6.  .z |
|000003b0| 69 6f 72 65 71 28 70 63 | 29 2c 61 31 00 3b 20 20 |ioreq(pc|),a1.;  |
|000003c0| 4a 53 52 20 5f 41 62 6f | 72 74 49 4f 28 61 36 29 |JSR _Abo|rtIO(a6)|
|000003d0| 00 20 20 80 79 20 5f 43 | 6c 6f 73 65 44 65 76 69 |.  .y _C|loseDevi|
|000003e0| 63 65 28 61 36 29 00 20 | 20 80 7e 2e 6c 20 70 6f |ce(a6). | .~.l po|
|000003f0| 72 74 28 70 63 29 2c 61 | 30 00 20 20 80 79 20 2d |rt(pc),a|0.  .y -|
|00000400| 36 37 32 28 61 36 29 00 | 20 20 80 5b 2e 6c 20 69 |672(a6).|  .[.l i|
|00000410| 6f 72 65 71 00 20 20 80 | 5b 2e 6c 20 70 6f 72 74 |oreq.  .|[.l port|
|00000420| 00 20 20 80 5b 2e 6c 20 | 28 61 33 29 00 20 20 80 |.  .[.l |(a3).  .|
|00000430| 5b 2e 6c 20 34 28 61 33 | 29 00 6e 6f 70 6f 72 74 |[.l 4(a3|).noport|
|00000440| 3a 00 20 20 80 94 00 00 | 2e 5f 6f 70 65 6e 63 6f |:.  ....|._openco|
|00000450| 6e 3a 00 20 20 80 82 2e | 6c 20 64 30 2d 64 36 2f |n:.  ...|l d0-d6/|
|00000460| 61 30 2d 61 36 2c 2d 28 | 61 37 29 00 3b 20 20 4d |a0-a6,-(|a7).;  M|
|00000470| 4f 56 45 2e 6c 20 28 61 | 33 29 2c 69 6f 72 65 71 |OVE.l (a|3),ioreq|
|00000480| 00 20 20 80 79 20 5f 63 | 6f 64 65 66 69 6e 69 74 |.  .y _c|odefinit|
|00000490| 00 20 20 80 82 2e 6c 20 | 28 61 37 29 2b 2c 64 30 |.  ...l |(a7)+,d0|
|000004a0| 2d 64 36 2f 61 30 2d 61 | 36 00 20 20 80 7e 2e 6c |-d6/a0-a|6.  .~.l|
|000004b0| 20 28 61 30 29 2c 64 30 | 00 20 20 80 b0 2e 6c 20 | (a0),d0|.  ...l |
|000004c0| 64 30 00 20 20 80 48 20 | 6e 6f 77 69 6e 00 20 20 |d0.  .H |nowin.  |
|000004d0| 80 7e 2e 6c 20 64 30 2c | 61 32 00 20 20 80 7e 2e |.~.l d0,|a2.  .~.|
|000004e0| 6c 20 34 2c 61 36 00 20 | 20 80 79 20 2d 36 36 36 |l 4,a6. | .y -666|
|000004f0| 28 61 36 29 00 20 20 80 | 7e 2e 6c 20 64 30 2c 70 |(a6).  .|~.l d0,p|
|00000500| 6f 72 74 00 20 20 80 7e | 2e 6c 20 70 6f 72 74 28 |ort.  .~|.l port(|
|00000510| 70 63 29 2c 34 28 61 33 | 29 00 20 20 80 7e 2e 6c |pc),4(a3|).  .~.l|
|00000520| 20 70 6f 72 74 2c 61 30 | 00 20 20 80 7e 2e 6c 20 | port,a0|.  .~.l |
|00000530| 23 34 38 2c 64 30 00 20 | 20 80 79 20 2d 36 35 34 |#48,d0. | .y -654|
|00000540| 28 61 36 29 20 3b 5f 43 | 72 65 61 74 65 49 4f 52 |(a6) ;_C|reateIOR|
|00000550| 65 71 75 65 73 74 28 61 | 36 29 00 20 20 80 7e 2e |equest(a|6).  .~.|
|00000560| 6c 20 64 30 2c 69 6f 72 | 65 71 00 20 20 80 7e 2e |l d0,ior|eq.  .~.|
|00000570| 6c 20 69 6f 72 65 71 28 | 70 63 29 2c 28 61 33 29 |l ioreq(|pc),(a3)|
|00000580| 00 20 20 80 7a 20 69 6f | 72 65 71 28 70 63 29 2c |.  .z io|req(pc),|
|00000590| 61 31 00 20 20 80 7e 2e | 6c 20 61 32 2c 34 30 28 |a1.  .~.|l a2,40(|
|000005a0| 61 31 29 00 20 20 80 7e | 2e 6c 20 23 24 38 30 2c |a1).  .~|.l #$80,|
|000005b0| 33 36 28 61 31 29 00 20 | 20 80 7a 20 64 65 76 6e |36(a1). | .z devn|
|000005c0| 61 6d 65 28 70 63 29 2c | 61 30 00 20 20 80 7e 2e |ame(pc),|a0.  .~.|
|000005d0| 6c 20 23 30 2c 64 30 00 | 20 20 80 7e 2e 6c 20 23 |l #0,d0.|  .~.l #|
|000005e0| 30 2c 64 31 00 20 20 80 | 79 20 5f 4f 70 65 6e 44 |0,d1.  .|y _OpenD|
|000005f0| 65 76 69 63 65 28 61 36 | 29 00 6e 6f 77 69 6e 3a |evice(a6|).nowin:|
|00000600| 00 20 20 80 94 00 00 2e | 5f 77 72 69 74 65 32 3a |.  .....|_write2:|
|00000610| 00 20 20 80 7e 2e 6c 20 | 2d 28 61 32 29 2c 64 32 |.  .~.l |-(a2),d2|
|00000620| 00 20 20 80 7e 2e 6c 20 | 64 31 2c 61 30 00 20 20 |.  .~.l |d1,a0.  |
|00000630| 80 3d 2e 6c 20 64 32 2c | 61 30 00 20 20 80 7e 2e |.=.l d2,|a0.  .~.|
|00000640| 62 20 23 31 33 2c 28 61 | 30 29 2b 00 20 20 80 7e |b #13,(a|0)+.  .~|
|00000650| 2e 62 20 23 31 30 2c 28 | 61 30 29 2b 00 20 20 80 |.b #10,(|a0)+.  .|
|00000660| 3d 2e 6c 20 23 32 2c 64 | 32 00 20 20 80 7e 2e 6c |=.l #2,d|2.  .~.l|
|00000670| 20 64 32 2c 28 61 32 29 | 2b 00 2e 5f 77 72 69 74 | d2,(a2)|+.._writ|
|00000680| 65 3a 00 20 20 80 7e 2e | 6c 20 28 61 33 29 2c 69 |e:.  .~.|l (a3),i|
|00000690| 6f 72 65 71 00 20 20 80 | 7e 2e 6c 20 34 28 61 33 |oreq.  .|~.l 4(a3|
|000006a0| 29 2c 70 6f 72 74 00 20 | 20 80 7e 2e 6c 20 69 6f |),port. | .~.l io|
|000006b0| 72 65 71 2c 64 30 00 20 | 20 80 b0 2e 6c 20 64 30 |req,d0. | ...l d0|
|000006c0| 00 20 20 80 48 20 6e 6f | 70 6f 72 74 32 00 20 20 |.  .H no|port2.  |
|000006d0| 80 7e 2e 6c 20 34 2c 61 | 36 00 20 20 80 7a 20 69 |.~.l 4,a|6.  .z i|
|000006e0| 6f 72 65 71 28 70 63 29 | 2c 61 31 00 3b 20 20 4a |oreq(pc)|,a1.;  J|
|000006f0| 53 52 20 5f 41 62 6f 72 | 74 49 4f 28 61 36 29 00 |SR _Abor|tIO(a6).|
|00000700| 20 20 80 7e 2e 77 20 23 | 33 2c 32 38 28 61 31 29 |  .~.w #|3,28(a1)|
|00000710| 00 20 20 80 7e 2e 6c 20 | 64 31 2c 34 30 28 61 31 |.  .~.l |d1,40(a1|
|00000720| 29 00 20 20 80 7e 2e 6c | 20 2d 28 61 32 29 2c 33 |).  .~.l| -(a2),3|
|00000730| 36 28 61 31 29 00 20 20 | 80 79 20 5f 53 65 6e 64 |6(a1).  |.y _Send|
|00000740| 49 4f 28 61 36 29 00 6e | 6f 70 6f 72 74 32 3a 00 |IO(a6).n|oport2:.|
|00000750| 20 20 80 94 00 00 70 6f | 72 74 3a 20 80 28 2e 62 |  ....po|rt: .(.b|
|00000760| 20 33 34 2c 30 00 69 6f | 72 65 71 3a 20 20 80 28 | 34,0.io|req:  .(|
|00000770| 2e 62 20 20 34 38 2c 30 | 00 64 65 76 6e 61 6d 65 |.b  48,0|.devname|
|00000780| 3a 20 20 80 25 2e 62 20 | 20 22 63 6f 6e 73 6f 6c |:  .%.b | "consol|
|00000790| 65 2e 64 65 76 69 63 65 | 22 2c 30 00             |e.device|",0.    |
+--------+-------------------------+-------------------------+--------+--------+