/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug034.ark / G.SAM

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1a 80 2c 7b 05 00 06 ff | 63 79 2c 26 66 65 2c 78 |..,{....|cy,&fe,x|
|00000010| 2f 2f 25 64 74 2c 7a 2c | 26 66 65 2c 78 2f 2f 25 |//%dt,z,|&fe,x//%|
|00000020| 63 74 2c 78 2c 78 2f 25 | 73 64 75 2c 30 2f 25 69 |ct,x,x/%|sdu,0/%i|
|00000030| 67 2c 25 7a 2f 2c 2c 21 | 25 73 64 75 2c 25 7a 2f |g,%z/,,!|%sdu,%z/|
|00000040| 2f 2f 2f 25 62 66 2c 25 | 79 2f 2f 25 65 74 2c 47 |///%bf,%|y//%et,G|
|00000050| 2c 79 2c 7a 2f 25 25 69 | 67 2c 25 63 72 64 2c 78 |,y,z/%%i|g,%crd,x|
|00000060| 2f 2c 2c 21 25 78 2f 2f | 2c 21 25 65 00 00 c0 00 |/,,!%x//|,!%e....|
|00000070| 00 2f a0 00 a4 47 25 65 | 74 2c 00 00 a0 01 00 00 |./...G%e|t,......|
|00000080| c0 00 00 2f 00 00 a4 47 | 25 65 74 2c 68 65 6c 70 |.../...G|%et,help|
|00000090| 2f 25 65 78 2f 25 73 66 | 65 2c 73 61 6d 2f 25 64 |/%ex/%sf|e,sam/%d|
|000000a0| 74 2c 78 2c 26 71 63 73 | 2f 2f 25 70 74 2c 78 2c |t,x,&qcs|//%pt,x,|
|000000b0| 20 2f 25 64 74 2c 79 2c | 26 66 65 2c 78 2f 2f 25 | /%dt,y,|&fe,x//%|
|000000c0| 64 74 2c 7a 2c 26 66 65 | 2c 78 2f 2f 25 63 74 2c |dt,z,&fe|,x//%ct,|
|000000d0| 78 2c 78 2f 25 73 64 75 | 2c 30 2f 25 69 67 2c 25 |x,x/%sdu|,0/%ig,%|
|000000e0| 7a 2f 2c 2c 21 25 73 64 | 75 2c 25 7a 2f 2f 2f 2f |z/,,!%sd|u,%z////|
|000000f0| 25 62 66 2c 25 79 2f 2f | 25 65 74 2c 47 2c 79 2c |%bf,%y//|%et,G,y,|
|00000100| 7a 2f 25 25 69 67 2c 25 | 63 72 64 2c 78 2f 2c 2c |z/%%ig,%|crd,x/,,|
|00000110| 21 25 78 2f 2f 2c 21 25 | 65 74 2c 78 2f 25 41 2f |!%x//,!%|et,x/%A/|
|00000120| 2f 2f 2f 00 00 00 9b 01 | 08 04 d7 68 65 6c 70 22 |///.....|...help"|
|00000130| 53 2e 43 4f 4d 22 20 69 | 73 20 61 6e 20 65 78 61 |S.COM" i|s an exa|
|00000140| 6d 70 6c 65 20 6f 66 20 | 74 68 65 20 75 73 65 20 |mple of |the use |
|00000150| 6f 66 20 53 41 4d 37 36 | 20 69 6e 20 61 75 74 6f |of SAM76| in auto|
|00000160| 72 75 6e 0d 0a 6d 6f 64 | 65 20 6f 66 20 6f 70 65 |run..mod|e of ope|
|00000170| 72 61 74 69 6f 6e 2e 20 | 49 6e 20 65 66 66 65 63 |ration. |In effec|
|00000180| 74 20 22 53 2e 43 4f 4d | 22 20 69 73 20 6e 6f 74 |t "S.COM|" is not|
|00000190| 68 69 6e 67 0d 0a 6d 6f | 72 65 20 74 68 61 6e 20 |hing..mo|re than |
|000001a0| 28 69 6e 20 74 68 69 73 | 20 63 61 73 65 20 49 4c |(in this| case IL|
|000001b0| 52 41 57 20 70 72 69 6d | 65 64 20 77 69 74 68 20 |RAW prim|ed with |
|000001c0| 43 50 4d 53 45 54 4c 29 | 0d 0a 61 20 76 65 72 73 |CPMSETL)|..a vers|
|000001d0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 53 41 4d 37 36 |ion of t|he SAM76|
|000001e0| 20 69 6e 74 65 72 70 72 | 65 74 65 72 20 77 68 69 | interpr|eter whi|
|000001f0| 63 68 20 68 61 73 20 62 | 65 65 6e 0a 70 72 65 6c |ch has b|een.prel|
|00000200| 6f 61 64 65 64 20 70 72 | 69 6f 72 20 74 6f 20 73 |oaded pr|ior to s|
|00000210| 61 76 69 6e 67 20 77 69 | 74 68 20 61 20 73 63 72 |aving wi|th a scr|
|00000220| 69 70 74 20 77 72 69 74 | 74 65 6e 20 74 6f 0a 72 |ipt writ|ten to.r|
|00000230| 65 63 6f 67 6e 69 7a 65 | 20 61 20 63 6f 6d 6d 61 |ecognize| a comma|
|00000240| 6e 64 20 73 74 72 69 6e | 67 20 61 6e 64 20 61 63 |nd strin|g and ac|
|00000250| 74 20 6f 6e 20 69 74 2e | 0d 0a 0d 0a 50 72 6f 63 |t on it.|....Proc|
|00000260| 65 64 75 72 65 20 69 73 | 20 61 73 20 66 6f 6c 6c |edure is| as foll|
|00000270| 6f 77 73 3a 0d 0a 0d 0a | 31 2e 20 42 72 69 6e 67 |ows:....|1. Bring|
|00000280| 20 69 6e 20 61 20 63 6f | 70 79 20 6f 66 20 53 41 | in a co|py of SA|
|00000290| 4d 37 36 2c 20 65 69 74 | 68 65 72 20 74 68 72 6f |M76, eit|her thro|
|000002a0| 75 67 68 20 74 68 65 0d | 0a 73 65 71 75 65 6e 63 |ugh the.|.sequenc|
|000002b0| 65 20 5a 4c 52 41 57 2f | 49 4c 52 41 57 20 61 6e |e ZLRAW/|ILRAW an|
|000002c0| 64 20 43 50 4d 53 45 54 | 4c 2f 5a 41 50 53 45 54 |d CPMSET|L/ZAPSET|
|000002d0| 4c 20 6f 72 20 69 66 20 | 79 6f 75 0d 0a 70 72 65 |L or if |you..pre|
|000002e0| 66 65 72 20 6a 75 73 74 | 20 53 2e 0d 0a 0d 0a 32 |fer just| S.....2|
|000002f0| 2e 20 42 72 69 6e 67 20 | 74 68 65 20 66 69 6c 65 |. Bring |the file|
|00000300| 20 22 47 2e 53 41 4d 22 | 20 74 68 75 73 3a 0a 0a | "G.SAM"| thus:..|
|00000310| 25 62 66 2c 67 2e 73 61 | 6d 2f 3d 0a 0a 33 2e 20 |%bf,g.sa|m/=..3. |
|00000320| 45 78 61 6d 69 6e 65 20 | 74 68 65 20 74 65 78 74 |Examine |the text|
|00000330| 20 22 47 22 20 74 68 61 | 74 20 68 61 73 20 62 65 | "G" tha|t has be|
|00000340| 65 6e 20 62 72 6f 75 67 | 68 74 20 69 6e 0d 0a 61 |en broug|ht in..a|
|00000350| 6e 64 20 64 65 73 69 72 | 61 62 6c 79 20 61 6e 61 |nd desir|ably ana|
|00000360| 6c 79 7a 65 20 69 74 20 | 2d 20 75 73 65 20 25 76 |lyze it |- use %v|
|00000370| 74 2c 47 2f 3d 2e 0d 0a | 0d 0a 34 2e 20 45 78 65 |t,G/=...|..4. Exe|
|00000380| 63 75 74 65 20 47 20 74 | 68 75 73 3a 20 20 20 20 |cute G t|hus:    |
|00000390| 20 20 25 47 2f 3d 0a 0a | 35 2e 20 54 68 69 73 20 |  %G/=..|5. This |
|000003a0| 77 69 6c 6c 20 74 61 6b | 65 20 79 6f 75 20 62 61 |will tak|e you ba|
|000003b0| 6b 20 74 6f 20 74 68 65 | 20 6f 70 65 72 61 74 69 |k to the| operati|
|000003c0| 6e 67 20 73 79 73 74 65 | 6d 0d 0a 61 6e 64 20 6e |ng syste|m..and n|
|000003d0| 6f 77 20 73 61 76 65 20 | 74 68 65 20 66 69 6c 65 |ow save |the file|
|000003e0| 20 74 68 75 73 3a 20 20 | 53 41 56 45 20 36 33 20 | thus:  |SAVE 63 |
|000003f0| 78 78 78 2e 43 4f 4d 2e | 0d 0a 0d 0a 55 73 65 20 |xxx.COM.|....Use |
|00000400| 6f 66 20 78 78 78 2e 43 | 4f 4d 20 61 6c 6c 6f 77 |of xxx.C|OM allow|
|00000410| 73 20 79 6f 75 20 74 6f | 20 73 70 65 63 69 66 79 |s you to| specify|
|00000420| 20 61 20 63 6f 6d 6d 61 | 6e 64 20 73 74 72 69 6e | a comma|nd strin|
|00000430| 67 0d 0a 77 68 69 63 68 | 20 69 73 20 65 78 61 6d |g..which| is exam|
|00000440| 69 6e 65 64 20 62 79 20 | 22 47 22 20 69 6e 20 74 |ined by |"G" in t|
|00000450| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 6d 61 6e |he follo|wing man|
|00000460| 6e 65 72 3a 0d 0a 0d 0a | 78 78 78 20 79 79 79 20 |ner:....|xxx yyy |
|00000470| 64 72 69 76 65 0d 0a 0d | 0a 77 68 65 72 65 20 78 |drive...|.where x|
|00000480| 78 78 20 69 73 20 74 68 | 65 20 6e 61 6d 65 20 6f |xx is th|e name o|
|00000490| 66 20 74 68 65 20 66 69 | 6c 65 20 79 6f 75 20 73 |f the fi|le you s|
|000004a0| 61 76 65 64 2c 0d 0a 0d | 0a 61 6e 64 20 20 79 79 |aved,...|.and  yy|
|000004b0| 79 20 69 73 20 61 20 66 | 69 6c 65 20 28 79 79 79 |y is a f|ile (yyy|
|000004c0| 2e 73 61 6d 29 20 77 68 | 69 63 68 20 63 6f 6e 74 |.sam) wh|ich cont|
|000004d0| 61 69 6e 73 20 74 68 65 | 20 73 63 72 69 70 74 0d |ains the| script.|
|000004e0| 0a 79 6f 75 20 77 69 73 | 68 20 74 6f 20 69 6e 76 |.you wis|h to inv|
|000004f0| 6f 6b 65 2c 20 74 68 65 | 20 66 69 72 73 74 20 6f |oke, the| first o|
|00000500| 66 20 77 68 69 63 68 20 | 6d 75 73 74 20 62 65 20 |f which |must be |
|00000510| 6e 61 6d 65 64 0d 0a 75 | 70 70 65 72 20 63 61 73 |named..u|pper cas|
|00000520| 65 20 22 41 22 20 28 61 | 74 20 6c 65 61 73 74 20 |e "A" (a|t least |
|00000530| 61 73 20 6c 6f 6e 67 20 | 61 73 20 79 6f 75 20 64 |as long |as you d|
|00000540| 6f 20 6e 6f 74 20 63 68 | 61 6e 67 65 20 47 29 2e |o not ch|ange G).|
|00000550| 0d 0a 0d 0a 61 6e 64 20 | 64 72 69 76 65 20 69 73 |....and |drive is|
|00000560| 20 74 68 65 20 64 72 69 | 76 65 20 6e 75 6d 62 65 | the dri|ve numbe|
|00000570| 72 20 6f 6e 20 77 68 69 | 63 68 20 79 79 79 2e 73 |r on whi|ch yyy.s|
|00000580| 61 6d 20 65 78 69 73 74 | 73 2e 0d 0a 0d 0a 49 66 |am exist|s.....If|
|00000590| 20 79 6f 75 20 6f 6d 69 | 74 20 64 72 69 76 65 2c | you omi|t drive,|
|000005a0| 20 74 68 65 6e 20 64 72 | 69 76 65 20 30 20 69 73 | then dr|ive 0 is|
|000005b0| 20 61 73 73 75 6d 65 64 | 2c 20 69 66 20 79 6f 75 | assumed|, if you|
|000005c0| 20 6f 6d 69 74 0d 0a 79 | 79 79 20 74 68 65 6e 20 | omit..y|yy then |
|000005d0| 79 6f 75 20 77 69 6c 6c | 20 67 65 74 20 53 41 4d |you will| get SAM|
|000005e0| 37 36 20 69 6e 20 69 74 | 73 20 6e 6f 72 6d 61 6c |76 in it|s normal|
|000005f0| 20 66 6f 72 6d 2e 0d 0a | 0d 0a 00 00 04 cb 04 08 | form...|........|
+--------+-------------------------+-------------------------+--------+--------+