Size : 512 (Real : 512)
000000: 00 52 55 4E 54 49 4D 45 20 41 53 4D 00 00 00 5D  .RUNTIME ASM...]
000010: 02 03 04 05 06 07 08 09 0A 0B 0C 0D 00 00 00 00  ................
000020: 00 53 54 44 4C 49 42 20 20 41 53 4D 00 00 00 80  .STDLIB  ASM....
000030: 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D  ................
000040: 00 53 54 44 4C 49 42 20 20 41 53 4D 01 00 00 49  .STDLIB  ASM...I
000050: 1E 1F 20 21 22 23 24 25 26 27 00 00 00 00 00 00  .. !"#$%&'......
000060: 00 53 55 42 4D 49 54 20 20 43 20 20 00 00 00 34  .SUBMIT  C  ...4
000070: 28 29 2A 2B 2C 2D 2E 00 00 00 00 00 00 00 00 00  ()*+,-..........
000080: 00 46 55 4E 43 54 49 4F 4E 41 53 4D 00 00 00 18  .FUNCTIONASM....
000090: 2F 30 31 00 00 00 00 00 00 00 00 00 00 00 00 00  /01.............
0000A0: 00 46 55 4E 43 54 49 4F 4E 43 52 4C 00 00 00 06  .FUNCTIONCRL....
0000B0: 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  2...............
0000C0: 00 43 20 20 20 20 20 20 20 44 45 46 00 00 00 2F  .C       DEF.../
0000D0: 33 34 35 36 37 38 00 00 00 00 00 00 00 00 00 00  345678..........
0000E0: 00 43 20 20 20 20 20 20 20 53 55 42 00 00 00 02  .C       SUB....
0000F0: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  9...............
000100: 00 43 31 20 20 20 20 20 20 43 20 20 00 00 00 51  .C1      C  ...Q
000110: 3A 3B 3C 3D 3E 3F 40 41 42 43 44 00 00 00 00 00  :;<=>?@ABCD.....
000120: 00 43 32 20 20 20 20 20 20 43 20 20 00 00 00 62  .C2      C  ...b
000130: 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 00 00 00  EFGHIJKLMNOPQ...
000140: 00 43 34 20 20 20 20 20 20 43 20 20 00 00 00 2A  .C4      C  ...*
000150: 52 53 54 55 56 57 00 00 00 00 00 00 00 00 00 00  RSTUVW..........
000160: 00 43 35 20 20 20 20 20 20 43 20 20 00 00 00 37  .C5      C  ...7
000170: 58 59 5A 5B 5C 5D 5E 00 00 00 00 00 00 00 00 00  XYZ[\]^.........
000180: 00 43 36 20 20 20 20 20 20 43 20 20 00 00 00 1D  .C6      C  ....
000190: 5F 60 61 62 00 00 00 00 00 00 00 00 00 00 00 00  _`ab............
0001A0: 00 43 38 20 20 20 20 20 20 43 20 20 00 00 00 38  .C8      C  ...8
0001B0: 63 64 65 66 67 68 69 00 00 00 00 00 00 00 00 00  cdefghi.........
0001C0: 00 43 37 20 20 20 20 20 20 43 20 20 00 00 00 6A  .C7      C  ...j
0001D0: 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 00 00  jklmnopqrstuvw..
0001E0: 00 43 39 20 20 20 20 20 20 43 20 20 00 00 00 1A  .C9      C  ....
0001F0: 78 79 7A 7B 00 00 00 00 00 00 00 00 00 00 00 00  xyz{............

Size : 512 (Real : 512)
000000: 6D 09 0D 0A 09 6A 6D 70 09 40 73 78 74 0D 0A 3B  m....jmp.@sxt..;
000010: 0D 0A 3B 09 66 65 74 63 68 20 61 20 73 69 6E 67  ..;.fetch a sing
000020: 6C 65 20 62 79 74 65 20 66 72 6F 6D 20 73 74 61  le byte from sta
000030: 63 6B 20 70 6C 75 73 20 61 20 32 20 62 79 74 65  ck plus a 2 byte
000040: 20 6F 66 66 73 65 74 0D 0A 3B 09 61 6E 64 20 73   offset..;.and s
000050: 69 67 6E 20 65 78 74 65 6E 64 20 62 79 74 65 20  ign extend byte 
000060: 69 6E 74 6F 20 68 6C 0D 0A 3B 0D 0A 40 67 63 68  into hl..;..@gch
000070: 61 72 73 6C 3A 63 73 65 63 74 0D 0A 09 70 6F 70  arsl:csect...pop
000080: 09 62 0D 0A 09 6C 64 61 78 09 62 0D 0A 09 6D 6F  .b...ldax.b...mo
000090: 76 09 6C 2C 61 09 0D 0A 09 69 6E 78 09 62 09 0D  v.l,a....inx.b..
0000A0: 0A 09 6C 64 61 78 09 62 09 0D 0A 09 6D 6F 76 09  ..ldax.b....mov.
0000B0: 68 2C 61 09 0D 0A 09 69 6E 78 09 68 09 0D 0A 09  h,a....inx.h....
0000C0: 64 61 64 09 73 70 09 0D 0A 09 70 75 73 68 09 62  dad.sp....push.b
0000D0: 09 0D 0A 09 6D 6F 76 09 61 2C 6D 09 0D 0A 09 6A  ....mov.a,m....j
0000E0: 6D 70 09 40 73 78 74 09 0D 0A 3B 0D 0A 3B 09 66  mp.@sxt...;..;.f
0000F0: 65 74 63 68 20 61 20 73 69 6E 67 6C 65 20 62 79  etch a single by
000100: 74 65 20 66 72 6F 6D 20 61 64 64 72 65 73 73 20  te from address 
000110: 69 6E 20 68 6C 20 61 6E 64 0D 0A 3B 09 73 69 67  in hl and..;.sig
000120: 6E 20 65 78 74 65 6E 64 20 69 6E 74 6F 20 68 6C  n extend into hl
000130: 0D 0A 3B 0D 0A 40 67 63 68 61 72 3A 20 63 73 65  ..;..@gchar: cse
000140: 63 74 0D 0A 09 6D 6F 76 09 61 2C 6D 0D 0A 09 6A  ct...mov.a,m...j
000150: 6D 70 09 40 73 78 74 0D 0A 3B 0D 0A 3B 09 70 75  mp.@sxt..;..;.pu
000160: 74 20 74 68 65 20 61 63 63 75 6D 20 69 6E 74 6F  t the accum into
000170: 20 68 6C 20 61 6E 64 20 73 69 67 6E 20 65 78 74   hl and sign ext
000180: 65 6E 64 20 74 68 72 6F 75 67 68 20 68 0D 0A 3B  end through h..;
000190: 0D 0A 40 73 78 74 3A 09 63 73 65 63 74 0D 0A 09  ..@sxt:.csect...
0001A0: 6D 6F 76 09 6C 2C 61 0D 0A 09 72 6C 63 0D 0A 09  mov.l,a...rlc...
0001B0: 73 62 62 09 61 0D 0A 09 6D 6F 76 09 68 2C 61 0D  sbb.a...mov.h,a.
0001C0: 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 66 65 74 63  ..ret..;..;.fetc
0001D0: 68 20 61 20 66 75 6C 6C 20 31 36 2D 62 69 74 20  h a full 16-bit 
0001E0: 69 6E 74 65 67 65 72 20 66 72 6F 6D 20 6F 66 66  integer from off
0001F0: 73 65 74 20 70 6C 75 73 20 73 74 61 63 6B 20 70  set plus stack p

Size : 512 (Real : 512)
000000: 00 43 4C 20 20 20 20 20 20 53 55 42 00 00 00 01  .CL      SUB....
000010: 7C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  |...............
000020: 00 43 33 20 20 20 20 20 20 43 20 20 00 00 00 25  .C3      C  ...%
000030: 7D 7E 7F 80 81 00 00 00 00 00 00 00 00 00 00 00  }~..............
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 6F 69 6E 74 65 72 0D 0A 3B 09 69 6E 74 6F 20 68  ointer..;.into h
000010: 6C 0D 0A 3B 0D 0A 40 67 69 6E 74 73 73 3A 63 73  l..;..@gintss:cs
000020: 65 63 74 0D 0A 09 70 6F 70 09 62 09 0D 0A 09 6C  ect...pop.b....l
000030: 64 61 78 09 62 09 0D 0A 09 6D 6F 76 09 6C 2C 61  dax.b....mov.l,a
000040: 09 0D 0A 09 6D 76 69 09 68 2C 30 09 0D 0A 09 69  ....mvi.h,0....i
000050: 6E 78 09 62 09 0D 0A 09 64 61 64 09 73 70 09 0D  nx.b....dad.sp..
000060: 0A 09 70 75 73 68 09 62 09 0D 0A 09 6D 6F 76 09  ..push.b....mov.
000070: 61 2C 6D 09 0D 0A 09 69 6E 78 09 68 09 0D 0A 09  a,m....inx.h....
000080: 6D 6F 76 09 68 2C 6D 09 0D 0A 09 6D 6F 76 09 6C  mov.h,m....mov.l
000090: 2C 61 09 0D 0A 09 72 65 74 09 09 0D 0A 3B 0D 0A  ,a....ret....;..
0000A0: 3B 09 66 65 74 63 68 20 61 20 31 36 2D 62 69 74  ;.fetch a 16-bit
0000B0: 20 69 6E 74 65 67 65 72 20 66 72 6F 6D 20 73 74   integer from st
0000C0: 61 63 6B 20 70 6F 69 6E 74 65 72 20 70 6C 75 73  ack pointer plus
0000D0: 0D 0A 3B 09 61 20 31 36 20 62 69 74 20 6F 66 66  ..;.a 16 bit off
0000E0: 73 65 74 20 61 6E 64 20 70 75 74 20 76 61 6C 75  set and put valu
0000F0: 65 20 69 6E 20 68 6C 0D 0A 3B 0D 0A 40 67 69 6E  e in hl..;..@gin
000100: 74 73 6C 3A 63 73 65 63 74 0D 0A 09 70 6F 70 09  tsl:csect...pop.
000110: 62 0D 0A 09 6C 64 61 78 09 62 0D 0A 09 6D 6F 76  b...ldax.b...mov
000120: 09 6C 2C 61 0D 0A 09 69 6E 78 09 62 0D 0A 09 6C  .l,a...inx.b...l
000130: 64 61 78 09 62 0D 0A 09 6D 6F 76 09 68 2C 61 0D  dax.b...mov.h,a.
000140: 0A 09 69 6E 78 09 62 0D 0A 09 64 61 64 09 73 70  ..inx.b...dad.sp
000150: 0D 0A 09 70 75 73 68 09 62 0D 0A 09 6D 6F 76 09  ...push.b...mov.
000160: 61 2C 6D 0D 0A 09 69 6E 78 09 68 0D 0A 09 6D 6F  a,m...inx.h...mo
000170: 76 09 68 2C 6D 0D 0A 09 6D 6F 76 09 6C 2C 61 0D  v.h,m...mov.l,a.
000180: 0A 09 72 65 74 09 09 0D 0A 3B 0D 0A 3B 09 66 65  ..ret....;..;.fe
000190: 74 63 68 20 61 20 66 75 6C 6C 20 31 36 2D 62 69  tch a full 16-bi
0001A0: 74 20 69 6E 74 65 67 65 72 20 66 72 6F 6D 20 74  t integer from t
0001B0: 68 65 20 61 64 64 72 65 73 73 20 69 6E 20 68 6C  he address in hl
0001C0: 0D 0A 3B 09 69 6E 74 6F 20 68 6C 0D 0A 3B 0D 0A  ..;.into hl..;..
0001D0: 40 67 69 6E 74 3A 09 63 73 65 63 74 0D 0A 09 6D  @gint:.csect...m
0001E0: 6F 76 09 61 2C 6D 0D 0A 09 69 6E 78 09 68 0D 0A  ov.a,m...inx.h..
0001F0: 09 6D 6F 76 09 68 2C 6D 0D 0A 09 6D 6F 76 09 6C  .mov.h,m...mov.l

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 2C 61 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 73  ,a...ret..;..;.s
000010: 74 6F 72 65 20 61 20 62 79 74 65 20 73 74 61 63  tore a byte stac
000020: 6B 20 70 6C 75 73 20 38 20 62 79 74 65 20 6F 66  k plus 8 byte of
000030: 66 73 65 74 0D 0A 3B 0D 0A 40 70 63 68 61 72 73  fset..;..@pchars
000040: 73 3A 63 73 65 63 74 0D 0A 09 78 63 68 67 09 0D  s:csect...xchg..
000050: 0A 09 70 6F 70 09 62 0D 0A 09 6C 64 61 78 09 62  ..pop.b...ldax.b
000060: 0D 0A 09 6D 6F 76 09 6C 2C 61 0D 0A 09 6D 76 69  ...mov.l,a...mvi
000070: 09 68 2C 30 0D 0A 09 69 6E 78 09 62 0D 0A 09 64  .h,0...inx.b...d
000080: 61 64 09 73 70 0D 0A 09 6D 6F 76 09 6D 2C 65 0D  ad.sp...mov.m,e.
000090: 0A 09 78 63 68 67 0D 0A 09 70 75 73 68 09 62 0D  ..xchg...push.b.
0000A0: 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 73 74 6F 72  ..ret..;..;.stor
0000B0: 65 20 61 20 62 79 74 65 20 61 74 20 73 74 61 63  e a byte at stac
0000C0: 6B 20 70 6C 75 73 20 6F 66 66 73 65 74 0D 0A 3B  k plus offset..;
0000D0: 0D 0A 40 70 63 68 61 72 73 6C 3A 63 73 65 63 74  ..@pcharsl:csect
0000E0: 0D 0A 09 78 63 68 67 0D 0A 09 70 6F 70 09 62 0D  ...xchg...pop.b.
0000F0: 0A 09 6C 64 61 78 09 62 0D 0A 09 6D 6F 76 09 6C  ..ldax.b...mov.l
000100: 2C 61 0D 0A 09 69 6E 78 09 62 0D 0A 09 6C 64 61  ,a...inx.b...lda
000110: 78 09 62 0D 0A 09 6D 6F 76 09 68 2C 61 0D 0A 09  x.b...mov.h,a...
000120: 69 6E 78 09 62 0D 0A 09 64 61 64 09 73 70 0D 0A  inx.b...dad.sp..
000130: 09 6D 6F 76 09 6D 2C 65 09 09 0D 0A 09 78 63 68  .mov.m,e.....xch
000140: 67 0D 0A 09 70 75 73 68 09 62 0D 0A 09 72 65 74  g...push.b...ret
000150: 0D 0A 3B 0D 0A 3B 09 73 74 6F 72 65 20 31 36 2D  ..;..;.store 16-
000160: 62 69 74 20 69 6E 74 65 67 65 72 20 61 74 20 6F  bit integer at o
000170: 66 66 73 65 74 20 70 6C 75 73 20 73 74 61 63 6B  ffset plus stack
000180: 20 0D 0A 3B 0D 0A 40 70 69 6E 74 73 73 3A 63 73   ..;..@pintss:cs
000190: 65 63 74 0D 0A 09 78 63 68 67 0D 0A 09 70 6F 70  ect...xchg...pop
0001A0: 09 62 0D 0A 09 6C 64 61 78 09 62 0D 0A 09 6D 6F  .b...ldax.b...mo
0001B0: 76 09 6C 2C 61 0D 0A 09 6D 76 69 09 68 2C 30 0D  v.l,a...mvi.h,0.
0001C0: 0A 09 69 6E 78 09 62 0D 0A 09 64 61 64 09 73 70  ..inx.b...dad.sp
0001D0: 0D 0A 09 6D 6F 76 09 6D 2C 65 0D 0A 09 69 6E 78  ...mov.m,e...inx
0001E0: 09 68 0D 0A 09 6D 6F 76 09 6D 2C 64 0D 0A 09 78  .h...mov.m,d...x
0001F0: 63 68 67 0D 0A 09 70 75 73 68 09 62 0D 0A 09 72  chg...push.b...r

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 65 74 0D 0A 3B 0D 0A 3B 09 73 74 6F 72 65 20 61  et..;..;.store a
000010: 20 31 36 20 62 69 74 20 69 6E 74 65 67 65 72 20   16 bit integer 
000020: 69 6E 20 68 6C 20 61 74 20 73 74 61 63 6B 20 70  in hl at stack p
000030: 6C 75 73 20 6F 66 66 73 65 74 0D 0A 3B 0D 0A 40  lus offset..;..@
000040: 70 69 6E 74 73 6C 3A 63 73 65 63 74 0D 0A 09 78  pintsl:csect...x
000050: 63 68 67 0D 0A 09 70 6F 70 09 62 0D 0A 09 6C 64  chg...pop.b...ld
000060: 61 78 09 62 0D 0A 09 6D 6F 76 09 6C 2C 61 0D 0A  ax.b...mov.l,a..
000070: 09 69 6E 78 09 62 0D 0A 09 6C 64 61 78 09 62 0D  .inx.b...ldax.b.
000080: 0A 09 6D 6F 76 09 68 2C 61 0D 0A 09 69 6E 78 09  ..mov.h,a...inx.
000090: 62 0D 0A 09 64 61 64 09 73 70 0D 0A 09 6D 6F 76  b...dad.sp...mov
0000A0: 09 6D 2C 65 0D 0A 09 69 6E 78 09 68 0D 0A 09 6D  .m,e...inx.h...m
0000B0: 6F 76 09 6D 2C 64 0D 0A 09 70 75 73 68 09 62 0D  ov.m,d...push.b.
0000C0: 0A 09 78 63 68 67 0D 0A 09 72 65 74 0D 0A 3B 0D  ..xchg...ret..;.
0000D0: 0A 3B 09 73 74 6F 72 65 20 61 20 31 36 2D 62 69  .;.store a 16-bi
0000E0: 74 20 69 6E 74 65 67 65 72 20 69 6E 20 68 6C 20  t integer in hl 
0000F0: 61 74 20 74 68 65 20 61 64 64 72 65 73 73 20 69  at the address i
000100: 6E 20 64 65 0D 0A 3B 0D 0A 40 70 69 6E 74 3A 09  n de..;..@pint:.
000110: 63 73 65 63 74 0D 0A 09 6D 6F 76 09 61 2C 6C 0D  csect...mov.a,l.
000120: 0A 09 73 74 61 78 09 64 0D 0A 09 69 6E 78 09 64  ..stax.d...inx.d
000130: 0D 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09 73 74 61  ...mov.a,h...sta
000140: 78 09 64 0D 0A 09 72 65 74 0D 0A 09 70 61 67 65  x.d...ret...page
000150: 0D 0A 40 69 6E 63 64 65 63 3A 63 73 65 63 74 0D  ..@incdec:csect.
000160: 0A 3B 0D 0A 3B 09 74 61 6B 65 20 74 68 65 20 61  .;..;.take the a
000170: 64 64 72 65 73 73 20 69 6E 20 68 6C 20 61 6E 64  ddress in hl and
000180: 20 61 64 64 20 76 61 6C 75 65 20 74 68 61 74 20   add value that 
000190: 66 6F 6C 6C 6F 77 20 61 6E 64 20 73 61 76 65 20  follow and save 
0001A0: 62 61 63 6B 0D 0A 3B 09 61 64 64 72 65 73 73 20  back..;.address 
0001B0: 69 6E 20 68 6C 0D 0A 3B 0D 0A 40 70 72 65 69 6E  in hl..;..@prein
0001C0: 63 3A 0D 0A 09 63 61 6C 6C 09 40 69 6E 63 64 65  c:...call.@incde
0001D0: 63 6C 0D 0A 09 63 61 6C 6C 09 40 69 6E 63 0D 0A  cl...call.@inc..
0001E0: 09 6E 6F 70 0D 0A 09 72 65 74 09 0D 0A 3B 0D 0A  .nop...ret...;..
0001F0: 3B 09 74 61 6B 65 20 74 68 65 20 61 64 64 72 65  ;.take the addre

Size : 512 (Real : 512)
000000: 09 74 69 74 6C 65 09 72 75 6E 74 69 6D 65 20 70  .title.runtime p
000010: 61 63 6B 61 67 65 20 66 6F 72 20 73 6D 61 6C 6C  ackage for small
000020: 20 22 43 22 0D 0A 0D 0A 72 61 6D 09 65 71 75 09   "C"....ram.equ.
000030: 30 09 09 3B 73 74 61 72 74 20 6F 66 20 72 61 6D  0..;start of ram
000040: 20 69 6E 20 73 79 73 74 65 6D 0D 0A 09 65 78 74   in system...ext
000050: 72 6E 09 6D 61 69 6E 0D 0A 0D 0A 3B 2A 2A 2A 2A  rn.main....;****
000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000090: 2A 2A 2A 2A 0D 0A 3B 09 09 09 09 09 09 09 2A 0D  ****..;.......*.
0000A0: 0A 3B 09 72 75 6E 20 74 69 6D 65 20 6C 69 62 72  .;.run time libr
0000B0: 61 79 20 66 6F 72 20 73 6D 61 6C 6C 20 63 20 63  ay for small c c
0000C0: 6F 6D 70 69 6C 65 72 09 09 2A 0D 0A 3B 09 09 09  ompiler..*..;...
0000D0: 09 09 09 09 2A 0D 0A 3B 09 09 62 79 20 52 6F 6E  ....*..;..by Ron
0000E0: 20 43 61 69 6E 09 09 09 09 2A 0D 0A 3B 09 09 09   Cain....*..;...
0000F0: 09 09 09 09 2A 0D 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A  ....*..;********
000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000130: 0D 0A 3B 0D 0A 3B 09 66 65 74 63 68 20 61 20 73  ..;..;.fetch a s
000140: 69 6E 67 6C 65 20 62 79 74 65 20 66 72 6F 6D 20  ingle byte from 
000150: 73 74 61 63 6B 20 70 6F 69 6E 74 65 72 20 70 6C  stack pointer pl
000160: 75 73 0D 0A 3B 09 6F 66 66 73 65 74 20 6F 66 20  us..;.offset of 
000170: 62 79 74 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 63  byte following c
000180: 61 6C 6C 20 61 6E 64 20 73 69 67 6E 20 65 78 74  all and sign ext
000190: 65 6E 64 0D 0A 3B 09 69 6E 74 6F 20 68 6C 0D 0A  end..;.into hl..
0001A0: 3B 0D 0A 40 67 63 68 61 72 73 73 3A 63 73 65 63  ;..@gcharss:csec
0001B0: 74 0D 0A 09 70 6F 70 09 62 09 0D 0A 09 6C 64 61  t...pop.b....lda
0001C0: 78 09 62 09 0D 0A 09 6D 6F 76 09 6C 2C 61 09 0D  x.b....mov.l,a..
0001D0: 0A 09 69 6E 78 09 62 09 0D 0A 09 6D 76 69 09 68  ..inx.b....mvi.h
0001E0: 2C 30 09 0D 0A 09 64 61 64 09 73 70 09 0D 0A 09  ,0....dad.sp....
0001F0: 70 75 73 68 09 62 09 0D 0A 09 6D 6F 76 09 61 2C  push.b....mov.a,

Size : 512 (Real : 512)
000000: 73 73 20 69 6E 20 68 6C 20 61 6E 64 20 73 75 62  ss in hl and sub
000010: 20 76 61 6C 75 65 20 74 68 61 74 20 66 6F 6C 6C   value that foll
000020: 6F 77 20 61 6E 64 0D 0A 3B 09 73 61 76 65 20 69  ow and..;.save i
000030: 74 20 62 61 63 6B 20 69 6E 20 70 6C 61 63 65 0D  t back in place.
000040: 0A 3B 0D 0A 40 70 72 65 64 65 63 3A 0D 0A 09 63  .;..@predec:...c
000050: 61 6C 6C 09 40 69 6E 63 64 65 63 6C 0D 0A 09 63  all.@incdecl...c
000060: 61 6C 6C 09 40 64 65 63 0D 0A 09 6E 6F 70 0D 0A  all.@dec...nop..
000070: 09 72 65 74 0D 0A 3B 0D 0A 3B 09 74 61 6B 65 20  .ret..;..;.take 
000080: 74 68 65 20 61 64 64 72 65 73 73 20 69 6E 20 68  the address in h
000090: 6C 20 61 6E 64 20 73 75 62 20 76 61 6C 75 65 20  l and sub value 
0000A0: 74 68 61 74 20 66 6F 6C 6C 6F 77 20 61 6E 64 20  that follow and 
0000B0: 73 61 76 65 0D 0A 3B 09 62 61 63 6B 20 69 6E 20  save..;.back in 
0000C0: 61 64 64 72 65 73 73 20 69 6E 20 68 6C 20 61 6E  address in hl an
0000D0: 64 20 72 65 73 74 6F 72 65 20 76 61 6C 75 65 20  d restore value 
0000E0: 74 6F 20 70 72 65 20 69 6E 63 0D 0A 3B 0D 0A 40  to pre inc..;..@
0000F0: 70 6F 73 74 69 6E 63 3A 0D 0A 09 63 61 6C 6C 09  postinc:...call.
000100: 40 69 6E 63 64 65 63 6C 0D 0A 09 70 75 73 68 09  @incdecl...push.
000110: 64 0D 0A 09 63 61 6C 6C 09 40 69 6E 63 0D 0A 09  d...call.@inc...
000120: 70 6F 70 09 68 0D 0A 09 6E 6F 70 0D 0A 09 72 65  pop.h...nop...re
000130: 74 0D 0A 3B 0D 0A 3B 09 74 61 6B 65 20 74 68 65  t..;..;.take the
000140: 20 61 64 64 72 65 73 73 20 69 6E 20 68 6C 20 61   address in hl a
000150: 6E 64 20 61 64 64 20 76 61 6C 75 65 20 74 68 61  nd add value tha
000160: 74 20 66 6F 6C 6C 6F 77 20 61 6E 64 0D 0A 3B 09  t follow and..;.
000170: 73 61 76 65 20 62 61 63 6B 20 69 6E 20 61 64 64  save back in add
000180: 72 65 73 73 20 69 6E 20 68 6C 20 72 65 73 74 6F  ress in hl resto
000190: 72 65 20 76 61 6C 75 65 20 70 72 65 20 64 65 63  re value pre dec
0001A0: 0D 0A 3B 0D 0A 40 70 6F 73 74 64 65 63 3A 0D 0A  ..;..@postdec:..
0001B0: 09 63 61 6C 6C 09 40 69 6E 63 64 65 63 6C 0D 0A  .call.@incdecl..
0001C0: 09 70 75 73 68 09 64 0D 0A 09 63 61 6C 6C 09 40  .push.d...call.@
0001D0: 64 65 63 0D 0A 09 70 6F 70 09 68 0D 0A 09 6E 6F  dec...pop.h...no
0001E0: 70 0D 0A 09 72 65 74 09 0D 0A 3B 0D 0A 3B 09 6C  p...ret...;..;.l
0001F0: 6F 61 64 20 6E 65 65 64 65 64 20 76 61 6C 75 74  oad needed valut

Size : 512 (Real : 512)
000000: 69 09 62 2C 40 63 6F 6D 70 72 65 74 0D 0A 09 70  i.b,@compret...p
000010: 75 73 68 09 62 0D 0A 09 63 61 6C 6C 09 40 63 6D  ush.b...call.@cm
000020: 70 0D 0A 09 72 7A 0D 0A 09 72 6E 63 0D 0A 09 64  p...rz...rnc...d
000030: 63 78 09 68 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B  cx.h...ret..;..;
000040: 09 74 65 73 74 20 69 66 20 64 65 20 6C 65 73 73  .test if de less
000050: 20 74 68 61 6E 20 6F 72 20 65 71 75 61 6C 20 74   than or equal t
000060: 6F 20 68 6C 20 28 73 69 67 6E 65 64 29 0D 0A 3B  o hl (signed)..;
000070: 0D 0A 40 6C 65 3A 0D 0A 09 70 6F 70 09 62 0D 0A  ..@le:...pop.b..
000080: 09 70 6F 70 09 64 0D 0A 09 70 75 73 68 09 62 0D  .pop.d...push.b.
000090: 0A 09 6C 78 69 09 62 2C 40 63 6F 6D 70 72 65 74  ..lxi.b,@compret
0000A0: 0D 0A 09 70 75 73 68 09 62 0D 0A 09 63 61 6C 6C  ...push.b...call
0000B0: 09 40 63 6D 70 0D 0A 09 72 7A 0D 0A 09 72 63 0D  .@cmp...rz...rc.
0000C0: 0A 09 64 63 78 09 68 0D 0A 09 72 65 74 0D 0A 09  ..dcx.h...ret...
0000D0: 70 61 67 65 0D 0A 3B 0D 0A 3B 09 74 65 73 74 20  page..;..;.test 
0000E0: 69 66 20 64 65 20 67 72 65 61 74 65 72 20 74 68  if de greater th
0000F0: 61 6E 20 68 6C 20 28 75 6E 73 69 67 6E 65 64 29  an hl (unsigned)
000100: 0D 0A 3B 0D 0A 40 75 67 74 3A 0D 0A 09 70 6F 70  ..;..@ugt:...pop
000110: 09 62 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73  .b...pop.d...pus
000120: 68 09 62 0D 0A 09 6C 78 69 09 62 2C 40 63 6F 6D  h.b...lxi.b,@com
000130: 70 72 65 74 0D 0A 09 70 75 73 68 09 62 0D 0A 09  pret...push.b...
000140: 78 63 68 67 0D 0A 09 63 61 6C 6C 09 40 75 63 6D  xchg...call.@ucm
000150: 70 0D 0A 09 72 63 0D 0A 09 64 63 78 09 68 0D 0A  p...rc...dcx.h..
000160: 09 72 65 74 0D 0A 3B 0D 0A 3B 09 74 65 73 74 20  .ret..;..;.test 
000170: 69 66 20 64 65 20 6C 65 73 73 20 74 68 61 6E 20  if de less than 
000180: 68 6C 28 75 6E 73 69 67 6E 65 64 29 0D 0A 3B 0D  hl(unsigned)..;.
000190: 0A 40 75 6C 74 3A 0D 0A 09 70 6F 70 09 62 0D 0A  .@ult:...pop.b..
0001A0: 09 70 6F 70 09 64 0D 0A 09 70 75 73 68 09 62 0D  .pop.d...push.b.
0001B0: 0A 09 6C 78 69 09 62 2C 40 63 6F 6D 70 72 65 74  ..lxi.b,@compret
0001C0: 0D 0A 09 70 75 73 68 09 62 0D 0A 09 63 61 6C 6C  ...push.b...call
0001D0: 09 40 75 63 6D 70 0D 0A 09 72 63 0D 0A 09 64 63  .@ucmp...rc...dc
0001E0: 78 09 68 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09  x.h...ret..;..;.
0001F0: 74 65 73 74 20 69 66 20 64 65 20 67 72 65 61 74  test if de great

Size : 512 (Real : 512)
000000: 20 66 6F 72 20 69 6E 63 20 61 6E 64 20 64 65 63   for inc and dec
000010: 20 0D 0A 3B 0D 0A 40 69 6E 63 64 65 63 6C 3A 0D   ..;..@incdecl:.
000020: 0A 09 70 6F 70 09 64 0D 0A 09 70 6F 70 09 62 0D  ..pop.d...pop.b.
000030: 0A 09 6C 64 61 78 09 62 0D 0A 09 69 6E 78 09 62  ..ldax.b...inx.b
000040: 0D 0A 09 70 75 73 68 09 62 0D 0A 09 70 75 73 68  ...push.b...push
000050: 09 64 0D 0A 09 64 63 78 09 62 0D 0A 09 6F 72 61  .d...dcx.b...ora
000060: 09 61 0D 0A 09 6A 70 09 40 69 6E 63 64 65 63 31  .a...jp.@incdec1
000070: 0D 0A 09 6D 6F 76 09 65 2C 6D 0D 0A 09 69 6E 78  ...mov.e,m...inx
000080: 09 68 0D 0A 09 6D 6F 76 09 64 2C 6D 0D 0A 09 72  .h...mov.d,m...r
000090: 65 74 0D 0A 40 69 6E 63 64 65 63 31 3A 0D 0A 09  et..@incdec1:...
0000A0: 6D 6F 76 09 65 2C 6D 0D 0A 09 6D 6F 76 09 61 2C  mov.e,m...mov.a,
0000B0: 65 0D 0A 09 72 6C 63 0D 0A 09 73 62 62 09 61 0D  e...rlc...sbb.a.
0000C0: 0A 09 6D 6F 76 09 64 2C 61 0D 0A 09 72 65 74 0D  ..mov.d,a...ret.
0000D0: 0A 3B 0D 0A 3B 09 61 64 64 20 76 61 6C 75 65 20  .;..;.add value 
0000E0: 69 6E 20 61 20 74 6F 20 64 65 20 61 6E 64 20 73  in a to de and s
0000F0: 61 76 65 20 61 74 20 61 64 64 72 65 73 73 20 69  ave at address i
000100: 6E 20 68 6C 0D 0A 3B 0D 0A 40 69 6E 63 3A 0D 0A  n hl..;..@inc:..
000110: 09 61 6E 69 09 30 37 66 68 0D 0A 09 61 64 64 09  .ani.07fh...add.
000120: 65 0D 0A 09 6D 6F 76 09 65 2C 61 0D 0A 09 6D 6F  e...mov.e,a...mo
000130: 76 09 61 2C 64 0D 0A 09 61 63 69 09 30 0D 0A 09  v.a,d...aci.0...
000140: 6D 6F 76 09 64 2C 61 0D 0A 09 6A 6D 70 09 40 69  mov.d,a...jmp.@i
000150: 6E 63 64 65 63 73 0D 0A 3B 0D 0A 3B 09 73 75 62  ncdecs..;..;.sub
000160: 74 72 61 63 74 20 76 61 6C 75 65 20 69 6E 20 61  tract value in a
000170: 20 74 6F 20 64 65 20 61 6E 64 20 73 61 76 65 20   to de and save 
000180: 61 74 20 61 64 64 72 65 73 73 20 69 6E 20 68 6C  at address in hl
000190: 0D 0A 3B 0D 0A 40 64 65 63 3A 0D 0A 09 61 6E 69  ..;..@dec:...ani
0001A0: 09 30 37 66 68 0D 0A 09 63 6D 61 0D 0A 09 69 6E  .07fh...cma...in
0001B0: 72 09 61 0D 0A 09 61 64 64 09 65 0D 0A 09 6D 6F  r.a...add.e...mo
0001C0: 76 09 65 2C 61 0D 0A 09 6D 6F 76 09 61 2C 64 0D  v.e,a...mov.a,d.
0001D0: 0A 09 61 63 69 09 30 66 66 68 0D 0A 09 6D 6F 76  ..aci.0ffh...mov
0001E0: 09 64 2C 61 0D 0A 09 6A 6D 70 09 40 69 6E 63 64  .d,a...jmp.@incd
0001F0: 65 63 73 20 0D 0A 3B 0D 0A 3B 09 73 74 6F 72 65  ecs ..;..;.store

Size : 512 (Real : 512)
000000: 65 72 20 74 68 61 6E 20 6F 72 20 65 71 75 61 6C  er than or equal
000010: 20 74 6F 20 68 6C 20 28 75 6E 73 69 67 6E 65 64   to hl (unsigned
000020: 29 0D 0A 3B 0D 0A 40 75 67 65 3A 0D 0A 09 70 6F  )..;..@uge:...po
000030: 70 09 62 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75  p.b...pop.d...pu
000040: 73 68 09 62 0D 0A 09 6C 78 69 09 62 2C 40 63 6F  sh.b...lxi.b,@co
000050: 6D 70 72 65 74 0D 0A 09 70 75 73 68 09 62 0D 0A  mpret...push.b..
000060: 09 63 61 6C 6C 09 40 75 63 6D 70 0D 0A 09 72 6E  .call.@ucmp...rn
000070: 63 0D 0A 09 64 63 78 09 68 0D 0A 09 72 65 74 0D  c...dcx.h...ret.
000080: 0A 3B 0D 0A 3B 09 74 65 73 74 20 69 66 20 64 65  .;..;.test if de
000090: 20 6C 65 73 73 20 74 68 61 6E 20 6F 72 20 65 71   less than or eq
0000A0: 75 61 6C 20 74 6F 20 68 6C 20 28 75 6E 73 69 67  ual to hl (unsig
0000B0: 6E 65 64 29 0D 0A 3B 0D 0A 40 75 6C 65 3A 0D 0A  ned)..;..@ule:..
0000C0: 09 70 6F 70 09 62 0D 0A 09 70 6F 70 09 64 0D 0A  .pop.b...pop.d..
0000D0: 09 70 75 73 68 09 62 0D 0A 09 6C 78 69 09 62 2C  .push.b...lxi.b,
0000E0: 40 63 6F 6D 70 72 65 74 0D 0A 09 70 75 73 68 09  @compret...push.
0000F0: 62 0D 0A 09 63 61 6C 6C 09 40 75 63 6D 70 0D 0A  b...call.@ucmp..
000100: 09 72 7A 0D 0A 09 72 63 0D 0A 09 64 63 78 09 68  .rz...rc...dcx.h
000110: 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 63 6F 6D  ...ret..;..;.com
000120: 6D 6F 6E 20 72 6F 75 74 69 6E 65 20 74 6F 20 70  mon routine to p
000130: 72 65 66 6F 72 6D 20 61 20 73 69 67 6E 65 64 20  reform a signed 
000140: 63 6F 6D 70 61 72 65 20 6F 66 0D 0A 3B 09 64 65  compare of..;.de
000150: 20 61 6E 64 20 68 6C 20 0D 0A 3B 0D 0A 3B 09 64   and hl ..;..;.d
000160: 65 2D 68 6C 20 61 6E 64 20 73 65 74 73 20 74 68  e-hl and sets th
000170: 65 20 63 6F 6E 64 69 74 69 6F 6E 73 3A 0D 0A 3B  e conditions:..;
000180: 09 09 63 61 72 72 79 20 73 65 74 20 6D 65 61 6E  ..carry set mean
000190: 73 20 64 65 20 3C 20 68 6C 0D 0A 3B 09 09 7A 65  s de < hl..;..ze
0001A0: 72 6F 2F 6E 6F 6E 2D 7A 65 72 6F 20 73 65 74 20  ro/non-zero set 
0001B0: 61 63 63 6F 72 64 69 6E 67 20 74 6F 20 65 71 75  according to equ
0001C0: 61 6C 69 74 79 0D 0A 3B 0D 0A 40 63 6D 70 3A 0D  ality..;..@cmp:.
0001D0: 0A 09 6D 6F 76 09 61 2C 65 0D 0A 09 73 75 62 09  ..mov.a,e...sub.
0001E0: 6C 0D 0A 09 6D 6F 76 09 65 2C 61 0D 0A 09 6D 6F  l...mov.e,a...mo
0001F0: 76 09 61 2C 64 0D 0A 09 73 62 62 09 68 0D 0A 09  v.a,d...sbb.h...

Size : 512 (Real : 512)
000000: 20 76 61 6C 75 65 20 69 6E 20 64 65 20 61 74 20   value in de at 
000010: 61 64 64 72 65 73 73 20 69 6E 20 68 6C 0D 0A 3B  address in hl..;
000020: 0D 0A 40 69 6E 63 64 65 63 73 3A 0D 0A 09 6C 64  ..@incdecs:...ld
000030: 61 78 09 62 0D 0A 09 6F 72 61 09 61 0D 0A 09 6A  ax.b...ora.a...j
000040: 70 09 40 69 6E 63 64 65 63 32 0D 0A 09 6D 6F 76  p.@incdec2...mov
000050: 09 6D 2C 64 0D 0A 09 64 63 78 09 68 0D 0A 09 6D  .m,d...dcx.h...m
000060: 6F 76 09 6D 2C 65 0D 0A 09 78 63 68 67 0D 0A 09  ov.m,e...xchg...
000070: 6D 6F 76 09 61 2C 68 0D 0A 09 6F 72 61 09 6C 0D  mov.a,h...ora.l.
000080: 0A 09 72 65 74 0D 0A 40 69 6E 63 64 65 63 32 3A  ..ret..@incdec2:
000090: 0D 0A 09 6D 6F 76 09 6D 2C 65 0D 0A 09 78 63 68  ...mov.m,e...xch
0000A0: 67 0D 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09 6F 72  g...mov.a,h...or
0000B0: 61 09 6C 0D 0A 09 72 65 74 09 0D 0A 09 70 61 67  a.l...ret....pag
0000C0: 65 0D 0A 3B 0D 0A 3B 09 69 6E 63 6C 75 73 69 76  e..;..;.inclusiv
0000D0: 65 20 22 6F 72 22 20 68 6C 20 61 6E 64 20 64 65  e "or" hl and de
0000E0: 20 69 6E 74 6F 20 68 6C 0D 0A 3B 0D 0A 40 6F 72   into hl..;..@or
0000F0: 3A 09 63 73 65 63 74 0D 0A 09 70 6F 70 09 62 0D  :.csect...pop.b.
000100: 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73 68 09 62  ..pop.d...push.b
000110: 0D 0A 09 6D 6F 76 09 61 2C 6C 0D 0A 09 6F 72 61  ...mov.a,l...ora
000120: 09 65 0D 0A 09 6D 6F 76 09 6C 2C 61 0D 0A 09 6D  .e...mov.l,a...m
000130: 6F 76 09 61 2C 68 0D 0A 09 6F 72 61 09 64 0D 0A  ov.a,h...ora.d..
000140: 09 6D 6F 76 09 68 2C 61 0D 0A 09 6F 72 61 09 6C  .mov.h,a...ora.l
000150: 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 65 78 63  ...ret..;..;.exc
000160: 6C 75 73 65 69 76 65 20 22 6F 72 22 20 68 6C 20  luseive "or" hl 
000170: 61 6E 64 20 64 65 20 69 6E 74 6F 20 68 6C 0D 0A  and de into hl..
000180: 3B 0D 0A 40 78 6F 72 3A 09 63 73 65 63 74 0D 0A  ;..@xor:.csect..
000190: 09 70 6F 70 09 62 0D 0A 09 70 6F 70 09 64 0D 0A  .pop.b...pop.d..
0001A0: 09 70 75 73 68 09 62 0D 0A 09 6D 6F 76 09 61 2C  .push.b...mov.a,
0001B0: 6C 0D 0A 09 78 72 61 09 65 0D 0A 09 6D 6F 76 09  l...xra.e...mov.
0001C0: 6C 2C 61 0D 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09  l,a...mov.a,h...
0001D0: 78 72 61 09 64 0D 0A 09 6D 6F 76 09 68 2C 61 0D  xra.d...mov.h,a.
0001E0: 0A 09 6F 72 61 09 6C 0D 0A 09 72 65 74 0D 0A 3B  ..ora.l...ret..;
0001F0: 0D 0A 3B 09 22 61 6E 64 22 20 68 6C 20 61 6E 64  ..;."and" hl and

Size : 512 (Real : 512)
000000: 6C 78 69 09 68 2C 31 0D 0A 09 6A 6D 09 40 63 6D  lxi.h,1...jm.@cm
000010: 70 31 0D 0A 09 6F 72 61 09 65 0D 0A 09 72 65 74  p1...ora.e...ret
000020: 0D 0A 40 63 6D 70 31 3A 0D 0A 09 6F 72 61 09 65  ..@cmp1:...ora.e
000030: 0D 0A 09 73 74 63 0D 0A 09 72 65 74 0D 0A 3B 0D  ...stc...ret..;.
000040: 0A 3B 09 63 6F 6D 6D 6F 6E 20 72 6F 75 74 69 6E  .;.common routin
000050: 65 20 74 6F 20 70 65 72 66 6F 72 6D 20 75 6E 73  e to perform uns
000060: 69 6E 67 65 64 20 63 6F 6D 70 61 72 65 0D 0A 3B  inged compare..;
000070: 0D 0A 3B 09 63 61 72 72 79 20 73 65 74 20 69 66  ..;.carry set if
000080: 20 64 65 20 6C 65 73 73 20 74 68 61 6E 20 68 6C   de less than hl
000090: 0D 0A 3B 09 7A 65 72 6F 2F 6E 6F 6E 2D 7A 65 72  ..;.zero/non-zer
0000A0: 6F 20 73 65 74 20 61 63 63 6F 72 64 69 6E 67 6C  o set accordingl
0000B0: 79 20 68 6C 3D 64 65 0D 0A 3B 0D 0A 40 75 63 6D  y hl=de..;..@ucm
0000C0: 70 3A 0D 0A 09 6D 6F 76 09 61 2C 64 0D 0A 09 63  p:...mov.a,d...c
0000D0: 6D 70 09 68 0D 0A 09 6A 6E 7A 09 40 75 63 6D 70  mp.h...jnz.@ucmp
0000E0: 31 0D 0A 09 6D 6F 76 09 61 2C 65 0D 0A 09 63 6D  1...mov.a,e...cm
0000F0: 70 09 6C 0D 0A 40 75 63 6D 70 31 3A 0D 0A 09 6C  p.l..@ucmp1:...l
000100: 78 69 09 68 2C 31 0D 0A 09 72 65 74 0D 0A 3B 0D  xi.h,1...ret..;.
000110: 0A 3B 09 73 65 74 20 6D 61 63 68 69 6E 65 20 73  .;.set machine s
000120: 74 61 74 75 73 20 66 6F 72 20 61 6C 6C 20 63 6F  tatus for all co
000130: 6D 64 69 74 69 6F 6E 61 6C 20 6F 70 65 72 61 74  mditional operat
000140: 6F 72 73 0D 0A 3B 0D 0A 40 63 6F 6D 70 72 65 74  ors..;..@compret
000150: 3A 0D 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09 6F 72  :...mov.a,h...or
000160: 61 09 6C 0D 0A 09 72 65 74 0D 0A 09 70 61 67 65  a.l...ret...page
000170: 0D 0A 3B 0D 0A 3B 09 73 68 69 66 74 20 64 65 20  ..;..;.shift de 
000180: 61 72 69 74 68 6D 65 74 69 63 61 6C 6C 79 20 72  arithmetically r
000190: 69 67 68 74 20 62 79 20 68 6C 20 72 65 74 75 72  ight by hl retur
0001A0: 6E 20 69 6E 20 68 6C 0D 0A 3B 0D 0A 40 61 73 72  n in hl..;..@asr
0001B0: 3A 09 63 73 65 63 74 0D 0A 09 70 6F 70 09 62 0D  :.csect...pop.b.
0001C0: 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73 68 09 62  ..pop.d...push.b
0001D0: 0D 0A 40 61 73 72 31 3A 0D 0A 09 78 63 68 67 0D  ..@asr1:...xchg.
0001E0: 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09 72 61 6C 0D  ..mov.a,h...ral.
0001F0: 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09 72 61 72 0D  ..mov.a,h...rar.

Size : 512 (Real : 512)
000000: 20 64 65 20 69 6E 74 6F 20 68 6C 0D 0A 3B 0D 0A   de into hl..;..
000010: 40 61 6E 64 3A 09 63 73 65 63 74 0D 0A 09 70 6F  @and:.csect...po
000020: 70 09 62 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75  p.b...pop.d...pu
000030: 73 68 09 62 0D 0A 09 6D 6F 76 09 61 2C 6C 0D 0A  sh.b...mov.a,l..
000040: 09 61 6E 61 09 65 0D 0A 09 6D 6F 76 09 6C 2C 61  .ana.e...mov.l,a
000050: 0D 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09 61 6E 61  ...mov.a,h...ana
000060: 09 64 0D 0A 09 6D 6F 76 09 68 2C 61 0D 0A 09 6F  .d...mov.h,a...o
000070: 72 61 09 6C 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B  ra.l...ret..;..;
000080: 09 69 6E 20 61 6C 6C 20 74 68 65 20 66 6F 6C 6C  .in all the foll
000090: 6F 77 69 6E 67 20 63 6F 6D 70 61 72 65 20 72 6F  owing compare ro
0000A0: 75 74 69 6E 65 73 20 68 6C 20 69 73 20 73 65 74  utines hl is set
0000B0: 20 74 6F 20 31 20 0D 0A 3B 09 69 66 20 74 68 65   to 1 ..;.if the
0000C0: 20 63 6F 6E 64 69 74 69 6F 6E 20 69 73 20 74 72   condition is tr
0000D0: 75 65 2C 20 6F 74 68 65 72 77 69 73 65 20 69 74  ue, otherwise it
0000E0: 20 69 73 20 73 65 74 20 74 6F 20 30 20 0D 0A 3B   is set to 0 ..;
0000F0: 0D 0A 3B 09 6E 6F 74 20 63 75 72 72 65 6E 74 20  ..;.not current 
000100: 63 6F 6E 64 69 74 69 6F 6E 0D 0A 3B 0D 0A 40 6E  condition..;..@n
000110: 6C 6F 67 3A 09 63 73 65 63 74 0D 0A 09 6D 6F 76  log:.csect...mov
000120: 09 61 2C 68 0D 0A 09 6F 72 61 09 6C 0D 0A 09 6A  .a,h...ora.l...j
000130: 6E 7A 09 40 6E 6C 6F 67 31 0D 0A 09 6C 78 69 09  nz.@nlog1...lxi.
000140: 68 2C 31 0D 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09  h,1...mov.a,h...
000150: 6F 72 61 09 6C 0D 0A 09 72 65 74 0D 0A 40 6E 6C  ora.l...ret..@nl
000160: 6F 67 31 3A 0D 0A 09 6C 78 69 09 68 2C 30 0D 0A  og1:...lxi.h,0..
000170: 09 6D 6F 76 09 61 2C 68 0D 0A 09 6F 72 61 09 6C  .mov.a,h...ora.l
000180: 0D 0A 09 72 65 74 0D 0A 09 70 61 67 65 0D 0A 40  ...ret...page..@
000190: 63 6F 6D 70 3A 09 63 73 65 63 74 0D 0A 3B 0D 0A  comp:.csect..;..
0001A0: 3B 09 74 65 73 74 20 69 66 20 68 6C 20 65 71 75  ;.test if hl equ
0001B0: 61 6C 20 74 6F 20 64 65 0D 0A 3B 0D 0A 40 65 71  al to de..;..@eq
0001C0: 3A 0D 0A 09 70 6F 70 09 62 0D 0A 09 70 6F 70 09  :...pop.b...pop.
0001D0: 64 0D 0A 09 70 75 73 68 09 62 0D 0A 09 6C 78 69  d...push.b...lxi
0001E0: 09 62 2C 40 63 6F 6D 70 72 65 74 0D 0A 09 70 75  .b,@compret...pu
0001F0: 73 68 09 62 0D 0A 09 63 61 6C 6C 09 40 63 6D 70  sh.b...call.@cmp

Size : 512 (Real : 512)
000000: 0A 09 6D 6F 76 09 68 2C 61 0D 0A 09 6D 6F 76 09  ..mov.h,a...mov.
000010: 61 2C 6C 0D 0A 09 72 61 72 0D 0A 09 6D 6F 76 09  a,l...rar...mov.
000020: 6C 2C 61 0D 0A 09 64 63 72 09 65 0D 0A 09 6A 6E  l,a...dcr.e...jn
000030: 7A 09 20 40 61 73 72 31 0D 0A 09 72 65 74 0D 0A  z. @asr1...ret..
000040: 3B 0D 0A 3B 09 73 68 69 66 74 20 64 65 20 61 72  ;..;.shift de ar
000050: 69 74 68 6D 65 74 69 63 61 6C 6C 79 20 6C 65 66  ithmetically lef
000060: 74 20 62 79 20 68 6C 20 61 6E 64 20 72 65 74 75  t by hl and retu
000070: 72 6E 20 69 6E 20 68 6C 0D 0A 3B 0D 0A 40 61 73  rn in hl..;..@as
000080: 6C 3A 09 63 73 65 63 74 0D 0A 09 70 6F 70 09 62  l:.csect...pop.b
000090: 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73 68 09  ...pop.d...push.
0000A0: 62 0D 0A 40 61 73 6C 31 3A 0D 0A 09 78 63 68 67  b..@asl1:...xchg
0000B0: 0D 0A 09 64 61 64 09 68 0D 0A 09 64 63 72 09 65  ...dad.h...dcr.e
0000C0: 0D 0A 09 6A 6E 7A 09 40 61 73 6C 31 0D 0A 09 72  ...jnz.@asl1...r
0000D0: 65 74 0D 0A 3B 0D 0A 3B 09 73 75 62 74 72 61 63  et..;..;.subtrac
0000E0: 74 20 68 6C 20 66 72 6F 6D 20 64 65 20 61 6E 64  t hl from de and
0000F0: 20 72 65 74 75 72 6E 20 69 6E 20 68 6C 0D 0A 3B   return in hl..;
000100: 0D 0A 40 73 75 62 3A 09 63 73 65 63 74 0D 0A 09  ..@sub:.csect...
000110: 70 6F 70 09 62 0D 0A 09 70 6F 70 09 64 0D 0A 09  pop.b...pop.d...
000120: 70 75 73 68 09 62 0D 0A 09 6D 6F 76 09 61 2C 65  push.b...mov.a,e
000130: 0D 0A 09 73 75 62 09 6C 0D 0A 09 6D 6F 76 09 6C  ...sub.l...mov.l
000140: 2C 61 0D 0A 09 6D 6F 76 09 61 2C 64 0D 0A 09 73  ,a...mov.a,d...s
000150: 62 62 09 68 0D 0A 09 6D 6F 76 09 68 2C 61 0D 0A  bb.h...mov.h,a..
000160: 09 72 65 74 0D 0A 3B 0D 0A 3B 09 66 72 6F 6D 20  .ret..;..;.from 
000170: 74 68 65 20 74 77 6F 27 73 20 63 6F 6D 70 6C 65  the two's comple
000180: 6D 65 6E 74 20 6F 66 20 68 6C 0D 0A 3B 09 0D 0A  ment of hl..;...
000190: 40 6E 65 67 3A 09 63 73 65 63 74 0D 0A 09 63 61  @neg:.csect...ca
0001A0: 6C 6C 09 40 63 6F 6D 0D 0A 09 69 6E 78 09 68 0D  ll.@com...inx.h.
0001B0: 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 66 72 6F 6D  ..ret..;..;.from
0001C0: 20 74 68 65 20 6F 6E 65 27 73 20 63 6F 6D 70 6C   the one's compl
0001D0: 65 6D 65 6E 74 20 6F 66 20 68 6C 0D 0A 3B 0D 0A  ement of hl..;..
0001E0: 40 63 6F 6D 3A 09 63 73 65 63 74 0D 0A 09 6D 6F  @com:.csect...mo
0001F0: 76 09 61 2C 68 0D 0A 09 63 6D 61 0D 0A 09 6D 6F  v.a,h...cma...mo

Size : 512 (Real : 512)
000000: 0D 0A 09 72 7A 09 0D 0A 09 64 63 78 09 68 0D 0A  ...rz....dcx.h..
000010: 09 72 65 74 0D 0A 3B 0D 0A 3B 09 74 65 73 74 20  .ret..;..;.test 
000020: 69 66 20 64 65 20 74 6F 20 68 6C 20 66 6F 72 20  if de to hl for 
000030: 6E 6F 74 20 65 71 75 61 6C 0D 0A 3B 0D 0A 40 6E  not equal..;..@n
000040: 65 3A 0D 0A 09 70 6F 70 09 62 0D 0A 09 70 6F 70  e:...pop.b...pop
000050: 09 64 0D 0A 09 70 75 73 68 09 62 0D 0A 09 6C 78  .d...push.b...lx
000060: 69 09 62 2C 40 63 6F 6D 70 72 65 74 0D 0A 09 70  i.b,@compret...p
000070: 75 73 68 09 62 0D 0A 09 63 61 6C 6C 09 40 63 6D  ush.b...call.@cm
000080: 70 0D 0A 09 72 6E 7A 0D 0A 09 64 63 78 09 68 0D  p...rnz...dcx.h.
000090: 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 74 65 73 74  ..ret..;..;.test
0000A0: 20 69 66 20 64 65 20 67 72 65 61 74 65 72 20 74   if de greater t
0000B0: 68 65 6E 20 68 6C 20 28 73 69 67 6E 65 64 29 0D  hen hl (signed).
0000C0: 0A 3B 0D 0A 40 67 74 3A 0D 0A 09 70 6F 70 09 62  .;..@gt:...pop.b
0000D0: 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73 68 09  ...pop.d...push.
0000E0: 62 0D 0A 09 6C 78 69 09 62 2C 40 63 6F 6D 70 72  b...lxi.b,@compr
0000F0: 65 74 0D 0A 09 70 75 73 68 09 62 0D 0A 09 78 63  et...push.b...xc
000100: 68 67 0D 0A 09 63 61 6C 6C 09 40 63 6D 70 0D 0A  hg...call.@cmp..
000110: 09 72 63 0D 0A 09 64 63 78 09 68 0D 0A 09 72 65  .rc...dcx.h...re
000120: 74 0D 0A 3B 0D 0A 3B 09 74 65 73 74 20 69 66 20  t..;..;.test if 
000130: 64 65 20 6C 65 73 73 20 74 68 65 6E 20 68 6C 20  de less then hl 
000140: 28 73 69 67 6E 65 64 29 0D 0A 3B 0D 0A 40 6C 74  (signed)..;..@lt
000150: 3A 0D 0A 09 70 6F 70 09 62 0D 0A 09 70 6F 70 09  :...pop.b...pop.
000160: 64 0D 0A 09 70 75 73 68 09 62 0D 0A 09 6C 78 69  d...push.b...lxi
000170: 09 62 2C 40 63 6F 6D 70 72 65 74 0D 0A 09 70 75  .b,@compret...pu
000180: 73 68 09 62 0D 0A 09 63 61 6C 6C 09 40 63 6D 70  sh.b...call.@cmp
000190: 0D 0A 09 72 63 0D 0A 09 64 63 78 09 68 0D 0A 09  ...rc...dcx.h...
0001A0: 72 65 74 0D 0A 3B 0D 0A 3B 09 74 65 73 74 20 69  ret..;..;.test i
0001B0: 66 20 64 65 20 67 72 65 61 74 65 72 20 74 68 65  f de greater the
0001C0: 6E 20 6F 72 20 65 71 75 61 6C 20 74 6F 20 68 6C  n or equal to hl
0001D0: 20 28 73 69 67 6E 65 64 29 0D 0A 3B 0D 0A 40 67   (signed)..;..@g
0001E0: 65 3A 0D 0A 09 70 6F 70 09 62 0D 0A 09 70 6F 70  e:...pop.b...pop
0001F0: 09 64 0D 0A 09 70 75 73 68 09 62 0D 0A 09 6C 78  .d...push.b...lx

Size : 512 (Real : 512)
000000: 76 09 68 2C 61 0D 0A 09 6D 6F 76 09 61 2C 6C 0D  v.h,a...mov.a,l.
000010: 0A 09 63 6D 61 0D 0A 09 6D 6F 76 09 6C 2C 61 0D  ..cma...mov.l,a.
000020: 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 6D 75 74 69  ..ret..;..;.muti
000030: 70 6C 79 20 64 65 20 62 79 20 68 6C 20 61 6E 64  ply de by hl and
000040: 20 72 65 74 75 72 6E 20 69 6E 20 68 6C 20 28 73   return in hl (s
000050: 69 67 6E 65 64 29 0D 0A 3B 0D 0A 40 6D 75 6C 74  igned)..;..@mult
000060: 3A 20 20 63 73 65 63 74 0D 0A 09 70 6F 70 09 62  :  csect...pop.b
000070: 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73 68 09  ...pop.d...push.
000080: 62 0D 0A 09 6D 6F 76 09 62 2C 68 0D 0A 09 6D 6F  b...mov.b,h...mo
000090: 76 09 63 2C 6C 0D 0A 09 6C 78 69 09 68 2C 30 0D  v.c,l...lxi.h,0.
0000A0: 0A 40 6D 75 6C 74 31 3A 0D 0A 09 6D 6F 76 09 61  .@mult1:...mov.a
0000B0: 2C 63 0D 0A 09 72 72 63 0D 0A 09 6A 6E 63 09 40  ,c...rrc...jnc.@
0000C0: 6D 75 6C 74 32 0D 0A 09 64 61 64 09 64 0D 0A 40  mult2...dad.d..@
0000D0: 6D 75 6C 74 32 3A 0D 0A 09 78 72 61 09 61 0D 0A  mult2:...xra.a..
0000E0: 09 6D 6F 76 09 61 2C 62 0D 0A 09 72 61 72 0D 0A  .mov.a,b...rar..
0000F0: 20 09 6D 6F 76 09 62 2C 61 0D 0A 09 6D 6F 76 09   .mov.b,a...mov.
000100: 61 2C 63 0D 0A 09 72 61 72 0D 0A 09 6D 6F 76 09  a,c...rar...mov.
000110: 63 2C 61 0D 0A 09 6F 72 61 09 62 0D 0A 09 72 7A  c,a...ora.b...rz
000120: 0D 0A 09 78 72 61 09 61 0D 0A 09 6D 6F 76 09 61  ...xra.a...mov.a
000130: 2C 65 0D 0A 09 72 61 6C 0D 0A 09 6D 6F 76 09 65  ,e...ral...mov.e
000140: 2C 61 0D 0A 09 6D 6F 76 09 61 2C 64 0D 0A 09 72  ,a...mov.a,d...r
000150: 61 6C 0D 0A 09 6D 6F 76 09 64 2C 61 0D 0A 09 6F  al...mov.d,a...o
000160: 72 61 09 65 0D 0A 09 72 7A 0D 0A 09 6A 6D 70 09  ra.e...rz...jmp.
000170: 40 6D 75 6C 74 31 0D 0A 3B 0D 0A 3B 09 64 69 76  @mult1..;..;.div
000180: 69 64 65 20 64 65 20 62 79 20 68 6C 20 61 6E 64  ide de by hl and
000190: 20 72 65 74 75 72 6E 20 71 75 6F 74 69 65 6E 74   return quotient
0001A0: 20 69 6E 20 68 6C 0D 0A 3B 09 20 72 65 74 75 72   in hl..;. retur
0001B0: 6E 20 72 65 6D 61 69 6E 64 65 72 20 69 6E 20 64  n remainder in d
0001C0: 65 20 28 73 69 67 6E 65 64 29 0D 0A 3B 0D 0A 40  e (signed)..;..@
0001D0: 64 69 76 3A 09 63 73 65 63 74 0D 0A 09 70 6F 70  div:.csect...pop
0001E0: 09 62 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73  .b...pop.d...pus
0001F0: 68 09 62 0D 0A 09 6D 6F 76 09 62 2C 68 0D 0A 09  h.b...mov.b,h...

Size : 512 (Real : 512)
000000: 0A 3B 09 63 61 6C 6C 20 62 6F 64 73 20 74 6F 20  .;.call bods to 
000010: 64 6F 20 61 20 63 70 6D 20 66 75 6E 63 74 69 6F  do a cpm functio
000020: 6E 20 62 6F 64 73 28 63 2C 64 65 29 0D 0A 3B 0D  n bods(c,de)..;.
000030: 0A 62 64 6F 73 3A 09 63 73 65 63 74 0D 0A 09 70  .bdos:.csect...p
000040: 6F 70 09 68 0D 0A 09 70 6F 70 09 64 0D 0A 09 70  op.h...pop.d...p
000050: 6F 70 09 62 0D 0A 09 70 75 73 68 09 62 0D 0A 09  op.b...push.b...
000060: 70 75 73 68 09 64 0D 0A 09 70 75 73 68 09 68 0D  push.d...push.h.
000070: 0A 09 6A 6D 70 09 35 0D 0A 3B 0D 0A 3B 09 65 78  ..jmp.5..;..;.ex
000080: 69 74 20 62 61 63 6B 20 74 6F 20 73 79 73 74 65  it back to syste
000090: 6D 0D 0A 3B 0D 0A 65 78 69 74 3A 09 63 73 65 63  m..;..exit:.csec
0000A0: 74 0D 0A 09 6D 76 69 09 63 2C 30 0D 0A 09 63 61  t...mvi.c,0...ca
0000B0: 6C 6C 09 35 0D 0A 3B 0D 0A 3B 09 74 61 6B 65 20  ll.5..;..;.take 
0000C0: 63 6F 6D 6D 61 6E 64 20 62 75 66 66 65 72 20 61  command buffer a
0000D0: 6E 64 20 62 75 69 6C 64 20 70 6F 69 6E 74 65 72  nd build pointer
0000E0: 20 6C 69 73 74 0D 0A 0D 0A 40 69 6E 69 74 3A 09   list....@init:.
0000F0: 63 73 65 63 74 0D 0A 09 6C 68 6C 64 09 36 2B 72  csect...lhld.6+r
000100: 61 6D 09 09 09 3B 67 65 74 20 70 6F 69 6E 74 65  am...;get pointe
000110: 72 20 74 6F 20 68 69 67 68 20 6D 65 6D 6F 72 79  r to high memory
000120: 0D 0A 09 64 63 78 09 68 09 09 09 3B 6D 6F 76 65  ...dcx.h...;move
000130: 20 74 6F 20 6A 75 73 74 20 62 65 6C 6F 77 20 62   to just below b
000140: 64 6F 73 0D 0A 09 73 70 68 6C 09 09 09 09 3B 6D  dos...sphl....;m
000150: 61 6B 65 20 69 74 20 63 75 72 72 65 6E 74 20 73  ake it current s
000160: 74 61 63 6B 0D 0A 09 6C 78 69 09 68 2C 38 30 68  tack...lxi.h,80h
000170: 2B 72 61 6D 09 09 3B 70 6F 69 6E 74 65 72 20 74  +ram..;pointer t
000180: 6F 20 73 74 61 72 74 20 6F 66 20 63 6F 6D 6D 61  o start of comma
000190: 6E 64 20 62 75 66 66 65 72 0D 0A 09 6D 6F 76 09  nd buffer...mov.
0001A0: 65 2C 6D 09 09 09 3B 6E 75 6D 62 65 72 20 6F 66  e,m...;number of
0001B0: 20 62 79 74 65 73 20 69 6E 20 63 6F 6D 6D 61 6E   bytes in comman
0001C0: 64 20 6C 69 6E 65 0D 0A 09 6D 76 69 09 64 2C 30  d line...mvi.d,0
0001D0: 09 09 09 3B 6D 61 6B 65 20 69 74 20 31 36 20 62  ...;make it 16 b
0001E0: 69 74 20 76 61 6C 75 65 0D 0A 09 64 61 64 09 64  it value...dad.d
0001F0: 09 09 09 3B 70 6F 69 6E 74 20 74 6F 20 65 6E 64  ...;point to end

Size : 512 (Real : 512)
000000: 6D 6F 76 09 63 2C 6C 0D 0A 09 6D 6F 76 09 61 2C  mov.c,l...mov.a,
000010: 64 0D 0A 09 78 72 61 09 62 0D 0A 09 70 75 73 68  d...xra.b...push
000020: 09 70 73 77 0D 0A 09 6D 6F 76 09 61 2C 64 0D 0A  .psw...mov.a,d..
000030: 09 6F 72 61 09 61 0D 0A 09 63 6D 09 40 64 65 6E  .ora.a...cm.@den
000040: 65 67 0D 0A 09 6D 6F 76 09 61 2C 62 0D 0A 09 6F  eg...mov.a,b...o
000050: 72 61 09 61 0D 0A 09 63 6D 09 40 62 63 6E 65 67  ra.a...cm.@bcneg
000060: 0D 0A 09 6D 76 69 09 61 2C 31 36 0D 0A 09 70 75  ...mvi.a,16...pu
000070: 73 68 09 70 73 77 0D 0A 09 78 63 68 67 0D 0A 09  sh.psw...xchg...
000080: 6C 78 69 09 64 2C 30 0D 0A 40 64 69 76 31 3A 0D  lxi.d,0..@div1:.
000090: 0A 09 64 61 64 09 68 0D 0A 09 63 61 6C 6C 09 40  ..dad.h...call.@
0000A0: 72 64 65 6C 0D 0A 09 6A 7A 09 40 64 69 76 32 0D  rdel...jz.@div2.
0000B0: 0A 09 63 61 6C 6C 09 40 63 6D 70 62 63 64 65 0D  ..call.@cmpbcde.
0000C0: 0A 09 6A 6D 09 40 64 69 76 32 0D 0A 09 6D 6F 76  ..jm.@div2...mov
0000D0: 09 61 2C 6C 0D 0A 09 6F 72 69 09 31 0D 0A 09 6D  .a,l...ori.1...m
0000E0: 6F 76 09 6C 2C 61 0D 0A 09 6D 6F 76 09 61 2C 65  ov.l,a...mov.a,e
0000F0: 0D 0A 09 73 75 62 09 63 0D 0A 09 6D 6F 76 09 65  ...sub.c...mov.e
000100: 2C 61 0D 0A 09 6D 6F 76 09 61 2C 64 0D 0A 09 73  ,a...mov.a,d...s
000110: 62 62 09 62 0D 0A 09 6D 6F 76 09 64 2C 61 0D 0A  bb.b...mov.d,a..
000120: 40 64 69 76 32 3A 0D 0A 09 70 6F 70 09 70 73 77  @div2:...pop.psw
000130: 0D 0A 09 64 63 72 09 61 0D 0A 09 6A 7A 09 40 64  ...dcr.a...jz.@d
000140: 69 76 33 0D 0A 09 70 75 73 68 09 70 73 77 0D 0A  iv3...push.psw..
000150: 09 6A 6D 70 09 40 64 69 76 31 0D 0A 40 64 69 76  .jmp.@div1..@div
000160: 33 3A 0D 0A 09 70 6F 70 09 70 73 77 0D 0A 09 72  3:...pop.psw...r
000170: 70 0D 0A 09 63 61 6C 6C 09 40 64 65 6E 65 67 0D  p...call.@deneg.
000180: 0A 09 78 63 68 67 0D 0A 09 63 61 6C 6C 09 40 64  ..xchg...call.@d
000190: 65 6E 65 67 0D 0A 09 78 63 68 67 0D 0A 09 72 65  eneg...xchg...re
0001A0: 74 0D 0A 3B 0D 0A 3B 09 6E 65 67 61 74 65 20 74  t..;..;.negate t
0001B0: 68 65 20 69 6E 74 65 67 65 72 20 69 6E 20 62 63  he integer in bc
0001C0: 20 28 75 73 65 64 20 62 79 20 64 69 76 69 64 65   (used by divide
0001D0: 20 6F 6E 6C 79 29 0D 0A 3B 0D 0A 40 64 65 6E 65   only)..;..@dene
0001E0: 67 3A 0D 0A 09 6D 6F 76 09 61 2C 64 0D 0A 09 63  g:...mov.a,d...c
0001F0: 6D 61 0D 0A 09 6D 6F 76 09 64 2C 61 0D 0A 09 6D  ma...mov.d,a...m

Size : 512 (Real : 512)
000000: 20 6F 66 20 74 65 78 74 0D 0A 09 69 6E 78 09 68   of text...inx.h
000010: 09 09 09 3B 6D 6F 76 65 20 70 61 73 74 20 65 6E  ...;move past en
000020: 64 20 6F 66 20 62 75 66 66 65 72 0D 0A 09 6D 76  d of buffer...mv
000030: 69 09 6D 2C 30 09 09 09 3B 6D 61 6B 65 20 65 6E  i.m,0...;make en
000040: 64 20 6F 66 20 74 65 78 74 0D 0A 09 6C 78 69 09  d of text...lxi.
000050: 64 2C 63 70 6F 69 6E 74 65 72 09 09 3B 70 6C 61  d,cpointer..;pla
000060: 63 65 20 77 68 65 72 65 20 70 6F 69 6E 74 65 72  ce where pointer
000070: 20 73 68 6F 75 6C 64 20 70 6C 61 63 65 0D 0A 09   should place...
000080: 6C 78 69 09 68 2C 38 30 68 2B 72 61 6D 09 09 3B  lxi.h,80h+ram..;
000090: 61 64 64 72 65 73 73 20 6F 66 20 74 65 78 74 20  address of text 
0000A0: 73 74 72 69 6E 67 0D 0A 09 6C 78 69 09 62 2C 31  string...lxi.b,1
0000B0: 09 09 09 3B 6E 75 6D 62 65 72 20 6F 66 20 61 72  ...;number of ar
0000C0: 67 0D 0A 40 69 6E 69 74 32 3A 0D 0A 09 69 6E 78  g..@init2:...inx
0000D0: 09 68 09 09 09 3B 6D 6F 76 65 20 70 6F 69 6E 74  .h...;move point
0000E0: 65 72 20 74 6F 20 6E 65 78 74 20 62 79 74 65 0D  er to next byte.
0000F0: 0A 09 6D 6F 76 09 61 2C 6D 09 09 09 3B 63 68 65  ..mov.a,m...;che
000100: 63 6B 20 66 6F 72 20 65 6E 64 20 6F 66 20 62 75  ck for end of bu
000110: 66 66 65 72 0D 0A 09 6F 72 61 09 61 09 09 09 3B  ffer...ora.a...;
000120: 73 65 74 20 6D 61 63 68 69 6E 65 20 73 74 61 74  set machine stat
000130: 75 73 0D 0A 09 6A 7A 09 40 69 6E 69 74 31 30 09  us...jz.@init10.
000140: 09 09 3B 79 65 73 20 63 61 6C 6C 20 6D 61 69 6E  ..;yes call main
000150: 20 6C 69 6E 65 0D 0A 09 63 70 69 09 27 20 27 09   line...cpi.' '.
000160: 09 09 3B 69 73 20 74 68 65 72 65 20 61 20 6C 65  ..;is there a le
000170: 61 64 69 6E 67 20 73 70 61 63 65 0D 0A 09 6A 7A  ading space...jz
000180: 09 40 69 6E 69 74 32 09 09 09 3B 79 65 73 0D 0A  .@init2...;yes..
000190: 09 6D 6F 76 09 61 2C 6C 09 09 09 3B 73 61 76 65  .mov.a,l...;save
0001A0: 20 70 6F 69 6E 74 65 72 20 76 61 6C 75 65 0D 0A   pointer value..
0001B0: 09 73 74 61 78 09 64 0D 0A 09 6D 6F 76 09 61 2C  .stax.d...mov.a,
0001C0: 68 0D 0A 09 69 6E 78 09 64 0D 0A 09 73 74 61 78  h...inx.d...stax
0001D0: 09 64 0D 0A 09 69 6E 78 09 64 09 09 09 0D 0A 09  .d...inx.d......
0001E0: 69 6E 72 09 63 09 09 09 3B 61 64 64 20 31 20 74  inr.c...;add 1 t
0001F0: 6F 20 61 72 67 20 63 6F 75 6E 74 0D 0A 40 69 6E  o arg count..@in

Size : 512 (Real : 512)
000000: 6F 76 09 61 2C 65 0D 0A 09 63 6D 61 0D 0A 09 6D  ov.a,e...cma...m
000010: 6F 76 09 65 2C 61 0D 0A 09 69 6E 78 09 64 0D 0A  ov.e,a...inx.d..
000020: 09 72 65 74 0D 0A 3B 0D 0A 3B 09 6E 65 67 61 74  .ret..;..;.negat
000030: 65 20 74 68 65 6E 20 69 6E 74 65 67 65 72 20 69  e then integer i
000040: 6E 20 62 63 20 28 75 73 65 64 20 62 79 20 64 69  n bc (used by di
000050: 76 69 64 65 20 6F 6E 6C 79 29 0D 0A 3B 0D 0A 40  vide only)..;..@
000060: 62 63 6E 65 67 3A 0D 0A 09 6D 6F 76 09 61 2C 62  bcneg:...mov.a,b
000070: 0D 0A 09 63 6D 61 0D 0A 09 6D 6F 76 09 62 2C 61  ...cma...mov.b,a
000080: 0D 0A 09 6D 6F 76 09 61 2C 63 0D 0A 09 63 6D 61  ...mov.a,c...cma
000090: 0D 0A 09 6D 6F 76 09 63 2C 61 0D 0A 09 69 6E 78  ...mov.c,a...inx
0000A0: 09 62 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 72  .b...ret..;..;.r
0000B0: 6F 61 74 65 20 64 65 20 6C 65 66 74 20 6F 6E 65  oate de left one
0000C0: 20 62 69 74 20 28 75 73 65 64 20 62 79 20 64 69   bit (used by di
0000D0: 76 69 64 65 20 6F 6E 6C 79 29 0D 0A 3B 0D 0A 40  vide only)..;..@
0000E0: 72 64 65 6C 3A 0D 0A 09 6D 6F 76 09 61 2C 65 0D  rdel:...mov.a,e.
0000F0: 0A 09 72 61 6C 0D 0A 09 6D 6F 76 09 65 2C 61 0D  ..ral...mov.e,a.
000100: 0A 09 6D 6F 76 09 61 2C 64 0D 0A 09 72 61 6C 0D  ..mov.a,d...ral.
000110: 0A 09 6D 6F 76 09 64 2C 61 0D 0A 09 6F 72 61 09  ..mov.d,a...ora.
000120: 65 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 63 6F  e...ret..;..;.co
000130: 6D 70 61 72 65 20 62 63 20 74 6F 20 64 65 20 28  mpare bc to de (
000140: 75 73 65 64 20 62 79 20 64 69 76 69 64 65 20 6F  used by divide o
000150: 6E 6C 79 29 0D 0A 3B 0D 0A 40 63 6D 70 62 63 64  nly)..;..@cmpbcd
000160: 65 3A 20 0D 0A 09 6D 6F 76 09 61 2C 65 0D 0A 09  e: ...mov.a,e...
000170: 73 75 62 09 63 0D 0A 09 6D 6F 76 09 61 2C 64 0D  sub.c...mov.a,d.
000180: 0A 09 73 62 62 09 62 0D 0A 09 72 65 74 0D 0A 3B  ..sbb.b...ret..;
000190: 0D 0A 3B 09 75 73 65 64 20 62 79 20 73 77 69 74  ..;.used by swit
0001A0: 63 68 20 74 6F 20 73 65 61 72 63 68 20 74 61 62  ch to search tab
0001B0: 6C 65 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F  le..;.calling fo
0001C0: 72 6D 61 74 20 66 6F 72 6D 20 63 6F 6D 70 69 6C  rmat form compil
0001D0: 65 72 0D 0A 3B 09 64 2D 70 6F 69 6E 74 65 72 20  er..;.d-pointer 
0001E0: 74 6F 20 74 61 62 6C 65 0D 0A 3B 09 68 2D 77 68  to table..;.h-wh
0001F0: 65 72 65 20 74 6F 20 67 6F 20 69 66 20 76 61 6C  ere to go if val

Size : 512 (Real : 512)
000000: 69 74 33 3A 0D 0A 09 69 6E 78 09 68 09 09 09 3B  it3:...inx.h...;
000010: 6D 6F 76 65 20 74 6F 20 6E 65 78 74 20 62 79 74  move to next byt
000020: 65 0D 0A 09 6D 6F 76 09 61 2C 6D 09 09 09 3B 67  e...mov.a,m...;g
000030: 65 74 20 62 79 74 65 20 69 6E 74 6F 20 61 0D 0A  et byte into a..
000040: 09 6F 72 61 09 61 09 09 09 3B 73 65 65 20 69 66  .ora.a...;see if
000050: 20 65 6E 64 20 6F 66 20 62 75 66 66 65 72 0D 0A   end of buffer..
000060: 09 6A 7A 09 40 69 6E 69 74 31 30 09 09 09 3B 79  .jz.@init10...;y
000070: 65 73 2E 2E 2E 0D 0A 09 63 70 69 09 27 20 27 09  es......cpi.' '.
000080: 09 09 3B 63 68 65 63 6B 20 66 6F 72 20 73 70 61  ..;check for spa
000090: 63 65 0D 0A 09 6A 6E 7A 09 40 69 6E 69 74 33 09  ce...jnz.@init3.
0000A0: 09 09 3B 6E 6F 20 6B 65 65 70 20 6C 6F 6F 6B 69  ..;no keep looki
0000B0: 6E 67 0D 0A 09 6D 76 69 09 6D 2C 30 09 09 09 3B  ng...mvi.m,0...;
0000C0: 6D 61 72 6B 20 61 73 20 65 6E 64 20 6F 66 20 70  mark as end of p
0000D0: 61 72 6D 0D 0A 09 6A 6D 70 09 40 69 6E 69 74 32  arm...jmp.@init2
0000E0: 09 09 09 3B 6C 6F 6F 70 20 66 6F 72 20 6E 65 78  ...;loop for nex
0000F0: 74 20 63 6F 6D 6D 61 6E 64 0D 0A 40 69 6E 69 74  t command..@init
000100: 31 30 3A 0D 0A 09 6C 78 69 09 68 2C 63 70 6F 69  10:...lxi.h,cpoi
000110: 6E 74 65 72 2D 32 09 09 3B 67 65 74 20 61 64 64  nter-2..;get add
000120: 72 65 73 73 20 6F 66 20 70 6F 69 6E 74 65 72 73  ress of pointers
000130: 0D 0A 09 70 75 73 68 09 62 09 09 09 3B 70 75 73  ...push.b...;pus
000140: 68 20 61 72 67 63 20 6F 6E 20 73 74 61 63 6B 0D  h argc on stack.
000150: 0A 09 70 75 73 68 09 68 09 09 09 3B 70 75 73 68  ..push.h...;push
000160: 20 61 72 67 76 20 6F 6E 20 73 74 61 63 6B 0D 0A   argv on stack..
000170: 09 63 61 6C 6C 09 6D 61 69 6E 09 09 09 3B 65 78  .call.main...;ex
000180: 65 63 75 74 65 20 6D 61 69 6E 20 6C 69 6E 65 0D  ecute main line.
000190: 0A 09 6A 6D 70 20 09 30 09 09 09 3B 69 74 20 6A  ..jmp .0...;it j
0001A0: 75 73 74 20 72 65 74 75 72 6E 20 66 72 6F 6D 20  ust return from 
0001B0: 6D 61 69 6E 20 65 78 69 74 20 74 6F 20 63 70 6D  main exit to cpm
0001C0: 0D 0A 09 64 77 09 40 63 63 6E 75 6C 6C 0D 0A 63  ...dw.@ccnull..c
0001D0: 70 6F 69 6E 74 65 72 3A 0D 0A 09 64 77 09 40 63  pointer:...dw.@c
0001E0: 63 6E 75 6C 6C 2C 40 63 63 6E 75 6C 6C 2C 40 63  cnull,@ccnull,@c
0001F0: 63 6E 75 6C 6C 2C 40 63 63 6E 75 6C 6C 2C 40 63  cnull,@ccnull,@c

Size : 512 (Real : 512)
000000: 75 65 20 6E 6F 74 20 69 6E 20 74 61 62 6C 65 0D  ue not in table.
000010: 0A 3B 09 62 2D 20 6E 75 6D 62 65 72 20 6F 66 20  .;.b- number of 
000020: 20 65 6E 74 72 79 20 69 6E 20 74 61 62 6C 65 0D   entry in table.
000030: 0A 3B 0D 0A 40 73 77 69 74 63 68 3A 63 73 65 63  .;..@switch:csec
000040: 74 0D 0A 09 78 74 68 6C 09 09 09 3B 67 65 74 20  t...xthl...;get 
000050: 76 61 6C 75 65 20 6F 66 20 65 78 70 72 65 73 73  value of express
000060: 74 69 6F 6E 20 74 6F 20 63 68 65 63 6B 0D 0A 09  tion to check...
000070: 78 63 68 67 09 09 09 3B 70 75 74 20 76 61 6C 75  xchg...;put valu
000080: 65 20 69 6E 20 64 65 0D 0A 40 73 77 69 74 63 68  e in de..@switch
000090: 31 3A 0D 0A 09 6D 6F 76 09 61 2C 65 0D 0A 09 63  1:...mov.a,e...c
0000A0: 6D 70 09 6D 09 09 3B 63 68 65 63 6B 20 74 6F 20  mp.m..;check to 
0000B0: 73 65 65 20 69 66 20 6C 6F 77 20 62 79 74 65 20  see if low byte 
0000C0: 6D 61 74 63 68 0D 0A 09 69 6E 78 09 68 09 09 3B  match...inx.h..;
0000D0: 6D 6F 76 65 20 70 6F 69 6E 74 65 72 20 74 6F 20  move pointer to 
0000E0: 6E 65 78 74 20 62 79 74 65 20 6F 66 20 64 61 74  next byte of dat
0000F0: 61 0D 0A 09 6A 6E 7A 09 40 73 77 69 74 63 68 32  a...jnz.@switch2
000100: 09 3B 6E 6F 20 6E 6F 76 20 74 6F 20 6E 65 78 74  .;no nov to next
000110: 20 65 6E 74 72 79 0D 0A 09 6D 6F 76 09 61 2C 64   entry...mov.a,d
000120: 09 09 3B 6D 6F 76 65 20 68 69 67 68 20 62 79 74  ..;move high byt
000130: 65 20 6F 66 20 64 61 74 61 0D 0A 09 63 6D 70 09  e of data...cmp.
000140: 6D 09 09 3B 63 68 65 63 6B 20 74 6F 20 73 65 65  m..;check to see
000150: 20 69 66 20 6D 61 74 63 68 0D 0A 09 6A 6E 7A 09   if match...jnz.
000160: 40 73 77 69 74 63 68 32 09 3B 79 65 73 20 6A 75  @switch2.;yes ju
000170: 6D 70 20 74 6F 20 61 64 64 72 65 73 73 0D 0A 09  mp to address...
000180: 69 6E 78 09 68 0D 0A 09 6D 6F 76 09 65 2C 6D 09  inx.h...mov.e,m.
000190: 09 3B 67 65 74 20 6C 6F 77 20 62 79 74 65 20 6F  .;get low byte o
0001A0: 66 20 61 64 64 72 65 73 73 0D 0A 09 69 6E 78 09  f address...inx.
0001B0: 68 0D 0A 09 6D 6F 76 09 64 2C 6D 09 09 3B 67 65  h...mov.d,m..;ge
0001C0: 74 20 68 69 67 68 20 62 79 74 65 20 6F 66 20 61  t high byte of a
0001D0: 64 64 72 65 73 73 0D 0A 09 78 63 68 67 09 09 09  ddress...xchg...
0001E0: 3B 70 75 74 20 61 64 64 72 65 73 73 20 69 6E 20  ;put address in 
0001F0: 68 6C 0D 0A 09 70 6F 70 09 62 09 09 3B 72 65 6D  hl...pop.b..;rem

Size : 512 (Real : 512)
000000: 63 6E 75 6C 6C 0D 0A 09 64 77 09 40 63 63 6E 75  cnull...dw.@ccnu
000010: 6C 6C 2C 40 63 63 6E 75 6C 6C 2C 40 63 63 6E 75  ll,@ccnull,@ccnu
000020: 6C 6C 2C 40 63 63 6E 75 6C 6C 2C 40 63 63 6E 75  ll,@ccnull,@ccnu
000030: 6C 6C 0D 0A 09 64 77 09 40 63 63 6E 75 6C 6C 2C  ll...dw.@ccnull,
000040: 40 63 63 6E 75 6C 6C 2C 40 63 63 6E 75 6C 6C 2C  @ccnull,@ccnull,
000050: 40 63 63 6E 75 6C 6C 2C 40 63 63 6E 75 6C 6C 0D  @ccnull,@ccnull.
000060: 0A 09 64 77 09 40 63 63 6E 75 6C 6C 2C 40 63 63  ..dw.@ccnull,@cc
000070: 6E 75 6C 6C 2C 40 63 63 6E 75 6C 6C 2C 40 63 63  null,@ccnull,@cc
000080: 6E 75 6C 6C 2C 40 63 63 6E 75 6C 6C 0D 0A 09 64  null,@ccnull...d
000090: 77 09 40 63 63 6E 75 6C 6C 2C 40 63 63 6E 75 6C  w.@ccnull,@ccnul
0000A0: 6C 2C 40 63 63 6E 75 6C 6C 2C 40 63 63 6E 75 6C  l,@ccnull,@ccnul
0000B0: 6C 2C 40 63 63 6E 75 6C 6C 0D 0A 40 63 63 6E 75  l,@ccnull..@ccnu
0000C0: 6C 6C 3A 0D 0A 09 64 62 09 27 6E 6F 6E 61 6D 65  ll:...db.'noname
0000D0: 27 2C 30 09 0D 0A 09 70 61 67 65 0D 0A 40 6F 65  ',0....page..@oe
0000E0: 71 09 65 71 75 09 40 65 71 2D 40 63 6F 6D 70 0D  q.equ.@eq-@comp.
0000F0: 0A 40 6F 6E 65 09 65 71 75 09 40 6E 65 2D 40 63  .@one.equ.@ne-@c
000100: 6F 6D 70 0D 0A 40 6F 67 74 09 65 71 75 09 40 67  omp..@ogt.equ.@g
000110: 74 2D 40 63 6F 6D 70 0D 0A 40 6F 6C 74 09 65 71  t-@comp..@olt.eq
000120: 75 09 40 6C 74 2D 40 63 6F 6D 70 0D 0A 40 6F 67  u.@lt-@comp..@og
000130: 65 09 65 71 75 09 40 67 65 2D 40 63 6F 6D 70 0D  e.equ.@ge-@comp.
000140: 0A 40 6F 6C 65 09 65 71 75 09 40 6C 65 2D 40 63  .@ole.equ.@le-@c
000150: 6F 6D 70 0D 0A 0D 0A 40 6F 75 67 74 09 65 71 75  omp....@ougt.equ
000160: 09 40 75 67 74 2D 40 63 6F 6D 70 0D 0A 40 6F 75  .@ugt-@comp..@ou
000170: 6C 74 09 65 71 75 09 40 75 6C 74 2D 40 63 6F 6D  lt.equ.@ult-@com
000180: 70 0D 0A 40 6F 75 67 65 09 65 71 75 09 40 75 67  p..@ouge.equ.@ug
000190: 65 2D 40 63 6F 6D 70 0D 0A 40 6F 75 6C 65 09 65  e-@comp..@oule.e
0001A0: 71 75 09 40 75 6C 65 2D 40 63 6F 6D 70 0D 0A 0D  qu.@ule-@comp...
0001B0: 0A 40 6F 70 72 65 69 09 65 71 75 09 40 70 72 65  .@oprei.equ.@pre
0001C0: 69 6E 63 2D 40 69 6E 63 64 65 63 0D 0A 40 6F 70  inc-@incdec..@op
0001D0: 72 65 64 09 65 71 75 09 40 70 72 65 64 65 63 2D  red.equ.@predec-
0001E0: 40 69 6E 63 64 65 63 0D 0A 40 6F 70 6F 73 69 09  @incdec..@oposi.
0001F0: 65 71 75 09 40 70 6F 73 74 69 6E 63 2D 40 69 6E  equ.@postinc-@in

Size : 512 (Real : 512)
000000: 6F 76 65 20 65 6E 74 72 79 20 66 72 6F 6D 20 73  ove entry from s
000010: 74 61 63 6B 0D 0A 09 70 63 68 6C 09 09 09 3B 6A  tack...pchl...;j
000020: 75 6D 70 20 74 6F 20 6E 65 65 64 65 64 20 63 61  ump to needed ca
000030: 73 65 20 73 74 61 74 65 6D 65 6E 74 0D 0A 40 73  se statement..@s
000040: 77 69 74 63 68 32 3A 0D 0A 09 69 6E 78 09 68 09  witch2:...inx.h.
000050: 09 3B 6D 6F 76 65 20 70 6F 69 6E 74 65 72 20 74  .;move pointer t
000060: 6F 20 6E 65 78 74 20 65 6E 74 72 79 0D 0A 09 69  o next entry...i
000070: 6E 78 09 68 0D 0A 09 69 6E 78 09 68 0D 0A 09 64  nx.h...inx.h...d
000080: 63 72 09 62 09 09 3B 63 68 65 63 6B 20 74 6F 20  cr.b..;check to 
000090: 73 65 65 20 69 66 20 64 6F 6E 65 20 77 69 74 68  see if done with
0000A0: 20 73 63 61 6E 0D 0A 09 6A 6E 7A 09 40 73 77 69   scan...jnz.@swi
0000B0: 74 63 68 31 0D 0A 09 78 74 68 6C 09 09 09 3B 67  tch1...xthl...;g
0000C0: 65 74 20 61 64 64 72 65 73 73 20 6F 66 20 77 68  et address of wh
0000D0: 65 72 65 20 74 6F 20 67 6F 20 77 68 65 6E 20 64  ere to go when d
0000E0: 6F 6E 65 0D 0A 09 70 6F 70 09 62 09 09 3B 72 65  one...pop.b..;re
0000F0: 6D 6F 76 65 20 65 6E 74 72 79 20 66 72 6F 6D 20  move entry from 
000100: 73 74 61 63 6B 0D 0A 09 70 63 68 6C 09 09 09 3B  stack...pchl...;
000110: 67 6F 20 74 68 65 72 65 0D 0A 3B 0D 0A 3B 09 63  go there..;..;.c
000120: 61 6C 6C 20 61 20 62 69 6F 73 20 72 6F 75 74 69  all a bios routi
000130: 6E 65 20 77 69 74 68 20 62 65 20 6C 6F 61 64 65  ne with be loade
000140: 64 0D 0A 3B 0D 0A 62 69 6F 73 3A 09 63 73 65 63  d..;..bios:.csec
000150: 74 0D 0A 09 70 6F 70 09 68 0D 0A 09 70 6F 70 09  t...pop.h...pop.
000160: 62 0D 0A 09 70 6F 70 09 64 0D 0A 09 70 75 73 68  b...pop.d...push
000170: 09 64 0D 0A 09 70 75 73 68 09 62 0D 0A 09 70 75  .d...push.b...pu
000180: 73 68 09 68 0D 0A 09 6C 68 6C 64 09 31 0D 0A 09  sh.h...lhld.1...
000190: 64 63 78 09 68 0D 0A 20 09 64 63 78 09 68 0D 0A  dcx.h.. .dcx.h..
0001A0: 09 64 63 78 09 68 0D 0A 09 6D 76 69 09 64 2C 30  .dcx.h...mvi.d,0
0001B0: 0D 0A 09 64 61 64 09 64 0D 0A 09 64 61 64 09 64  ...dad.d...dad.d
0001C0: 0D 0A 09 64 61 64 09 64 0D 0A 09 63 61 6C 6C 09  ...dad.d...call.
0001D0: 62 69 6F 73 31 0D 0A 09 6D 6F 76 09 6C 2C 61 0D  bios1...mov.l,a.
0001E0: 0A 09 6D 76 69 09 68 2C 30 0D 0A 09 72 65 74 0D  ..mvi.h,0...ret.
0001F0: 0A 62 69 6F 73 31 3A 09 70 63 68 6C 0D 0A 3B 0D  .bios1:.pchl..;.

Size : 512 (Real : 512)
000000: 63 64 65 63 0D 0A 40 6F 70 6F 73 64 09 65 71 75  cdec..@oposd.equ
000010: 09 40 70 6F 73 74 64 65 63 2D 40 69 6E 63 64 65  .@postdec-@incde
000020: 63 0D 0A 0D 0A 09 65 6E 64 0D 0A 1A 1A 1A 1A 1A  c.....end.......
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 63 70 69 09 27 7A 27 2B 31 09 09 3B 69 73 20 69  cpi.'z'+1..;is i
000010: 74 20 67 72 65 61 74 65 72 20 74 68 65 6E 20 27  t greater then '
000020: 7A 27 0D 0A 09 6A 6E 63 09 69 73 6C 6F 77 77 65  z'...jnc.islowwe
000030: 72 31 09 3B 79 65 73 2E 2E 2E 6E 6F 74 20 6C 6F  r1.;yes...not lo
000040: 77 65 72 20 63 61 73 65 0D 0A 09 6C 78 69 09 68  wer case...lxi.h
000050: 2C 74 72 75 65 09 09 3B 72 65 74 75 72 6E 20 74  ,true..;return t
000060: 72 75 65 20 66 6F 72 20 6C 6F 77 77 65 72 20 63  rue for lowwer c
000070: 61 73 65 0D 0A 09 72 65 74 0D 0A 69 73 6C 6F 77  ase...ret..islow
000080: 77 65 72 31 3A 0D 0A 09 6C 78 69 09 68 2C 66 61  wer1:...lxi.h,fa
000090: 6C 73 65 09 09 3B 72 65 74 75 72 6E 20 66 61 6C  lse..;return fal
0000A0: 73 65 20 66 6F 72 20 61 6E 79 74 68 69 6E 67 20  se for anything 
0000B0: 62 75 74 20 6C 6F 77 77 65 72 20 63 61 73 65 0D  but lowwer case.
0000C0: 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 69 73 64 69  ..ret..;..;.isdi
0000D0: 67 69 74 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69  git..;..;.functi
0000E0: 6F 6E 3A 20 74 6F 20 63 68 65 63 6B 20 74 6F 20  on: to check to 
0000F0: 73 65 65 20 69 66 20 63 68 61 72 61 63 74 65 72  see if character
000100: 20 69 73 20 64 69 67 69 74 20 30 2D 39 20 6F 6E   is digit 0-9 on
000110: 6C 79 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67  ly..;..;.calling
000120: 20 66 6F 72 6D 61 74 20 66 72 6F 6D 20 22 63 22   format from "c"
000130: 0D 0A 3B 09 69 73 64 69 67 69 74 28 63 68 61 72  ..;.isdigit(char
000140: 29 0D 0A 3B 0D 0A 69 73 64 69 67 69 74 3A 63 73  )..;..isdigit:cs
000150: 65 63 74 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09 3B  ect...mov.a,l..;
000160: 67 65 74 20 63 68 61 72 61 63 74 65 72 20 74 6F  get character to
000170: 20 74 65 73 74 0D 0A 09 63 70 69 09 27 30 27 09   test...cpi.'0'.
000180: 09 3B 73 65 65 20 69 66 20 6C 65 73 73 20 74 68  .;see if less th
000190: 65 6E 20 61 20 7A 65 72 6F 0D 0A 09 6A 63 09 69  en a zero...jc.i
0001A0: 73 64 69 67 69 74 31 09 3B 79 65 73 2E 2E 2E 6E  sdigit1.;yes...n
0001B0: 6F 74 20 61 20 76 61 69 6C 64 20 64 69 67 69 74  ot a vaild digit
0001C0: 0D 0A 09 63 70 69 09 27 39 27 2B 31 09 09 3B 69  ...cpi.'9'+1..;i
0001D0: 73 20 69 74 20 67 72 65 61 74 65 72 20 74 68 61  s it greater tha
0001E0: 6E 20 6E 69 6E 65 0D 0A 09 6A 6E 63 09 69 73 64  n nine...jnc.isd
0001F0: 69 67 69 74 31 09 3B 79 65 73 2E 2E 2E 6E 6F 74  igit1.;yes...not

Size : 512 (Real : 512)
000000: 09 74 69 74 6C 65 09 73 6D 61 6C 6C 20 63 20 69  .title.small c i
000010: 2F 6F 20 70 61 63 6B 61 67 65 0D 0A 09 65 78 74  /o package...ext
000020: 72 6E 09 62 69 6F 73 0D 0A 62 64 6F 73 09 65 71  rn.bios..bdos.eq
000030: 75 09 35 09 09 3B 61 64 64 72 65 73 73 20 6F 6E  u.5..;address on
000040: 20 65 6E 74 72 79 20 61 64 64 72 65 73 73 20 66   entry address f
000050: 6F 72 20 62 64 6F 73 0D 0A 63 70 6D 63 6D 64 20  or bdos..cpmcmd 
000060: 20 65 71 75 09 38 30 68 09 09 3B 61 64 64 72 65   equ.80h..;addre
000070: 73 73 20 6F 66 20 63 70 6D 20 63 6F 6D 6D 61 6E  ss of cpm comman
000080: 64 20 6C 69 6E 65 0D 0A 74 72 75 65 09 65 71 75  d line..true.equ
000090: 09 31 09 09 3B 76 61 6C 75 65 20 66 6F 72 20 74  .1..;value for t
0000A0: 72 75 65 0D 0A 66 61 6C 73 65 09 65 71 75 09 30  rue..false.equ.0
0000B0: 09 09 3B 76 61 6C 75 65 20 66 6F 72 20 66 61 6C  ..;value for fal
0000C0: 73 65 09 09 0D 0A 3B 0D 0A 3B 09 74 6F 75 70 70  se....;..;.toupp
0000D0: 65 72 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F  er..;..;.functio
0000E0: 6E 3A 20 74 6F 20 73 68 69 66 74 20 6C 6F 77 65  n: to shift lowe
0000F0: 72 20 63 61 73 65 20 63 68 61 72 61 63 74 65 72  r case character
000100: 20 74 6F 20 75 70 70 65 72 0D 0A 3B 0D 0A 3B 09   to upper..;..;.
000110: 63 61 6C 6C 69 6E 67 20 66 6F 72 6D 61 74 20 66  calling format f
000120: 72 6F 6D 20 22 63 22 0D 0A 3B 09 74 6F 75 70 70  rom "c"..;.toupp
000130: 65 72 28 63 68 61 72 29 3B 0D 0A 3B 0D 0A 74 6F  er(char);..;..to
000140: 75 70 70 65 72 3A 63 73 65 63 74 0D 0A 09 6D 6F  upper:csect...mo
000150: 76 09 61 2C 6C 09 09 3B 67 65 74 20 63 68 61 72  v.a,l..;get char
000160: 61 63 74 65 72 20 74 6F 20 74 65 73 74 0D 0A 09  acter to test...
000170: 63 70 69 09 36 31 68 09 09 3B 63 68 65 63 6B 20  cpi.61h..;check 
000180: 74 6F 20 73 65 65 20 69 66 20 6C 65 73 73 20 74  to see if less t
000190: 68 65 6E 20 27 61 27 0D 0A 09 72 63 09 09 09 3B  hen 'a'...rc...;
0001A0: 79 65 73 20 72 65 74 75 72 6E 20 74 6F 20 63 61  yes return to ca
0001B0: 6C 6C 65 72 0D 0A 09 63 70 69 09 37 62 68 09 09  ller...cpi.7bh..
0001C0: 3B 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66  ;check to see if
0001D0: 20 67 72 65 61 74 65 72 20 74 68 65 6E 20 27 7A   greater then 'z
0001E0: 27 0D 0A 09 72 6E 63 09 09 09 3B 79 65 73 2E 2E  '...rnc...;yes..
0001F0: 72 65 74 75 72 6E 20 74 6F 20 63 61 6C 6C 65 72  return to caller

Size : 512 (Real : 512)
000000: 20 61 20 76 61 69 6C 64 20 64 69 67 69 74 0D 0A   a vaild digit..
000010: 09 6C 78 69 09 68 2C 74 72 75 65 09 09 3B 69 73  .lxi.h,true..;is
000020: 20 61 20 76 61 69 6C 64 20 64 69 67 69 74 0D 0A   a vaild digit..
000030: 09 72 65 74 0D 0A 69 73 64 69 67 69 74 31 3A 0D  .ret..isdigit1:.
000040: 0A 09 6C 78 69 09 68 2C 66 61 6C 73 65 09 09 3B  ..lxi.h,false..;
000050: 6E 6F 74 20 61 20 76 61 69 6C 64 20 64 69 67 69  not a vaild digi
000060: 74 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 69 73  t...ret..;..;.is
000070: 73 70 61 63 65 0D 0A 3B 0D 0A 3B 09 66 75 6E 63  space..;..;.func
000080: 74 69 6F 6E 3A 20 74 6F 20 63 68 65 63 6B 20 74  tion: to check t
000090: 6F 20 73 65 65 20 69 66 20 77 68 69 74 65 20 73  o see if white s
0000A0: 70 61 63 65 20 74 61 62 20 6F 72 20 62 6C 61 6E  pace tab or blan
0000B0: 6B 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20  k..;..;.calling 
0000C0: 66 6F 72 6D 61 74 20 66 72 6F 6D 20 22 63 22 0D  format from "c".
0000D0: 0A 3B 09 69 73 73 70 61 63 65 28 63 68 61 72 29  .;.isspace(char)
0000E0: 0D 0A 3B 0D 0A 69 73 73 70 61 63 65 3A 63 73 65  ..;..isspace:cse
0000F0: 63 74 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09 3B 67  ct...mov.a,l..;g
000100: 65 74 20 63 68 61 72 61 63 74 65 72 20 74 6F 20  et character to 
000110: 63 68 65 63 6B 0D 0A 09 6C 78 69 09 68 2C 74 72  check...lxi.h,tr
000120: 75 65 09 09 3B 61 73 73 75 6D 65 20 74 72 75 65  ue..;assume true
000130: 0D 0A 09 63 70 69 09 27 20 27 09 09 3B 63 68 65  ...cpi.' '..;che
000140: 63 6B 20 66 6F 72 20 61 20 73 70 61 63 65 0D 0A  ck for a space..
000150: 09 72 7A 0D 0A 09 63 70 69 09 39 09 09 3B 63 68  .rz...cpi.9..;ch
000160: 65 63 6B 20 66 6F 72 20 61 20 74 61 62 0D 0A 09  eck for a tab...
000170: 72 7A 0D 0A 09 6C 78 69 09 68 2C 66 61 6C 73 65  rz...lxi.h,false
000180: 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 73 74 72  ...ret..;..;.str
000190: 6C 65 6E 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69  len..;..;.functi
0001A0: 6F 6E 3A 20 74 6F 20 67 65 74 20 74 68 65 20 6C  on: to get the l
0001B0: 65 6E 67 68 74 20 6F 66 20 61 20 73 74 72 69 6E  enght of a strin
0001C0: 67 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20  g..;..;.calling 
0001D0: 66 6F 72 6D 61 74 20 69 6E 20 22 63 22 0D 0A 3B  format in "c"..;
0001E0: 09 6C 65 6E 3D 73 74 72 6C 65 6E 28 73 74 72 69  .len=strlen(stri
0001F0: 6E 67 29 3B 0D 0A 3B 0D 0A 73 74 72 6C 65 6E 3A  ng);..;..strlen:

Size : 512 (Real : 512)
000000: 0D 0A 09 61 6E 69 09 35 66 68 09 09 3B 6D 61 73  ...ani.5fh..;mas
000010: 6B 20 6F 66 66 20 6C 6F 77 77 65 72 20 63 61 73  k off lowwer cas
000020: 65 20 62 69 74 0D 0A 09 6D 6F 76 09 6C 2C 61 09  e bit...mov.l,a.
000030: 09 3B 70 75 74 20 69 74 20 69 6E 20 72 65 67 20  .;put it in reg 
000040: 66 6F 72 20 72 65 74 75 72 6E 0D 0A 09 72 65 74  for return...ret
000050: 09 09 09 3B 72 65 74 75 72 6E 20 74 6F 20 63 61  ...;return to ca
000060: 6C 6C 65 72 0D 0A 3B 0D 0A 3B 09 74 6F 6C 6F 77  ller..;..;.tolow
000070: 77 65 72 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69  wer..;..;.functi
000080: 6F 6E 3A 20 74 6F 20 63 6F 6E 76 65 72 74 20 63  on: to convert c
000090: 68 61 72 61 63 74 65 72 20 74 6F 20 6C 6F 77 77  haracter to loww
0000A0: 65 72 20 63 61 73 65 0D 0A 3B 0D 0A 3B 09 63 61  er case..;..;.ca
0000B0: 6C 6C 69 6E 67 20 66 6F 72 6D 61 74 20 66 72 6F  lling format fro
0000C0: 6D 20 22 63 22 0D 0A 3B 09 74 6F 6C 6F 77 77 65  m "c"..;.tolowwe
0000D0: 72 28 63 68 61 72 29 0D 0A 3B 0D 0A 74 6F 6C 6F  r(char)..;..tolo
0000E0: 77 77 65 72 3A 63 73 65 63 74 0D 0A 09 6D 6F 76  wwer:csect...mov
0000F0: 09 61 2C 6C 09 09 3B 67 65 74 20 63 68 61 72 61  .a,l..;get chara
000100: 63 74 65 72 20 74 6F 20 73 68 69 66 74 20 74 6F  cter to shift to
000110: 20 6C 6F 77 77 65 72 20 63 61 73 65 0D 0A 09 63   lowwer case...c
000120: 70 69 09 27 41 27 09 09 3B 73 65 65 20 69 66 20  pi.'A'..;see if 
000130: 6C 65 73 73 20 74 68 65 6E 20 27 41 27 0D 0A 09  less then 'A'...
000140: 72 63 09 09 09 3B 79 65 73 2E 2E 2E 72 65 74 75  rc...;yes...retu
000150: 72 6E 20 74 6F 20 63 61 6C 6C 65 72 0D 0A 09 63  rn to caller...c
000160: 70 69 09 27 5A 27 2B 31 09 09 3B 73 65 65 20 69  pi.'Z'+1..;see i
000170: 66 20 67 72 65 61 74 65 72 20 74 68 65 6E 20 27  f greater then '
000180: 5A 27 0D 0A 09 72 6E 63 09 09 09 3B 79 65 73 2E  Z'...rnc...;yes.
000190: 2E 2E 72 65 74 75 72 6E 20 74 6F 20 63 61 6C 6C  ..return to call
0001A0: 65 72 0D 0A 09 61 6E 69 09 30 62 66 68 09 09 3B  er...ani.0bfh..;
0001B0: 72 65 6D 6F 76 65 20 75 70 70 65 72 20 63 61 73  remove upper cas
0001C0: 65 20 62 69 74 0D 0A 09 6D 6F 76 09 6C 2C 61 09  e bit...mov.l,a.
0001D0: 09 3B 70 75 74 20 63 68 72 61 63 74 65 72 20 62  .;put chracter b
0001E0: 61 63 6B 20 69 6E 20 70 6C 61 63 65 0D 0A 09 72  ack in place...r
0001F0: 65 74 0D 0A 3B 0D 0A 3B 09 69 73 61 6C 70 68 61  et..;..;.isalpha

Size : 512 (Real : 512)
000000: 09 63 73 65 63 74 0D 0A 09 78 63 68 67 09 09 09  .csect...xchg...
000010: 3B 70 75 74 20 61 64 64 72 65 73 73 20 6F 66 20  ;put address of 
000020: 73 74 72 69 6E 67 20 69 6E 20 64 65 0D 0A 09 6C  string in de...l
000030: 78 69 09 68 2C 30 09 09 3B 6D 61 6B 65 20 73 74  xi.h,0..;make st
000040: 72 69 6E 67 20 6F 66 20 7A 65 72 6F 20 6C 65 6E  ring of zero len
000050: 67 68 74 0D 0A 73 74 72 6C 65 6E 31 3A 0D 0A 09  ght..strlen1:...
000060: 6C 64 61 78 09 64 09 09 3B 67 65 74 20 63 68 61  ldax.d..;get cha
000070: 72 61 63 74 65 72 20 66 72 6F 6D 20 73 74 72 69  racter from stri
000080: 6E 67 0D 0A 09 6F 72 61 09 61 09 09 3B 63 68 65  ng...ora.a..;che
000090: 63 6B 20 74 6F 20 73 65 65 20 69 66 20 65 6E 64  ck to see if end
0000A0: 20 6F 66 20 73 74 72 69 6E 67 0D 0A 09 72 7A 09   of string...rz.
0000B0: 09 09 3B 79 65 73 20 72 65 74 75 72 6E 20 74 6F  ..;yes return to
0000C0: 20 63 61 6C 6C 65 72 0D 0A 09 69 6E 78 09 68 09   caller...inx.h.
0000D0: 09 3B 61 64 64 20 31 20 74 6F 20 73 74 72 69 6E  .;add 1 to strin
0000E0: 67 20 6C 65 6E 67 68 74 0D 0A 09 69 6E 78 09 64  g lenght...inx.d
0000F0: 09 09 3B 6D 6F 76 65 20 74 6F 20 6E 65 78 74 20  ..;move to next 
000100: 63 68 61 72 61 63 74 65 72 0D 0A 09 6A 6D 70 09  character...jmp.
000110: 73 74 72 6C 65 6E 31 09 09 3B 6C 6F 6F 70 20 74  strlen1..;loop t
000120: 69 6C 6C 20 65 6E 64 20 6F 66 20 73 74 72 69 6E  ill end of strin
000130: 67 20 66 6F 75 6E 64 0D 0A 3B 0D 0A 3B 09 73 74  g found..;..;.st
000140: 72 63 70 79 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74  rcpy..;..;.funct
000150: 69 6F 6E 3A 20 74 6F 20 63 6F 70 79 20 66 69 72  ion: to copy fir
000160: 73 74 20 73 65 63 6F 6E 64 20 73 74 72 69 6E 67  st second string
000170: 20 74 6F 20 66 69 72 73 74 20 73 74 72 69 6E 67   to first string
000180: 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66  ..;..;.calling f
000190: 6F 72 6D 61 74 20 66 72 6F 6D 20 22 63 22 0D 0A  ormat from "c"..
0001A0: 3B 09 73 74 72 63 70 79 28 6F 62 6A 65 63 74 2C  ;.strcpy(object,
0001B0: 73 6F 75 72 63 65 29 3B 0D 0A 3B 0D 0A 73 74 72  source);..;..str
0001C0: 63 70 79 3A 09 63 73 65 63 74 0D 0A 09 70 6F 70  cpy:.csect...pop
0001D0: 09 62 09 09 3B 67 65 74 20 72 65 74 75 72 6E 20  .b..;get return 
0001E0: 61 64 64 72 65 73 73 20 66 72 6F 6D 20 73 74 61  address from sta
0001F0: 63 6B 0D 0A 09 70 6F 70 09 64 09 09 3B 67 65 74  ck...pop.d..;get

Size : 512 (Real : 512)
000000: 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 20  ..;..;.function 
000010: 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66 20  check to see if 
000020: 61 6C 70 68 61 20 63 68 61 72 61 63 74 65 72 20  alpha character 
000030: 61 2D 7A 20 6F 72 20 41 2D 5A 20 6F 6E 6C 79 0D  a-z or A-Z only.
000040: 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F  .;..;.calling fo
000050: 72 6D 61 74 20 66 72 6F 6D 20 22 63 22 0D 0A 3B  rmat from "c"..;
000060: 09 69 73 61 6C 70 68 61 28 63 68 61 72 29 0D 0A  .isalpha(char)..
000070: 3B 0D 0A 69 73 61 6C 70 68 61 3A 63 73 65 63 74  ;..isalpha:csect
000080: 0D 0A 09 70 75 73 68 09 68 09 09 3B 73 61 76 65  ...push.h..;save
000090: 20 63 61 6C 6C 69 6E 67 20 61 72 67 20 66 6F 72   calling arg for
0000A0: 20 6C 61 74 65 72 0D 0A 09 63 61 6C 6C 09 69 73   later...call.is
0000B0: 75 70 70 65 72 09 09 3B 63 68 65 63 6B 20 74 6F  upper..;check to
0000C0: 20 73 65 65 20 69 66 20 75 70 70 65 72 20 63 61   see if upper ca
0000D0: 73 65 0D 0A 09 78 63 68 67 09 09 09 3B 70 75 74  se...xchg...;put
0000E0: 20 61 6E 73 77 65 72 20 69 6E 20 64 65 0D 0A 09   answer in de...
0000F0: 70 6F 70 09 68 09 09 3B 67 65 74 20 63 68 61 72  pop.h..;get char
000100: 61 63 74 65 72 20 74 6F 20 74 65 73 74 20 62 61  acter to test ba
000110: 63 6B 0D 0A 09 63 61 6C 6C 09 69 73 6C 6F 77 77  ck...call.isloww
000120: 65 72 09 3B 63 68 65 63 6B 20 74 6F 20 73 65 65  er.;check to see
000130: 20 69 66 20 6C 6F 77 77 65 72 20 63 61 73 65 0D   if lowwer case.
000140: 0A 09 64 61 64 09 64 09 09 3B 61 64 64 20 69 73  ..dad.d..;add is
000150: 75 70 70 65 72 20 74 6F 20 69 73 20 6C 6F 77 77  upper to is loww
000160: 65 72 20 61 6E 73 77 65 72 0D 0A 09 72 65 74 0D  er answer...ret.
000170: 0A 0D 0A 3B 0D 0A 3B 09 69 73 75 70 70 65 72 0D  ...;..;.isupper.
000180: 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 3A 20  .;..;.function: 
000190: 74 6F 20 63 68 65 63 6B 20 74 6F 20 73 65 65 20  to check to see 
0001A0: 69 66 20 63 68 61 72 61 63 74 65 72 20 69 73 20  if character is 
0001B0: 75 70 70 65 72 20 63 61 73 65 0D 0A 3B 0D 0A 3B  upper case..;..;
0001C0: 09 63 61 6C 6C 69 6E 67 20 66 6F 72 6D 61 74 20  .calling format 
0001D0: 69 6E 20 22 63 22 0D 0A 3B 09 69 73 75 70 70 65  in "c"..;.isuppe
0001E0: 72 28 63 68 61 72 29 20 0D 0A 3B 0D 0A 69 73 75  r(char) ..;..isu
0001F0: 70 70 65 72 3A 63 73 65 63 74 0D 0A 09 6D 6F 76  pper:csect...mov

Size : 512 (Real : 512)
000000: 20 73 6F 75 72 63 65 20 61 64 64 72 65 73 73 0D   source address.
000010: 0A 09 70 6F 70 09 68 09 09 3B 67 65 74 20 6F 62  ..pop.h..;get ob
000020: 6A 65 63 74 20 61 64 64 72 65 73 73 0D 0A 09 70  ject address...p
000030: 75 73 68 09 68 09 09 3B 72 65 73 74 6F 72 65 20  ush.h..;restore 
000040: 6D 61 63 68 69 6E 65 20 73 74 61 63 6B 0D 0A 09  machine stack...
000050: 70 75 73 68 09 64 0D 0A 09 70 75 73 68 09 62 0D  push.d...push.b.
000060: 0A 09 70 75 73 68 09 68 0D 0A 73 74 72 63 70 79  ..push.h..strcpy
000070: 31 3A 0D 0A 09 6C 64 61 78 09 64 09 09 3B 67 65  1:...ldax.d..;ge
000080: 74 20 61 64 64 72 65 73 73 20 6F 66 20 73 6F 75  t address of sou
000090: 72 63 65 20 20 63 68 61 72 61 63 74 65 72 0D 0A  rce  character..
0000A0: 09 6D 6F 76 09 6D 2C 61 09 09 3B 73 74 6F 72 65  .mov.m,a..;store
0000B0: 20 63 68 61 72 61 63 74 65 72 20 69 6E 20 6F 62   character in ob
0000C0: 6A 65 63 74 20 73 74 72 69 6E 67 0D 0A 09 6F 72  ject string...or
0000D0: 61 09 61 09 09 3B 63 68 65 63 6B 20 74 6F 20 73  a.a..;check to s
0000E0: 65 65 20 69 66 20 65 6E 64 20 6F 66 20 73 74 72  ee if end of str
0000F0: 69 6E 67 0D 0A 09 6A 7A 09 73 74 72 63 70 79 32  ing...jz.strcpy2
000100: 09 09 3B 65 6E 64 20 6F 66 20 73 74 72 69 6E 67  ..;end of string
000110: 20 72 65 74 75 72 6E 20 74 6F 20 63 61 6C 6C 65   return to calle
000120: 72 0D 0A 09 69 6E 78 09 68 0D 0A 09 69 6E 78 09  r...inx.h...inx.
000130: 64 09 09 3B 6D 6F 76 65 20 70 6F 69 6E 74 65 72  d..;move pointer
000140: 20 74 6F 20 6E 65 78 74 20 62 79 74 65 0D 0A 09   to next byte...
000150: 6A 6D 70 09 73 74 72 63 70 79 31 09 09 3B 6C 6F  jmp.strcpy1..;lo
000160: 6F 70 20 74 69 6C 6C 20 64 6F 6E 65 20 77 69 74  op till done wit
000170: 68 20 63 6F 70 79 0D 0A 73 74 72 63 70 79 32 3A  h copy..strcpy2:
000180: 0D 0A 09 70 6F 70 09 68 09 09 3B 72 65 74 75 72  ...pop.h..;retur
000190: 6E 20 61 64 64 72 65 73 73 20 6F 66 20 6F 62 6A  n address of obj
0001A0: 65 63 74 20 73 74 72 69 6E 67 0D 0A 09 72 65 74  ect string...ret
0001B0: 0D 0A 3B 0D 0A 3B 09 73 74 72 63 61 74 0D 0A 3B  ..;..;.strcat..;
0001C0: 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 3A 20 74 6F  ..;.function: to
0001D0: 20 70 75 74 20 73 74 72 69 6E 67 32 20 61 74 20   put string2 at 
0001E0: 74 68 65 6E 20 65 6E 64 20 6F 66 20 73 74 72 69  then end of stri
0001F0: 6E 67 31 20 61 6E 64 20 72 65 74 75 72 6E 20 61  ng1 and return a

Size : 512 (Real : 512)
000000: 09 61 2C 6C 09 09 3B 67 65 74 20 63 68 61 72 61  .a,l..;get chara
000010: 63 74 65 72 20 74 6F 20 63 68 65 63 6B 0D 0A 09  cter to check...
000020: 63 70 69 09 27 41 27 09 09 3B 73 65 65 20 69 66  cpi.'A'..;see if
000030: 20 6C 65 73 73 20 74 68 65 6E 20 75 70 70 65 72   less then upper
000040: 20 63 61 73 65 20 61 0D 0A 09 6A 63 09 69 73 75   case a...jc.isu
000050: 70 70 65 72 31 09 3B 6E 6F 74 20 75 70 70 65 72  pper1.;not upper
000060: 20 63 61 73 65 0D 0A 09 63 70 69 09 27 5A 27 2B   case...cpi.'Z'+
000070: 31 09 09 3B 63 68 65 63 6B 20 74 6F 20 73 65 65  1..;check to see
000080: 20 69 66 20 6C 65 73 73 20 74 68 65 6E 20 0D 0A   if less then ..
000090: 09 6A 6E 63 09 69 73 75 70 70 65 72 31 09 3B 6E  .jnc.isupper1.;n
0000A0: 6F 20 75 70 70 65 72 20 63 61 73 65 0D 0A 09 6C  o upper case...l
0000B0: 78 69 09 68 2C 74 72 75 65 09 09 3B 79 65 73 20  xi.h,true..;yes 
0000C0: 69 74 20 69 73 20 75 70 70 65 72 20 63 61 73 65  it is upper case
0000D0: 0D 0A 09 72 65 74 0D 0A 69 73 75 70 70 65 72 31  ...ret..isupper1
0000E0: 3A 0D 0A 09 6C 78 69 09 68 2C 66 61 6C 73 65 09  :...lxi.h,false.
0000F0: 09 3B 6E 6F 74 20 75 70 70 65 72 20 63 61 73 65  .;not upper case
000100: 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 69 73 6C  ...ret..;..;.isl
000110: 6F 77 77 65 72 0D 0A 3B 0D 0A 3B 09 66 75 6E 63  owwer..;..;.func
000120: 74 69 6F 6E 3A 20 74 6F 20 63 68 65 63 6B 20 74  tion: to check t
000130: 6F 20 73 65 65 20 69 66 20 63 68 61 72 61 63 74  o see if charact
000140: 65 72 20 69 73 20 6C 6F 77 77 65 72 20 63 61 73  er is lowwer cas
000150: 65 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20  e..;..;.calling 
000160: 66 6F 72 6D 61 74 20 66 72 6F 6D 20 22 63 22 0D  format from "c".
000170: 0A 3B 09 69 73 6C 6F 77 77 65 72 28 63 68 61 72  .;.islowwer(char
000180: 29 0D 0A 3B 0D 0A 69 73 6C 6F 77 77 65 72 3A 63  )..;..islowwer:c
000190: 73 65 63 74 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09  sect...mov.a,l..
0001A0: 3B 67 65 74 20 63 68 61 72 61 63 74 65 72 20 74  ;get character t
0001B0: 6F 20 63 68 65 63 6B 0D 0A 09 63 70 69 09 27 61  o check...cpi.'a
0001C0: 27 09 09 3B 73 65 65 20 69 66 20 6C 65 73 73 20  '..;see if less 
0001D0: 74 68 65 6E 20 27 61 27 0D 0A 09 6A 63 09 69 73  then 'a'...jc.is
0001E0: 6C 6F 77 77 65 72 31 09 3B 79 65 73 2E 2E 2E 6E  lowwer1.;yes...n
0001F0: 6F 74 20 75 70 70 65 72 20 63 61 73 65 0D 0A 09  ot upper case...

Size : 512 (Real : 512)
000000: 64 64 72 65 73 73 20 6F 66 20 0D 0A 3B 09 20 20  ddress of ..;.  
000010: 20 20 20 20 09 20 20 73 74 72 69 6E 67 20 31 0D      .  string 1.
000020: 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F  .;..;.calling fo
000030: 72 6D 61 74 20 69 6E 20 22 63 22 0D 0A 3B 09 73  rmat in "c"..;.s
000040: 74 72 63 61 74 28 73 74 72 69 6E 67 31 2C 73 74  trcat(string1,st
000050: 72 69 6E 67 32 29 3B 0D 0A 3B 0D 0A 73 74 72 63  ring2);..;..strc
000060: 61 74 3A 09 63 73 65 63 74 0D 0A 09 70 6F 70 09  at:.csect...pop.
000070: 62 09 09 3B 67 65 74 20 72 65 74 75 72 6E 20 61  b..;get return a
000080: 64 64 72 65 73 73 0D 0A 09 70 6F 70 09 64 09 09  ddress...pop.d..
000090: 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66 20  ;get address of 
0000A0: 73 74 72 69 6E 67 20 32 0D 0A 09 70 6F 70 09 68  string 2...pop.h
0000B0: 09 09 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F  ..;get address o
0000C0: 66 20 73 74 72 69 6E 67 20 31 0D 0A 09 70 75 73  f string 1...pus
0000D0: 68 09 68 09 09 3B 72 65 74 6F 72 65 20 6D 61 63  h.h..;retore mac
0000E0: 68 69 6E 65 20 73 74 61 63 6B 0D 0A 09 70 75 73  hine stack...pus
0000F0: 68 09 64 0D 0A 09 70 75 73 68 09 62 0D 0A 09 70  h.d...push.b...p
000100: 75 73 68 09 68 09 09 3B 73 61 76 65 20 61 64 64  ush.h..;save add
000110: 72 65 73 73 20 6F 66 20 73 6F 75 72 63 65 20 73  ress of source s
000120: 74 72 69 6E 67 0D 0A 73 74 72 63 61 74 31 3A 0D  tring..strcat1:.
000130: 0A 09 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20  ..mov.a,m..;get 
000140: 63 68 61 72 61 63 74 65 72 20 66 72 6F 6D 20 73  character from s
000150: 6F 75 72 63 65 20 62 75 66 66 65 72 0D 0A 09 6F  ource buffer...o
000160: 72 61 09 61 09 09 3B 63 68 65 63 6B 20 74 6F 20  ra.a..;check to 
000170: 73 65 65 20 69 66 20 7A 65 72 6F 0D 0A 09 6A 7A  see if zero...jz
000180: 09 73 74 72 63 61 74 32 09 09 3B 79 65 73 20 65  .strcat2..;yes e
000190: 6E 64 20 6F 66 20 73 74 72 69 6E 67 20 66 6F 75  nd of string fou
0001A0: 6E 64 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F 76  nd...inx.h..;mov
0001B0: 65 20 70 6F 69 6E 74 65 72 20 74 6F 20 6E 65 78  e pointer to nex
0001C0: 74 20 62 79 74 65 0D 0A 09 6A 6D 70 09 73 74 72  t byte...jmp.str
0001D0: 63 61 74 31 09 09 3B 6C 6F 6F 70 20 74 69 6C 6C  cat1..;loop till
0001E0: 20 65 6E 64 20 6F 66 20 73 74 72 69 6E 67 20 66   end of string f
0001F0: 6F 75 6E 64 0D 0A 73 74 72 63 61 74 32 3A 0D 0A  ound..strcat2:..

Size : 512 (Real : 512)
000000: 61 63 74 69 6F 6E 0D 0A 09 69 6E 78 09 64 09 09  action...inx.d..
000010: 3B 6D 6F 76 65 20 70 6F 69 6E 74 65 72 20 74 6F  ;move pointer to
000020: 20 6E 65 78 74 20 70 6F 69 6E 74 65 72 0D 0A 09   next pointer...
000030: 64 63 78 09 62 09 09 3B 73 75 62 74 72 61 63 74  dcx.b..;subtract
000040: 20 31 20 66 72 6F 6D 20 63 6F 75 6E 74 0D 0A 09   1 from count...
000050: 6A 6D 70 09 73 65 74 6D 65 6D 31 09 09 3B 6C 6F  jmp.setmem1..;lo
000060: 6F 70 20 74 69 6C 6C 20 61 6C 6C 20 62 79 74 65  op till all byte
000070: 73 20 73 65 74 0D 0A 3B 0D 0A 3B 09 6D 6F 76 6D  s set..;..;.movm
000080: 65 6D 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F  em..;..;.functio
000090: 6E 3A 20 74 6F 20 6D 6F 76 65 20 73 6F 75 72 63  n: to move sourc
0000A0: 65 20 61 64 64 72 65 73 73 20 74 6F 20 6F 62 6A  e address to obj
0000B0: 65 63 74 20 61 64 64 72 65 73 73 20 66 6F 72 20  ect address for 
0000C0: 63 6F 75 6E 74 20 62 79 74 65 73 0D 0A 3B 0D 0A  count bytes..;..
0000D0: 3B 09 63 61 6C 6C 69 6E 67 20 66 6F 72 6D 61 74  ;.calling format
0000E0: 20 66 72 6F 6D 20 20 22 43 22 0D 0A 3B 09 6D 6F   from  "C"..;.mo
0000F0: 76 6D 65 6D 28 73 6F 75 72 63 65 2C 6F 62 6A 65  vmem(source,obje
000100: 63 74 2C 63 6F 75 6E 74 29 3B 0D 0A 3B 0D 0A 6D  ct,count);..;..m
000110: 6F 76 6D 65 6D 3A 09 63 73 65 63 74 0D 0A 09 63  ovmem:.csect...c
000120: 61 6C 6C 09 61 72 67 6C 6F 61 64 09 09 3B 67 65  all.argload..;ge
000130: 74 20 61 72 67 73 20 62 63 3D 31 2C 20 64 65 3D  t args bc=1, de=
000140: 32 2C 20 68 6C 3D 33 0D 0A 09 70 75 73 68 09 62  2, hl=3...push.b
000150: 09 09 3B 73 77 69 74 63 68 20 61 72 67 73 20 73  ..;switch args s
000160: 6F 20 74 68 61 74 20 0D 0A 09 70 75 73 68 09 64  o that ...push.d
000170: 09 09 3B 62 63 3D 63 6F 75 6E 74 0D 0A 09 70 75  ..;bc=count...pu
000180: 73 68 09 68 09 09 3B 64 65 3D 6F 62 6A 65 63 74  sh.h..;de=object
000190: 0D 0A 09 70 6F 70 09 62 09 09 3B 68 6C 3D 73 6F  ...pop.b..;hl=so
0001A0: 75 72 63 65 0D 0A 09 70 6F 70 09 68 0D 0A 09 70  urce...pop.h...p
0001B0: 6F 70 09 64 0D 0A 09 6D 6F 76 09 61 2C 62 09 09  op.d...mov.a,b..
0001C0: 3B 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66  ;check to see if
0001D0: 20 63 6F 75 6E 74 20 3D 20 30 0D 0A 09 6F 72 61   count = 0...ora
0001E0: 09 63 0D 0A 09 72 7A 09 09 09 3B 7A 65 72 6F 20  .c...rz...;zero 
0001F0: 72 65 74 75 72 6E 20 74 6F 20 63 61 6C 6C 65 72  return to caller

Size : 512 (Real : 512)
000000: 09 6C 64 61 78 09 64 09 09 3B 67 65 74 20 63 68  .ldax.d..;get ch
000010: 61 72 61 63 74 65 72 20 66 72 6F 6D 20 73 74 72  aracter from str
000020: 69 6E 67 20 32 0D 0A 09 6D 6F 76 09 6D 2C 61 09  ing 2...mov.m,a.
000030: 09 3B 73 61 76 65 20 63 68 61 72 61 63 74 65 72  .;save character
000040: 20 69 6E 20 73 74 72 69 6E 67 31 0D 0A 09 6F 72   in string1...or
000050: 61 09 61 09 09 3B 63 68 65 63 6B 20 74 6F 20 73  a.a..;check to s
000060: 65 65 20 69 66 20 65 6E 64 20 6F 66 20 62 75 66  ee if end of buf
000070: 66 65 72 0D 0A 09 6A 7A 09 73 74 72 63 61 74 33  fer...jz.strcat3
000080: 09 09 3B 79 65 73 20 72 65 74 75 72 6E 20 74 6F  ..;yes return to
000090: 20 63 61 6C 6C 65 72 0D 0A 09 69 6E 78 09 68 09   caller...inx.h.
0000A0: 09 3B 6D 6F 76 65 20 6F 62 6A 65 63 74 20 70 6F  .;move object po
0000B0: 69 6E 74 65 72 20 75 70 20 31 0D 0A 09 69 6E 78  inter up 1...inx
0000C0: 09 64 09 09 3B 6D 6F 76 65 20 73 6F 75 72 63 65  .d..;move source
0000D0: 20 70 6F 69 6E 74 65 72 20 75 70 20 31 0D 0A 09   pointer up 1...
0000E0: 6A 6D 70 09 73 74 72 63 61 74 32 0D 0A 73 74 72  jmp.strcat2..str
0000F0: 63 61 74 33 3A 0D 0A 09 70 6F 70 09 68 09 09 3B  cat3:...pop.h..;
000100: 67 65 74 20 61 64 64 72 65 73 73 20 6F 66 20 73  get address of s
000110: 74 72 69 6E 67 31 0D 0A 09 72 65 74 0D 0A 3B 09  tring1...ret..;.
000120: 73 74 72 70 6F 73 0D 0A 3B 0D 0A 3B 09 66 75 6E  strpos..;..;.fun
000130: 63 74 69 6F 6E 3A 20 74 6F 20 6C 6F 6F 6B 20 66  ction: to look f
000140: 6F 72 20 73 74 72 69 6E 67 20 32 20 69 6E 20 73  or string 2 in s
000150: 74 72 69 6E 67 20 31 0D 0A 3B 0D 0A 3B 09 63 61  tring 1..;..;.ca
000160: 6C 6C 69 6E 67 20 66 6F 72 6D 61 74 20 69 6E 20  lling format in 
000170: 22 63 22 0D 0A 3B 09 73 74 72 70 6F 73 28 73 74  "c"..;.strpos(st
000180: 72 69 6E 67 31 2C 73 74 72 69 6E 67 32 29 3B 0D  ring1,string2);.
000190: 0A 3B 0D 0A 73 74 72 70 6F 73 3A 09 63 73 65 63  .;..strpos:.csec
0001A0: 74 0D 0A 09 63 61 6C 6C 09 61 72 67 6C 6F 61 64  t...call.argload
0001B0: 09 09 3B 67 65 74 20 61 72 67 73 20 6C 6F 61 64  ..;get args load
0001C0: 20 69 6E 74 6F 20 72 65 61 64 20 62 65 3D 31 20   into read be=1 
0001D0: 64 65 3D 32 20 68 6C 3D 33 0D 0A 09 70 75 73 68  de=2 hl=3...push
0001E0: 09 62 0D 0A 09 70 6F 70 09 68 0D 0A 09 6C 78 69  .b...pop.h...lxi
0001F0: 09 62 2C 31 09 09 3B 64 65 3D 73 74 72 69 6E 67  .b,1..;de=string

Size : 512 (Real : 512)
000000: 0D 0A 09 63 61 6C 6C 09 6D 6F 76 6D 65 6D 68 74  ...call.movmemht
000010: 09 3B 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69  .;check to see i
000020: 66 20 73 6F 75 72 63 65 3C 64 65 73 74 0D 0A 09  f source<dest...
000030: 6A 63 09 6D 6F 76 6D 65 6D 74 09 09 3B 6D 6F 76  jc.movmemt..;mov
000040: 65 20 74 69 61 6C 20 66 69 72 73 74 0D 0A 09 6D  e tial first...m
000050: 76 69 09 61 2C 32 09 09 3B 63 68 65 63 6B 20 74  vi.a,2..;check t
000060: 6F 20 73 65 65 20 69 66 20 7A 38 30 0D 0A 09 69  o see if z80...i
000070: 6E 72 09 61 0D 0A 09 6A 70 65 09 6D 6F 76 6D 65  nr.a...jpe.movme
000080: 6D 66 38 09 3B 38 30 38 30 20 64 6F 20 61 20 62  mf8.;8080 do a b
000090: 79 74 65 20 62 79 20 62 79 74 65 20 6D 6F 76 65  yte by byte move
0000A0: 0D 0A 09 64 77 09 30 62 30 65 64 68 0D 0A 09 72  ...dw.0b0edh...r
0000B0: 65 74 0D 0A 6D 6F 76 6D 65 6D 66 38 3A 0D 0A 09  et..movmemf8:...
0000C0: 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20 73 6F  mov.a,m..;get so
0000D0: 75 72 63 65 20 62 79 74 65 0D 0A 09 73 74 61 78  urce byte...stax
0000E0: 09 64 09 09 3B 73 61 76 65 20 62 79 74 65 20 69  .d..;save byte i
0000F0: 6E 20 6F 62 6A 65 63 74 20 62 75 66 66 65 72 0D  n object buffer.
000100: 0A 09 69 6E 78 09 68 09 09 3B 6D 6F 76 65 20 6F  ..inx.h..;move o
000110: 62 6A 65 63 74 20 70 6F 69 6E 74 65 72 20 75 70  bject pointer up
000120: 20 31 0D 0A 09 69 6E 78 09 64 09 09 3B 6D 6F 76   1...inx.d..;mov
000130: 65 20 73 6F 75 72 63 65 20 70 6F 69 6E 74 65 72  e source pointer
000140: 20 75 70 20 31 20 62 79 74 65 0D 0A 09 64 63 78   up 1 byte...dcx
000150: 09 62 09 09 3B 73 75 62 74 72 61 63 74 20 31 20  .b..;subtract 1 
000160: 66 72 6F 6D 20 63 6F 75 6E 74 0D 0A 09 6D 6F 76  from count...mov
000170: 09 61 2C 62 09 09 3B 73 65 65 20 69 66 20 64 6F  .a,b..;see if do
000180: 6E 65 0D 0A 09 6F 72 61 09 63 0D 0A 09 6A 6E 7A  ne...ora.c...jnz
000190: 09 6D 6F 76 6D 65 6D 66 38 09 3B 6E 6F 20 6B 65  .movmemf8.;no ke
0001A0: 65 70 20 6F 6E 20 6C 6F 6F 70 69 6E 67 0D 0A 09  ep on looping...
0001B0: 72 65 74 0D 0A 6D 6F 76 6D 65 6D 74 3A 0D 0A 09  ret..movmemt:...
0001C0: 64 63 78 09 62 09 09 3B 74 61 69 6C 20 66 69 72  dcx.b..;tail fir
0001D0: 73 74 2E 20 63 6F 6D 70 75 74 65 20 6E 65 77 20  st. compute new 
0001E0: 73 6F 75 72 63 65 0D 0A 09 64 61 64 09 62 09 09  source...dad.b..
0001F0: 3B 61 6E 64 20 64 65 73 74 69 6E 61 74 69 6F 6E  ;and destination

Size : 512 (Real : 512)
000000: 32 2C 20 68 6C 3D 73 74 72 69 6E 67 31 20 62 63  2, hl=string1 bc
000010: 3D 30 0D 0A 09 78 63 68 67 0D 0A 73 74 72 70 6F  =0...xchg..strpo
000020: 73 31 3A 0D 0A 09 6C 64 61 78 09 64 09 09 3B 67  s1:...ldax.d..;g
000030: 65 74 20 63 68 61 72 61 63 74 65 72 20 74 6F 20  et character to 
000040: 63 68 65 63 6B 0D 0A 09 6F 72 61 09 61 09 09 3B  check...ora.a..;
000050: 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66 20  check to see if 
000060: 65 6E 64 20 6F 66 20 73 74 72 69 6E 67 0D 0A 09  end of string...
000070: 6A 7A 09 73 74 72 70 6F 73 35 09 09 3B 65 6E 64  jz.strpos5..;end
000080: 20 6F 66 20 73 74 72 69 6E 67 31 20 73 74 72 69   of string1 stri
000090: 6E 67 20 32 20 6E 6F 74 20 66 6F 75 6E 64 20 69  ng 2 not found i
0000A0: 6E 20 73 74 72 69 6E 67 31 0D 0A 09 63 6D 70 09  n string1...cmp.
0000B0: 6D 09 09 3B 69 73 20 69 74 20 65 71 75 61 6C 20  m..;is it equal 
0000C0: 74 6F 20 73 74 72 69 6E 67 32 20 63 68 61 72 61  to string2 chara
0000D0: 63 74 65 72 20 31 0D 0A 09 6A 7A 09 73 74 72 70  cter 1...jz.strp
0000E0: 6F 73 32 09 09 3B 79 65 73 2E 2E 2E 0D 0A 09 69  os2..;yes......i
0000F0: 6E 78 09 64 09 09 3B 6E 6F 20 61 64 64 20 31 20  nx.d..;no add 1 
000100: 74 6F 20 73 74 72 69 6E 67 20 31 20 70 6F 69 6E  to string 1 poin
000110: 74 65 72 0D 0A 09 69 6E 78 09 62 09 09 3B 61 64  ter...inx.b..;ad
000120: 64 20 31 20 74 6F 20 6F 66 66 73 65 74 20 70 6F  d 1 to offset po
000130: 69 6E 74 65 72 0D 0A 09 6A 6D 70 09 73 74 72 70  inter...jmp.strp
000140: 6F 73 31 09 09 3B 6C 6F 6F 70 20 74 69 6C 6C 20  os1..;loop till 
000150: 65 6E 64 20 6F 66 20 73 74 72 69 6E 67 31 20 6F  end of string1 o
000160: 72 20 73 74 72 69 6E 67 32 20 66 6F 75 6E 64 0D  r string2 found.
000170: 0A 73 74 72 70 6F 73 32 3A 0D 0A 09 70 75 73 68  .strpos2:...push
000180: 09 68 09 09 3B 73 61 76 65 20 73 74 72 61 74 69  .h..;save strati
000190: 6E 67 20 61 64 64 72 65 73 73 20 6F 66 20 73 74  ng address of st
0001A0: 72 69 6E 67 20 32 31 0D 0A 09 70 75 73 68 09 64  ring 21...push.d
0001B0: 09 09 3B 73 61 76 65 20 63 75 72 72 65 6E 74 20  ..;save current 
0001C0: 61 64 64 72 65 73 73 20 6F 66 20 73 74 72 69 6E  address of strin
0001D0: 67 20 31 0D 0A 73 74 72 70 6F 73 33 3A 0D 0A 09  g 1..strpos3:...
0001E0: 69 6E 78 09 64 0D 0A 09 69 6E 78 09 68 0D 0A 09  inx.d...inx.h...
0001F0: 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20 63 68  mov.a,m..;get ch

Size : 512 (Real : 512)
000000: 20 61 64 64 72 65 73 73 0D 0A 09 78 63 68 67 0D   address...xchg.
000010: 0A 09 64 61 64 09 62 0D 0A 09 78 63 68 67 0D 0A  ..dad.b...xchg..
000020: 09 6D 76 69 09 61 2C 32 09 09 3B 63 68 65 63 6B  .mvi.a,2..;check
000030: 20 74 6F 20 73 65 65 20 69 66 20 7A 38 30 0D 0A   to see if z80..
000040: 09 69 6E 72 09 61 0D 0A 09 6A 70 65 09 6D 6F 76  .inr.a...jpe.mov
000050: 6D 65 6D 74 38 09 3B 38 30 38 30 20 64 6F 20 61  memt8.;8080 do a
000060: 20 62 79 74 65 20 62 79 20 62 79 74 65 20 6D 6F   byte by byte mo
000070: 76 65 0D 0A 09 64 77 09 30 62 38 65 64 68 0D 0A  ve...dw.0b8edh..
000080: 09 72 65 74 0D 0A 6D 6F 76 6D 65 6D 74 38 3A 0D  .ret..movmemt8:.
000090: 0A 09 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20  ..mov.a,m..;get 
0000A0: 73 6F 75 72 63 65 20 62 79 74 65 0D 0A 09 73 74  source byte...st
0000B0: 61 78 09 64 09 09 3B 73 61 76 65 20 6F 62 6A 65  ax.d..;save obje
0000C0: 63 74 20 62 79 74 65 0D 0A 09 64 63 78 09 68 09  ct byte...dcx.h.
0000D0: 09 3B 6D 6F 76 65 20 74 6F 20 6E 65 78 74 20 62  .;move to next b
0000E0: 79 74 65 20 6F 66 20 73 6F 75 72 63 65 20 62 75  yte of source bu
0000F0: 66 66 65 72 0D 0A 09 64 63 78 09 64 09 09 3B 6D  ffer...dcx.d..;m
000100: 6F 76 65 20 74 6F 20 6E 65 78 74 20 62 79 74 65  ove to next byte
000110: 20 6F 66 20 6F 62 6A 65 63 74 20 62 75 66 66 65   of object buffe
000120: 72 0D 0A 09 64 63 78 09 62 09 09 3B 73 75 62 74  r...dcx.b..;subt
000130: 72 61 63 74 20 31 20 66 72 6F 6D 20 63 6F 75 6E  ract 1 from coun
000140: 74 0D 0A 09 6D 6F 76 09 61 2C 62 09 09 3B 63 65  t...mov.a,b..;ce
000150: 68 63 6B 20 74 6F 20 73 65 65 20 69 66 20 61 6C  hck to see if al
000160: 6C 20 64 6F 6E 65 0D 0A 09 6F 72 61 09 63 0D 0A  l done...ora.c..
000170: 09 6A 6E 7A 09 6D 6F 76 6D 65 6D 74 38 09 3B 6E  .jnz.movmemt8.;n
000180: 6F 20 6B 65 65 70 20 6F 6E 20 6C 6F 6F 70 69 6E  o keep on loopin
000190: 67 0D 0A 09 72 65 74 0D 0A 6D 6F 76 6D 65 6D 68  g...ret..movmemh
0001A0: 74 3A 0D 0A 09 6D 6F 76 09 61 2C 68 0D 0A 09 63  t:...mov.a,h...c
0001B0: 6D 70 09 64 0D 0A 09 72 6E 7A 0D 0A 09 6D 6F 76  mp.d...rnz...mov
0001C0: 09 61 2C 6C 0D 0A 09 63 6D 70 09 65 0D 0A 09 72  .a,l...cmp.e...r
0001D0: 65 74 0D 0A 3B 0D 0A 3B 09 6F 75 74 70 0D 0A 3B  et..;..;.outp..;
0001E0: 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 3A 20 74 6F  ..;.function: to
0001F0: 20 6F 75 74 70 75 74 20 31 20 62 79 74 65 20 74   output 1 byte t

Size : 512 (Real : 512)
000000: 61 72 61 63 74 65 72 20 66 72 6F 6D 20 73 74 72  aracter from str
000010: 69 6E 67 20 32 0D 0A 09 6F 72 61 09 61 09 09 3B  ing 2...ora.a..;
000020: 73 65 74 20 6D 61 63 68 69 6E 65 20 66 6C 61 67  set machine flag
000030: 73 0D 0A 09 6A 7A 09 73 74 72 70 6F 73 34 09 09  s...jz.strpos4..
000040: 3B 65 6E 64 20 6F 66 20 73 74 72 69 6E 67 32 20  ;end of string2 
000050: 66 6F 75 6E 64 20 6D 75 73 74 20 62 65 20 61 20  found must be a 
000060: 6D 61 74 68 63 0D 0A 09 6C 64 61 78 09 64 09 09  mathc...ldax.d..
000070: 3B 67 65 74 20 61 72 67 31 0D 0A 09 63 6D 70 09  ;get arg1...cmp.
000080: 6D 09 09 3B 69 73 20 74 68 69 73 20 63 68 61 72  m..;is this char
000090: 61 63 74 65 72 20 61 20 6D 61 74 63 68 0D 0A 09  acter a match...
0000A0: 6A 7A 09 73 74 72 70 6F 73 33 20 0D 0A 09 70 6F  jz.strpos3 ...po
0000B0: 70 09 64 09 09 3B 72 65 73 74 6F 72 65 20 70 6F  p.d..;restore po
0000C0: 69 6E 74 65 72 20 66 6F 72 20 73 74 72 69 6E 67  inter for string
0000D0: 31 20 61 6E 64 20 73 74 72 69 6E 67 20 32 0D 0A  1 and string 2..
0000E0: 09 70 6F 70 09 68 0D 0A 09 69 6E 78 09 64 09 09  .pop.h...inx.d..
0000F0: 3B 61 64 64 20 31 20 74 6F 20 73 74 72 69 6E 67  ;add 1 to string
000100: 20 70 6F 69 6E 74 65 72 0D 0A 09 69 6E 78 09 62   pointer...inx.b
000110: 09 09 3B 61 64 64 20 31 20 74 6F 20 6F 66 66 73  ..;add 1 to offs
000120: 65 74 20 69 6E 20 73 74 72 69 6E 67 31 0D 0A 09  et in string1...
000130: 6A 6D 70 09 73 74 72 70 6F 73 31 09 09 3B 6C 6F  jmp.strpos1..;lo
000140: 6F 70 20 74 69 6C 6C 20 65 6E 64 20 6F 66 20 73  op till end of s
000150: 74 72 69 6E 67 20 31 0D 0A 73 74 72 70 6F 73 34  tring 1..strpos4
000160: 3A 0D 0A 09 6D 6F 76 09 6C 2C 63 09 09 3B 73 74  :...mov.l,c..;st
000170: 72 69 6E 67 20 66 6F 75 6E 64 20 72 65 74 75 72  ring found retur
000180: 6E 20 6F 66 66 73 65 74 20 66 6F 72 20 63 61 6C  n offset for cal
000190: 6C 65 72 0D 0A 09 6D 6F 76 09 68 2C 62 0D 0A 09  ler...mov.h,b...
0001A0: 70 6F 70 09 62 0D 0A 09 70 6F 70 09 62 0D 0A 09  pop.b...pop.b...
0001B0: 72 65 74 0D 0A 73 74 72 70 6F 73 35 3A 0D 0A 09  ret..strpos5:...
0001C0: 6C 78 69 09 68 2C 30 09 09 3B 73 74 72 69 6E 67  lxi.h,0..;string
0001D0: 20 6E 6F 74 20 66 6F 75 6E 64 0D 0A 09 72 65 74   not found...ret
0001E0: 0D 0A 3B 0D 0A 3B 09 73 65 74 6D 65 6D 0D 0A 3B  ..;..;.setmem..;
0001F0: 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 3A 20 74 6F  ..;.function: to

Size : 512 (Real : 512)
000000: 6F 20 61 20 64 61 74 61 20 70 6F 72 74 0D 0A 3B  o a data port..;
000010: 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F 72 6D  ..;.calling form
000020: 61 74 20 66 72 6F 6D 20 22 43 22 0D 0A 3B 09 6F  at from "C"..;.o
000030: 75 74 70 28 70 6F 72 74 2C 64 61 74 61 29 0D 0A  utp(port,data)..
000040: 3B 0D 0A 6F 75 74 70 3A 09 63 73 65 63 74 0D 0A  ;..outp:.csect..
000050: 09 70 6F 70 09 62 09 09 3B 67 65 74 20 72 65 74  .pop.b..;get ret
000060: 75 72 6E 20 61 64 64 72 65 73 73 0D 0A 09 70 6F  urn address...po
000070: 70 09 68 09 09 3B 67 65 74 20 64 61 74 61 20 66  p.h..;get data f
000080: 6F 72 20 70 6F 72 74 0D 0A 09 70 6F 70 09 64 09  or port...pop.d.
000090: 09 3B 67 65 74 20 70 6F 72 74 20 6E 75 6D 62 65  .;get port numbe
0000A0: 72 0D 0A 09 70 75 73 68 09 64 09 09 3B 72 65 73  r...push.d..;res
0000B0: 74 6F 72 65 20 6D 61 63 68 69 6E 65 20 73 74 61  tore machine sta
0000C0: 63 6B 0D 0A 09 70 75 73 68 09 68 0D 0A 09 70 75  ck...push.h...pu
0000D0: 73 68 09 62 0D 0A 09 6D 6F 76 09 61 2C 65 09 09  sh.b...mov.a,e..
0000E0: 3B 67 65 74 20 70 6F 72 74 20 6E 75 6D 62 65 72  ;get port number
0000F0: 0D 0A 09 73 74 61 09 6F 75 74 70 31 2B 31 09 09  ...sta.outp1+1..
000100: 3B 73 61 76 65 20 70 6F 72 74 20 6E 75 6D 62 65  ;save port numbe
000110: 72 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09 3B 67 65  r...mov.a,l..;ge
000120: 74 20 64 61 74 61 20 74 6F 20 73 65 6E 64 0D 0A  t data to send..
000130: 6F 75 74 70 31 3A 0D 0A 09 6F 75 74 09 30 09 09  outp1:...out.0..
000140: 3B 73 65 6E 64 20 64 61 74 61 20 74 6F 20 70 6F  ;send data to po
000150: 72 74 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 69  rt...ret..;..;.i
000160: 6E 70 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F  np..;..;.functio
000170: 6E 3A 20 74 6F 20 69 6E 70 75 74 20 31 20 62 79  n: to input 1 by
000180: 74 65 20 66 72 6F 6D 20 64 61 74 61 20 70 6F 72  te from data por
000190: 74 20 61 6E 64 20 72 65 74 75 72 6E 20 74 6F 20  t and return to 
0001A0: 63 61 6C 6C 65 72 0D 0A 3B 0D 0A 3B 09 63 61 6C  caller..;..;.cal
0001B0: 6C 69 6E 67 20 66 6F 72 6D 61 74 20 69 6E 20 22  ling format in "
0001C0: 63 22 0D 0A 3B 09 64 61 74 61 3D 69 6E 70 28 70  c"..;.data=inp(p
0001D0: 6F 72 74 29 3B 0D 0A 3B 0D 0A 69 6E 70 3A 09 63  ort);..;..inp:.c
0001E0: 73 65 63 74 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09  sect...mov.a,l..
0001F0: 3B 67 65 74 20 70 6F 72 74 20 6E 75 6D 62 65 72  ;get port number

Size : 512 (Real : 512)
000000: 20 66 69 6C 6C 20 61 20 62 6C 6F 63 6B 20 6F 66   fill a block of
000010: 20 6D 65 6D 6F 72 79 20 77 69 74 68 20 61 20 67   memory with a g
000020: 69 76 65 6E 20 63 6F 6E 73 74 61 6E 74 0D 0A 3B  iven constant..;
000030: 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F 72 6D  ..;.calling form
000040: 61 74 20 69 6E 20 22 63 22 0D 0A 3B 09 73 65 74  at in "c"..;.set
000050: 6D 65 6D 28 61 64 64 72 65 73 73 2C 63 6F 75 6E  mem(address,coun
000060: 74 2C 63 6F 6E 73 74 61 6E 74 29 3B 0D 0A 3B 0D  t,constant);..;.
000070: 0A 73 65 74 6D 65 6D 3A 09 63 73 65 63 74 0D 0A  .setmem:.csect..
000080: 09 70 6F 70 09 62 09 09 3B 67 65 74 20 72 65 74  .pop.b..;get ret
000090: 75 72 6E 20 61 64 64 72 65 73 73 0D 0A 09 70 6F  urn address...po
0000A0: 70 09 68 09 09 3B 67 65 74 20 63 6F 6E 73 74 61  p.h..;get consta
0000B0: 6E 74 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09 3B 70  nt...mov.a,l..;p
0000C0: 75 74 20 63 6F 6E 73 74 61 6E 74 20 69 6E 20 61  ut constant in a
0000D0: 0D 0A 09 70 6F 70 09 62 09 09 3B 67 65 74 20 63  ...pop.b..;get c
0000E0: 6F 75 6E 74 0D 0A 09 70 6F 70 09 64 09 09 3B 67  ount...pop.d..;g
0000F0: 65 74 20 61 64 64 72 65 73 73 0D 0A 09 6C 78 69  et address...lxi
000100: 09 68 2C 38 09 09 3B 6F 66 66 73 65 74 20 69 6E  .h,8..;offset in
000110: 20 74 6F 20 70 75 74 20 73 74 61 63 6B 20 62 61   to put stack ba
000120: 63 6B 0D 0A 09 64 61 64 09 73 70 0D 0A 09 73 70  ck...dad.sp...sp
000130: 68 6C 09 09 09 3B 72 65 73 74 6F 72 65 20 73 74  hl...;restore st
000140: 61 63 6B 20 70 6F 69 6E 74 65 72 0D 0A 09 6D 6F  ack pointer...mo
000150: 76 09 6C 2C 61 09 09 3B 70 6C 61 63 65 20 74 6F  v.l,a..;place to
000160: 20 73 61 76 65 20 63 6F 6E 73 74 61 6E 74 0D 0A   save constant..
000170: 73 65 74 6D 65 6D 31 3A 0D 0A 09 6D 6F 76 09 61  setmem1:...mov.a
000180: 2C 62 09 09 3B 63 68 65 63 6B 20 74 6F 20 73 65  ,b..;check to se
000190: 65 20 69 66 20 63 6F 75 6E 74 20 69 73 20 7A 65  e if count is ze
0001A0: 72 6F 0D 0A 09 6F 72 61 09 63 0D 0A 09 72 7A 09  ro...ora.c...rz.
0001B0: 09 09 3B 61 6C 6C 20 64 6F 6E 65 20 77 69 74 68  ..;all done with
0001C0: 20 6D 6F 76 65 0D 0A 09 6D 6F 76 09 61 2C 6C 09   move...mov.a,l.
0001D0: 09 3B 67 65 74 20 63 6F 6E 73 74 61 6E 74 20 74  .;get constant t
0001E0: 6F 20 73 74 6F 72 65 0D 0A 09 73 74 61 78 09 64  o store...stax.d
0001F0: 09 09 3B 73 65 74 20 6D 65 6D 6F 72 79 20 6C 6F  ..;set memory lo

Size : 512 (Real : 512)
000000: 0D 0A 09 73 74 61 09 69 6E 70 31 2B 31 09 09 3B  ...sta.inp1+1..;
000010: 73 61 76 65 20 70 6F 72 74 20 6E 75 6D 62 65 72  save port number
000020: 20 66 6F 72 20 69 6E 70 75 74 0D 0A 69 6E 70 31   for input..inp1
000030: 3A 0D 0A 09 69 6E 09 30 09 09 3B 69 6E 70 75 74  :...in.0..;input
000040: 20 64 61 74 61 20 66 72 6F 6D 20 70 6F 72 74 0D   data from port.
000050: 0A 09 6D 76 69 09 68 2C 30 09 09 3B 7A 65 72 6F  ..mvi.h,0..;zero
000060: 20 68 69 67 68 20 62 79 74 65 20 6F 66 20 6E 75   high byte of nu
000070: 6D 62 65 72 0D 0A 09 6D 6F 76 09 6C 2C 61 09 09  mber...mov.l,a..
000080: 3B 70 75 74 20 64 61 74 61 20 69 6E 20 72 65 67  ;put data in reg
000090: 20 66 6F 72 20 22 63 22 0D 0A 09 72 65 74 0D 0A   for "c"...ret..
0000A0: 3B 09 0D 0A 3B 09 70 75 74 73 0D 0A 3B 0D 0A 3B  ;...;.puts..;..;
0000B0: 09 66 75 6E 63 74 69 6F 6E 3A 20 74 6F 20 70 72  .function: to pr
0000C0: 69 6E 74 20 61 20 73 74 72 69 6E 67 20 74 6F 20  int a string to 
0000D0: 63 6F 6E 73 6F 6C 65 20 65 6E 64 69 6E 67 20 77  console ending w
0000E0: 69 74 68 20 61 20 6E 75 6C 6C 0D 0A 3B 0D 0A 3B  ith a null..;..;
0000F0: 09 63 61 6C 6C 20 66 6F 72 6D 61 74 20 66 72 6F  .call format fro
000100: 6D 20 22 43 22 0D 0A 3B 0D 0A 3B 09 70 75 74 73  m "C"..;..;.puts
000110: 28 73 74 72 69 6E 67 29 3B 0D 0A 3B 0D 0A 70 75  (string);..;..pu
000120: 74 73 3A 09 63 73 65 63 74 0D 0A 09 70 75 73 68  ts:.csect...push
000130: 09 68 09 09 3B 73 61 76 65 20 63 61 6C 6C 69 6E  .h..;save callin
000140: 67 20 61 64 64 72 65 73 73 20 69 6E 20 73 74 61  g address in sta
000150: 63 6B 0D 0A 70 75 74 73 31 3A 20 20 6D 6F 76 09  ck..puts1:  mov.
000160: 61 2C 6D 09 09 3B 67 65 74 20 63 68 61 72 61 63  a,m..;get charac
000170: 74 65 72 20 74 6F 20 70 72 69 6E 74 0D 0A 09 6F  ter to print...o
000180: 72 61 09 61 09 09 3B 63 68 65 63 6B 20 66 6F 72  ra.a..;check for
000190: 20 7A 65 72 6F 0D 0A 09 6A 7A 09 70 75 74 73 32   zero...jz.puts2
0001A0: 09 09 3B 69 66 20 64 6F 6E 65 20 72 65 74 75 72  ..;if done retur
0001B0: 6E 0D 0A 09 70 75 73 68 09 68 09 09 3B 73 61 76  n...push.h..;sav
0001C0: 65 20 70 6F 69 6E 74 65 72 20 66 6F 72 20 6C 61  e pointer for la
0001D0: 74 65 72 20 75 73 65 72 0D 0A 09 6D 6F 76 09 6C  ter user...mov.l
0001E0: 2C 61 09 09 3B 70 75 74 20 63 68 61 72 61 63 74  ,a..;put charact
0001F0: 65 72 20 69 6E 20 72 65 67 20 66 6F 72 20 70 75  er in reg for pu

Size : 512 (Real : 512)
000000: 6D 62 65 72 20 6F 66 20 63 68 61 72 61 63 74 65  mber of characte
000010: 72 20 69 6E 20 73 74 72 69 6E 67 0D 0A 09 69 6E  r in string...in
000020: 78 09 64 0D 0A 67 65 74 73 31 3A 0D 0A 09 6C 64  x.d..gets1:...ld
000030: 61 78 09 64 09 09 3B 67 65 74 20 63 68 61 72 61  ax.d..;get chara
000040: 63 74 65 72 20 66 72 6F 6D 20 69 6E 70 75 74 20  cter from input 
000050: 62 75 66 66 65 72 0D 0A 09 6D 6F 76 09 6D 2C 61  buffer...mov.m,a
000060: 09 09 3B 73 61 76 65 20 63 68 61 72 61 63 74 65  ..;save characte
000070: 72 20 69 6E 20 62 75 66 66 65 72 0D 0A 09 69 6E  r in buffer...in
000080: 78 09 68 09 09 3B 6D 6F 76 65 20 70 6F 69 6E 74  x.h..;move point
000090: 65 72 20 74 6F 20 6E 65 78 74 20 62 79 74 65 0D  er to next byte.
0000A0: 0A 09 69 6E 78 09 64 09 0D 0A 09 64 63 72 09 62  ..inx.d....dcr.b
0000B0: 09 09 3B 73 65 65 20 69 66 20 61 6C 6C 20 64 6F  ..;see if all do
0000C0: 6E 65 20 77 69 74 68 20 6D 6F 76 65 0D 0A 09 6A  ne with move...j
0000D0: 6E 7A 09 67 65 74 73 31 20 20 20 20 20 09 3B 6E  nz.gets1     .;n
0000E0: 6F 20 6B 65 65 70 20 6F 6E 20 6C 6F 6F 70 69 6E  o keep on loopin
0000F0: 67 0D 0A 67 65 74 73 32 3A 0D 0A 09 6D 76 69 09  g..gets2:...mvi.
000100: 6D 2C 30 09 09 3B 70 75 74 20 65 6E 64 69 6E 67  m,0..;put ending
000110: 20 7A 65 72 6F 20 69 6E 20 73 74 72 69 6E 67 6F   zero in stringo
000120: 0D 0A 09 6D 76 69 09 63 2C 32 09 09 3B 63 70 6D  ...mvi.c,2..;cpm
000130: 20 6F 75 74 70 75 74 20 63 68 61 72 61 63 74 65   output characte
000140: 72 20 66 75 6E 63 74 69 6F 6E 0D 0A 09 6D 76 69  r function...mvi
000150: 09 65 2C 30 61 68 09 09 3B 63 68 61 72 61 63 74  .e,0ah..;charact
000160: 65 72 20 74 6F 20 6F 75 74 70 75 74 0D 0A 09 63  er to output...c
000170: 61 6C 6C 09 62 64 6F 73 09 09 3B 6F 75 74 70 75  all.bdos..;outpu
000180: 74 20 61 20 6C 69 6E 65 66 65 65 64 0D 0A 09 70  t a linefeed...p
000190: 6F 70 09 68 09 09 3B 67 65 74 20 61 64 64 72 65  op.h..;get addre
0001A0: 73 73 20 6F 66 20 69 70 75 74 20 73 74 72 69 6E  ss of iput strin
0001B0: 67 0D 0A 09 72 65 74 09 09 09 3B 61 6C 6C 20 64  g...ret...;all d
0001C0: 6F 6E 65 20 72 65 74 75 72 6E 20 74 6F 20 63 61  one return to ca
0001D0: 6C 6C 65 72 75 0D 0A 3B 0D 0A 3B 09 6B 62 73 74  lleru..;..;.kbst
0001E0: 61 74 0D 0A 3B 0D 0A 3B 09 66 75 6E 74 69 6F 6E  at..;..;.funtion
0001F0: 3A 20 74 6F 20 67 65 74 20 73 74 61 74 75 73 20  : to get status 

Size : 512 (Real : 512)
000000: 73 68 0D 0A 09 63 61 6C 6C 09 70 75 74 63 68 09  sh...call.putch.
000010: 09 3B 70 72 69 6E 74 20 63 68 61 72 61 63 74 65  .;print characte
000020: 72 20 6F 6E 20 63 6F 6E 73 6F 6C 65 0D 0A 09 70  r on console...p
000030: 6F 70 09 68 09 09 3B 67 65 74 20 61 64 64 72 65  op.h..;get addre
000040: 73 73 20 6F 66 20 63 68 61 72 61 63 74 65 72 20  ss of character 
000050: 62 61 63 6B 0D 0A 09 69 6E 78 09 68 09 09 3B 6D  back...inx.h..;m
000060: 6F 76 65 20 74 6F 20 6E 65 78 74 20 63 68 61 72  ove to next char
000070: 61 63 74 65 72 0D 0A 09 6A 6D 70 09 70 75 74 73  acter...jmp.puts
000080: 31 09 09 3B 6C 6F 6F 70 20 74 69 6C 6C 20 64 6F  1..;loop till do
000090: 6E 65 20 77 69 74 68 20 73 74 72 69 6E 67 0D 0A  ne with string..
0000A0: 70 75 74 73 32 3A 0D 0A 09 70 6F 70 09 68 09 09  puts2:...pop.h..
0000B0: 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66 20  ;get address of 
0000C0: 73 74 61 72 74 20 6F 66 20 73 74 72 69 6E 67 0D  start of string.
0000D0: 0A 09 72 65 74 09 09 09 3B 72 65 74 75 72 6E 20  ..ret...;return 
0000E0: 74 6F 20 63 61 6C 6C 65 72 0D 0A 3B 0D 0A 3B 09  to caller..;..;.
0000F0: 63 6F 6E 73 6F 6C 65 20 69 2F 6F 20 66 75 6E 63  console i/o func
000100: 74 69 6F 6E 73 0D 0A 3B 0D 0A 3B 09 70 75 74 63  tions..;..;.putc
000110: 68 0D 0A 3B 0D 0A 3B 09 6F 75 74 70 75 74 20 31  h..;..;.output 1
000120: 20 63 68 61 72 61 63 74 65 72 20 74 6F 20 63 6F   character to co
000130: 6E 73 6F 6C 65 20 61 6E 64 20 64 6F 20 6E 6F 74  nsole and do not
000140: 20 63 68 65 63 6B 20 0D 0A 3B 09 74 6F 20 73 65   check ..;.to se
000150: 65 20 69 66 20 63 68 61 72 61 63 74 65 72 20 69  e if character i
000160: 73 20 72 65 61 64 79 20 61 74 20 63 6F 6E 73 6F  s ready at conso
000170: 6C 65 20 69 6E 70 75 74 0D 0A 3B 0D 0A 3B 09 63  le input..;..;.c
000180: 61 6C 6C 69 6E 67 20 66 6F 72 6D 61 74 20 66 72  alling format fr
000190: 6F 6D 20 22 43 22 0D 0A 3B 09 70 75 74 63 68 28  om "C"..;.putch(
0001A0: 63 29 0D 0A 3B 0D 0A 70 75 74 63 68 3A 09 63 73  c)..;..putch:.cs
0001B0: 65 63 74 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09 3B  ect...mov.a,l..;
0001C0: 67 65 74 20 63 68 61 72 61 63 74 65 72 20 74 6F  get character to
0001D0: 20 70 72 69 6E 74 0D 0A 09 63 70 69 09 30 61 68   print...cpi.0ah
0001E0: 09 09 3B 63 68 65 63 6B 20 66 6F 72 20 6C 69 6E  ..;check for lin
0001F0: 65 20 66 65 65 64 0D 0A 09 6A 6E 7A 09 70 75 74  e feed...jnz.put

Size : 512 (Real : 512)
000000: 6F 66 20 63 70 6D 20 63 6F 6E 73 6F 6C 65 20 72  of cpm console r
000010: 65 74 75 72 6E 73 0D 0A 3B 09 74 72 75 65 20 6F  eturns..;.true o
000020: 72 20 31 20 69 66 20 63 6F 6E 73 6F 6C 65 20 63  r 1 if console c
000030: 68 61 72 61 63 74 65 72 20 69 73 20 72 65 61 64  haracter is read
000040: 79 20 6F 72 0D 0A 3B 09 30 20 69 66 20 63 68 61  y or..;.0 if cha
000050: 72 61 63 74 65 72 20 69 73 20 6E 6F 74 20 72 65  racter is not re
000060: 61 64 79 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 20 66  ady..;..;.call f
000070: 6F 72 6D 61 74 20 66 6F 72 20 63 0D 0A 3B 09 6B  ormat for c..;.k
000080: 62 73 74 61 74 28 29 0D 0A 3B 0D 0A 6B 62 73 74  bstat()..;..kbst
000090: 61 74 3A 20 63 73 65 63 74 0D 0A 09 6D 76 69 09  at: csect...mvi.
0000A0: 63 2C 32 09 09 3B 63 70 6D 20 66 75 6E 63 74 69  c,2..;cpm functi
0000B0: 6F 6E 20 6E 75 6D 62 65 72 20 66 6F 72 20 73 74  on number for st
0000C0: 61 74 75 73 20 63 68 65 63 6B 0D 0A 09 70 75 73  atus check...pus
0000D0: 68 09 62 09 09 3B 73 65 6E 64 20 6A 75 6D 70 20  h.b..;send jump 
0000E0: 6E 75 6D 62 65 72 20 6F 75 74 0D 0A 09 70 75 73  number out...pus
0000F0: 68 09 62 09 09 3B 61 72 67 0D 0A 09 63 61 6C 6C  h.b..;arg...call
000100: 09 62 69 6F 73 09 09 3B 63 61 6C 6C 20 62 69 6F  .bios..;call bio
000110: 73 20 63 6F 6E 73 2D 73 74 61 74 0D 0A 09 70 6F  s cons-stat...po
000120: 70 09 62 09 09 3B 72 65 6D 6F 76 65 20 61 72 67  p.b..;remove arg
000130: 73 20 66 72 6F 6D 20 73 74 61 63 6B 0D 0A 09 70  s from stack...p
000140: 6F 70 09 62 0D 0A 09 6D 6F 76 09 61 2C 6C 09 09  op.b...mov.a,l..
000150: 3B 67 65 74 20 72 65 74 75 72 6E 20 73 74 61 74  ;get return stat
000160: 75 73 20 66 72 6F 6D 20 62 69 6F 73 0D 0A 09 6F  us from bios...o
000170: 72 61 09 61 09 09 3B 73 65 74 20 6D 61 63 68 69  ra.a..;set machi
000180: 6E 65 20 73 74 61 74 75 73 20 72 65 67 2E 0D 0A  ne status reg...
000190: 09 6C 78 69 09 68 2C 30 09 09 3B 6D 61 6B 65 20  .lxi.h,0..;make 
0001A0: 69 74 20 66 61 6C 73 65 20 28 6B 65 79 62 6F 61  it false (keyboa
0001B0: 72 64 20 6E 6F 74 20 72 65 61 64 79 29 0D 0A 09  rd not ready)...
0001C0: 72 7A 09 09 09 3B 72 65 74 75 72 6E 20 74 6F 20  rz...;return to 
0001D0: 63 61 6C 6C 65 72 20 6B 65 79 62 6F 61 72 64 20  caller keyboard 
0001E0: 6E 6F 74 20 72 65 61 64 79 0D 0A 09 6C 78 69 09  not ready...lxi.
0001F0: 68 2C 31 09 09 3B 6B 65 79 62 6F 61 72 64 20 72  h,1..;keyboard r

Size : 512 (Real : 512)
000000: 63 68 31 09 09 3B 6E 6F 2E 2E 2E 2E 2E 0D 0A 09  ch1..;no........
000010: 6D 76 69 09 65 2C 30 64 68 09 09 3B 70 72 69 6E  mvi.e,0dh..;prin
000020: 74 20 72 65 74 75 72 6E 20 0D 0A 09 6D 76 69 09  t return ...mvi.
000030: 63 2C 32 09 09 3B 63 70 6D 20 70 72 69 6E 74 20  c,2..;cpm print 
000040: 6E 75 6D 62 65 72 20 66 75 6E 63 74 69 6F 6E 0D  number function.
000050: 0A 09 63 61 6C 6C 09 62 64 6F 73 09 09 3B 70 72  ..call.bdos..;pr
000060: 69 6E 74 20 63 68 61 72 61 72 63 65 72 20 74 6F  int chararcer to
000070: 20 63 6F 6E 73 6F 6C 65 0D 0A 09 6D 76 69 09 6C   console...mvi.l
000080: 2C 30 61 68 09 09 3B 70 72 69 6E 74 20 6C 69 6E  ,0ah..;print lin
000090: 65 20 66 65 65 64 0D 0A 70 75 74 63 68 31 3A 0D  e feed..putch1:.
0000A0: 0A 09 6D 6F 76 09 65 2C 6C 09 09 3B 70 75 74 20  ..mov.e,l..;put 
0000B0: 63 68 61 72 61 63 74 65 72 20 69 6E 20 63 6F 72  character in cor
0000C0: 72 65 63 74 20 72 65 67 20 66 6F 72 20 63 61 6C  rect reg for cal
0000D0: 6C 0D 0A 09 6D 76 69 09 63 2C 32 09 09 3B 63 70  l...mvi.c,2..;cp
0000E0: 6D 20 6F 75 74 70 75 74 20 66 75 6E 63 74 69 6F  m output functio
0000F0: 6E 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09 09 3B  n...call.bdos..;
000100: 70 72 69 6E 74 20 63 68 61 72 61 63 74 65 72 20  print character 
000110: 74 6F 20 63 6F 6E 73 6F 6C 65 0D 0A 09 72 65 74  to console...ret
000120: 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 3A  ..;..;.function:
000130: 20 74 6F 20 67 65 74 20 31 20 63 68 61 72 61 63   to get 1 charac
000140: 74 65 72 20 66 72 6F 6D 20 63 70 6D 20 63 6F 6E  ter from cpm con
000150: 73 6F 6C 65 20 61 6E 64 20 72 65 74 75 72 6E 0D  sole and return.
000160: 0A 3B 09 09 20 20 63 68 61 72 61 63 74 65 72 20  .;..  character 
000170: 74 6F 20 63 61 6C 6C 65 72 0D 0A 3B 0D 0A 3B 09  to caller..;..;.
000180: 63 61 6C 6C 69 6E 67 20 66 6F 72 6D 61 74 20 69  calling format i
000190: 6E 20 22 43 22 0D 0A 3B 09 63 68 3D 67 65 74 63  n "C"..;.ch=getc
0001A0: 68 28 29 3B 0D 0A 3B 0D 0A 67 65 74 63 68 3A 20  h();..;..getch: 
0001B0: 20 63 73 65 63 74 0D 0A 09 6D 76 69 09 63 2C 31   csect...mvi.c,1
0001C0: 09 09 09 3B 63 70 6D 20 66 75 6E 63 74 69 6F 6E  ...;cpm function
0001D0: 20 6E 75 6D 62 65 72 20 66 6F 72 20 67 65 74 63   number for getc
0001E0: 68 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09 09 09  h...call.bdos...
0001F0: 3B 67 65 74 20 63 68 61 72 61 63 74 65 72 20 66  ;get character f

Size : 512 (Real : 512)
000000: 65 61 64 79 0D 0A 09 72 65 74 09 09 09 3B 61 6C  eady...ret...;al
000010: 6C 20 64 6F 6E 65 20 72 65 74 75 72 6E 20 74 6F  l done return to
000020: 20 63 61 6C 6C 65 72 0D 0A 3B 0D 0A 3B 0D 0A 3B   caller..;..;..;
000030: 09 6F 70 65 6E 0D 0A 3B 0D 0A 3B 09 66 75 6E 63  .open..;..;.func
000040: 74 69 6F 6E 20 74 6F 20 62 75 69 6C 64 20 66 63  tion to build fc
000050: 62 20 61 6E 64 20 74 72 79 20 74 6F 20 6F 70 65  b and try to ope
000060: 6E 20 66 69 6C 65 0D 0A 3B 09 61 64 64 72 65 73  n file..;.addres
000070: 73 20 6F 66 20 66 63 62 20 69 6E 20 64 65 20 77  s of fcb in de w
000080: 68 69 6C 65 20 6E 61 6D 65 20 69 6E 20 68 6C 2E  hile name in hl.
000090: 20 69 66 20 66 69 6C 65 0D 0A 3B 09 69 73 20 6F   if file..;.is o
0000A0: 70 65 6E 20 6F 6B 20 74 68 65 6E 20 30 20 69 73  pen ok then 0 is
0000B0: 20 72 65 74 75 72 6E 20 65 6C 73 65 20 2D 31 20   return else -1 
0000C0: 69 73 20 72 65 74 75 72 6E 0D 0A 3B 0D 0A 3B 09  is return..;..;.
0000D0: 63 61 6C 6C 69 6E 67 20 66 6F 72 6D 61 74 20 66  calling format f
0000E0: 72 6F 6D 20 22 43 22 0D 0A 3B 09 6F 70 65 6E 28  rom "C"..;.open(
0000F0: 66 63 62 2C 66 69 6C 65 6E 61 6D 65 29 0D 0A 3B  fcb,filename)..;
000100: 0D 0A 6F 70 65 6E 3A 09 63 73 65 63 74 0D 0A 09  ..open:.csect...
000110: 70 6F 70 09 62 09 09 3B 67 65 74 20 72 65 74 75  pop.b..;get retu
000120: 72 6E 20 61 64 64 65 73 73 0D 0A 09 70 6F 70 09  rn addess...pop.
000130: 68 09 09 3B 67 65 74 20 61 64 64 72 65 73 73 20  h..;get address 
000140: 6F 66 20 66 69 6C 65 20 6E 61 6D 65 0D 0A 09 70  of file name...p
000150: 6F 70 09 64 09 09 3B 61 64 64 72 65 73 73 20 6F  op.d..;address o
000160: 66 20 66 63 62 0D 0A 09 70 75 73 68 09 64 09 09  f fcb...push.d..
000170: 3B 70 75 74 20 64 61 74 61 20 62 61 63 6B 20 6F  ;put data back o
000180: 6E 20 73 74 61 63 6B 0D 0A 09 70 75 73 68 09 68  n stack...push.h
000190: 0D 0A 09 70 75 73 68 09 62 0D 0A 09 70 75 73 68  ...push.b...push
0001A0: 09 64 09 09 3B 70 75 74 20 61 64 64 72 65 73 73  .d..;put address
0001B0: 20 6F 66 20 66 63 62 20 69 6E 20 73 74 61 63 6B   of fcb in stack
0001C0: 0D 0A 09 70 75 73 68 09 68 09 09 3B 70 75 74 20  ...push.h..;put 
0001D0: 61 64 64 72 65 73 73 20 6F 66 20 66 69 6C 65 20  address of file 
0001E0: 6E 61 6D 65 20 69 6E 20 73 74 61 63 6B 0D 0A 09  name in stack...
0001F0: 63 61 6C 6C 09 73 65 74 66 63 62 09 09 3B 74 72  call.setfcb..;tr

Size : 512 (Real : 512)
000000: 72 6F 6D 20 63 6F 6E 73 6F 6C 65 0D 0A 09 63 70  rom console...cp
000010: 69 09 30 64 68 09 09 09 3B 63 68 65 63 6B 20 74  i.0dh...;check t
000020: 6F 20 73 65 65 20 69 66 20 61 20 72 65 74 75 72  o see if a retur
000030: 6E 0D 0A 09 6A 6E 7A 09 67 65 74 63 68 31 20 20  n...jnz.getch1  
000040: 09 09 3B 6E 6F 20 63 68 65 63 6B 20 66 6F 72 20  ..;no check for 
000050: 61 20 5E 7A 20 65 6E 64 20 6F 66 20 66 69 6C 65  a ^z end of file
000060: 0D 0A 09 6D 76 69 09 64 2C 30 61 68 09 09 09 3B  ...mvi.d,0ah...;
000070: 73 65 6E 64 20 61 20 6C 66 20 74 6F 20 63 6F 6E  send a lf to con
000080: 73 6F 6C 65 0D 0A 09 70 75 73 68 09 63 09 09 09  sole...push.c...
000090: 3B 70 75 74 20 69 74 20 73 74 61 63 6B 20 66 6F  ;put it stack fo
0000A0: 72 20 70 75 74 63 68 0D 0A 09 63 61 6C 6C 09 70  r putch...call.p
0000B0: 75 74 63 68 09 09 09 3B 70 72 69 6E 74 20 63 68  utch...;print ch
0000C0: 61 72 61 63 74 65 72 20 6F 6E 20 63 6F 6E 73 6F  aracter on conso
0000D0: 6C 65 0D 0A 09 6C 78 69 09 68 2C 31 30 09 09 09  le...lxi.h,10...
0000E0: 3B 61 6E 64 20 72 65 74 75 72 6E 20 6C 66 20 28  ;and return lf (
0000F0: 6E 65 77 20 6C 69 6E 65 29 0D 0A 09 72 65 74 0D  new line)...ret.
000100: 0A 67 65 74 63 68 31 3A 0D 0A 09 63 70 69 09 32  .getch1:...cpi.2
000110: 36 09 09 09 3B 63 68 65 63 6B 20 74 6F 20 73 65  6...;check to se
000120: 65 20 69 66 20 65 6E 64 20 6F 66 20 66 69 6C 65  e if end of file
000130: 0D 0A 09 6A 6E 7A 09 67 65 74 63 68 32 20 20 09  ...jnz.getch2  .
000140: 09 3B 6E 6F 74 20 61 20 65 6E 64 20 6F 66 20 66  .;not a end of f
000150: 69 6C 65 20 72 65 74 75 72 6E 20 63 68 61 72 2E  ile return char.
000160: 0D 0A 09 6C 78 69 09 68 2C 2D 31 09 09 09 3B 72  ...lxi.h,-1...;r
000170: 65 74 75 72 6E 20 65 6E 64 20 6F 66 20 66 69 6C  eturn end of fil
000180: 65 20 6D 61 6B 65 72 0D 0A 09 72 65 74 09 09 09  e maker...ret...
000190: 09 3B 61 6C 6C 20 64 6F 6E 65 20 72 65 74 75 72  .;all done retur
0001A0: 6E 20 74 6F 20 63 61 6C 6C 65 72 0D 0A 67 65 74  n to caller..get
0001B0: 63 68 32 3A 0D 0A 09 6D 6F 76 09 6C 2C 61 09 09  ch2:...mov.l,a..
0001C0: 09 3B 6D 6F 76 65 20 63 68 61 72 61 63 74 65 72  .;move character
0001D0: 20 74 6F 20 72 65 74 75 72 6E 20 72 65 67 2E 0D   to return reg..
0001E0: 0A 09 6D 76 69 09 68 2C 30 09 09 09 3B 7A 65 72  ..mvi.h,0...;zer
0001F0: 6F 20 68 69 67 68 20 62 79 74 65 20 6F 66 20 72  o high byte of r

Size : 512 (Real : 512)
000000: 79 20 74 6F 20 73 63 61 6E 20 66 6F 72 20 61 20  y to scan for a 
000010: 66 63 62 0D 0A 09 70 6F 70 09 64 09 09 3B 72 65  fcb...pop.d..;re
000020: 6D 6F 76 65 20 61 64 64 72 65 73 73 20 6F 66 20  move address of 
000030: 66 69 6C 65 20 6E 61 6D 65 20 66 72 6F 6D 20 73  file name from s
000040: 74 61 63 6B 0D 0A 09 70 6F 70 09 64 09 09 3B 72  tack...pop.d..;r
000050: 65 6D 6F 76 65 20 61 64 64 72 65 73 73 20 6F 66  emove address of
000060: 20 66 63 62 20 66 72 6F 6D 20 73 74 61 63 6B 0D   fcb from stack.
000070: 0A 09 69 6E 72 09 6C 09 09 3B 63 68 65 63 6B 20  ..inr.l..;check 
000080: 74 6F 20 73 65 65 20 69 66 20 76 61 69 6C 64 20  to see if vaild 
000090: 72 65 74 75 72 6E 20 63 6F 64 65 0D 0A 09 6A 7A  return code...jz
0000A0: 09 6F 70 65 6E 31 30 09 09 3B 65 72 72 6F 72 20  .open10..;error 
0000B0: 69 6E 76 61 69 6C 64 20 66 69 6C 65 20 6E 61 6D  invaild file nam
0000C0: 65 0D 0A 09 6D 76 69 09 63 2C 31 35 09 09 3B 63  e...mvi.c,15..;c
0000D0: 70 6D 20 66 75 6E 63 74 69 6F 6E 20 74 6F 20 6F  pm function to o
0000E0: 70 65 6E 20 61 20 66 69 6C 65 0D 0A 09 63 61 6C  pen a file...cal
0000F0: 6C 09 62 64 6F 73 09 09 3B 65 78 65 63 75 74 65  l.bdos..;execute
000100: 20 63 70 6D 20 6F 70 65 6E 20 66 75 6E 63 74 69   cpm open functi
000110: 6F 6E 0D 0A 09 69 6E 72 09 61 09 09 3B 73 65 65  on...inr.a..;see
000120: 20 69 66 20 65 72 72 6F 72 20 6F 70 65 6E 69 6E   if error openin
000130: 67 20 66 69 6C 65 0D 0A 09 6A 7A 09 6F 70 65 6E  g file...jz.open
000140: 31 30 09 09 3B 65 72 72 6F 72 20 66 69 6C 65 20  10..;error file 
000150: 6E 6F 74 20 66 6F 75 6E 64 0D 0A 09 6C 78 69 09  not found...lxi.
000160: 68 2C 30 09 09 3B 73 65 74 20 72 65 74 75 72 6E  h,0..;set return
000170: 20 63 6F 64 65 20 74 6F 20 7A 65 72 6F 0D 0A 09   code to zero...
000180: 72 65 74 09 09 09 3B 72 65 74 75 72 6E 20 74 6F  ret...;return to
000190: 20 63 61 6C 6C 65 72 0D 0A 6F 70 65 6E 31 30 3A   caller..open10:
0001A0: 0D 0A 09 6C 78 69 09 68 2C 2D 31 09 09 3B 65 72  ...lxi.h,-1..;er
0001B0: 72 6F 72 20 72 65 74 75 72 6E 20 63 6F 64 65 0D  ror return code.
0001C0: 0A 09 72 65 74 09 09 09 3B 72 65 74 75 72 6E 20  ..ret...;return 
0001D0: 74 6F 20 63 61 6C 6C 65 72 0D 0A 3B 0D 0A 3B 09  to caller..;..;.
0001E0: 63 72 65 61 74 65 0D 0A 3B 0D 0A 3B 09 66 75 6E  create..;..;.fun
0001F0: 63 74 69 6F 6E 20 74 6F 20 62 75 69 6C 64 20 66  ction to build f

Size : 512 (Real : 512)
000000: 65 75 74 72 6E 0D 0A 09 72 65 74 0D 0A 3B 0D 0A  eutrn...ret..;..
000010: 3B 09 67 65 74 73 0D 0A 3B 0D 0A 3B 09 66 75 6E  ;.gets..;..;.fun
000020: 63 74 69 6F 6E 3A 20 74 6F 20 67 65 74 20 61 20  ction: to get a 
000030: 73 74 72 69 6E 67 20 66 72 6F 6D 20 63 6F 6E 73  string from cons
000040: 6F 6C 65 20 61 6E 64 20 72 65 74 75 72 6E 20 61  ole and return a
000050: 64 64 72 65 73 73 0D 0A 3B 09 20 20 20 20 20 20  ddress..;.      
000060: 20 20 20 20 6F 66 20 69 6E 70 75 74 20 73 74 72      of input str
000070: 69 6E 67 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E  ing..;..;.callin
000080: 67 20 66 6F 72 6D 61 74 20 66 72 6F 6D 20 22 43  g format from "C
000090: 22 0D 0A 3B 09 67 65 74 73 28 73 74 72 69 6E 67  "..;.gets(string
0000A0: 29 3B 0D 0A 3B 0D 0A 67 65 74 73 3A 09 63 73 65  );..;..gets:.cse
0000B0: 63 74 0D 0A 09 70 75 73 68 09 68 09 09 3B 73 61  ct...push.h..;sa
0000C0: 76 65 20 61 64 64 72 65 73 73 20 6F 66 20 73 74  ve address of st
0000D0: 72 69 6E 67 0D 0A 09 70 75 73 68 09 68 0D 0A 09  ring...push.h...
0000E0: 6D 76 69 09 6D 2C 32 35 30 09 09 3B 73 61 76 65  mvi.m,250..;save
0000F0: 20 66 6F 72 20 62 64 6F 73 20 63 61 6C 6C 0D 0A   for bdos call..
000100: 09 6D 76 69 09 63 2C 31 30 09 09 3B 63 70 6D 20  .mvi.c,10..;cpm 
000110: 72 65 61 64 20 73 74 72 69 6E 67 20 66 75 6E 63  read string func
000120: 74 69 6F 6E 0D 0A 09 78 63 68 67 09 09 09 3B 70  tion...xchg...;p
000130: 75 74 20 61 64 64 72 65 73 73 20 6F 66 20 73 74  ut address of st
000140: 72 69 6E 67 20 69 6E 20 64 65 20 66 6F 72 20 63  ring in de for c
000150: 70 6D 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09 09  pm...call.bdos..
000160: 3B 63 61 6C 6C 20 63 70 6D 20 74 6F 20 72 65 61  ;call cpm to rea
000170: 64 20 73 74 72 69 6E 67 20 69 6E 0D 0A 09 70 6F  d string in...po
000180: 70 09 64 09 09 3B 67 65 74 20 61 64 64 72 65 73  p.d..;get addres
000190: 73 20 6F 66 20 69 6E 70 75 74 20 73 74 72 69 6E  s of input strin
0001A0: 67 20 62 61 63 6B 0D 0A 09 6D 6F 76 09 68 2C 64  g back...mov.h,d
0001B0: 09 09 3B 70 75 74 20 61 64 64 72 65 73 73 20 69  ..;put address i
0001C0: 6E 20 68 6C 0D 0A 09 6D 6F 76 09 6C 2C 65 0D 0A  n hl...mov.l,e..
0001D0: 09 69 6E 78 09 64 09 09 3B 6D 6F 76 65 20 74 6F  .inx.d..;move to
0001E0: 20 6C 65 6E 67 68 74 20 63 6F 75 6E 74 0D 0A 09   lenght count...
0001F0: 6D 6F 76 09 62 2C 6D 09 09 3B 67 65 74 20 6E 75  mov.b,m..;get nu

Size : 512 (Real : 512)
000000: 63 62 20 61 6E 64 20 64 65 6C 65 74 65 20 66 69  cb and delete fi
000010: 6C 65 20 74 68 65 6E 0D 0A 3B 09 74 72 79 20 74  le then..;.try t
000020: 6F 20 63 72 65 61 74 65 20 66 69 6C 65 20 61 64  o create file ad
000030: 64 72 65 73 73 20 6F 66 20 66 63 62 20 69 6E 20  dress of fcb in 
000040: 64 65 20 0D 0A 3B 09 77 68 69 6C 65 20 6E 61 6D  de ..;.while nam
000050: 65 20 69 6E 20 68 6C 2E 20 69 66 20 66 69 6C 65  e in hl. if file
000060: 20 69 73 20 63 72 65 61 74 65 64 20 6F 6B 0D 0A   is created ok..
000070: 3B 09 30 20 69 73 20 72 65 74 75 72 6E 20 65 6C  ;.0 is return el
000080: 73 65 20 2D 31 20 69 73 20 72 65 74 75 72 6E 0D  se -1 is return.
000090: 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F  .;..;.calling fo
0000A0: 72 6D 61 74 20 66 72 6F 6D 20 22 43 22 0D 0A 3B  rmat from "C"..;
0000B0: 09 63 72 65 61 74 65 28 66 63 62 2C 66 69 6C 65  .create(fcb,file
0000C0: 6E 61 6D 65 29 0D 0A 3B 0D 0A 63 72 65 61 74 65  name)..;..create
0000D0: 3A 09 63 73 65 63 74 0D 0A 09 70 6F 70 09 62 09  :.csect...pop.b.
0000E0: 09 3B 67 65 74 20 72 65 74 75 72 6E 20 61 64 64  .;get return add
0000F0: 72 65 73 73 0D 0A 09 70 6F 70 09 68 09 09 3B 67  ress...pop.h..;g
000100: 65 74 20 61 64 64 72 65 73 73 20 6F 66 20 66 69  et address of fi
000110: 6C 65 20 6E 61 6D 65 0D 0A 09 70 6F 70 09 64 09  le name...pop.d.
000120: 09 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66  .;get address of
000130: 20 66 63 62 0D 0A 20 09 70 75 73 68 09 64 09 09   fcb.. .push.d..
000140: 3B 70 75 74 20 64 61 74 61 20 62 61 63 6B 20 6F  ;put data back o
000150: 6E 20 73 74 61 63 6B 0D 0A 09 70 75 73 68 09 68  n stack...push.h
000160: 0D 0A 09 70 75 73 68 09 62 0D 0A 09 70 75 73 68  ...push.b...push
000170: 09 64 09 09 3B 73 65 74 20 75 70 20 61 72 67 20  .d..;set up arg 
000180: 6C 69 73 74 20 66 6F 72 20 73 65 74 66 63 62 0D  list for setfcb.
000190: 0A 09 70 75 73 68 09 68 0D 0A 09 63 61 6C 6C 09  ..push.h...call.
0001A0: 73 65 74 66 63 62 09 09 3B 74 72 79 20 74 6F 73  setfcb..;try tos
0001B0: 63 61 6E 20 61 6E 64 20 62 75 69 6C 64 20 66 63  can and build fc
0001C0: 62 0D 0A 09 70 6F 70 09 64 09 09 3B 72 65 6D 6F  b...pop.d..;remo
0001D0: 76 65 20 61 72 67 20 66 6F 72 20 73 65 74 66 63  ve arg for setfc
0001E0: 62 20 66 72 6F 6D 20 73 74 61 63 6B 0D 0A 09 70  b from stack...p
0001F0: 6F 70 09 64 0D 0A 09 69 6E 72 09 6C 09 09 3B 73  op.d...inr.l..;s

Size : 512 (Real : 512)
000000: 31 31 3A 0D 0A 09 6C 78 69 09 68 2C 33 36 09 09  11:...lxi.h,36..
000010: 3B 6E 75 6D 62 65 72 20 6F 66 20 62 79 74 65 20  ;number of byte 
000020: 74 6F 20 6D 6F 76 65 20 62 61 63 6B 0D 0A 09 64  to move back...d
000030: 61 64 09 73 70 09 09 3B 61 64 64 20 74 6F 20 63  ad.sp..;add to c
000040: 75 72 72 65 6E 74 20 73 74 61 63 6B 20 70 6F 69  urrent stack poi
000050: 6E 74 65 72 0D 0A 09 73 70 68 6C 09 09 09 3B 70  nter...sphl...;p
000060: 75 74 20 6E 65 77 20 76 61 6C 75 65 20 69 6E 20  ut new value in 
000070: 73 74 61 63 6B 20 70 6F 69 6E 74 65 72 0D 0A 09  stack pointer...
000080: 78 63 68 67 09 09 09 3B 70 75 74 20 72 65 74 75  xchg...;put retu
000090: 72 6E 20 63 6F 64 65 20 69 6E 20 68 6C 0D 0A 09  rn code in hl...
0000A0: 72 65 74 09 09 09 3B 61 6C 6C 20 64 6F 6E 65 20  ret...;all done 
0000B0: 72 65 74 75 72 6E 20 74 6F 20 63 61 6C 6C 65 72  return to caller
0000C0: 0D 0A 3B 0D 0A 3B 09 72 65 61 64 0D 0A 3B 0D 0A  ..;..;.read..;..
0000D0: 3B 09 66 75 6E 63 74 69 6F 6E 20 74 6F 20 72 65  ;.function to re
0000E0: 61 64 20 78 20 72 65 63 6F 72 64 20 66 72 6F 6D  ad x record from
0000F0: 20 64 69 73 6B 20 61 6E 64 20 72 65 74 75 72 6E   disk and return
000100: 0D 0A 3B 09 6E 75 6D 62 65 72 20 6F 66 20 72 65  ..;.number of re
000110: 63 6F 72 64 20 72 65 61 64 20 6F 72 20 2D 31 0D  cord read or -1.
000120: 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F  .;..;.calling fo
000130: 72 6D 61 74 20 66 72 6F 6D 20 22 43 22 0D 0A 3B  rmat from "C"..;
000140: 09 72 65 61 64 28 66 63 62 2C 62 75 66 66 65 72  .read(fcb,buffer
000150: 2C 63 6F 75 6E 74 29 3B 0D 0A 3B 0D 0A 72 65 61  ,count);..;..rea
000160: 64 3A 09 63 73 65 63 74 0D 0A 09 6C 78 69 09 68  d:.csect...lxi.h
000170: 2C 32 09 09 3B 6F 66 66 73 65 74 20 69 6E 20 73  ,2..;offset in s
000180: 74 61 63 6B 20 74 69 6C 6C 20 63 6F 75 6E 74 0D  tack till count.
000190: 0A 09 64 61 64 09 73 70 09 09 3B 67 65 74 20 61  ..dad.sp..;get a
0001A0: 64 64 72 65 73 73 20 6F 66 20 6E 75 6D 62 65 72  ddress of number
0001B0: 20 6F 66 20 72 65 63 6F 72 64 20 74 6F 20 72 65   of record to re
0001C0: 61 64 0D 0A 09 6D 6F 76 09 61 2C 6D 09 09 3B 67  ad...mov.a,m..;g
0001D0: 65 74 20 6C 6F 77 20 62 79 74 65 20 6F 66 20 63  et low byte of c
0001E0: 6F 75 6E 74 0D 0A 09 6D 6F 76 09 65 2C 6D 09 09  ount...mov.e,m..
0001F0: 3B 73 61 76 65 20 66 6F 72 20 6C 61 74 65 72 20  ;save for later 

Size : 512 (Real : 512)
000000: 65 65 20 69 66 20 65 72 72 6F 72 20 69 6E 20 66  ee if error in f
000010: 69 6C 65 20 6E 61 6D 65 0D 0A 09 6A 7A 09 63 72  ile name...jz.cr
000020: 65 61 74 65 31 30 09 3B 65 72 72 6F 72 20 69 6E  eate10.;error in
000030: 20 66 69 6C 65 20 6E 61 6D 65 0D 0A 09 70 75 73   file name...pus
000040: 68 09 64 09 09 3B 73 61 76 65 20 61 64 64 72 65  h.d..;save addre
000050: 73 73 20 6F 66 20 66 63 62 0D 0A 09 6D 76 69 09  ss of fcb...mvi.
000060: 63 2C 31 39 09 09 3B 63 70 6D 20 66 75 6E 63 74  c,19..;cpm funct
000070: 69 6F 6E 20 74 6F 20 64 65 6C 65 74 65 20 61 20  ion to delete a 
000080: 66 69 6C 65 0D 0A 09 63 61 6C 6C 09 62 64 6F 73  file...call.bdos
000090: 09 09 3B 63 61 6C 6C 20 62 64 6F 73 20 74 6F 20  ..;call bdos to 
0000A0: 64 6F 20 6E 65 65 64 65 64 20 66 75 6E 63 74 69  do needed functi
0000B0: 6F 6E 0D 0A 09 70 6F 70 09 64 09 09 3B 72 65 73  on...pop.d..;res
0000C0: 74 6F 72 65 20 61 64 64 72 65 73 73 20 6F 66 20  tore address of 
0000D0: 66 63 62 20 74 6F 20 63 72 65 61 74 65 0D 0A 09  fcb to create...
0000E0: 6D 76 69 09 63 2C 32 32 09 09 3B 63 70 6D 20 66  mvi.c,22..;cpm f
0000F0: 75 6E 63 74 69 6F 6E 20 74 6F 20 6D 61 6B 65 20  unction to make 
000100: 66 69 6C 65 0D 0A 09 63 61 6C 6C 09 62 64 6F 73  file...call.bdos
000110: 09 09 3B 63 61 6C 6C 20 62 6F 64 73 20 74 6F 20  ..;call bods to 
000120: 64 6F 20 6E 65 65 64 65 64 20 66 75 6E 63 74 69  do needed functi
000130: 6F 6E 0D 0A 09 69 6E 72 09 61 09 09 3B 63 68 65  on...inr.a..;che
000140: 63 6B 20 74 6F 20 73 65 65 20 69 66 20 65 72 72  ck to see if err
000150: 6F 72 0D 0A 09 6A 7A 09 63 72 65 61 74 65 31 30  or...jz.create10
000160: 09 3B 65 72 72 6F 72 20 75 6E 61 62 6C 65 20 74  .;error unable t
000170: 6F 20 63 72 65 61 74 20 66 69 6C 65 0D 0A 09 6C  o creat file...l
000180: 78 69 09 68 2C 30 09 09 3B 65 76 65 72 79 20 74  xi.h,0..;every t
000190: 68 69 6E 67 20 6F 6B 20 73 65 74 20 72 65 74 75  hing ok set retu
0001A0: 72 6E 20 63 6F 64 65 20 74 6F 20 7A 65 72 6F 0D  rn code to zero.
0001B0: 0A 09 72 65 74 09 09 09 3B 72 65 74 75 72 6E 20  ..ret...;return 
0001C0: 74 6F 20 63 61 6C 6C 65 72 0D 0A 63 72 65 61 74  to caller..creat
0001D0: 65 31 30 3A 0D 0A 09 6C 78 69 09 68 2C 2D 31 09  e10:...lxi.h,-1.
0001E0: 09 3B 65 72 72 6F 72 20 73 65 74 20 72 65 74 75  .;error set retu
0001F0: 72 6E 20 63 6F 64 65 20 74 6F 20 2D 31 0D 0A 09  rn code to -1...

Size : 512 (Real : 512)
000000: 75 73 65 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F  use...inx.h..;mo
000010: 76 65 20 74 6F 20 68 69 67 68 20 62 79 74 65 20  ve to high byte 
000020: 6F 66 20 63 6F 75 6E 74 0D 0A 09 6F 72 61 09 6D  of count...ora.m
000030: 09 09 3B 73 65 65 20 69 66 20 31 36 20 62 69 74  ..;see if 16 bit
000040: 20 63 6F 75 6E 74 20 69 73 20 7A 65 72 6F 0D 0A   count is zero..
000050: 09 6D 6F 76 09 64 2C 6D 09 09 3B 67 65 74 20 68  .mov.d,m..;get h
000060: 69 67 68 20 62 79 74 65 20 6F 66 20 63 6F 75 6E  igh byte of coun
000070: 74 20 0D 0A 09 6A 7A 09 72 65 61 64 31 09 09 3B  t ...jz.read1..;
000080: 79 65 73 20 64 6F 20 6E 6F 74 20 72 65 61 64 20  yes do not read 
000090: 61 6E 79 20 6D 6F 72 65 20 72 65 63 6F 72 64 73  any more records
0000A0: 0D 0A 09 64 63 78 09 64 09 09 3B 73 75 62 74 72  ...dcx.d..;subtr
0000B0: 61 63 74 20 31 20 66 72 6F 6D 20 63 6F 75 6E 74  act 1 from count
0000C0: 0D 0A 09 6D 6F 76 09 6D 2C 64 09 09 3B 70 75 74  ...mov.m,d..;put
0000D0: 20 68 69 67 68 20 62 79 74 65 20 62 61 63 6B 0D   high byte back.
0000E0: 0A 09 64 63 78 09 68 09 09 3B 70 6F 69 6E 74 20  ..dcx.h..;point 
0000F0: 74 6F 20 68 69 67 68 20 62 79 74 65 0D 0A 09 6D  to high byte...m
000100: 6F 76 09 6D 2C 65 09 09 3B 73 61 76 65 20 6C 6F  ov.m,e..;save lo
000110: 77 20 62 79 74 65 0D 0A 09 69 6E 78 09 68 09 09  w byte...inx.h..
000120: 3B 6D 6F 76 65 20 74 6F 20 62 75 66 66 65 72 20  ;move to buffer 
000130: 61 64 64 72 65 73 73 0D 0A 09 69 6E 78 09 68 0D  address...inx.h.
000140: 0A 09 6D 6F 76 09 65 2C 6D 09 09 3B 67 65 74 20  ..mov.e,m..;get 
000150: 61 64 64 72 65 73 73 20 6F 66 20 62 75 66 66 65  address of buffe
000160: 72 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F 76 65  r...inx.h..;move
000170: 20 74 6F 20 68 69 67 68 20 62 79 74 65 20 6F 66   to high byte of
000180: 20 61 64 64 72 65 73 73 0D 0A 09 70 75 73 68 09   address...push.
000190: 68 09 09 3B 73 61 76 65 20 63 75 72 72 65 6E 74  h..;save current
0001A0: 20 70 6F 69 6E 74 65 72 20 6F 6E 20 73 74 61 63   pointer on stac
0001B0: 6B 0D 0A 09 6D 6F 76 09 64 2C 6D 09 09 3B 67 65  k...mov.d,m..;ge
0001C0: 74 20 68 69 67 68 20 62 79 74 65 20 6F 66 20 61  t high byte of a
0001D0: 64 64 72 65 73 73 0D 0A 09 6D 76 69 09 63 2C 32  ddress...mvi.c,2
0001E0: 36 09 09 3B 73 65 74 20 64 6D 61 20 61 64 64 72  6..;set dma addr
0001F0: 65 73 73 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09  ess...call.bdos.

Size : 512 (Real : 512)
000000: 72 65 74 0D 0A 3B 0D 0A 3B 09 63 6C 6F 73 65 0D  ret..;..;.close.
000010: 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 20 74  .;..;.function t
000020: 6F 20 63 6C 6F 73 65 20 61 20 66 69 6C 65 20 74  o close a file t
000030: 68 61 74 20 69 73 20 63 75 72 72 65 6E 74 20 6F  hat is current o
000040: 70 65 6E 2E 0D 0A 3B 09 61 64 64 72 65 73 73 20  pen...;.address 
000050: 6F 66 20 66 63 62 20 69 6E 20 64 65 2E 20 69 66  of fcb in de. if
000060: 20 61 62 6C 65 20 74 6F 20 63 6C 6F 73 65 20 66   able to close f
000070: 69 6C 65 20 6F 20 69 73 0D 0A 3B 09 69 73 20 72  ile o is..;.is r
000080: 65 74 75 72 6E 20 6F 72 20 2D 31 20 69 66 20 75  eturn or -1 if u
000090: 6E 61 62 6C 65 20 74 6F 20 63 6C 6F 73 65 0D 0A  nable to close..
0000A0: 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F 72  ;..;.calling for
0000B0: 6D 61 74 20 66 72 6F 6D 20 22 43 22 0D 0A 3B 09  mat from "C"..;.
0000C0: 63 6C 6F 73 65 28 66 63 62 29 0D 0A 3B 0D 0A 63  close(fcb)..;..c
0000D0: 6C 6F 73 65 3A 09 63 73 65 63 74 0D 0A 09 70 6F  lose:.csect...po
0000E0: 70 09 62 09 09 3B 72 65 74 75 72 6E 20 61 64 64  p.b..;return add
0000F0: 72 65 73 73 0D 0A 09 70 6F 70 09 64 09 09 3B 61  ress...pop.d..;a
000100: 64 64 72 65 73 73 20 6F 66 20 66 63 62 0D 0A 09  ddress of fcb...
000110: 70 75 73 68 09 64 09 09 3B 70 75 74 20 64 61 74  push.d..;put dat
000120: 61 20 62 61 63 6B 20 69 6E 20 73 74 61 63 6B 0D  a back in stack.
000130: 0A 09 70 75 73 68 09 62 0D 0A 09 6D 76 69 09 63  ..push.b...mvi.c
000140: 2C 31 36 09 09 3B 63 70 6D 20 66 75 6E 63 74 69  ,16..;cpm functi
000150: 6F 6E 20 74 6F 20 63 6C 6F 73 65 20 61 20 66 69  on to close a fi
000160: 6C 65 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09 09  le...call.bdos..
000170: 3B 63 61 6C 6C 20 63 70 6D 20 74 6F 20 64 6F 20  ;call cpm to do 
000180: 6E 65 65 64 65 64 20 66 75 6E 63 74 69 6F 6E 0D  needed function.
000190: 0A 09 69 6E 72 09 61 09 09 3B 63 68 65 63 6B 20  ..inr.a..;check 
0001A0: 66 6F 72 20 65 72 72 6F 72 73 0D 0A 09 6A 7A 09  for errors...jz.
0001B0: 63 6C 6F 73 65 31 30 09 09 3B 65 72 72 6F 72 20  close10..;error 
0001C0: 75 6E 61 62 6C 65 20 74 6F 20 63 6C 6F 73 65 20  unable to close 
0001D0: 66 69 6C 65 0D 0A 09 6C 78 69 09 68 2C 30 09 09  file...lxi.h,0..
0001E0: 3B 65 76 65 72 79 20 74 68 69 6E 67 20 69 73 20  ;every thing is 
0001F0: 6F 6B 20 73 65 74 20 72 65 74 75 72 6E 20 63 6F  ok set return co

Size : 512 (Real : 512)
000000: 09 3B 63 61 6C 6C 20 63 70 6D 20 74 6F 20 73 65  .;call cpm to se
000010: 74 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73  t buffer address
000020: 0D 0A 09 70 6F 70 09 68 09 09 3B 72 65 6D 6F 76  ...pop.h..;remov
000030: 65 20 63 75 72 72 65 6E 74 20 70 6F 69 6E 74 65  e current pointe
000040: 72 20 66 72 6F 6D 20 73 74 61 63 6B 0D 0A 09 69  r from stack...i
000050: 6E 78 09 68 09 09 3B 6D 6F 76 65 20 74 6F 20 61  nx.h..;move to a
000060: 64 64 72 65 73 73 20 6F 66 20 66 63 62 0D 0A 09  ddress of fcb...
000070: 70 75 73 68 09 68 09 09 3B 70 75 74 20 63 75 72  push.h..;put cur
000080: 72 65 6E 74 20 70 6F 69 6E 74 65 72 20 62 61 63  rent pointer bac
000090: 6B 20 6F 6E 20 73 74 61 63 6B 0D 0A 09 6D 6F 76  k on stack...mov
0000A0: 09 65 2C 6D 09 09 3B 67 65 74 20 6C 6F 77 20 62  .e,m..;get low b
0000B0: 79 74 65 20 6F 66 20 66 63 62 20 61 64 64 72 65  yte of fcb addre
0000C0: 73 73 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F 76  ss...inx.h..;mov
0000D0: 65 20 74 6F 20 68 69 67 68 20 62 79 74 65 20 6F  e to high byte o
0000E0: 66 20 61 64 64 72 65 73 73 0D 0A 09 6D 6F 76 09  f address...mov.
0000F0: 64 2C 6D 09 09 3B 67 65 74 20 68 69 67 68 20 61  d,m..;get high a
000100: 64 64 72 65 73 73 20 6F 66 20 66 63 62 0D 0A 09  ddress of fcb...
000110: 6D 76 69 09 63 2C 32 30 09 09 3B 72 65 61 64 20  mvi.c,20..;read 
000120: 72 65 63 6F 72 64 20 66 72 6F 6D 20 64 73 69 6B  record from dsik
000130: 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09 09 3B 63  ...call.bdos..;c
000140: 61 6C 6C 20 63 70 6D 20 74 6F 20 64 6F 20 69 74  all cpm to do it
000150: 0D 0A 09 70 6F 70 09 68 09 09 3B 67 65 74 20 63  ...pop.h..;get c
000160: 75 72 72 65 6E 74 20 70 6F 69 6E 74 65 72 20 62  urrent pointer b
000170: 61 63 6B 0D 0A 09 6F 72 61 09 61 09 09 3B 63 68  ack...ora.a..;ch
000180: 65 63 6B 20 66 6F 72 20 65 72 72 6F 72 73 0D 0A  eck for errors..
000190: 09 6A 6E 7A 09 72 65 61 64 32 09 09 3B 65 72 72  .jnz.read2..;err
0001A0: 6F 72 20 72 65 61 64 69 6E 67 20 66 69 6C 65 20  or reading file 
0001B0: 66 72 6F 6D 20 64 69 73 6B 0D 0A 09 64 63 78 09  from disk...dcx.
0001C0: 68 09 09 3B 6D 6F 76 65 20 74 6F 20 61 64 64 72  h..;move to addr
0001D0: 65 73 73 20 6F 66 20 62 75 66 66 65 72 0D 0A 09  ess of buffer...
0001E0: 6D 6F 76 09 64 2C 6D 09 09 3B 67 65 74 20 68 69  mov.d,m..;get hi
0001F0: 67 68 20 62 79 74 65 20 6F 66 20 61 64 64 72 65  gh byte of addre

Size : 512 (Real : 512)
000000: 64 65 20 74 6F 20 7A 65 72 6F 0D 0A 09 72 65 74  de to zero...ret
000010: 09 09 09 3B 72 65 74 75 72 6E 20 74 6F 20 63 61  ...;return to ca
000020: 6C 6C 65 72 0D 0A 63 6C 6F 73 65 31 30 3A 0D 0A  ller..close10:..
000030: 09 6C 78 69 09 68 2C 2D 31 09 09 3B 65 72 72 6F  .lxi.h,-1..;erro
000040: 72 20 73 65 74 20 72 65 74 75 72 6E 20 63 6F 64  r set return cod
000050: 65 20 74 6F 20 65 72 72 6F 72 0D 0A 09 72 65 74  e to error...ret
000060: 0D 0A 3B 0D 0A 3B 09 75 6E 6C 69 6E 6B 0D 0A 3B  ..;..;.unlink..;
000070: 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 20 74 6F 20  ..;.function to 
000080: 62 75 69 6C 64 20 66 63 62 20 61 6E 64 20 74 72  build fcb and tr
000090: 79 20 74 6F 20 64 65 6C 65 74 65 0D 0A 3B 09 64  y to delete..;.d
0000A0: 65 6C 65 74 65 20 66 69 6C 65 2E 20 69 66 20 6F  elete file. if o
0000B0: 6B 20 72 65 74 75 72 6E 20 30 20 65 6C 73 65 20  k return 0 else 
0000C0: 2D 31 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E 67  -1..;..;.calling
0000D0: 20 66 6F 72 6D 61 74 20 66 72 6F 6D 20 22 43 22   format from "C"
0000E0: 0D 0A 3B 09 75 6E 6C 69 6E 6B 28 66 69 6C 65 6E  ..;.unlink(filen
0000F0: 61 6D 65 29 0D 0A 3B 0D 0A 75 6E 6C 69 6E 6B 3A  ame)..;..unlink:
000100: 09 63 73 65 63 74 0D 0A 09 70 6F 70 09 62 09 09  .csect...pop.b..
000110: 3B 67 65 74 20 72 65 74 75 72 6E 20 61 64 64 72  ;get return addr
000120: 65 73 73 0D 0A 09 70 6F 70 09 64 09 09 3B 67 65  ess...pop.d..;ge
000130: 74 20 61 64 64 72 65 73 73 20 6F 66 20 66 69 6C  t address of fil
000140: 65 20 6E 61 6D 65 0D 0A 09 70 75 73 68 09 64 09  e name...push.d.
000150: 09 3B 70 75 74 20 64 61 74 61 20 62 61 63 6B 20  .;put data back 
000160: 69 6E 20 73 74 61 63 6B 0D 0A 09 70 75 73 68 09  in stack...push.
000170: 62 0D 0A 09 6C 78 69 09 68 2C 2D 33 36 09 09 3B  b...lxi.h,-36..;
000180: 70 75 74 20 73 74 61 63 6B 20 70 6F 69 6E 74 65  put stack pointe
000190: 72 20 69 6E 20 68 6C 0D 0A 09 64 61 64 09 73 70  r in hl...dad.sp
0001A0: 09 09 3B 61 64 64 72 65 73 73 20 6F 66 20 73 74  ..;address of st
0001B0: 61 63 6B 20 69 6E 20 68 6C 0D 0A 09 73 70 68 6C  ack in hl...sphl
0001C0: 09 09 09 3B 73 65 74 20 6E 65 77 20 61 64 64 72  ...;set new addr
0001D0: 65 73 73 20 6F 66 20 73 74 61 63 6B 20 70 6F 69  ess of stack poi
0001E0: 6E 74 65 72 0D 0A 09 6C 78 69 09 62 2C 33 36 09  nter...lxi.b,36.
0001F0: 09 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66  .;get address of

Size : 512 (Real : 512)
000000: 73 73 0D 0A 09 64 63 78 09 68 09 09 3B 6D 6F 76  ss...dcx.h..;mov
000010: 65 20 74 6F 20 6C 6F 77 20 20 62 79 74 65 20 6F  e to low  byte o
000020: 66 20 61 64 64 72 65 73 73 0D 0A 09 6D 6F 76 09  f address...mov.
000030: 65 2C 6D 09 09 3B 67 65 74 20 6C 6F 77 20 62 79  e,m..;get low by
000040: 74 65 20 6F 66 20 61 64 64 72 65 73 73 0D 0A 09  te of address...
000050: 78 63 68 67 09 09 09 3B 70 75 74 20 61 64 64 72  xchg...;put addr
000060: 65 73 73 20 69 6E 20 68 6C 20 61 6E 64 20 76 61  ess in hl and va
000070: 72 62 6C 65 20 61 64 64 72 65 73 73 20 69 6E 20  rble address in 
000080: 68 6C 0D 0A 09 6C 78 69 09 62 2C 38 30 68 09 09  hl...lxi.b,80h..
000090: 3B 6C 65 6E 67 68 74 20 6F 66 20 31 20 72 65 63  ;lenght of 1 rec
0000A0: 6F 72 64 20 6F 6E 20 64 69 73 6B 0D 0A 09 64 61  ord on disk...da
0000B0: 64 09 62 09 09 3B 61 64 64 20 73 65 63 74 6F 72  d.b..;add sector
0000C0: 20 6C 65 6E 67 68 74 20 74 6F 20 62 75 66 66 65   lenght to buffe
0000D0: 72 20 61 64 64 72 65 73 73 0D 0A 09 78 63 68 67  r address...xchg
0000E0: 09 09 09 3B 70 75 74 20 62 75 66 66 65 72 20 61  ...;put buffer a
0000F0: 64 64 72 65 73 73 20 62 61 63 6B 20 69 6E 20 64  ddress back in d
000100: 65 0D 0A 09 6D 6F 76 09 6D 2C 65 09 09 3B 73 61  e...mov.m,e..;sa
000110: 76 65 20 6E 65 77 20 6C 6F 77 20 62 79 74 65 20  ve new low byte 
000120: 6F 66 20 61 64 64 72 65 73 73 0D 0A 09 69 6E 78  of address...inx
000130: 09 68 09 09 3B 6D 6F 76 65 20 74 6F 20 68 69 67  .h..;move to hig
000140: 68 20 62 79 74 65 20 6F 66 20 61 64 64 72 65 73  h byte of addres
000150: 73 0D 0A 09 6D 6F 76 09 6D 2C 64 09 09 3B 73 61  s...mov.m,d..;sa
000160: 76 65 20 68 69 67 68 20 62 79 74 65 20 6F 66 20  ve high byte of 
000170: 61 64 64 72 65 73 73 0D 0A 09 6A 6D 70 09 72 65  address...jmp.re
000180: 61 64 09 09 3B 73 65 65 20 69 74 20 74 69 6D 65  ad..;see it time
000190: 20 74 6F 20 72 65 61 64 20 6E 65 78 74 20 72 65   to read next re
0001A0: 63 6F 72 64 0D 0A 72 65 61 64 31 3A 0D 0A 09 6C  cord..read1:...l
0001B0: 78 69 09 68 2C 30 09 09 3B 65 76 65 72 79 20 74  xi.h,0..;every t
0001C0: 68 69 6E 67 20 69 73 20 6F 6B 20 72 65 74 75 72  hing is ok retur
0001D0: 6E 20 74 6F 20 63 61 6C 6C 65 72 0D 0A 09 6A 6D  n to caller...jm
0001E0: 70 09 72 65 61 64 33 09 09 3B 73 65 74 20 64 6D  p.read3..;set dm
0001F0: 61 20 61 64 64 72 65 73 73 20 74 6F 20 74 62 75  a address to tbu

Size : 512 (Real : 512)
000000: 20 66 63 62 20 66 6F 72 20 64 65 6C 65 74 65 0D   fcb for delete.
000010: 0A 09 64 61 64 09 62 09 09 3B 61 64 64 20 74 6F  ..dad.b..;add to
000020: 20 67 65 74 20 62 61 73 65 20 66 6F 72 20 66 63   get base for fc
000030: 62 0D 0A 09 70 75 73 68 09 68 09 09 3B 73 65 74  b...push.h..;set
000040: 20 75 70 20 61 72 67 20 66 6F 72 20 73 65 74 66   up arg for setf
000050: 63 62 0D 0A 09 70 75 73 68 09 64 0D 0A 09 63 61  cb...push.d...ca
000060: 6C 6C 09 73 65 74 66 63 62 09 09 3B 74 72 79 20  ll.setfcb..;try 
000070: 74 6F 20 62 75 69 6C 64 20 66 63 62 0D 0A 09 70  to build fcb...p
000080: 6F 70 09 64 09 09 3B 72 65 6D 6F 76 65 20 61 72  op.d..;remove ar
000090: 67 20 66 6F 72 20 73 65 74 66 63 62 0D 0A 09 70  g for setfcb...p
0000A0: 6F 70 09 64 0D 0A 09 69 6E 72 09 6C 09 09 3B 73  op.d...inr.l..;s
0000B0: 65 65 20 69 66 20 65 72 72 6F 72 0D 0A 09 6A 7A  ee if error...jz
0000C0: 09 75 6E 6C 69 6E 6B 31 30 09 3B 65 72 72 6F 72  .unlink10.;error
0000D0: 20 6E 6F 74 20 61 20 76 61 69 6C 64 20 66 69 6C   not a vaild fil
0000E0: 65 20 6E 61 6D 65 0D 0A 09 6D 76 69 09 63 2C 31  e name...mvi.c,1
0000F0: 39 09 09 3B 66 75 6E 63 74 69 6F 6E 20 6E 75 6D  9..;function num
000100: 62 65 72 20 74 6F 20 64 65 6C 65 74 65 20 61 20  ber to delete a 
000110: 66 69 6C 65 0D 0A 09 63 61 6C 6C 09 62 64 6F 73  file...call.bdos
000120: 09 09 3B 63 61 6C 6C 20 63 70 6D 20 74 6F 20 64  ..;call cpm to d
000130: 65 6C 65 74 65 20 66 69 6C 65 20 66 72 6F 6D 20  elete file from 
000140: 73 79 73 74 65 6D 0D 0A 09 69 6E 72 09 61 09 09  system...inr.a..
000150: 3B 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66  ;check to see if
000160: 20 69 6E 20 65 72 72 6F 72 0D 0A 09 6A 7A 09 75   in error...jz.u
000170: 6E 6C 69 6E 6B 31 30 09 3B 65 72 72 6F 72 20 75  nlink10.;error u
000180: 6E 61 62 6C 65 20 74 6F 20 64 65 6C 65 74 65 20  nable to delete 
000190: 66 69 6C 65 0D 0A 09 6C 78 69 09 64 2C 30 09 09  file...lxi.d,0..
0001A0: 3B 72 65 74 75 72 6E 20 63 6F 64 65 0D 0A 09 6A  ;return code...j
0001B0: 6D 70 09 75 6E 6C 69 6E 6B 31 31 09 3B 72 65 73  mp.unlink11.;res
0001C0: 65 74 20 73 74 61 63 6B 20 70 6F 69 6E 74 65 72  et stack pointer
0001D0: 0D 0A 75 6E 6C 69 6E 6B 31 30 3A 0D 0A 09 6C 78  ..unlink10:...lx
0001E0: 69 09 64 2C 2D 31 09 09 3B 73 65 74 20 65 72 72  i.d,-1..;set err
0001F0: 6F 72 20 63 6F 64 65 20 0D 0A 75 6E 6C 69 6E 6B  or code ..unlink

Size : 512 (Real : 512)
000000: 66 20 61 6E 64 20 72 65 74 75 72 6E 0D 0A 72 65  f and return..re
000010: 61 64 32 3A 0D 0A 09 6C 78 69 09 68 2C 2D 31 09  ad2:...lxi.h,-1.
000020: 09 3B 65 72 72 6F 72 20 72 65 61 64 69 6E 67 20  .;error reading 
000030: 66 69 6C 65 0D 0A 72 65 61 64 33 3A 0D 0A 09 70  file..read3:...p
000040: 75 73 68 09 68 09 09 3B 73 61 76 65 20 72 65 74  ush.h..;save ret
000050: 75 72 6E 20 63 6F 64 65 0D 0A 09 6C 78 69 09 64  urn code...lxi.d
000060: 2C 63 70 6D 63 6D 64 09 3B 61 64 64 72 65 73 73  ,cpmcmd.;address
000070: 20 6F 66 20 74 65 6D 70 20 62 75 66 66 0D 0A 09   of temp buff...
000080: 6D 76 69 09 63 2C 32 36 09 09 3B 73 65 74 20 64  mvi.c,26..;set d
000090: 6D 61 20 61 64 64 72 65 73 73 20 66 75 6E 63 74  ma address funct
0000A0: 69 6F 6E 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09  ion...call.bdos.
0000B0: 09 3B 63 61 6C 6C 20 63 70 6D 20 74 6F 20 64 6F  .;call cpm to do
0000C0: 20 6E 65 65 64 65 64 20 66 75 6E 74 69 6F 6E 0D   needed funtion.
0000D0: 0A 09 70 6F 70 09 68 09 09 3B 67 65 74 20 72 65  ..pop.h..;get re
0000E0: 74 75 72 6E 20 63 6F 64 65 20 66 72 6F 6D 20 73  turn code from s
0000F0: 74 61 63 6B 0D 0A 09 72 65 74 09 09 09 3B 61 6C  tack...ret...;al
000100: 6C 20 64 6F 6E 65 20 72 65 74 75 72 6E 20 74 6F  l done return to
000110: 20 63 61 6C 6C 65 72 0D 0A 3B 0D 0A 3B 09 66 75   caller..;..;.fu
000120: 6E 63 74 69 6F 6E 20 74 6F 20 77 72 69 74 65 20  nction to write 
000130: 78 20 72 65 63 6F 72 64 20 66 72 6F 6D 09 64 69  x record from.di
000140: 73 6B 20 61 6E 64 20 72 65 74 75 72 6E 0D 0A 3B  sk and return..;
000150: 09 66 61 6C 73 65 20 69 66 20 6E 6F 20 65 72 72  .false if no err
000160: 6F 72 73 20 6F 72 20 74 72 75 65 20 69 66 20 65  ors or true if e
000170: 72 72 6F 72 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69  rror..;..;.calli
000180: 6E 67 20 66 6F 72 6D 61 74 20 66 72 6F 6D 20 22  ng format from "
000190: 43 22 0D 0A 3B 09 77 72 69 74 65 28 66 63 62 2C  C"..;.write(fcb,
0001A0: 62 75 66 66 65 72 2C 63 6F 75 6E 74 29 3B 0D 0A  buffer,count);..
0001B0: 3B 0D 0A 77 72 69 74 65 3A 09 63 73 65 63 74 0D  ;..write:.csect.
0001C0: 0A 09 6C 78 69 09 68 2C 32 09 09 3B 6F 66 66 73  ..lxi.h,2..;offs
0001D0: 65 74 20 69 6E 20 73 74 61 63 6B 20 74 69 6C 6C  et in stack till
0001E0: 20 63 6F 75 6E 74 0D 0A 09 64 61 64 09 73 70 09   count...dad.sp.
0001F0: 09 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66  .;get address of

Size : 512 (Real : 512)
000000: 66 63 62 28 66 63 62 2C 66 69 6C 65 6E 61 6D 65  fcb(fcb,filename
000010: 29 3B 0D 0A 3B 0D 0A 73 65 74 66 63 62 3A 09 63  );..;..setfcb:.c
000020: 73 65 63 74 0D 0A 09 70 6F 70 09 62 09 09 3B 67  sect...pop.b..;g
000030: 65 74 20 72 65 74 75 72 6E 20 61 64 64 72 65 73  et return addres
000040: 73 0D 0A 09 70 6F 70 09 68 09 09 3B 61 64 64 72  s...pop.h..;addr
000050: 65 73 73 20 6F 66 20 66 69 6C 65 20 6E 61 6D 65  ess of file name
000060: 0D 0A 09 70 6F 70 09 64 09 09 3B 61 64 64 72 65  ...pop.d..;addre
000070: 73 73 20 6F 66 20 66 63 62 0D 0A 09 70 75 73 68  ss of fcb...push
000080: 09 64 09 09 3B 70 75 74 20 64 61 74 61 20 62 61  .d..;put data ba
000090: 63 6B 20 6F 6E 20 73 74 61 63 6B 0D 0A 09 70 75  ck on stack...pu
0000A0: 73 68 09 68 0D 0A 09 70 75 73 68 09 62 0D 0A 09  sh.h...push.b...
0000B0: 64 63 78 09 68 09 09 3B 73 65 74 20 70 6F 69 6E  dcx.h..;set poin
0000C0: 74 65 72 20 62 61 63 6B 20 31 20 62 65 66 6F 72  ter back 1 befor
0000D0: 65 20 66 69 6C 65 20 6E 61 6D 65 0D 0A 73 65 74  e file name..set
0000E0: 66 63 62 31 3A 0D 0A 09 69 6E 78 09 68 09 09 3B  fcb1:...inx.h..;
0000F0: 6D 6F 76 65 20 70 6F 69 6E 74 65 72 20 74 6F 20  move pointer to 
000100: 6E 65 78 74 20 63 68 72 61 63 74 65 72 0D 0A 09  next chracter...
000110: 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20 63 68  mov.a,m..;get ch
000120: 61 72 61 63 74 65 72 20 66 72 6F 6D 20 62 75 66  aracter from buf
000130: 66 65 72 0D 0A 09 6F 72 61 09 61 09 09 3B 63 68  fer...ora.a..;ch
000140: 65 63 6B 20 66 6F 72 20 65 6E 64 20 6F 66 20 62  eck for end of b
000150: 75 66 66 65 72 0D 0A 09 6A 7A 09 73 65 74 66 63  uffer...jz.setfc
000160: 62 36 09 09 3B 65 72 72 6F 72 20 6E 75 6C 6C 20  b6..;error null 
000170: 66 69 6C 65 20 6E 61 6D 65 0D 0A 09 63 70 69 09  file name...cpi.
000180: 27 20 27 09 09 3B 73 65 65 20 69 66 20 6C 65 61  ' '..;see if lea
000190: 64 69 6E 67 20 73 70 61 63 65 20 0D 0A 09 6A 7A  ding space ...jz
0001A0: 09 73 65 74 66 63 62 31 09 09 3B 79 65 73 20 6D  .setfcb1..;yes m
0001B0: 6F 76 65 20 74 6F 20 6E 65 78 74 20 63 68 61 72  ove to next char
0001C0: 61 63 74 65 72 0D 0A 09 70 75 73 68 09 68 09 09  acter...push.h..
0001D0: 3B 73 61 76 65 20 73 74 61 72 74 69 6E 67 20 61  ;save starting a
0001E0: 64 64 72 65 73 73 20 6F 66 20 66 69 6C 65 20 6E  ddress of file n
0001F0: 61 6D 65 0D 0A 73 65 74 66 63 62 31 61 3A 0D 0A  ame..setfcb1a:..

Size : 512 (Real : 512)
000000: 20 6E 75 6D 62 65 72 20 6F 66 20 72 65 63 6F 72   number of recor
000010: 64 20 74 6F 20 72 65 61 64 0D 0A 09 6D 6F 76 09  d to read...mov.
000020: 61 2C 6D 09 09 3B 67 65 74 20 6C 6F 77 20 62 79  a,m..;get low by
000030: 74 65 20 6F 66 20 63 6F 75 6E 74 0D 0A 09 6D 6F  te of count...mo
000040: 76 09 65 2C 6D 09 09 3B 73 61 76 65 20 66 6F 72  v.e,m..;save for
000050: 20 6C 61 74 65 72 20 75 73 65 0D 0A 09 69 6E 78   later use...inx
000060: 09 68 09 09 3B 6D 6F 76 65 20 74 6F 20 68 69 67  .h..;move to hig
000070: 68 20 62 79 74 65 20 6F 66 20 63 6F 75 6E 74 0D  h byte of count.
000080: 0A 09 6F 72 61 09 6D 09 09 3B 73 65 65 20 69 66  ..ora.m..;see if
000090: 20 31 36 20 62 69 74 20 63 6F 75 6E 74 20 69 73   16 bit count is
0000A0: 20 7A 65 72 6F 0D 0A 09 6D 6F 76 09 64 2C 6D 09   zero...mov.d,m.
0000B0: 09 3B 67 65 74 20 68 69 67 68 20 62 79 74 65 20  .;get high byte 
0000C0: 6F 66 20 63 6F 75 6E 74 20 0D 0A 09 6A 7A 09 77  of count ...jz.w
0000D0: 72 69 74 65 31 09 09 3B 79 65 73 20 64 6F 09 6E  rite1..;yes do.n
0000E0: 6F 74 20 77 72 69 74 65 20 61 6E 79 20 6D 6F 72  ot write any mor
0000F0: 65 20 72 65 63 6F 72 64 73 0D 0A 09 64 63 78 09  e records...dcx.
000100: 64 09 09 3B 73 75 62 74 72 61 63 74 20 31 20 66  d..;subtract 1 f
000110: 72 6F 6D 20 63 6F 75 6E 74 0D 0A 09 6D 6F 76 09  rom count...mov.
000120: 6D 2C 64 09 09 3B 70 75 74 20 68 69 67 68 20 62  m,d..;put high b
000130: 79 74 65 20 62 61 63 6B 0D 0A 09 64 63 78 09 68  yte back...dcx.h
000140: 09 09 3B 70 6F 69 6E 74 20 74 6F 20 68 69 67 68  ..;point to high
000150: 20 62 79 74 65 0D 0A 09 6D 6F 76 09 6D 2C 65 09   byte...mov.m,e.
000160: 09 3B 73 61 76 65 20 6C 6F 77 20 62 79 74 65 0D  .;save low byte.
000170: 0A 09 69 6E 78 09 68 09 09 3B 6D 6F 76 65 20 74  ..inx.h..;move t
000180: 6F 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73  o buffer address
000190: 0D 0A 09 69 6E 78 09 68 0D 0A 09 6D 6F 76 09 65  ...inx.h...mov.e
0001A0: 2C 6D 09 09 3B 67 65 74 20 61 64 64 72 65 73 73  ,m..;get address
0001B0: 20 6F 66 20 62 75 66 66 65 72 0D 0A 09 69 6E 78   of buffer...inx
0001C0: 09 68 09 09 3B 6D 6F 76 65 20 74 6F 20 68 69 67  .h..;move to hig
0001D0: 68 20 62 79 74 65 20 6F 66 20 61 64 64 72 65 73  h byte of addres
0001E0: 73 0D 0A 09 70 75 73 68 09 68 09 09 3B 73 61 76  s...push.h..;sav
0001F0: 65 20 63 75 72 72 65 6E 74 20 70 6F 69 6E 74 65  e current pointe

Size : 512 (Real : 512)
000000: 09 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20 63  .mov.a,m..;get c
000010: 68 61 72 61 63 74 65 72 20 66 72 6F 6D 20 66 69  haracter from fi
000020: 6C 65 20 6E 61 6D 65 0D 0A 09 6F 72 61 09 61 09  le name...ora.a.
000030: 09 3B 73 65 65 20 69 66 20 65 6E 64 20 6F 66 20  .;see if end of 
000040: 73 74 72 69 6E 67 0D 0A 09 6A 7A 09 73 65 74 66  string...jz.setf
000050: 63 62 31 62 09 3B 79 65 73 2E 2E 2E 20 6C 6F 6F  cb1b.;yes... loo
000060: 70 20 62 61 63 6B 20 74 69 6C 6C 20 6E 6F 74 20  p back till not 
000070: 73 70 61 63 65 0D 0A 09 69 6E 78 09 68 09 09 3B  space...inx.h..;
000080: 6D 6F 76 65 20 74 6F 20 6E 65 78 74 20 62 79 74  move to next byt
000090: 65 0D 0A 09 6A 6D 70 09 73 65 74 66 63 62 31 61  e...jmp.setfcb1a
0000A0: 0D 0A 73 65 74 66 63 62 31 62 3A 0D 0A 09 64 63  ..setfcb1b:...dc
0000B0: 78 09 68 09 09 3B 6D 6F 76 65 20 62 61 63 6B 20  x.h..;move back 
0000C0: 31 20 63 68 61 72 61 63 74 65 72 0D 0A 09 6D 6F  1 character...mo
0000D0: 76 09 61 2C 6D 09 09 3B 67 65 74 20 74 68 69 73  v.a,m..;get this
0000E0: 20 63 68 72 61 63 74 65 72 20 66 72 6F 6D 20 62   chracter from b
0000F0: 75 66 66 65 72 0D 0A 09 63 70 69 09 27 20 27 09  uffer...cpi.' '.
000100: 09 3B 69 73 20 74 68 69 73 20 63 68 61 72 61 63  .;is this charac
000110: 74 65 72 20 61 20 73 70 61 63 65 0D 0A 09 6A 7A  ter a space...jz
000120: 09 73 65 74 66 63 62 31 62 09 3B 6C 6F 6F 70 20  .setfcb1b.;loop 
000130: 74 69 6C 6C 20 6E 6F 6E 65 20 73 70 61 63 65 20  till none space 
000140: 63 68 61 72 61 63 74 65 72 20 69 73 20 66 6F 75  character is fou
000150: 6E 64 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F 76  nd...inx.h..;mov
000160: 65 20 74 6F 20 65 6E 64 20 6F 66 20 73 74 72 69  e to end of stri
000170: 6E 67 0D 0A 09 6D 76 69 09 6D 2C 30 09 09 3B 6D  ng...mvi.m,0..;m
000180: 6F 76 65 20 65 6E 64 20 6F 66 20 73 74 72 69 6E  ove end of strin
000190: 67 20 6D 61 72 6B 65 72 0D 0A 09 70 6F 70 09 68  g marker...pop.h
0001A0: 09 09 3B 67 65 74 20 73 74 61 72 74 69 6E 67 20  ..;get starting 
0001B0: 61 64 64 72 65 73 73 20 62 61 63 6B 0D 0A 09 69  address back...i
0001C0: 6E 78 09 68 09 09 3B 6D 6F 76 65 20 74 6F 20 22  nx.h..;move to "
0001D0: 3A 22 20 69 66 20 64 69 73 6B 20 73 70 65 63 0D  :" if disk spec.
0001E0: 0A 09 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20  ..mov.a,m..;get 
0001F0: 74 68 69 73 20 63 68 61 72 61 63 74 65 72 20 66  this character f

Size : 512 (Real : 512)
000000: 72 20 6F 6E 20 73 74 61 63 6B 0D 0A 09 6D 6F 76  r on stack...mov
000010: 09 64 2C 6D 09 09 3B 67 65 74 20 68 69 67 68 20  .d,m..;get high 
000020: 62 79 74 65 20 6F 66 20 61 64 64 72 65 73 73 0D  byte of address.
000030: 0A 09 6D 76 69 09 63 2C 32 36 09 09 3B 73 65 74  ..mvi.c,26..;set
000040: 20 64 6D 61 20 61 64 64 72 65 73 73 0D 0A 09 63   dma address...c
000050: 61 6C 6C 09 62 64 6F 73 09 09 3B 63 61 6C 6C 20  all.bdos..;call 
000060: 63 70 6D 20 74 6F 20 73 65 74 20 62 75 66 66 65  cpm to set buffe
000070: 72 20 61 64 64 72 65 73 73 0D 0A 09 70 6F 70 09  r address...pop.
000080: 68 09 09 3B 72 65 6D 6F 76 65 20 63 75 72 72 65  h..;remove curre
000090: 6E 74 20 70 6F 69 6E 74 65 72 20 66 72 6F 6D 20  nt pointer from 
0000A0: 73 74 61 63 6B 0D 0A 09 69 6E 78 09 68 09 09 3B  stack...inx.h..;
0000B0: 6D 6F 76 65 20 74 6F 20 61 64 64 72 65 73 73 20  move to address 
0000C0: 6F 66 20 66 63 62 0D 0A 09 70 75 73 68 09 68 09  of fcb...push.h.
0000D0: 09 3B 70 75 74 20 63 75 72 72 65 6E 74 20 70 6F  .;put current po
0000E0: 69 6E 74 65 72 20 62 61 63 6B 20 6F 6E 20 73 74  inter back on st
0000F0: 61 63 6B 0D 0A 09 6D 6F 76 09 65 2C 6D 09 09 3B  ack...mov.e,m..;
000100: 67 65 74 20 6C 6F 77 20 62 79 74 65 20 6F 66 20  get low byte of 
000110: 66 63 62 20 61 64 64 72 65 73 73 0D 0A 09 69 6E  fcb address...in
000120: 78 09 68 09 09 3B 6D 6F 76 65 20 74 6F 20 68 69  x.h..;move to hi
000130: 67 68 20 62 79 74 65 20 6F 66 20 61 64 64 72 65  gh byte of addre
000140: 73 73 0D 0A 09 6D 6F 76 09 64 2C 6D 09 09 3B 67  ss...mov.d,m..;g
000150: 65 74 20 68 69 67 68 20 61 64 64 72 65 73 73 20  et high address 
000160: 6F 66 20 66 63 62 0D 0A 09 6D 76 69 09 63 2C 32  of fcb...mvi.c,2
000170: 31 09 09 3B 77 72 69 74 65 20 72 65 63 6F 72 64  1..;write record
000180: 20 74 6F 20 64 69 73 6B 0D 0A 09 63 61 6C 6C 09   to disk...call.
000190: 62 64 6F 73 09 09 3B 63 61 6C 6C 20 63 70 6D 20  bdos..;call cpm 
0001A0: 74 6F 20 64 6F 20 69 74 0D 0A 09 70 6F 70 09 68  to do it...pop.h
0001B0: 09 09 3B 67 65 74 20 63 75 72 72 65 6E 74 20 70  ..;get current p
0001C0: 6F 69 6E 74 65 72 20 62 61 63 6B 0D 0A 09 6F 72  ointer back...or
0001D0: 61 09 61 09 09 3B 63 68 65 63 6B 20 66 6F 72 20  a.a..;check for 
0001E0: 65 72 72 6F 72 73 0D 0A 09 6A 6E 7A 09 77 72 69  errors...jnz.wri
0001F0: 74 65 32 09 09 3B 65 72 72 6F 72 20 77 72 69 74  te2..;error writ

Size : 512 (Real : 512)
000000: 6F 72 6D 20 66 69 6C 65 20 6E 61 6D 65 0D 0A 09  orm file name...
000010: 64 63 78 09 68 09 09 3B 70 75 74 20 70 6F 69 6E  dcx.h..;put poin
000020: 74 65 72 20 62 61 63 6B 0D 0A 09 63 70 69 09 27  ter back...cpi.'
000030: 3A 27 09 09 3B 73 65 65 20 69 66 20 64 69 73 6B  :'..;see if disk
000040: 20 73 70 65 63 20 69 6E 20 66 69 6C 65 20 6E 61   spec in file na
000050: 6D 65 20 0D 0A 09 6A 6E 7A 09 73 65 74 66 63 62  me ...jnz.setfcb
000060: 32 09 09 3B 6E 6F 20 67 74 20 72 65 61 64 79 20  2..;no gt ready 
000070: 66 6F 72 20 66 69 6C 65 20 6E 61 6D 65 0D 0A 09  for file name...
000080: 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20 64 69  mov.a,m..;get di
000090: 73 6B 20 6E 61 6D 65 0D 0A 09 63 61 6C 6C 09 73  sk name...call.s
0000A0: 65 74 66 63 62 31 30 09 09 3B 6D 61 6B 65 20 69  etfcb10..;make i
0000B0: 66 20 75 70 70 65 72 20 63 61 73 65 0D 0A 09 73  f upper case...s
0000C0: 75 69 09 27 40 27 09 09 3B 6D 61 6B 65 20 69 74  ui.'@'..;make it
0000D0: 20 30 31 2D 31 36 20 66 6F 72 20 64 69 73 6B 20   01-16 for disk 
0000E0: 61 2D 70 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F  a-p...inx.h..;mo
0000F0: 76 65 20 74 6F 20 73 74 61 72 74 20 6F 66 20 66  ve to start of f
000100: 69 6C 65 20 6E 61 6D 65 0D 0A 09 69 6E 78 09 68  ile name...inx.h
000110: 0D 0A 09 6A 6D 70 09 73 65 74 66 63 62 33 09 09  ...jmp.setfcb3..
000120: 3B 6D 6F 76 65 20 64 69 73 6B 20 76 61 6C 75 65  ;move disk value
000130: 20 69 6E 74 6F 20 66 63 62 0D 0A 73 65 74 66 63   into fcb..setfc
000140: 62 32 3A 0D 0A 09 78 72 61 09 61 09 09 3B 6D 61  b2:...xra.a..;ma
000150: 6B 65 20 64 65 66 75 61 6C 74 20 64 69 73 6B 0D  ke defualt disk.
000160: 0A 73 65 74 66 63 62 33 3A 0D 0A 09 73 74 61 78  .setfcb3:...stax
000170: 09 64 09 09 3B 73 61 76 65 20 76 61 6C 75 65 20  .d..;save value 
000180: 66 6F 72 20 64 69 73 6B 20 64 72 69 76 65 09 0D  for disk drive..
000190: 0A 09 69 6E 78 09 64 09 09 3B 6D 6F 76 65 20 66  ..inx.d..;move f
0001A0: 63 62 20 74 6F 20 66 69 6C 65 20 6E 61 6D 65 0D  cb to file name.
0001B0: 0A 09 6D 76 69 09 62 2C 38 09 09 3B 6E 75 6D 62  ..mvi.b,8..;numb
0001C0: 65 72 20 6F 66 20 62 79 74 65 20 69 6E 20 66 69  er of byte in fi
0001D0: 6C 65 20 6E 61 6D 65 0D 0A 09 63 61 6C 6C 09 73  le name...call.s
0001E0: 65 74 66 63 62 31 31 09 3B 6D 6F 76 65 20 66 69  etfcb11.;move fi
0001F0: 6C 65 20 6E 61 6D 65 20 69 6E 74 6F 20 70 6C 61  le name into pla

Size : 512 (Real : 512)
000000: 69 6E 67 20 66 69 6C 65 20 66 72 6F 6D 20 64 69  ing file from di
000010: 73 6B 0D 0A 09 64 63 78 09 68 09 09 3B 6D 6F 76  sk...dcx.h..;mov
000020: 65 20 74 6F 20 61 64 64 72 65 73 73 20 6F 66 20  e to address of 
000030: 62 75 66 66 65 72 0D 0A 09 6D 6F 76 09 64 2C 6D  buffer...mov.d,m
000040: 09 09 3B 67 65 74 20 68 69 67 68 20 62 79 74 65  ..;get high byte
000050: 20 6F 66 20 61 64 64 72 65 73 73 0D 0A 09 64 63   of address...dc
000060: 78 09 68 09 09 3B 6D 6F 76 65 20 74 6F 20 6C 6F  x.h..;move to lo
000070: 77 20 20 62 79 74 65 20 6F 66 20 61 64 64 72 65  w  byte of addre
000080: 73 73 0D 0A 09 6D 6F 76 09 65 2C 6D 09 09 3B 67  ss...mov.e,m..;g
000090: 65 74 20 6C 6F 77 20 62 79 74 65 20 6F 66 20 61  et low byte of a
0000A0: 64 64 72 65 73 73 0D 0A 09 78 63 68 67 09 09 09  ddress...xchg...
0000B0: 3B 70 75 74 20 61 64 64 72 65 73 73 20 69 6E 20  ;put address in 
0000C0: 68 6C 20 61 6E 64 20 76 61 72 62 6C 65 20 61 64  hl and varble ad
0000D0: 64 72 65 73 73 20 69 6E 20 68 6C 0D 0A 09 6C 78  dress in hl...lx
0000E0: 69 09 62 2C 38 30 68 09 09 3B 6C 65 6E 67 68 74  i.b,80h..;lenght
0000F0: 20 6F 66 20 31 20 72 65 63 6F 72 64 20 6F 6E 20   of 1 record on 
000100: 64 69 73 6B 0D 0A 09 64 61 64 09 62 09 09 3B 61  disk...dad.b..;a
000110: 64 64 20 73 65 63 74 6F 72 20 6C 65 6E 67 68 74  dd sector lenght
000120: 20 74 6F 20 62 75 66 66 65 72 20 61 64 64 72 65   to buffer addre
000130: 73 73 0D 0A 09 78 63 68 67 09 09 09 3B 70 75 74  ss...xchg...;put
000140: 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73 20   buffer address 
000150: 62 61 63 6B 20 69 6E 20 64 65 0D 0A 09 6D 6F 76  back in de...mov
000160: 09 6D 2C 65 09 09 3B 73 61 76 65 20 6E 65 77 20  .m,e..;save new 
000170: 6C 6F 77 20 62 79 74 65 20 6F 66 20 61 64 64 72  low byte of addr
000180: 65 73 73 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F  ess...inx.h..;mo
000190: 76 65 20 74 6F 20 68 69 67 68 20 62 79 74 65 20  ve to high byte 
0001A0: 6F 66 20 61 64 64 72 65 73 73 0D 0A 09 6D 6F 76  of address...mov
0001B0: 09 6D 2C 64 09 09 3B 73 61 76 65 20 68 69 67 68  .m,d..;save high
0001C0: 20 62 79 74 65 20 6F 66 20 61 64 64 72 65 73 73   byte of address
0001D0: 0D 0A 09 6A 6D 70 09 77 72 69 74 65 09 09 3B 73  ...jmp.write..;s
0001E0: 65 65 20 69 74 09 74 69 6D 65 20 74 6F 09 77 72  ee it.time to.wr
0001F0: 69 74 65 20 6E 65 78 74 20 72 65 63 6F 72 64 0D  ite next record.

Size : 512 (Real : 512)
000000: 63 65 0D 0A 09 6A 6E 7A 09 73 65 74 66 63 62 36  ce...jnz.setfcb6
000010: 09 09 3B 73 65 65 20 69 66 20 62 61 64 20 63 68  ..;see if bad ch
000020: 61 72 61 63 74 65 72 20 69 6E 20 66 69 6C 65 20  aracter in file 
000030: 6E 61 6D 65 0D 0A 09 63 70 69 09 27 2E 27 09 09  name...cpi.'.'..
000040: 3B 63 68 65 6B 20 74 6F 20 73 65 65 20 69 66 20  ;chek to see if 
000050: 66 69 6C 65 20 74 79 70 65 0D 0A 09 6A 6E 7A 09  file type...jnz.
000060: 73 65 74 66 63 62 34 09 09 3B 6E 6F 20 64 6F 20  setfcb4..;no do 
000070: 6E 6F 74 20 6D 6F 76 65 20 70 6F 69 6E 74 65 72  not move pointer
000080: 20 70 61 73 74 20 27 2E 27 0D 0A 09 69 6E 78 09   past '.'...inx.
000090: 68 09 09 3B 6D 6F 76 65 20 74 6F 20 66 69 6C 65  h..;move to file
0000A0: 20 74 79 70 65 20 62 79 74 65 0D 0A 73 65 74 66   type byte..setf
0000B0: 63 62 34 3A 0D 0A 09 6D 76 69 09 62 2C 33 09 09  cb4:...mvi.b,3..
0000C0: 3B 6E 75 6D 62 65 72 20 6F 66 20 62 79 74 65 73  ;number of bytes
0000D0: 20 69 6E 20 66 69 6C 65 20 74 79 70 65 0D 0A 09   in file type...
0000E0: 63 61 6C 6C 09 73 65 74 66 63 62 31 31 09 3B 6D  call.setfcb11.;m
0000F0: 6F 76 65 20 66 69 6C 65 20 74 79 70 65 20 69 6E  ove file type in
000100: 74 6F 20 66 63 62 0D 0A 09 6A 6E 7A 09 73 65 74  to fcb...jnz.set
000110: 66 63 62 36 09 09 3B 73 65 65 20 69 66 20 62 61  fcb6..;see if ba
000120: 64 20 63 68 61 72 61 63 74 65 72 20 69 6E 20 66  d character in f
000130: 69 6C 65 20 74 79 70 65 0D 0A 09 6D 76 69 09 62  ile type...mvi.b
000140: 2C 32 34 09 09 3B 6E 75 6D 62 65 72 20 6F 66 20  ,24..;number of 
000150: 62 79 74 65 73 20 6C 65 66 74 20 69 6E 20 66 63  bytes left in fc
000160: 62 0D 0A 09 6D 76 69 09 61 2C 30 09 09 3B 76 61  b...mvi.a,0..;va
000170: 6C 75 65 20 74 6F 20 66 69 6C 65 20 66 63 62 20  lue to file fcb 
000180: 77 69 74 68 0D 0A 73 65 74 66 63 62 35 3A 0D 0A  with..setfcb5:..
000190: 09 73 74 61 78 09 64 09 09 3B 70 75 74 20 30 20  .stax.d..;put 0 
0001A0: 69 6E 20 66 63 62 20 65 78 2D 72 32 0D 0A 09 69  in fcb ex-r2...i
0001B0: 6E 78 09 64 09 09 3B 6D 6F 76 65 20 74 6F 20 6E  nx.d..;move to n
0001C0: 65 78 74 20 62 79 74 65 0D 0A 09 64 63 72 09 62  ext byte...dcr.b
0001D0: 09 09 3B 73 65 65 20 69 66 20 64 6F 6E 65 20 77  ..;see if done w
0001E0: 69 74 68 20 6D 6F 76 65 0D 0A 09 6A 6E 7A 09 73  ith move...jnz.s
0001F0: 65 74 66 63 62 35 09 09 3B 6E 6F 20 6B 65 65 70  etfcb5..;no keep

Size : 512 (Real : 512)
000000: 0A 77 72 69 74 65 31 3A 0D 0A 09 6C 78 69 09 68  .write1:...lxi.h
000010: 2C 30 09 09 3B 65 76 65 72 79 20 74 68 69 6E 67  ,0..;every thing
000020: 20 69 73 20 6F 6B 20 72 65 74 75 72 6E 20 74 6F   is ok return to
000030: 20 63 61 6C 6C 65 72 0D 0A 09 6A 6D 70 09 77 72   caller...jmp.wr
000040: 69 74 65 33 09 09 3B 73 65 74 20 64 6D 61 20 61  ite3..;set dma a
000050: 64 64 72 65 73 73 20 74 6F 20 74 62 75 66 20 61  ddress to tbuf a
000060: 6E 64 20 72 65 74 75 72 6E 0D 0A 77 72 69 74 65  nd return..write
000070: 32 3A 0D 0A 09 6C 78 69 09 68 2C 2D 31 09 09 3B  2:...lxi.h,-1..;
000080: 65 72 72 6F 72 20 77 72 69 74 69 6E 67 20 66 69  error writing fi
000090: 6C 65 0D 0A 77 72 69 74 65 33 3A 0D 0A 09 70 75  le..write3:...pu
0000A0: 73 68 09 68 09 09 3B 73 61 76 65 20 72 65 74 75  sh.h..;save retu
0000B0: 72 6E 20 63 6F 64 65 0D 0A 09 6C 78 69 09 64 2C  rn code...lxi.d,
0000C0: 63 70 6D 63 6D 64 09 3B 61 64 64 72 65 73 73 20  cpmcmd.;address 
0000D0: 6F 66 20 74 65 6D 70 20 62 75 66 66 0D 0A 09 6D  of temp buff...m
0000E0: 76 69 09 63 2C 32 36 09 09 3B 73 65 74 20 64 6D  vi.c,26..;set dm
0000F0: 61 20 61 64 64 72 65 73 73 20 66 75 6E 63 74 69  a address functi
000100: 6F 6E 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 09 09  on...call.bdos..
000110: 3B 63 61 6C 6C 20 63 70 6D 20 74 6F 20 64 6F 20  ;call cpm to do 
000120: 6E 65 65 64 65 64 20 66 75 6E 74 69 6F 6E 0D 0A  needed funtion..
000130: 09 70 6F 70 09 68 09 09 3B 67 65 74 20 72 65 74  .pop.h..;get ret
000140: 75 72 6E 20 63 6F 64 65 20 66 72 6F 6D 20 73 74  urn code from st
000150: 61 63 6B 0D 0A 09 72 65 74 09 09 09 3B 61 6C 6C  ack...ret...;all
000160: 20 64 6F 6E 65 20 72 65 74 75 72 6E 20 74 6F 20   done return to 
000170: 63 61 6C 6C 65 72 0D 0A 3B 0D 0A 3B 09 73 65 74  caller..;..;.set
000180: 66 63 62 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69  fcb..;..;.functi
000190: 6F 6E 20 74 6F 20 62 75 69 6C 64 20 66 63 62 20  on to build fcb 
0001A0: 66 6F 72 20 66 69 6C 65 20 6E 61 6D 65 20 70 6F  for file name po
0001B0: 69 6E 74 65 64 20 74 6F 20 69 6E 20 68 6C 20 61  inted to in hl a
0001C0: 6E 64 0D 0A 3B 09 61 64 64 72 65 73 73 20 6F 66  nd..;.address of
0001D0: 20 66 63 62 20 69 6E 20 64 65 20 0D 0A 3B 0D 0A   fcb in de ..;..
0001E0: 3B 09 63 61 6C 6C 69 6E 67 20 66 6F 72 6D 61 74  ;.calling format
0001F0: 20 66 72 6F 6D 20 22 43 22 0D 0A 3B 09 73 65 74   from "C"..;.set

Size : 512 (Real : 512)
000000: 20 6F 6E 20 6D 6F 76 65 69 6E 67 0D 0A 09 6C 78   on moveing...lx
000010: 69 09 68 2C 30 09 09 3B 72 65 74 75 72 6E 20 66  i.h,0..;return f
000020: 61 6C 73 65 20 69 66 20 6E 6F 20 65 72 72 6F 72  alse if no error
000030: 73 0D 0A 09 72 65 74 0D 0A 73 65 74 66 63 62 36  s...ret..setfcb6
000040: 3A 0D 0A 09 6C 78 69 09 68 2C 2D 31 09 09 3B 72  :...lxi.h,-1..;r
000050: 65 74 75 72 6E 20 2D 31 20 69 66 20 62 61 64 20  eturn -1 if bad 
000060: 63 68 61 72 61 63 74 65 72 20 69 6E 20 66 69 6C  character in fil
000070: 65 20 6E 61 6D 65 0D 0A 09 72 65 74 0D 0A 3B 0D  e name...ret..;.
000080: 0A 3B 09 73 68 69 66 74 20 63 68 61 72 61 63 74  .;.shift charact
000090: 65 72 20 74 6F 20 75 70 70 65 72 20 63 61 73 65  er to upper case
0000A0: 0D 0A 3B 0D 0A 73 65 74 66 63 62 31 30 3A 0D 0A  ..;..setfcb10:..
0000B0: 09 63 70 69 09 30 36 31 68 09 09 3B 69 73 20 69  .cpi.061h..;is i
0000C0: 74 20 6C 65 73 73 20 74 68 65 6E 20 6C 6F 77 77  t less then loww
0000D0: 65 72 20 63 61 73 65 20 61 0D 0A 09 72 63 09 09  er case a...rc..
0000E0: 09 3B 79 65 73 2E 2E 2E 0D 0A 09 63 70 69 09 30  .;yes......cpi.0
0000F0: 37 61 68 09 09 3B 69 73 20 69 74 20 67 72 65 61  7ah..;is it grea
000100: 74 65 72 20 74 68 65 6E 20 6C 6F 77 77 65 72 20  ter then lowwer 
000110: 63 61 73 65 20 7A 0D 0A 09 72 6E 63 09 09 09 3B  case z...rnc...;
000120: 79 65 73 0D 0A 09 61 6E 69 09 30 35 66 68 09 09  yes...ani.05fh..
000130: 3B 6D 61 6B 65 20 69 74 20 6C 6F 6F 77 65 72 20  ;make it loower 
000140: 63 61 73 65 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B  case...ret..;..;
000150: 09 73 63 61 6E 20 62 20 63 68 61 72 61 63 74 65  .scan b characte
000160: 72 73 20 61 6E 64 20 6D 6F 76 65 20 69 6E 74 6F  rs and move into
000170: 20 66 63 62 20 63 68 65 63 6B 69 6E 67 20 66 6F   fcb checking fo
000180: 72 20 22 3F 22 20 61 6E 64 0D 0A 3B 09 62 61 64  r "?" and..;.bad
000190: 20 63 68 61 72 61 63 74 65 72 20 69 6E 20 66 69   character in fi
0001A0: 6C 65 20 6E 61 6D 65 0D 0A 3B 0D 0A 73 65 74 66  le name..;..setf
0001B0: 63 62 31 31 3A 0D 0A 09 6D 6F 76 09 61 2C 6D 09  cb11:...mov.a,m.
0001C0: 09 3B 67 65 74 20 63 68 61 72 61 63 74 65 72 20  .;get character 
0001D0: 66 6F 72 6D 20 66 69 6C 65 20 6E 61 6D 65 0D 0A  form file name..
0001E0: 09 63 70 69 09 27 2A 27 09 09 3B 69 73 20 69 74  .cpi.'*'..;is it
0001F0: 20 61 20 77 69 6C 64 20 63 61 72 64 0D 0A 09 6D   a wild card...m

Size : 512 (Real : 512)
000000: 69 09 68 2C 30 09 09 3B 67 65 74 20 73 69 7A 65  i.h,0..;get size
000010: 20 6F 66 20 66 72 65 65 20 6C 69 73 74 20 61 72   of free list ar
000020: 65 61 0D 0A 09 73 74 61 09 40 62 61 73 65 5F 66  ea...sta.@base_f
000030: 72 65 65 2B 32 09 3B 73 61 76 65 20 61 73 20 63  ree+2.;save as c
000040: 75 72 72 65 6E 74 20 73 69 7A 65 20 6F 66 20 66  urrent size of f
000050: 72 65 65 20 61 72 65 61 0D 0A 09 6C 78 69 09 68  ree area...lxi.h
000060: 2C 33 30 30 30 09 09 3B 73 69 7A 65 20 6F 66 20  ,3000..;size of 
000070: 6D 65 6D 6F 72 79 20 6E 6F 74 20 74 6F 20 75 73  memory not to us
000080: 65 0D 0A 09 73 68 6C 64 09 40 61 6C 6F 63 6D 78  e...shld.@alocmx
000090: 09 09 3B 73 61 76 65 20 69 74 20 66 6F 72 20 6C  ..;save it for l
0000A0: 61 74 65 72 20 75 73 65 0D 0A 09 72 65 74 0D 0A  ater use...ret..
0000B0: 3B 0D 0A 3B 09 64 61 74 61 20 61 72 65 61 20 75  ;..;.data area u
0000C0: 73 65 64 20 66 6F 72 20 66 72 65 65 20 73 74 6F  sed for free sto
0000D0: 72 61 67 65 20 6D 61 6E 67 6D 65 6E 74 0D 0A 3B  rage mangment..;
0000E0: 0D 0A 40 66 72 65 65 5F 6C 69 73 74 3A 64 73 65  ..@free_list:dse
0000F0: 63 74 0D 0A 40 42 61 73 65 5F 66 72 65 65 3A 09  ct..@Base_free:.
000100: 64 73 09 34 0D 0A 40 61 6C 6C 6F 63 70 3A 09 64  ds.4..@allocp:.d
000110: 73 09 32 0D 0A 40 61 6C 6F 63 6D 78 09 09 64 73  s.2..@alocmx..ds
000120: 09 32 0D 0A 3B 0D 0A 3B 09 61 72 67 6C 6F 61 64  .2..;..;.argload
000130: 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69 6F 6E 20  ..;..;.function 
000140: 74 6F 20 6C 6F 61 64 20 62 63 20 77 69 74 68 20  to load bc with 
000150: 61 72 67 20 62 61 63 6B 20 33 20 64 65 20 77 69  arg back 3 de wi
000160: 74 68 20 61 72 67 20 62 61 63 6B 20 32 20 68 6C  th arg back 2 hl
000170: 20 77 69 74 68 0D 0A 3B 09 09 20 31 20 62 61 63   with..;.. 1 bac
000180: 6B 0D 0A 61 72 67 6C 6F 61 64 3A 63 73 65 63 74  k..argload:csect
000190: 0D 0A 09 6C 78 69 09 68 2C 38 09 09 3B 6F 66 66  ...lxi.h,8..;off
0001A0: 73 65 74 20 69 6E 20 73 74 61 63 6B 20 66 6F 72  set in stack for
0001B0: 20 61 72 67 20 66 6F 72 20 62 63 0D 0A 09 64 61   arg for bc...da
0001C0: 64 09 73 70 09 09 3B 61 64 64 20 74 6F 20 73 74  d.sp..;add to st
0001D0: 61 63 6B 20 70 6F 69 6E 74 65 72 0D 0A 09 6D 6F  ack pointer...mo
0001E0: 76 09 63 2C 6D 0D 0A 09 69 6E 78 09 68 0D 0A 09  v.c,m...inx.h...
0001F0: 6D 6F 76 09 62 2C 6D 0D 0A 09 69 6E 78 09 68 0D  mov.b,m...inx.h.

Size : 512 (Real : 512)
000000: 76 69 09 61 2C 27 3F 27 09 09 3B 79 65 73 20 6D  vi.a,'?'..;yes m
000010: 61 6B 65 20 69 74 20 61 6C 6C 20 3F 3F 3F 0D 0A  ake it all ???..
000020: 09 6A 7A 09 73 65 74 66 63 62 31 31 34 09 3B 6D  .jz.setfcb114.;m
000030: 61 6B 65 20 61 6C 6C 20 3F 3F 3F 0D 0A 73 65 74  ake all ???..set
000040: 66 63 62 31 31 32 3A 0D 0A 09 6D 6F 76 09 61 2C  fcb112:...mov.a,
000050: 6D 09 09 3B 67 65 74 20 63 68 61 72 61 63 74 65  m..;get characte
000060: 72 20 74 6F 20 63 68 65 63 6B 0D 0A 09 63 61 6C  r to check...cal
000070: 6C 09 73 65 74 66 63 62 31 32 09 3B 67 65 74 20  l.setfcb12.;get 
000080: 61 6E 64 20 63 68 65 63 6B 20 74 6F 20 73 65 65  and check to see
000090: 20 69 66 20 76 61 69 6C 64 09 09 0D 0A 09 6A 63   if vaild.....jc
0000A0: 09 73 65 74 66 63 62 31 31 33 09 3B 6E 6F 2E 2E  .setfcb113.;no..
0000B0: 2E 2E 0D 0A 09 73 74 61 78 09 64 09 09 3B 73 61  .....stax.d..;sa
0000C0: 76 65 20 63 68 61 72 61 63 74 65 72 20 69 6E 20  ve character in 
0000D0: 66 63 62 0D 0A 09 69 6E 78 09 68 09 09 3B 6D 6F  fcb...inx.h..;mo
0000E0: 76 65 20 62 6F 74 68 20 70 6F 69 6E 74 65 72 73  ve both pointers
0000F0: 20 75 70 20 62 79 20 31 20 62 79 65 0D 0A 09 69   up by 1 bye...i
000100: 6E 78 09 64 0D 0A 09 64 63 72 09 62 09 09 3B 73  nx.d...dcr.b..;s
000110: 65 65 20 69 66 20 20 64 6F 6E 65 20 77 69 74 68  ee if  done with
000120: 20 66 69 6C 65 20 6E 61 6D 65 0D 0A 09 6A 6E 7A   file name...jnz
000130: 09 73 65 74 66 63 62 31 31 09 3B 6E 6F 20 6B 65  .setfcb11.;no ke
000140: 65 70 20 6F 6E 20 6D 6F 76 65 69 6E 67 0D 0A 09  ep on moveing...
000150: 6A 6D 70 09 73 65 74 66 63 62 31 31 35 09 3B 64  jmp.setfcb115.;d
000160: 6F 6E 65 20 77 69 74 68 20 66 69 6C 65 20 6C 6F  one with file lo
000170: 6F 6B 20 66 6F 72 20 65 6E 64 69 6E 67 20 63 68  ok for ending ch
000180: 61 72 0D 0A 73 65 74 66 63 62 31 31 33 3A 0D 0A  ar..setfcb113:..
000190: 09 6F 72 61 09 61 09 09 3B 63 68 65 63 6B 20 74  .ora.a..;check t
0001A0: 6F 20 73 65 65 20 69 66 20 65 6E 64 20 6F 66 20  o see if end of 
0001B0: 66 69 6C 65 20 6E 61 6D 65 0D 0A 09 6A 7A 09 73  file name...jz.s
0001C0: 65 74 66 63 62 31 31 33 61 09 3B 79 65 73 2E 2E  etfcb113a.;yes..
0001D0: 2E 0D 0A 09 63 70 69 09 27 2E 27 09 09 3B 63 68  ....cpi.'.'..;ch
0001E0: 65 63 6B 20 66 6F 72 20 64 65 6C 69 6D 74 65 72  eck for delimter
0001F0: 0D 0A 09 72 6E 7A 09 09 09 3B 6E 6F 20 72 65 74  ...rnz...;no ret

Size : 512 (Real : 512)
000000: 0A 09 6D 6F 76 09 65 2C 6D 0D 0A 09 69 6E 78 09  ..mov.e,m...inx.
000010: 68 0D 0A 09 6D 6F 76 09 64 2C 6D 0D 0A 09 69 6E  h...mov.d,m...in
000020: 78 09 68 0D 0A 09 6D 6F 76 09 61 2C 6D 0D 0A 09  x.h...mov.a,m...
000030: 69 6E 78 09 68 0D 0A 09 6D 6F 76 09 68 2C 6D 0D  inx.h...mov.h,m.
000040: 0A 09 6D 6F 76 09 6C 2C 61 0D 0A 09 72 65 74 0D  ..mov.l,a...ret.
000050: 0A 0D 0A 0D 0A 1A 1A 69 6E 78 09 68 0D 0A 09 6D  .......inx.h...m
000060: 6F 76 09 68 2C 6D 0D 0A 09 6D 6F 76 09 6C 2C 61  ov.h,m...mov.l,a
000070: 0D 0A 09 72 65 74 0D 0A 0D 0A 0D 0A 1A 09 73 74  ...ret........st
000080: 2A 73 05 EB 0E 15 CD 05 00 B7 2A 75 05 C2 9E 31  *s........*u...1
000090: 23 22 75 05 2A A3 05 2B 22 A3 05 C3 62 31 C1 C9  #"u.*..+"...b1..
0000A0: 3A 77 05 B7 6F CA AF 31 AF 32 77 05 26 00 C9 C5  :w..o..1.2w.&...
0000B0: 0E 01 CD 05 00 C1 FE 03 CA 00 00 FE 1A 21 FF FF  .............!..
0000C0: C8 6F FE 0D C2 D2 31 C5 0E 02 1E 0A CD 05 00 C1  .o....1.........
0000D0: 2E 0A 26 00 C9 CD 37 03 C5 3A 9F 05 4F 2A A1 05  ..&...7..:..O*..
0000E0: EB CD 05 00 6F 60 C1 C9 1A 1A 1A 1A 1A 1A 1A 1A  ....o`..........
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 05  ................
000100: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00  ................
000110: 00 FF FF FF FF 00 00 00 00 00 00 00 00 FF FF FF  ................
000120: FF 00 00 00 00 FF FF FF FF 00 00 00 00 FF FF FF  ................
000130: FF 00 00 00 00 FF FF FF FF 00 00 00 00 FF FF FF  ................
000140: FF 00 00 00 00 FF FF FF FF 00 00 00 00 FF FF FF  ................
000150: FF 00 00 00 00 FF FF FF FF 00 00 00 00 FF FF FF  ................
000160: FF 00 00 00 00 FF FF FF FF 00 00 00 00 FF FF FF  ................
000170: FF 00 00 00 00 FF FF FF FF 00 00 00 00 FF FF FF  ................
000180: FF 00 00 00 00 FF FF FF FF 00 00 00 00 FF FF FF  ................
000190: FF 00 00 00 00 FF FF FF FF FF FF FF FF 00 00 00  ................
0001A0: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00  ................
0001B0: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00  ................
0001C0: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00  ................
0001D0: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00  ................
0001E0: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00  ................
0001F0: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00  ................

Size : 512 (Real : 512)
000000: 75 72 6E 20 61 6E 64 20 73 68 6F 77 20 65 72 72  urn and show err
000010: 6F 72 0D 0A 73 65 74 66 63 62 31 31 33 61 3A 0D  or..setfcb113a:.
000020: 0A 09 6D 76 69 09 61 2C 27 20 27 09 09 3B 64 6F  ..mvi.a,' '..;do
000030: 6E 65 20 77 69 74 68 20 66 69 65 6C 64 20 20 70  ne with field  p
000040: 61 64 20 77 69 74 68 20 62 6C 61 6E 6B 73 0D 0A  ad with blanks..
000050: 73 65 74 66 63 62 31 31 34 3A 0D 0A 09 73 74 61  setfcb114:...sta
000060: 78 09 64 09 09 3B 66 69 6C 6C 20 66 63 62 20 77  x.d..;fill fcb w
000070: 69 74 68 20 76 61 6C 75 65 0D 0A 09 69 6E 78 09  ith value...inx.
000080: 64 09 09 3B 6D 6F 76 65 20 74 6F 20 6E 65 78 74  d..;move to next
000090: 20 62 79 74 65 20 6F 66 20 66 63 62 0D 0A 09 64   byte of fcb...d
0000A0: 63 72 09 62 09 09 3B 73 65 65 20 69 66 20 64 6F  cr.b..;see if do
0000B0: 6E 65 20 77 69 74 68 20 6D 6F 76 65 0D 0A 09 6A  ne with move...j
0000C0: 6E 7A 09 73 65 74 66 63 62 31 31 34 09 3B 6E 6F  nz.setfcb114.;no
0000D0: 20 6B 65 65 70 20 6F 6E 20 66 69 6C 6C 69 6E 67   keep on filling
0000E0: 0D 0A 73 65 74 66 63 62 31 31 35 3A 0D 0A 09 6D  ..setfcb115:...m
0000F0: 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20 63 68 61  ov.a,m..;get cha
000100: 72 61 63 74 65 72 20 66 72 6F 6D 20 66 69 6C 65  racter from file
000110: 20 6E 61 6D 65 0D 0A 09 6F 72 61 09 61 0D 0A 09   name...ora.a...
000120: 72 7A 0D 0A 09 63 70 69 09 27 2E 27 09 09 3B 63  rz...cpi.'.'..;c
000130: 68 65 63 6B 20 66 6F 72 20 27 2E 27 0D 0A 09 72  heck for '.'...r
000140: 7A 0D 0A 09 69 6E 78 09 68 0D 0A 09 6A 6D 70 09  z...inx.h...jmp.
000150: 73 65 74 66 63 62 31 31 35 09 3B 6E 6F 74 20 65  setfcb115.;not e
000160: 6E 64 69 6E 67 20 63 68 61 72 61 63 74 65 72 20  nding character 
000170: 6B 65 65 70 20 6F 6E 20 6C 6F 6F 6B 69 6E 67 0D  keep on looking.
000180: 0A 3B 0D 0A 3B 09 63 68 65 63 6B 20 74 6F 20 73  .;..;.check to s
000190: 65 65 20 69 66 20 76 61 69 6C 64 20 63 68 61 72  ee if vaild char
0001A0: 61 63 74 65 72 20 66 6F 72 20 66 63 62 20 61 2D  acter for fcb a-
0001B0: 7A 20 61 6E 64 20 30 2D 39 20 6F 6E 6C 79 0D 0A  z and 0-9 only..
0001C0: 3B 09 73 65 74 20 63 61 72 72 79 20 69 66 20 6E  ;.set carry if n
0001D0: 6F 74 20 61 20 76 61 69 6C 64 20 63 68 61 72 61  ot a vaild chara
0001E0: 63 74 65 72 20 6F 74 68 65 72 77 69 73 65 20 72  cter otherwise r
0001F0: 65 73 65 74 20 63 61 72 72 79 0D 0A 3B 0D 0A 73  eset carry..;..s

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 65 74 66 63 62 31 32 3A 0D 0A 09 63 61 6C 6C 09  etfcb12:...call.
000010: 73 65 74 66 63 62 31 30 09 3B 75 70 70 65 72 20  setfcb10.;upper 
000020: 63 61 73 65 20 63 68 61 72 61 63 74 65 72 0D 0A  case character..
000030: 09 63 70 69 09 27 3F 27 09 09 3B 77 69 6C 64 20  .cpi.'?'..;wild 
000040: 63 61 72 64 20 63 68 61 72 61 63 74 65 72 0D 0A  card character..
000050: 09 6A 7A 09 73 65 74 66 63 62 31 32 31 09 3B 79  .jz.setfcb121.;y
000060: 65 73 20 76 61 69 6C 64 20 63 68 61 72 61 63 74  es vaild charact
000070: 65 72 0D 0A 09 63 70 69 09 27 24 27 09 09 3B 6E  er...cpi.'$'..;n
000080: 65 65 64 65 64 20 66 6F 72 20 73 75 62 6D 69 74  eeded for submit
000090: 20 66 69 6C 65 73 0D 0A 09 6A 7A 09 73 65 74 66   files...jz.setf
0000A0: 63 62 31 32 31 09 3B 79 65 73 20 76 61 6C 69 64  cb121.;yes valid
0000B0: 20 63 68 61 72 61 63 74 65 72 0D 0A 09 63 70 69   character...cpi
0000C0: 09 27 30 27 09 09 3B 69 73 20 69 74 20 6C 65 73  .'0'..;is it les
0000D0: 73 20 74 68 65 6E 20 27 30 27 0D 0A 09 72 63 09  s then '0'...rc.
0000E0: 09 09 3B 79 65 73 20 65 72 72 6F 72 20 69 6E 76  ..;yes error inv
0000F0: 61 69 6C 64 20 63 68 61 72 61 63 74 65 72 0D 0A  aild character..
000100: 09 63 70 69 09 27 39 27 2B 31 09 09 3B 69 73 20  .cpi.'9'+1..;is 
000110: 69 74 20 67 72 65 61 74 65 72 20 74 68 65 6E 20  it greater then 
000120: 30 20 61 6E 64 20 6C 65 73 73 20 74 68 65 6E 20  0 and less then 
000130: 65 71 20 39 0D 0A 09 6A 63 09 73 65 74 66 63 62  eq 9...jc.setfcb
000140: 31 32 31 09 3B 79 65 73 20 76 61 69 6C 64 20 63  121.;yes vaild c
000150: 68 61 72 61 63 74 65 72 0D 0A 09 63 70 69 09 27  haracter...cpi.'
000160: 41 27 09 09 3B 69 73 20 69 74 20 6C 65 73 73 20  A'..;is it less 
000170: 74 68 65 6E 20 27 41 27 0D 0A 09 72 63 09 09 09  then 'A'...rc...
000180: 3B 79 65 73 20 65 72 72 6F 72 20 62 65 74 77 65  ;yes error betwe
000190: 65 6E 20 27 39 27 20 61 6E 64 20 27 41 27 0D 0A  en '9' and 'A'..
0001A0: 09 63 70 69 09 27 5A 27 2B 31 09 09 3B 69 73 20  .cpi.'Z'+1..;is 
0001B0: 69 74 20 62 65 74 77 65 65 6E 20 27 41 27 20 61  it between 'A' a
0001C0: 6E 64 20 27 5A 27 20 0D 0A 09 63 6D 63 09 09 09  nd 'Z' ...cmc...
0001D0: 3B 66 6C 6F 70 20 63 61 72 72 79 20 62 69 74 0D  ;flop carry bit.
0001E0: 0A 09 72 65 74 0D 0A 73 65 74 66 63 62 31 32 31  ..ret..setfcb121
0001F0: 3A 0D 0A 09 73 74 63 09 09 09 3B 73 65 74 20 63  :...stc...;set c

Size : 512 (Real : 512)
000000: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 09  *********/../*..
000040: 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 63 6F 70 79  .....*/../*.copy
000050: 72 69 67 68 74 28 63 29 20 31 39 38 31 20 42 79  right(c) 1981 By
000060: 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 09 09 2A   Mike Bernson..*
000070: 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A  /../*.......*/..
000080: 2F 2A 09 73 75 62 6D 69 74 20 63 6F 6D 6D 61 6E  /*.submit comman
000090: 64 20 66 6F 72 20 63 70 6D 20 32 2E 78 09 09 09  d for cpm 2.x...
0000A0: 2A 2F 0D 0A 2F 2A 09 72 65 61 64 20 69 6E 70 75  */../*.read inpu
0000B0: 74 20 66 69 6C 65 20 61 6E 64 20 63 6F 6E 76 65  t file and conve
0000C0: 72 74 20 74 6F 20 24 24 24 2E 73 75 62 20 77 69  rt to $$$.sub wi
0000D0: 74 68 09 2A 2F 0D 0A 2F 2A 09 24 31 2D 24 39 20  th.*/../*.$1-$9 
0000E0: 74 6F 20 70 72 61 6D 20 66 72 6F 6D 20 63 6F 6D  to pram from com
0000F0: 61 6E 64 20 6C 69 6E 65 20 61 6E 64 20 63 6F 6E  and line and con
000100: 76 65 72 74 09 2A 2F 0D 0A 2F 2A 09 5E 61 20 74  vert.*/../*.^a t
000110: 6F 20 63 6F 6E 74 72 6F 6C 20 63 68 61 72 61 63  o control charac
000120: 74 65 72 09 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09  ter....*/../*...
000130: 09 09 09 09 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A  ....*/../*******
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000170: 2A 2F 0D 0A 0D 0A 23 64 65 66 69 6E 65 20 45 52  */....#define ER
000180: 52 4F 52 09 2D 31 09 09 2F 2A 20 65 72 72 6F 72  ROR.-1../* error
000190: 20 72 65 74 75 72 6E 20 76 61 6C 75 65 20 2A 2F   return value */
0001A0: 0D 0A 23 64 65 66 69 6E 65 20 4C 46 09 30 78 30  ..#define LF.0x0
0001B0: 61 09 09 2F 2A 20 76 61 6C 75 65 20 75 73 65 64  a../* value used
0001C0: 20 66 6F 72 20 6C 69 6E 65 20 66 65 65 64 20 2A   for line feed *
0001D0: 2F 0D 0A 23 64 65 66 69 6E 65 20 43 52 09 30 78  /..#define CR.0x
0001E0: 30 64 09 09 2F 2A 20 76 61 6C 75 65 20 75 73 65  0d../* value use
0001F0: 64 20 66 6F 72 20 72 65 74 75 72 6E 20 2A 2F 0D  d for return */.

Size : 512 (Real : 512)
000000: 61 72 72 79 20 66 6C 61 67 0D 0A 09 63 6D 63 09  arry flag...cmc.
000010: 09 09 3B 73 65 74 20 63 61 72 72 79 20 6F 66 66  ..;set carry off
000020: 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 09 72 73 76  ...ret..;..;.rsv
000030: 73 74 6B 0D 0A 3B 0D 0A 3B 09 66 75 6E 63 74 69  stk..;..;.functi
000040: 6F 6E 3A 20 74 6F 20 73 65 74 20 68 6F 77 20 63  on: to set how c
000050: 6C 6F 73 65 20 74 6F 20 67 6F 20 74 6F 20 6D 61  lose to go to ma
000060: 63 68 69 6E 65 20 73 74 61 63 6B 20 70 6F 69 6E  chine stack poin
000070: 74 65 72 0D 0A 3B 0D 0A 3B 09 63 61 6C 6C 69 6E  ter..;..;.callin
000080: 67 20 66 6F 72 6D 61 74 20 69 6E 20 22 43 22 0D  g format in "C".
000090: 0A 3B 09 72 73 76 73 74 6B 28 61 6D 6F 75 6E 74  .;.rsvstk(amount
0000A0: 29 3B 0D 0A 3B 0D 0A 72 73 76 73 74 6B 3A 09 63  );..;..rsvstk:.c
0000B0: 73 65 63 74 0D 0A 09 73 68 6C 64 09 40 61 6C 6F  sect...shld.@alo
0000C0: 63 6D 78 09 09 3B 73 61 76 65 20 6E 75 6D 62 65  cmx..;save numbe
0000D0: 72 20 6F 66 20 62 79 74 65 73 20 6E 6F 74 20 74  r of bytes not t
0000E0: 6F 20 75 73 65 64 0D 0A 09 72 65 74 0D 0A 3B 0D  o used...ret..;.
0000F0: 0A 3B 09 73 74 6F 72 69 6E 69 74 0D 0A 3B 0D 0A  .;.storinit..;..
000100: 3B 09 66 75 6E 63 74 69 6F 6E 3A 20 74 6F 20 69  ;.function: to i
000110: 6E 69 74 20 73 74 72 6F 61 67 65 20 61 6C 6C 6F  nit stroage allo
000120: 63 61 74 69 6F 6E 20 73 79 73 74 65 6D 0D 0A 3B  cation system..;
000130: 0D 0A 3B 09 63 61 6C 6C 69 6E 67 20 66 6F 72 6D  ..;.calling form
000140: 61 74 20 66 72 6F 6D 20 22 63 22 0D 0A 3B 09 73  at from "c"..;.s
000150: 74 6F 72 69 6E 69 74 28 29 3B 0D 0A 3B 0D 0A 73  torinit();..;..s
000160: 74 6F 72 69 6E 69 74 3A 63 73 65 63 74 0D 0A 09  torinit:csect...
000170: 6C 78 69 09 68 2C 40 62 61 73 65 5F 66 72 65 65  lxi.h,@base_free
000180: 09 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66  .;get address of
000190: 20 73 74 61 72 74 20 6F 66 20 66 72 65 65 20 6C   start of free l
0001A0: 69 73 74 0D 0A 09 73 68 6C 64 09 40 62 61 73 65  ist...shld.@base
0001B0: 5F 66 72 65 65 09 3B 73 61 76 65 20 61 73 20 66  _free.;save as f
0001C0: 69 72 73 74 20 65 6C 65 6D 65 6E 74 0D 0A 09 73  irst element...s
0001D0: 68 6C 64 09 40 61 6C 6C 6F 63 70 09 09 3B 73 61  hld.@allocp..;sa
0001E0: 76 65 20 61 73 20 70 6F 69 6E 74 65 72 20 74 6F  ve as pointer to
0001F0: 20 6C 61 73 74 20 62 6C 6F 63 6B 0D 0A 09 6C 78   last block...lx

Size : 512 (Real : 512)
000000: 0A 23 64 65 66 69 6E 65 20 45 4E 44 46 49 4C 45  .#define ENDFILE
000010: 09 30 78 31 61 09 09 2F 2A 20 76 61 6C 75 65 20  .0x1a../* value 
000020: 75 73 65 64 20 66 6F 72 20 65 6E 64 20 6F 66 20  used for end of 
000030: 66 69 6C 65 20 2A 2F 0D 0A 0D 0A 63 68 61 72 20  file */....char 
000040: 69 6E 66 63 62 5B 33 36 5D 3B 09 09 09 2F 2A 20  infcb[36];.../* 
000050: 70 6F 69 6E 74 65 72 20 74 6F 20 69 6E 70 75 74  pointer to input
000060: 20 66 63 62 20 2A 2F 0D 0A 63 68 61 72 20 6F 75   fcb */..char ou
000070: 74 66 63 62 5B 33 36 5D 3B 09 09 2F 2A 20 6F 75  tfcb[36];../* ou
000080: 74 70 75 74 20 66 63 62 20 2A 2F 0D 0A 0D 0A 63  tput fcb */....c
000090: 68 61 72 20 2A 70 72 74 3B 09 09 09 2F 2A 20 6A  har *prt;.../* j
0000A0: 75 73 74 20 61 20 73 70 61 72 65 20 70 6F 69 6E  ust a spare poin
0000B0: 74 65 72 20 2A 2F 0D 0A 69 6E 74 20 20 69 6E 70  ter */..int  inp
0000C0: 6F 66 66 3B 09 09 09 2F 2A 20 69 6E 70 75 74 20  off;.../* input 
0000D0: 62 75 66 66 65 72 20 6F 66 66 73 65 74 20 2A 2F  buffer offset */
0000E0: 0D 0A 69 6E 74 20 20 6F 75 74 6F 66 66 3B 09 09  ..int  outoff;..
0000F0: 09 2F 2A 20 6F 75 74 70 75 74 20 62 75 66 66 65  ./* output buffe
000100: 72 20 6F 66 66 73 65 74 20 2A 2F 0D 0A 0D 0A 69  r offset */....i
000110: 6E 74 20 20 6C 69 6E 65 3B 09 09 09 2F 2A 20 63  nt  line;.../* c
000120: 75 72 72 65 6E 74 20 6C 69 6E 65 20 6E 75 6D 62  urrent line numb
000130: 65 72 20 2A 2F 0D 0A 0D 0A 63 68 61 72 20 69 6E  er */....char in
000140: 62 75 66 66 5B 31 32 38 5D 3B 09 09 2F 2A 20 69  buff[128];../* i
000150: 6E 70 75 74 20 62 75 66 66 65 72 20 2A 2F 0D 0A  nput buffer */..
000160: 63 68 61 72 20 6F 75 74 62 75 66 66 5B 31 37 30  char outbuff[170
000170: 30 30 5D 3B 09 09 2F 2A 20 6F 75 74 70 75 74 20  00];../* output 
000180: 62 75 66 66 65 72 20 2A 2F 0D 0A 0D 0A 2F 2A 2A  buffer */..../**
000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001C0: 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 09 09 09 09  ******/../*.....
0001D0: 09 09 2A 2F 0D 0A 2F 2A 09 6D 61 69 6E 09 09 09  ..*/../*.main...
0001E0: 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09  ...*/../*.......
0001F0: 2A 2F 0D 0A 2F 2A 09 66 75 6E 63 74 69 6F 6E 3A  */../*.function:

Size : 512 (Real : 512)
000000: 0A 09 09 09 72 65 74 75 72 6E 3B 0D 0A 09 0D 0A  ....return;.....
000010: 09 09 2F 2A 20 6C 69 6E 65 09 66 65 65 64 20 69  ../* line.feed i
000020: 6E 67 6F 72 65 20 2A 2F 0D 0A 09 09 63 61 73 65  ngore */....case
000030: 20 4C 46 20 3A 0D 0A 09 09 09 62 72 65 61 6B 3B   LF :.....break;
000040: 0D 0A 09 09 0D 0A 09 09 2F 2A 20 6D 75 73 74 20  ......../* must 
000050: 62 65 20 61 20 76 69 61 6C 64 20 63 6A 61 72 61  be a viald cjara
000060: 63 74 65 72 20 70 75 74 20 69 6E 20 6F 75 74 70  cter put in outp
000070: 75 74 20 62 75 66 66 65 72 20 2A 2F 0D 0A 09 09  ut buffer */....
000080: 64 65 66 61 75 6C 74 3A 0D 0A 09 09 09 70 75 74  default:.....put
000090: 62 75 66 66 28 63 75 72 72 65 6E 74 29 3B 0D 0A  buff(current);..
0000A0: 09 09 7D 7D 0D 0A 09 7D 0D 0A 0D 0A 2F 2A 2A 2A  ..}}...}..../***
0000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000E0: 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09  *****/../*......
0000F0: 09 2A 2F 0D 0A 2F 2A 09 64 6F 6F 75 74 70 75 74  .*/../*.dooutput
000100: 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09  .....*/../*.....
000110: 09 09 2A 2F 0D 0A 2F 2A 09 66 75 6E 63 74 69 6F  ..*/../*.functio
000120: 6E 3A 09 74 6F 20 77 72 69 74 65 20 6F 75 74 70  n:.to write outp
000130: 75 74 20 72 65 63 6F 72 64 20 74 6F 20 64 69 73  ut record to dis
000140: 6B 09 2A 2F 0D 0A 2F 2A 09 09 09 70 75 74 20 63  k.*/../*...put c
000150: 68 61 72 61 63 74 65 72 20 63 6F 75 6E 74 20 61  haracter count a
000160: 74 20 6F 66 66 73 65 74 20 30 20 2A 2F 0D 0A 2F  t offset 0 */../
000170: 2A 09 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 64  *.......*/../*.d
000180: 61 74 65 20 77 72 69 74 74 65 6E 3A 09 64 65 63  ate written:.dec
000190: 20 31 36 2C 20 31 39 38 30 20 42 79 20 4D 69 6B   16, 1980 By Mik
0001A0: 65 20 42 65 72 6E 73 6F 6E 09 2A 2F 0D 0A 2F 2A  e Bernson.*/../*
0001B0: 09 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 2A 2A 2A  .......*/../****
0001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001F0: 2A 2A 2A 2A 2F 0D 0A 64 6F 6F 75 74 70 75 74 28  ****/..dooutput(

Size : 512 (Real : 512)
000000: 09 6F 70 65 6E 20 69 6E 70 75 74 20 61 6E 64 20  .open input and 
000010: 6F 75 74 70 75 74 20 64 61 74 61 20 66 69 6C 65  output data file
000020: 20 2A 2F 0D 0A 2F 2A 09 09 09 61 6C 73 6F 20 70   */../*...also p
000030: 72 6F 63 65 73 73 20 64 61 74 61 20 61 6E 64 20  rocess data and 
000040: 6F 75 74 70 75 74 09 2A 2F 0D 0A 2F 2A 09 09 09  output.*/../*...
000050: 64 61 74 61 20 74 6F 20 24 24 24 2E 73 75 62 20  data to $$$.sub 
000060: 61 6E 64 20 73 65 74 20 6C 6F 63 20 38 20 66 66  and set loc 8 ff
000070: 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D  */../*.......*/.
000080: 0A 2F 2A 09 44 61 74 65 20 77 72 69 74 74 65 6E  ./*.Date written
000090: 3A 09 4A 61 6E 20 32 38 2C 20 31 39 38 31 20 62  :.Jan 28, 1981 b
0000A0: 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 09 2A  y Mike Bernson.*
0000B0: 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A  /../*.......*/..
0000C0: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
0000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 6D 61 69 6E  *********/..main
000100: 28 61 72 67 63 2C 61 72 67 76 29 0D 0A 69 6E 74  (argc,argv)..int
000110: 20 61 72 67 63 3B 09 09 2F 2A 20 6E 75 6D 62 65   argc;../* numbe
000120: 72 20 6F 66 20 61 72 67 20 6F 6E 20 63 6F 6D 6D  r of arg on comm
000130: 61 6E 64 20 6C 69 6E 65 20 2B 31 20 2A 2F 0D 0A  and line +1 */..
000140: 69 6E 74 20 61 72 67 76 5B 5D 3B 09 09 2F 2A 20  int argv[];../* 
000150: 70 6F 69 6E 74 65 72 20 74 6F 20 65 61 63 68 20  pointer to each 
000160: 61 72 67 20 6F 6E 20 63 6F 6D 6D 61 6E 64 20 6C  arg on command l
000170: 69 6E 65 20 2A 2F 0D 0A 7B 0D 0A 09 63 68 61 72  ine */..{...char
000180: 20 66 69 6C 65 6E 61 6D 65 5B 31 33 32 5D 3B 09   filename[132];.
000190: 2F 2A 20 68 6F 6C 64 20 69 6E 70 75 74 20 66 69  /* hold input fi
0001A0: 6C 65 20 6E 61 6D 65 20 2A 2F 0D 0A 09 0D 0A 09  le name */......
0001B0: 73 74 72 63 70 79 28 66 69 6C 65 6E 61 6D 65 2C  strcpy(filename,
0001C0: 61 72 67 76 5B 31 5D 29 3B 0D 0A 09 73 74 72 63  argv[1]);...strc
0001D0: 61 74 28 66 69 6C 65 6E 61 6D 65 2C 22 2E 73 75  at(filename,".su
0001E0: 62 22 29 3B 0D 0A 0D 0A 09 69 66 20 28 6F 70 65  b");.....if (ope
0001F0: 6E 28 69 6E 66 63 62 2C 66 69 6C 65 6E 61 6D 65  n(infcb,filename

Size : 512 (Real : 512)
000000: 29 0D 0A 7B 0D 0A 09 6F 75 74 62 75 66 66 5B 28  )..{...outbuff[(
000010: 6C 69 6E 65 2D 31 29 2A 31 32 38 5D 3D 6F 75 74  line-1)*128]=out
000020: 6F 66 66 2D 31 3B 20 2F 2A 20 63 68 61 72 61 63  off-1; /* charac
000030: 74 65 72 20 63 6F 75 6E 74 20 2A 2F 0D 0A 0D 0A  ter count */....
000040: 09 2F 2A 20 7A 65 72 6F 20 62 75 66 66 65 72 20  ./* zero buffer 
000050: 74 69 6C 6C 20 65 6E 64 20 2A 2F 0D 0A 09 77 68  till end */...wh
000060: 69 6C 65 28 6F 75 74 6F 66 66 3C 31 32 38 29 20  ile(outoff<128) 
000070: 70 75 74 62 75 66 66 28 30 29 3B 0D 0A 09 69 66  putbuff(0);...if
000080: 20 28 2B 2B 6C 69 6E 65 3E 31 34 38 29 09 65 72   (++line>148).er
000090: 72 6F 72 28 22 54 6F 6F 20 6D 61 6E 79 09 6C 69  ror("Too many.li
0000A0: 6E 65 73 22 29 3B 0D 0A 09 7D 0D 0A 0D 0A 2F 2A  nes");...}..../*
0000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000E0: 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 09 09 09  *******/../*....
0000F0: 09 09 09 2A 2F 0D 0A 2F 2A 09 64 6F 6E 65 09 09  ...*/../*.done..
000100: 09 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09  ....*/../*......
000110: 09 2A 2F 0D 0A 2F 2A 09 66 75 6E 63 74 69 6F 6E  .*/../*.function
000120: 3A 09 74 6F 20 77 72 69 74 65 20 6F 75 74 70 75  :.to write outpu
000130: 74 20 62 75 66 66 65 72 20 6F 75 74 09 2A 2F 0D  t buffer out.*/.
000140: 0A 2F 2A 09 09 09 69 6E 20 62 61 63 6B 77 61 72  ./*...in backwar
000150: 64 20 72 65 63 6F 72 64 20 66 6F 72 6D 61 74 09  d record format.
000160: 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D  */../*.......*/.
000170: 0A 2F 2A 09 44 61 74 65 20 77 72 69 74 74 65 6E  ./*.Date written
000180: 3A 09 44 65 63 20 31 36 2C 20 31 39 38 30 20 42  :.Dec 16, 1980 B
000190: 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 09 2A  y Mike Bernson.*
0001A0: 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A  /../*.......*/..
0001B0: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
0001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 64 6F 6E 65  *********/..done
0001F0: 28 29 0D 0A 7B 0D 0A 09 63 68 61 72 20 74 65 6D  ()..{...char tem

Size : 512 (Real : 512)
000000: 29 20 3D 3D 20 45 52 52 4F 52 29 20 7B 0D 0A 09  ) == ERROR) {...
000010: 09 69 6E 66 63 62 5B 30 5D 3D 31 3B 09 09 2F 2A  .infcb[0]=1;../*
000020: 20 74 72 79 20 64 72 69 76 65 20 61 20 2A 2F 0D   try drive a */.
000030: 0A 09 09 69 66 20 28 62 64 6F 73 28 31 35 2C 69  ...if (bdos(15,i
000040: 6E 66 63 62 29 20 3D 3D 20 30 78 66 66 29 20 7B  nfcb) == 0xff) {
000050: 0D 0A 09 09 09 70 75 74 73 28 22 49 6E 70 75 74  .....puts("Input
000060: 20 66 69 6C 65 20 6E 6F 74 20 66 6F 75 6E 64 22   file not found"
000070: 29 3B 0D 0A 09 09 09 65 78 69 74 28 29 3B 0D 0A  );.....exit();..
000080: 09 09 09 7D 0D 0A 09 09 7D 0D 0A 09 66 6F 72 28  ...}....}...for(
000090: 6C 69 6E 65 3D 61 72 67 63 3B 20 6C 69 6E 65 3C  line=argc; line<
0000A0: 31 32 3B 20 61 72 67 76 5B 6C 69 6E 65 2B 2B 5D  12; argv[line++]
0000B0: 3D 22 22 29 3B 0D 0A 09 69 6E 70 6F 66 66 3D 31  ="");...inpoff=1
0000C0: 32 38 3B 0D 0A 09 6C 69 6E 65 3D 31 3B 0D 0A 0D  28;...line=1;...
0000D0: 0A 09 2F 2A 20 70 72 6F 63 65 73 73 20 69 6E 70  ../* process inp
0000E0: 75 74 20 66 69 6C 65 20 61 6E 64 20 77 72 69 74  ut file and writ
0000F0: 65 20 6F 75 74 70 75 74 20 2A 2F 0D 0A 09 77 68  e output */...wh
000100: 69 6C 65 28 31 29 20 7B 0D 0A 09 09 64 6F 69 6E  ile(1) {....doin
000110: 70 75 74 28 61 72 67 76 2B 31 29 3B 0D 0A 09 09  put(argv+1);....
000120: 64 6F 6F 75 74 70 75 74 28 29 3B 0D 0A 09 09 7D  dooutput();....}
000130: 0D 0A 09 7D 0D 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 2A  ...}....../*****
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000170: 2A 2A 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A  ***/../*.......*
000180: 2F 0D 0A 2F 2A 09 64 6F 69 6E 70 75 74 09 09 09  /../*.doinput...
000190: 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09  ...*/../*.......
0001A0: 2A 2F 0D 0A 2F 2A 09 66 75 6E 63 74 69 6F 6E 3A  */../*.function:
0001B0: 09 74 6F 20 70 72 6F 63 63 65 73 73 20 69 6E 70  .to proccess inp
0001C0: 75 74 20 62 75 66 66 65 72 20 61 6E 64 09 2A 2F  ut buffer and.*/
0001D0: 0D 0A 2F 2A 09 09 09 63 68 61 6E 67 65 20 24 31  ../*...change $1
0001E0: 2D 24 39 20 74 6F 20 74 65 78 74 20 6E 65 65 64  -$9 to text need
0001F0: 65 64 20 61 6E 64 09 2A 2F 0D 0A 2F 2A 09 09 09  ed and.*/../*...

Size : 512 (Real : 512)
000000: 70 3B 0D 0A 0D 0A 09 2F 2A 20 63 72 65 61 74 65  p;...../* create
000010: 20 6F 75 74 70 75 74 20 66 69 6C 65 20 6F 6E 20   output file on 
000020: 64 69 73 6B 20 61 09 2A 2F 0D 0A 09 69 66 20 28  disk a.*/...if (
000030: 6F 70 65 6E 28 6F 75 74 66 63 62 2C 22 41 3A 24  open(outfcb,"A:$
000040: 24 24 2E 53 55 42 22 29 20 21 3D 20 45 52 52 4F  $$.SUB") != ERRO
000050: 52 29 20 0D 0A 09 09 6F 75 74 66 63 62 5B 33 32  R) ....outfcb[32
000060: 5D 3D 6F 75 74 66 63 62 5B 31 35 5D 3B 0D 0A 09  ]=outfcb[15];...
000070: 65 6C 73 65 20 69 66 20 28 63 72 65 61 74 65 28  else if (create(
000080: 6F 75 74 66 63 62 2C 22 41 3A 24 24 24 2E 53 55  outfcb,"A:$$$.SU
000090: 42 22 29 20 3D 3D 20 45 52 52 4F 52 29 20 7B 0D  B") == ERROR) {.
0000A0: 0A 09 09 70 75 74 73 28 22 4F 75 74 70 75 74 20  ...puts("Output 
0000B0: 46 69 6C 65 20 6E 6F 74 20 63 72 65 61 74 65 64  File not created
0000C0: 22 29 3B 0D 0A 09 09 65 78 69 74 28 29 3B 0D 0A  ");....exit();..
0000D0: 09 09 7D 0D 0A 09 77 68 69 6C 65 28 2D 2D 6C 69  ..}...while(--li
0000E0: 6E 65 29 20 7B 0D 0A 09 09 69 66 20 28 77 72 69  ne) {....if (wri
0000F0: 74 65 28 6F 75 74 66 63 62 2C 6F 75 74 62 75 66  te(outfcb,outbuf
000100: 66 2B 31 32 38 2A 28 6C 69 6E 65 2D 31 29 2C 31  f+128*(line-1),1
000110: 29 20 3D 3D 20 45 52 52 4F 52 29 20 7B 0D 0A 09  ) == ERROR) {...
000120: 09 09 65 72 72 6F 72 28 22 44 69 73 6B 20 69 73  ..error("Disk is
000130: 20 46 75 6C 6C 22 29 3B 0D 0A 09 09 09 65 78 69   Full");.....exi
000140: 74 28 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 7D 0D  t();.....}....}.
000150: 0A 09 63 6C 6F 73 65 28 6F 75 74 66 63 62 29 3B  ..close(outfcb);
000160: 0D 0A 09 70 72 74 3D 38 3B 0D 0A 09 2A 70 72 74  ...prt=8;...*prt
000170: 3D 32 35 35 3B 0D 0A 09 65 78 69 74 28 29 3B 0D  =255;...exit();.
000180: 0A 09 7D 0D 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 2A 2A  ..}....../******
000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001C0: 2A 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F  **/../*.......*/
0001D0: 0D 0A 2F 2A 09 67 65 74 62 75 66 66 09 09 09 09  ../*.getbuff....
0001E0: 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A  ..*/../*.......*
0001F0: 2F 0D 0A 2F 2A 09 66 75 6E 63 74 69 6F 6E 3A 09  /../*.function:.

Size : 512 (Real : 512)
000000: 63 6F 6E 76 65 72 74 20 27 5E 27 61 20 74 6F 20  convert '^'a to 
000010: 63 6F 6E 74 72 6F 6C 20 63 68 61 72 09 2A 2F 0D  control char.*/.
000020: 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A  ./*.......*/../*
000030: 09 64 61 74 65 20 77 72 69 74 74 65 6E 09 4A 61  .date written.Ja
000040: 6E 20 32 38 2C 20 31 39 38 31 20 42 79 20 4D 69  n 28, 1981 By Mi
000050: 6B 65 20 42 65 72 6E 73 6F 6E 09 2A 2F 0D 0A 2F  ke Bernson.*/../
000060: 2A 09 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 2A 2A  *.......*/../***
000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000A0: 2A 2A 2A 2A 2A 2F 0D 0A 64 6F 69 6E 70 75 74 28  *****/..doinput(
0000B0: 70 61 72 6D 29 0D 0A 69 6E 74 20 70 61 72 6D 5B  parm)..int parm[
0000C0: 5D 3B 0D 0A 7B 0D 0A 09 69 6E 74 20 63 75 72 72  ];..{...int curr
0000D0: 65 6E 74 3B 20 20 20 2F 2A 20 63 75 72 72 65 6E  ent;   /* curren
0000E0: 74 20 63 68 61 72 61 63 74 65 72 20 77 6F 72 6B  t character work
0000F0: 69 6E 67 20 6F 6E 20 2A 2F 0D 0A 0D 0A 09 6F 75  ing on */.....ou
000100: 74 6F 66 66 3D 31 3B 09 2F 2A 20 73 65 74 20 6F  toff=1;./* set o
000110: 75 74 70 75 74 20 6F 66 66 73 65 74 20 74 6F 20  utput offset to 
000120: 7A 65 72 6F 20 2A 2F 0D 0A 0D 0A 09 2F 2A 20 70  zero */...../* p
000130: 69 63 6B 20 75 70 20 31 20 6C 69 6E 65 20 6F 66  ick up 1 line of
000140: 20 69 6E 70 75 74 20 2A 2F 0D 0A 09 77 68 69 6C   input */...whil
000150: 65 28 6F 75 74 6F 66 66 3C 31 32 30 29 20 7B 0D  e(outoff<120) {.
000160: 0A 0D 0A 09 09 2F 2A 20 67 65 74 20 63 68 61 72  ...../* get char
000170: 63 74 65 72 20 61 6E 64 20 73 65 65 20 77 68 61  cter and see wha
000180: 74 20 6E 65 65 64 20 74 6F 20 62 65 20 64 6F 6E  t need to be don
000190: 65 20 2A 2F 0D 0A 09 09 73 77 69 74 63 68 28 63  e */....switch(c
0001A0: 75 72 72 65 6E 74 3D 67 65 74 62 75 66 66 28 29  urrent=getbuff()
0001B0: 29 20 7B 0D 0A 0D 0A 09 09 2F 2A 20 65 6E 64 20  ) {....../* end 
0001C0: 6F 66 20 66 69 6C 65 20 20 2A 2F 0D 0A 09 09 63  of file  */....c
0001D0: 61 73 65 20 45 4E 44 46 49 4C 45 20 3A 0D 0A 09  ase ENDFILE :...
0001E0: 09 09 64 6F 6E 65 28 29 3B 0D 0A 09 0D 0A 09 09  ..done();.......
0001F0: 2F 2A 20 27 24 27 20 63 61 6E 20 62 65 20 24 31  /* '$' can be $1

Size : 512 (Real : 512)
000000: 74 6F 20 67 65 74 6E 20 6E 65 78 74 20 63 68 61  to getn next cha
000010: 72 61 63 74 65 72 20 66 72 6F 6D 20 09 2A 2F 0D  racter from .*/.
000020: 0A 2F 2A 09 09 09 66 72 6F 6D 20 69 6E 70 75 74  ./*...from input
000030: 20 62 75 66 66 65 72 20 61 6E 64 20 63 6F 6E 76   buffer and conv
000040: 65 72 74 09 2A 2F 0D 0A 2F 2A 09 09 09 74 6F 20  ert.*/../*...to 
000050: 75 70 70 65 72 20 63 61 73 65 09 09 09 2A 2F 0D  upper case...*/.
000060: 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A  ./*.......*/../*
000070: 09 64 61 74 65 20 77 72 69 74 74 65 6E 3A 09 44  .date written:.D
000080: 65 63 20 31 36 2C 20 31 39 38 30 20 62 79 20 4D  ec 16, 1980 by M
000090: 69 6B 65 20 42 65 72 6E 73 6F 6E 09 2A 2F 0D 0A  ike Bernson.*/..
0000A0: 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 2A  /*.......*/../**
0000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000E0: 2A 2A 2A 2A 2A 2A 2F 0D 0A 67 65 74 62 75 66 66  ******/..getbuff
0000F0: 28 29 0D 0A 7B 0D 0A 09 69 66 20 28 69 6E 70 6F  ()..{...if (inpo
000100: 66 66 20 3D 3D 20 31 32 38 29 20 7B 0D 0A 09 09  ff == 128) {....
000110: 69 66 20 28 72 65 61 64 28 69 6E 66 63 62 2C 69  if (read(infcb,i
000120: 6E 62 75 66 66 2C 31 29 20 3D 3D 20 45 52 52 4F  nbuff,1) == ERRO
000130: 52 29 20 72 65 74 75 72 6E 20 45 4E 44 46 49 4C  R) return ENDFIL
000140: 45 3B 0D 0A 09 09 69 6E 70 6F 66 66 3D 30 3B 0D  E;....inpoff=0;.
000150: 0A 09 09 7D 0D 0A 09 72 65 74 75 72 6E 20 74 6F  ...}...return to
000160: 75 70 70 65 72 28 69 6E 62 75 66 66 5B 69 6E 70  upper(inbuff[inp
000170: 6F 66 66 2B 2B 5D 29 3B 0D 0A 09 7D 0D 0A 0D 0A  off++]);...}....
000180: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 09  *********/../*..
0001C0: 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 70 75 74 62  .....*/../*.putb
0001D0: 75 66 66 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09  uff......*/../*.
0001E0: 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 66 75 6E  ......*/../*.fun
0001F0: 63 74 69 6F 6E 3A 09 74 6F 20 77 72 69 74 65 20  ction:.to write 

Size : 512 (Real : 512)
000000: 2D 24 39 20 6F 72 20 24 24 20 2A 2F 0D 0A 09 09  -$9 or $$ */....
000010: 63 61 73 65 20 27 24 27 20 3A 0D 0A 09 09 09 69  case '$' :.....i
000020: 66 20 28 28 63 75 72 72 65 6E 74 3D 67 65 74 62  f ((current=getb
000030: 75 66 66 28 29 29 3D 3D 27 24 27 29 20 7B 0D 0A  uff())=='$') {..
000040: 09 09 09 09 70 75 74 62 75 66 66 28 27 24 27 29  ....putbuff('$')
000050: 3B 0D 0A 09 09 09 09 62 72 65 61 6B 3B 0D 0A 09  ;......break;...
000060: 09 09 09 7D 0D 0A 09 09 09 69 66 20 28 63 75 72  ...}.....if (cur
000070: 72 65 6E 74 3E 3D 27 30 27 20 26 26 20 63 75 72  rent>='0' && cur
000080: 72 65 6E 74 3C 3D 27 39 27 29 20 7B 0D 0A 09 09  rent<='9') {....
000090: 09 09 70 72 74 3D 70 61 72 6D 5B 63 75 72 72 65  ..prt=parm[curre
0000A0: 6E 74 2D 27 30 27 5D 3B 0D 0A 09 09 09 09 77 68  nt-'0'];......wh
0000B0: 69 6C 65 28 2A 70 72 74 29 20 70 75 74 62 75 66  ile(*prt) putbuf
0000C0: 66 28 2A 70 72 74 2B 2B 29 3B 0D 0A 09 09 09 09  f(*prt++);......
0000D0: 62 72 65 61 6B 3B 0D 0A 09 09 09 09 7D 0D 0A 09  break;......}...
0000E0: 09 09 65 72 72 6F 72 28 22 49 6E 76 61 6C 69 64  ..error("Invalid
0000F0: 20 70 61 72 6D 65 74 65 72 22 29 3B 0D 0A 09 09   parmeter");....
000100: 09 62 72 65 61 6B 3B 0D 0A 0D 0A 09 09 2F 2A 20  .break;....../* 
000110: 63 68 65 63 6B 20 66 6F 72 20 63 6F 6E 74 72 6F  check for contro
000120: 6C 20 63 68 72 61 72 61 63 74 65 72 20 2A 2F 0D  l chraracter */.
000130: 0A 09 09 63 61 73 65 20 27 5E 27 20 3A 0D 0A 09  ...case '^' :...
000140: 09 09 63 75 72 72 65 6E 74 3D 67 65 74 62 75 66  ..current=getbuf
000150: 66 28 29 3B 0D 0A 09 09 09 69 66 20 28 63 75 72  f();.....if (cur
000160: 72 65 6E 74 3E 3D 27 41 27 20 26 26 20 63 75 72  rent>='A' && cur
000170: 72 65 6E 74 3C 3D 27 5A 27 29 0D 0A 09 09 09 09  rent<='Z')......
000180: 70 75 74 62 75 66 66 28 63 75 72 72 65 6E 74 2D  putbuff(current-
000190: 27 40 27 29 3B 0D 0A 09 09 09 09 65 6C 73 65 20  '@');......else 
0001A0: 65 72 72 6F 72 28 22 49 6E 76 61 6C 69 64 20 63  error("Invalid c
0001B0: 6F 6E 74 72 6F 6C 20 63 68 61 72 61 63 74 65 72  ontrol character
0001C0: 20 22 29 3B 0D 0A 09 09 09 62 72 65 61 6B 3B 0D   ");.....break;.
0001D0: 0A 09 09 0D 0A 09 09 2F 2A 20 63 68 65 63 6B 20  ......./* check 
0001E0: 66 6F 72 20 65 6E 64 20 6F 66 20 6C 69 6E 65 20  for end of line 
0001F0: 2A 2F 0D 0A 09 09 63 61 73 65 20 43 52 20 3A 0D  */....case CR :.

Size : 512 (Real : 512)
000000: 63 68 72 61 63 74 65 72 20 74 6F 20 6F 75 74 70  chracter to outp
000010: 75 74 20 09 2A 2F 0D 0A 2F 2A 09 09 09 62 75 66  ut .*/../*...buf
000020: 66 20 61 6E 64 20 69 6E 63 20 6F 66 66 73 65 74  f and inc offset
000030: 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A  ..*/../*.......*
000040: 2F 0D 0A 2F 2A 09 69 6E 70 75 74 3A 09 09 63 68  /../*.input:..ch
000050: 61 72 61 63 74 65 72 20 74 6F 20 77 72 69 74 65  aracter to write
000060: 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A  ..*/../*.......*
000070: 2F 0D 0A 2F 2A 09 64 61 74 65 20 77 72 69 74 74  /../*.date writt
000080: 65 6E 3A 09 44 65 63 20 31 36 2C 20 31 39 38 30  en:.Dec 16, 1980
000090: 20 42 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E   By Mike Bernson
0000A0: 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F  .*/../*.......*/
0000B0: 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ../*************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 70 75  ***********/..pu
0000F0: 74 62 75 66 66 28 64 61 74 61 29 0D 0A 63 68 61  tbuff(data)..cha
000100: 72 20 64 61 74 61 3B 0D 0A 7B 0D 0A 09 6F 75 74  r data;..{...out
000110: 62 75 66 66 5B 28 6C 69 6E 65 2D 31 29 2A 31 32  buff[(line-1)*12
000120: 38 2B 6F 75 74 6F 66 66 2B 2B 5D 3D 64 61 74 61  8+outoff++]=data
000130: 3B 0D 0A 09 7D 0D 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A  ;...}....../****
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000170: 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09  ****/../*.......
000180: 2A 2F 0D 0A 2F 2A 09 65 72 72 6F 72 09 09 09 09  */../*.error....
000190: 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A  ..*/../*.......*
0001A0: 2F 0D 0A 2F 2A 09 66 75 6E 63 74 69 6F 6E 3A 09  /../*.function:.
0001B0: 74 6F 20 70 72 69 6E 74 20 65 72 72 6F 72 20 6D  to print error m
0001C0: 65 73 73 61 67 65 20 66 6F 6C 6C 6F 77 09 2A 2F  essage follow.*/
0001D0: 0D 0A 2F 2A 09 09 09 62 79 20 61 74 20 6C 69 6E  ../*...by at lin
0001E0: 65 20 28 6C 69 6E 65 20 6E 75 6D 62 65 72 29 09  e (line number).
0001F0: 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D  */../*.......*/.

Size : 512 (Real : 512)
000000: 09 68 09 09 3B 61 64 64 20 31 20 74 6F 20 73 74  .h..;add 1 to st
000010: 72 69 6E 67 20 6C 65 6E 67 68 74 0D 0A 09 69 6E  ring lenght...in
000020: 78 09 64 09 09 3B 61 64 64 20 31 20 74 6F 20 70  x.d..;add 1 to p
000030: 6F 69 6E 74 65 72 20 74 6F 20 73 74 72 69 6E 67  ointer to string
000040: 0D 0A 09 72 65 6C 6F 63 09 6A 6D 70 2C 73 74 72  ...reloc.jmp,str
000050: 6C 65 6E 31 09 3B 63 68 65 63 6B 20 6E 65 78 74  len1.;check next
000060: 20 63 68 61 72 61 63 74 65 72 0D 0A 3B 0D 0A 09   character..;...
000070: 70 6F 73 74 6C 75 64 65 20 73 74 72 6C 65 6E 0D  postlude strlen.
000080: 0A 3B 0D 0A 3B 0D 0A 3B 0D 0A 09 70 72 65 6C 75  .;..;..;...prelu
000090: 64 65 09 73 74 72 63 70 79 0D 0A 3B 0D 0A 73 74  de.strcpy..;..st
0000A0: 72 63 70 79 3A 0D 0A 09 63 61 6C 6C 09 61 72 67  rcpy:...call.arg
0000B0: 68 61 6B 09 09 3B 67 65 74 20 61 72 67 20 6C 69  hak..;get arg li
0000C0: 73 74 0D 0A 09 6C 68 6C 64 09 61 72 67 31 09 09  st...lhld.arg1..
0000D0: 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66 20  ;get address of 
0000E0: 77 68 65 72 65 20 74 6F 20 73 61 76 65 20 73 74  where to save st
0000F0: 72 69 6E 67 0D 0A 09 78 63 68 67 09 09 09 3B 70  ring...xchg...;p
000100: 75 74 20 61 64 64 72 65 73 73 20 69 6E 20 64 65  ut address in de
000110: 0D 0A 09 6C 68 6C 64 09 61 72 67 32 09 09 3B 67  ...lhld.arg2..;g
000120: 65 74 20 61 64 64 72 65 73 73 20 6F 66 20 73 74  et address of st
000130: 72 69 6E 67 20 74 6F 20 63 6F 70 79 0D 0A 73 74  ring to copy..st
000140: 72 63 70 79 31 3A 0D 0A 09 6D 6F 76 09 61 2C 6D  rcpy1:...mov.a,m
000150: 09 09 3B 67 65 74 20 76 61 6C 75 65 20 66 72 6F  ..;get value fro
000160: 6D 20 73 6F 75 72 63 65 20 73 74 72 69 6E 67 0D  m source string.
000170: 0A 09 73 74 61 78 09 64 09 09 3B 73 61 76 65 20  ..stax.d..;save 
000180: 63 68 61 72 61 63 74 65 72 20 61 20 6F 62 6A 65  character a obje
000190: 63 74 20 73 74 72 69 6E 67 0D 0A 09 6F 72 61 09  ct string...ora.
0001A0: 61 09 09 3B 63 68 65 63 6B 20 74 6F 20 73 65 65  a..;check to see
0001B0: 20 69 66 20 64 6F 6E 65 0D 0A 09 72 7A 09 09 09   if done...rz...
0001C0: 3B 69 66 20 7A 65 72 6F 20 64 6F 6E 65 20 72 65  ;if zero done re
0001D0: 74 75 72 6E 20 74 6F 20 63 61 6C 6C 65 72 0D 0A  turn to caller..
0001E0: 09 69 6E 78 09 68 09 09 3B 61 64 64 20 31 20 74  .inx.h..;add 1 t
0001F0: 6F 20 73 6F 75 72 63 65 20 70 6F 69 6E 74 65 72  o source pointer

Size : 512 (Real : 512)
000000: 0A 2F 2A 09 64 61 74 65 20 77 72 69 74 74 65 6E  ./*.date written
000010: 3A 09 64 65 63 20 31 36 2C 20 31 39 38 30 20 42  :.dec 16, 1980 B
000020: 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 09 2A  y Mike Bernson.*
000030: 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A  /../*.......*/..
000040: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 65 72 72 6F  *********/..erro
000080: 72 28 6D 73 67 29 0D 0A 63 68 61 72 20 2A 6D 73  r(msg)..char *ms
000090: 67 3B 0D 0A 7B 0D 0A 09 70 75 74 73 28 6D 73 67  g;..{...puts(msg
0000A0: 29 3B 09 09 2F 2A 20 70 72 69 6E 74 20 65 72 72  );../* print err
0000B0: 6F 72 20 6D 65 73 73 61 67 65 20 2A 2F 0D 0A 09  or message */...
0000C0: 70 75 74 73 28 22 20 61 74 20 6C 69 6E 65 20 22  puts(" at line "
0000D0: 29 3B 09 2F 2A 20 70 72 69 6E 74 20 22 61 74 20  );./* print "at 
0000E0: 6C 69 6E 65 22 20 2A 2F 0D 0A 09 6F 75 74 64 65  line" */...outde
0000F0: 63 28 6C 69 6E 65 29 3B 09 09 2F 2A 20 70 72 69  c(line);../* pri
000100: 6E 74 20 6C 69 6E 65 20 6E 75 6D 62 65 72 20 2A  nt line number *
000110: 2F 0D 0A 09 65 78 69 74 28 29 20 3B 09 09 2F 2A  /...exit() ;../*
000120: 20 65 6E 64 20 62 61 63 6B 20 74 6F 20 63 70 6D   end back to cpm
000130: 20 2A 2F 0D 0A 09 7D 0D 0A 0D 0A 2F 2A 2A 2A 2A   */...}..../****
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000170: 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09  ****/../*.......
000180: 2A 2F 0D 0A 2F 2A 09 6F 75 74 64 65 63 09 09 09  */../*.outdec...
000190: 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09  ...*/../*.......
0001A0: 2A 2F 0D 0A 2F 2A 09 66 75 6E 63 74 69 6F 6E 3A  */../*.function:
0001B0: 09 74 6F 20 6F 75 74 70 75 74 20 6E 75 6D 62 65  .to output numbe
0001C0: 72 20 69 6E 20 64 65 63 20 66 72 6F 6D 09 2A 2F  r in dec from.*/
0001D0: 0D 0A 2F 2A 09 09 09 74 6F 20 63 6F 6E 73 6F 6C  ../*...to consol
0001E0: 65 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09  e...*/../*......
0001F0: 09 2A 2F 0D 0A 2F 2A 09 64 61 74 65 20 77 72 69  .*/../*.date wri

Size : 512 (Real : 512)
000000: 0D 0A 09 69 6E 78 09 64 09 09 3B 61 64 64 20 31  ...inx.d..;add 1
000010: 20 74 6F 20 6F 62 6A 65 63 74 20 70 6F 69 6E 74   to object point
000020: 65 72 0D 0A 09 72 65 6C 6F 63 09 6A 6D 70 2C 73  er...reloc.jmp,s
000030: 74 72 63 70 79 31 09 3B 64 6F 77 6E 20 74 69 6C  trcpy1.;down til
000040: 6C 20 65 6E 64 20 6F 66 20 73 74 72 69 6E 67 0D  l end of string.
000050: 0A 3B 0D 0A 09 70 6F 73 74 6C 75 64 65 20 73 74  .;...postlude st
000060: 72 63 70 79 0D 0A 3B 0D 0A 3B 0D 0A 3B 0D 0A 09  rcpy..;..;..;...
000070: 70 72 65 6C 75 64 65 09 73 74 72 63 61 74 0D 0A  prelude.strcat..
000080: 73 74 72 63 61 74 3A 0D 0A 09 63 61 6C 6C 09 61  strcat:...call.a
000090: 72 67 68 61 6B 09 3B 67 65 74 20 70 61 72 6D 20  rghak.;get parm 
0000A0: 6C 69 73 74 0D 0A 09 6C 68 6C 64 09 61 72 67 31  list...lhld.arg1
0000B0: 09 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F 66  .;get address of
0000C0: 20 66 72 69 73 74 20 70 61 72 6D 0D 0A 09 78 63   frist parm...xc
0000D0: 68 67 09 09 3B 70 75 74 20 69 74 20 69 6E 20 68  hg..;put it in h
0000E0: 6C 0D 0A 09 6C 68 6C 64 09 61 72 67 32 09 3B 67  l...lhld.arg2.;g
0000F0: 65 74 20 73 65 63 6F 6E 64 20 70 61 72 6D 0D 0A  et second parm..
000100: 73 74 72 63 61 74 31 3A 0D 0A 09 6C 64 61 78 09  strcat1:...ldax.
000110: 64 09 09 3B 67 65 74 20 62 79 74 65 20 74 6F 20  d..;get byte to 
000120: 73 65 65 20 69 66 20 7A 65 72 6F 0D 0A 09 6F 72  see if zero...or
000130: 61 09 61 09 09 3B 73 65 74 20 73 74 61 74 75 73  a.a..;set status
000140: 20 66 6C 61 67 73 0D 0A 09 72 65 6C 6F 63 09 6A   flags...reloc.j
000150: 7A 2C 73 74 72 63 61 74 32 09 3B 65 6E 64 20 6F  z,strcat2.;end o
000160: 66 20 73 74 72 69 6E 67 20 31 20 0D 0A 09 69 6E  f string 1 ...in
000170: 78 09 64 09 09 3B 61 64 64 20 31 20 74 6F 20 70  x.d..;add 1 to p
000180: 6F 69 6E 74 65 72 0D 0A 09 72 65 6C 6F 63 09 6A  ointer...reloc.j
000190: 6D 70 2C 73 74 72 63 61 74 31 09 3B 6C 6F 6F 70  mp,strcat1.;loop
0001A0: 20 74 69 6C 6C 20 65 6E 64 20 6F 66 20 73 74 72   till end of str
0001B0: 69 6E 67 20 31 0D 0A 73 74 72 63 61 74 32 3A 0D  ing 1..strcat2:.
0001C0: 0A 09 6D 6F 76 09 61 2C 6D 09 09 3B 67 65 74 20  ..mov.a,m..;get 
0001D0: 63 68 61 72 20 66 6F 72 20 73 6F 75 72 63 65 20  char for source 
0001E0: 73 74 72 69 6E 67 0D 0A 09 73 74 61 78 09 64 09  string...stax.d.
0001F0: 09 3B 73 61 76 65 20 61 74 20 65 6E 64 20 6F 66  .;save at end of

Size : 512 (Real : 512)
000000: 74 74 65 6E 3A 09 44 65 63 20 31 36 2C 20 31 39  tten:.Dec 16, 19
000010: 38 30 20 42 79 20 4D 69 6B 65 20 42 65 72 6E 73  80 By Mike Berns
000020: 6F 6E 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09  on.*/../*.......
000030: 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  */../***********
000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A  *************/..
000070: 6F 75 74 64 65 63 28 6E 75 6D 62 65 72 29 0D 0A  outdec(number)..
000080: 69 6E 74 20 6E 75 6D 62 65 72 3B 0D 0A 7B 0D 0A  int number;..{..
000090: 09 63 68 61 72 20 7A 65 72 6F 2C 6E 75 6D 3B 0D  .char zero,num;.
0000A0: 0A 09 69 6E 74 20 20 70 6C 61 63 65 3B 0D 0A 0D  ..int  place;...
0000B0: 0A 09 70 6C 61 63 65 3D 31 30 30 30 30 3B 0D 0A  ..place=10000;..
0000C0: 09 7A 65 72 6F 3D 30 3B 0D 0A 0D 0A 09 77 68 69  .zero=0;.....whi
0000D0: 6C 65 28 70 6C 61 63 65 3E 30 29 20 7B 0D 0A 09  le(place>0) {...
0000E0: 09 6E 75 6D 3D 6E 75 6D 62 65 72 2F 70 6C 61 63  .num=number/plac
0000F0: 65 2B 27 30 27 3B 20 2F 2A 20 67 65 74 20 63 75  e+'0'; /* get cu
000100: 72 72 65 6E 74 20 64 69 67 69 74 20 2A 2F 0D 0A  rrent digit */..
000110: 09 09 69 66 20 28 6E 75 6D 20 21 3D 20 27 30 27  ..if (num != '0'
000120: 20 7C 7C 20 70 6C 61 63 65 20 3D 3D 31 20 7C 7C   || place ==1 ||
000130: 20 7A 65 72 6F 29 20 7B 0D 0A 09 09 09 7A 65 72   zero) {.....zer
000140: 6F 3D 31 3B 20 2F 2A 20 73 65 74 20 7A 65 72 6F  o=1; /* set zero
000150: 20 73 75 70 70 72 65 73 73 20 2A 2F 0D 0A 09 09   suppress */....
000160: 09 70 75 74 63 68 28 6E 75 6D 29 3B 20 2F 2A 20  .putch(num); /* 
000170: 70 72 69 6E 74 20 63 68 61 72 61 63 74 65 72 20  print character 
000180: 2A 2F 0D 0A 09 09 09 7D 0D 0A 09 09 6E 75 6D 62  */.....}....numb
000190: 65 72 3D 6E 75 6D 62 65 72 20 25 20 70 6C 61 63  er=number % plac
0001A0: 65 3B 0D 0A 09 09 70 6C 61 63 65 3D 70 6C 61 63  e;....place=plac
0001B0: 65 2F 31 30 3B 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A  e/10;....}...}..
0001C0: 1A 70 6C 61 63 65 3D 70 6C 61 63 65 2F 31 30 3B  .place=place/10;
0001D0: 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A 1A 31 30 3B 0D  ....}...}...10;.
0001E0: 0A 09 09 7D 0D 0A 09 7D 0D 0A 1A 3B 0D 0A 09 09  ...}...}...;....
0001F0: 70 6C 61 63 65 3D 70 6C 61 63 65 2F 31 30 3B 0D  place=place/10;.

Size : 512 (Real : 512)
000000: 20 73 65 63 6F 6E 64 20 73 74 72 69 6E 67 0D 0A   second string..
000010: 09 6F 72 61 09 61 09 09 3B 63 68 65 63 6B 20 74  .ora.a..;check t
000020: 6F 20 73 65 65 20 69 66 20 7A 65 72 6F 0D 0A 09  o see if zero...
000030: 72 7A 09 09 09 3B 72 65 74 75 72 6E 20 69 66 20  rz...;return if 
000040: 65 6E 64 20 6F 66 20 73 74 72 69 6E 67 20 32 0D  end of string 2.
000050: 0A 09 69 6E 78 09 68 09 09 3B 61 64 64 20 31 20  ..inx.h..;add 1 
000060: 74 6F 20 73 6F 75 72 63 65 20 70 6F 69 6E 74 65  to source pointe
000070: 72 0D 0A 09 69 6E 78 09 64 09 09 3B 61 64 64 20  r...inx.d..;add 
000080: 31 20 74 6F 20 6F 62 6A 65 63 74 20 70 6F 69 6E  1 to object poin
000090: 74 65 72 0D 0A 09 72 65 6C 6F 63 09 6A 6D 70 2C  ter...reloc.jmp,
0000A0: 73 74 72 63 61 74 32 09 3B 6C 6F 6F 70 20 74 69  strcat2.;loop ti
0000B0: 6C 6C 20 65 6E 64 20 6F 66 20 73 6F 75 72 63 65  ll end of source
0000C0: 20 73 74 72 69 6E 67 0D 0A 09 70 6F 73 74 6C 75   string...postlu
0000D0: 64 65 20 73 74 72 63 61 74 0D 0A 3B 0D 0A 3B 0D  de strcat..;..;.
0000E0: 0A 3B 0D 0A 09 70 72 65 6C 75 64 65 09 73 74 72  .;...prelude.str
0000F0: 70 6F 73 0D 0A 3B 0D 0A 73 74 72 70 6F 73 3A 0D  pos..;..strpos:.
000100: 0A 09 63 61 6C 6C 09 61 72 67 68 61 6B 09 09 3B  ..call.arghak..;
000110: 67 65 74 20 70 61 72 6D 20 6C 69 73 74 0D 0A 09  get parm list...
000120: 70 75 73 68 09 62 09 09 3B 73 61 76 65 20 63 20  push.b..;save c 
000130: 73 74 61 63 6B 20 6F 6E 20 6D 61 63 68 69 6E 65  stack on machine
000140: 20 73 74 61 63 6B 0D 0A 09 6C 68 6C 64 09 61 72   stack...lhld.ar
000150: 67 31 09 09 3B 67 65 74 20 73 74 72 69 6E 67 20  g1..;get string 
000160: 74 68 61 74 20 77 65 20 61 72 65 20 73 65 61 72  that we are sear
000170: 63 68 69 6E 67 20 69 6E 0D 0A 09 78 63 68 67 09  ching in...xchg.
000180: 09 09 3B 70 75 74 20 61 64 64 72 65 73 73 20 69  ..;put address i
000190: 6E 20 64 65 0D 0A 09 6C 78 69 09 62 2C 30 09 09  n de...lxi.b,0..
0001A0: 3B 7A 65 72 6F 20 70 6F 73 74 69 6F 6E 20 0D 0A  ;zero postion ..
0001B0: 73 74 72 70 6F 73 31 3A 0D 0A 09 6C 68 6C 64 09  strpos1:...lhld.
0001C0: 61 72 67 32 09 09 3B 67 65 74 20 61 64 64 72 65  arg2..;get addre
0001D0: 73 73 20 6F 66 20 73 65 61 72 63 68 20 66 6F 72  ss of search for
0001E0: 20 73 74 72 69 6E 67 0D 0A 73 74 72 70 6F 73 32   string..strpos2
0001F0: 3A 0D 0A 09 6C 64 61 78 09 64 09 09 3B 67 65 74  :...ldax.d..;get

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 20 63 68 61 72 61 63 74 65 72 20 74 6F 20 63 68   character to ch
000010: 65 63 6B 20 0D 0A 09 6F 72 61 09 61 09 09 3B 63  eck ...ora.a..;c
000020: 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66 20 65  heck to see if e
000030: 6E 64 20 6F 66 20 73 74 72 69 6E 67 20 31 0D 0A  nd of string 1..
000040: 09 72 65 6C 6F 63 09 6A 7A 2C 73 74 72 70 6F 73  .reloc.jz,strpos
000050: 34 09 3B 65 6E 64 20 6F 66 20 73 74 72 69 6E 67  4.;end of string
000060: 20 61 72 67 32 20 69 73 20 6E 6F 74 20 69 6E 73   arg2 is not ins
000070: 69 64 65 20 6F 66 20 61 72 67 31 0D 0A 09 69 6E  ide of arg1...in
000080: 78 09 62 09 09 3B 61 64 64 20 31 20 74 6F 20 70  x.b..;add 1 to p
000090: 6F 73 74 69 6F 6E 0D 0A 09 69 6E 78 09 64 09 09  ostion...inx.d..
0000A0: 3B 61 64 64 20 31 20 74 6F 70 20 70 6F 69 6E 74  ;add 1 top point
0000B0: 65 72 20 6F 66 20 61 72 67 31 0D 0A 09 63 6D 70  er of arg1...cmp
0000C0: 09 6D 09 09 3B 63 68 65 63 6B 20 74 6F 20 73 65  .m..;check to se
0000D0: 65 20 69 66 20 61 20 6D 61 74 63 68 20 6F 6E 20  e if a match on 
0000E0: 66 69 72 73 74 20 63 68 61 72 0D 0A 09 72 65 6C  first char...rel
0000F0: 6F 63 09 6A 6E 7A 2C 73 74 72 70 6F 73 32 09 3B  oc.jnz,strpos2.;
000100: 6C 6F 6F 70 20 74 69 6C 6C 20 66 69 73 72 74 20  loop till fisrt 
000110: 63 68 61 72 61 63 74 65 72 20 6D 61 74 63 68 0D  character match.
000120: 0A 09 70 75 73 68 09 64 09 09 3B 73 61 76 65 20  ..push.d..;save 
000130: 63 75 72 72 65 6E 74 20 70 6F 73 74 69 6F 6E 20  current postion 
000140: 6F 6E 20 73 74 61 63 6B 0D 0A 09 64 63 78 09 64  on stack...dcx.d
000150: 09 09 3B 6D 6F 76 65 20 70 6F 69 6E 74 65 72 20  ..;move pointer 
000160: 62 61 63 6B 20 6F 6E 65 0D 0A 73 74 72 70 6F 73  back one..strpos
000170: 33 3A 0D 0A 09 69 6E 78 09 68 09 09 3B 61 64 64  3:...inx.h..;add
000180: 20 31 20 74 6F 20 61 72 67 31 0D 0A 09 69 6E 78   1 to arg1...inx
000190: 09 64 09 09 3B 61 64 64 20 31 20 74 6F 20 61 72  .d..;add 1 to ar
0001A0: 67 32 0D 0A 09 6D 6F 76 09 61 2C 6D 09 09 3B 63  g2...mov.a,m..;c
0001B0: 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66 20 65  heck to see if e
0001C0: 6E 64 20 6F 66 20 61 72 67 32 0D 0A 09 6F 72 61  nd of arg2...ora
0001D0: 09 61 09 09 3B 73 65 65 20 69 66 20 7A 65 72 6F  .a..;see if zero
0001E0: 20 0D 0A 09 72 65 6C 6F 63 09 6A 7A 2C 73 74 72   ...reloc.jz,str
0001F0: 70 6F 73 35 09 3B 65 6E 64 20 6F 66 20 61 72 67  pos5.;end of arg

Size : 512 (Real : 512)
000000: 09 74 69 74 6C 65 09 27 73 74 72 69 6E 67 20 61  .title.'string a
000010: 73 73 65 62 6D 6C 65 20 66 75 6E 63 74 69 6F 6E  ssebmle function
000020: 20 66 6F 72 20 42 44 53 20 43 27 0D 0A 09 70 61   for BDS C'...pa
000030: 67 65 09 36 30 0D 0A 3B 0D 0A 0D 0A 09 6D 61 63  ge.60..;.....mac
000040: 6C 69 62 09 62 64 73 0D 0A 09 6D 61 63 6C 69 62  lib.bds...maclib
000050: 09 63 6D 61 63 0D 0A 3B 0D 0A 3B 0D 0A 09 64 69  .cmac..;..;...di
000060: 72 65 63 74 0D 0A 09 64 65 66 69 6E 65 09 53 54  rect...define.ST
000070: 52 4C 45 4E 0D 0A 09 64 65 66 69 6E 65 09 53 54  RLEN...define.ST
000080: 52 43 50 59 0D 0A 09 64 65 66 69 6E 65 09 53 54  RCPY...define.ST
000090: 52 43 41 54 0D 0A 09 64 65 66 69 6E 65 09 53 54  RCAT...define.ST
0000A0: 52 50 4F 53 0D 0A 09 65 6E 64 64 69 72 0D 0A 3B  RPOS...enddir..;
0000B0: 0D 0A 09 70 61 67 65 0D 0A 3B 0D 0A 3B 09 73 74  ...page..;..;.st
0000C0: 72 6C 65 6E 0D 0A 3B 0D 0A 3B 09 72 65 74 75 72  rlen..;..;.retur
0000D0: 6E 20 6C 65 6E 67 68 74 20 6F 66 20 73 74 72 69  n lenght of stri
0000E0: 6E 67 0D 0A 3B 0D 0A 09 70 72 65 6C 75 64 65 09  ng..;...prelude.
0000F0: 73 74 72 6C 65 6E 0D 0A 3B 0D 0A 0D 0A 73 74 72  strlen..;....str
000100: 6C 65 6E 3A 0D 0A 09 63 61 6C 6C 09 61 72 67 68  len:...call.argh
000110: 61 6B 09 09 3B 67 65 74 20 61 72 67 20 6C 69 73  ak..;get arg lis
000120: 74 0D 0A 09 6C 68 6C 64 09 61 72 67 31 09 09 3B  t...lhld.arg1..;
000130: 67 65 74 20 70 6F 69 6E 74 20 74 6F 20 73 74 72  get point to str
000140: 69 6E 67 0D 0A 09 78 63 68 67 09 09 09 3B 70 75  ing...xchg...;pu
000150: 74 20 61 64 64 72 65 73 73 20 69 6E 20 64 65 0D  t address in de.
000160: 0A 09 6C 78 69 09 68 2C 30 09 09 3B 70 75 74 20  ..lxi.h,0..;put 
000170: 61 20 7A 65 72 6F 20 69 6E 20 68 6C 20 28 6C 65  a zero in hl (le
000180: 6E 67 74 68 29 0D 0A 73 74 72 6C 65 6E 31 3A 0D  ngth)..strlen1:.
000190: 0A 09 6C 64 61 78 09 64 09 09 3B 67 65 74 20 76  ..ldax.d..;get v
0001A0: 61 6C 75 65 20 6F 66 20 74 68 69 73 20 63 68 61  alue of this cha
0001B0: 72 61 63 74 65 72 0D 0A 09 6F 72 61 09 61 09 09  racter...ora.a..
0001C0: 3B 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66  ;check to see if
0001D0: 20 7A 65 72 6F 0D 0A 09 72 7A 09 09 09 3B 69 66   zero...rz...;if
0001E0: 20 7A 65 72 6F 20 65 6E 64 20 6F 66 20 73 74 72   zero end of str
0001F0: 69 6E 67 20 72 65 74 75 72 6E 0D 0A 09 69 6E 78  ing return...inx

Size : 512 (Real : 512)
000000: 32 20 6D 61 74 63 68 20 66 6F 75 6E 64 20 0D 0A  2 match found ..
000010: 09 6C 64 61 78 09 64 09 09 3B 67 65 74 20 61 72  .ldax.d..;get ar
000020: 67 31 0D 0A 09 63 6D 70 09 6D 09 09 3B 63 68 65  g1...cmp.m..;che
000030: 63 6B 20 74 6F 20 73 65 65 20 69 66 20 6D 61 74  ck to see if mat
000040: 63 68 0D 0A 09 72 65 6C 6F 63 09 6A 7A 2C 73 74  ch...reloc.jz,st
000050: 72 70 6F 73 33 09 3B 6C 6F 6F 70 20 74 6F 20 65  rpos3.;loop to e
000060: 6E 64 20 6F 66 20 73 74 72 69 6E 67 20 6F 72 20  nd of string or 
000070: 6E 6F 6D 61 74 63 68 0D 0A 09 70 6F 70 09 64 09  nomatch...pop.d.
000080: 09 3B 72 65 6D 6F 76 65 20 73 65 61 72 63 68 20  .;remove search 
000090: 61 64 64 72 65 73 73 20 66 72 6F 6D 20 73 74 61  address from sta
0000A0: 63 6B 0D 0A 09 72 65 6C 6F 63 09 6A 6D 70 2C 73  ck...reloc.jmp,s
0000B0: 74 72 70 6F 73 31 09 3B 6C 6F 6F 70 20 74 69 6C  trpos1.;loop til
0000C0: 6C 20 65 6E 64 20 6F 66 20 61 72 67 31 0D 0A 73  l end of arg1..s
0000D0: 74 72 70 6F 73 34 3A 0D 0A 09 70 6F 70 09 62 09  trpos4:...pop.b.
0000E0: 09 3B 72 65 73 74 6F 72 65 20 63 20 73 74 61 63  .;restore c stac
0000F0: 6B 20 70 6F 69 6E 74 65 72 0D 0A 09 6C 78 69 09  k pointer...lxi.
000100: 68 2C 30 09 09 3B 61 72 67 32 20 6E 6F 74 20 66  h,0..;arg2 not f
000110: 6F 75 6E 64 20 69 6E 20 61 72 67 31 0D 0A 09 72  ound in arg1...r
000120: 65 74 0D 0A 73 74 72 70 6F 73 35 3A 0D 0A 09 6D  et..strpos5:...m
000130: 6F 76 09 68 2C 62 09 09 3B 61 72 67 32 20 66 6F  ov.h,b..;arg2 fo
000140: 75 6E 64 20 69 6E 20 61 72 67 31 0D 0A 09 6D 6F  und in arg1...mo
000150: 76 09 6C 2C 63 0D 0A 09 70 6F 70 09 64 09 09 3B  v.l,c...pop.d..;
000160: 72 65 6D 6F 76 65 20 6A 75 6E 6B 20 66 72 6F 6D  remove junk from
000170: 20 73 74 61 63 6B 0D 0A 09 70 6F 70 09 62 09 09   stack...pop.b..
000180: 3B 72 65 73 74 6F 72 65 20 62 20 73 74 61 63 6B  ;restore b stack
000190: 20 70 6F 69 6E 74 65 72 0D 0A 09 72 65 74 0D 0A   pointer...ret..
0001A0: 3B 0D 0A 3B 0D 0A 09 70 6F 73 74 6C 75 64 65 20  ;..;...postlude 
0001B0: 73 74 72 70 6F 73 0D 0A 09 65 6E 64 0D 0A 1A 1A  strpos...end....
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 0A 2F 2A 20 20 20 20 20 20 44 65 66 69 6E 65 20  ./*      Define 
000010: 73 79 73 74 65 6D 20 64 65 70 65 6E 64 65 6E 74  system dependent
000020: 20 70 61 72 61 6D 65 74 65 72 73 20 20 20 20 20   parameters     
000030: 20 2A 2F 0D 0A 0D 0A 2F 2A 20 20 20 20 20 20 53   */..../*      S
000040: 74 61 6E 64 2D 61 6C 6F 6E 65 20 64 65 66 69 6E  tand-alone defin
000050: 69 74 69 6F 6E 73 20 20 20 20 20 20 20 20 20 20  itions          
000060: 20 20 20 20 20 20 20 2A 2F 0D 0A 0D 0A 23 64 65         */....#de
000070: 66 69 6E 65 20 42 55 46 53 49 5A 09 31 30 33 30  fine BUFSIZ.1030
000080: 0D 0A 23 64 65 66 69 6E 65 20 45 52 52 4F 52 09  ..#define ERROR.
000090: 2D 31 0D 0A 23 64 65 66 69 6E 65 20 46 41 4C 53  -1..#define FALS
0000A0: 45 09 30 0D 0A 23 64 65 66 69 6E 65 20 54 52 55  E.0..#define TRU
0000B0: 45 09 31 0D 0A 23 64 65 66 69 6E 65 20 65 6F 6C  E.1..#define eol
0000C0: 20 09 31 33 09 0D 0A 23 64 65 66 69 6E 65 20 43   .13...#define C
0000D0: 52 09 31 33 09 0D 0A 23 64 65 66 69 6E 65 20 4C  R.13...#define L
0000E0: 46 09 31 30 0D 0A 23 64 65 66 69 6E 65 20 42 53  F.10..#define BS
0000F0: 09 38 0D 0A 23 64 65 66 69 6E 65 20 54 42 09 39  .8..#define TB.9
000100: 0D 0A 23 64 65 66 69 6E 65 20 46 46 09 31 32 0D  ..#define FF.12.
000110: 0A 0D 0A 2F 2A 20 20 20 20 20 20 44 65 66 69 6E  .../*      Defin
000120: 65 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 70  e symbol table p
000130: 61 72 61 6D 65 74 65 72 73 20 20 20 20 20 20 20  arameters       
000140: 20 20 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 6C     */..#define l
000150: 76 61 6C 73 69 7A 65 20 33 0D 0A 23 64 65 66 69  valsize 3..#defi
000160: 6E 65 20 53 57 49 54 43 48 5F 4D 41 58 20 32 35  ne SWITCH_MAX 25
000170: 34 0D 0A 23 64 65 66 69 6E 65 20 73 79 6D 73 69  4..#define symsi
000180: 7A 20 20 31 35 0D 0A 23 64 65 66 69 6E 65 20 73  z  15..#define s
000190: 79 6D 74 62 73 7A 20 36 30 30 30 0D 0A 23 64 65  ymtbsz 6000..#de
0001A0: 66 69 6E 65 20 6E 75 6D 67 6C 62 73 20 33 30 30  fine numglbs 300
0001B0: 0D 0A 23 64 65 66 69 6E 65 20 73 74 61 72 74 67  ..#define startg
0001C0: 6C 62 20 73 79 6D 74 61 62 0D 0A 23 64 65 66 69  lb symtab..#defi
0001D0: 6E 65 20 65 6E 64 67 6C 62 20 20 73 74 61 72 74  ne endglb  start
0001E0: 67 6C 62 2B 6E 75 6D 67 6C 62 73 2A 73 79 6D 73  glb+numglbs*syms
0001F0: 69 7A 0D 0A 23 64 65 66 69 6E 65 20 73 74 61 72  iz..#define star

Size : 512 (Real : 512)
000000: 53 54 52 4C 45 CE 05 02 53 54 52 43 50 D9 1E 02  STRLE...STRCP...
000010: 53 54 52 43 41 D4 38 02 53 54 52 50 4F D3 5F 02  STRCA.8.STRPO._.
000020: 80 A3 02 CD BB 0D CD B5 0D C3 FB 0C CD A0 0D C3  ................
000030: FB 0C CD 96 0D FE 38 CA 7B 0C E6 08 C4 82 11 79  ......8.{......y
000040: E6 30 B0 C3 F8 0C CD 32 0F CD B5 0D C3 FB 0C CD  .0.....2........
000050: 96 0D B0 47 CD BB 0D CD 8B 0D B0 C3 F8 0C CD 96  ...G............
000060: 0D B0 CD 31 0F CD BB 0D CD AF 0D C3 FB 0C CD 32  ...1...........2
000070: 0F CD AF 0D C3 FB 0C CD 96 0D E6 28 C4 82 11 79  ...........(...y
000080: E6 10 B0 C3 F8 0C CD 32 0F CD B5 0D C3 FB 0C CD  .......2........
000090: 8B 0D B0 C3 F8 0C CD 96 0D B0 C3 F8 0C CD 96 0D  ................
0000A0: E6 08 C4 82 11 79 E6 30 B0 C3 F8 0C CD 96 0D B0  .....y.0........
0000B0: C3 F8 0C CD 32 0F CD AF 0D C3 FB 0C CD 31 0F CD  ....2........1..
0000C0: F4 0E CD E3 0E C3 D5 0D 10 27 E8 03 64 00 0A 00  .........'..d...
0000D0: 01 00 06 05 21 04 0D 5E 23 56 23 E5 2A DC 11 0E  ....!..^#V#.*...
0000E0: 30 7D 93 6F 7C 9A 67 DA 2A 0D 0C C3 1D 0D 19 22  0}.o|.g.*......"
0000F0: DC 11 3A DB 11 B7 CA 44 0D 78 3D CA 44 0D 79 FE  ..:....D.x=.D.y.
000100: 53 54 52 4C 45 CE 05 02 53 54 52 43 50 D9 1E 02  STRLE...STRCP...
000110: 53 54 52 43 41 D4 38 02 53 54 52 50 4F D3 5F 02  STRCA.8.STRPO._.
000120: 80 A3 02 CD BB 0D CD B5 0D C3 FB 0C CD A0 0D C3  ................
000130: FB 0C CD 96 0D FE 38 CA 7B 0C E6 08 C4 82 11 79  ......8.{......y
000140: E6 30 B0 C3 F8 0C CD 32 0F CD B5 0D C3 FB 0C CD  .0.....2........
000150: 96 0D B0 47 CD BB 0D CD 8B 0D B0 C3 F8 0C CD 96  ...G............
000160: 0D B0 CD 31 0F CD BB 0D CD AF 0D C3 FB 0C CD 32  ...1...........2
000170: 0F CD AF 0D C3 FB 0C CD 96 0D E6 28 C4 82 11 79  ...........(...y
000180: E6 10 B0 C3 F8 0C CD 32 0F CD B5 0D C3 FB 0C CD  .......2........
000190: 8B 0D B0 C3 F8 0C CD 96 0D B0 C3 F8 0C CD 96 0D  ................
0001A0: E6 08 C4 82 11 79 E6 30 B0 C3 F8 0C CD 96 0D B0  .....y.0........
0001B0: C3 F8 0C CD 32 0F CD AF 0D C3 FB 0C CD 31 0F CD  ....2........1..
0001C0: F4 0E CD E3 0E C3 D5 0D 10 27 E8 03 64 00 0A 00  .........'..d...
0001D0: 01 00 06 05 21 04 0D 5E 23 56 23 E5 2A DC 11 0E  ....!..^#V#.*...
0001E0: 30 7D 93 6F 7C 9A 67 DA 2A 0D 0C C3 1D 0D 19 22  0}.o|.g.*......"
0001F0: DC 11 3A DB 11 B7 CA 44 0D 78 3D CA 44 0D 79 FE  ..:....D.x=.D.y.

Size : 512 (Real : 512)
000000: 74 6C 6F 63 20 65 6E 64 67 6C 62 2B 73 79 6D 73  tloc endglb+syms
000010: 69 7A 0D 0A 23 64 65 66 69 6E 65 20 65 6E 64 6C  iz..#define endl
000020: 6F 63 20 20 73 79 6D 74 61 62 2B 73 79 6D 74 62  oc  symtab+symtb
000030: 73 7A 2D 73 79 6D 73 69 7A 0D 0A 0D 0A 2F 2A 20  sz-symsiz..../* 
000040: 20 20 20 20 20 44 65 66 69 6E 65 20 73 79 6D 62       Define symb
000050: 6F 6C 20 74 61 62 6C 65 20 65 6E 74 72 79 20 66  ol table entry f
000060: 6F 72 6D 61 74 20 20 20 20 20 20 20 20 2A 2F 0D  ormat        */.
000070: 0A 0D 0A 23 64 65 66 69 6E 65 20 6E 61 6D 65 20  ...#define name 
000080: 20 20 20 30 0D 0A 23 64 65 66 69 6E 65 20 69 64     0..#define id
000090: 65 6E 74 20 20 20 39 0D 0A 23 64 65 66 69 6E 65  ent   9..#define
0000A0: 20 74 79 70 65 20 20 20 20 31 30 0D 0A 23 64 65   type    10..#de
0000B0: 66 69 6E 65 20 69 6E 64 63 6E 74 09 31 31 0D 0A  fine indcnt.11..
0000C0: 23 64 65 66 69 6E 65 20 73 74 6F 72 61 67 65 20  #define storage 
0000D0: 31 32 0D 0A 23 64 65 66 69 6E 65 20 6F 66 66 73  12..#define offs
0000E0: 65 74 20 20 31 33 0D 0A 23 64 65 66 69 6E 65 20  et  13..#define 
0000F0: 6F 66 66 73 65 74 31 09 31 34 0D 0A 2F 2A 20 20  offset1.14../*  
000100: 20 20 20 20 53 79 73 74 65 6D 20 77 69 64 65 20      System wide 
000110: 6E 61 6D 65 20 73 69 7A 65 20 28 66 6F 72 20 73  name size (for s
000120: 79 6D 62 6F 6C 73 29 20 20 20 20 20 2A 2F 0D 0A  ymbols)     */..
000130: 0D 0A 23 64 65 66 69 6E 65 20 6E 61 6D 65 73 69  ..#define namesi
000140: 7A 65 20 39 0D 0A 23 64 65 66 69 6E 65 20 6E 61  ze 9..#define na
000150: 6D 65 6D 61 78 20 20 38 0D 0A 0D 0A 2F 2A 20 20  memax  8..../*  
000160: 20 20 20 20 44 65 66 69 6E 65 20 70 6F 73 73 69      Define possi
000170: 62 6C 65 20 65 6E 74 72 69 65 73 20 66 6F 72 20  ble entries for 
000180: 22 69 64 65 6E 74 22 20 20 20 20 20 2A 2F 0D 0A  "ident"     */..
000190: 0D 0A 23 64 65 66 69 6E 65 20 76 61 72 69 61 62  ..#define variab
0001A0: 6C 65 09 31 09 09 2F 2A 20 61 20 6E 6F 72 6D 61  le.1../* a norma
0001B0: 6C 20 76 61 72 62 6C 65 20 2A 2F 0D 0A 23 64 65  l varble */..#de
0001C0: 66 69 6E 65 20 61 72 72 61 79 09 09 32 09 09 2F  fine array..2../
0001D0: 2A 20 61 72 72 61 79 20 6F 66 20 76 61 72 62 6C  * array of varbl
0001E0: 65 73 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 70  es */..#define p
0001F0: 6F 69 6E 74 65 72 09 09 33 09 09 2F 2A 20 70 6F  ointer..3../* po

Size : 512 (Real : 512)
000000: 53 54 52 4C 45 00 12 00 CD 37 03 2A 9F 05 EB 21  STRLE....7.*...!
000010: 00 00 1A B7 C8 23 13 C3 0A 00 01 00 10 00 00 13  .....#..........
000020: 00 CD 37 03 2A 9F 05 EB 2A A1 05 7E 12 B7 C8 23  ..7.*...*..~...#
000030: 13 C3 0A 00 01 00 11 00 00 1C 00 CD 37 03 2A 9F  ............7.*.
000040: 05 EB 2A A1 05 1A B7 CA 13 00 13 C3 0A 00 7E 12  ..*...........~.
000050: B7 C8 23 13 C3 13 00 03 00 0D 00 11 00 1A 00 00  ..#.............
000060: 35 00 CD 37 03 C5 2A 9F 05 EB 01 00 00 2A A1 05  5..7..*......*..
000070: 1A B7 CA 2B 00 03 13 BE C2 0E 00 D5 1B 23 13 7E  ...+.........#.~
000080: B7 CA 30 00 1A BE CA 1B 00 D1 C3 0B 00 C1 21 00  ..0...........!.
000090: 00 C9 60 69 D1 C1 C9 05 00 11 00 17 00 20 00 25  ..`i......... .%
0000A0: 00 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .)..............
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 2B 20 3C 52 45 54 55 52 4E 3E 0D 0A 38 20 4E 20  + <RETURN>..8 N 
000110: 53 20 22 5E 41 22 20 20 20 20 20 20 20 20 20 43  S "^A"         C
000120: 55 52 53 4F 52 20 4C 45 46 54 0D 0A 38 20 43 20  URSOR LEFT..8 C 
000130: 22 5E 27 23 39 45 27 22 0D 0A 39 20 4E 20 53 20  "^'#9E'"..9 N S 
000140: 22 5E 57 22 20 20 20 20 20 20 20 20 20 43 4F 50  "^W"         COP
000150: 59 3A 20 72 65 70 65 61 74 20 6C 61 73 74 20 6C  Y: repeat last l
000160: 69 6E 65 0D 0A 39 20 43 20 22 5E 52 22 20 20 20  ine..9 C "^R"   
000170: 20 20 20 20 20 20 20 3C 43 54 52 4C 3E 20 43 4F         <CTRL> CO
000180: 50 59 3A 20 69 67 6E 6F 72 65 20 63 75 72 72 65  PY: ignore curre
000190: 6E 74 20 6C 69 6E 65 20 61 6E 64 20 72 65 70 65  nt line and repe
0001A0: 61 74 0D 0A 31 35 20 43 20 22 5E 27 23 38 45 27  at..15 C "^'#8E'
0001B0: 22 20 20 20 20 20 3C 43 54 52 4C 3E 20 30 3A 20  "     <CTRL> 0: 
0001C0: 27 42 3A 3D 2A 2E 2A 27 20 28 66 6F 72 20 50 49  'B:=*.*' (for PI
0001D0: 50 29 0D 0A 31 36 20 4E 20 53 20 22 5E 47 22 20  P)..16 N S "^G" 
0001E0: 20 20 20 20 20 20 20 43 4C 52 0D 0A 31 36 20 43         CLR..16 C
0001F0: 20 22 5E 4B 22 20 20 20 20 20 20 20 20 20 3C 43   "^K"         <C

Size : 512 (Real : 512)
000000: 69 6E 74 65 72 20 74 6F 20 61 20 76 61 72 62 6C  inter to a varbl
000010: 65 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 66 75  e */..#define fu
000020: 6E 63 74 69 6F 6E 09 34 09 09 2F 2A 20 65 6E 74  nction.4../* ent
000030: 72 79 20 69 73 20 61 20 66 75 6E 63 74 69 6F 6E  ry is a function
000040: 20 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 44 65 66   */../*      Def
000050: 69 6E 65 20 70 6F 73 73 69 62 6C 65 20 65 6E 74  ine possible ent
000060: 72 69 65 73 20 66 6F 72 20 22 74 79 70 65 22 20  ries for "type" 
000070: 20 20 20 20 20 2A 2F 0D 0A 0D 0A 23 64 65 66 69       */....#defi
000080: 6E 65 20 63 63 68 61 72 20 20 20 31 0D 0A 23 64  ne cchar   1..#d
000090: 65 66 69 6E 65 20 63 69 6E 74 20 20 20 20 32 0D  efine cint    2.
0000A0: 0A 0D 0A 2F 2A 09 4C 65 6E 67 68 74 20 6F 66 20  .../*.Lenght of 
0000B0: 70 6F 73 73 69 62 6C 65 20 65 6E 74 72 69 65 73  possible entries
0000C0: 20 66 6F 72 20 22 74 79 70 65 22 09 2A 2F 0D 0A   for "type".*/..
0000D0: 0D 0A 23 64 65 66 69 6E 65 20 6C 63 68 61 72 09  ..#define lchar.
0000E0: 31 0D 0A 23 64 65 66 69 6E 65 20 6C 69 6E 74 09  1..#define lint.
0000F0: 32 0D 0A 23 64 65 66 69 6E 65 20 6C 70 6F 69 6E  2..#define lpoin
000100: 74 09 32 0D 0A 0D 0A 2F 2A 20 20 20 20 20 20 44  t.2..../*      D
000110: 65 66 69 6E 65 20 70 6F 73 73 69 62 6C 65 20 65  efine possible e
000120: 6E 74 72 69 65 73 20 66 6F 72 20 22 73 74 6F 72  ntries for "stor
000130: 61 67 65 22 20 20 20 2A 2F 0D 0A 0D 0A 23 64 65  age"   */....#de
000140: 66 69 6E 65 20 73 74 61 74 69 6B 20 20 31 0D 0A  fine statik  1..
000150: 23 64 65 66 69 6E 65 20 73 74 6B 6C 6F 63 20 20  #define stkloc  
000160: 32 0D 0A 23 64 65 66 69 6E 65 20 73 74 6B 61 72  2..#define stkar
000170: 67 20 20 33 0D 0A 0D 0A 2F 2A 09 76 61 6C 75 65  g  3..../*.value
000180: 73 20 72 65 74 75 72 6E 65 64 20 62 79 20 68 65  s returned by he
000190: 69 72 78 78 20 09 09 2A 2F 0D 0A 0D 0A 23 64 65  irxx ..*/....#de
0001A0: 66 69 6E 65 09 4C 4F 41 44 45 44 09 09 30 09 2F  fine.LOADED..0./
0001B0: 2A 20 76 61 6C 75 65 20 6F 6E 20 74 6F 70 20 6F  * value on top o
0001C0: 66 20 73 74 61 63 6B 20 2A 2F 0D 0A 23 64 65 66  f stack */..#def
0001D0: 69 6E 65 20 41 44 44 52 45 53 53 09 09 31 09 2F  ine ADDRESS..1./
0001E0: 2A 20 61 64 64 72 65 73 73 20 6F 66 20 6C 76 61  * address of lva
0001F0: 6C 75 65 20 6F 6E 20 73 74 61 63 6B 20 2A 2F 0D  lue on stack */.

Size : 512 (Real : 512)
000000: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000040: 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 20 20 20 20 20  ******/../*     
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2F                */
000090: 0D 0A 2F 2A 20 20 20 54 68 69 73 20 43 20 63 6F  ../*   This C co
0000A0: 6D 70 69 6C 65 72 20 69 73 20 63 6F 70 69 65 64  mpiler is copied
0000B0: 20 66 72 6F 6D 20 44 72 2E 20 44 6F 62 62 27 73   from Dr. Dobb's
0000C0: 20 4A 6F 75 72 6E 61 6C 20 6F 66 20 43 6F 6D 70   Journal of Comp
0000D0: 75 74 65 72 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20  uter   */../*   
0000E0: 20 20 20 20 20 43 61 6C 69 73 74 68 65 6E 69 63       Calisthenic
0000F0: 73 20 26 20 4F 72 74 68 6F 64 6F 6E 74 69 61 20  s & Orthodontia 
000100: 28 69 73 73 75 65 20 6E 75 6D 62 65 72 20 34 35  (issue number 45
000110: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  )               
000120: 2A 2F 0D 0A 2F 2A 20 20 20 2D 2D 20 44 69 73 74  */../*   -- Dist
000130: 72 69 62 75 74 69 6F 6E 20 61 6E 64 20 75 73 65  ribution and use
000140: 20 69 73 20 75 6E 72 65 73 74 72 69 63 74 65 64   is unrestricted
000150: 20 66 6F 72 20 6E 6F 6E 2D 63 6F 6D 6D 65 72 63   for non-commerc
000160: 69 61 6C 20 75 73 65 2E 20 2A 2F 0D 0A 2F 2A 20  ial use. */../* 
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 20 20    */../*        
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 20 20 20 20 20 20 52 41 46 20 38 2D 38           RAF 8-8
0001F0: 2D 38 30 20 20 20 20 20 20 20 20 2A 2F 0D 0A 2F  -80        */../

Size : 512 (Real : 512)
000000: 0A 23 64 65 66 69 6E 65 20 4E 4F 54 4C 4F 41 44  .#define NOTLOAD
000010: 45 44 09 32 09 2F 2A 20 61 64 64 72 65 73 73 20  ED.2./* address 
000020: 69 6E 20 6C 76 61 6C 75 65 20 69 6E 20 61 72 72  in lvalue in arr
000030: 61 79 20 6E 6F 74 20 6C 6F 61 64 65 64 20 2A 2F  ay not loaded */
000040: 0D 0A 23 64 65 66 69 6E 65 20 43 4F 4E 53 54 41  ..#define CONSTA
000050: 4E 54 09 33 09 2F 2A 20 63 6F 6E 73 74 61 6E 74  NT.3./* constant
000060: 20 69 6E 20 6C 76 61 6C 20 2A 2F 0D 0A 2F 2A 20   in lval */../* 
000070: 20 20 20 20 20 44 65 66 69 6E 65 20 74 68 65 20       Define the 
000080: 22 77 68 69 6C 65 22 20 73 74 61 74 65 6D 65 6E  "while" statemen
000090: 74 20 71 75 65 75 65 20 20 20 20 20 20 2A 2F 0D  t queue      */.
0000A0: 0A 0D 0A 23 64 65 66 69 6E 65 20 77 71 74 61 62  ...#define wqtab
0000B0: 73 7A 20 31 30 30 0D 0A 23 64 65 66 69 6E 65 20  sz 100..#define 
0000C0: 77 71 73 69 7A 20 20 20 36 0D 0A 23 64 65 66 69  wqsiz   6..#defi
0000D0: 6E 65 20 77 71 6D 61 78 20 20 20 77 71 2B 77 71  ne wqmax   wq+wq
0000E0: 74 61 62 73 7A 2D 77 71 73 69 7A 0D 0A 0D 0A 2F  tabsz-wqsiz..../
0000F0: 2A 20 20 20 20 20 20 44 65 66 69 6E 65 20 65 6E  *      Define en
000100: 74 72 79 20 6F 66 66 73 65 74 73 20 69 6E 20 77  try offsets in w
000110: 68 69 6C 65 20 71 75 65 75 65 20 20 20 20 20 2A  hile queue     *
000120: 2F 0D 0A 0D 0A 23 64 65 66 69 6E 65 20 77 71 73  /....#define wqs
000130: 79 6D 20 20 20 30 0D 0A 23 64 65 66 69 6E 65 20  ym   0..#define 
000140: 77 71 73 70 20 20 20 20 31 0D 0A 23 64 65 66 69  wqsp    1..#defi
000150: 6E 65 20 77 71 6C 6F 6F 70 20 20 32 0D 0A 23 64  ne wqloop  2..#d
000160: 65 66 69 6E 65 20 77 71 6C 61 62 20 20 20 33 0D  efine wqlab   3.
000170: 0A 23 64 65 66 69 6E 65 20 77 71 65 6E 64 09 34  .#define wqend.4
000180: 0D 0A 23 64 65 66 69 6E 65 20 77 71 62 6F 64 79  ..#define wqbody
000190: 09 35 0D 0A 2F 2A 20 20 20 20 20 20 44 65 66 69  .5../*      Defi
0001A0: 6E 65 20 74 68 65 20 6C 69 74 65 72 61 6C 20 70  ne the literal p
0001B0: 6F 6F 6C 20 20 20 20 20 20 20 20 20 20 20 20 20  ool             
0001C0: 20 20 20 20 2A 2F 0D 0A 0D 0A 23 64 65 66 69 6E      */....#defin
0001D0: 65 20 6C 69 74 61 62 73 7A 20 32 30 30 30 0D 0A  e litabsz 2000..
0001E0: 23 64 65 66 69 6E 65 20 6C 69 74 6D 61 78 20 20  #define litmax  
0001F0: 6C 69 74 61 62 73 7A 2D 31 0D 0A 0D 0A 2F 2A 20  litabsz-1..../* 

Size : 512 (Real : 512)
000000: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A      */../*******
000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D  **************/.
000090: 0A 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  .../************
0000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000C0: 2A 2A 2A 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 20  ****/../*       
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20         */../*   
000100: 20 20 20 20 20 20 20 20 20 20 73 6D 61 6C 6C 2D            small-
000110: 63 20 63 6F 6D 70 69 6C 65 72 20 20 20 20 20 20  c compiler      
000120: 20 20 20 20 20 20 20 20 20 20 20 2A 2F 0D 0A 2F             */../
000130: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
000140: 20 20 72 65 76 2E 20 31 2E 31 20 20 20 20 20 20    rev. 1.1      
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A                 *
000160: 2F 0D 0A 2F 2A 20 20 20 20 20 20 20 20 20 20 20  /../*           
000170: 20 20 20 20 62 79 20 52 6F 6E 20 43 61 69 6E 20      by Ron Cain 
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 20     */../*       
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 2A 2A 2A         */../****
0001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 0D  ************/...

Size : 512 (Real : 512)
000000: 20 20 20 20 20 44 65 66 69 6E 65 20 74 68 65 20       Define the 
000010: 69 6E 70 75 74 20 6C 69 6E 65 20 20 20 20 20 20  input line      
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2F 0D               */.
000030: 0A 0D 0A 23 64 65 66 69 6E 65 20 6C 69 6E 65 73  ...#define lines
000040: 69 7A 65 20 38 30 0D 0A 23 64 65 66 69 6E 65 20  ize 80..#define 
000050: 6C 69 6E 65 6D 61 78 20 6C 69 6E 65 73 69 7A 65  linemax linesize
000060: 2D 31 0D 0A 23 64 65 66 69 6E 65 20 6D 70 6D 61  -1..#define mpma
000070: 78 20 20 20 6C 69 6E 65 6D 61 78 0D 0A 0D 0A 2F  x   linemax..../
000080: 2A 20 20 20 20 20 20 44 65 66 69 6E 65 20 74 68  *      Define th
000090: 65 20 6D 61 63 72 6F 20 28 64 65 66 69 6E 65 29  e macro (define)
0000A0: 20 70 6F 6F 6C 20 20 20 20 20 20 20 20 20 20 2A   pool          *
0000B0: 2F 0D 0A 0D 0A 23 64 65 66 69 6E 65 20 6D 61 63  /....#define mac
0000C0: 71 73 69 7A 65 20 31 30 30 30 0D 0A 23 64 65 66  qsize 1000..#def
0000D0: 69 6E 65 20 6D 61 63 6D 61 78 20 20 6D 61 63 71  ine macmax  macq
0000E0: 73 69 7A 65 2D 31 0D 0A 0D 0A 2F 2A 20 20 20 20  size-1..../*    
0000F0: 20 20 44 65 66 69 6E 65 20 73 74 61 74 65 6D 65    Define stateme
000100: 6E 74 20 74 79 70 65 73 20 28 74 6F 6B 65 6E 73  nt types (tokens
000110: 29 20 20 20 20 20 20 20 20 20 2A 2F 0D 0A 0D 0A  )         */....
000120: 23 64 65 66 69 6E 65 20 73 74 69 66 20 20 20 20  #define stif    
000130: 31 0D 0A 23 64 65 66 69 6E 65 20 73 74 77 68 69  1..#define stwhi
000140: 6C 65 20 32 0D 0A 23 64 65 66 69 6E 65 20 73 74  le 2..#define st
000150: 66 6F 72 09 33 0D 0A 23 64 65 66 69 6E 65 20 73  for.3..#define s
000160: 74 73 77 69 74 63 68 20 34 0D 0A 23 64 65 66 69  tswitch 4..#defi
000170: 6E 65 20 73 74 72 65 74 75 72 6E 20 35 0D 0A 23  ne streturn 5..#
000180: 64 65 66 69 6E 65 20 73 74 62 72 65 61 6B 20 36  define stbreak 6
000190: 0D 0A 23 64 65 66 69 6E 65 20 73 74 63 6F 6E 74  ..#define stcont
0001A0: 20 20 37 0D 0A 23 64 65 66 69 6E 65 20 73 74 61    7..#define sta
0001B0: 73 6D 20 20 20 38 0D 0A 23 64 65 66 69 6E 65 20  sm   8..#define 
0001C0: 73 74 65 78 70 20 20 20 39 0D 0A 0D 0A 2F 2A 09  stexp   9..../*.
0001D0: 6E 61 6D 65 20 6F 66 20 73 6F 6D 65 20 66 75 6E  name of some fun
0001E0: 63 74 69 6F 6E 20 63 61 6C 6C 65 64 20 62 79 20  ction called by 
0001F0: 63 6F 64 65 20 67 65 6E 20 73 74 65 70 20 2A 2F  code gen step */

Size : 512 (Real : 512)
000000: 20 20 20 20 20 2F 2A 20 77 6F 72 6B 20 70 74 72       /* work ptr
000010: 20 74 6F 20 61 6E 79 20 63 68 61 72 20 62 75 66   to any char buf
000020: 66 65 72 20 2A 2F 0D 0A 69 6E 74 20 20 20 20 20  fer */..int     
000030: 2A 69 70 74 72 3B 20 20 20 20 20 20 20 20 20 20  *iptr;          
000040: 2F 2A 20 77 6F 72 6B 20 70 74 72 20 74 6F 20 61  /* work ptr to a
000050: 6E 79 20 69 6E 74 20 62 75 66 66 65 72 20 2A 2F  ny int buffer */
000060: 0D 0A 2F 2A 09 66 69 6C 65 20 69 6F 20 62 75 66  ../*.file io buf
000070: 66 65 72 73 09 09 2A 2F 0D 0A 63 68 61 72 20 66  fers..*/..char f
000080: 69 6E 70 5B 42 55 46 53 49 5A 5D 3B 09 09 2F 2A  inp[BUFSIZ];../*
000090: 20 69 6E 70 75 74 20 66 69 6C 65 20 62 75 66 66   input file buff
0000A0: 65 72 20 2A 2F 0D 0A 63 68 61 72 20 66 69 6E 70  er */..char finp
0000B0: 32 5B 42 55 46 53 49 5A 5D 3B 09 09 2F 2A 20 69  2[BUFSIZ];../* i
0000C0: 6E 70 75 74 20 32 20 66 69 6C 65 20 62 75 66 66  nput 2 file buff
0000D0: 65 72 20 2A 2F 0D 0A 63 68 61 72 20 66 6F 75 74  er */..char fout
0000E0: 5B 42 55 46 53 49 5A 5D 3B 09 09 2F 2A 20 6F 75  [BUFSIZ];../* ou
0000F0: 70 75 74 20 66 69 6C 65 20 62 75 66 66 65 72 20  put file buffer 
000100: 2A 2F 0D 0A 1A 6E 26 00 E5 CD 09 33 D1 21 00 01  */...n&....3.!..
000110: 09 5E 23 56 13 72 2B 73 C3 5E 33 2A 11 9E 11 08  .^#V.r+s.^3*....
000120: 00 CD F9 01 CD A9 01 D2 C4 33 2A 11 9E 11 02 00  .........3*.....
000130: CD 3F 02 11 19 00 CD FA 02 19 11 08 00 EB CD CB  .?..............
000140: 02 C3 C7 33 21 01 00 EB 21 00 01 09 73 23 72 21  ...3!...!...s#r!
000150: 00 01 09 5E 23 56 1B 72 2B 73 13 7A B3 CA F0 33  ...^#V.r+s.z...3
000160: 21 E6 33 C3 E8 33 09 00 E5 CD 06 33 D1 C3 CF 33  !.3..3.....3...3
000170: C3 02 34 21 F9 33 C3 FD 33 09 09 09 00 E5 CD 06  ..4!.3..3.......
000180: ED 5B 43 6D 19 CD 04 56 CD DF 57 C3 AE 5A CD E5  .[Cm...V..W..Z..
000190: 57 CD F3 55 CD 3C 5C 2A 39 6D 19 ED 5B 41 6D 19  W..U.<\*9m..[Am.
0001A0: CD 04 56 2A 73 6D C3 DD 5A CD 83 58 3F D4 AF 58  ..V*sm..Z..X?..X
0001B0: DC B7 58 9F E6 80 32 6D 6D C9 CD 7D 58 30 01 29  ..X...2mm..}X0.)
0001C0: EB C9 CD 83 58 3F D8 CD 97 58 D8 CD AF 58 D8 C3  ....X?...X...X..
0001D0: 5A 58 7C B5 C8 E5 CD FC 5C 44 4D 11 9C 00 AF ED  ZX|.....\DM.....
0001E0: 52 23 EB 67 6F 22 39 6D E1 D2 C6 5A 79 04 D6 0C  R#.go"9m...Zy...
0001F0: 20 FB 78 C3 D3 5A 2A 51 6D 3A 73 6D B7 28 05 CB   .x..Z*Qm:sm.(..

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 23 64 65 66 69 6E 65 20 45 51 09 22  ....#define EQ."
000010: 40 63 6F 6D 70 22 09 09 0D 0A 23 64 65 66 69 6E  @comp"....#defin
000020: 65 09 47 45 09 22 40 63 6F 6D 70 2B 32 35 68 22  e.GE."@comp+25h"
000030: 09 0D 0A 23 64 65 66 69 6E 65 20 47 54 09 22 40  ...#define GT."@
000040: 63 6F 6D 70 2B 31 32 68 22 09 0D 0A 23 64 65 66  comp+12h"...#def
000050: 69 6E 65 20 4C 45 09 22 40 63 6F 6D 70 2B 32 66  ine LE."@comp+2f
000060: 68 22 0D 0A 23 64 65 66 69 6E 65 20 4C 54 09 22  h"..#define LT."
000070: 40 63 6F 6D 70 2B 31 63 68 22 0D 0A 23 64 65 66  @comp+1ch"..#def
000080: 69 6E 65 20 4E 45 09 22 40 63 6F 6D 70 2B 31 39  ine NE."@comp+19
000090: 68 22 0D 0A 0D 0A 23 64 65 66 69 6E 65 20 55 47  h"....#define UG
0000A0: 45 09 22 40 75 63 6F 6D 70 2B 31 33 68 22 0D 0A  E."@ucomp+13h"..
0000B0: 23 64 65 66 69 6E 65 20 55 47 54 09 22 40 75 63  #define UGT."@uc
0000C0: 6F 6D 70 22 0D 0A 23 64 65 66 69 6E 65 09 55 4C  omp"..#define.UL
0000D0: 45 09 22 40 75 63 6F 6D 70 2B 31 63 68 22 0D 0A  E."@ucomp+1ch"..
0000E0: 23 64 65 66 69 6E 65 09 55 4C 54 09 22 40 75 63  #define.ULT."@uc
0000F0: 6F 6D 70 2B 30 61 68 22 0D 0A 0D 0A 23 64 65 66  omp+0ah"....#def
000100: 69 6E 65 20 50 52 45 49 4E 43 09 22 40 69 6E 63  ine PREINC."@inc
000110: 64 65 63 22 0D 0A 23 64 65 66 69 6E 65 20 50 52  dec"..#define PR
000120: 45 44 45 43 09 22 40 69 6E 63 64 65 63 2B 30 38  EDEC."@incdec+08
000130: 68 22 0D 0A 23 64 65 66 69 6E 65 20 50 4F 53 54  h"..#define POST
000140: 49 4E 43 09 22 40 69 6E 63 64 65 63 2B 31 30 68  INC."@incdec+10h
000150: 22 0D 0A 23 64 65 66 69 6E 65 20 50 4F 53 54 44  "..#define POSTD
000160: 45 43 09 22 40 69 6E 64 65 63 2B 31 61 68 22 0D  EC."@indec+1ah".
000170: 0A 0D 0A 2F 2A 20 20 20 20 20 20 4E 6F 77 20 72  .../*      Now r
000180: 65 73 65 72 76 65 20 73 6F 6D 65 20 73 74 6F 72  eserve some stor
000190: 61 67 65 20 77 6F 72 64 73 20 20 20 20 20 20 20  age words       
0001A0: 20 20 20 2A 2F 0D 0A 0D 0A 63 68 61 72 20 20 20     */....char   
0001B0: 20 73 79 6D 74 61 62 5B 73 79 6D 74 62 73 7A 5D   symtab[symtbsz]
0001C0: 3B 20 20 20 20 20 20 20 20 2F 2A 20 73 79 6D 62  ;        /* symb
0001D0: 6F 6C 20 74 61 62 6C 65 20 2A 2F 0D 0A 63 68 61  ol table */..cha
0001E0: 72 20 20 20 20 2A 67 6C 62 70 74 72 2C 2A 6C 6F  r    *glbptr,*lo
0001F0: 63 70 74 72 3B 20 20 20 20 20 20 20 20 20 20 20  cptr;           

Size : 512 (Real : 512)
000000: 63 63 31 20 63 31 2E 63 20 2D 65 20 38 30 30 30  cc1 c1.c -e 8000
000010: 0D 0A 63 63 31 20 63 32 2E 63 20 2D 65 20 38 30  ..cc1 c2.c -e 80
000020: 30 30 0D 0A 63 63 31 20 63 33 2E 63 20 2D 65 20  00..cc1 c3.c -e 
000030: 38 30 30 30 0D 0A 63 63 31 20 63 34 2E 63 20 2D  8000..cc1 c4.c -
000040: 65 20 38 30 30 30 0D 0A 63 63 31 20 63 35 2E 63  e 8000..cc1 c5.c
000050: 20 2D 65 20 38 30 30 30 0D 0A 63 63 31 20 63 36   -e 8000..cc1 c6
000060: 2E 63 20 2D 65 20 38 30 30 30 0D 0A 63 63 31 20  .c -e 8000..cc1 
000070: 63 37 2E 63 20 2D 65 20 38 30 30 30 0D 0A 63 63  c7.c -e 8000..cc
000080: 31 20 63 38 2E 63 20 2D 65 20 38 30 30 30 0D 0A  1 c8.c -e 8000..
000090: 63 63 31 20 63 39 2E 63 20 2D 65 20 38 30 30 30  cc1 c9.c -e 8000
0000A0: 0D 0A 63 6C 69 6E 6B 20 63 31 20 63 32 20 63 33  ..clink c1 c2 c3
0000B0: 20 63 34 20 63 35 20 63 36 20 63 37 20 63 38 20   c4 c5 c6 c7 c8 
0000C0: 63 39 20 63 31 20 63 32 20 63 33 20 63 34 20 63  c9 c1 c2 c3 c4 c
0000D0: 35 20 63 36 20 63 37 20 63 38 20 63 39 20 20 2D  5 c6 c7 c8 c9  -
0000E0: 72 20 65 30 30 20 2D 73 0D 0A 1A 20 20 2A 30 30  r e00 -s...  *00
0000F0: 30 35 2A 63 63 31 20 63 36 2E 63 20 20 20 20 20  05*cc1 c6.c     
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 20 20 20 20 20 2F 2A 20 70 74 72 73 20 74 6F 20       /* ptrs to 
000010: 6E 65 78 74 20 65 6E 74 72 69 65 73 20 2A 2F 0D  next entries */.
000020: 0A 69 6E 74 20 20 20 20 20 77 71 5B 77 71 74 61  .int     wq[wqta
000030: 62 73 7A 5D 3B 20 20 20 20 20 20 20 20 20 20 20  bsz];           
000040: 20 2F 2A 20 77 68 69 6C 65 20 71 75 65 75 65 20   /* while queue 
000050: 2A 2F 0D 0A 69 6E 74 20 20 20 20 20 2A 77 71 70  */..int     *wqp
000060: 74 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20  tr;             
000070: 20 20 20 20 2F 2A 20 70 74 72 20 74 6F 20 6E 65      /* ptr to ne
000080: 78 74 20 65 6E 74 72 79 20 2A 2F 0D 0A 0D 0A 63  xt entry */....c
000090: 68 61 72 20 20 20 20 6C 69 74 71 5B 6C 69 74 61  har    litq[lita
0000A0: 62 73 7A 5D 3B 20 20 20 20 20 20 20 20 20 20 2F  bsz];          /
0000B0: 2A 20 6C 69 74 65 72 61 6C 20 70 6F 6F 6C 20 2A  * literal pool *
0000C0: 2F 0D 0A 69 6E 74 20 20 20 20 20 6C 69 74 70 74  /..int     litpt
0000D0: 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r;              
0000E0: 20 20 20 2F 2A 20 70 74 72 20 74 6F 20 6E 65 78     /* ptr to nex
0000F0: 74 20 65 6E 74 72 79 20 2A 2F 0D 0A 0D 0A 63 68  t entry */....ch
000100: 61 72 20 20 20 20 6D 61 63 71 5B 6D 61 63 71 73  ar    macq[macqs
000110: 69 7A 65 5D 3B 20 20 20 20 20 20 20 20 20 2F 2A  ize];         /*
000120: 20 6D 61 63 72 6F 20 73 74 72 69 6E 67 20 62 75   macro string bu
000130: 66 66 65 72 20 2A 2F 0D 0A 69 6E 74 20 20 20 20  ffer */..int    
000140: 20 6D 61 63 70 74 72 3B 20 20 20 20 20 20 20 20   macptr;        
000150: 20 20 20 20 20 20 20 20 20 2F 2A 20 61 6E 64 20           /* and 
000160: 69 74 73 20 69 6E 64 65 78 20 2A 2F 0D 0A 0D 0A  its index */....
000170: 63 68 61 72 20 20 20 20 6C 69 6E 65 5B 6C 69 6E  char    line[lin
000180: 65 73 69 7A 65 5D 3B 20 20 20 20 20 20 20 20 20  esize];         
000190: 2F 2A 20 70 61 72 73 69 6E 67 20 62 75 66 66 65  /* parsing buffe
0001A0: 72 20 2A 2F 0D 0A 63 68 61 72 20 20 20 20 6D 6C  r */..char    ml
0001B0: 69 6E 65 5B 6C 69 6E 65 73 69 7A 65 5D 3B 20 20  ine[linesize];  
0001C0: 20 20 20 20 20 20 2F 2A 20 74 65 6D 70 20 6D 61        /* temp ma
0001D0: 63 72 6F 20 62 75 66 66 65 72 20 2A 2F 0D 0A 69  cro buffer */..i
0001E0: 6E 74 20 20 20 20 20 6C 70 74 72 2C 6D 70 74 72  nt     lptr,mptr
0001F0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2F  ;              /

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 2A 20 70 74 72 73 20 69 6E 74 6F 20 65 61 63 68  * ptrs into each
000010: 20 2A 2F 0D 0A 0D 0A 2F 2A 20 20 20 20 20 20 4D   */..../*      M
000020: 69 73 63 20 73 74 6F 72 61 67 65 20 20 20 20 2A  isc storage    *
000030: 2F 0D 0A 0D 0A 69 6E 74 20 20 20 20 20 6E 78 74  /....int     nxt
000040: 6C 61 62 2C 20 20 20 20 20 20 20 20 20 2F 2A 20  lab,         /* 
000050: 6E 65 78 74 20 61 76 61 69 6C 20 6C 61 62 65 6C  next avail label
000060: 20 23 20 2A 2F 0D 0A 20 20 20 20 20 20 20 20 6C   # */..        l
000070: 69 74 6C 61 62 2C 20 20 20 20 20 20 20 20 20 2F  itlab,         /
000080: 2A 20 6C 61 62 65 6C 20 23 20 61 73 73 69 67 6E  * label # assign
000090: 65 64 20 74 6F 20 6C 69 74 65 72 61 6C 20 70 6F  ed to literal po
0000A0: 6F 6C 20 2A 2F 0D 0A 20 20 20 20 20 20 20 20 73  ol */..        s
0000B0: 70 2C 20 20 20 20 20 20 20 20 20 20 20 20 20 2F  p,             /
0000C0: 2A 20 63 6F 6D 70 69 6C 65 72 20 72 65 6C 61 74  * compiler relat
0000D0: 69 76 65 20 73 74 6B 20 70 74 72 20 2A 2F 0D 0A  ive stk ptr */..
0000E0: 20 20 20 20 20 20 20 20 61 72 67 73 74 6B 2C 20          argstk, 
0000F0: 20 20 20 20 20 20 20 20 2F 2A 20 66 75 6E 63 74          /* funct
000100: 69 6F 6E 20 61 72 67 20 73 70 20 2A 2F 0D 0A 20  ion arg sp */.. 
000110: 20 20 20 20 20 20 20 6E 63 6D 70 2C 20 20 20 20         ncmp,    
000120: 20 20 20 20 20 20 20 2F 2A 20 23 20 6F 70 65 6E         /* # open
000130: 20 63 6F 6D 70 6F 75 6E 64 20 73 74 61 74 65 6D   compound statem
000140: 65 6E 74 73 20 2A 2F 0D 0A 20 20 20 20 20 20 20  ents */..       
000150: 20 65 72 72 63 6E 74 2C 20 20 20 20 20 20 20 20   errcnt,        
000160: 20 2F 2A 20 23 20 65 72 72 6F 72 73 20 69 6E 20   /* # errors in 
000170: 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 2A 2F 0D 0A  compilation */..
000180: 20 20 20 20 20 20 20 20 65 6F 66 2C 20 20 20 20          eof,    
000190: 20 20 20 20 20 20 20 20 2F 2A 20 73 65 74 20 6E          /* set n
0001A0: 6F 6E 2D 7A 65 72 6F 20 6F 6E 20 66 69 6E 61 6C  on-zero on final
0001B0: 20 69 6E 70 75 74 20 65 6F 66 20 2A 2F 0D 0A 20   input eof */.. 
0001C0: 20 20 20 20 20 20 20 69 6E 70 75 74 2C 20 20 20         input,   
0001D0: 20 20 20 20 20 20 20 2F 2A 20 69 6F 62 20 23 20         /* iob # 
0001E0: 66 6F 72 20 69 6E 70 75 74 20 66 69 6C 65 20 2A  for input file *
0001F0: 2F 0D 0A 20 20 20 20 20 20 20 20 6F 75 74 70 75  /..        outpu

Size : 512 (Real : 512)
000000: 2F 2A 09 3E 3E 3E 3E 3E 20 73 74 61 72 74 20 63  /*.>>>>> start c
000010: 63 6C 20 3C 3C 3C 3C 3C 3C 09 09 2A 2F 0D 0A 2F  cl <<<<<<..*/../
000020: 2A 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 43 6F 6D  *.....*/../*.Com
000030: 70 69 6C 65 72 20 62 65 67 69 6E 73 20 65 78 65  piler begins exe
000040: 63 75 74 69 6F 6E 20 68 65 72 65 20 20 2A 2F 0D  cution here  */.
000050: 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 23 69 66 6E  ./*.....*/..#ifn
000060: 64 65 66 20 54 52 55 45 09 2F 2A 73 65 65 20 69  def TRUE./*see i
000070: 66 20 6E 65 65 64 20 74 6F 20 75 73 65 20 69 6E  f need to use in
000080: 63 6C 75 64 65 20 66 69 6C 65 20 2A 2F 0D 0A 23  clude file */..#
000090: 69 6E 63 6C 75 64 65 20 3C 63 2E 64 65 66 3E 0D  include <c.def>.
0000A0: 0A 23 65 6E 64 69 66 0D 0A 6D 61 69 6E 28 29 0D  .#endif..main().
0000B0: 0A 09 7B 0D 0A 09 67 6C 62 70 74 72 3D 73 74 61  ..{...glbptr=sta
0000C0: 72 74 67 6C 62 3B 09 2F 2A 20 63 6C 65 61 72 20  rtglb;./* clear 
0000D0: 67 6C 6F 62 61 6C 20 73 79 6D 62 6F 6C 73 20 2A  global symbols *
0000E0: 2F 0D 0A 09 6C 6F 63 70 74 72 3D 73 74 61 72 74  /...locptr=start
0000F0: 6C 6F 63 3B 09 2F 2A 20 63 6C 65 61 72 20 6C 6F  loc;./* clear lo
000100: 63 61 6C 20 73 79 6D 62 6F 6C 73 20 2A 2F 0D 0A  cal symbols */..
000110: 09 77 71 70 74 72 3D 77 71 3B 09 09 2F 2A 20 63  .wqptr=wq;../* c
000120: 6C 65 61 72 20 77 68 69 6C 65 20 71 75 65 75 65  lear while queue
000130: 20 2A 2F 0D 0A 09 6D 61 63 70 74 72 3D 09 09 09   */...macptr=...
000140: 2F 2A 20 63 6C 65 61 72 20 74 68 65 20 6D 61 63  /* clear the mac
000150: 72 6F 20 70 6F 6F 6C 20 2A 2F 0D 0A 09 6C 69 74  ro pool */...lit
000160: 70 74 72 3D 09 09 09 2F 2A 20 63 6C 65 61 72 20  ptr=.../* clear 
000170: 6C 69 74 65 72 61 6C 20 70 6F 6F 6C 20 2A 2F 0D  literal pool */.
000180: 0A 09 6E 78 74 6C 61 62 3D 20 09 09 2F 2A 20 6E  ..nxtlab= ../* n
000190: 65 78 74 20 6C 61 62 65 6C 20 74 6F 20 61 73 73  ext label to ass
0001A0: 69 67 6E 20 2A 2F 0D 0A 09 73 70 20 3D 09 09 09  ign */...sp =...
0001B0: 2F 2A 20 73 74 61 63 6B 70 74 72 20 28 72 65 6C  /* stackptr (rel
0001C0: 61 74 69 76 65 29 20 2A 2F 0D 0A 09 65 72 72 63  ative) */...errc
0001D0: 6E 74 3D 09 09 09 2F 2A 20 6E 6F 20 65 72 72 6F  nt=.../* no erro
0001E0: 72 73 20 2A 2F 0D 0A 09 65 6F 66 3D 09 09 09 2F  rs */...eof=.../
0001F0: 2A 20 6E 6F 74 20 65 6F 66 20 79 65 74 20 2A 2F  * not eof yet */

Size : 512 (Real : 512)
000000: 74 2C 20 20 20 20 20 20 20 20 20 2F 2A 20 69 6F  t,         /* io
000010: 62 20 23 20 66 6F 72 20 6F 75 74 70 75 74 20 66  b # for output f
000020: 69 6C 65 20 28 69 66 20 61 6E 79 29 20 2A 2F 0D  ile (if any) */.
000030: 0A 20 20 20 20 20 20 20 20 69 6E 70 75 74 32 2C  .        input2,
000040: 20 20 20 20 20 20 20 20 20 2F 2A 20 69 6F 62 20           /* iob 
000050: 23 20 66 6F 72 20 22 69 6E 63 6C 75 64 65 22 20  # for "include" 
000060: 74 69 74 6C 65 20 2A 2F 0D 0A 09 6C 69 6E 65 31  title */...line1
000070: 2C 09 09 2F 2A 20 63 75 72 72 65 6E 74 20 6C 69  ,../* current li
000080: 6E 65 20 6E 75 6D 62 65 72 20 69 6E 20 6D 61 69  ne number in mai
000090: 6E 20 66 69 6C 65 20 2A 2F 0D 0A 09 6C 69 6E 65  n file */...line
0000A0: 32 2C 09 09 2F 2A 20 63 75 72 72 65 6E 74 20 6C  2,../* current l
0000B0: 69 6E 65 20 69 6E 20 69 6E 63 6C 75 64 65 20 66  ine in include f
0000C0: 69 6C 65 20 2A 2F 0D 0A 20 20 20 20 20 20 20 20  ile */..        
0000D0: 63 74 65 78 74 2C 20 20 20 20 20 20 20 20 20 20  ctext,          
0000E0: 2F 2A 20 6E 6F 6E 2D 7A 65 72 6F 20 74 6F 20 69  /* non-zero to i
0000F0: 6E 74 65 72 6D 69 78 20 63 2D 73 6F 75 72 63 65  ntermix c-source
000100: 20 2A 2F 0D 0A 20 20 20 20 20 20 20 20 63 6D 6F   */..        cmo
000110: 64 65 2C 20 20 20 20 20 20 20 20 20 20 2F 2A 20  de,          /* 
000120: 6E 6F 6E 2D 7A 65 72 6F 20 77 68 69 6C 65 20 70  non-zero while p
000130: 61 72 73 69 6E 67 20 63 2D 63 6F 64 65 20 2A 2F  arsing c-code */
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000150: 20 20 20 20 20 20 20 20 20 20 2F 2A 20 7A 65 72            /* zer
000160: 6F 20 77 68 65 6E 20 70 61 73 73 69 6E 67 20 61  o when passing a
000170: 73 73 65 6D 62 6C 79 20 63 6F 64 65 20 2A 2F 0D  ssembly code */.
000180: 0A 09 63 69 66 2C 09 09 2F 2A 20 73 74 61 74 65  ..cif,../* state
000190: 20 6F 66 20 70 72 65 70 72 6F 63 65 73 73 20 69   of preprocess i
0001A0: 66 20 73 74 61 74 65 6D 65 6E 74 20 2A 2F 0D 0A  f statement */..
0001B0: 20 20 20 20 20 20 20 20 6C 61 73 74 73 74 3B 20          lastst; 
0001C0: 20 20 20 20 20 20 20 20 2F 2A 20 6C 61 73 74 20          /* last 
0001D0: 65 78 65 63 75 74 65 64 20 73 74 61 74 6D 65 6E  executed statmen
0001E0: 74 20 74 79 70 65 20 2A 2F 0D 0A 0D 0A 63 68 61  t type */....cha
0001F0: 72 20 20 20 20 2A 63 70 74 72 3B 20 20 20 20 20  r    *cptr;     

Size : 512 (Real : 512)
000000: 0D 0A 09 69 6E 70 75 74 3D 09 09 09 2F 2A 20 6E  ...input=.../* n
000010: 6F 20 69 6E 70 75 74 20 66 69 6C 65 20 2A 2F 0D  o input file */.
000020: 0A 09 69 6E 70 75 74 32 3D 09 09 09 2F 2A 20 6F  ..input2=.../* o
000030: 72 20 69 6E 63 6C 75 64 65 20 66 69 6C 65 20 2A  r include file *
000040: 2F 0D 0A 09 6F 75 74 70 75 74 3D 09 09 09 2F 2A  /...output=.../*
000050: 20 6E 6F 20 6F 70 65 6E 20 75 6E 69 74 73 20 2A   no open units *
000060: 2F 0D 0A 09 6E 63 6D 70 3D 09 09 09 2F 2A 20 6E  /...ncmp=.../* n
000070: 6F 20 6F 70 65 6E 20 63 6F 6D 70 6F 75 6E 64 20  o open compound 
000080: 73 74 61 74 65 73 20 2A 2F 0D 0A 09 63 74 65 78  states */...ctex
000090: 74 3D 09 09 09 2F 2A 20 64 6F 20 6E 6F 74 20 70  t=.../* do not p
0000A0: 72 69 6E 74 20 74 65 78 74 20 2A 2F 0D 0A 09 6C  rint text */...l
0000B0: 61 73 74 73 74 3D 30 3B 09 09 2F 2A 20 6E 6F 20  astst=0;../* no 
0000C0: 6C 61 73 74 20 73 74 61 74 65 6D 65 6E 74 20 79  last statement y
0000D0: 65 74 20 2A 2F 0D 0A 09 63 69 66 3D 09 09 09 2F  et */...cif=.../
0000E0: 2A 20 73 74 61 74 65 20 6F 66 20 23 69 66 78 78  * state of #ifxx
0000F0: 78 78 20 2A 2F 0D 0A 09 63 6D 6F 64 65 3D 31 3B  xx */...cmode=1;
000100: 09 09 2F 2A 20 65 6E 61 62 6C 65 20 70 72 65 70  ../* enable prep
000110: 72 6F 63 65 73 73 69 6E 67 20 2A 2F 0D 0A 09 6C  rocessing */...l
000120: 69 74 6C 61 62 3D 67 65 74 6C 61 62 65 6C 28 29  itlab=getlabel()
000130: 3B 09 2F 2A 20 6C 61 62 65 6C 20 6E 75 6D 62 65  ;./* label numbe
000140: 72 20 66 6F 72 20 6C 69 74 65 72 61 6C 20 70 6F  r for literal po
000150: 6C 6C 20 2A 2F 0D 0A 09 2F 2A 09 09 09 09 2A 2F  ll */.../*....*/
000160: 0D 0A 09 2F 2A 09 63 6F 6D 70 69 6C 65 72 20 62  .../*.compiler b
000170: 6F 64 79 09 09 2A 2F 0D 0A 09 2F 2A 09 09 09 09  ody..*/.../*....
000180: 2A 2F 0D 0A 09 61 73 6B 28 29 3B 09 09 09 2F 2A  */...ask();.../*
000190: 20 67 65 74 20 75 73 65 72 20 6F 70 74 69 6F 6E   get user option
0001A0: 73 20 2A 2F 0D 0A 09 6F 70 65 6E 6F 75 74 28 29  s */...openout()
0001B0: 3B 09 09 2F 2A 20 67 65 74 20 61 6E 20 6F 75 74  ;../* get an out
0001C0: 70 75 74 20 66 69 6C 65 20 2A 2F 0D 0A 09 6F 70  put file */...op
0001D0: 65 6E 69 6E 28 29 3B 09 09 2F 2A 20 61 6E 64 20  enin();../* and 
0001E0: 69 6E 69 74 69 61 6C 20 69 6E 70 75 74 20 66 69  initial input fi
0001F0: 6C 65 20 2A 2F 0D 0A 09 68 65 61 64 65 72 28 29  le */...header()

Size : 512 (Real : 512)
000000: 70 74 72 3D 63 70 74 72 2B 73 79 6D 73 69 7A 3B  ptr=cptr+symsiz;
000010: 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A 2F 2A 09 09 09  ....}...}../*...
000020: 09 09 2A 2F 0D 0A 2F 2A 09 64 75 6D 70 20 65 78  ..*/../*.dump ex
000030: 74 72 6E 20 66 75 6E 63 74 69 6F 6E 09 09 2A 2F  trn function..*/
000040: 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 64 75 6D  ../*.....*/..dum
000050: 70 65 78 74 72 6E 28 29 0D 0A 7B 0D 0A 09 63 68  pextrn()..{...ch
000060: 61 72 20 2A 70 74 72 3B 0D 0A 0D 0A 09 70 74 72  ar *ptr;.....ptr
000070: 3D 73 74 61 72 74 67 6C 62 3B 0D 0A 09 77 68 69  =startglb;...whi
000080: 6C 65 28 70 74 72 21 3D 67 6C 62 70 74 72 29 20  le(ptr!=glbptr) 
000090: 7B 0D 0A 09 09 69 66 20 28 21 70 74 72 5B 6F 66  {....if (!ptr[of
0000A0: 66 73 65 74 5D 29 20 65 78 74 72 6E 28 70 74 72  fset]) extrn(ptr
0000B0: 29 3B 0D 0A 09 09 70 74 72 3D 70 74 72 2B 73 79  );....ptr=ptr+sy
0000C0: 6D 73 69 7A 3B 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A  msiz;....}...}..
0000D0: 2F 2A 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 52 65  /*.....*/../*.Re
0000E0: 70 6F 72 74 20 65 72 72 6F 72 73 20 66 6F 72 20  port errors for 
0000F0: 75 73 65 72 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09  user..*/../*....
000100: 09 2A 2F 0D 0A 65 72 72 6F 72 73 75 6D 6D 61 72  .*/..errorsummar
000110: 79 28 29 0D 0A 7B 0D 0A 09 2F 2A 20 73 65 65 20  y()..{.../* see 
000120: 69 66 20 61 6E 79 74 68 69 6E 67 20 6C 65 66 74  if anything left
000130: 20 68 61 6E 67 69 6E 67 2E 2E 2E 20 2A 2F 0D 0A   hanging... */..
000140: 09 69 66 20 28 6E 63 6D 70 29 20 65 72 72 6F 72  .if (ncmp) error
000150: 28 22 6D 69 73 73 69 6E 67 20 63 6C 6F 73 69 6E  ("missing closin
000160: 67 20 62 72 61 63 6B 65 74 22 29 3B 0D 0A 09 09  g bracket");....
000170: 2F 2A 20 6F 70 65 6E 20 63 6F 6D 70 75 6E 64 20  /* open compund 
000180: 73 74 61 74 6D 65 6E 74 20 2E 2E 2E 20 2A 2F 0D  statment ... */.
000190: 0A 09 69 66 20 28 21 63 69 66 29 20 65 72 72 6F  ..if (!cif) erro
0001A0: 72 28 22 6D 69 73 73 69 6E 67 20 63 6C 6F 73 69  r("missing closi
0001B0: 6E 67 20 23 65 6E 64 69 66 22 29 3B 0D 0A 09 6E  ng #endif");...n
0001C0: 6C 28 29 3B 0D 0A 09 63 6F 6D 6D 65 6E 74 28 29  l();...comment()
0001D0: 3B 0D 0A 09 6F 75 74 64 65 63 28 65 72 72 63 6E  ;...outdec(errcn
0001E0: 74 29 3B 20 2F 2A 20 74 6F 74 61 6C 20 23 20 65  t); /* total # e
0001F0: 72 72 6F 72 73 20 2A 2F 0D 0A 09 6F 75 74 73 74  rrors */...outst

Size : 512 (Real : 512)
000000: 3B 09 09 2F 2A 20 69 6E 74 72 6F 20 63 6F 64 65  ;../* intro code
000010: 20 2A 2F 0D 0A 09 70 61 72 73 65 28 29 3B 09 09   */...parse();..
000020: 2F 2A 20 70 72 6F 63 65 73 73 20 41 4C 4C 20 69  /* process ALL i
000030: 6E 70 75 74 20 2A 2F 0D 0A 09 64 75 6D 70 6C 69  nput */...dumpli
000040: 74 73 28 29 3B 09 09 2F 2A 20 74 68 65 6E 20 64  ts();../* then d
000050: 75 6D 70 20 6C 69 74 65 72 61 6C 20 70 6F 6F 6C  ump literal pool
000060: 20 2A 2F 0D 0A 09 64 75 6D 70 67 6C 62 73 28 29   */...dumpglbs()
000070: 3B 09 09 2F 2A 20 61 6E 64 20 61 6C 6C 20 73 74  ;../* and all st
000080: 61 74 69 63 20 6D 65 6D 6F 72 79 20 2A 2F 0D 0A  atic memory */..
000090: 09 64 75 6D 70 65 78 74 72 6E 28 29 3B 09 09 2F  .dumpextrn();../
0000A0: 2A 20 6D 61 6B 65 20 61 6C 6C 20 66 75 6E 63 74  * make all funct
0000B0: 69 6F 6E 20 64 65 66 69 6E 65 64 20 65 78 74 72  ion defined extr
0000C0: 6E 20 2A 2F 0D 0A 09 65 72 72 6F 72 73 75 6D 6D  n */...errorsumm
0000D0: 61 72 79 28 29 3B 09 09 2F 2A 20 73 75 6D 6D 61  ary();../* summa
0000E0: 72 69 7A 65 20 65 72 72 6F 72 73 20 2A 2F 0D 0A  rize errors */..
0000F0: 09 74 72 61 69 6C 65 72 28 29 3B 09 09 2F 2A 20  .trailer();../* 
000100: 66 6F 6C 6C 6F 77 2D 75 70 20 63 6F 64 65 20 2A  follow-up code *
000110: 2F 0D 0A 09 63 6C 6F 73 65 6F 75 74 28 29 3B 09  /...closeout();.
000120: 09 2F 2A 20 63 6C 6F 73 65 20 74 68 65 20 6F 75  ./* close the ou
000130: 74 70 75 74 20 2A 2F 0D 0A 09 69 66 20 28 65 72  tput */...if (er
000140: 72 63 6E 74 29 20 75 6E 6C 69 6E 6B 28 22 61 3A  rcnt) unlink("a:
000150: 24 24 24 2E 73 75 62 22 29 3B 20 2F 2A 20 69 66  $$$.sub"); /* if
000160: 20 65 72 72 6F 72 73 20 65 72 61 73 65 20 73 75   errors erase su
000170: 62 6D 69 74 20 66 69 6C 65 20 2A 2F 0D 0A 09 72  bmit file */...r
000180: 65 74 75 72 6E 3B 09 09 09 2F 2A 20 74 68 65 6E  eturn;.../* then
000190: 20 65 78 69 74 20 74 6F 20 73 79 73 74 65 6D 20   exit to system 
0001A0: 2A 2F 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A  */...}../*.....*
0001B0: 2F 0D 0A 2F 2A 09 50 72 6F 63 65 73 73 20 61 6C  /../*.Process al
0001C0: 6C 20 69 6E 70 75 74 20 74 65 78 74 09 09 2A 2F  l input text..*/
0001D0: 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 2F 2A 20  ../*.....*/../* 
0001E0: 41 74 20 74 68 69 73 20 6C 65 76 65 6C 2C 20 6F  At this level, o
0001F0: 6E 6C 79 20 73 74 61 74 69 63 20 64 65 63 6C 61  nly static decla

Size : 512 (Real : 512)
000000: 72 28 22 20 65 72 72 6F 72 73 20 69 6E 20 63 6F  r(" errors in co
000010: 6D 70 69 6C 61 74 69 6F 6E 2E 22 29 3B 0D 0A 09  mpilation.");...
000020: 6E 6C 28 29 3B 0D 0A 09 7D 0D 0A 2F 2A 09 09 09  nl();...}../*...
000030: 09 09 2A 2F 0D 0A 2F 2A 09 47 65 74 20 6F 70 74  ..*/../*.Get opt
000040: 69 6F 6E 73 20 66 72 6F 6D 20 75 73 65 72 09 09  ions from user..
000050: 2A 2F 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 61  */../*.....*/..a
000060: 73 6B 28 29 0D 0A 7B 0D 0A 09 69 6E 74 20 6B 3B  sk()..{...int k;
000070: 0D 0A 09 6B 69 6C 6C 28 29 3B 09 20 2F 2A 20 63  ...kill();. /* c
000080: 6C 65 61 72 20 69 6E 70 75 74 20 6C 69 6E 65 20  lear input line 
000090: 2A 2F 0D 0A 09 70 6C 28 22 20 20 2A 20 2A 20 2A  */...pl("  * * *
0000A0: 20 20 73 6D 61 6C 6C 2D 63 20 20 76 65 72 73 69    small-c  versi
0000B0: 6F 6E 20 31 2E 31 20 63 6F 6D 70 69 6C 65 72 20  on 1.1 compiler 
0000C0: 20 2A 20 2A 20 2A 5C 6E 22 29 3B 0D 0A 09 2F 2A   * * *\n");.../*
0000D0: 20 73 65 65 20 69 66 20 75 73 65 72 20 77 61 6E   see if user wan
0000E0: 74 73 20 74 6F 20 69 6E 74 65 72 6C 65 61 73 76  ts to interleasv
0000F0: 65 20 74 68 65 20 63 2D 74 65 78 74 09 2A 2F 0D  e the c-text.*/.
000100: 0A 09 2F 2A 20 20 20 20 20 20 69 6E 66 6F 72 6D  ../*      inform
000110: 20 6F 66 20 63 6F 6D 6D 65 6E 74 73 20 28 66 6F   of comments (fo
000120: 72 20 63 6C 61 72 69 74 79 29 20 09 2A 2F 0D 0A  r clarity) .*/..
000130: 09 70 6C 28 22 44 6F 20 79 6F 75 20 77 69 73 68  .pl("Do you wish
000140: 20 74 6F 20 63 2D 74 65 78 74 20 74 6F 20 61 70   to c-text to ap
000150: 70 65 61 72 3F 20 22 29 3B 0D 0A 09 67 65 74 73  pear? ");...gets
000160: 28 6C 69 6E 65 29 3B 09 09 09 2F 2A 20 67 65 74  (line);.../* get
000170: 20 61 6E 73 77 65 72 20 2A 2F 0D 0A 09 69 66 28   answer */...if(
000180: 74 6F 75 70 70 65 72 28 63 68 28 29 29 3D 3D 27  toupper(ch())=='
000190: 59 27 29 20 63 74 65 78 74 3D 31 3B 09 2F 2A 20  Y') ctext=1;./* 
0001A0: 75 73 65 72 20 73 61 69 64 20 79 65 73 20 2A 2F  user said yes */
0001B0: 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D  ...}../*.....*/.
0001C0: 0A 2F 2A 09 47 65 74 20 6F 75 74 70 75 74 20 66  ./*.Get output f
0001D0: 69 6C 65 6E 61 6D 65 09 09 2A 2F 0D 0A 2F 2A 09  ilename..*/../*.
0001E0: 09 09 09 09 2A 2F 0D 0A 6F 70 65 6E 6F 75 74 28  ....*/..openout(
0001F0: 29 0D 0A 7B 0D 0A 09 6B 69 6C 6C 28 29 3B 09 20  )..{...kill();. 

Size : 512 (Real : 512)
000000: 72 61 74 69 6F 6E 73 2C 09 2A 2F 0D 0A 2F 2A 09  rations,.*/../*.
000010: 64 65 66 69 6E 65 73 2C 20 69 6E 63 6C 75 64 65  defines, include
000020: 73 2C 20 61 6E 64 20 66 75 6E 63 74 69 6F 6E 09  s, and function.
000030: 09 2A 2F 0D 0A 2F 2A 09 64 65 66 69 6E 69 74 69  .*/../*.definiti
000040: 6F 6E 73 20 61 72 65 20 6C 65 67 61 6C 2E 2E 2E  ons are legal...
000050: 09 09 2A 2F 0D 0A 70 61 72 73 65 28 29 0D 0A 7B  ..*/..parse()..{
000060: 0D 0A 09 77 68 69 6C 65 20 28 21 65 6F 66 29 20  ...while (!eof) 
000070: 7B 09 2F 2A 20 64 6F 20 75 6E 74 69 6C 20 6E 6F  {./* do until no
000080: 20 6D 6F 72 65 20 69 6E 70 75 74 20 2A 2F 0D 0A   more input */..
000090: 09 09 69 66 28 61 6D 61 74 63 68 28 22 63 68 61  ..if(amatch("cha
0000A0: 72 22 2C 34 29 29 20 7B 0D 0A 09 09 09 64 65 63  r",4)) {.....dec
0000B0: 6C 67 6C 62 28 63 63 68 61 72 29 3B 0D 0A 09 09  lglb(cchar);....
0000C0: 09 6E 73 28 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09  .ns();.....}....
0000D0: 65 6C 73 65 20 69 66 28 61 6D 61 74 63 68 28 22  else if(amatch("
0000E0: 69 6E 74 22 2C 33 29 29 20 7B 0D 0A 09 09 09 64  int",3)) {.....d
0000F0: 65 63 6C 67 6C 62 28 63 69 6E 74 29 3B 0D 0A 09  eclglb(cint);...
000100: 09 09 6E 73 28 29 3B 0D 0A 09 09 09 7D 0D 0A 09  ..ns();.....}...
000110: 09 65 6C 73 65 20 69 66 28 6D 61 74 63 68 28 22  .else if(match("
000120: 23 61 73 6D 22 29 29 20 64 6F 61 73 6D 28 29 3B  #asm")) doasm();
000130: 0D 0A 09 09 65 6C 73 65 20 69 66 28 6D 61 74 63  ....else if(matc
000140: 68 28 22 23 69 6E 63 6C 75 64 65 22 29 29 20 64  h("#include")) d
000150: 6F 69 6E 63 6C 75 64 65 28 29 3B 0D 0A 09 09 65  oinclude();....e
000160: 6C 73 65 20 69 66 28 6D 61 74 63 68 28 22 23 64  lse if(match("#d
000170: 65 66 69 6E 65 22 29 29 20 61 64 64 6D 61 63 28  efine")) addmac(
000180: 29 3B 20 0D 0A 09 09 65 6C 73 65 20 69 66 28 6D  ); ....else if(m
000190: 61 74 63 68 28 22 23 69 66 6E 64 65 66 22 29 29  atch("#ifndef"))
0001A0: 20 64 6F 69 66 6E 64 65 66 28 29 3B 0D 0A 09 09   doifndef();....
0001B0: 65 6C 73 65 20 69 66 28 6D 61 74 63 68 28 22 23  else if(match("#
0001C0: 69 66 64 65 66 22 29 29 20 64 6F 69 66 64 65 66  ifdef")) doifdef
0001D0: 28 29 3B 20 0D 0A 09 09 65 6C 73 65 20 6E 65 77  (); ....else new
0001E0: 66 75 6E 63 28 29 3B 0D 0A 09 09 62 6C 61 6E 6B  func();....blank
0001F0: 73 28 29 3B 09 2F 2A 20 66 6F 72 63 65 20 65 6F  s();./* force eo

Size : 512 (Real : 512)
000000: 2F 2A 20 65 72 61 73 65 20 6C 69 6E 65 20 2A 2F  /* erase line */
000010: 0D 0A 09 6F 75 74 70 75 74 3D 30 3B 09 20 20 20  ...output=0;.   
000020: 20 20 20 20 2F 2A 20 73 74 61 72 74 20 77 69 74      /* start wit
000030: 68 20 6E 6F 6E 65 20 2A 2F 0D 0A 09 70 6C 28 22  h none */...pl("
000040: 4F 75 74 70 75 74 20 66 69 6C 65 6E 61 6D 65 3F  Output filename?
000050: 20 22 29 3B 20 2F 2A 20 61 73 6B 2E 2E 2E 2A 2F   "); /* ask...*/
000060: 0D 0A 09 67 65 74 73 28 6C 69 6E 65 29 3B 20 20  ...gets(line);  
000070: 20 20 20 2F 2A 20 67 65 74 20 61 20 66 69 6C 65     /* get a file
000080: 6E 61 6D 65 20 2A 2F 0D 0A 09 69 66 28 63 68 28  name */...if(ch(
000090: 29 3D 3D 30 29 72 65 74 75 72 6E 3B 20 20 20 20  )==0)return;    
0000A0: 20 20 2F 2A 20 6E 6F 6E 65 20 67 69 76 65 6E 2E    /* none given.
0000B0: 2E 2E 20 2A 2F 0D 0A 09 69 66 20 28 28 6F 75 74  .. */...if ((out
0000C0: 70 75 74 3D 66 63 72 65 61 74 28 6C 69 6E 65 2C  put=fcreat(line,
0000D0: 66 6F 75 74 29 29 20 3D 3D 20 45 52 52 4F 52 29  fout)) == ERROR)
0000E0: 20 7B 20 20 0D 0A 09 09 6F 75 74 70 75 74 3D 30   {  ....output=0
0000F0: 3B 20 20 20 20 20 20 2F 2A 20 63 61 6E 27 74 20  ;      /* can't 
000100: 6F 70 65 6E 20 2A 2F 0D 0A 09 09 65 72 72 6F 72  open */....error
000110: 28 22 4F 70 65 6E 20 66 61 69 6C 75 72 65 22 29  ("Open failure")
000120: 3B 0D 0A 09 09 7D 0D 0A 09 6B 69 6C 6C 28 29 3B  ;....}...kill();
000130: 09 09 20 2F 2A 20 65 72 61 73 65 20 6C 69 6E 65  .. /* erase line
000140: 20 2A 2F 0D 0A 7D 0D 0A 2F 2A 09 09 09 09 09 2A   */..}../*.....*
000150: 2F 0D 0A 2F 2A 09 47 65 74 20 28 6E 65 78 74 29  /../*.Get (next)
000160: 20 69 6E 70 75 74 20 66 69 6C 65 09 09 2A 2F 0D   input file..*/.
000170: 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 6F 70 65 6E  ./*.....*/..open
000180: 69 6E 28 29 0D 0A 7B 0D 0A 09 69 6E 70 75 74 3D  in()..{...input=
000190: 30 3B 09 09 2F 2A 20 6E 6F 6E 65 20 74 6F 20 73  0;../* none to s
0001A0: 74 61 72 74 20 77 69 74 68 20 2A 2F 0D 0A 09 77  tart with */...w
0001B0: 68 69 6C 65 20 28 21 69 6E 70 75 74 29 09 09 2F  hile (!input)../
0001C0: 2A 20 61 6E 79 20 61 62 6F 76 65 20 31 20 61 6C  * any above 1 al
0001D0: 6C 6F 77 65 64 20 2A 2F 0D 0A 09 09 7B 6B 69 6C  lowed */....{kil
0001E0: 6C 28 29 3B 09 2F 2A 20 63 6C 65 61 72 20 6C 69  l();./* clear li
0001F0: 6E 65 20 2A 2F 0D 0A 09 09 69 66 28 65 6F 66 29  ne */....if(eof)

Size : 512 (Real : 512)
000000: 66 20 69 66 20 70 65 6E 64 69 6E 67 20 2A 2F 0D  f if pending */.
000010: 0A 09 09 7D 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09  ...}...}../*....
000020: 09 2A 2F 0D 0A 2F 2A 09 44 75 6D 70 20 74 68 65  .*/../*.Dump the
000030: 20 6C 69 74 65 72 61 6C 20 70 6F 6F 6C 09 09 2A   literal pool..*
000040: 2F 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 64 75  /../*.....*/..du
000050: 6D 70 6C 69 74 73 28 29 0D 0A 7B 0D 0A 09 69 6E  mplits()..{...in
000060: 74 20 6A 2C 6B 3B 0D 0A 0D 0A 09 69 66 20 28 6C  t j,k;.....if (l
000070: 69 74 70 74 72 3D 3D 30 29 20 72 65 74 75 72 6E  itptr==0) return
000080: 3B 20 20 2F 2A 20 69 66 20 6E 6F 74 68 69 6E 67  ;  /* if nothing
000090: 20 74 68 65 72 65 2C 20 65 78 69 74 2E 2E 2E 2A   there, exit...*
0000A0: 2F 0D 0A 09 70 72 69 6E 74 6C 61 62 65 6C 28 6C  /...printlabel(l
0000B0: 69 74 6C 61 62 29 3B 0D 0A 09 63 6F 6C 28 29 3B  itlab);...col();
0000C0: 09 09 09 2F 2A 20 70 72 69 6E 74 20 6C 69 74 65  .../* print lite
0000D0: 72 61 6C 20 6C 61 62 65 6C 20 2A 2F 0D 0A 09 6B  ral label */...k
0000E0: 3D 30 3B 09 09 09 20 2F 2A 20 69 6E 69 74 20 61  =0;... /* init a
0000F0: 6E 20 69 6E 64 65 78 2E 2E 2E 20 2A 2F 0D 0A 09  n index... */...
000100: 77 68 69 6C 65 20 28 6B 3C 6C 69 74 70 74 72 29  while (k<litptr)
000110: 20 7B 09 20 2F 2A 20 20 20 20 20 20 74 6F 20 6C   {. /*      to l
000120: 6F 6F 70 20 77 69 74 68 20 2A 2F 0D 0A 09 09 64  oop with */....d
000130: 65 66 62 79 74 65 28 29 3B 09 20 2F 2A 20 70 73  efbyte();. /* ps
000140: 65 75 64 6F 2D 6F 70 20 74 6F 20 64 65 66 69 6E  eudo-op to defin
000150: 65 20 62 79 74 65 20 2A 2F 0D 0A 09 09 6A 3D 31  e byte */....j=1
000160: 30 3B 09 20 20 20 2F 2A 20 6D 61 78 20 62 79 74  0;.   /* max byt
000170: 65 73 20 70 65 72 20 6C 69 6E 65 20 2A 2F 0D 0A  es per line */..
000180: 09 09 77 68 69 6C 65 28 6A 2D 2D 29 20 7B 0D 0A  ..while(j--) {..
000190: 09 09 09 6F 75 74 64 65 63 28 6C 69 74 71 5B 6B  ...outdec(litq[k
0001A0: 2B 2B 5D 29 3B 0D 0A 09 09 09 69 66 20 28 6A 3D  ++]);.....if (j=
0001B0: 3D 30 20 7C 7C 20 6B 3E 3D 6C 69 74 70 74 72 29  =0 || k>=litptr)
0001C0: 20 7B 0D 0A 09 09 09 09 6E 6C 28 29 3B 09 20 20   {......nl();.  
0001D0: 2F 2A 20 6E 65 65 64 20 3C 63 72 3E 20 2A 2F 0D  /* need <cr> */.
0001E0: 0A 09 09 09 09 62 72 65 61 6B 3B 0D 0A 09 09 09  .....break;.....
0001F0: 09 7D 0D 0A 09 09 09 6F 75 74 62 79 74 65 28 27  .}.....outbyte('

Size : 512 (Real : 512)
000000: 62 72 65 61 6B 3B 09 2F 2A 20 69 66 20 75 73 65  break;./* if use
000010: 72 20 73 61 69 64 20 6E 6F 6E 65 20 2A 2F 0D 0A  r said none */..
000020: 09 09 70 6C 28 22 49 6E 70 75 74 20 66 69 6C 65  ..pl("Input file
000030: 6E 61 6D 65 3F 20 22 29 3B 0D 0A 09 09 67 65 74  name? ");....get
000040: 73 28 6C 69 6E 65 29 3B 09 2F 2A 20 67 65 74 20  s(line);./* get 
000050: 61 20 6E 61 6D 65 20 2A 2F 0D 0A 09 09 69 66 28  a name */....if(
000060: 63 68 28 29 3D 3D 30 29 20 7B 0D 0A 09 09 09 65  ch()==0) {.....e
000070: 6F 66 3D 31 3B 0D 0A 09 09 09 62 72 65 61 6B 3B  of=1;.....break;
000080: 09 2F 2A 20 6E 6F 6E 65 20 67 69 76 65 6E 2E 2E  ./* none given..
000090: 2E 20 2A 2F 0D 0A 09 09 09 7D 0D 0A 09 09 6C 69  . */.....}....li
0000A0: 6E 65 31 3D 30 3B 0D 0A 09 09 69 66 20 28 28 69  ne1=0;....if ((i
0000B0: 6E 70 75 74 3D 66 6F 70 65 6E 28 6C 69 6E 65 2C  nput=fopen(line,
0000C0: 66 69 6E 70 29 29 20 3D 3D 20 45 52 52 4F 52 29  finp)) == ERROR)
0000D0: 20 7B 0D 0A 09 09 09 69 6E 70 75 74 3D 30 3B 09   {.....input=0;.
0000E0: 2F 2A 20 63 61 6E 27 74 20 6F 70 65 6E 20 69 74  /* can't open it
0000F0: 20 2A 2F 0D 0A 09 09 09 70 6C 28 22 4F 70 65 6E   */.....pl("Open
000100: 20 66 61 69 6C 75 72 65 22 29 3B 0D 0A 09 09 09   failure");.....
000110: 7D 0D 0A 09 09 7D 0D 0A 09 6B 69 6C 6C 28 29 3B  }....}...kill();
000120: 09 20 2F 2A 20 65 72 61 73 65 20 6C 69 6E 65 20  . /* erase line 
000130: 2A 2F 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A  */...}../*.....*
000140: 2F 0D 0A 2F 2A 09 4F 70 65 6E 20 61 6E 20 69 6E  /../*.Open an in
000150: 63 6C 75 64 65 20 66 69 6C 65 09 09 2A 2F 0D 0A  clude file..*/..
000160: 2F 2A 09 09 09 09 09 2A 2F 0D 0A 64 6F 69 6E 63  /*.....*/..doinc
000170: 6C 75 64 65 28 29 0D 0A 7B 0D 0A 09 63 68 61 72  lude()..{...char
000180: 20 66 6E 61 6D 65 5B 33 31 5D 3B 09 2F 2A 20 70   fname[31];./* p
000190: 6C 61 63 65 20 74 6F 20 6F 70 65 6E 20 66 69 6C  lace to open fil
0001A0: 65 20 6E 61 6D 65 20 2A 2F 0D 0A 09 63 68 61 72  e name */...char
0001B0: 20 66 65 6E 64 3B 09 2F 2A 20 65 6E 64 69 6E 67   fend;./* ending
0001C0: 20 63 68 61 72 61 63 74 65 72 20 66 6F 72 20 66   character for f
0001D0: 69 6C 65 20 6E 61 6D 65 20 2A 2F 0D 0A 09 69 6E  ile name */...in
0001E0: 74 20 20 6C 65 6E 67 68 74 3B 09 2F 2A 20 73 69  t  lenght;./* si
0001F0: 7A 65 20 6F 66 20 66 69 6C 65 20 6E 61 6D 65 20  ze of file name 

Size : 512 (Real : 512)
000000: 2C 27 29 3B 20 20 20 2F 2A 20 73 65 70 61 72 61  ,');   /* separa
000010: 74 65 20 62 79 74 65 73 20 2A 2F 0D 0A 09 09 09  te bytes */.....
000020: 7D 0D 0A 09 09 7D 0D 0A 09 6C 69 74 70 74 72 3D  }....}...litptr=
000030: 30 3B 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A  0;...}../*.....*
000040: 2F 0D 0A 2F 2A 09 44 75 6D 70 20 61 6C 6C 20 73  /../*.Dump all s
000050: 74 61 74 69 63 20 76 61 72 69 61 62 6C 65 73 09  tatic variables.
000060: 2A 2F 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 64  */../*.....*/..d
000070: 75 6D 70 67 6C 62 73 28 29 0D 0A 7B 0D 0A 09 69  umpglbs()..{...i
000080: 6E 74 20 6A 3B 0D 0A 09 64 73 65 63 74 28 22 40  nt j;...dsect("@
000090: 67 6C 6F 62 61 6C 73 22 29 3B 0D 0A 09 63 70 74  globals");...cpt
0000A0: 72 3D 73 74 61 72 74 67 6C 62 3B 0D 0A 09 77 68  r=startglb;...wh
0000B0: 69 6C 65 28 63 70 74 72 3C 67 6C 62 70 74 72 29  ile(cptr<glbptr)
0000C0: 20 7B 0D 0A 09 09 69 66 20 28 63 70 74 72 5B 69   {....if (cptr[i
0000D0: 64 65 6E 74 5D 20 21 3D 20 66 75 6E 63 74 69 6F  dent] != functio
0000E0: 6E 29 20 7B 0D 0A 09 09 09 2F 2A 20 64 6F 20 69  n) {...../* do i
0000F0: 66 20 61 6E 79 74 68 69 6E 67 20 62 75 74 20 66  f anything but f
000100: 75 6E 63 74 69 6F 6E 20 2A 2F 0D 0A 09 09 09 6F  unction */.....o
000110: 75 74 73 74 72 28 63 70 74 72 29 3B 63 6F 6C 28  utstr(cptr);col(
000120: 29 3B 0D 0A 09 09 09 09 2F 2A 20 6F 75 74 70 75  );....../* outpu
000130: 74 20 6E 61 6D 65 20 61 73 20 6C 61 62 65 6C 2E  t name as label.
000140: 2E 2E 20 2A 2F 0D 0A 09 09 09 64 65 66 73 74 6F  .. */.....defsto
000150: 72 61 67 65 28 29 3B 20 20 20 2F 2A 64 65 66 69  rage();   /*defi
000160: 6E 65 20 73 74 6F 72 61 67 65 20 2A 2F 0D 0A 09  ne storage */...
000170: 09 09 6A 3D 28 28 63 70 74 72 5B 6F 66 66 73 65  ..j=((cptr[offse
000180: 74 5D 26 32 35 35 29 2B 0D 0A 09 09 09 09 28 28  t]&255)+......((
000190: 63 70 74 72 5B 6F 66 66 73 65 74 2B 31 5D 26 32  cptr[offset+1]&2
0001A0: 35 35 29 3C 3C 38 29 29 3B 0D 0A 09 09 09 09 09  55)<<8));.......
0001B0: 2F 2A 20 63 61 6C 63 20 23 20 62 79 74 65 73 20  /* calc # bytes 
0001C0: 2A 2F 0D 0A 09 09 09 6F 75 74 64 65 63 28 6A 29  */.....outdec(j)
0001D0: 3B 20 20 20 20 20 20 2F 2A 20 6E 65 65 64 20 74  ;      /* need t
0001E0: 68 61 74 20 6D 61 6E 79 20 2A 2F 0D 0A 09 09 09  hat many */.....
0001F0: 6E 6C 28 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 63  nl();.....}....c

Size : 512 (Real : 512)
000000: 2A 2F 0D 0A 09 77 68 69 6C 65 28 69 73 73 70 61  */...while(isspa
000010: 63 65 28 63 68 28 29 29 29 20 67 63 68 28 29 3B  ce(ch())) gch();
000020: 20 09 2F 2A 20 73 6B 69 70 20 6F 76 65 72 20 74   ./* skip over t
000030: 6F 20 6E 61 6D 65 20 2A 2F 0D 0A 09 66 65 6E 64  o name */...fend
000040: 3D 27 20 27 3B 0D 0A 09 69 66 20 28 63 68 28 29  =' ';...if (ch()
000050: 3D 3D 27 3C 27 29 20 7B 0D 0A 09 09 66 65 6E 64  =='<') {....fend
000060: 3D 27 3E 27 3B 0D 0A 09 09 67 63 68 28 29 3B 0D  ='>';....gch();.
000070: 0A 09 09 7D 0D 0A 09 69 66 20 28 63 68 28 29 3D  ...}...if (ch()=
000080: 3D 27 5C 22 27 29 20 7B 0D 0A 09 09 66 65 6E 64  ='\"') {....fend
000090: 3D 27 5C 22 27 3B 0D 0A 09 09 67 63 68 28 29 3B  ='\"';....gch();
0000A0: 0D 0A 09 09 7D 0D 0A 09 6C 65 6E 67 68 74 3D 30  ....}...lenght=0
0000B0: 3B 0D 0A 09 77 68 69 6C 65 28 6C 65 6E 67 68 74  ;...while(lenght
0000C0: 3C 33 30 20 26 26 20 63 68 28 29 20 26 26 20 63  <30 && ch() && c
0000D0: 68 28 29 21 3D 66 65 6E 64 29 20 7B 0D 0A 09 09  h()!=fend) {....
0000E0: 66 6E 61 6D 65 5B 6C 65 6E 67 68 74 2B 2B 5D 3D  fname[lenght++]=
0000F0: 63 68 28 29 3B 0D 0A 09 09 67 63 68 28 29 3B 0D  ch();....gch();.
000100: 0A 09 09 7D 0D 0A 09 66 6E 61 6D 65 5B 6C 65 6E  ...}...fname[len
000110: 67 68 74 5D 3D 30 3B 0D 0A 09 69 66 20 28 21 28  ght]=0;...if (!(
000120: 66 65 6E 64 20 3D 3D 20 63 68 28 29 20 7C 7C 20  fend == ch() || 
000130: 28 66 65 6E 64 20 3D 3D 27 20 27 20 26 26 20 20  (fend ==' ' &&  
000140: 21 63 68 28 29 29 29 29 20 7B 0D 0A 09 09 65 72  !ch()))) {....er
000150: 72 6F 72 28 22 69 6E 76 61 69 6C 64 20 66 69 6C  ror("invaild fil
000160: 65 20 6E 61 6D 65 20 66 6F 72 20 69 6E 63 6C 75  e name for inclu
000170: 64 65 22 29 3B 0D 0A 09 09 6B 69 6C 6C 28 29 3B  de");....kill();
000180: 0D 0A 09 09 72 65 74 75 72 6E 3B 0D 0A 09 09 7D  ....return;....}
000190: 0D 0A 09 69 66 20 28 21 6C 65 6E 67 68 74 29 20  ...if (!lenght) 
0001A0: 7B 0D 0A 09 09 65 72 72 6F 72 28 22 6D 69 73 73  {....error("miss
0001B0: 69 6E 67 20 66 69 6C 65 20 6E 61 6D 65 20 66 6F  ing file name fo
0001C0: 72 20 69 6E 63 6C 75 64 65 22 29 3B 0D 0A 09 09  r include");....
0001D0: 6B 69 6C 6C 28 29 3B 0D 0A 09 09 72 65 74 75 72  kill();....retur
0001E0: 6E 3B 0D 0A 09 09 7D 0D 0A 09 6C 69 6E 65 32 3D  n;....}...line2=
0001F0: 30 3B 0D 0A 09 69 66 20 28 69 6E 70 75 74 32 29  0;...if (input2)

Size : 512 (Real : 512)
000000: 69 6E 65 20 73 74 61 63 6B 20 2A 2F 0D 0A 2F 2A  ine stack */../*
000010: 09 61 6E 64 20 61 64 64 73 20 73 79 6D 62 6F 6C  .and adds symbol
000020: 20 74 61 62 6C 65 20 65 6E 74 72 79 20 77 69 74   table entry wit
000030: 68 20 61 70 70 72 6F 70 72 69 61 74 65 09 2A 2F  h appropriate.*/
000040: 0D 0A 2F 2A 09 73 74 61 63 6B 20 6F 66 66 73 65  ../*.stack offse
000050: 74 20 74 6F 20 66 69 6E 64 20 69 74 20 61 67 61  t to find it aga
000060: 69 6E 09 09 09 2A 2F 0D 0A 64 65 63 6C 6C 6F 63  in...*/..declloc
000070: 28 74 79 70 29 09 20 20 20 20 2F 2A 20 74 79 70  (typ).    /* typ
000080: 20 69 73 20 63 63 68 61 72 20 6F 72 20 63 69 6E   is cchar or cin
000090: 74 20 2A 2F 0D 0A 69 6E 74 20 74 79 70 3B 0D 0A  t */..int typ;..
0000A0: 7B 0D 0A 09 69 6E 74 20 6A 3B 0D 0A 09 69 6E 74  {...int j;...int
0000B0: 20 63 6F 75 6E 74 3B 0D 0A 09 63 68 61 72 20 73   count;...char s
0000C0: 6E 61 6D 65 5B 6E 61 6D 65 73 69 7A 65 5D 3B 0D  name[namesize];.
0000D0: 0A 09 77 68 69 6C 65 28 31 29 20 7B 0D 0A 09 09  ..while(1) {....
0000E0: 63 6F 75 6E 74 3D 30 3B 0D 0A 09 09 69 66 20 28  count=0;....if (
0000F0: 65 6E 64 73 74 28 29 29 20 72 65 74 75 72 6E 3B  endst()) return;
000100: 0D 0A 09 09 69 66 20 28 6D 61 74 63 68 28 22 2A  ....if (match("*
000110: 22 29 29 20 7B 20 0D 0A 09 09 09 6A 3D 70 6F 69  ")) { .....j=poi
000120: 6E 74 65 72 3B 0D 0A 09 09 09 2B 2B 63 6F 75 6E  nter;.....++coun
000130: 74 3B 0D 0A 09 09 09 77 68 69 6C 65 28 63 68 28  t;.....while(ch(
000140: 29 3D 3D 27 2A 27 29 20 7B 0D 0A 09 09 09 09 2B  )=='*') {......+
000150: 2B 63 6F 75 6E 74 3B 0D 0A 09 09 09 09 67 63 68  +count;......gch
000160: 28 29 3B 0D 0A 09 09 09 09 7D 0D 0A 09 09 09 7D  ();......}.....}
000170: 0D 0A 09 09 65 6C 73 65 20 6A 3D 76 61 72 69 61  ....else j=varia
000180: 62 6C 65 3B 0D 0A 09 09 69 66 20 28 21 73 79 6D  ble;....if (!sym
000190: 6E 61 6D 65 28 73 6E 61 6D 65 29 29 20 69 6C 6C  name(sname)) ill
0001A0: 6E 61 6D 65 28 29 3B 0D 0A 09 09 69 66 20 28 66  name();....if (f
0001B0: 69 6E 64 6C 6F 63 28 73 6E 61 6D 65 29 29 20 6D  indloc(sname)) m
0001C0: 75 6C 74 69 64 65 66 28 73 6E 61 6D 65 29 3B 0D  ultidef(sname);.
0001D0: 0A 09 09 64 61 74 61 5F 70 61 72 73 65 28 73 6E  ...data_parse(sn
0001E0: 61 6D 65 2C 74 79 70 2C 73 74 6B 6C 6F 63 2C 6A  ame,typ,stkloc,j
0001F0: 2C 63 6F 75 6E 74 29 3B 0D 0A 09 09 69 66 20 28  ,count);....if (

Size : 512 (Real : 512)
000000: 20 7B 0D 0A 09 09 65 72 72 6F 72 28 22 6E 65 73   {....error("nes
000010: 74 65 64 20 69 6E 63 6C 75 64 65 20 6E 6F 74 20  ted include not 
000020: 61 6C 6F 75 64 22 29 3B 0D 0A 09 09 6B 69 6C 6C  aloud");....kill
000030: 28 29 3B 0D 0A 09 09 72 65 74 75 72 6E 3B 0D 0A  ();....return;..
000040: 09 09 7D 0D 0A 09 69 66 20 28 28 69 6E 70 75 74  ..}...if ((input
000050: 32 3D 66 6F 70 65 6E 28 66 6E 61 6D 65 2C 66 69  2=fopen(fname,fi
000060: 6E 70 32 29 29 20 3D 3D 20 45 52 52 4F 52 29 20  np2)) == ERROR) 
000070: 7B 20 0D 0A 09 09 65 72 72 6F 72 28 22 4F 70 65  { ....error("Ope
000080: 6E 20 66 61 69 6C 75 72 65 20 6F 6E 20 69 6E 63  n failure on inc
000090: 6C 75 64 65 20 66 69 6C 65 22 29 3B 0D 0A 09 09  lude file");....
0000A0: 69 6E 70 75 74 32 3D 30 3B 0D 0A 09 09 7D 0D 0A  input2=0;....}..
0000B0: 09 6B 69 6C 6C 28 29 3B 0D 0A 09 7D 0D 0A 2F 2A  .kill();...}../*
0000C0: 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 23 69 66 6E  .....*/../*.#ifn
0000D0: 64 65 66 20 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09  def ...*/../*...
0000E0: 09 09 2A 2F 0D 0A 64 6F 69 66 6E 64 65 66 28 29  ..*/..doifndef()
0000F0: 0D 0A 7B 0D 0A 09 63 68 61 72 20 73 6E 61 6D 65  ..{...char sname
000100: 5B 6E 61 6D 65 73 69 7A 65 5D 3B 0D 0A 09 69 6E  [namesize];...in
000110: 74 20 6C 76 61 6C 5B 32 5D 3B 0D 0A 0D 0A 09 2F  t lval[2];...../
000120: 2A 20 63 68 65 63 6B 20 74 6F 20 69 66 20 64 65  * check to if de
000130: 66 69 6E 65 20 61 73 20 63 6F 6E 73 74 61 6E 74  fine as constant
000140: 20 2A 2F 0D 0A 09 62 6C 61 6E 6B 73 28 29 3B 0D   */...blanks();.
000150: 0A 09 69 66 20 28 63 6F 6E 73 74 61 6E 74 28 6C  ..if (constant(l
000160: 76 61 6C 29 29 20 7B 0D 0A 09 09 63 69 66 3D 46  val)) {....cif=F
000170: 41 4C 53 45 3B 0D 0A 09 09 72 65 74 75 72 6E 3B  ALSE;....return;
000180: 0D 0A 09 09 7D 0D 0A 0D 0A 09 2F 2A 20 63 68 65  ....}...../* che
000190: 63 6B 20 74 6F 20 73 65 65 20 69 66 20 76 61 69  ck to see if vai
0001A0: 6C 64 20 73 79 73 6D 62 6F 6C 20 2A 2F 0D 0A 09  ld sysmbol */...
0001B0: 69 66 20 28 21 73 79 6D 6E 61 6D 65 28 73 6E 61  if (!symname(sna
0001C0: 6D 65 29 29 20 7B 0D 0A 09 09 65 72 72 6F 72 28  me)) {....error(
0001D0: 22 69 6E 76 61 69 6C 64 20 69 64 65 6E 74 69 66  "invaild identif
0001E0: 69 65 72 22 29 3B 0D 0A 09 09 6B 69 6C 6C 28 29  ier");....kill()
0001F0: 3B 0D 0A 09 09 72 65 74 75 72 6E 3B 0D 0A 09 09  ;....return;....

Size : 512 (Real : 512)
000000: 21 6D 61 74 63 68 28 22 2C 22 29 29 20 72 65 74  !match(",")) ret
000010: 75 72 6E 3B 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A 2F  urn;....}...}../
000020: 2A 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 70 61  *......*/../*.pa
000030: 72 73 65 20 6F 75 74 20 64 61 74 61 20 69 74 65  rse out data ite
000040: 6D 20 61 6E 64 20 61 64 64 20 74 6F 20 73 79 6D  m and add to sym
000050: 62 6F 6C 09 2A 2F 0D 0A 2F 2A 09 73 79 6D 62 6F  bol.*/../*.symbo
000060: 6C 20 74 61 62 6C 65 2E 09 09 09 09 2A 2F 0D 0A  l table.....*/..
000070: 2F 2A 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 77  /*......*/../*.w
000080: 72 69 74 74 65 6E 20 41 70 72 69 6C 20 38 2C 20  ritten April 8, 
000090: 31 39 38 31 20 42 79 20 4D 69 6B 65 20 42 65 72  1981 By Mike Ber
0000A0: 6E 73 6F 6E 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09  nson.*/../*.....
0000B0: 09 2A 2F 0D 0A 64 61 74 61 5F 70 61 72 73 65 28  .*/..data_parse(
0000C0: 73 6E 61 6D 65 2C 74 79 70 2C 63 6C 61 73 73 5F  sname,typ,class_
0000D0: 69 64 2C 69 64 65 6E 74 5F 74 79 70 2C 63 6F 75  id,ident_typ,cou
0000E0: 6E 74 29 0D 0A 63 68 61 72 20 2A 73 6E 61 6D 65  nt)..char *sname
0000F0: 3B 09 09 2F 2A 20 70 6F 69 6E 74 65 72 20 74 6F  ;../* pointer to
000100: 20 6E 61 6D 65 20 6F 66 20 73 79 6D 62 6F 6C 20   name of symbol 
000110: 2A 2F 0D 0A 63 68 61 72 20 74 79 70 3B 09 09 2F  */..char typ;../
000120: 2A 20 74 79 70 65 20 6F 66 20 64 61 74 61 20 63  * type of data c
000130: 68 61 72 20 6F 72 20 69 6E 74 20 2A 2F 0D 0A 63  har or int */..c
000140: 68 61 72 20 63 6C 61 73 73 5F 69 64 3B 09 09 2F  har class_id;../
000150: 2A 20 74 79 70 20 6F 66 20 73 74 6F 72 61 67 65  * typ of storage
000160: 20 73 74 61 74 69 63 20 61 75 74 6F 6D 69 63 20   static automic 
000170: 2A 2F 0D 0A 63 68 61 72 20 69 64 65 6E 74 5F 74  */..char ident_t
000180: 79 70 3B 09 09 2F 2A 20 74 79 70 65 20 6F 66 20  yp;../* type of 
000190: 76 61 72 62 6C 65 20 70 6F 69 6E 74 65 72 20 6F  varble pointer o
0001A0: 72 20 76 61 72 62 6C 65 20 2A 2F 0D 0A 69 6E 74  r varble */..int
0001B0: 20 20 63 6F 75 6E 74 3B 09 09 2F 2A 20 6E 75 6D    count;../* num
0001C0: 62 65 72 20 6F 66 20 6C 65 76 65 6C 20 6F 66 20  ber of level of 
0001D0: 70 6F 69 6E 74 65 72 73 20 2A 2F 0D 0A 7B 0D 0A  pointers */..{..
0001E0: 09 69 6E 74 20 73 69 7A 65 3B 09 2F 2A 20 61 6D  .int size;./* am
0001F0: 6F 75 6E 74 20 6F 66 20 6D 65 6D 6F 72 79 20 6E  ount of memory n

Size : 512 (Real : 512)
000000: 7D 0D 0A 0D 0A 09 2F 2A 20 63 68 65 63 6B 20 74  }...../* check t
000010: 6F 20 73 65 65 20 69 66 20 73 79 6D 62 6F 6C 20  o see if symbol 
000020: 69 73 20 64 65 66 69 6E 65 20 2A 2F 0D 0A 09 69  is define */...i
000030: 66 20 28 66 69 6E 64 6C 6F 63 28 73 6E 61 6D 65  f (findloc(sname
000040: 29 20 7C 7C 20 66 69 6E 64 67 6C 62 28 73 6E 61  ) || findglb(sna
000050: 6D 65 29 29 0D 0A 09 09 63 69 66 3D 46 41 4C 53  me))....cif=FALS
000060: 45 3B 20 65 6C 73 65 20 63 69 66 3D 54 52 55 45  E; else cif=TRUE
000070: 3B 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 2A 2F 0D 0A  ;...}../*...*/..
000080: 2F 2A 09 23 69 66 64 65 66 09 09 2A 2F 0D 0A 2F  /*.#ifdef..*/../
000090: 2A 09 09 09 2A 2F 0D 0A 64 6F 69 66 64 65 66 28  *...*/..doifdef(
0000A0: 29 0D 0A 7B 0D 0A 09 63 68 61 72 20 73 6E 61 6D  )..{...char snam
0000B0: 65 5B 6E 61 6D 65 73 69 7A 65 5D 3B 0D 0A 09 69  e[namesize];...i
0000C0: 6E 74 20 20 6C 76 61 6C 5B 32 5D 3B 0D 0A 0D 0A  nt  lval[2];....
0000D0: 09 2F 2A 20 63 68 65 63 6B 20 74 6F 20 73 65 65  ./* check to see
0000E0: 20 69 66 20 63 6F 6E 73 74 61 6E 74 20 2A 2F 0D   if constant */.
0000F0: 0A 09 62 6C 61 6E 6B 73 28 29 3B 0D 0A 09 69 66  ..blanks();...if
000100: 20 28 21 63 6F 6E 73 74 61 6E 74 28 6C 76 61 6C   (!constant(lval
000110: 29 29 20 7B 0D 0A 09 09 63 69 66 3D 46 41 4C 53  )) {....cif=FALS
000120: 45 3B 0D 0A 09 09 72 65 74 75 72 6E 3B 0D 0A 09  E;....return;...
000130: 09 7D 0D 0A 0D 0A 09 2F 2A 20 63 68 65 63 6B 20  .}...../* check 
000140: 74 6F 20 73 65 65 20 69 66 20 76 61 69 6C 64 20  to see if vaild 
000150: 73 79 6D 62 6F 6C 09 2A 2F 0D 0A 09 69 66 20 28  symbol.*/...if (
000160: 21 73 79 6D 6E 61 6D 65 28 73 6E 61 6D 65 29 29  !symname(sname))
000170: 20 7B 0D 0A 09 09 65 72 72 6F 72 28 22 69 6E 76   {....error("inv
000180: 61 69 6C 64 20 69 64 65 6E 74 69 66 69 65 72 22  aild identifier"
000190: 29 3B 0D 0A 09 09 6B 69 6C 6C 28 29 3B 0D 0A 09  );....kill();...
0001A0: 09 7D 0D 0A 0D 0A 09 2F 2A 20 63 68 65 63 6B 20  .}...../* check 
0001B0: 74 6F 20 73 65 65 20 69 66 20 73 79 6D 62 6F 6C  to see if symbol
0001C0: 20 69 73 20 64 65 66 69 6E 65 20 2A 2F 0D 0A 09   is define */...
0001D0: 69 66 20 28 66 69 6E 64 6C 6F 63 28 73 6E 61 6D  if (findloc(snam
0001E0: 65 29 20 7C 7C 20 66 69 6E 64 67 6C 62 28 73 6E  e) || findglb(sn
0001F0: 61 6D 65 29 29 20 0D 0A 09 09 63 69 66 3D 54 52  ame)) ....cif=TR

Size : 512 (Real : 512)
000000: 65 65 64 65 64 20 66 6F 72 20 76 61 72 62 6C 65  eeded for varble
000010: 20 2A 2F 0D 0A 09 69 6E 74 20 76 61 6C 75 65 3B   */...int value;
000020: 09 2F 2A 20 75 73 65 64 20 74 6F 20 68 6F 6C 64  ./* used to hold
000030: 20 76 61 6C 75 65 20 66 6F 72 20 6F 66 66 73 65   value for offse
000040: 74 20 2A 2F 0D 0A 09 63 68 61 72 20 2A 70 74 72  t */...char *ptr
000050: 3B 09 2F 2A 20 70 6F 69 6E 74 65 72 20 74 6F 20  ;./* pointer to 
000060: 66 72 65 65 20 73 6C 6F 74 20 69 6E 20 73 79 6D  free slot in sym
000070: 62 6F 6C 20 74 61 62 6C 65 20 2A 2F 0D 0A 0D 0A  bol table */....
000080: 09 2F 2A 20 63 68 65 63 6B 20 74 6F 20 73 65 65  ./* check to see
000090: 20 69 66 20 73 75 62 73 63 72 69 70 74 20 2A 2F   if subscript */
0000A0: 0D 0A 09 69 66 20 28 6D 61 74 63 68 28 22 5B 22  ...if (match("["
0000B0: 29 29 20 7B 0D 0A 0D 0A 09 09 2F 2A 20 61 64 64  )) {....../* add
0000C0: 20 31 20 74 6F 20 69 6E 64 65 72 69 63 74 20 63   1 to inderict c
0000D0: 6F 75 6E 74 20 2A 2F 0D 0A 09 09 2B 2B 63 6F 75  ount */....++cou
0000E0: 6E 74 3B 0D 0A 0D 0A 09 09 2F 2A 20 63 68 65 63  nt;....../* chec
0000F0: 6B 20 74 6F 20 73 65 65 20 6E 75 6C 6C 20 73 75  k to see null su
000100: 62 73 63 72 69 70 74 20 2A 2F 0D 0A 09 09 69 66  bscript */....if
000110: 20 28 73 69 7A 65 3D 6E 65 65 64 73 75 62 28 29   (size=needsub()
000120: 29 20 7B 0D 0A 0D 0A 09 09 09 2F 2A 20 73 75 62  ) {......./* sub
000130: 73 63 72 69 70 74 20 73 69 7A 65 20 6E 6F 74 20  script size not 
000140: 6E 75 6C 6C 20 2A 2F 0D 0A 09 09 09 69 66 20 28  null */.....if (
000150: 69 64 65 6E 74 5F 74 79 70 3D 3D 70 6F 69 6E 74  ident_typ==point
000160: 65 72 29 20 7B 0D 0A 0D 0A 09 09 09 09 2F 2A 20  er) {......../* 
000170: 61 72 72 61 79 20 6F 66 20 70 6F 69 6E 74 65 72  array of pointer
000180: 20 2A 74 65 6D 70 5B 73 69 7A 65 5D 20 2A 2F 0D   *temp[size] */.
000190: 0A 09 09 09 09 73 69 7A 65 3D 73 69 7A 65 2B 73  .....size=size+s
0001A0: 69 7A 65 3B 0D 0A 09 09 09 09 7D 0D 0A 09 09 09  ize;......}.....
0001B0: 65 6C 73 65 20 7B 0D 0A 0D 0A 09 09 09 09 2F 2A  else {......../*
0001C0: 20 61 72 72 61 79 20 74 65 6D 70 5B 73 69 7A 65   array temp[size
0001D0: 5D 20 2A 2F 0D 0A 09 09 09 09 69 64 65 6E 74 5F  ] */......ident_
0001E0: 74 79 70 3D 61 72 72 61 79 3B 0D 0A 09 09 09 09  typ=array;......
0001F0: 69 66 20 28 74 79 70 3D 3D 63 69 6E 74 29 20 73  if (typ==cint) s

Size : 512 (Real : 512)
000000: 55 45 3B 20 65 6C 73 65 20 63 69 66 3D 46 41 4C  UE; else cif=FAL
000010: 53 45 3B 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09  SE;...}../*.....
000020: 2A 2F 0D 0A 2F 2A 09 43 6C 6F 73 65 20 74 68 65  */../*.Close the
000030: 20 6F 75 74 70 75 74 20 66 69 6C 65 09 09 2A 2F   output file..*/
000040: 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 63 6C 6F  ../*.....*/..clo
000050: 73 65 6F 75 74 28 29 0D 0A 7B 0D 0A 09 69 66 20  seout()..{...if 
000060: 28 6F 75 74 70 75 74 29 20 7B 09 2F 2A 20 69 66  (output) {./* if
000070: 20 6F 70 65 6E 20 6D 61 72 6B 20 65 6E 64 2C 20   open mark end, 
000080: 63 6C 6F 73 65 20 69 74 20 2A 2F 0D 0A 09 09 70  close it */....p
000090: 75 74 63 28 32 36 2C 66 6F 75 74 29 3B 0D 0A 09  utc(26,fout);...
0000A0: 09 66 66 6C 75 73 68 28 66 6F 75 74 29 3B 0D 0A  .fflush(fout);..
0000B0: 09 09 66 63 6C 6F 73 65 28 6F 75 74 70 75 74 29  ..fclose(output)
0000C0: 3B 0D 0A 09 09 7D 0D 0A 09 6F 75 74 70 75 74 3D  ;....}...output=
0000D0: 30 3B 09 20 20 20 20 20 20 2F 2A 20 6D 61 72 6B  0;.      /* mark
0000E0: 20 61 73 20 63 6C 6F 73 65 64 20 2A 2F 0D 0A 09   as closed */...
0000F0: 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 2F 2A  }../*.....*/../*
000100: 09 44 65 63 6C 61 72 65 20 61 20 73 74 61 74 69  .Declare a stati
000110: 63 20 76 61 72 69 61 62 6C 65 09 2A 2F 0D 0A 2F  c variable.*/../
000120: 2A 09 28 69 2E 65 2E 20 64 65 66 69 6E 65 20 66  *.(i.e. define f
000130: 6F 72 20 75 73 65 29 09 09 2A 2F 0D 0A 2F 2A 09  or use)..*/../*.
000140: 09 09 09 09 2A 2F 0D 0A 2F 2A 20 6D 61 6B 65 73  ....*/../* makes
000150: 20 61 6E 20 65 6E 74 72 79 20 69 6E 20 74 68 65   an entry in the
000160: 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 73 6F   symbol table so
000170: 20 73 75 62 73 65 71 75 65 6E 74 20 2A 2F 0D 0A   subsequent */..
000180: 2F 2A 20 20 72 65 66 65 72 65 6E 63 65 73 20 63  /*  references c
000190: 61 6E 20 63 61 6C 6C 20 73 79 6D 62 6F 6C 20 62  an call symbol b
0001A0: 79 20 6E 61 6D 65 20 20 2A 2F 0D 0A 64 65 63 6C  y name  */..decl
0001B0: 67 6C 62 28 74 79 70 29 09 20 20 20 20 2F 2A 20  glb(typ).    /* 
0001C0: 74 79 70 20 69 73 20 63 63 68 61 72 20 6F 72 20  typ is cchar or 
0001D0: 63 69 6E 74 20 2A 2F 0D 0A 09 69 6E 74 20 74 79  cint */...int ty
0001E0: 70 3B 0D 0A 7B 0D 0A 09 69 6E 74 20 6A 3B 0D 0A  p;..{...int j;..
0001F0: 09 69 6E 74 20 63 6F 75 6E 74 3B 0D 0A 09 63 68  .int count;...ch

Size : 512 (Real : 512)
000000: 69 7A 65 3D 73 69 7A 65 2B 73 69 7A 65 3B 0D 0A  ize=size+size;..
000010: 09 09 09 09 7D 0D 0A 09 09 09 7D 0D 0A 09 09 65  ....}.....}....e
000020: 6C 73 65 20 7B 0D 0A 0D 0A 09 09 09 2F 2A 20 6E  lse {......./* n
000030: 75 6C 6C 20 73 69 7A 65 20 73 75 62 73 63 72 69  ull size subscri
000040: 70 74 20 2A 2F 0D 0A 09 09 09 69 64 65 6E 74 5F  pt */.....ident_
000050: 74 79 70 3D 70 6F 69 6E 74 65 72 3B 0D 0A 09 09  typ=pointer;....
000060: 09 73 69 7A 65 3D 32 3B 0D 0A 09 09 09 7D 0D 0A  .size=2;.....}..
000070: 09 09 7D 0D 0A 09 65 6C 73 65 20 7B 0D 0A 09 09  ..}...else {....
000080: 2F 2A 20 6E 6F 20 73 75 62 73 63 72 69 70 74 20  /* no subscript 
000090: 2A 2F 0D 0A 09 09 69 66 20 28 69 64 65 6E 74 5F  */....if (ident_
0000A0: 74 79 70 3D 3D 70 6F 69 6E 74 65 72 29 20 73 69  typ==pointer) si
0000B0: 7A 65 3D 32 3B 0D 0A 09 09 65 6C 73 65 20 69 66  ze=2;....else if
0000C0: 20 28 74 79 70 20 3D 3D 20 63 69 6E 74 29 20 73   (typ == cint) s
0000D0: 69 7A 65 3D 32 3B 20 65 6C 73 65 20 73 69 7A 65  ize=2; else size
0000E0: 3D 31 3B 0D 0A 09 09 7D 0D 0A 09 2F 2A 20 61 64  =1;....}.../* ad
0000F0: 64 20 64 61 74 61 20 65 6C 65 6D 65 6E 74 20 74  d data element t
000100: 6F 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 2A  o symbol table *
000110: 2F 0D 0A 09 73 77 69 74 63 68 28 63 6C 61 73 73  /...switch(class
000120: 5F 69 64 29 20 7B 0D 0A 0D 0A 09 09 2F 2A 20 67  _id) {....../* g
000130: 6C 6F 62 61 6C 20 73 79 6D 62 6F 6C 20 2A 2F 0D  lobal symbol */.
000140: 0A 09 09 63 61 73 65 20 73 74 61 74 69 6B 20 3A  ...case statik :
000150: 0D 0A 09 09 09 69 66 20 28 67 6C 62 70 74 72 3E  .....if (glbptr>
000160: 3D 65 6E 64 67 6C 62 29 20 7B 0D 0A 09 09 09 09  =endglb) {......
000170: 65 72 72 6F 72 28 22 67 6C 6F 62 61 6C 20 73 79  error("global sy
000180: 6D 6E 6F 6C 20 74 61 62 6C 65 20 6F 76 65 72 66  mnol table overf
000190: 6C 6F 77 22 29 3B 0D 0A 09 09 09 09 72 65 74 75  low");......retu
0001A0: 72 6E 20 30 3B 0D 0A 09 09 09 09 7D 0D 0A 09 09  rn 0;......}....
0001B0: 09 70 74 72 3D 67 6C 62 70 74 72 3B 0D 0A 09 09  .ptr=glbptr;....
0001C0: 09 67 6C 62 70 74 72 2B 3D 73 79 6D 73 69 7A 3B  .glbptr+=symsiz;
0001D0: 0D 0A 09 09 09 76 61 6C 75 65 3D 73 69 7A 65 3B  .....value=size;
0001E0: 0D 0A 09 09 09 62 72 65 61 6B 3B 0D 0A 09 0D 0A  .....break;.....
0001F0: 09 09 2F 2A 20 73 74 61 63 6B 20 6C 6F 63 61 6C  ../* stack local

Size : 512 (Real : 512)
000000: 61 72 20 73 6E 61 6D 65 5B 6E 61 6D 65 73 69 7A  ar sname[namesiz
000010: 65 5D 3B 0D 0A 0D 0A 09 77 68 69 6C 65 28 31 29  e];.....while(1)
000020: 20 7B 0D 0A 09 09 63 6F 75 6E 74 3D 30 3B 09 0D   {....count=0;..
000030: 0A 09 09 69 66 20 28 65 6E 64 73 74 28 29 29 20  ...if (endst()) 
000040: 72 65 74 75 72 6E 3B 0D 0A 09 09 69 66 28 6D 61  return;....if(ma
000050: 74 63 68 28 22 2A 22 29 29 20 7B 0D 0A 09 09 09  tch("*")) {.....
000060: 6A 3D 70 6F 69 6E 74 65 72 3B 0D 0A 09 09 09 2B  j=pointer;.....+
000070: 2B 63 6F 75 6E 74 3B 20 0D 0A 09 09 09 77 68 69  +count; .....whi
000080: 6C 65 28 63 68 28 29 3D 3D 27 2A 27 29 20 7B 0D  le(ch()=='*') {.
000090: 0A 09 09 09 09 2B 2B 63 6F 75 6E 74 3B 0D 0A 09  .....++count;...
0000A0: 09 09 09 67 63 68 28 29 3B 0D 0A 09 09 09 09 7D  ...gch();......}
0000B0: 0D 0A 09 09 09 7D 09 09 0D 0A 09 09 65 6C 73 65  .....}......else
0000C0: 20 6A 3D 76 61 72 69 61 62 6C 65 3B 0D 0A 09 09   j=variable;....
0000D0: 69 66 20 28 21 73 79 6D 6E 61 6D 65 28 73 6E 61  if (!symname(sna
0000E0: 6D 65 29 29 20 69 6C 6C 6E 61 6D 65 28 29 3B 0D  me)) illname();.
0000F0: 0A 09 09 69 66 28 66 69 6E 64 67 6C 62 28 73 6E  ...if(findglb(sn
000100: 61 6D 65 29 29 20 6D 75 6C 74 69 64 65 66 28 73  ame)) multidef(s
000110: 6E 61 6D 65 29 3B 0D 0A 09 09 64 61 74 61 5F 70  name);....data_p
000120: 61 72 73 65 28 73 6E 61 6D 65 2C 74 79 70 2C 73  arse(sname,typ,s
000130: 74 61 74 69 6B 2C 6A 2C 63 6F 75 6E 74 29 3B 0D  tatik,j,count);.
000140: 0A 09 09 69 66 20 28 6D 61 74 63 68 28 22 2C 22  ...if (match(","
000150: 29 3D 3D 30 29 20 72 65 74 75 72 6E 3B 20 2F 2A  )==0) return; /*
000160: 20 6D 6F 72 65 3F 20 2A 2F 0D 0A 09 09 7D 0D 0A   more? */....}..
000170: 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 2F  .}../*.....*/../
000180: 2A 20 20 20 20 20 20 44 65 63 6C 61 72 65 20 6C  *      Declare l
000190: 6F 63 61 6C 20 76 61 72 69 61 62 6C 65 73 09 09  ocal variables..
0001A0: 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 28 69 2E 65  */../*      (i.e
0001B0: 2E 20 64 65 66 69 6E 65 20 66 6F 72 20 75 73 65  . define for use
0001C0: 29 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 2A 2F  )..*/../*.....*/
0001D0: 0D 0A 2F 2A 20 77 6F 72 6B 73 20 6A 75 73 74 20  ../* works just 
0001E0: 6C 69 6B 65 20 22 64 65 63 6C 67 6C 62 22 20 62  like "declglb" b
0001F0: 75 74 20 6D 6F 64 69 66 69 65 73 20 6D 61 63 68  ut modifies mach

Size : 512 (Real : 512)
000000: 20 76 61 72 62 6C 65 20 2A 2F 20 0D 0A 09 09 63   varble */ ....c
000010: 61 73 65 20 73 74 6B 6C 6F 63 20 3A 0D 0A 09 09  ase stkloc :....
000020: 09 73 70 3D 6D 6F 64 73 74 6B 28 73 70 2D 73 69  .sp=modstk(sp-si
000030: 7A 65 29 3B 0D 0A 09 09 09 76 61 6C 75 65 3D 73  ze);.....value=s
000040: 70 3B 0D 0A 09 09 09 69 66 20 28 6C 6F 63 70 74  p;.....if (locpt
000050: 72 3E 3D 65 6E 64 6C 6F 63 29 20 7B 0D 0A 09 09  r>=endloc) {....
000060: 09 09 65 72 72 6F 72 28 22 6C 6F 63 61 6C 20 73  ..error("local s
000070: 79 6D 62 6F 6C 20 74 61 62 6C 65 20 6F 76 65 72  ymbol table over
000080: 66 6C 6F 77 22 29 3B 0D 0A 09 09 09 09 72 65 74  flow");......ret
000090: 75 72 6E 20 30 3B 0D 0A 09 09 09 09 7D 0D 0A 09  urn 0;......}...
0000A0: 09 09 70 74 72 3D 6C 6F 63 70 74 72 3B 0D 0A 09  ..ptr=locptr;...
0000B0: 09 09 6C 6F 63 70 74 72 2B 3D 73 79 6D 73 69 7A  ..locptr+=symsiz
0000C0: 3B 0D 0A 09 09 09 62 72 65 61 6B 3B 0D 0A 0D 0A  ;.....break;....
0000D0: 09 09 2F 2A 20 61 72 67 20 73 74 61 63 6B 20 2A  ../* arg stack *
0000E0: 2F 0D 0A 09 09 63 61 73 65 20 73 74 6B 61 72 67  /....case stkarg
0000F0: 20 3A 0D 0A 09 09 09 76 61 6C 75 65 3D 61 72 67   :.....value=arg
000100: 73 74 6B 3B 0D 0A 09 09 09 61 72 67 73 74 6B 2D  stk;.....argstk-
000110: 3D 32 3B 0D 0A 09 09 09 69 66 20 28 6C 6F 63 70  =2;.....if (locp
000120: 74 72 3E 3D 65 6E 64 6C 6F 63 29 20 7B 0D 0A 09  tr>=endloc) {...
000130: 09 09 09 65 72 72 6F 72 28 22 6C 6F 63 61 6C 20  ...error("local 
000140: 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 6F 76 65  symbol table ove
000150: 72 66 6C 6F 77 22 29 3B 0D 0A 09 09 09 09 72 65  rflow");......re
000160: 74 75 72 6E 20 30 3B 0D 0A 09 09 09 09 7D 0D 0A  turn 0;......}..
000170: 09 09 09 70 74 72 3D 6C 6F 63 70 74 72 3B 0D 0A  ...ptr=locptr;..
000180: 09 09 09 6C 6F 63 70 74 72 2B 3D 73 79 6D 73 69  ...locptr+=symsi
000190: 7A 3B 0D 0A 09 09 09 62 72 65 61 6B 3B 0D 0A 09  z;.....break;...
0001A0: 09 7D 0D 0A 09 2F 2A 20 66 69 6C 65 20 69 6E 20  .}.../* file in 
0001B0: 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 65 6E 74  symbol table ent
0001C0: 72 79 20 2A 2F 0D 0A 09 73 74 72 63 70 79 28 70  ry */...strcpy(p
0001D0: 74 72 2B 6E 61 6D 65 2C 73 6E 61 6D 65 29 3B 0D  tr+name,sname);.
0001E0: 0A 09 70 74 72 5B 69 64 65 6E 74 5D 3D 69 64 65  ..ptr[ident]=ide
0001F0: 6E 74 5F 74 79 70 3B 0D 0A 09 70 74 72 5B 74 79  nt_typ;...ptr[ty

Size : 512 (Real : 512)
000000: 61 72 61 74 69 6F 6E 22 29 3B 0D 0A 09 09 6B 69  aration");....ki
000010: 6C 6C 28 29 3B 0D 0A 09 09 72 65 74 75 72 6E 3B  ll();....return;
000020: 0D 0A 09 09 7D 0D 0A 09 69 66 28 70 74 72 3D 66  ....}...if(ptr=f
000030: 69 6E 64 67 6C 62 28 6E 29 29 20 7B 20 20 20 20  indglb(n)) {    
000040: 20 20 2F 2A 20 61 6C 72 65 61 64 79 20 69 6E 20    /* already in 
000050: 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 3F 20 2A  symbol table ? *
000060: 2F 0D 0A 09 09 69 66 20 28 70 74 72 5B 69 64 65  /....if (ptr[ide
000070: 6E 74 5D 20 21 3D 20 66 75 6E 63 74 69 6F 6E 29  nt] != function)
000080: 20 6D 75 6C 74 69 64 65 66 28 6E 29 3B 0D 0A 09   multidef(n);...
000090: 09 09 2F 2A 20 61 6C 72 65 61 64 79 20 76 61 72  ../* already var
0000A0: 69 61 62 6C 65 20 62 79 20 74 68 61 74 20 6E 61  iable by that na
0000B0: 6D 65 20 2A 2F 0D 0A 09 09 65 6C 73 65 20 69 66  me */....else if
0000C0: 28 70 74 72 5B 6F 66 66 73 65 74 5D 20 3D 3D 20  (ptr[offset] == 
0000D0: 66 75 6E 63 74 69 6F 6E 29 20 6D 75 6C 74 69 64  function) multid
0000E0: 65 66 28 6E 29 3B 0D 0A 09 09 09 2F 2A 20 61 6C  ef(n);...../* al
0000F0: 72 65 61 64 79 20 66 75 6E 63 74 69 6F 6E 20 62  ready function b
000100: 79 20 74 68 61 74 20 6E 61 6D 65 20 2A 2F 0D 0A  y that name */..
000110: 09 09 65 6C 73 65 20 7B 0D 0A 09 09 09 70 74 72  ..else {.....ptr
000120: 5B 6F 66 66 73 65 74 5D 3D 66 75 6E 63 74 69 6F  [offset]=functio
000130: 6E 3B 0D 0A 09 09 09 63 73 65 63 74 28 6E 29 3B  n;.....csect(n);
000140: 0D 0A 09 09 09 7D 0D 0A 09 09 09 2F 2A 20 6F 74  .....}...../* ot
000150: 68 65 72 77 69 73 65 20 77 65 20 68 61 76 65 20  herwise we have 
000160: 77 68 61 74 20 77 61 73 20 65 61 72 6C 69 65 72  what was earlier
000170: 2A 2F 0D 0A 09 09 09 2F 2A 20 20 61 73 73 75 6D  */...../*  assum
000180: 65 64 20 74 6F 20 62 65 20 61 20 66 75 6E 63 74  ed to be a funct
000190: 69 6F 6E 20 2A 2F 0D 0A 09 09 7D 0D 0A 09 2F 2A  ion */....}.../*
0001A0: 20 69 66 20 6E 6F 74 20 69 6E 20 74 61 62 6C 65   if not in table
0001B0: 2C 20 64 65 66 69 6E 65 20 61 73 20 61 20 66 75  , define as a fu
0001C0: 6E 63 74 69 6F 6E 20 6E 6F 77 20 2A 2F 0D 0A 09  nction now */...
0001D0: 65 6C 73 65 20 7B 0D 0A 09 09 2F 2A 20 66 69 6C  else {..../* fil
0001E0: 6C 20 69 6E 20 67 6F 62 61 6C 20 73 79 6D 62 6F  l in gobal symbo
0001F0: 6C 20 74 61 62 6C 65 20 2A 2F 0D 0A 09 09 69 66  l table */....if

Size : 512 (Real : 512)
000000: 70 65 5D 3D 74 79 70 3B 0D 0A 09 70 74 72 5B 73  pe]=typ;...ptr[s
000010: 74 6F 72 61 67 65 5D 3D 63 6C 61 73 73 5F 69 64  torage]=class_id
000020: 3B 0D 0A 09 70 74 72 5B 6F 66 66 73 65 74 5D 3D  ;...ptr[offset]=
000030: 76 61 6C 75 65 3B 0D 0A 09 70 74 72 5B 6F 66 66  value;...ptr[off
000040: 73 65 74 2B 31 5D 3D 76 61 6C 75 65 3E 3E 38 3B  set+1]=value>>8;
000050: 0D 0A 09 70 74 72 5B 69 6E 64 63 6E 74 5D 3D 63  ...ptr[indcnt]=c
000060: 6F 75 6E 74 3B 0D 0A 09 72 65 74 75 72 6E 20 54  ount;...return T
000070: 52 55 45 3B 0D 0A 09 7D 0D 0A 1A 09 2F 2A 20 61  RUE;...}..../* a
000080: 09 22 5E 5B 52 4F 22 09 20 20 2E 2E 2E 45 53 43  ."^[RO".  ...ESC
000090: 41 50 45 2C 52 2C 4F 0D 0A 38 20 20 4E 20 53 09  APE,R,O..8  N S.
0000A0: 20 22 5E 48 22 09 20 20 20 43 55 52 53 4F 52 20   "^H".   CURSOR 
0000B0: 4C 45 46 54 0D 0A 38 20 20 20 20 20 43 20 20 22  LEFT..8     C  "
0000C0: 5E 55 22 09 20 20 20 43 55 52 53 4F 52 20 43 4F  ^U".   CURSOR CO
0000D0: 4C 55 4D 4E 20 30 0D 0A 31 33 20 20 20 20 43 20  LUMN 0..13    C 
0000E0: 22 5E 27 23 39 44 27 22 20 20 48 4F 4D 45 2E 2E  "^'#9D'"  HOME..
0000F0: 2E 0D 0A 45 20 20 23 39 44 09 22 5E 5B 48 22 09  ...E  #9D."^[H".
000100: 20 20 2E 2E 2E 45 53 43 41 50 45 2C 48 0D 0A 36    ...ESCAPE,H..6
000110: 36 20 4E 20 53 20 43 20 22 5E 27 23 39 45 27 22  6 N S C "^'#9E'"
000120: 20 45 58 50 41 4E 44 20 45 53 43 20 4B 45 59 2E   EXPAND ESC KEY.
000130: 2E 2E 0D 0A 45 20 20 23 39 45 09 20 22 5E 5B 5E  ....E  #9E. "^[^
000140: 5B 22 20 20 20 2E 2E 2E 45 53 43 41 50 45 2C 45  ["   ...ESCAPE,E
000150: 53 43 41 50 45 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A  SCAPE...........
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 20 28 67 6C 62 70 74 72 3E 3D 65 6E 64 67 6C 62   (glbptr>=endglb
000010: 29 20 0D 0A 09 09 09 65 72 72 6F 72 28 22 67 6F  ) .....error("go
000020: 62 61 6C 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65  bal symbol table
000030: 20 6F 76 65 72 66 6C 6F 77 22 29 3B 0D 0A 09 09   overflow");....
000040: 65 6C 73 65 20 7B 0D 0A 09 09 09 70 74 72 3D 67  else {.....ptr=g
000050: 6C 62 70 74 72 3B 0D 0A 09 09 09 67 6C 62 70 74  lbptr;.....glbpt
000060: 72 2B 3D 73 79 6D 73 69 7A 3B 0D 0A 09 09 09 73  r+=symsiz;.....s
000070: 74 72 63 70 79 28 70 74 72 2B 6E 61 6D 65 2C 6E  trcpy(ptr+name,n
000080: 29 3B 0D 0A 09 09 09 70 74 72 5B 69 64 65 6E 74  );.....ptr[ident
000090: 5D 3D 66 75 6E 63 74 69 6F 6E 3B 0D 0A 09 09 09  ]=function;.....
0000A0: 70 74 72 5B 74 79 70 65 5D 3D 69 6E 74 3B 0D 0A  ptr[type]=int;..
0000B0: 09 09 09 70 74 72 5B 6F 66 66 73 65 74 5D 3D 66  ...ptr[offset]=f
0000C0: 75 6E 63 74 69 6F 6E 3B 0D 0A 09 09 09 70 74 72  unction;.....ptr
0000D0: 5B 6F 66 66 73 65 74 31 5D 3D 0D 0A 09 09 09 70  [offset1]=.....p
0000E0: 74 72 5B 69 6E 64 63 6E 74 5D 3D 0D 0A 09 09 09  tr[indcnt]=.....
0000F0: 70 74 72 5B 73 74 6F 72 61 67 65 5D 3D 30 3B 0D  ptr[storage]=0;.
000100: 0A 09 09 09 7D 0D 0A 09 09 63 73 65 63 74 28 6E  ....}....csect(n
000110: 29 3B 0D 0A 09 09 7D 0D 0A 0D 0A 09 61 72 67 73  );....}.....args
000120: 74 6B 3D 30 3B 09 20 20 20 20 20 20 20 2F 2A 20  tk=0;.       /* 
000130: 69 6E 69 74 20 61 72 67 20 63 6F 75 6E 74 20 2A  init arg count *
000140: 2F 0D 0A 09 77 68 69 6C 65 28 6D 61 74 63 68 28  /...while(match(
000150: 22 29 22 29 20 3D 3D 20 30 29 20 7B 20 20 20 20  ")") == 0) {    
000160: 2F 2A 20 74 68 65 6E 20 63 6F 75 6E 74 20 61 72  /* then count ar
000170: 67 73 20 2A 2F 0D 0A 09 09 2F 2A 20 61 6E 79 20  gs */..../* any 
000180: 6C 65 67 61 6C 20 6E 61 6D 65 20 62 75 6D 70 73  legal name bumps
000190: 20 61 72 67 20 63 6F 75 6E 74 20 2A 2F 0D 0A 09   arg count */...
0001A0: 09 69 66 20 28 73 79 6D 6E 61 6D 65 28 6E 29 29  .if (symname(n))
0001B0: 20 61 72 67 73 74 6B 3D 61 72 67 73 74 6B 2B 32   argstk=argstk+2
0001C0: 3B 0D 0A 09 09 65 6C 73 65 7B 0D 0A 09 09 09 65  ;....else{.....e
0001D0: 72 72 6F 72 28 22 69 6C 6C 65 67 61 6C 20 61 72  rror("illegal ar
0001E0: 67 75 6D 65 6E 74 20 6E 61 6D 65 22 29 3B 0D 0A  gument name");..
0001F0: 09 09 09 6A 75 6E 6B 28 29 3B 0D 0A 09 09 09 7D  ...junk();.....}

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 0D 0A 09 09 62 6C 61 6E 6B 73 28 29 3B 0D 0A 09  ....blanks();...
000010: 09 2F 2A 20 69 66 20 6E 6F 74 20 63 6C 6F 73 69  ./* if not closi
000020: 6E 67 20 70 61 72 65 6E 2C 20 73 68 6F 75 6C 64  ng paren, should
000030: 20 62 65 20 61 20 63 6F 6D 6D 61 20 2A 2F 0D 0A   be a comma */..
000040: 09 09 69 66 28 20 73 74 72 65 71 28 6C 69 6E 65  ..if( streq(line
000050: 2B 6C 70 74 72 2C 22 29 22 29 20 3D 3D 20 30 29  +lptr,")") == 0)
000060: 20 7B 0D 0A 09 09 09 69 66 28 6D 61 74 63 68 28   {.....if(match(
000070: 22 2C 22 29 3D 3D 30 29 0D 0A 09 09 09 65 72 72  ",")==0).....err
000080: 6F 72 28 22 65 78 70 65 63 74 65 64 20 63 6F 6D  or("expected com
000090: 6D 61 22 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 69  ma");.....}....i
0000A0: 66 28 65 6E 64 73 74 28 29 29 62 72 65 61 6B 3B  f(endst())break;
0000B0: 0D 0A 09 09 7D 0D 0A 09 6C 6F 63 70 74 72 3D 73  ....}...locptr=s
0000C0: 74 61 72 74 6C 6F 63 3B 09 2F 2A 20 22 63 6C 65  tartloc;./* "cle
0000D0: 61 72 22 20 6C 6F 63 61 6C 20 73 79 6D 62 6F 6C  ar" local symbol
0000E0: 20 74 61 62 6C 65 2A 2F 0D 0A 09 73 70 3D 30 3B   table*/...sp=0;
0000F0: 09 09 20 20 20 2F 2A 20 70 72 65 73 65 74 20 73  ..   /* preset s
000100: 74 61 63 6B 20 70 74 72 20 2A 2F 0D 0A 09 77 68  tack ptr */...wh
000110: 69 6C 65 28 61 72 67 73 74 6B 29 20 7B 0D 0A 09  ile(argstk) {...
000120: 09 2F 2A 20 6E 6F 77 20 6C 65 74 20 75 73 65 72  ./* now let user
000130: 20 64 65 63 6C 61 72 65 20 77 68 61 74 20 74 79   declare what ty
000140: 70 65 73 20 6F 66 20 74 68 69 6E 67 73 20 2A 2F  pes of things */
000150: 0D 0A 09 09 2F 2A 20 20 20 20 20 20 74 68 6F 73  ..../*      thos
000160: 65 20 61 72 67 75 6D 65 6E 74 73 20 77 65 72 65  e arguments were
000170: 20 2A 2F 0D 0A 09 09 69 66 20 28 61 6D 61 74 63   */....if (amatc
000180: 68 28 22 63 68 61 72 22 2C 34 29 29 20 7B 0D 0A  h("char",4)) {..
000190: 09 09 09 67 65 74 61 72 67 28 63 63 68 61 72 29  ...getarg(cchar)
0001A0: 3B 0D 0A 09 09 09 6E 73 28 29 3B 0D 0A 09 09 09  ;.....ns();.....
0001B0: 7D 0D 0A 09 09 65 6C 73 65 20 69 66 20 28 61 6D  }....else if (am
0001C0: 61 74 63 68 28 22 69 6E 74 22 2C 33 29 29 20 7B  atch("int",3)) {
0001D0: 0D 0A 09 09 09 67 65 74 61 72 67 28 63 69 6E 74  .....getarg(cint
0001E0: 29 3B 0D 0A 09 09 09 6E 73 28 29 3B 0D 0A 09 09  );.....ns();....
0001F0: 09 7D 0D 0A 09 09 65 6C 73 65 20 7B 0D 0A 09 09  .}....else {....

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 23 69 66 6E 64 65 66 20 54 52 55 45  ....#ifndef TRUE
000010: 09 2F 2A 20 73 65 65 20 69 66 20 6E 65 65 64 20  ./* see if need 
000020: 69 6E 63 6C 75 64 65 20 66 69 6C 65 20 2A 2F 0D  include file */.
000030: 0A 23 69 6E 63 6C 75 64 65 20 3C 63 2E 64 65 66  .#include <c.def
000040: 3E 0D 0A 23 65 6E 64 69 66 0D 0A 0D 0A 2F 2A 09  >..#endif..../*.
000050: 09 09 09 09 2A 2F 0D 0A 2F 2A 09 47 65 74 20 72  ....*/../*.Get r
000060: 65 71 75 69 72 65 64 20 61 72 72 61 79 20 73 69  equired array si
000070: 7A 65 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 2A  ze..*/../*.....*
000080: 2F 0D 0A 2F 2A 20 69 6E 76 6F 6B 65 64 20 77 68  /../* invoked wh
000090: 65 6E 20 64 65 63 6C 61 72 65 64 20 76 61 72 69  en declared vari
0000A0: 61 62 6C 65 20 69 73 20 66 6F 6C 6C 77 65 64 20  able is follwed 
0000B0: 62 79 20 22 5B 22 20 2A 2F 0D 0A 2F 2A 20 20 20  by "[" */../*   
0000C0: 20 20 20 74 68 69 73 20 72 6F 75 74 69 6E 65 20     this routine 
0000D0: 6D 61 6B 65 73 20 73 75 62 73 63 72 69 70 74 20  makes subscript 
0000E0: 74 68 65 20 61 62 73 6F 6C 75 74 65 20 2A 2F 0D  the absolute */.
0000F0: 0A 2F 2A 20 20 20 20 20 20 73 69 7A 65 20 6F 66  ./*      size of
000100: 20 74 68 65 20 61 72 72 61 79 2E 20 2A 2F 0D 0A   the array. */..
000110: 6E 65 65 64 73 75 62 28 29 0D 0A 7B 0D 0A 09 69  needsub()..{...i
000120: 6E 74 20 6E 75 6D 5B 31 5D 3B 0D 0A 09 69 66 20  nt num[1];...if 
000130: 28 6D 61 74 63 68 28 22 5D 22 29 29 20 72 65 74  (match("]")) ret
000140: 75 72 6E 20 30 3B 09 2F 2A 20 6E 75 6C 6C 20 73  urn 0;./* null s
000150: 69 7A 65 20 2A 2F 0D 0A 09 69 66 20 28 6E 75 6D  ize */...if (num
000160: 62 65 72 28 6E 75 6D 29 3D 3D 30 29 20 7B 09 09  ber(num)==0) {..
000170: 2F 2A 20 67 6F 20 61 66 74 65 72 20 61 20 6E 75  /* go after a nu
000180: 6D 62 65 72 20 2A 2F 0D 0A 09 09 65 72 72 6F 72  mber */....error
000190: 28 22 6D 75 73 74 20 62 65 20 63 6F 6E 73 74 61  ("must be consta
0001A0: 6E 74 22 29 3B 20 20 20 20 20 2F 2A 20 69 74 20  nt");     /* it 
0001B0: 69 73 6E 27 74 20 2A 2F 0D 0A 09 09 77 68 69 6C  isn't */....whil
0001C0: 65 28 63 68 28 29 20 21 3D 20 27 2C 27 20 26 26  e(ch() != ',' &&
0001D0: 20 63 68 28 29 20 21 3D 20 27 3B 27 20 26 26 20   ch() != ';' && 
0001E0: 63 68 28 29 29 20 67 63 68 28 29 3B 0D 0A 09 09  ch()) gch();....
0001F0: 72 65 74 75 72 6E 20 31 3B 20 0D 0A 09 09 7D 0D  return 1; ....}.

Size : 512 (Real : 512)
000000: 09 65 72 72 6F 72 28 22 77 72 6F 6E 67 20 6E 75  .error("wrong nu
000010: 6D 62 65 72 20 61 72 67 73 22 29 3B 0D 0A 09 09  mber args");....
000020: 09 62 72 65 61 6B 3B 0D 0A 09 09 09 7D 0D 0A 09  .break;.....}...
000030: 09 7D 0D 0A 09 69 66 28 73 74 61 74 65 6D 65 6E  .}...if(statemen
000040: 74 28 29 21 3D 73 74 72 65 74 75 72 6E 29 20 20  t()!=streturn)  
000050: 7B 0D 0A 09 09 09 2F 2A 20 64 6F 20 61 20 73 74  {...../* do a st
000060: 61 74 65 6D 65 6E 74 2C 20 62 75 74 20 69 66 20  atement, but if 
000070: 2A 2F 0D 0A 09 09 09 2F 2A 20 69 74 27 73 20 61  */...../* it's a
000080: 20 72 65 74 75 72 6E 2C 20 73 6B 69 70 20 2A 2F   return, skip */
000090: 0D 0A 09 09 09 2F 2A 20 63 6C 65 61 6E 69 6E 67  ...../* cleaning
0000A0: 20 75 70 20 74 68 65 20 73 74 61 63 6B 20 2A 2F   up the stack */
0000B0: 0D 0A 09 09 6D 6F 64 73 74 6B 28 30 29 3B 0D 0A  ....modstk(0);..
0000C0: 09 09 72 65 74 28 29 3B 0D 0A 09 09 7D 0D 0A 09  ..ret();....}...
0000D0: 73 70 3D 30 3B 0D 0A 09 6C 6F 63 70 74 72 3D 73  sp=0;...locptr=s
0000E0: 74 61 72 74 6C 6F 63 3B 0D 0A 09 64 75 6D 70 6C  tartloc;...dumpl
0000F0: 69 74 73 28 29 3B 0D 0A 09 6C 69 74 6C 61 62 3D  its();...litlab=
000100: 67 65 74 6C 61 62 65 6C 28 29 3B 0D 0A 09 7D 0D  getlabel();...}.
000110: 0A 2F 2A 09 09 09 09 20 20 20 20 20 20 2A 2F 0D  ./*....      */.
000120: 0A 2F 2A 20 20 20 20 20 20 44 65 63 6C 61 72 65  ./*      Declare
000130: 20 61 72 67 75 6D 65 6E 74 20 74 79 70 65 73 09   argument types.
000140: 20 20 2A 2F 0D 0A 2F 2A 09 09 09 09 20 20 20 20    */../*....    
000150: 20 20 2A 2F 0D 0A 2F 2A 20 63 61 6C 6C 65 64 20    */../* called 
000160: 66 72 6F 6D 20 22 6E 65 77 66 75 6E 63 22 20 74  from "newfunc" t
000170: 68 69 73 20 72 6F 75 74 69 6E 65 20 61 64 64 73  his routine adds
000180: 20 61 20 65 6E 74 72 79 20 69 6E 20 74 68 65 20   a entry in the 
000190: 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 6C 6F 63 61  */../*      loca
0001A0: 6C 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 66  l symbol table f
0001B0: 6F 72 20 65 61 63 68 20 6E 61 6D 65 64 20 61 72  or each named ar
0001C0: 67 75 6D 65 6E 74 20 2A 2F 0D 0A 67 65 74 61 72  gument */..getar
0001D0: 67 28 74 29 09 20 20 20 20 20 20 20 2F 2A 20 74  g(t).       /* t
0001E0: 20 3D 20 63 63 68 61 72 20 6F 72 20 63 69 6E 74   = cchar or cint
0001F0: 20 2A 2F 0D 0A 69 6E 74 20 74 3B 0D 0A 7B 0D 0A   */..int t;..{..

Size : 512 (Real : 512)
000000: 0A 09 69 66 20 28 6E 75 6D 5B 30 5D 3C 30 29 20  ..if (num[0]<0) 
000010: 7B 0D 0A 09 09 65 72 72 6F 72 28 22 6E 65 67 61  {....error("nega
000020: 74 69 76 65 20 73 69 7A 65 20 69 6C 6C 65 67 61  tive size illega
000030: 6C 22 29 3B 0D 0A 09 09 6E 75 6D 5B 30 5D 3D 28  l");....num[0]=(
000040: 2D 6E 75 6D 5B 30 5D 29 3B 0D 0A 09 09 7D 0D 0A  -num[0]);....}..
000050: 09 6E 65 65 64 62 72 61 63 6B 28 22 5D 22 29 3B  .needbrack("]");
000060: 09 09 2F 2A 20 66 6F 72 63 65 20 73 69 6E 67 6C  ../* force singl
000070: 65 20 64 69 6D 65 6E 73 69 6F 6E 20 2A 2F 0D 0A  e dimension */..
000080: 09 72 65 74 75 72 6E 20 6E 75 6D 5B 30 5D 3B 09  .return num[0];.
000090: 09 2F 2A 20 61 6E 64 20 72 65 74 75 72 6E 20 73  ./* and return s
0000A0: 69 7A 65 20 2A 2F 0D 0A 09 7D 0D 0A 2F 2A 09 09  ize */...}../*..
0000B0: 09 09 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 42 65  ..*/../*      Be
0000C0: 67 69 6E 20 61 20 66 75 6E 63 74 69 6F 6E 09 2A  gin a function.*
0000D0: 2F 0D 0A 2F 2A 09 09 09 09 2A 2F 0D 0A 2F 2A 20  /../*....*/../* 
0000E0: 43 61 6C 6C 65 64 20 66 72 6F 6D 20 22 70 61 72  Called from "par
0000F0: 73 65 22 20 74 68 69 73 20 72 6F 75 74 69 6E 65  se" this routine
000100: 20 74 72 69 65 73 20 74 6F 20 6D 61 6B 65 20 61   tries to make a
000110: 20 66 75 6E 63 74 69 6F 6E 20 2A 2F 0D 0A 2F 2A   function */../*
000120: 20 20 20 20 20 20 6F 75 74 20 6F 66 20 77 68 61        out of wha
000130: 74 20 66 6F 6C 6C 6F 77 73 2E 20 20 20 20 2A 2F  t follows.    */
000140: 0D 0A 6E 65 77 66 75 6E 63 28 29 0D 0A 7B 0D 0A  ..newfunc()..{..
000150: 09 63 68 61 72 20 6E 5B 6E 61 6D 65 73 69 7A 65  .char n[namesize
000160: 5D 2C 2A 70 74 72 3B 0D 0A 09 69 66 20 28 73 79  ],*ptr;...if (sy
000170: 6D 6E 61 6D 65 28 6E 29 20 3D 3D 20 30 29 20 7B  mname(n) == 0) {
000180: 0D 0A 09 09 65 72 72 6F 72 28 22 69 6C 6C 65 67  ....error("illeg
000190: 61 6C 20 66 75 6E 63 74 69 6F 6E 20 6F 72 20 64  al function or d
0001A0: 65 63 6C 61 72 61 74 69 6F 6E 22 29 3B 0D 0A 09  eclaration");...
0001B0: 09 6B 69 6C 6C 28 29 3B 0D 0A 09 09 72 65 74 75  .kill();....retu
0001C0: 72 6E 3B 0D 0A 09 09 7D 0D 0A 09 69 66 20 28 21  rn;....}...if (!
0001D0: 6D 61 74 63 68 28 22 28 22 29 29 20 7B 0D 0A 09  match("(")) {...
0001E0: 09 65 72 72 6F 72 28 22 69 6C 6C 65 67 61 6C 20  .error("illegal 
0001F0: 66 75 6E 63 74 69 6F 6E 20 6F 72 20 64 65 63 6C  function or decl

Size : 512 (Real : 512)
000000: 09 63 68 61 72 20 6E 5B 6E 61 6D 65 73 69 7A 65  .char n[namesize
000010: 5D 2C 63 3B 69 6E 74 20 6A 2C 63 6F 75 6E 74 3B  ],c;int j,count;
000020: 0D 0A 09 77 68 69 6C 65 28 31 29 20 7B 0D 0A 09  ...while(1) {...
000030: 09 63 6F 75 6E 74 3D 30 3B 0D 0A 09 09 69 66 20  .count=0;....if 
000040: 28 61 72 67 73 74 6B 20 3D 3D 20 30 29 20 72 65  (argstk == 0) re
000050: 74 75 72 6E 3B 20 20 20 2F 2A 20 6E 6F 20 6D 6F  turn;   /* no mo
000060: 72 65 20 61 72 67 73 20 2A 2F 0D 0A 09 09 69 66  re args */....if
000070: 20 28 6D 61 74 63 68 28 22 2A 22 29 29 20 7B 0D   (match("*")) {.
000080: 0A 09 09 09 6A 3D 70 6F 69 6E 74 65 72 3B 0D 0A  ....j=pointer;..
000090: 09 09 09 2B 2B 63 6F 75 6E 74 3B 0D 0A 09 09 09  ...++count;.....
0000A0: 77 68 69 6C 65 28 63 68 28 29 3D 3D 27 2A 27 29  while(ch()=='*')
0000B0: 20 7B 0D 0A 09 09 09 09 2B 2B 63 6F 75 6E 74 3B   {......++count;
0000C0: 0D 0A 09 09 09 09 67 63 68 28 29 3B 0D 0A 09 09  ......gch();....
0000D0: 09 09 7D 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C 73  ..}.....}....els
0000E0: 65 20 6A 3D 76 61 72 69 61 62 6C 65 3B 0D 0A 09  e j=variable;...
0000F0: 09 69 66 20 28 73 79 6D 6E 61 6D 65 28 6E 29 20  .if (symname(n) 
000100: 3D 3D 20 30 29 20 69 6C 6C 6E 61 6D 65 28 29 3B  == 0) illname();
000110: 0D 0A 09 09 69 66 20 28 66 69 6E 64 6C 6F 63 28  ....if (findloc(
000120: 6E 29 29 20 6D 75 6C 74 69 64 65 66 28 6E 29 3B  n)) multidef(n);
000130: 0D 0A 09 09 64 61 74 61 5F 70 61 72 73 65 28 6E  ....data_parse(n
000140: 2C 74 2C 73 74 6B 61 72 67 2C 6A 2C 63 6F 75 6E  ,t,stkarg,j,coun
000150: 74 29 3B 0D 0A 09 09 69 66 28 65 6E 64 73 74 28  t);....if(endst(
000160: 29 29 72 65 74 75 72 6E 3B 0D 0A 09 09 69 66 28  ))return;....if(
000170: 6D 61 74 63 68 28 22 2C 22 29 3D 3D 30 29 65 72  match(",")==0)er
000180: 72 6F 72 28 22 65 78 70 65 63 74 65 64 20 63 6F  ror("expected co
000190: 6D 6D 61 22 29 3B 0D 0A 09 09 7D 0D 0A 09 7D 0D  mma");....}...}.
0001A0: 0A 2F 2A 09 09 09 09 20 20 20 20 20 20 2A 2F 0D  ./*....      */.
0001B0: 0A 2F 2A 20 20 20 20 20 20 53 74 61 74 65 6D 65  ./*      Stateme
0001C0: 6E 74 20 70 61 72 73 65 72 09 09 2A 2F 0D 0A 2F  nt parser..*/../
0001D0: 2A 09 09 09 09 20 20 20 20 20 20 2A 2F 0D 0A 2F  *....      */../
0001E0: 2A 20 63 61 6C 6C 65 64 20 77 68 65 6E 65 76 65  * called wheneve
0001F0: 72 20 73 79 6E 74 61 78 20 72 65 71 75 69 72 65  r syntax require

Size : 512 (Real : 512)
000000: 2F 38 31 09 2A 2F 0D 0A 6E 65 65 64 63 62 72 61  /81.*/..needcbra
000010: 63 65 28 29 0D 0A 7B 0D 0A 09 69 66 20 28 6D 61  ce()..{...if (ma
000020: 74 63 68 28 22 7D 22 29 29 09 72 65 74 75 72 6E  tch("}")).return
000030: 20 46 41 4C 53 45 3B 0D 0A 09 65 72 72 6F 72 28   FALSE;...error(
000040: 22 4D 69 73 73 69 6E 67 20 72 69 67 68 74 20 62  "Missing right b
000050: 72 61 63 65 22 29 3B 0D 0A 09 6A 75 6E 6B 28 29  race");...junk()
000060: 3B 0D 0A 09 72 65 74 75 72 6E 20 54 52 55 45 3B  ;...return TRUE;
000070: 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 20 20 20 20  ...}../*....    
000080: 20 20 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 43 6F    */../*      Co
000090: 6D 70 6F 75 6E 64 20 73 74 61 74 65 6D 65 6E 74  mpound statement
0000A0: 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 09 09 09  .      */../*...
0000B0: 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 61 6C  .      */../* al
0000C0: 6C 6F 77 20 61 6E 79 20 6E 75 6D 62 65 72 20 6F  low any number o
0000D0: 66 20 73 74 61 74 65 6D 65 6E 74 73 20 74 6F 20  f statements to 
0000E0: 66 61 6C 6C 20 62 65 74 77 65 65 6E 20 22 7B 7D  fall between "{}
0000F0: 22 20 2A 2F 0D 0A 63 6F 6D 70 6F 75 6E 64 28 29  " */..compound()
000100: 0D 0A 09 7B 0D 0A 09 2B 2B 6E 63 6D 70 3B 09 20  ...{...++ncmp;. 
000110: 2F 2A 20 6E 65 77 20 6C 65 76 65 6C 20 6F 70 65  /* new level ope
000120: 6E 20 2A 2F 0D 0A 09 77 68 69 6C 65 28 6D 61 74  n */...while(mat
000130: 63 68 28 22 7D 22 29 3D 3D 30 29 0D 0A 09 09 69  ch("}")==0)....i
000140: 66 28 65 6F 66 29 20 72 65 74 75 72 6E 3B 0D 0A  f(eof) return;..
000150: 09 09 65 6C 73 65 20 73 74 61 74 65 6D 65 6E 74  ..else statement
000160: 28 29 3B 0D 0A 09 2D 2D 6E 63 6D 70 3B 09 20 2F  ();...--ncmp;. /
000170: 2A 20 63 6C 6F 73 65 20 63 75 72 72 65 6E 74 20  * close current 
000180: 6C 65 76 65 6C 20 2A 2F 0D 0A 09 7D 0D 0A 2F 2A  level */...}../*
000190: 09 09 09 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A  ....      */../*
0001A0: 09 20 20 20 20 20 20 22 69 66 22 20 73 74 61 74  .      "if" stat
0001B0: 65 6D 65 6E 74 09 20 20 2A 2F 0D 0A 2F 2A 09 09  ement.  */../*..
0001C0: 09 09 20 20 20 20 20 20 2A 2F 0D 0A 64 6F 69 66  ..      */..doif
0001D0: 28 29 0D 0A 09 7B 0D 0A 09 69 6E 74 20 66 6C 65  ()...{...int fle
0001E0: 76 2C 66 73 70 2C 66 6C 61 62 31 2C 66 6C 61 62  v,fsp,flab1,flab
0001F0: 32 3B 0D 0A 09 66 6C 65 76 3D 6C 6F 63 70 74 72  2;...flev=locptr

Size : 512 (Real : 512)
000000: 73 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20  s      */../*   
000010: 20 20 20 61 20 73 74 61 74 65 6D 65 6E 74 2E 09     a statement..
000020: 09 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 20 74 68  .     */../*  th
000030: 69 73 20 72 6F 75 74 69 6E 65 20 70 65 72 66 6F  is routine perfo
000040: 72 6D 73 20 74 68 61 74 20 73 74 61 74 65 6D 65  rms that stateme
000050: 6E 74 20 2A 2F 0D 0A 2F 2A 20 20 61 6E 64 20 72  nt */../*  and r
000060: 65 74 75 72 6E 73 20 61 20 6E 75 6D 62 65 72 20  eturns a number 
000070: 74 65 6C 6C 69 6E 67 20 77 68 69 63 68 20 6F 6E  telling which on
000080: 65 20 2A 2F 0D 0A 73 74 61 74 65 6D 65 6E 74 28  e */..statement(
000090: 29 0D 0A 20 7B 20 20 20 20 20 20 69 66 20 28 21  ).. {      if (!
0000A0: 63 68 28 29 20 26 26 20 65 6F 66 29 20 72 65 74  ch() && eof) ret
0000B0: 75 72 6E 3B 0D 0A 09 65 6C 73 65 20 69 66 28 61  urn;...else if(a
0000C0: 6D 61 74 63 68 28 22 63 68 61 72 22 2C 34 29 29  match("char",4))
0000D0: 20 7B 0D 0A 09 09 64 65 63 6C 6C 6F 63 28 63 63   {....declloc(cc
0000E0: 68 61 72 29 3B 0D 0A 09 09 6E 73 28 29 3B 0D 0A  har);....ns();..
0000F0: 09 09 7D 0D 0A 09 65 6C 73 65 20 69 66 28 61 6D  ..}...else if(am
000100: 61 74 63 68 28 22 69 6E 74 22 2C 33 29 29 20 7B  atch("int",3)) {
000110: 0D 0A 09 09 64 65 63 6C 6C 6F 63 28 63 69 6E 74  ....declloc(cint
000120: 29 3B 0D 0A 09 09 6E 73 28 29 3B 0D 0A 09 09 7D  );....ns();....}
000130: 0D 0A 09 65 6C 73 65 20 69 66 28 6D 61 74 63 68  ...else if(match
000140: 28 22 7B 22 29 29 20 63 6F 6D 70 6F 75 6E 64 28  ("{")) compound(
000150: 29 3B 0D 0A 09 65 6C 73 65 20 69 66 28 61 6D 61  );...else if(ama
000160: 74 63 68 28 22 69 66 22 2C 32 29 29 20 7B 0D 0A  tch("if",2)) {..
000170: 09 09 64 6F 69 66 28 29 3B 0D 0A 09 09 6C 61 73  ..doif();....las
000180: 74 73 74 3D 73 74 69 66 3B 0D 0A 09 09 7D 0D 0A  tst=stif;....}..
000190: 09 65 6C 73 65 20 69 66 28 61 6D 61 74 63 68 28  .else if(amatch(
0001A0: 22 77 68 69 6C 65 22 2C 35 29 29 20 7B 0D 0A 09  "while",5)) {...
0001B0: 09 64 6F 77 68 69 6C 65 28 29 3B 0D 0A 09 09 6C  .dowhile();....l
0001C0: 61 73 74 73 74 3D 73 74 77 68 69 6C 65 3B 09 0D  astst=stwhile;..
0001D0: 0A 09 09 7D 0D 0A 09 65 6C 73 65 20 69 66 20 28  ...}...else if (
0001E0: 61 6D 61 74 63 68 28 22 66 6F 72 22 2C 33 29 29  amatch("for",3))
0001F0: 20 7B 0D 0A 09 09 64 6F 66 6F 72 28 29 3B 0D 0A   {....dofor();..

Size : 512 (Real : 512)
000000: 3B 20 20 20 20 2F 2A 20 72 65 63 6F 72 64 20 63  ;    /* record c
000010: 75 72 72 65 6E 74 20 6C 6F 63 61 6C 20 6C 65 76  urrent local lev
000020: 65 6C 20 2A 2F 0D 0A 09 66 73 70 3D 73 70 3B 09  el */...fsp=sp;.
000030: 20 2F 2A 20 72 65 63 6F 72 64 20 63 75 72 72 65   /* record curre
000040: 6E 74 20 73 74 6B 20 70 74 72 20 2A 2F 0D 0A 09  nt stk ptr */...
000050: 66 6C 61 62 31 3D 20 67 65 74 6C 61 62 65 6C 28  flab1= getlabel(
000060: 29 3B 20 2F 2A 20 67 65 74 20 6C 61 62 65 6C 20  ); /* get label 
000070: 66 6F 72 20 66 61 6C 73 65 20 62 72 61 6E 63 68  for false branch
000080: 20 2A 2F 0D 0A 09 74 65 73 74 28 66 6C 61 62 31   */...test(flab1
000090: 29 3B 20 20 20 20 2F 2A 67 65 74 20 65 78 70 72  );    /*get expr
0000A0: 65 73 73 69 6F 6E 2C 20 61 6E 64 20 62 72 61 6E  ession, and bran
0000B0: 63 68 20 66 61 6C 73 65 20 2A 2F 0D 0A 09 73 74  ch false */...st
0000C0: 61 74 65 6D 65 6E 74 28 29 3B 20 20 20 20 2F 2A  atement();    /*
0000D0: 20 69 66 20 74 72 75 65 2C 20 64 6F 20 61 20 73   if true, do a s
0000E0: 74 61 74 65 6D 65 6E 74 20 2A 2F 0D 0A 09 73 70  tatement */...sp
0000F0: 3D 6D 6F 64 73 74 6B 28 66 73 70 29 3B 20 2F 2A  =modstk(fsp); /*
000100: 20 74 68 65 6E 20 63 6C 65 61 6E 20 75 70 20 74   then clean up t
000110: 68 65 20 73 74 61 63 6B 20 2A 2F 0D 0A 09 6C 6F  he stack */...lo
000120: 63 70 74 72 3D 66 6C 65 76 3B 20 20 20 20 2F 2A  cptr=flev;    /*
000130: 20 61 6E 64 20 64 65 61 6C 6C 6F 63 61 74 65 20   and deallocate 
000140: 61 6E 79 20 6C 6F 63 61 6C 73 20 2A 2F 0D 0A 09  any locals */...
000150: 69 66 20 28 61 6D 61 74 63 68 28 22 65 6C 73 65  if (amatch("else
000160: 22 2C 34 29 3D 3D 30 29 09 2F 2A 20 69 66 2E 2E  ",4)==0)./* if..
000170: 2E 65 6C 73 65 20 3F 20 2A 2F 0D 0A 09 09 2F 2A  .else ? */..../*
000180: 20 73 69 6D 70 6C 65 20 22 69 66 22 2E 2E 2E 70   simple "if"...p
000190: 72 69 6E 74 20 66 61 6C 73 65 20 6C 61 62 65 6C  rint false label
0001A0: 20 2A 2F 0D 0A 09 09 7B 73 70 72 69 6E 74 6C 61   */....{sprintla
0001B0: 62 65 6C 28 66 6C 61 62 31 29 3B 0D 0A 09 09 72  bel(flab1);....r
0001C0: 65 74 75 72 6E 3B 20 2F 2A 20 61 6E 64 20 65 78  eturn; /* and ex
0001D0: 69 74 20 2A 2F 0D 0A 09 09 7D 0D 0A 09 2F 2A 20  it */....}.../* 
0001E0: 61 6E 20 22 69 66 2E 2E 2E 65 6C 73 65 22 20 73  an "if...else" s
0001F0: 74 61 74 65 6D 65 6E 74 2E 20 2A 2F 0D 0A 09 6A  tatement. */...j

Size : 512 (Real : 512)
000000: 09 09 6C 61 73 74 73 74 3D 73 74 66 6F 72 3B 0D  ..lastst=stfor;.
000010: 0A 09 09 7D 0D 0A 09 65 6C 73 65 20 69 66 20 28  ...}...else if (
000020: 61 6D 61 74 63 68 28 22 73 77 69 74 63 68 22 2C  amatch("switch",
000030: 36 29 29 20 7B 0D 0A 09 09 64 6F 73 77 69 74 63  6)) {....doswitc
000040: 68 28 29 3B 0D 0A 09 09 6C 61 73 74 73 74 3D 73  h();....lastst=s
000050: 74 73 77 69 74 63 68 3B 0D 0A 09 09 7D 0D 0A 09  tswitch;....}...
000060: 65 6C 73 65 20 69 66 28 61 6D 61 74 63 68 28 22  else if(amatch("
000070: 72 65 74 75 72 6E 22 2C 36 29 29 20 7B 0D 0A 09  return",6)) {...
000080: 09 64 6F 72 65 74 75 72 6E 28 29 3B 0D 0A 09 09  .doreturn();....
000090: 6E 73 28 29 3B 0D 0A 09 09 6C 61 73 74 73 74 3D  ns();....lastst=
0000A0: 73 74 72 65 74 75 72 6E 3B 0D 0A 09 09 7D 0D 0A  streturn;....}..
0000B0: 09 65 6C 73 65 20 69 66 28 61 6D 61 74 63 68 28  .else if(amatch(
0000C0: 22 62 72 65 61 6B 22 2C 35 29 29 20 7B 0D 0A 09  "break",5)) {...
0000D0: 09 64 6F 62 72 65 61 6B 28 29 3B 0D 0A 09 09 6E  .dobreak();....n
0000E0: 73 28 29 3B 0D 0A 09 09 6C 61 73 74 73 74 3D 73  s();....lastst=s
0000F0: 74 62 72 65 61 6B 3B 0D 0A 09 09 7D 0D 0A 09 65  tbreak;....}...e
000100: 6C 73 65 20 69 66 28 61 6D 61 74 63 68 28 22 63  lse if(amatch("c
000110: 6F 6E 74 69 6E 75 65 22 2C 38 29 29 20 7B 0D 0A  ontinue",8)) {..
000120: 09 09 64 6F 63 6F 6E 74 28 29 3B 0D 0A 09 09 6E  ..docont();....n
000130: 73 28 29 3B 0D 0A 09 09 6C 61 73 74 73 74 3D 73  s();....lastst=s
000140: 74 63 6F 6E 74 3B 0D 0A 09 09 7D 0D 0A 09 65 6C  tcont;....}...el
000150: 73 65 20 69 66 28 6D 61 74 63 68 28 22 3B 22 29  se if(match(";")
000160: 29 3B 0D 0A 09 65 6C 73 65 20 69 66 28 6D 61 74  );...else if(mat
000170: 63 68 28 22 23 61 73 6D 22 29 29 20 7B 0D 0A 09  ch("#asm")) {...
000180: 09 64 6F 61 73 6D 28 29 3B 0D 0A 09 09 6E 73 28  .doasm();....ns(
000190: 29 3B 0D 0A 09 09 6C 61 73 74 73 74 3D 73 74 61  );....lastst=sta
0001A0: 73 6D 3B 0D 0A 09 09 7D 0D 0A 09 2F 2A 20 69 66  sm;....}.../* if
0001B0: 20 6E 6F 74 68 69 6E 67 20 65 6C 73 65 2C 20 61   nothing else, a
0001C0: 73 73 75 6D 65 20 69 74 27 73 20 61 6E 20 65 78  ssume it's an ex
0001D0: 70 72 65 73 73 69 6F 6E 20 2A 2F 0D 0A 09 65 6C  pression */...el
0001E0: 73 65 20 7B 0D 0A 09 09 65 78 70 72 65 73 73 69  se {....expressi
0001F0: 6F 6E 28 29 3B 0D 0A 09 09 6E 73 28 29 3B 0D 0A  on();....ns();..

Size : 512 (Real : 512)
000000: 75 6D 70 28 66 6C 61 62 32 3D 67 65 74 6C 61 62  ump(flab2=getlab
000010: 65 6C 28 29 29 3B 20 2F 2A 20 6A 75 6D 70 20 61  el()); /* jump a
000020: 72 6F 75 6E 64 20 74 68 65 20 66 61 6C 73 65 20  round the false 
000030: 63 6F 64 65 20 2A 2F 0D 0A 09 73 70 72 69 6E 74  code */...sprint
000040: 6C 61 62 65 6C 28 66 6C 61 62 31 29 3B 20 20 20  label(flab1);   
000050: 20 2F 2A 20 70 72 69 6E 74 20 74 72 75 65 20 6C   /* print true l
000060: 61 62 65 6C 20 2A 2F 0D 0A 09 73 74 61 74 65 6D  abel */...statem
000070: 65 6E 74 28 29 3B 09 09 2F 2A 20 61 6E 64 20 64  ent();../* and d
000080: 6F 20 65 6C 73 65 20 63 6C 61 75 73 65 20 2A 2F  o else clause */
000090: 0D 0A 09 73 70 3D 6D 6F 64 73 74 6B 28 66 73 70  ...sp=modstk(fsp
0000A0: 29 3B 09 09 2F 2A 20 74 68 65 6E 20 63 6C 65 61  );../* then clea
0000B0: 6E 20 75 70 20 73 74 61 63 6B 20 70 74 72 20 2A  n up stack ptr *
0000C0: 2F 0D 0A 09 6C 6F 63 70 74 72 3D 66 6C 65 76 3B  /...locptr=flev;
0000D0: 09 09 2F 2A 20 64 65 6C 6C 6F 63 61 74 65 20 6C  ../* dellocate l
0000E0: 6F 63 61 6C 73 20 2A 2F 0D 0A 09 73 70 72 69 6E  ocals */...sprin
0000F0: 74 6C 61 62 65 6C 28 66 6C 61 62 32 29 3B 09 2F  tlabel(flab2);./
000100: 2A 20 70 72 69 6E 74 20 74 72 75 65 20 6C 61 62  * print true lab
000110: 65 6C 20 2A 2F 0D 0A 09 7D 0D 0A 2F 2A 09 09 09  el */...}../*...
000120: 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20  .      */../*   
000130: 20 20 20 22 77 68 69 6C 65 22 20 73 74 61 74 65     "while" state
000140: 6D 65 6E 74 09 20 20 20 20 20 20 20 2A 2F 0D 0A  ment.       */..
000150: 2F 2A 09 09 09 09 20 20 20 20 20 20 2A 2F 0D 0A  /*....      */..
000160: 64 6F 77 68 69 6C 65 28 29 0D 0A 09 7B 0D 0A 09  dowhile()...{...
000170: 69 6E 74 20 71 75 65 5B 77 71 73 69 7A 5D 3B 09  int que[wqsiz];.
000180: 20 20 20 20 09 09 2F 2A 20 61 6C 6C 6F 63 61 74      ../* allocat
000190: 65 20 6C 6F 63 61 6C 20 71 75 65 75 65 20 2A 2F  e local queue */
0001A0: 0D 0A 0D 0A 09 71 75 65 5B 77 71 73 79 6D 5D 3D  .....que[wqsym]=
0001B0: 6C 6F 63 70 74 72 3B 20 20 20 20 20 20 09 2F 2A  locptr;      ./*
0001C0: 20 72 65 63 6F 72 64 20 6C 6F 63 61 6C 20 6C 65   record local le
0001D0: 76 65 6C 20 2A 2F 0D 0A 09 71 75 65 5B 77 71 73  vel */...que[wqs
0001E0: 70 5D 3D 73 70 3B 09 20 20 20 09 09 2F 2A 20 61  p]=sp;.   ../* a
0001F0: 6E 64 20 73 74 6B 20 70 74 72 20 2A 2F 0D 0A 09  nd stk ptr */...

Size : 512 (Real : 512)
000000: 09 09 6C 61 73 74 73 74 3D 73 74 65 78 70 3B 0D  ..lastst=stexp;.
000010: 0A 09 09 7D 0D 0A 09 72 65 74 75 72 6E 20 6C 61  ...}...return la
000020: 73 74 73 74 3B 0D 0A 09 7D 0D 0A 2F 2A 09 09 09  stst;...}../*...
000030: 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20  .      */../*   
000040: 20 20 20 53 65 6D 69 63 6F 6C 6F 6E 20 65 6E 66     Semicolon enf
000050: 6F 72 63 65 72 09 20 20 20 20 20 20 2A 2F 0D 0A  orcer.      */..
000060: 2F 2A 09 09 09 09 20 20 20 20 20 20 2A 2F 0D 0A  /*....      */..
000070: 2F 2A 20 63 61 6C 6C 65 64 20 77 68 65 6E 65 76  /* called whenev
000080: 65 72 20 73 79 6E 74 61 78 20 72 65 71 75 69 72  er syntax requir
000090: 65 73 20 61 20 73 65 6D 69 63 6F 6C 6F 6E 20 2A  es a semicolon *
0000A0: 2F 0D 0A 6E 73 28 29 20 20 20 20 7B 69 66 28 6D  /..ns()    {if(m
0000B0: 61 74 63 68 28 22 3B 22 29 3D 3D 30 29 65 72 72  atch(";")==0)err
0000C0: 6F 72 28 22 6D 69 73 73 69 6E 67 20 73 65 6D 69  or("missing semi
0000D0: 63 6F 6C 6F 6E 22 29 3B 7D 0D 0A 2F 2A 09 09 09  colon");}../*...
0000E0: 09 09 2A 2F 0D 0A 2F 2A 09 6E 65 65 64 20 73 65  ..*/../*.need se
0000F0: 6D 69 63 6F 6C 6F 6E 09 09 09 2A 2F 0D 0A 2F 2A  micolon...*/../*
000100: 09 77 72 69 74 74 65 6E 09 62 79 20 4D 69 6B 65  .written.by Mike
000110: 09 42 65 72 6E 73 6F 6E 09 31 2F 38 31 09 2A 2F  .Bernson.1/81.*/
000120: 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 6E 65 65  ../*.....*/..nee
000130: 64 73 65 6D 28 29 0D 0A 7B 0D 0A 09 69 66 20 28  dsem()..{...if (
000140: 6D 61 74 63 68 28 22 3B 22 29 29 09 72 65 74 75  match(";")).retu
000150: 72 6E 20 46 41 4C 53 45 3B 0D 0A 09 65 72 72 6F  rn FALSE;...erro
000160: 72 28 22 4D 69 73 73 69 6E 67 20 73 65 6D 69 63  r("Missing semic
000170: 6F 6C 6F 6E 22 29 3B 0D 0A 09 6A 75 6E 6B 28 29  olon");...junk()
000180: 3B 0D 0A 09 72 65 74 75 72 6E 20 54 52 55 45 3B  ;...return TRUE;
000190: 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D  ...}../*.....*/.
0001A0: 0A 2F 2A 09 6E 65 65 64 20 6F 70 65 6E 69 6E 67  ./*.need opening
0001B0: 20 70 61 72 6E 09 09 2A 2F 0D 0A 2F 2A 09 77 72   parn..*/../*.wr
0001C0: 69 74 74 65 6E 09 62 79 20 4D 69 6B 65 09 42 65  itten.by Mike.Be
0001D0: 72 6E 73 6F 6E 09 31 2F 38 31 09 2A 2F 0D 0A 6E  rnson.1/81.*/..n
0001E0: 65 65 64 6F 70 61 72 6E 28 29 0D 0A 7B 0D 0A 09  eedoparn()..{...
0001F0: 69 66 20 28 6D 61 74 63 68 28 22 28 22 29 29 09  if (match("(")).

Size : 512 (Real : 512)
000000: 71 75 65 5B 77 71 6C 6F 6F 70 5D 3D 09 09 09 2F  que[wqloop]=.../
000010: 2A 20 61 6E 64 20 6C 6F 6F 70 69 6E 67 20 6C 61  * and looping la
000020: 62 65 6C 20 2A 2F 0D 0A 09 71 75 65 5B 77 71 65  bel */...que[wqe
000030: 6E 64 5D 3D 67 65 74 6C 61 62 65 6C 28 29 3B 09  nd]=getlabel();.
000040: 09 2F 2A 20 63 6F 6E 74 69 6E 75 65 20 6C 61 62  ./* continue lab
000050: 65 6C 20 2A 2F 0D 0A 09 71 75 65 5B 77 71 6C 61  el */...que[wqla
000060: 62 5D 3D 67 65 74 6C 61 62 65 6C 28 29 3B 09 09  b]=getlabel();..
000070: 2F 2A 20 61 6E 64 20 65 78 69 74 20 6C 61 62 65  /* and exit labe
000080: 6C 20 2A 2F 0D 0A 09 61 64 64 77 68 69 6C 65 28  l */...addwhile(
000090: 71 75 65 29 3B 09 09 09 2F 2A 20 61 64 64 20 74  que);.../* add t
0000A0: 6F 20 6C 6F 6F 70 69 6E 67 20 73 74 61 63 6B 09  o looping stack.
0000B0: 2A 2F 0D 0A 09 73 70 72 69 6E 74 6C 61 62 65 6C  */...sprintlabel
0000C0: 28 71 75 65 5B 77 71 6C 6F 6F 70 5D 29 3B 09 2F  (que[wqloop]);./
0000D0: 2A 20 6C 6F 6F 70 20 6C 61 62 65 6C 20 2A 2F 0D  * loop label */.
0000E0: 0A 09 74 65 73 74 28 71 75 65 5B 77 71 6C 61 62  ..test(que[wqlab
0000F0: 5D 29 3B 09 09 2F 2A 20 73 65 65 20 69 66 20 74  ]);../* see if t
000100: 72 75 65 20 2A 2F 0D 0A 09 73 74 61 74 65 6D 65  rue */...stateme
000110: 6E 74 28 29 3B 09 09 09 2F 2A 20 69 66 20 73 6F  nt();.../* if so
000120: 2C 20 64 6F 20 61 20 73 74 61 74 65 6D 65 6E 74  , do a statement
000130: 20 2A 2F 0D 0A 09 6A 75 6D 70 28 71 75 65 5B 77   */...jump(que[w
000140: 71 6C 6F 6F 70 5D 29 3B 09 09 2F 2A 20 6C 6F 6F  qloop]);../* loo
000150: 70 09 74 6F 20 6C 61 62 65 6C 20 2A 2F 0D 0A 09  p.to label */...
000160: 73 70 72 69 6E 74 6C 61 62 65 6C 28 71 75 65 5B  sprintlabel(que[
000170: 77 71 6C 61 62 5D 29 3B 09 2F 2A 20 65 78 69 74  wqlab]);./* exit
000180: 20 6C 61 62 65 6C 20 2A 2F 0D 0A 09 6C 6F 63 70   label */...locp
000190: 74 72 3D 71 75 65 5B 77 71 73 79 6D 5D 3B 09 09  tr=que[wqsym];..
0001A0: 2F 2A 20 64 65 61 6C 6C 6F 63 61 74 65 20 6C 6F  /* deallocate lo
0001B0: 63 61 6C 73 20 2A 2F 0D 0A 09 73 70 3D 6D 6F 64  cals */...sp=mod
0001C0: 73 74 6B 28 71 75 65 5B 77 71 73 70 5D 29 3B 09  stk(que[wqsp]);.
0001D0: 09 2F 2A 20 63 6C 65 61 6E 20 75 70 20 73 74 6B  ./* clean up stk
0001E0: 09 70 74 72 20 2A 2F 0D 0A 09 64 65 6C 77 68 69  .ptr */...delwhi
0001F0: 6C 65 28 29 3B 09 09 09 2F 2A 20 64 65 6C 65 74  le();.../* delet

Size : 512 (Real : 512)
000000: 72 65 74 75 72 6E 20 46 41 4C 53 45 3B 0D 0A 09  return FALSE;...
000010: 65 72 72 6F 72 28 22 4D 69 73 73 69 6E 67 20 6C  error("Missing l
000020: 65 66 74 20 70 61 72 6E 74 68 69 73 22 29 3B 0D  eft parnthis");.
000030: 0A 09 6A 75 6E 6B 28 29 3B 0D 0A 09 72 65 74 75  ..junk();...retu
000040: 72 6E 20 54 52 55 45 3B 0D 0A 09 7D 0D 0A 2F 2A  rn TRUE;...}../*
000050: 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 6E 65 65 64  .....*/../*.need
000060: 20 63 6C 6F 73 69 6E 67 20 70 61 72 6E 09 09 2A   closing parn..*
000070: 2F 0D 0A 2F 2A 09 77 72 69 74 74 65 6E 09 62 79  /../*.written.by
000080: 20 4D 69 6B 65 09 42 65 72 6E 73 6F 6E 09 31 2F   Mike.Bernson.1/
000090: 38 31 09 2A 2F 0D 0A 6E 65 65 64 63 70 61 72 6E  81.*/..needcparn
0000A0: 28 29 0D 0A 7B 0D 0A 09 69 66 20 28 6D 61 74 63  ()..{...if (matc
0000B0: 68 28 22 29 22 29 29 09 72 65 74 75 72 6E 20 46  h(")")).return F
0000C0: 41 4C 53 45 3B 0D 0A 09 65 72 72 6F 72 28 22 4D  ALSE;...error("M
0000D0: 69 73 73 69 6E 67 20 72 69 67 68 74 20 70 61 72  issing right par
0000E0: 6E 74 68 69 73 22 29 3B 0D 0A 09 6A 75 6E 6B 28  nthis");...junk(
0000F0: 29 3B 0D 0A 09 72 65 74 75 72 6E 20 54 52 55 45  );...return TRUE
000100: 3B 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F  ;...}../*.....*/
000110: 0D 0A 2F 2A 09 6E 65 65 64 20 6F 70 65 6E 69 6E  ../*.need openin
000120: 67 20 62 72 61 63 65 09 09 2A 2F 0D 0A 2F 2A 09  g brace..*/../*.
000130: 77 72 69 74 74 65 6E 09 62 79 20 4D 69 6B 65 09  written.by Mike.
000140: 42 65 72 6E 73 6F 6E 09 31 2F 38 31 09 2A 2F 0D  Bernson.1/81.*/.
000150: 0A 6E 65 65 64 6F 62 72 61 63 65 28 29 0D 0A 7B  .needobrace()..{
000160: 0D 0A 09 69 66 20 28 6D 61 74 63 68 28 22 7B 22  ...if (match("{"
000170: 29 29 09 72 65 74 75 72 6E 20 46 41 4C 53 45 3B  )).return FALSE;
000180: 0D 0A 09 65 72 72 6F 72 28 22 4D 69 73 73 69 6E  ...error("Missin
000190: 67 20 6C 65 66 74 20 62 72 61 63 65 22 29 3B 0D  g left brace");.
0001A0: 0A 09 6A 75 6E 6B 28 29 3B 0D 0A 09 72 65 74 75  ..junk();...retu
0001B0: 72 6E 20 54 52 55 45 3B 0D 0A 09 7D 0D 0A 2F 2A  rn TRUE;...}../*
0001C0: 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 6E 65 65 64  .....*/../*.need
0001D0: 20 63 6C 6F 73 69 6E 67 20 62 72 61 63 65 09 09   closing brace..
0001E0: 2A 2F 0D 0A 2F 2A 09 77 72 69 74 74 65 6E 09 62  */../*.written.b
0001F0: 79 20 4D 69 6B 65 09 42 65 72 6E 73 6F 6E 09 31  y Mike.Bernson.1

Size : 512 (Real : 512)
000000: 65 20 71 75 65 75 65 09 65 6E 74 72 79 20 2A 2F  e queue.entry */
000010: 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D  ...}../*.....*/.
000020: 0A 2F 2A 09 22 53 77 69 74 63 68 22 20 73 74 61  ./*."Switch" sta
000030: 74 65 6D 65 6E 74 09 09 2A 2F 0D 0A 2F 2A 09 09  tement..*/../*..
000040: 09 09 09 2A 2F 0D 0A 2F 2A 09 77 72 69 74 74 65  ...*/../*.writte
000050: 6E 20 62 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F  n by Mike Bernso
000060: 6E 20 31 2F 38 31 09 2A 2F 0D 0A 2F 2A 09 09 09  n 1/81.*/../*...
000070: 09 09 2A 2F 0D 0A 64 6F 73 77 69 74 63 68 28 29  ..*/..doswitch()
000080: 0D 0A 7B 0D 0A 09 69 6E 74 20 76 61 6C 75 65 5B  ..{...int value[
000090: 53 57 49 54 43 48 5F 4D 41 58 5D 3B 20 20 2F 2A  SWITCH_MAX];  /*
0000A0: 20 76 61 6C 75 65 20 66 6F 72 20 63 61 73 65 20   value for case 
0000B0: 73 74 61 74 65 6D 61 6E 74 20 2A 2F 0D 0A 09 69  statemant */...i
0000C0: 6E 74 20 6C 61 62 65 6C 5B 53 57 49 54 43 48 5F  nt label[SWITCH_
0000D0: 4D 41 58 5D 3B 20 20 2F 2A 20 76 61 6C 75 65 20  MAX];  /* value 
0000E0: 66 6F 72 20 65 61 63 68 20 6C 61 62 65 6C 20 2A  for each label *
0000F0: 2F 0D 0A 09 69 6E 74 20 63 6F 75 6E 74 2C 74 65  /...int count,te
000100: 6E 70 3B 20 09 2F 2A 20 6E 75 6D 62 65 72 20 6F  np; ./* number o
000110: 66 20 73 77 69 74 63 68 65 73 20 2A 2F 0D 0A 09  f switches */...
000120: 69 6E 74 20 65 6E 64 5F 6C 61 62 65 6C 3B 20 20  int end_label;  
000130: 09 2F 2A 20 6C 61 62 65 6C 20 66 6F 72 20 64 65  ./* label for de
000140: 66 61 75 6C 74 20 2A 2F 0D 0A 09 69 6E 74 20 6C  fault */...int l
000150: 61 62 65 6C 5F 73 77 69 74 63 68 3B 09 2F 2A 20  abel_switch;./* 
000160: 75 73 65 64 20 66 6F 72 20 73 77 69 74 63 68 20  used for switch 
000170: 6C 61 62 65 6C 20 2A 2F 0D 0A 09 69 6E 74 20 74  label */...int t
000180: 65 6D 70 2C 76 61 6C 5B 32 5D 3B 0D 0A 09 69 6E  emp,val[2];...in
000190: 74 20 71 75 65 5B 77 71 73 69 7A 5D 3B 09 09 2F  t que[wqsiz];../
0001A0: 2A 20 6C 6F 63 61 6C 20 71 75 65 20 61 72 65 61  * local que area
0001B0: 20 2A 2F 0D 0A 09 63 6F 75 6E 74 3D 30 3B 09 09   */...count=0;..
0001C0: 2F 2A 20 6E 75 6D 62 65 72 20 6F 66 20 63 61 73  /* number of cas
0001D0: 65 20 73 74 61 74 65 6D 65 6E 74 73 20 2A 2F 0D  e statements */.
0001E0: 0A 09 71 75 65 5B 77 71 73 79 6D 5D 3D 6C 6F 63  ..que[wqsym]=loc
0001F0: 70 74 72 3B 09 2F 2A 20 6C 6F 63 61 6C 20 76 61  ptr;./* local va

Size : 512 (Real : 512)
000000: 2F 0D 0A 09 71 75 65 5B 77 71 62 6F 64 79 5D 3D  /...que[wqbody]=
000010: 67 65 74 6C 61 62 65 6C 28 29 3B 09 2F 2A 20 62  getlabel();./* b
000020: 6F 64 79 20 66 6F 72 20 63 6F 64 79 20 2A 2F 0D  ody for cody */.
000030: 0A 09 61 64 64 77 68 69 6C 65 28 71 75 65 29 3B  ..addwhile(que);
000040: 09 09 2F 2A 20 61 64 64 20 77 68 69 6C 65 20 74  ../* add while t
000050: 6F 20 6C 6F 6F 70 20 71 75 65 20 2A 2F 0D 0A 09  o loop que */...
000060: 69 66 20 28 6E 65 65 64 6F 70 61 72 6E 28 29 29  if (needoparn())
000070: 20 7B 09 2F 2A 20 63 68 65 63 6B 20 66 6F 72 20   {./* check for 
000080: 6F 70 65 6E 20 70 61 72 6E 20 2A 2F 0D 0A 09 09  open parn */....
000090: 64 65 6C 77 68 69 6C 65 28 29 3B 09 2F 2A 20 64  delwhile();./* d
0000A0: 65 6C 65 74 65 20 66 6F 72 20 65 6E 74 72 79 20  elete for entry 
0000B0: 66 72 6F 6D 20 71 75 65 20 2A 2F 0D 0A 09 09 72  from que */....r
0000C0: 65 74 75 72 6E 3B 0D 0A 09 09 7D 0D 0A 09 65 78  eturn;....}...ex
0000D0: 70 72 65 73 73 69 6F 6E 28 29 3B 09 09 2F 2A 20  pression();../* 
0000E0: 69 6E 69 74 09 65 78 70 72 65 73 73 09 2A 2F 0D  init.express.*/.
0000F0: 0A 09 69 66 20 28 6E 65 65 64 73 65 6D 28 29 29  ..if (needsem())
000100: 20 7B 09 2F 2A 20 63 68 65 63 6B 20 66 6F 72 20   {./* check for 
000110: 73 65 6D 63 6F 6C 20 2A 2F 0D 0A 09 09 64 65 6C  semcol */....del
000120: 77 68 69 6C 65 28 29 3B 09 2F 2A 20 64 65 6C 65  while();./* dele
000130: 74 65 20 71 75 65 20 65 6E 74 72 79 20 2A 2F 0D  te que entry */.
000140: 0A 09 09 72 65 74 75 72 6E 3B 0D 0A 09 09 7D 0D  ...return;....}.
000150: 0A 09 73 70 72 69 6E 74 6C 61 62 65 6C 28 71 75  ..sprintlabel(qu
000160: 65 5B 77 71 6C 6F 6F 70 5D 29 3B 09 2F 2A 20 63  e[wqloop]);./* c
000170: 6F 6E 74 72 6F 6C 20 6C 6F 6F 70 09 6C 61 62 65  ontrol loop.labe
000180: 6C 20 2A 2F 0D 0A 09 73 74 61 74 75 73 3D 65 78  l */...status=ex
000190: 70 72 65 73 73 69 6F 6E 28 29 3B 09 09 2F 2A 20  pression();../* 
0001A0: 6C 6F 6F 70 20 63 6F 6E 74 72 6F 6C 20 65 78 70  loop control exp
0001B0: 72 65 73 73 20 2A 2F 0D 0A 09 74 65 73 74 6A 75  ress */...testju
0001C0: 6D 70 28 71 75 65 5B 77 71 6C 61 62 5D 2C 73 74  mp(que[wqlab],st
0001D0: 61 74 75 73 29 3B 09 2F 2A 20 73 65 65 20 69 66  atus);./* see if
0001E0: 20 65 78 69 74 20 74 69 6D 65 20 2A 2F 0D 0A 09   exit time */...
0001F0: 6A 75 6D 70 28 71 75 65 5B 77 71 62 6F 64 79 5D  jump(que[wqbody]

Size : 512 (Real : 512)
000000: 62 6C 65 20 70 6F 69 6E 74 65 72 20 2A 2F 0D 0A  ble pointer */..
000010: 09 71 75 65 5B 77 71 73 70 5D 3D 73 70 3B 09 09  .que[wqsp]=sp;..
000020: 2F 2A 20 73 61 76 65 20 63 75 72 72 65 6E 74 20  /* save current 
000030: 73 74 61 63 6B 20 70 6F 69 6E 74 65 72 20 2A 2F  stack pointer */
000040: 0D 0A 09 65 6E 64 5F 6C 61 62 65 6C 3D 09 09 2F  ...end_label=../
000050: 2A 20 64 65 66 61 75 6C 74 20 65 78 69 74 20 6C  * default exit l
000060: 61 62 65 6C 20 2A 2F 0D 0A 09 71 75 65 5B 77 71  abel */...que[wq
000070: 6C 6F 6F 70 5D 3D 09 09 2F 2A 20 6C 6F 6F 70 69  loop]=../* loopi
000080: 6E 67 20 6C 61 62 65 6C 20 2A 2F 0D 0A 09 71 75  ng label */...qu
000090: 65 5B 77 71 6C 61 62 5D 3D 09 09 2F 2A 20 6C 6F  e[wqlab]=../* lo
0000A0: 6F 70 20 65 78 69 74 20 76 61 72 62 6C 65 20 2A  op exit varble *
0000B0: 2F 0D 0A 09 71 75 65 5B 77 71 65 6E 64 5D 3D 67  /...que[wqend]=g
0000C0: 65 74 6C 61 62 65 6C 28 29 3B 09 2F 2A 20 63 6F  etlabel();./* co
0000D0: 6E 74 69 6E 75 65 20 6C 61 62 65 6C 20 2A 2F 0D  ntinue label */.
0000E0: 0A 09 61 64 64 77 68 69 6C 65 28 71 75 65 29 3B  ..addwhile(que);
0000F0: 09 09 2F 2A 20 61 64 64 20 74 6F 20 77 68 69 6C  ../* add to whil
000100: 65 20 73 74 61 63 6B 20 2A 2F 0D 0A 09 69 66 20  e stack */...if 
000110: 28 6E 65 65 64 6F 70 61 72 6E 28 29 29 20 7B 09  (needoparn()) {.
000120: 2F 2A 20 63 68 65 63 6B 20 74 6F 20 73 65 65 09  /* check to see.
000130: 69 66 22 28 22 20 65 78 69 74 73 20 2A 2F 0D 0A  if"(" exits */..
000140: 09 09 64 65 6C 77 68 69 6C 65 28 29 3B 09 2F 2A  ..delwhile();./*
000150: 20 6E 6F 20 64 65 6C 65 74 65 20 73 77 69 74 63   no delete switc
000160: 68 20 65 6E 74 72 79 20 61 6E 64 20 2A 2F 0D 0A  h entry and */..
000170: 09 09 72 65 74 75 72 6E 3B 09 09 2F 2A 20 72 65  ..return;../* re
000180: 74 75 72 6E 20 6F 75 74 20 6F 66 20 73 77 69 74  turn out of swit
000190: 63 68 09 2A 2F 0D 0A 09 09 7D 0D 0A 09 65 78 70  ch.*/....}...exp
0001A0: 72 65 73 73 69 6F 6E 28 29 3B 09 09 2F 2A 20 65  ression();../* e
0001B0: 78 70 72 65 73 73 69 6F 6E 20 66 6F 72 20 73 77  xpression for sw
0001C0: 69 74 63 68 20 2A 2F 0D 0A 09 70 75 73 68 28 29  itch */...push()
0001D0: 3B 0D 0A 09 69 66 20 28 6E 65 65 64 63 70 61 72  ;...if (needcpar
0001E0: 6E 28 29 29 20 7B 09 2F 2A 20 63 68 65 63 6B 20  n()) {./* check 
0001F0: 66 6F 72 20 22 29 22 20 2A 2F 0D 0A 09 09 64 65  for ")" */....de

Size : 512 (Real : 512)
000000: 29 3B 09 2F 2A 20 6E 6F 74 20 74 69 6D 65 20 74  );./* not time t
000010: 6F 20 65 78 69 74 20 64 6F 20 62 6F 64 79 20 2A  o exit do body *
000020: 2F 0D 0A 09 69 66 20 28 6E 65 65 64 73 65 6D 28  /...if (needsem(
000030: 29 29 20 7B 09 2F 2A 20 63 68 65 63 6B 20 66 6F  )) {./* check fo
000040: 72 20 73 65 6D 63 6F 6C 20 2A 2F 0D 0A 09 09 64  r semcol */....d
000050: 65 6C 77 68 69 6C 65 28 29 3B 09 2F 2A 20 64 65  elwhile();./* de
000060: 6C 65 74 65 20 31 20 71 75 65 09 65 6E 74 72 79  lete 1 que.entry
000070: 20 2A 2F 0D 0A 09 09 72 65 74 75 72 6E 3B 0D 0A   */....return;..
000080: 09 09 7D 0D 0A 09 73 70 72 69 6E 74 6C 61 62 65  ..}...sprintlabe
000090: 6C 28 71 75 65 5B 77 71 65 6E 64 5D 29 3B 09 2F  l(que[wqend]);./
0000A0: 2A 20 70 72 69 6E 74 20 65 6E 64 20 6F 66 20 6C  * print end of l
0000B0: 6F 6F 70 20 2A 2F 0D 0A 09 65 78 70 72 65 73 73  oop */...express
0000C0: 69 6F 6E 28 29 3B 09 09 2F 2A 20 65 6E 64 20 6C  ion();../* end l
0000D0: 6F 6F 70 20 65 78 70 72 65 73 73 69 6F 6E 20 2A  oop expression *
0000E0: 2F 0D 0A 09 6A 75 6D 70 28 71 75 65 5B 77 71 6C  /...jump(que[wql
0000F0: 6F 6F 70 5D 29 3B 09 2F 2A 20 64 6F 20 6C 6F 6F  oop]);./* do loo
000100: 70 20 63 6F 6E 74 72 6F 6C 20 65 78 70 72 65 73  p control expres
000110: 73 69 6F 6E 20 2A 2F 0D 0A 09 69 66 20 28 6E 65  sion */...if (ne
000120: 65 64 63 70 61 72 6E 28 29 29 20 7B 0D 0A 09 09  edcparn()) {....
000130: 64 65 6C 77 68 69 6C 65 28 29 3B 0D 0A 09 09 72  delwhile();....r
000140: 65 74 75 72 6E 3B 0D 0A 09 09 7D 0D 0A 09 73 70  eturn;....}...sp
000150: 72 69 6E 74 6C 61 62 65 6C 28 71 75 65 5B 77 71  rintlabel(que[wq
000160: 62 6F 64 79 5D 29 3B 0D 0A 09 73 74 61 74 65 6D  body]);...statem
000170: 65 6E 74 28 29 3B 0D 0A 09 6A 75 6D 70 28 71 75  ent();...jump(qu
000180: 65 5B 77 71 65 6E 64 5D 29 3B 0D 0A 09 73 70 72  e[wqend]);...spr
000190: 69 6E 74 6C 61 62 65 6C 28 71 75 65 5B 77 71 6C  intlabel(que[wql
0001A0: 61 62 5D 29 3B 0D 0A 09 6C 6F 63 70 74 72 3D 71  ab]);...locptr=q
0001B0: 75 65 5B 77 71 73 79 6D 5D 3B 0D 0A 09 73 70 3D  ue[wqsym];...sp=
0001C0: 6D 6F 64 73 74 6B 28 71 75 65 5B 77 71 73 70 5D  modstk(que[wqsp]
0001D0: 29 3B 0D 0A 09 64 65 6C 77 68 69 6C 65 28 29 3B  );...delwhile();
0001E0: 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 20 20 20 20  ...}../*....    
0001F0: 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 22     */../*      "

Size : 512 (Real : 512)
000000: 6C 77 68 69 6C 65 28 29 3B 09 2F 2A 20 6E 6F 74  lwhile();./* not
000010: 20 66 6F 75 6C 64 20 64 65 74 65 6C 65 20 71 75   fould detele qu
000020: 65 09 65 6E 74 72 79 20 2A 2F 0D 0A 09 09 72 65  e.entry */....re
000030: 74 75 72 6E 3B 09 09 2F 2A 20 61 6E 64 20 65 78  turn;../* and ex
000040: 69 74 20 73 77 69 74 63 68 20 73 74 61 74 65 6D  it switch statem
000050: 61 6E 74 20 2A 2F 0D 0A 09 09 7D 0D 0A 09 69 66  ant */....}...if
000060: 20 28 6E 65 65 64 6F 62 72 61 63 65 28 29 29 20   (needobrace()) 
000070: 7B 0D 0A 09 09 64 65 6C 77 68 69 6C 65 28 29 3B  {....delwhile();
000080: 0D 0A 09 09 72 65 74 75 72 6E 3B 0D 0A 09 09 7D  ....return;....}
000090: 0D 0A 09 6A 75 6D 70 28 6C 61 62 65 6C 5F 73 77  ...jump(label_sw
0000A0: 69 74 63 68 3D 67 65 74 6C 61 62 65 6C 28 29 29  itch=getlabel())
0000B0: 3B 0D 0A 09 73 70 3D 73 70 2B 32 3B 0D 0A 0D 0A  ;...sp=sp+2;....
0000C0: 09 77 68 69 6C 65 28 31 29 20 7B 0D 0A 20 09 69  .while(1) {.. .i
0000D0: 66 20 28 61 6D 61 74 63 68 28 22 63 61 73 65 22  f (amatch("case"
0000E0: 2C 34 29 29 20 7B 0D 0A 09 09 09 69 66 20 28 63  ,4)) {.....if (c
0000F0: 6F 6E 73 74 5F 65 78 70 28 76 61 6C 29 20 3D 3D  onst_exp(val) ==
000100: 20 30 20 29 20 7B 0D 0A 09 09 09 09 65 72 72 6F   0 ) {......erro
000110: 72 28 22 42 61 64 20 63 6F 6E 73 74 61 6E 74 22  r("Bad constant"
000120: 29 3B 0D 0A 09 09 09 09 63 6F 6E 74 69 6E 75 65  );......continue
000130: 3B 0D 0A 09 09 09 09 7D 0D 0A 09 09 09 69 66 20  ;......}.....if 
000140: 28 63 6F 75 6E 74 3C 53 57 49 54 43 48 5F 4D 41  (count<SWITCH_MA
000150: 58 2D 32 29 20 7B 0D 0A 09 09 09 09 76 61 6C 75  X-2) {......valu
000160: 65 5B 63 6F 75 6E 74 5D 3D 76 61 6C 5B 30 5D 3B  e[count]=val[0];
000170: 0D 0A 09 09 09 09 73 70 72 69 6E 74 6C 61 62 65  ......sprintlabe
000180: 6C 28 6C 61 62 65 6C 5B 63 6F 75 6E 74 2B 2B 5D  l(label[count++]
000190: 3D 67 65 74 6C 61 62 65 6C 28 29 29 3B 0D 0A 09  =getlabel());...
0001A0: 09 09 09 7D 0D 0A 09 09 09 65 6C 73 65 20 65 72  ...}.....else er
0001B0: 72 6F 72 28 22 54 6F 6F 20 6D 61 6E 79 20 63 61  ror("Too many ca
0001C0: 73 65 20 73 74 61 74 6D 65 6E 74 73 22 29 3B 0D  se statments");.
0001D0: 0A 09 09 09 69 66 20 28 21 6D 61 74 63 68 28 22  ....if (!match("
0001E0: 3A 22 29 29 20 65 72 72 6F 72 28 22 4D 69 73 73  :")) error("Miss
0001F0: 69 6E 67 20 63 6F 6C 6F 6E 22 29 3B 0D 0A 09 09  ing colon");....

Size : 512 (Real : 512)
000000: 72 65 74 75 72 6E 22 20 73 74 61 74 65 6D 65 6E  return" statemen
000010: 74 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 09 09  t.      */../*..
000020: 09 09 20 20 20 20 20 20 2A 2F 0D 0A 64 6F 72 65  ..      */..dore
000030: 74 75 72 6E 28 29 0D 0A 09 7B 0D 0A 09 2F 2A 20  turn()...{.../* 
000040: 69 66 20 6E 6F 74 20 65 6E 64 20 6F 66 20 73 74  if not end of st
000050: 61 74 65 6D 65 6E 74 2C 20 67 65 74 20 61 6E 20  atement, get an 
000060: 65 78 70 72 65 73 73 69 6F 6E 20 2A 2F 0D 0A 09  expression */...
000070: 69 66 28 65 6E 64 73 74 28 29 3D 3D 30 29 65 78  if(endst()==0)ex
000080: 70 72 65 73 73 69 6F 6E 28 29 3B 0D 0A 09 6D 6F  pression();...mo
000090: 64 73 74 6B 28 30 29 3B 20 20 20 20 20 20 2F 2A  dstk(0);      /*
0000A0: 20 63 6C 65 61 6E 20 75 70 20 73 74 6B 20 2A 2F   clean up stk */
0000B0: 0D 0A 09 72 65 74 28 29 3B 09 20 20 2F 2A 20 61  ...ret();.  /* a
0000C0: 6E 64 20 65 78 69 74 20 66 75 6E 63 74 69 6F 6E  nd exit function
0000D0: 20 2A 2F 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 20   */...}../*.... 
0000E0: 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 20 20 20 20       */../*     
0000F0: 20 22 62 72 65 61 6B 22 20 73 74 61 74 65 6D 65   "break" stateme
000100: 6E 74 09 20 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A  nt.       */../*
000110: 09 09 09 09 20 20 20 20 20 20 2A 2F 0D 0A 64 6F  ....      */..do
000120: 62 72 65 61 6B 28 29 0D 0A 09 7B 0D 0A 09 69 6E  break()...{...in
000130: 74 20 2A 70 74 72 3B 0D 0A 09 2F 2A 20 73 65 65  t *ptr;.../* see
000140: 20 69 66 20 61 6E 79 20 22 77 68 69 6C 65 73 22   if any "whiles"
000150: 20 61 72 65 20 6F 70 65 6E 20 2A 2F 0D 0A 09 69   are open */...i
000160: 66 20 28 28 70 74 72 3D 72 65 61 64 77 68 69 6C  f ((ptr=readwhil
000170: 65 28 29 29 3D 3D 30 29 20 72 65 74 75 72 6E 3B  e())==0) return;
000180: 20 20 20 20 20 20 20 2F 2A 20 6E 6F 20 2A 2F 0D         /* no */.
000190: 0A 09 6D 6F 64 73 74 6B 28 70 74 72 5B 77 71 73  ..modstk(ptr[wqs
0001A0: 70 5D 29 3B 20 20 20 20 2F 2A 20 65 6C 73 65 20  p]);    /* else 
0001B0: 63 6C 65 61 6E 20 75 70 20 73 74 6B 20 70 74 72  clean up stk ptr
0001C0: 20 2A 2F 0D 0A 09 6A 75 6D 70 28 70 74 72 5B 77   */...jump(ptr[w
0001D0: 71 6C 61 62 5D 29 3B 20 20 20 20 20 20 20 2F 2A  qlab]);       /*
0001E0: 20 6A 75 6D 70 20 74 6F 20 65 78 69 74 20 6C 61   jump to exit la
0001F0: 62 65 6C 20 2A 2F 0D 0A 09 7D 0D 0A 2F 2A 09 09  bel */...}../*..

Size : 512 (Real : 512)
000000: 09 7D 0D 0A 09 65 6C 73 65 20 69 66 20 28 61 6D  .}...else if (am
000010: 61 74 63 68 28 22 64 65 66 61 75 6C 74 22 2C 37  atch("default",7
000020: 29 29 20 7B 0D 0A 09 09 65 6E 64 5F 6C 61 62 65  )) {....end_labe
000030: 6C 3D 67 65 74 6C 61 62 65 6C 28 29 3B 0D 0A 09  l=getlabel();...
000040: 09 73 70 72 69 6E 74 6C 61 62 65 6C 28 65 6E 64  .sprintlabel(end
000050: 5F 6C 61 62 65 6C 29 3B 0D 0A 09 09 69 66 20 28  _label);....if (
000060: 21 6D 61 74 63 68 28 22 3A 22 29 29 20 65 72 72  !match(":")) err
000070: 6F 72 28 22 4D 69 73 73 69 6E 67 20 63 6F 6C 6F  or("Missing colo
000080: 6E 22 29 3B 0D 0A 09 09 7D 0D 0A 09 65 6C 73 65  n");....}...else
000090: 20 69 66 20 28 6D 61 74 63 68 28 22 7D 22 29 29   if (match("}"))
0000A0: 20 7B 0D 0A 09 09 6A 75 6D 70 28 71 75 65 5B 77   {....jump(que[w
0000B0: 71 6C 61 62 5D 29 3B 09 2F 2A 20 6A 75 6D 70 20  qlab]);./* jump 
0000C0: 70 61 73 74 20 73 77 69 74 63 68 20 64 61 74 61  past switch data
0000D0: 20 2A 2F 0D 0A 09 09 74 65 6D 70 3D 30 3B 0D 0A   */....temp=0;..
0000E0: 09 09 73 70 72 69 6E 74 6C 61 62 65 6C 28 6C 61  ..sprintlabel(la
0000F0: 62 65 6C 5F 73 77 69 74 63 68 29 3B 0D 0A 09 09  bel_switch);....
000100: 65 78 65 63 5F 73 77 69 74 63 68 28 63 6F 75 6E  exec_switch(coun
000110: 74 2C 6C 61 62 65 6C 5F 73 77 69 74 63 68 3D 67  t,label_switch=g
000120: 65 74 6C 61 62 65 6C 28 29 2C 65 6E 64 5F 6C 61  etlabel(),end_la
000130: 62 65 6C 29 3B 0D 0A 09 09 73 70 72 69 6E 74 6C  bel);....sprintl
000140: 61 62 65 6C 28 6C 61 62 65 6C 5F 73 77 69 74 63  abel(label_switc
000150: 68 29 3B 0D 0A 09 09 77 68 69 6C 65 28 74 65 6D  h);....while(tem
000160: 70 3C 63 6F 75 6E 74 29 20 7B 0D 0A 09 09 09 64  p<count) {.....d
000170: 65 66 77 6F 72 64 28 29 3B 0D 0A 09 09 09 6F 75  efword();.....ou
000180: 74 64 65 63 28 76 61 6C 75 65 5B 74 65 6D 70 5D  tdec(value[temp]
000190: 29 3B 0D 0A 09 09 09 6F 75 74 73 74 72 28 22 2C  );.....outstr(",
0001A0: 22 29 3B 0D 0A 09 09 09 70 72 69 6E 74 6C 61 62  ");.....printlab
0001B0: 65 6C 28 6C 61 62 65 6C 5B 74 65 6D 70 2B 2B 5D  el(label[temp++]
0001C0: 29 3B 0D 0A 09 09 09 6E 6C 28 29 3B 0D 0A 09 09  );.....nl();....
0001D0: 09 7D 0D 0A 09 09 64 65 6C 77 68 69 6C 65 28 29  .}....delwhile()
0001E0: 3B 0D 0A 09 09 73 70 72 69 6E 74 6C 61 62 65 6C  ;....sprintlabel
0001F0: 28 71 75 65 5B 77 71 6C 61 62 5D 29 3B 0D 0A 09  (que[wqlab]);...

Size : 512 (Real : 512)
000000: 09 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A 20 20  ..      */../*  
000010: 20 20 20 20 22 63 6F 6E 74 69 6E 75 65 22 20 73      "continue" s
000020: 74 61 74 65 6D 65 6E 74 09 20 20 20 20 2A 2F 0D  tatement.    */.
000030: 0A 2F 2A 09 09 09 09 20 20 20 20 20 20 2A 2F 0D  ./*....      */.
000040: 0A 64 6F 63 6F 6E 74 28 29 0D 0A 09 7B 0D 0A 09  .docont()...{...
000050: 69 6E 74 20 2A 70 74 72 3B 0D 0A 09 2F 2A 20 73  int *ptr;.../* s
000060: 65 65 20 69 66 20 61 6E 79 20 22 77 68 69 6C 65  ee if any "while
000070: 73 22 20 61 72 65 20 6F 70 65 6E 20 2A 2F 0D 0A  s" are open */..
000080: 09 69 66 20 28 28 70 74 72 3D 72 65 61 64 77 68  .if ((ptr=readwh
000090: 69 6C 65 28 29 29 3D 3D 30 29 20 72 65 74 75 72  ile())==0) retur
0000A0: 6E 3B 20 20 20 20 20 20 20 2F 2A 20 6E 6F 20 2A  n;       /* no *
0000B0: 2F 0D 0A 09 6D 6F 64 73 74 6B 28 28 70 74 72 5B  /...modstk((ptr[
0000C0: 77 71 73 70 5D 29 29 3B 20 20 20 20 2F 2A 20 65  wqsp]));    /* e
0000D0: 6C 73 65 20 63 6C 65 61 6E 20 75 70 20 73 74 6B  lse clean up stk
0000E0: 20 70 74 72 20 2A 2F 0D 0A 09 6A 75 6D 70 28 70   ptr */...jump(p
0000F0: 74 72 5B 77 71 65 6E 64 5D 29 3B 20 20 20 20 20  tr[wqend]);     
000100: 20 2F 2A 20 6A 75 6D 70 20 74 6F 20 65 6E 64 20   /* jump to end 
000110: 6C 61 62 65 6C 20 2A 2F 0D 0A 09 7D 0D 0A 2F 2A  label */...}../*
000120: 09 09 09 09 20 20 20 20 20 20 2A 2F 0D 0A 2F 2A  ....      */../*
000130: 20 20 20 20 20 20 22 61 73 6D 22 20 70 73 65 75        "asm" pseu
000140: 64 6F 2D 73 74 61 74 65 6D 65 6E 74 09 20 20 2A  do-statement.  *
000150: 2F 0D 0A 2F 2A 09 09 09 09 20 20 20 20 20 20 2A  /../*....      *
000160: 2F 0D 0A 2F 2A 20 65 6E 74 65 72 73 20 6D 6F 64  /../* enters mod
000170: 65 20 77 68 65 72 65 20 61 73 73 65 6D 62 6C 79  e where assembly
000180: 20 6C 61 6E 67 75 61 67 65 20 73 74 61 74 65 6D   language statem
000190: 65 6E 74 73 20 61 72 65 20 2A 2F 0D 0A 2F 2A 20  ents are */../* 
0001A0: 20 20 20 20 20 70 61 73 73 65 64 20 69 6E 74 61       passed inta
0001B0: 63 74 20 74 68 72 6F 75 67 68 20 70 61 72 73 65  ct through parse
0001C0: 72 20 20 20 20 2A 2F 0D 0A 64 6F 61 73 6D 28 29  r    */..doasm()
0001D0: 0D 0A 09 7B 0D 0A 09 63 6D 6F 64 65 3D 30 3B 09  ...{...cmode=0;.
0001E0: 2F 2A 20 6D 61 72 6B 20 6D 6F 64 65 20 61 73 20  /* mark mode as 
0001F0: 22 61 73 6D 22 20 2A 2F 0D 0A 09 77 68 69 6C 65  "asm" */...while

Size : 512 (Real : 512)
000000: 09 6C 6F 63 70 74 72 3D 71 75 65 5B 77 71 73 79  .locptr=que[wqsy
000010: 6D 5D 3B 0D 0A 09 09 73 70 3D 6D 6F 64 73 74 6B  m];....sp=modstk
000020: 28 71 75 65 5B 77 71 73 70 5D 29 3B 0D 0A 09 09  (que[wqsp]);....
000030: 72 65 74 75 72 6E 3B 0D 0A 09 09 7D 0D 0A 09 65  return;....}...e
000040: 6C 73 65 20 73 74 61 74 65 6D 65 6E 74 28 29 3B  lse statement();
000050: 0D 0A 09 7D 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F  ...}}../*.....*/
000060: 0D 0A 2F 2A 09 22 66 6F 72 22 20 73 74 61 74 65  ../*."for" state
000070: 6D 65 6E 74 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09  ment...*/../*...
000080: 09 09 2A 2F 0D 0A 2F 2A 09 77 72 69 74 74 65 6E  ..*/../*.written
000090: 20 62 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E   by Mike Bernson
0000A0: 20 31 2F 38 31 09 2A 2F 0D 0A 2F 2A 09 09 09 09   1/81.*/../*....
0000B0: 09 2A 2F 0D 0A 64 6F 66 6F 72 28 29 0D 0A 7B 0D  .*/..dofor()..{.
0000C0: 0A 09 69 6E 74 20 71 75 65 5B 77 71 73 69 7A 5D  ..int que[wqsiz]
0000D0: 3B 09 09 2F 2A 20 6C 6F 63 61 6C 20 71 75 65 20  ;../* local que 
0000E0: 61 72 65 61 20 2A 2F 0D 0A 09 69 6E 74 20 73 74  area */...int st
0000F0: 61 74 75 73 3B 09 09 2F 2A 20 6D 61 63 68 69 6E  atus;../* machin
000100: 65 20 73 74 61 74 75 73 20 61 66 74 65 72 20 65  e status after e
000110: 78 70 65 73 73 69 6F 6E 20 2A 2F 0D 0A 0D 0A 09  xpession */.....
000120: 71 75 65 5B 77 71 73 79 6D 5D 3D 6C 6F 63 70 74  que[wqsym]=locpt
000130: 72 3B 20 20 20 20 2F 2A 20 73 61 76 65 20 6C 6F  r;    /* save lo
000140: 63 61 4C 20 4C 45 56 45 4C 20 2A 2F 0D 0A 09 71  caL LEVEL */...q
000150: 75 65 5B 77 71 73 70 5D 3D 73 70 3B 09 09 2F 2A  ue[wqsp]=sp;../*
000160: 20 61 6E 64 20 73 74 61 63 6B 20 70 6F 69 6E 74   and stack point
000170: 65 72 20 2A 2F 0D 0A 09 71 75 65 5B 77 71 6C 6F  er */...que[wqlo
000180: 6F 70 5D 3D 67 65 74 6C 61 62 65 6C 28 29 3B 09  op]=getlabel();.
000190: 2F 2A 20 6C 6F 6F 70 69 6E 67 20 6C 61 62 65 6C  /* looping label
0001A0: 20 2A 2F 0D 0A 09 71 75 65 5B 77 71 6C 61 62 5D   */...que[wqlab]
0001B0: 3D 67 65 74 6C 61 62 65 6C 28 29 3B 09 2F 2A 20  =getlabel();./* 
0001C0: 6C 6F 6F 70 20 65 78 69 74 20 76 61 72 62 6C 65  loop exit varble
0001D0: 20 2A 2F 0D 0A 09 71 75 65 5B 77 71 65 6E 64 5D   */...que[wqend]
0001E0: 3D 67 65 74 6C 61 62 65 6C 28 29 3B 09 2F 2A 20  =getlabel();./* 
0001F0: 6C 6F 6F 70 20 65 6E 64 20 6C 61 62 65 6C 20 2A  loop end label *

Size : 512 (Real : 512)
000000: 28 31 29 0D 0A 09 09 7B 69 6E 6C 69 6E 65 28 29  (1)....{inline()
000010: 3B 20 20 20 20 20 20 2F 2A 20 67 65 74 20 61 6E  ;      /* get an
000020: 64 20 70 72 69 6E 74 20 6C 69 6E 65 73 20 2A 2F  d print lines */
000030: 0D 0A 09 09 69 66 20 28 6D 61 74 63 68 28 22 23  ....if (match("#
000040: 65 6E 64 61 73 6D 22 29 29 20 62 72 65 61 6B 3B  endasm")) break;
000050: 20 20 20 20 2F 2A 20 75 6E 74 69 6C 2E 2E 2E 20      /* until... 
000060: 2A 2F 0D 0A 09 09 69 66 28 65 6F 66 29 62 72 65  */....if(eof)bre
000070: 61 6B 3B 0D 0A 09 09 6F 75 74 73 74 72 28 6C 69  ak;....outstr(li
000080: 6E 65 29 3B 0D 0A 09 09 6E 6C 28 29 3B 0D 0A 09  ne);....nl();...
000090: 09 7D 0D 0A 09 6B 69 6C 6C 28 29 3B 09 20 2F 2A  .}...kill();. /*
0000A0: 20 69 6E 76 61 6C 69 64 61 74 65 20 6C 69 6E 65   invalidate line
0000B0: 20 2A 2F 0D 0A 09 63 6D 6F 64 65 3D 31 3B 0D 0A   */...cmode=1;..
0000C0: 09 7D 0D 0A 0D 0A 0D 0A 0D 0A 1A 6B 69 6C 6C 28  .}.........kill(
0000D0: 29 3B 09 20 2F 2A 20 69 6E 76 61 6C 69 64 61 74  );. /* invalidat
0000E0: 65 20 6C 69 6E 65 20 2A 2F 0D 0A 09 63 6D 6F 64  e line */...cmod
0000F0: 65 3D 31 3B 0D 0A 09 7D 0D 0A 0D 0A 0D 0A 0D 0A  e=1;...}........
000100: 09 20 2A 2F 0D 0A 09 20 20 20 20 7D 0D 0A 09 70  . */...    }...p
000110: 75 74 73 28 22 65 6E 64 20 6C 6F 6F 70 5C 6E 22  uts("end loop\n"
000120: 29 3B 09 2F 2A 20 63 6F 75 6E 74 20 69 73 20 6E  );./* count is n
000130: 6F 77 20 7A 65 72 6F 2E 20 43 61 6C 6C 20 70 75  ow zero. Call pu
000140: 74 73 20 74 6F 0D 0A 09 09 09 09 20 2A 20 6F 75  ts to...... * ou
000150: 74 70 75 74 20 73 74 61 72 69 6E 67 20 74 6F 20  tput staring to 
000160: 73 63 72 65 65 6E 0D 0A 09 09 09 09 20 2A 2F 0D  screen...... */.
000170: 0A 09 7D 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ..}.............
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 09 09 77 68 69 6C 65 28 63 3D 6D 61 63 71 5B 6B  ..while(c=macq[k
000010: 2B 2B 5D 29 0D 0A 09 09 09 09 09 6B 65 65 70 63  ++]).......keepc
000020: 68 28 63 29 3B 0D 0A 09 09 09 65 6C 73 65 20 7B  h(c);.....else {
000030: 0D 0A 09 09 09 09 6B 3D 30 3B 0D 0A 09 09 09 09  ......k=0;......
000040: 77 68 69 6C 65 28 63 3D 73 6E 61 6D 65 5B 6B 2B  while(c=sname[k+
000050: 2B 5D 29 0D 0A 09 09 09 09 09 6B 65 65 70 63 68  +]).......keepch
000060: 28 63 29 3B 0D 0A 09 09 09 09 7D 0D 0A 09 09 09  (c);......}.....
000070: 7D 0D 0A 09 09 65 6C 73 65 20 6B 65 65 70 63 68  }....else keepch
000080: 28 67 63 68 28 29 29 3B 0D 0A 09 09 7D 0D 0A 09  (gch());....}...
000090: 6B 65 65 70 63 68 28 30 29 3B 0D 0A 09 69 66 28  keepch(0);...if(
0000A0: 6D 70 74 72 3E 3D 6D 70 6D 61 78 29 20 65 72 72  mptr>=mpmax) err
0000B0: 6F 72 28 22 6C 69 6E 65 20 74 6F 6F 20 6C 6F 6E  or("line too lon
0000C0: 67 22 29 3B 0D 0A 09 6C 70 74 72 3D 6D 70 74 72  g");...lptr=mptr
0000D0: 3D 30 3B 0D 0A 09 77 68 69 6C 65 28 6C 69 6E 65  =0;...while(line
0000E0: 5B 6C 70 74 72 2B 2B 5D 3D 6D 6C 69 6E 65 5B 6D  [lptr++]=mline[m
0000F0: 70 74 72 2B 2B 5D 29 3B 0D 0A 09 6C 70 74 72 3D  ptr++]);...lptr=
000100: 30 3B 0D 0A 09 7D 0D 0A 61 64 64 6D 61 63 28 29  0;...}..addmac()
000110: 0D 0A 7B 0D 0A 09 63 68 61 72 20 73 6E 61 6D 65  ..{...char sname
000120: 5B 6E 61 6D 65 73 69 7A 65 5D 3B 0D 0A 09 69 6E  [namesize];...in
000130: 74 20 6B 3B 0D 0A 09 69 66 20 28 73 79 6D 6E 61  t k;...if (symna
000140: 6D 65 28 73 6E 61 6D 65 29 20 3D 3D 20 30 29 20  me(sname) == 0) 
000150: 7B 0D 0A 09 09 69 6C 6C 6E 61 6D 65 28 29 3B 0D  {....illname();.
000160: 0A 09 09 6B 69 6C 6C 28 29 3B 0D 0A 09 09 72 65  ...kill();....re
000170: 74 75 72 6E 3B 0D 0A 09 09 7D 0D 0A 09 6B 3D 30  turn;....}...k=0
000180: 3B 0D 0A 09 77 68 69 6C 65 28 70 75 74 6D 61 63  ;...while(putmac
000190: 28 73 6E 61 6D 65 5B 6B 2B 2B 5D 29 29 3B 0D 0A  (sname[k++]));..
0001A0: 09 77 68 69 6C 65 28 69 73 73 70 61 63 65 28 63  .while(isspace(c
0001B0: 68 28 29 29 29 20 67 63 68 28 29 3B 0D 0A 09 77  h())) gch();...w
0001C0: 68 69 6C 65 28 70 75 74 6D 61 63 28 67 63 68 28  hile(putmac(gch(
0001D0: 29 29 29 3B 0D 0A 09 69 66 20 28 6D 61 63 70 74  )));...if (macpt
0001E0: 72 20 3E 3D 20 6D 61 63 6D 61 78 29 20 65 72 72  r >= macmax) err
0001F0: 6F 72 28 22 6D 61 72 63 6F 20 74 61 62 6C 65 20  or("marco table 

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 66 75 6C 6C 22 29 3B 0D 0A 09 7D 0D 0A 70 75 74  full");...}..put
000010: 6D 61 63 28 63 29 0D 0A 63 68 61 72 20 63 3B 0D  mac(c)..char c;.
000020: 0A 7B 0D 0A 09 6D 61 63 71 5B 6D 61 63 70 74 72  .{...macq[macptr
000030: 5D 3D 63 3B 0D 0A 09 69 66 28 6D 61 63 70 74 72  ]=c;...if(macptr
000040: 20 3C 20 6D 61 63 6D 61 78 29 20 6D 61 63 70 74   < macmax) macpt
000050: 72 2B 2B 3B 0D 0A 09 72 65 74 75 72 6E 20 63 3B  r++;...return c;
000060: 0D 0A 09 7D 0D 0A 66 69 6E 64 6D 61 63 28 73 6E  ...}..findmac(sn
000070: 61 6D 65 29 0D 0A 63 68 61 72 20 2A 73 6E 61 6D  ame)..char *snam
000080: 65 3B 0D 0A 7B 0D 0A 09 69 6E 74 20 6B 3B 0D 0A  e;..{...int k;..
000090: 09 6B 3D 30 3B 0D 0A 09 77 68 69 6C 65 28 6B 3C  .k=0;...while(k<
0000A0: 6D 61 63 70 74 72 29 20 7B 0D 0A 09 09 69 66 28  macptr) {....if(
0000B0: 61 73 74 72 65 71 28 73 6E 61 6D 65 2C 6D 61 63  astreq(sname,mac
0000C0: 71 2B 6B 2C 6E 61 6D 65 6D 61 78 29 29 20 7B 0D  q+k,namemax)) {.
0000D0: 0A 09 09 09 77 68 69 6C 65 28 6D 61 63 71 5B 6B  ....while(macq[k
0000E0: 2B 2B 5D 29 3B 0D 0A 09 09 09 72 65 74 75 72 6E  ++]);.....return
0000F0: 20 6B 3B 0D 0A 09 09 09 7D 0D 0A 09 09 77 68 69   k;.....}....whi
000100: 6C 65 28 6D 61 63 71 5B 6B 2B 2B 5D 29 3B 0D 0A  le(macq[k++]);..
000110: 09 09 77 68 69 6C 65 28 6D 61 63 71 5B 6B 2B 2B  ..while(macq[k++
000120: 5D 29 3B 0D 0A 09 09 7D 0D 0A 09 72 65 74 75 72  ]);....}...retur
000130: 6E 20 30 3B 0D 0A 09 7D 0D 0A 6F 75 74 62 79 74  n 0;...}..outbyt
000140: 65 28 63 29 0D 0A 63 68 61 72 20 63 3B 0D 0A 7B  e(c)..char c;..{
000150: 0D 0A 09 69 66 20 28 21 63 29 20 72 65 74 75 72  ...if (!c) retur
000160: 6E 20 30 3B 09 2F 2A 20 69 66 20 6E 75 6C 6C 20  n 0;./* if null 
000170: 72 65 74 75 72 6E 20 2A 2F 0D 0A 09 69 66 20 28  return */...if (
000180: 6F 75 74 70 75 74 29 20 7B 0D 0A 09 09 69 66 20  output) {....if 
000190: 28 70 75 74 63 28 63 2C 66 6F 75 74 29 20 3D 3D  (putc(c,fout) ==
0001A0: 20 45 52 52 4F 52 29 20 7B 0D 0A 09 09 09 63 6C   ERROR) {.....cl
0001B0: 6F 73 65 6F 75 74 28 29 3B 0D 0A 09 09 09 65 72  oseout();.....er
0001C0: 72 6F 72 28 22 4F 75 74 70 75 74 20 66 69 6C 65  ror("Output file
0001D0: 20 65 72 72 6F 72 22 29 3B 0D 0A 09 09 09 7D 0D   error");.....}.
0001E0: 0A 09 09 7D 0D 0A 09 65 6C 73 65 20 70 75 74 63  ...}...else putc
0001F0: 68 28 63 29 3B 0D 0A 09 72 65 74 75 72 6E 20 63  h(c);...return c

Size : 512 (Real : 512)
000000: 2F 2A 09 3E 3E 3E 3E 3E 3E 20 73 74 61 72 74 20  /*.>>>>>> start 
000010: 6F 66 20 63 63 34 20 3C 3C 3C 3C 3C 3C 3C 09 2A  of cc4 <<<<<<<.*
000020: 2F 0D 0A 23 69 66 6E 64 65 66 20 54 52 55 45 09  /..#ifndef TRUE.
000030: 2F 2A 20 63 68 65 63 6B 20 74 6F 20 73 65 65 20  /* check to see 
000040: 69 66 20 6E 65 65 64 20 69 6E 63 6C 75 64 65 20  if need include 
000050: 66 69 6C 65 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64  file */..#includ
000060: 65 20 3C 43 2E 44 45 46 3E 0D 0A 23 65 6E 64 69  e <C.DEF>..#endi
000070: 66 0D 0A 6B 65 65 70 63 68 28 63 29 0D 0A 63 68  f..keepch(c)..ch
000080: 61 72 20 63 3B 0D 0A 7B 0D 0A 09 6D 6C 69 6E 65  ar c;..{...mline
000090: 5B 6D 70 74 72 5D 3D 63 3B 0D 0A 09 69 66 20 28  [mptr]=c;...if (
0000A0: 6D 70 74 72 3C 6D 70 6D 61 78 29 20 6D 70 74 72  mptr<mpmax) mptr
0000B0: 2B 2B 3B 0D 0A 09 72 65 74 75 72 6E 20 63 3B 0D  ++;...return c;.
0000C0: 0A 09 7D 0D 0A 70 72 65 70 72 6F 63 65 73 73 28  ..}..preprocess(
0000D0: 29 0D 0A 7B 0D 0A 09 69 6E 74 20 6B 3B 0D 0A 09  )..{...int k;...
0000E0: 63 68 61 72 20 63 2C 73 6E 61 6D 65 5B 6E 61 6D  char c,sname[nam
0000F0: 65 73 69 7A 65 5D 3B 0D 0A 09 69 66 20 28 21 63  esize];...if (!c
000100: 6D 6F 64 65 29 20 72 65 74 75 72 6E 3B 0D 0A 09  mode) return;...
000110: 6D 70 74 72 3D 6C 70 74 72 3D 30 3B 0D 0A 09 77  mptr=lptr=0;...w
000120: 68 69 6C 65 28 21 63 69 66 20 26 26 20 21 65 6F  hile(!cif && !eo
000130: 66 29 20 7B 0D 0A 09 09 69 66 20 28 6D 61 74 63  f) {....if (matc
000140: 68 28 22 23 65 6E 64 69 66 22 29 29 20 63 69 66  h("#endif")) cif
000150: 3D 54 52 55 45 3B 0D 0A 09 09 65 6C 73 65 20 69  =TRUE;....else i
000160: 6E 6C 69 6E 65 28 29 3B 0D 0A 09 09 7D 0D 0A 09  nline();....}...
000170: 69 66 20 28 63 68 28 29 20 3D 3D 20 27 23 27 29  if (ch() == '#')
000180: 20 6D 61 74 63 68 28 22 23 65 6E 64 69 66 22 29   match("#endif")
000190: 3B 0D 0A 09 77 68 69 6C 65 28 63 68 28 29 29 20  ;...while(ch()) 
0001A0: 7B 0D 0A 09 09 69 66 20 28 69 73 73 70 61 63 65  {....if (isspace
0001B0: 28 63 68 28 29 29 29 20 7B 0D 0A 09 09 09 6B 65  (ch())) {.....ke
0001C0: 65 70 63 68 28 27 20 27 29 3B 0D 0A 09 09 09 77  epch(' ');.....w
0001D0: 68 69 6C 65 28 69 73 73 70 61 63 65 28 63 68 28  hile(isspace(ch(
0001E0: 29 29 29 20 67 63 68 28 29 3B 0D 0A 09 09 09 7D  ))) gch();.....}
0001F0: 0D 0A 09 09 65 6C 73 65 20 69 66 20 28 63 68 28  ....else if (ch(

Size : 512 (Real : 512)
000000: 3B 0D 0A 09 7D 0D 0A 6F 75 74 73 74 72 28 70 74  ;...}..outstr(pt
000010: 72 29 0D 0A 63 68 61 72 20 2A 70 74 72 3B 0D 0A  r)..char *ptr;..
000020: 7B 0D 0A 09 77 68 69 6C 65 28 6F 75 74 62 79 74  {...while(outbyt
000030: 65 28 2A 70 74 72 2B 2B 29 29 3B 0D 0A 09 7D 0D  e(*ptr++));...}.
000040: 0A 6E 6C 28 29 0D 0A 7B 0D 0A 09 6F 75 74 62 79  .nl()..{...outby
000050: 74 65 28 27 5C 72 27 29 3B 0D 0A 09 6F 75 74 62  te('\r');...outb
000060: 79 74 65 28 27 5C 6E 27 29 3B 0D 0A 09 7D 0D 0A  yte('\n');...}..
000070: 74 61 62 28 29 0D 0A 7B 0D 0A 09 6F 75 74 62 79  tab()..{...outby
000080: 74 65 28 27 5C 74 27 29 3B 0D 0A 09 7D 0D 0A 63  te('\t');...}..c
000090: 6F 6C 28 29 0D 0A 7B 0D 0A 09 6F 75 74 62 79 74  ol()..{...outbyt
0000A0: 65 28 27 3A 27 29 3B 0D 0A 09 7D 0D 0A 65 72 72  e(':');...}..err
0000B0: 6F 72 28 70 74 72 29 0D 0A 63 68 61 72 20 2A 70  or(ptr)..char *p
0000C0: 74 72 3B 0D 0A 7B 0D 0A 09 63 68 61 72 20 62 75  tr;..{...char bu
0000D0: 66 66 5B 38 30 5D 3B 0D 0A 09 69 6E 74 20 20 6A  ff[80];...int  j
0000E0: 2C 6B 3B 0D 0A 09 73 74 72 63 70 79 28 62 75 66  ,k;...strcpy(buf
0000F0: 66 2C 70 74 72 29 3B 0D 0A 09 73 74 72 63 61 74  f,ptr);...strcat
000100: 28 62 75 66 66 2C 22 20 5C 22 22 29 3B 0D 0A 09  (buff," \"");...
000110: 6A 3D 6C 70 74 72 2D 31 30 3B 0D 0A 09 69 66 20  j=lptr-10;...if 
000120: 28 6A 3C 30 29 20 6A 3D 30 3B 0D 0A 09 6B 3D 73  (j<0) j=0;...k=s
000130: 74 72 6C 65 6E 28 62 75 66 66 29 3B 0D 0A 09 77  trlen(buff);...w
000140: 68 69 6C 65 28 6A 2D 31 35 3C 6C 70 74 72 20 26  hile(j-15<lptr &
000150: 26 20 6C 69 6E 65 5B 6A 5D 29 20 62 75 66 66 5B  & line[j]) buff[
000160: 6B 2B 2B 5D 3D 6C 69 6E 65 5B 6A 2B 2B 5D 3B 0D  k++]=line[j++];.
000170: 0A 09 62 75 66 66 5B 6B 5D 3D 30 3B 0D 0A 09 73  ..buff[k]=0;...s
000180: 74 72 63 61 74 28 62 75 66 66 2C 22 5C 22 22 29  trcat(buff,"\"")
000190: 3B 0D 0A 09 65 72 72 6F 72 5F 70 72 69 6E 74 28  ;...error_print(
0001A0: 62 75 66 66 29 3B 0D 0A 09 72 65 74 75 72 6E 3B  buff);...return;
0001B0: 0D 0A 09 7D 0D 0A 65 72 72 6F 72 5F 70 72 69 6E  ...}..error_prin
0001C0: 74 28 70 74 72 29 0D 0A 63 68 61 72 20 70 74 72  t(ptr)..char ptr
0001D0: 5B 5D 3B 0D 0A 7B 0D 0A 09 63 68 61 72 20 62 75  [];..{...char bu
0001E0: 66 66 5B 38 30 5D 3B 0D 0A 09 69 6E 74 20 6B 2C  ff[80];...int k,
0001F0: 6A 3B 0D 0A 09 63 6F 6D 6D 65 6E 74 28 29 3B 6F  j;...comment();o

Size : 512 (Real : 512)
000000: 29 20 3D 3D 20 27 5C 5C 27 29 20 7B 0D 0A 09 09  ) == '\\') {....
000010: 09 6B 65 65 70 63 68 28 63 68 28 29 29 3B 0D 0A  .keepch(ch());..
000020: 09 09 09 67 63 68 28 29 3B 0D 0A 09 09 09 69 66  ...gch();.....if
000030: 20 28 21 63 68 28 29 29 20 7B 0D 0A 09 09 09 09   (!ch()) {......
000040: 65 72 72 6F 72 28 22 6D 69 73 73 69 6E 67 20 65  error("missing e
000050: 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 22  scape character"
000060: 29 3B 0D 0A 09 09 09 09 62 72 65 61 6B 3B 0D 0A  );......break;..
000070: 09 09 09 09 7D 0D 0A 09 09 09 6B 65 65 70 63 68  ....}.....keepch
000080: 28 63 68 28 29 29 3B 0D 0A 09 09 09 67 63 68 28  (ch());.....gch(
000090: 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C 73 65  );.....}....else
0000A0: 20 69 66 28 63 68 28 29 3D 3D 27 22 27 29 20 7B   if(ch()=='"') {
0000B0: 0D 0A 09 09 09 6B 65 65 70 63 68 28 63 68 28 29  .....keepch(ch()
0000C0: 29 3B 0D 0A 09 09 09 67 63 68 28 29 3B 0D 0A 09  );.....gch();...
0000D0: 09 09 77 68 69 6C 65 28 63 68 28 29 21 3D 27 22  ..while(ch()!='"
0000E0: 27 29 20 7B 0D 0A 09 09 09 09 69 66 28 21 63 68  ') {......if(!ch
0000F0: 28 29 29 20 7B 0D 0A 09 09 09 09 20 20 65 72 72  ()) {......  err
000100: 6F 72 28 22 6D 69 73 73 69 6E 67 20 71 75 6F 74  or("missing quot
000110: 65 22 29 3B 0D 0A 09 09 09 09 20 20 62 72 65 61  e");......  brea
000120: 6B 3B 0D 0A 09 09 09 09 20 20 7D 0D 0A 09 09 09  k;......  }.....
000130: 09 69 66 20 28 63 68 28 29 20 3D 3D 20 27 5C 5C  .if (ch() == '\\
000140: 27 29 20 6B 65 65 70 63 68 28 67 63 68 28 29 29  ') keepch(gch())
000150: 3B 0D 0A 09 09 09 09 6B 65 65 70 63 68 28 67 63  ;......keepch(gc
000160: 68 28 29 29 3B 0D 0A 09 09 09 09 7D 0D 0A 09 09  h());......}....
000170: 09 67 63 68 28 29 3B 0D 0A 09 09 09 6B 65 65 70  .gch();.....keep
000180: 63 68 28 27 22 27 29 3B 0D 0A 09 09 09 7D 0D 0A  ch('"');.....}..
000190: 09 09 65 6C 73 65 20 69 66 28 63 68 28 29 3D 3D  ..else if(ch()==
0001A0: 27 5C 27 27 29 20 7B 0D 0A 09 09 09 6B 65 65 70  '\'') {.....keep
0001B0: 63 68 28 27 5C 27 27 29 3B 0D 0A 09 09 09 67 63  ch('\'');.....gc
0001C0: 68 28 29 3B 0D 0A 09 09 09 77 68 69 6C 65 28 63  h();.....while(c
0001D0: 68 28 29 21 3D 27 5C 27 27 29 20 7B 0D 0A 09 09  h()!='\'') {....
0001E0: 09 09 69 66 28 21 63 68 28 29 29 20 7B 0D 0A 09  ..if(!ch()) {...
0001F0: 09 09 09 20 20 65 72 72 6F 72 28 22 6D 69 73 73  ...  error("miss

Size : 512 (Real : 512)
000000: 75 74 73 74 72 28 6C 69 6E 65 29 3B 6E 6C 28 29  utstr(line);nl()
000010: 3B 63 6F 6D 6D 65 6E 74 28 29 3B 0D 0A 09 6B 3D  ;comment();...k=
000020: 30 3B 0D 0A 09 77 68 69 6C 65 28 6B 3C 6C 70 74  0;...while(k<lpt
000030: 72 29 20 7B 0D 0A 09 09 69 66 28 6C 69 6E 65 5B  r) {....if(line[
000040: 6B 5D 3D 3D 39 29 20 74 61 62 28 29 3B 0D 0A 09  k]==9) tab();...
000050: 09 09 65 6C 73 65 20 6F 75 74 62 79 74 65 28 27  ..else outbyte('
000060: 20 27 29 3B 0D 0A 09 09 2B 2B 6B 3B 0D 0A 09 09   ');....++k;....
000070: 7D 0D 0A 09 6F 75 74 62 79 74 65 28 27 5E 27 29  }...outbyte('^')
000080: 3B 0D 0A 09 6E 6C 28 29 3B 63 6F 6D 6D 65 6E 74  ;...nl();comment
000090: 28 29 3B 6F 75 74 73 74 72 28 22 2A 2A 2A 2A 2A  ();outstr("*****
0000A0: 2A 20 20 22 29 3B 0D 0A 09 6F 75 74 73 74 72 28  *  ");...outstr(
0000B0: 70 74 72 29 3B 0D 0A 09 6F 75 74 73 74 72 28 22  ptr);...outstr("
0000C0: 20 20 2A 2A 2A 2A 2A 2A 22 29 3B 0D 0A 09 6E 6C    ******");...nl
0000D0: 28 29 3B 0D 0A 09 69 66 20 28 69 6E 70 75 74 32  ();...if (input2
0000E0: 29 20 7B 0D 0A 09 09 73 74 72 63 70 79 28 62 75  ) {....strcpy(bu
0000F0: 66 66 2C 22 45 72 72 6F 72 20 69 6E 20 69 6E 63  ff,"Error in inc
000100: 6C 75 64 65 20 66 69 6C 65 20 61 74 20 6C 69 6E  lude file at lin
000110: 65 20 22 29 3B 0D 0A 09 09 73 64 65 63 28 62 75  e ");....sdec(bu
000120: 66 66 2B 73 74 72 6C 65 6E 28 62 75 66 66 29 2C  ff+strlen(buff),
000130: 6C 69 6E 65 32 29 3B 0D 0A 09 09 7D 0D 0A 09 65  line2);....}...e
000140: 6C 73 65 20 7B 0D 0A 09 09 73 74 72 63 70 79 28  lse {....strcpy(
000150: 62 75 66 66 2C 22 45 72 72 6F 72 20 61 74 20 6C  buff,"Error at l
000160: 69 6E 65 20 22 29 3B 0D 0A 09 09 73 64 65 63 28  ine ");....sdec(
000170: 62 75 66 66 2B 73 74 72 6C 65 6E 28 62 75 66 66  buff+strlen(buff
000180: 29 2C 6C 69 6E 65 31 29 3B 0D 0A 09 09 7D 0D 0A  ),line1);....}..
000190: 09 73 74 72 63 61 74 28 62 75 66 66 2C 22 20 22  .strcat(buff," "
0001A0: 29 3B 0D 0A 09 73 74 72 63 61 74 28 62 75 66 66  );...strcat(buff
0001B0: 2C 70 74 72 29 3B 0D 0A 09 73 74 72 63 61 74 28  ,ptr);...strcat(
0001C0: 62 75 66 66 2C 22 5C 6E 22 29 3B 0D 0A 09 70 6C  buff,"\n");...pl
0001D0: 28 62 75 66 66 29 3B 0D 0A 09 2B 2B 65 72 72 63  (buff);...++errc
0001E0: 6E 74 3B 0D 0A 09 20 7D 0D 0A 6F 6C 28 70 74 72  nt;... }..ol(ptr
0001F0: 29 20 20 20 20 0D 0A 63 68 61 72 20 70 74 72 5B  )    ..char ptr[

Size : 512 (Real : 512)
000000: 69 6E 67 20 61 70 6F 73 74 72 6F 70 68 65 22 29  ing apostrophe")
000010: 3B 0D 0A 09 09 09 09 20 20 62 72 65 61 6B 3B 0D  ;......  break;.
000020: 0A 09 09 09 09 20 20 7D 0D 0A 09 09 09 09 69 66  .....  }......if
000030: 20 28 63 68 28 29 3D 3D 20 27 5C 5C 27 29 20 6B   (ch()== '\\') k
000040: 65 65 70 63 68 28 67 63 68 28 29 29 3B 0D 0A 09  eepch(gch());...
000050: 09 09 09 6B 65 65 70 63 68 28 67 63 68 28 29 29  ...keepch(gch())
000060: 3B 0D 0A 09 09 09 09 7D 0D 0A 09 09 09 67 63 68  ;......}.....gch
000070: 28 29 3B 0D 0A 09 09 09 6B 65 65 70 63 68 28 27  ();.....keepch('
000080: 5C 27 27 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65  \'');.....}....e
000090: 6C 73 65 20 69 66 28 28 63 68 28 29 3D 3D 27 2F  lse if((ch()=='/
0000A0: 27 29 20 26 26 20 28 6E 63 68 28 29 3D 3D 27 2A  ') && (nch()=='*
0000B0: 27 29 29 20 7B 0D 0A 09 09 09 69 6E 63 68 61 72  ')) {.....inchar
0000C0: 28 29 3B 0D 0A 09 09 09 69 6E 63 68 61 72 28 29  ();.....inchar()
0000D0: 3B 0D 0A 09 09 09 77 68 69 6C 65 28 21 28 28 63  ;.....while(!((c
0000E0: 68 28 29 3D 3D 27 2A 27 29 20 26 26 20 28 6E 63  h()=='*') && (nc
0000F0: 68 28 29 3D 3D 27 2F 27 29 29 29 20 7B 0D 0A 09  h()=='/'))) {...
000100: 09 09 09 69 66 28 63 68 28 29 3D 3D 30 29 69 6E  ...if(ch()==0)in
000110: 6C 69 6E 65 28 29 3B 0D 0A 09 09 09 09 65 6C 73  line();......els
000120: 65 20 69 6E 63 68 61 72 28 29 3B 0D 0A 09 09 09  e inchar();.....
000130: 09 69 66 28 65 6F 66 29 62 72 65 61 6B 3B 0D 0A  .if(eof)break;..
000140: 09 09 09 09 7D 0D 0A 09 09 09 69 6E 63 68 61 72  ....}.....inchar
000150: 28 29 3B 0D 0A 09 09 09 69 6E 63 68 61 72 28 29  ();.....inchar()
000160: 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C 73 65 20  ;.....}....else 
000170: 69 66 28 61 6E 28 63 68 28 29 29 29 20 7B 0D 0A  if(an(ch())) {..
000180: 09 09 09 6B 3D 30 3B 0D 0A 09 09 09 77 68 69 6C  ...k=0;.....whil
000190: 65 28 61 6E 28 63 68 28 29 29 29 20 7B 0D 0A 09  e(an(ch())) {...
0001A0: 09 09 09 69 66 28 6B 3C 6E 61 6D 65 6D 61 78 29  ...if(k<namemax)
0001B0: 73 6E 61 6D 65 5B 6B 2B 2B 5D 3D 63 68 28 29 3B  sname[k++]=ch();
0001C0: 0D 0A 09 09 09 09 67 63 68 28 29 3B 0D 0A 09 09  ......gch();....
0001D0: 09 09 7D 0D 0A 09 09 09 73 6E 61 6D 65 5B 6B 5D  ..}.....sname[k]
0001E0: 3D 30 3B 0D 0A 09 09 09 69 66 28 6B 3D 66 69 6E  =0;.....if(k=fin
0001F0: 64 6D 61 63 28 73 6E 61 6D 65 29 29 0D 0A 09 09  dmac(sname))....

Size : 512 (Real : 512)
000000: 5D 3B 0D 0A 7B 0D 0A 09 6F 74 28 70 74 72 29 3B  ];..{...ot(ptr);
000010: 0D 0A 09 6E 6C 28 29 3B 0D 0A 7D 0D 0A 6F 74 28  ...nl();..}..ot(
000020: 70 74 72 29 0D 0A 63 68 61 72 20 70 74 72 5B 5D  ptr)..char ptr[]
000030: 3B 0D 0A 7B 0D 0A 09 74 61 62 28 29 3B 0D 0A 09  ;..{...tab();...
000040: 6F 75 74 73 74 72 28 70 74 72 29 3B 0D 0A 09 7D  outstr(ptr);...}
000050: 0D 0A 73 74 72 65 71 28 73 74 72 31 2C 73 74 72  ..streq(str1,str
000060: 32 29 0D 0A 63 68 61 72 20 73 74 72 31 5B 5D 2C  2)..char str1[],
000070: 73 74 72 32 5B 5D 3B 0D 0A 7B 0D 0A 09 69 6E 74  str2[];..{...int
000080: 20 6B 3B 0D 0A 09 6B 3D 30 3B 0D 0A 09 77 68 69   k;...k=0;...whi
000090: 6C 65 28 73 74 72 32 5B 6B 5D 29 20 7B 0D 0A 09  le(str2[k]) {...
0000A0: 09 69 66 20 28 73 74 72 31 5B 6B 5D 21 3D 73 74  .if (str1[k]!=st
0000B0: 72 32 5B 6B 5D 29 20 72 65 74 75 72 6E 20 30 3B  r2[k]) return 0;
0000C0: 0D 0A 09 09 6B 2B 2B 3B 0D 0A 09 09 7D 0D 0A 09  ....k++;....}...
0000D0: 72 65 74 75 72 6E 20 6B 3B 0D 0A 09 7D 0D 0A 61  return k;...}..a
0000E0: 73 74 72 65 71 28 73 74 72 31 2C 73 74 72 32 2C  streq(str1,str2,
0000F0: 6C 65 6E 29 0D 0A 63 68 61 72 20 73 74 72 31 5B  len)..char str1[
000100: 5D 2C 73 74 72 32 5B 5D 3B 69 6E 74 20 6C 65 6E  ],str2[];int len
000110: 3B 0D 0A 7B 0D 0A 09 69 6E 74 20 6B 3B 0D 0A 09  ;..{...int k;...
000120: 6B 3D 30 3B 0D 0A 09 77 68 69 6C 65 20 28 6B 3C  k=0;...while (k<
000130: 6C 65 6E 29 20 7B 0D 0A 09 09 69 66 20 28 28 73  len) {....if ((s
000140: 74 72 31 5B 6B 5D 29 21 3D 28 73 74 72 32 5B 6B  tr1[k])!=(str2[k
000150: 5D 29 29 62 72 65 61 6B 3B 0D 0A 09 09 69 66 28  ]))break;....if(
000160: 21 73 74 72 31 5B 6B 5D 29 62 72 65 61 6B 3B 0D  !str1[k])break;.
000170: 0A 09 09 69 66 28 21 73 74 72 32 5B 6B 5D 29 62  ...if(!str2[k])b
000180: 72 65 61 6B 3B 0D 0A 09 09 6B 2B 2B 3B 0D 0A 09  reak;....k++;...
000190: 09 7D 0D 0A 09 69 66 20 28 61 6E 28 73 74 72 31  .}...if (an(str1
0001A0: 5B 6B 5D 29 29 72 65 74 75 72 6E 20 30 3B 0D 0A  [k]))return 0;..
0001B0: 09 69 66 20 28 61 6E 28 73 74 72 32 5B 6B 5D 29  .if (an(str2[k])
0001C0: 29 72 65 74 75 72 6E 20 30 3B 0D 0A 09 72 65 74  )return 0;...ret
0001D0: 75 72 6E 20 6B 3B 0D 0A 09 7D 0D 0A 6D 61 74 63  urn k;...}..matc
0001E0: 68 28 6C 69 74 29 0D 0A 63 68 61 72 20 2A 6C 69  h(lit)..char *li
0001F0: 74 3B 0D 0A 7B 0D 0A 09 69 6E 74 20 6B 3B 0D 0A  t;..{...int k;..

Size : 512 (Real : 512)
000000: 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ../*************
000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A  ***********/../*
000040: 09 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 65 78  .......*/../*.ex
000050: 70 72 65 73 73 69 6F 6E 20 68 61 6E 64 6C 65 72  pression handler
000060: 20 09 09 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09   ....*/../*.....
000070: 09 09 2A 2F 0D 0A 2F 2A 09 74 61 62 6C 65 20 62  ..*/../*.table b
000080: 65 6C 6F 77 20 73 68 6F 77 20 70 72 65 63 65 64  elow show preced
000090: 65 6E 63 65 20 6F 66 20 6F 70 65 72 61 74 6F 72  ence of operator
0000A0: 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A  ..*/../*.......*
0000B0: 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /../************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F  ************/../
0000F0: 2A 09 6F 70 65 72 61 74 6F 72 09 2A 20 72 6F 75  *.operator.* rou
000100: 74 69 6E 65 09 2A 20 61 73 73 6F 63 69 61 74 69  tine.* associati
000110: 76 69 74 79 09 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A  vity.*/../******
000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000150: 2A 2A 2F 0D 0A 2F 2A 09 7C 20 2B 2B 20 2D 2D 20  **/../*.| ++ -- 
000160: 2D 20 2A 20 26 09 2A 20 68 65 69 72 31 30 09 2A  - * &.* heir10.*
000170: 20 6C 65 66 74 20 74 6F 20 72 69 67 68 74 09 2A   left to right.*
000180: 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /../************
000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F  ************/../
0001C0: 2A 09 2A 20 2F 20 25 09 09 2A 20 68 65 69 72 39  *.* / %..* heir9
0001D0: 09 09 2A 20 72 69 67 74 68 20 74 6F 20 6C 65 66  ..* rigth to lef
0001E0: 74 09 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A  t.*/../*********
0001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************

Size : 512 (Real : 512)
000000: 09 62 6C 61 6E 6B 73 28 29 3B 0D 0A 09 69 66 20  .blanks();...if 
000010: 28 6B 3D 73 74 72 65 71 28 6C 69 6E 65 2B 6C 70  (k=streq(line+lp
000020: 74 72 2C 6C 69 74 29 29 0D 0A 09 09 7B 6C 70 74  tr,lit))....{lpt
000030: 72 3D 6C 70 74 72 2B 6B 3B 0D 0A 09 09 72 65 74  r=lptr+k;....ret
000040: 75 72 6E 20 31 3B 0D 0A 09 09 7D 0D 0A 09 72 65  urn 1;....}...re
000050: 74 75 72 6E 20 30 3B 0D 0A 09 7D 0D 0A 61 6D 61  turn 0;...}..ama
000060: 74 63 68 28 6C 69 74 2C 6C 65 6E 29 0D 0A 63 68  tch(lit,len)..ch
000070: 61 72 20 2A 6C 69 74 3B 69 6E 74 20 6C 65 6E 3B  ar *lit;int len;
000080: 0D 0A 20 7B 0D 0A 09 69 6E 74 20 6B 3B 0D 0A 09  .. {...int k;...
000090: 62 6C 61 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28  blanks();...if (
0000A0: 6B 3D 61 73 74 72 65 71 28 6C 69 6E 65 2B 6C 70  k=astreq(line+lp
0000B0: 74 72 2C 6C 69 74 2C 6C 65 6E 29 29 20 7B 0D 0A  tr,lit,len)) {..
0000C0: 09 09 6C 70 74 72 3D 6C 70 74 72 2B 6B 3B 0D 0A  ..lptr=lptr+k;..
0000D0: 09 09 77 68 69 6C 65 28 61 6E 28 63 68 28 29 29  ..while(an(ch())
0000E0: 29 20 69 6E 62 79 74 65 28 29 3B 0D 0A 09 09 72  ) inbyte();....r
0000F0: 65 74 75 72 6E 20 31 3B 0D 0A 09 09 7D 0D 0A 09  eturn 1;....}...
000100: 72 65 74 75 72 6E 20 30 3B 0D 0A 09 7D 0D 0A 62  return 0;...}..b
000110: 6C 61 6E 6B 73 28 29 0D 0A 7B 0D 0A 09 77 68 69  lanks()..{...whi
000120: 6C 65 28 31 29 20 7B 0D 0A 09 09 77 68 69 6C 65  le(1) {....while
000130: 28 63 68 28 29 3D 3D 30 29 20 7B 0D 0A 09 09 09  (ch()==0) {.....
000140: 69 6E 6C 69 6E 65 28 29 3B 0D 0A 09 09 09 70 72  inline();.....pr
000150: 65 70 72 6F 63 65 73 73 28 29 3B 0D 0A 09 09 09  eprocess();.....
000160: 69 66 20 28 65 6F 66 29 20 62 72 65 61 6B 3B 0D  if (eof) break;.
000170: 0A 09 09 09 7D 0D 0A 09 09 69 66 28 69 73 73 70  ....}....if(issp
000180: 61 63 65 28 63 68 28 29 29 29 20 67 63 68 28 29  ace(ch())) gch()
000190: 3B 0D 0A 09 09 65 6C 73 65 20 72 65 74 75 72 6E  ;....else return
0001A0: 3B 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A 6F 75 74 64  ;....}...}..outd
0001B0: 65 63 28 6E 75 6D 62 65 72 29 0D 0A 69 6E 74 20  ec(number)..int 
0001C0: 6E 75 6D 62 65 72 3B 0D 0A 7B 0D 0A 09 63 68 61  number;..{...cha
0001D0: 72 20 62 75 66 66 5B 31 30 5D 3B 0D 0A 09 6F 75  r buff[10];...ou
0001E0: 74 73 74 72 28 73 64 65 63 28 62 75 66 66 2C 6E  tstr(sdec(buff,n
0001F0: 75 6D 62 65 72 29 29 3B 0D 0A 09 7D 0D 0A 73 64  umber));...}..sd

Size : 512 (Real : 512)
000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F  ***************/
000020: 0D 0A 2F 2A 09 2B 20 2D 09 09 2A 20 68 65 69 72  ../*.+ -..* heir
000030: 38 09 09 2A 20 6C 65 66 74 20 74 6F 20 72 69 67  8..* left to rig
000040: 68 74 09 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A  ht.*/../********
000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000080: 2F 0D 0A 2F 2A 09 3C 3C 20 3E 3E 09 09 2A 20 68  /../*.<< >>..* h
000090: 65 69 72 37 09 09 2A 20 6C 65 66 74 20 74 6F 20  eir7..* left to 
0000A0: 72 69 67 68 74 09 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A  right.*/../*****
0000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000E0: 2A 2A 2A 2F 0D 0A 2F 2A 09 3C 20 3C 3D 20 3E 20  ***/../*.< <= > 
0000F0: 3E 3D 09 2A 20 68 65 69 72 36 09 09 2A 20 6C 65  >=.* heir6..* le
000100: 66 74 20 74 6F 20 72 69 67 68 74 09 2A 2F 0D 0A  ft to right.*/..
000110: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 3D  *********/../*.=
000150: 3D 20 21 3D 09 09 2A 20 68 65 69 72 35 09 09 2A  = !=..* heir5..*
000160: 20 6C 65 66 74 20 74 6F 20 72 69 67 74 68 20 2A   left to rigth *
000170: 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /../************
000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F  ************/../
0001B0: 2A 09 26 09 09 2A 20 68 65 69 72 34 09 09 2A 20  *.&..* heir4..* 
0001C0: 6C 65 66 74 20 74 6F 20 72 69 67 74 68 20 2A 2F  left to rigth */
0001D0: 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ../*************
0001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************

Size : 512 (Real : 512)
000000: 65 63 28 73 74 72 69 6E 67 2C 6E 75 6D 62 65 72  ec(string,number
000010: 29 0D 0A 63 68 61 72 20 73 74 72 69 6E 67 5B 5D  )..char string[]
000020: 3B 0D 0A 69 6E 74 20 6E 75 6D 62 65 72 3B 0D 0A  ;..int number;..
000030: 7B 0D 0A 09 69 6E 74 20 6B 2C 7A 73 2C 6A 3B 0D  {...int k,zs,j;.
000040: 0A 09 63 68 61 72 20 63 3B 0D 0A 09 6A 3D 7A 73  ..char c;...j=zs
000050: 3D 30 3B 0D 0A 09 6B 3D 31 30 30 30 30 3B 0D 0A  =0;...k=10000;..
000060: 09 69 66 20 28 6E 75 6D 62 65 72 3C 30 29 20 7B  .if (number<0) {
000070: 0D 0A 09 09 6E 75 6D 62 65 72 3D 28 2D 6E 75 6D  ....number=(-num
000080: 62 65 72 29 3B 0D 0A 09 09 73 74 72 69 6E 67 5B  ber);....string[
000090: 6A 2B 2B 5D 3D 27 2D 27 3B 0D 0A 09 09 7D 0D 0A  j++]='-';....}..
0000A0: 09 77 68 69 6C 65 20 28 6B 3E 3D 31 29 20 7B 0D  .while (k>=1) {.
0000B0: 0A 09 09 63 3D 6E 75 6D 62 65 72 2F 6B 20 2B 20  ...c=number/k + 
0000C0: 27 30 27 3B 0D 0A 09 09 69 66 20 28 63 20 21 3D  '0';....if (c !=
0000D0: 20 27 30 27 20 7C 7C 20 6B 20 3D 3D 20 31 20 7C   '0' || k == 1 |
0000E0: 7C 20 7A 73 29 20 7B 0D 0A 09 09 09 7A 73 3D 31  | zs) {.....zs=1
0000F0: 3B 0D 0A 09 09 09 73 74 72 69 6E 67 5B 6A 2B 2B  ;.....string[j++
000100: 5D 3D 63 3B 20 0D 0A 09 09 09 7D 0D 0A 09 09 6E  ]=c; .....}....n
000110: 75 6D 62 65 72 3D 6E 75 6D 62 65 72 25 6B 3B 0D  umber=number%k;.
000120: 0A 09 09 6B 3D 6B 2F 31 30 3B 0D 0A 09 09 7D 0D  ...k=k/10;....}.
000130: 0A 09 73 74 72 69 6E 67 5B 6A 5D 3D 30 3B 0D 0A  ..string[j]=0;..
000140: 09 72 65 74 75 72 6E 20 73 74 72 69 6E 67 3B 0D  .return string;.
000150: 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 09 2A 2F 0D  ..}../*......*/.
000160: 0A 2F 2A 09 74 6F 20 6F 75 74 70 75 74 20 6E 75  ./*.to output nu
000170: 6D 62 65 72 20 61 73 20 61 20 68 65 78 20 76 61  mber as a hex va
000180: 6C 75 65 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09  lue..*/../*.....
000190: 09 2A 2F 0D 0A 2F 2A 09 77 72 69 74 74 65 6E 20  .*/../*.written 
0001A0: 6A 75 6E 65 20 32 38 2C 20 31 39 38 31 20 62 79  june 28, 1981 by
0001B0: 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 09 2A 2F   Mike Bernson.*/
0001C0: 0D 0A 2F 2A 09 09 09 09 09 09 2A 2F 0D 0A 6F 75  ../*......*/..ou
0001D0: 74 68 65 78 28 76 61 6C 75 65 29 0D 0A 69 6E 74  thex(value)..int
0001E0: 20 76 61 6C 75 65 3B 0D 0A 7B 0D 0A 09 69 6E 74   value;..{...int
0001F0: 20 20 70 6F 73 74 69 6F 6E 3B 0D 0A 09 63 68 61    postion;...cha

Size : 512 (Real : 512)
000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A  ***********/../*
000010: 09 5E 09 09 2A 20 68 65 69 72 33 09 09 2A 20 6C  .^..* heir3..* l
000020: 65 66 74 20 74 6F 20 72 69 67 68 74 20 2A 2F 0D  eft to right */.
000030: 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ./**************
000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09  **********/../*.
000070: 7C 09 09 2A 20 68 65 69 72 32 09 09 2A 20 6C 65  |..* heir2..* le
000080: 66 74 20 74 6F 20 72 69 67 68 74 20 2A 2F 0D 0A  ft to right */..
000090: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
0000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 26  *********/../*.&
0000D0: 26 09 09 2A 20 68 65 69 72 31 65 09 2A 20 6C 65  &..* heir1e.* le
0000E0: 66 74 20 74 6F 20 72 69 67 68 74 20 2A 2F 0D 0A  ft to right */..
0000F0: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 7C  *********/../*.|
000130: 7C 09 09 2A 20 68 65 69 72 31 64 09 2A 20 6C 65  |..* heir1d.* le
000140: 66 74 20 74 6F 20 72 69 67 68 74 20 2A 2F 0D 0A  ft to right */..
000150: 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  /***************
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D 0A 2F 2A 09 3D  *********/../*.=
000190: 20 20 2D 3D 20 2B 3D 20 2A 3D 20 25 3D 20 20 2A    -= += *= %=  *
0001A0: 20 68 65 69 72 31 20 09 2A 20 6C 65 66 74 20 74   heir1 .* left t
0001B0: 6F 20 72 69 67 68 74 20 2A 2F 0D 0A 2F 2A 09 2F  o right */../*./
0001C0: 3D 20 26 3D 20 5E 3D 20 7C 3D 09 2A 09 09 2A 09  = &= ^= |=.*..*.
0001D0: 09 2A 2F 0D 0A 2F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  .*/../**********
0001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************

Size : 512 (Real : 512)
000000: 72 20 2A 68 65 78 3B 0D 0A 0D 0A 09 68 65 78 3D  r *hex;.....hex=
000010: 22 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65  "0123456789abcde
000020: 66 22 3B 0D 0A 09 66 6F 72 28 70 6F 73 74 69 6F  f";...for(postio
000030: 6E 3D 31 36 3B 20 70 6F 73 74 69 6F 6E 20 3E 3D  n=16; postion >=
000040: 20 30 3B 20 70 6F 73 74 69 6F 6E 20 2D 3D 34 29   0; postion -=4)
000050: 20 0D 0A 09 09 6F 75 74 62 79 74 65 28 68 65 78   ....outbyte(hex
000060: 5B 28 76 61 6C 75 65 3E 3E 70 6F 73 74 69 6F 6E  [(value>>postion
000070: 29 20 26 20 30 78 30 66 5D 29 3B 0D 0A 09 6F 75  ) & 0x0f]);...ou
000080: 74 62 79 74 65 28 27 68 27 29 3B 0D 0A 1A 1A 1A  tbyte('h');.....
000090: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 00 19 EB C3 D9 00 CD 0A 03 CD 2C 01 DA 1D 01 C5  ..........,.....
000110: 11 0C 00 19 46 11 14 00 19 4E AF 78 1F 67 3E 00  ....F....N.x.g>.
000120: 1F 47 81 6F 79 A0 F2 2A 3E 24 C1 C9 FF FF FF FF  .G.oy..*>$......
000130: FF F7 FF F7 FF FF FF FF FF FF FF FF FF FF FF FF  ................
000140: FF FF FF FF FF FF F7 FF F7 FF FF FF FF FF FF FF  ................
000150: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
000160: FF FF FF FF FF FF F7 FF F7 FF FF FF FF FF FF FF  ................
000170: FF FF FF FF FF FF FF FF FF FF FF FF FF F7 FF F7  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 01 84 01 FF 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 08 26 C9 FD 00 00  ...........&....
0001C0: 00 00 00 00 00 00 08 26 C9 FD 00 00 00 00 00 00  .......&........
0001D0: 00 00 08 26 C9 FD 00 00 00 00 00 00 00 00 00 00  ...&............
0001E0: 00 00 00 00 02 26 C9 FD 00 00 00 00 00 00 00 00  .....&..........
0001F0: 00 00 00 00 00 00 04 26 C9 FD 00 00 00 00 00 00  .......&........

Size : 512 (Real : 512)
000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2F 0D  **************/.
000010: 0A 23 69 66 6E 64 65 66 20 54 52 55 45 09 2F 2A  .#ifndef TRUE./*
000020: 20 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69 66   check to see if
000030: 20 6E 65 65 64 20 69 6E 63 6C 75 64 65 20 66 69   need include fi
000040: 6C 65 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20  le */..#include 
000050: 3C 43 2E 44 45 46 3E 0D 0A 23 65 6E 64 69 66 0D  <C.DEF>..#endif.
000060: 0A 65 78 70 72 65 73 73 69 6F 6E 28 29 0D 0A 7B  .expression()..{
000070: 0D 0A 20 20 20 20 20 20 20 20 69 6E 74 20 6C 76  ..        int lv
000080: 61 6C 5B 6C 76 61 6C 73 69 7A 65 5D 2C 73 74 61  al[lvalsize],sta
000090: 74 75 73 3B 0D 0A 09 73 74 61 74 75 73 3D 46 41  tus;...status=FA
0000A0: 4C 53 45 3B 0D 0A 09 72 76 61 6C 75 65 28 6C 76  LSE;...rvalue(lv
0000B0: 61 6C 2C 68 65 69 72 31 28 6C 76 61 6C 2C 26 73  al,heir1(lval,&s
0000C0: 74 61 74 75 73 29 29 3B 0D 0A 09 72 65 74 75 72  tatus));...retur
0000D0: 6E 20 73 74 61 74 75 73 3B 0D 0A 09 7D 0D 0A 68  n status;...}..h
0000E0: 65 69 72 31 28 6C 76 61 6C 2C 73 74 61 74 75 73  eir1(lval,status
0000F0: 29 0D 0A 69 6E 74 20 6C 76 61 6C 5B 5D 3B 0D 0A  )..int lval[];..
000100: 69 6E 74 20 2A 73 74 61 74 75 73 3B 0D 0A 7B 0D  int *status;..{.
000110: 0A 20 20 20 20 20 20 20 20 69 6E 74 20 6B 3B 0D  .        int k;.
000120: 0A 09 63 68 61 72 20 2A 70 74 72 3B 0D 0A 20 20  ..char *ptr;..  
000130: 20 20 20 20 20 20 6B 3D 68 65 69 72 31 64 28 6C        k=heir1d(l
000140: 76 61 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 20 20  val,status);..  
000150: 20 20 20 20 20 20 69 66 20 28 63 68 28 29 20 21        if (ch() !
000160: 3D 20 20 27 3D 27 20 26 26 20 6E 63 68 28 29 20  =  '=' && nch() 
000170: 21 3D 20 27 3D 27 29 20 72 65 74 75 72 6E 20 6B  != '=') return k
000180: 3B 0D 0A 09 2A 73 74 61 74 75 73 3D 46 41 4C 53  ;...*status=FALS
000190: 45 3B 0D 0A 09 73 77 69 74 63 68 28 63 68 28 29  E;...switch(ch()
0001A0: 29 20 7B 0D 0A 0D 0A 09 09 2F 2A 20 6A 75 73 74  ) {....../* just
0001B0: 20 61 6E 20 65 71 75 61 6C 20 2A 2F 0D 0A 09 09   an equal */....
0001C0: 63 61 73 65 20 27 3D 27 20 3A 0D 0A 09 09 09 67  case '=' :.....g
0001D0: 63 68 28 29 3B 0D 0A 09 09 09 65 71 75 61 6C 28  ch();.....equal(
0001E0: 6C 76 61 6C 2C 6B 29 3B 0D 0A 09 09 09 62 72 65  lval,k);.....bre
0001F0: 61 6B 3B 0D 0A 0D 0A 09 09 2F 2A 20 61 64 64 20  ak;....../* add 

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 76 61 6C 75 65 20 74 68 65 6E 20 73 74 6F 72 65  value then store
000010: 20 2A 2F 0D 0A 09 09 63 61 73 65 20 27 2B 27 20   */....case '+' 
000020: 3A 0D 0A 09 09 63 61 73 65 20 27 2D 27 20 3A 0D  :....case '-' :.
000030: 0A 09 09 09 67 63 68 28 29 3B 67 63 68 28 29 3B  ....gch();gch();
000040: 0D 0A 09 09 09 65 71 75 61 6C 5F 65 78 70 28 6C  .....equal_exp(l
000050: 76 61 6C 2C 6B 29 3B 0D 0A 09 09 09 73 69 7A 65  val,k);.....size
000060: 5F 61 64 6A 75 73 74 28 6C 76 61 6C 29 3B 0D 0A  _adjust(lval);..
000070: 09 09 09 69 66 20 28 63 68 28 29 20 3D 3D 20 27  ...if (ch() == '
000080: 2D 27 29 20 73 75 62 28 29 3B 20 65 6C 73 65 20  -') sub(); else 
000090: 61 64 64 28 29 3B 0D 0A 09 09 09 6B 3D 31 3B 0D  add();.....k=1;.
0000A0: 0A 09 09 09 62 72 65 61 6B 3B 0D 0A 0D 0A 09 09  ....break;......
0000B0: 63 61 73 65 20 27 2A 27 20 3A 0D 0A 09 09 09 67  case '*' :.....g
0000C0: 63 68 28 29 3B 67 63 68 28 29 3B 0D 0A 09 09 09  ch();gch();.....
0000D0: 65 71 75 61 6C 5F 65 78 70 28 6C 76 61 6C 2C 6B  equal_exp(lval,k
0000E0: 29 3B 0D 0A 09 09 09 6D 75 6C 74 28 29 3B 0D 0A  );.....mult();..
0000F0: 09 09 09 6B 3D 31 3B 0D 0A 09 09 09 62 72 65 61  ...k=1;.....brea
000100: 6B 3B 0D 0A 0D 0A 09 09 63 61 73 65 20 27 2F 27  k;......case '/'
000110: 20 3A 0D 0A 09 09 09 67 63 68 28 29 3B 67 63 68   :.....gch();gch
000120: 28 29 3B 0D 0A 09 09 09 65 71 75 61 6C 5F 65 78  ();.....equal_ex
000130: 70 28 6C 76 61 6C 2C 6B 29 3B 0D 0A 09 09 09 64  p(lval,k);.....d
000140: 69 76 28 29 3B 0D 0A 09 09 09 6B 3D 31 3B 0D 0A  iv();.....k=1;..
000150: 09 09 09 62 72 65 61 6B 3B 0D 0A 0D 0A 0D 0A 09  ...break;.......
000160: 09 63 61 73 65 20 27 25 27 20 3A 0D 0A 09 09 09  .case '%' :.....
000170: 67 63 68 28 29 3B 67 63 68 28 29 3B 0D 0A 09 09  gch();gch();....
000180: 09 65 71 75 61 6C 5F 65 78 70 28 6C 76 61 6C 2C  .equal_exp(lval,
000190: 6B 29 3B 0D 0A 09 09 09 6D 6F 64 28 29 3B 0D 0A  k);.....mod();..
0001A0: 09 09 09 6B 3D 31 3B 0D 0A 09 09 09 62 72 65 61  ...k=1;.....brea
0001B0: 6B 3B 0D 0A 0D 0A 0D 0A 09 09 63 61 73 65 20 27  k;........case '
0001C0: 26 27 20 3A 0D 0A 09 09 09 67 63 68 28 29 3B 67  &' :.....gch();g
0001D0: 63 68 28 29 3B 0D 0A 09 09 09 65 71 75 61 6C 5F  ch();.....equal_
0001E0: 65 78 70 28 6C 76 61 6C 2C 6B 29 3B 0D 0A 09 09  exp(lval,k);....
0001F0: 09 61 6E 64 28 29 3B 0D 0A 09 09 09 6B 3D 31 3B  .and();.....k=1;

Size : 512 (Real : 512)
000000: 26 22 29 29 20 7B 0D 0A 09 09 09 70 75 73 68 28  &")) {.....push(
000010: 29 3B 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C 76  );.....rvalue(lv
000020: 61 6C 32 2C 68 65 69 72 35 28 6C 76 61 6C 32 2C  al2,heir5(lval2,
000030: 73 74 61 74 75 73 29 29 3B 0D 0A 09 09 09 61 6E  status));.....an
000040: 64 28 29 3B 0D 0A 09 09 09 2A 73 74 61 74 75 73  d();.....*status
000050: 3D 54 52 55 45 3B 0D 0A 09 09 09 7D 0D 0A 09 09  =TRUE;.....}....
000060: 65 6C 73 65 20 72 65 74 75 72 6E 20 30 3B 0D 0A  else return 0;..
000070: 09 09 7D 0D 0A 09 7D 0D 0A 68 65 69 72 35 28 6C  ..}...}..heir5(l
000080: 76 61 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E 74  val,status)..int
000090: 20 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E 74 20 2A 73   lval[];..int *s
0000A0: 74 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69 6E 74 20  tatus;..{...int 
0000B0: 6B 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73 69 7A 65  k,lval2[lvalsize
0000C0: 5D 3B 0D 0A 09 6B 3D 68 65 69 72 36 28 6C 76 61  ];...k=heir6(lva
0000D0: 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09 62 6C 61  l,status);...bla
0000E0: 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28 28 73 74  nks();...if ((st
0000F0: 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C 22 3D  req(line+lptr,"=
000100: 3D 22 29 20 3D 3D 30 29 20 26 26 0D 0A 20 20 20  =") ==0) &&..   
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74               (st
000120: 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C 22 21  req(line+lptr,"!
000130: 3D 22 29 20 3D 3D 20 30 29 29 20 72 65 74 75 72  =") == 0)) retur
000140: 6E 20 6B 3B 0D 0A 20 20 20 20 20 20 20 20 72 76  n k;..        rv
000150: 61 6C 75 65 28 6C 76 61 6C 2C 6B 29 3B 0D 0A 20  alue(lval,k);.. 
000160: 20 20 20 20 20 20 20 77 68 69 6C 65 28 31 29 20         while(1) 
000170: 7B 0D 0A 09 09 69 66 20 28 6D 61 74 63 68 28 22  {....if (match("
000180: 3D 3D 22 29 29 20 7B 0D 0A 09 09 09 70 75 73 68  ==")) {.....push
000190: 28 29 3B 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C  ();.....rvalue(l
0001A0: 76 61 6C 32 2C 68 65 69 72 36 28 6C 76 61 6C 32  val2,heir6(lval2
0001B0: 2C 73 74 61 74 75 73 29 29 3B 0D 0A 09 09 09 65  ,status));.....e
0001C0: 71 28 29 3B 0D 0A 09 09 09 2A 73 74 61 74 75 73  q();.....*status
0001D0: 3D 54 52 55 45 3B 0D 0A 09 09 09 7D 0D 0A 09 09  =TRUE;.....}....
0001E0: 65 6C 73 65 20 69 66 20 28 6D 61 74 63 68 28 22  else if (match("
0001F0: 21 3D 22 29 29 20 7B 0D 0A 09 09 09 70 75 73 68  !=")) {.....push

Size : 512 (Real : 512)
000000: 0D 0A 09 09 09 62 72 65 61 6B 3B 0D 0A 0D 0A 09  .....break;.....
000010: 0D 0A 09 09 63 61 73 65 20 27 5E 27 20 3A 0D 0A  ....case '^' :..
000020: 09 09 09 67 63 68 28 29 3B 67 63 68 28 29 3B 09  ...gch();gch();.
000030: 0D 0A 09 09 09 65 71 75 61 6C 5F 65 78 70 28 6C  .....equal_exp(l
000040: 76 61 6C 2C 6B 29 3B 0D 0A 09 09 09 78 6F 72 28  val,k);.....xor(
000050: 29 3B 0D 0A 09 09 09 6B 3D 31 3B 0D 0A 09 09 09  );.....k=1;.....
000060: 62 72 65 61 6B 3B 0D 0A 09 09 0D 0A 09 09 63 61  break;........ca
000070: 73 65 20 27 7C 27 20 3A 0D 0A 09 09 09 67 63 68  se '|' :.....gch
000080: 28 29 3B 67 63 68 28 29 3B 0D 0A 09 09 09 65 71  ();gch();.....eq
000090: 75 61 6C 5F 65 78 70 28 6C 76 61 6C 2C 6B 29 3B  ual_exp(lval,k);
0000A0: 0D 0A 09 09 09 6F 72 28 29 3B 0D 0A 09 09 09 6B  .....or();.....k
0000B0: 3D 31 3B 0D 0A 09 09 09 62 72 65 61 6B 3B 0D 0A  =1;.....break;..
0000C0: 0D 0A 09 09 64 65 66 61 75 6C 74 3A 0D 0A 09 09  ....default:....
0000D0: 09 72 65 74 75 72 6E 20 6B 3B 0D 0A 09 09 7D 0D  .return k;....}.
0000E0: 0A 09 73 74 6F 72 65 28 6C 76 61 6C 2C 6B 29 3B  ..store(lval,k);
0000F0: 0D 0A 09 72 65 74 75 72 6E 20 30 3B 0D 0A 09 7D  ...return 0;...}
000100: 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A 2F  ../*.......*/../
000110: 2A 09 77 72 69 74 74 65 6E 20 62 79 20 4D 69 6B  *.written by Mik
000120: 65 20 42 65 72 6E 73 6F 6E 20 31 2F 38 31 09 09  e Bernson 1/81..
000130: 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F  .*/../*.......*/
000140: 0D 0A 68 65 69 72 31 64 28 6C 76 61 6C 2C 73 74  ..heir1d(lval,st
000150: 61 74 75 73 29 0D 0A 69 6E 74 20 6C 76 61 6C 5B  atus)..int lval[
000160: 5D 3B 0D 0A 69 6E 74 20 2A 73 74 61 74 75 73 3B  ];..int *status;
000170: 0D 0A 7B 0D 0A 09 69 6E 74 20 6B 2C 6C 76 61 6C  ..{...int k,lval
000180: 32 5B 6C 76 61 6C 73 69 7A 65 5D 3B 0D 0A 09 69  2[lvalsize];...i
000190: 6E 74 20 6C 61 62 65 6C 3B 0D 0A 09 6B 3D 68 65  nt label;...k=he
0001A0: 69 72 31 65 28 6C 76 61 6C 2C 73 74 61 74 75 73  ir1e(lval,status
0001B0: 29 3B 0D 0A 09 62 6C 61 6E 6B 73 28 29 3B 0D 0A  );...blanks();..
0001C0: 09 69 66 20 28 63 68 28 29 20 21 3D 20 27 7C 27  .if (ch() != '|'
0001D0: 20 7C 7C 20 6E 63 68 28 29 20 21 3D 20 27 7C 27   || nch() != '|'
0001E0: 29 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 09 72 76  ) return k;...rv
0001F0: 61 6C 75 65 28 6C 76 61 6C 2C 6B 29 3B 0D 0A 09  alue(lval,k);...

Size : 512 (Real : 512)
000000: 28 29 3B 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C  ();.....rvalue(l
000010: 76 61 6C 32 2C 68 65 69 72 36 28 6C 76 61 6C 32  val2,heir6(lval2
000020: 2C 73 74 61 74 75 73 29 29 3B 0D 0A 09 09 09 6E  ,status));.....n
000030: 65 28 29 3B 0D 0A 09 09 09 2A 73 74 61 74 75 73  e();.....*status
000040: 3D 54 52 55 45 3B 0D 0A 09 09 09 7D 0D 0A 09 09  =TRUE;.....}....
000050: 65 6C 73 65 20 72 65 74 75 72 6E 20 30 3B 0D 0A  else return 0;..
000060: 09 09 7D 0D 0A 09 7D 0D 0A 68 65 69 72 36 28 6C  ..}...}..heir6(l
000070: 76 61 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E 74  val,status)..int
000080: 20 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E 74 20 2A 73   lval[];..int *s
000090: 74 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69 6E 74 20  tatus;..{...int 
0000A0: 6B 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73 69 7A 65  k,lval2[lvalsize
0000B0: 5D 3B 0D 0A 09 6B 3D 68 65 69 72 37 28 6C 76 61  ];...k=heir7(lva
0000C0: 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09 62 6C 61  l,status);...bla
0000D0: 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28 28 73 74  nks();...if ((st
0000E0: 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C 22 3C  req(line+lptr,"<
0000F0: 22 29 20 3D 3D 20 30 29 20 26 26 0D 0A 09 09 28  ") == 0) &&....(
000100: 73 74 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C  streq(line+lptr,
000110: 22 3E 22 29 20 3D 3D 20 30 29 20 26 26 0D 0A 09  ">") == 0) &&...
000120: 09 28 73 74 72 65 71 28 6C 69 6E 65 2B 6C 70 74  .(streq(line+lpt
000130: 72 2C 22 3C 3D 22 29 20 3D 3D 20 30 29 20 26 26  r,"<=") == 0) &&
000140: 0D 0A 09 09 28 73 74 72 65 71 28 6C 69 6E 65 2B  ....(streq(line+
000150: 6C 70 74 72 2C 22 3E 3D 22 29 20 3D 3D 20 30 29  lptr,">=") == 0)
000160: 29 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 09 69 66  ) return k;...if
000170: 20 28 73 74 72 65 71 28 6C 69 6E 65 2B 6C 70 74   (streq(line+lpt
000180: 72 2C 22 3E 3E 22 29 29 20 72 65 74 75 72 6E 20  r,">>")) return 
000190: 6B 3B 0D 0A 09 69 66 20 28 73 74 72 65 71 28 6C  k;...if (streq(l
0001A0: 69 6E 65 2B 6C 70 74 72 2C 22 3C 3C 22 29 29 20  ine+lptr,"<<")) 
0001B0: 72 65 74 75 72 6E 20 6B 3B 0D 0A 09 72 76 61 6C  return k;...rval
0001C0: 75 65 28 6C 76 61 6C 2C 6B 29 3B 0D 0A 09 77 68  ue(lval,k);...wh
0001D0: 69 6C 65 28 31 29 20 7B 0D 0A 09 09 69 66 20 28  ile(1) {....if (
0001E0: 6D 61 74 63 68 28 22 3C 3D 22 29 29 20 7B 0D 0A  match("<=")) {..
0001F0: 09 09 09 70 75 73 68 28 29 3B 0D 0A 09 09 09 72  ...push();.....r

Size : 512 (Real : 512)
000000: 6C 61 62 65 6C 3D 67 65 74 6C 61 62 65 6C 28 29  label=getlabel()
000010: 3B 0D 0A 09 77 68 69 6C 65 28 31 29 20 7B 0D 0A  ;...while(1) {..
000020: 09 09 69 66 20 28 6D 61 74 63 68 28 22 7C 7C 22  ..if (match("||"
000030: 29 29 20 7B 0D 0A 09 09 09 74 72 75 65 6A 75 6D  )) {.....truejum
000040: 70 28 6C 61 62 65 6C 2C 2A 73 74 61 74 75 73 29  p(label,*status)
000050: 3B 0D 0A 09 09 09 2A 73 74 61 74 75 73 3D 54 52  ;.....*status=TR
000060: 55 45 3B 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C  UE;.....rvalue(l
000070: 76 61 6C 32 2C 68 65 69 72 31 65 28 6C 76 61 6C  val2,heir1e(lval
000080: 32 2C 73 74 61 74 75 73 29 29 3B 0D 0A 09 09 09  2,status));.....
000090: 7D 0D 0A 09 09 65 6C 73 65 20 7B 0D 0A 09 09 09  }....else {.....
0000A0: 73 70 72 69 6E 74 6C 61 62 65 6C 28 6C 61 62 65  sprintlabel(labe
0000B0: 6C 29 3B 0D 0A 09 09 09 72 65 74 75 72 6E 20 30  l);.....return 0
0000C0: 3B 0D 0A 09 09 09 7D 0D 0A 09 09 7D 0D 0A 09 7D  ;.....}....}...}
0000D0: 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09  ../*.....*/../*.
0000E0: 77 72 69 74 74 65 6E 20 62 79 20 4D 69 6B 65 20  written by Mike 
0000F0: 42 65 72 6E 73 6F 6E 20 31 2F 38 31 09 2A 2F 0D  Bernson 1/81.*/.
000100: 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 68 65 69 72  ./*.....*/..heir
000110: 31 65 28 6C 76 61 6C 2C 73 74 61 74 75 73 29 0D  1e(lval,status).
000120: 0A 69 6E 74 20 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E  .int lval[];..in
000130: 74 20 2A 73 74 61 74 75 73 3B 0D 0A 7B 0D 0A 09  t *status;..{...
000140: 69 6E 74 20 6C 61 62 65 6C 3B 0D 0A 09 69 6E 74  int label;...int
000150: 20 6B 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73 69 7A   k,lval2[lvalsiz
000160: 65 5D 3B 0D 0A 09 6B 3D 68 65 69 72 32 28 6C 76  e];...k=heir2(lv
000170: 61 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09 62 6C  al,status);...bl
000180: 61 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28 63 68  anks();...if (ch
000190: 28 29 20 21 3D 20 27 26 27 20 7C 7C 20 6E 63 68  () != '&' || nch
0001A0: 28 29 20 21 3D 20 27 26 27 29 20 72 65 74 75 72  () != '&') retur
0001B0: 6E 20 6B 3B 0D 0A 09 72 76 61 6C 75 65 28 6C 76  n k;...rvalue(lv
0001C0: 61 6C 2C 6B 29 3B 0D 0A 09 6C 61 62 65 6C 3D 67  al,k);...label=g
0001D0: 65 74 6C 61 62 65 6C 28 29 3B 0D 0A 09 77 68 69  etlabel();...whi
0001E0: 6C 65 28 31 29 20 7B 0D 0A 09 09 69 66 20 28 6D  le(1) {....if (m
0001F0: 61 74 63 68 28 22 26 26 22 29 29 20 7B 0D 0A 09  atch("&&")) {...

Size : 512 (Real : 512)
000000: 76 61 6C 75 65 28 6C 76 61 6C 32 2C 68 65 69 72  value(lval2,heir
000010: 37 28 6C 76 61 6C 32 2C 73 74 61 74 75 73 29 29  7(lval2,status))
000020: 3B 0D 0A 09 09 09 2A 73 74 61 74 75 73 3D 54 52  ;.....*status=TR
000030: 55 45 3B 0D 0A 09 09 09 69 66 20 28 63 70 74 72  UE;.....if (cptr
000040: 3D 6C 76 61 6C 5B 30 5D 29 0D 0A 09 09 09 09 69  =lval[0])......i
000050: 66 28 63 70 74 72 5B 69 64 65 6E 74 5D 3D 3D 70  f(cptr[ident]==p
000060: 6F 69 6E 74 65 72 29 20 7B 0D 0A 09 09 09 09 09  ointer) {.......
000070: 75 6C 65 28 29 3B 0D 0A 09 09 09 09 09 63 6F 6E  ule();.......con
000080: 74 69 6E 75 65 3B 0D 0A 09 09 09 09 09 7D 0D 0A  tinue;.......}..
000090: 09 09 09 69 66 20 28 63 70 74 72 3D 6C 76 61 6C  ...if (cptr=lval
0000A0: 32 5B 30 5D 29 0D 0A 09 09 09 09 69 66 28 63 70  2[0])......if(cp
0000B0: 74 72 5B 69 64 65 6E 74 5D 3D 3D 70 6F 69 6E 74  tr[ident]==point
0000C0: 65 72 29 20 7B 0D 0A 09 09 09 09 09 6C 65 28 29  er) {.......le()
0000D0: 3B 0D 0A 09 09 09 09 09 63 6F 6E 74 69 6E 75 65  ;.......continue
0000E0: 3B 0D 0A 09 09 09 09 09 7D 0D 0A 09 09 09 6C 65  ;.......}.....le
0000F0: 28 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C 73  ();.....}....els
000100: 65 20 69 66 20 28 6D 61 74 63 68 28 22 3E 3D 22  e if (match(">="
000110: 29 29 20 7B 0D 0A 09 09 09 70 75 73 68 28 29 3B  )) {.....push();
000120: 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C 76 61 6C  .....rvalue(lval
000130: 32 2C 68 65 69 72 37 28 6C 76 61 6C 32 2C 73 74  2,heir7(lval2,st
000140: 61 74 75 73 29 29 3B 0D 0A 09 09 09 2A 73 74 61  atus));.....*sta
000150: 74 75 73 3D 54 52 55 45 3B 0D 0A 09 09 09 69 66  tus=TRUE;.....if
000160: 20 28 63 70 74 72 3D 6C 76 61 6C 5B 30 5D 29 0D   (cptr=lval[0]).
000170: 0A 09 09 09 09 69 66 20 28 63 70 74 72 5B 69 64  .....if (cptr[id
000180: 65 6E 74 5D 3D 3D 70 6F 69 6E 74 65 72 29 20 7B  ent]==pointer) {
000190: 0D 0A 09 09 09 09 09 75 67 65 28 29 3B 0D 0A 09  .......uge();...
0001A0: 09 09 09 09 63 6F 6E 74 69 6E 75 65 3B 0D 0A 09  ....continue;...
0001B0: 09 09 09 09 7D 0D 0A 09 09 09 69 66 20 28 63 70  ....}.....if (cp
0001C0: 74 72 3D 6C 76 61 6C 32 5B 30 5D 29 0D 0A 09 09  tr=lval2[0])....
0001D0: 09 09 69 66 20 28 63 70 74 72 5B 69 64 65 6E 74  ..if (cptr[ident
0001E0: 5D 3D 3D 70 6F 69 6E 74 65 72 29 20 7B 0D 0A 09  ]==pointer) {...
0001F0: 09 09 09 09 75 67 65 28 29 3B 0D 0A 09 09 09 09  ....uge();......

Size : 512 (Real : 512)
000000: 09 09 74 65 73 74 6A 75 6D 70 28 6C 61 62 65 6C  ..testjump(label
000010: 2C 2A 73 74 61 74 75 73 29 3B 0D 0A 09 09 09 2A  ,*status);.....*
000020: 73 74 61 74 75 73 3D 54 52 55 45 3B 0D 0A 09 09  status=TRUE;....
000030: 09 72 76 61 6C 75 65 28 6C 76 61 6C 32 2C 68 65  .rvalue(lval2,he
000040: 69 72 32 28 6C 76 61 6C 32 2C 73 74 61 74 75 73  ir2(lval2,status
000050: 29 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C 73  ));.....}....els
000060: 65 20 7B 0D 0A 09 09 09 73 70 72 69 6E 74 6C 61  e {.....sprintla
000070: 62 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 09 09 09  bel(label);.....
000080: 72 65 74 75 72 6E 20 30 3B 0D 0A 09 09 09 7D 0D  return 0;.....}.
000090: 0A 09 09 7D 0D 0A 09 7D 0D 0A 68 65 69 72 32 28  ...}...}..heir2(
0000A0: 6C 76 61 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E  lval,status)..in
0000B0: 74 20 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E 74 20 2A  t lval[];..int *
0000C0: 73 74 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69 6E 74  status;..{...int
0000D0: 20 6B 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73 69 7A   k,lval2[lvalsiz
0000E0: 65 5D 3B 0D 0A 09 6B 3D 68 65 69 72 33 28 6C 76  e];...k=heir3(lv
0000F0: 61 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09 62 6C  al,status);...bl
000100: 61 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28 63 68  anks();...if (ch
000110: 28 29 20 21 3D 20 27 7C 27 20 7C 7C 20 6E 63 68  () != '|' || nch
000120: 28 29 20 3D 3D 27 7C 27 20 7C 7C 20 6E 63 68 28  () =='|' || nch(
000130: 29 3D 3D 20 27 3D 27 29 20 72 65 74 75 72 6E 20  )== '=') return 
000140: 6B 3B 0D 0A 09 72 76 61 6C 75 65 28 6C 76 61 6C  k;...rvalue(lval
000150: 2C 6B 29 3B 0D 0A 09 77 68 69 6C 65 28 31 29 20  ,k);...while(1) 
000160: 7B 0D 0A 09 09 69 66 20 28 6D 61 74 63 68 28 22  {....if (match("
000170: 7C 22 29 29 20 7B 0D 0A 09 09 09 70 75 73 68 28  |")) {.....push(
000180: 29 3B 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C 76  );.....rvalue(lv
000190: 61 6C 32 2C 68 65 69 72 33 28 6C 76 61 6C 32 2C  al2,heir3(lval2,
0001A0: 73 74 61 74 75 73 29 29 3B 0D 0A 09 09 09 6F 72  status));.....or
0001B0: 28 29 3B 0D 0A 09 09 09 2A 73 74 61 74 75 73 3D  ();.....*status=
0001C0: 54 52 55 45 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65  TRUE;.....}....e
0001D0: 6C 73 65 20 72 65 74 75 72 6E 20 30 3B 0D 0A 09  lse return 0;...
0001E0: 09 7D 0D 0A 09 7D 0D 0A 68 65 69 72 33 28 6C 76  .}...}..heir3(lv
0001F0: 61 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E 74 20  al,status)..int 

Size : 512 (Real : 512)
000000: 09 63 6F 6E 74 69 6E 75 65 3B 0D 0A 09 09 09 09  .continue;......
000010: 09 7D 0D 0A 09 09 09 67 65 28 29 3B 0D 0A 09 09  .}.....ge();....
000020: 09 7D 0D 0A 09 09 65 6C 73 65 20 69 66 20 28 28  .}....else if ((
000030: 73 74 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C  streq(line+lptr,
000040: 22 3C 22 29 29 20 26 26 0D 0A 09 09 09 28 73 74  "<")) &&.....(st
000050: 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C 22 3C  req(line+lptr,"<
000060: 3C 22 29 3D 3D 30 29 29 20 7B 0D 0A 09 09 09 09  <")==0)) {......
000070: 69 6E 62 79 74 65 28 29 3B 0D 0A 09 09 09 09 70  inbyte();......p
000080: 75 73 68 28 29 3B 0D 0A 09 09 09 09 72 76 61 6C  ush();......rval
000090: 75 65 28 6C 76 61 6C 32 2C 68 65 69 72 37 28 6C  ue(lval2,heir7(l
0000A0: 76 61 6C 32 2C 73 74 61 74 75 73 29 29 3B 0D 0A  val2,status));..
0000B0: 09 09 09 09 2A 73 74 61 74 75 73 3D 54 52 55 45  ....*status=TRUE
0000C0: 3B 0D 0A 09 09 09 09 69 66 20 28 63 70 74 72 3D  ;......if (cptr=
0000D0: 6C 76 61 6C 5B 30 5D 29 0D 0A 09 09 09 09 09 69  lval[0]).......i
0000E0: 66 20 28 63 70 74 72 5B 69 64 65 6E 74 5D 3D 3D  f (cptr[ident]==
0000F0: 70 6F 69 6E 74 65 72 29 20 7B 0D 0A 09 09 09 09  pointer) {......
000100: 09 75 6C 74 28 29 3B 0D 0A 09 09 09 09 09 63 6F  .ult();.......co
000110: 6E 74 69 6E 75 65 3B 0D 0A 09 09 09 09 09 7D 0D  ntinue;.......}.
000120: 0A 09 09 09 09 69 66 28 63 70 74 72 3D 6C 76 61  .....if(cptr=lva
000130: 6C 32 5B 30 5D 29 0D 0A 09 09 09 09 09 69 66 20  l2[0]).......if 
000140: 28 63 70 74 72 5B 69 64 65 6E 74 5D 3D 3D 70 6F  (cptr[ident]==po
000150: 69 6E 74 65 72 29 20 7B 0D 0A 09 09 09 09 09 09  inter) {........
000160: 75 6C 74 28 29 3B 0D 0A 09 09 09 09 09 09 63 6F  ult();........co
000170: 6E 74 69 6E 75 65 3B 0D 0A 09 09 09 09 09 09 7D  ntinue;........}
000180: 0D 0A 09 09 09 6C 74 28 29 3B 0D 0A 09 09 09 7D  .....lt();.....}
000190: 0D 0A 09 09 65 6C 73 65 20 69 66 20 28 28 73 74  ....else if ((st
0001A0: 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C 22 3E  req(line+lptr,">
0001B0: 22 29 29 20 26 26 0D 0A 09 09 09 28 73 74 72 65  ")) &&.....(stre
0001C0: 71 28 6C 69 6E 65 2B 6C 70 74 72 2C 22 3E 3E 22  q(line+lptr,">>"
0001D0: 29 20 3D 3D 20 30 29 29 20 7B 0D 0A 09 09 09 09  ) == 0)) {......
0001E0: 69 6E 62 79 74 65 28 29 3B 0D 0A 09 09 09 09 70  inbyte();......p
0001F0: 75 73 68 28 29 3B 0D 0A 09 09 09 09 72 76 61 6C  ush();......rval

Size : 512 (Real : 512)
000000: 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E 74 20 2A 73 74  lval[];..int *st
000010: 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69 6E 74 20 6B  atus;..{...int k
000020: 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73 69 7A 65 5D  ,lval2[lvalsize]
000030: 3B 0D 0A 20 09 6B 3D 68 65 69 72 34 28 6C 76 61  ;.. .k=heir4(lva
000040: 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09 62 6C 61  l,status);...bla
000050: 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28 63 68 28  nks();...if (ch(
000060: 29 20 21 3D 20 27 5E 27 20 7C 7C 20 6E 63 68 28  ) != '^' || nch(
000070: 29 20 3D 3D 20 27 3D 27 29 20 72 65 74 75 72 6E  ) == '=') return
000080: 20 6B 3B 0D 0A 09 72 76 61 6C 75 65 28 6C 76 61   k;...rvalue(lva
000090: 6C 2C 6B 29 3B 0D 0A 09 77 68 69 6C 65 28 31 29  l,k);...while(1)
0000A0: 20 7B 0D 0A 09 09 69 66 20 28 6D 61 74 63 68 28   {....if (match(
0000B0: 22 5E 22 29 29 20 7B 0D 0A 09 09 09 70 75 73 68  "^")) {.....push
0000C0: 28 29 3B 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C  ();.....rvalue(l
0000D0: 76 61 6C 32 2C 68 65 69 72 34 28 6C 76 61 6C 32  val2,heir4(lval2
0000E0: 2C 73 74 61 74 75 73 29 29 3B 0D 0A 09 09 09 78  ,status));.....x
0000F0: 6F 72 28 29 3B 0D 0A 09 09 09 2A 73 74 61 74 75  or();.....*statu
000100: 73 3D 54 52 55 45 3B 0D 0A 09 09 09 7D 0D 0A 09  s=TRUE;.....}...
000110: 09 65 6C 73 65 20 72 65 74 75 72 6E 20 30 3B 0D  .else return 0;.
000120: 0A 09 09 7D 0D 0A 09 7D 0D 0A 68 65 69 72 34 28  ...}...}..heir4(
000130: 6C 76 61 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E  lval,status)..in
000140: 74 20 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E 74 20 2A  t lval[];..int *
000150: 73 74 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69 6E 74  status;..{...int
000160: 20 6B 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73 69 7A   k,lval2[lvalsiz
000170: 65 5D 3B 0D 0A 09 6B 3D 68 65 69 72 35 28 6C 76  e];...k=heir5(lv
000180: 61 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09 62 6C  al,status);...bl
000190: 61 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28 63 68  anks();...if (ch
0001A0: 28 29 20 21 3D 20 27 26 27 20 7C 7C 20 6E 63 68  () != '&' || nch
0001B0: 28 29 3D 3D 27 26 27 20 7C 7C 20 6E 63 68 28 29  ()=='&' || nch()
0001C0: 20 3D 3D 20 27 3D 27 29 20 72 65 74 75 72 6E 20   == '=') return 
0001D0: 6B 3B 0D 0A 09 72 76 61 6C 75 65 28 6C 76 61 6C  k;...rvalue(lval
0001E0: 2C 6B 29 3B 0D 0A 09 77 68 69 6C 65 28 31 29 20  ,k);...while(1) 
0001F0: 7B 0D 0A 09 09 69 66 20 28 6D 61 74 63 68 28 22  {....if (match("

Size : 512 (Real : 512)
000000: 75 65 28 6C 76 61 6C 32 2C 68 65 69 72 37 28 6C  ue(lval2,heir7(l
000010: 76 61 6C 32 2C 73 74 61 74 75 73 29 29 3B 0D 0A  val2,status));..
000020: 09 09 09 09 2A 73 74 61 74 75 73 3D 54 52 55 45  ....*status=TRUE
000030: 3B 0D 0A 09 09 09 69 66 20 28 63 70 74 72 3D 6C  ;.....if (cptr=l
000040: 76 61 6C 5B 30 5D 29 0D 0A 09 09 09 09 69 66 20  val[0])......if 
000050: 28 63 70 74 72 5B 69 64 65 6E 74 5D 3D 3D 70 6F  (cptr[ident]==po
000060: 69 6E 74 65 72 29 20 7B 0D 0A 09 09 09 09 09 75  inter) {.......u
000070: 67 74 28 29 3B 0D 0A 09 09 09 09 09 63 6F 6E 74  gt();.......cont
000080: 69 6E 75 65 3B 0D 0A 09 09 09 09 09 7D 0D 0A 09  inue;.......}...
000090: 09 09 69 66 20 28 63 70 74 72 3D 6C 76 61 6C 32  ..if (cptr=lval2
0000A0: 5B 30 5D 29 0D 0A 09 09 09 09 69 66 20 28 63 70  [0])......if (cp
0000B0: 74 72 5B 69 64 65 6E 74 5D 3D 3D 70 6F 69 6E 74  tr[ident]==point
0000C0: 65 72 29 20 7B 0D 0A 09 09 09 09 09 75 67 74 28  er) {.......ugt(
0000D0: 29 3B 0D 0A 09 09 09 09 09 63 6F 6E 74 69 6E 75  );.......continu
0000E0: 65 3B 0D 0A 09 09 09 09 09 7D 0D 0A 09 09 09 67  e;.......}.....g
0000F0: 74 28 29 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C  t();.....}....el
000100: 73 65 20 72 65 74 75 72 6E 20 30 3B 0D 0A 09 09  se return 0;....
000110: 7D 0D 0A 09 7D 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A  }...}...........
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: BF 23 10 2C 22 47 72 61 62 61 6E 64 6F 20 70 69  .#.,"Grabando pi
000190: 73 74 61 73 2E 2E 2E 22 01 C9 00 93 00 88 13 8A  stas..."........
0001A0: 23 10 01 BF 23 10 01 BF 23 10 2C FF 03 28 15 29  #...#...#.,..(.)
0001B0: 3B 22 45 52 52 4F 52 20 44 45 20 43 41 52 47 41  ;"ERROR DE CARGA
0001C0: 20 45 4E 20 4C 41 20 50 49 53 54 41 20 22 3B 0D   EN LA PISTA ";.
0001D0: 00 00 D4 01 BF 23 10 2C 22 49 6E 74 65 6E 74 65  .....#.,"Intente
0001E0: 20 64 65 20 6E 75 65 76 6F 20 63 6F 6E 20 6F 74   de nuevo con ot
0001F0: 72 6F 20 76 6F 6C 75 6D 65 6E 2E 22 01 7C 00 53  ro volumen.".|.S

Size : 512 (Real : 512)
000000: 0A 09 69 66 28 6D 61 74 63 68 28 22 2B 2B 22 29  ..if(match("++")
000010: 29 20 7B 0D 0A 09 09 69 66 20 28 21 28 6B 3D 68  ) {....if (!(k=h
000020: 65 69 72 31 30 28 6C 76 61 6C 2C 63 6F 75 6E 74  eir10(lval,count
000030: 2C 73 74 61 74 75 73 29 29 29 20 7B 0D 0A 09 09  ,status))) {....
000040: 09 6E 65 65 64 6C 76 61 6C 28 29 3B 0D 0A 09 09  .needlval();....
000050: 09 72 65 74 75 72 6E 20 4C 4F 41 44 45 44 3B 0D  .return LOADED;.
000060: 0A 09 09 09 7D 0D 0A 09 09 6C 76 61 6C 5B 31 5D  ....}....lval[1]
000070: 20 2B 3D 20 2A 63 6F 75 6E 74 3B 0D 0A 09 09 61   += *count;....a
000080: 64 64 72 65 73 73 28 6C 76 61 6C 2C 6B 29 3B 0D  ddress(lval,k);.
000090: 0A 09 09 70 72 65 5F 69 6E 63 28 6C 76 61 6C 29  ...pre_inc(lval)
0000A0: 3B 0D 0A 09 09 72 65 74 75 72 6E 20 4C 4F 41 44  ;....return LOAD
0000B0: 45 44 3B 0D 0A 09 09 7D 0D 0A 09 65 6C 73 65 20  ED;....}...else 
0000C0: 69 66 20 28 6D 61 74 63 68 28 22 2D 2D 22 29 29  if (match("--"))
0000D0: 20 7B 0D 0A 09 09 69 66 20 28 21 28 6B 3D 68 65   {....if (!(k=he
0000E0: 69 72 31 30 28 6C 76 61 6C 2C 63 6F 75 6E 74 2C  ir10(lval,count,
0000F0: 73 74 61 74 75 73 29 29 29 20 7B 0D 0A 09 09 09  status))) {.....
000100: 6E 65 65 64 6C 76 61 6C 28 29 3B 0D 0A 09 09 09  needlval();.....
000110: 72 65 74 75 72 6E 20 4C 4F 41 44 45 44 3B 0D 0A  return LOADED;..
000120: 09 09 09 7D 0D 0A 09 09 6C 76 61 6C 5B 31 5D 20  ...}....lval[1] 
000130: 2B 3D 20 2A 63 6F 75 6E 74 3B 0D 0A 09 09 61 64  += *count;....ad
000140: 64 72 65 73 73 28 6C 76 61 6C 2C 6B 29 3B 0D 0A  dress(lval,k);..
000150: 09 09 70 72 65 5F 64 65 63 28 6C 76 61 6C 29 3B  ..pre_dec(lval);
000160: 0D 0A 09 09 2A 73 74 61 74 75 73 3D 54 52 55 45  ....*status=TRUE
000170: 3B 0D 0A 09 09 72 65 74 75 72 6E 20 4C 4F 41 44  ;....return LOAD
000180: 45 44 3B 0D 0A 09 09 7D 0D 0A 09 65 6C 73 65 20  ED;....}...else 
000190: 69 66 20 28 6D 61 74 63 68 28 22 2D 22 29 29 20  if (match("-")) 
0001A0: 7B 0D 0A 09 09 69 66 20 28 69 73 64 69 67 69 74  {....if (isdigit
0001B0: 28 6E 63 68 28 29 29 29 20 63 6F 6E 73 74 61 6E  (nch())) constan
0001C0: 74 28 29 3B 0D 0A 09 09 65 6C 73 65 20 7B 0D 0A  t();....else {..
0001D0: 09 09 09 6B 3D 68 65 69 72 31 30 28 6C 76 61 6C  ...k=heir10(lval
0001E0: 2C 63 6F 75 6E 74 2C 73 74 61 74 75 73 29 3B 0D  ,count,status);.
0001F0: 0A 09 09 09 72 76 61 6C 75 65 28 6C 76 61 6C 2C  ....rvalue(lval,

Size : 512 (Real : 512)
000000: 2F 2A 09 3E 3E 3E 3E 3E 3E 20 73 74 61 72 74 20  /*.>>>>>> start 
000010: 6F 66 20 63 63 36 20 3C 3C 3C 3C 3C 3C 09 2A 2F  of cc6 <<<<<<.*/
000020: 0D 0A 23 69 66 6E 64 65 66 09 54 52 55 45 09 2F  ..#ifndef.TRUE./
000030: 2A 20 73 65 65 20 69 66 20 6E 65 65 64 20 69 6E  * see if need in
000040: 63 6C 75 64 65 20 66 69 6C 65 20 2A 2F 0D 0A 23  clude file */..#
000050: 69 6E 63 6C 75 64 65 20 3C 43 2E 44 45 46 3E 0D  include <C.DEF>.
000060: 0A 23 65 6E 64 69 66 0D 0A 0D 0A 68 65 69 72 37  .#endif....heir7
000070: 28 6C 76 61 6C 2C 73 74 61 74 75 73 29 0D 0A 69  (lval,status)..i
000080: 6E 74 20 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E 74 20  nt lval[];..int 
000090: 2A 73 74 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69 6E  *status;..{...in
0000A0: 74 20 6B 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73 69  t k,lval2[lvalsi
0000B0: 7A 65 5D 3B 0D 0A 09 6B 3D 68 65 69 72 38 28 6C  ze];...k=heir8(l
0000C0: 76 61 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09 62  val,status);...b
0000D0: 6C 61 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28 21  lanks();...if (!
0000E0: 73 74 72 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C  streq(line+lptr,
0000F0: 22 3E 3E 22 29 20 26 26 0D 0A 09 09 21 73 74 72  ">>") &&....!str
000100: 65 71 28 6C 69 6E 65 2B 6C 70 74 72 2C 22 3C 3C  eq(line+lptr,"<<
000110: 22 29 29 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 09  ")) return k;...
000120: 72 76 61 6C 75 65 28 6C 76 61 6C 2C 6B 29 3B 0D  rvalue(lval,k);.
000130: 0A 09 77 68 69 6C 65 28 31 29 20 7B 0D 0A 09 09  ..while(1) {....
000140: 69 66 20 28 6D 61 74 63 68 28 22 3E 3E 22 29 29  if (match(">>"))
000150: 20 7B 0D 0A 09 09 09 70 75 73 68 28 29 3B 0D 0A   {.....push();..
000160: 09 09 09 6B 3D 68 65 69 72 38 28 6C 76 61 6C 32  ...k=heir8(lval2
000170: 29 3B 0D 0A 09 09 09 72 76 61 6C 75 65 28 6C 76  );.....rvalue(lv
000180: 61 6C 32 2C 6B 29 3B 0D 0A 09 09 09 61 73 72 28  al2,k);.....asr(
000190: 29 3B 0D 0A 09 09 09 2A 73 74 61 74 75 73 3D 46  );.....*status=F
0001A0: 41 4C 53 45 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65  ALSE;.....}....e
0001B0: 6C 73 65 20 69 66 20 28 6D 61 74 63 68 28 22 3C  lse if (match("<
0001C0: 3C 22 29 29 20 7B 0D 0A 09 09 09 70 75 73 68 28  <")) {.....push(
0001D0: 29 3B 0D 0A 09 09 09 6B 3D 68 65 69 72 38 28 6C  );.....k=heir8(l
0001E0: 76 61 6C 32 29 3B 0D 0A 09 09 09 72 76 61 6C 75  val2);.....rvalu
0001F0: 65 28 6C 76 61 6C 32 2C 6B 29 3B 0D 0A 09 09 09  e(lval2,k);.....

Size : 512 (Real : 512)
000000: 6B 29 3B 0D 0A 09 09 09 6E 65 67 28 29 3B 0D 0A  k);.....neg();..
000010: 09 09 09 2A 73 74 61 74 75 73 3D 54 52 55 45 3B  ...*status=TRUE;
000020: 0D 0A 09 09 09 7D 0D 0A 09 09 72 65 74 75 72 6E  .....}....return
000030: 20 4C 4F 41 44 45 44 3B 0D 0A 09 09 7D 09 0D 0A   LOADED;....}...
000040: 09 65 6C 73 65 20 69 66 20 28 6D 61 74 63 68 28  .else if (match(
000050: 22 2A 22 29 29 20 7B 0D 0A 09 09 2B 2B 2A 63 6F  "*")) {....++*co
000060: 75 6E 74 3B 0D 0A 09 09 6B 3D 68 65 69 72 31 30  unt;....k=heir10
000070: 28 6C 76 61 6C 2C 63 6F 75 6E 74 2C 73 74 61 74  (lval,count,stat
000080: 75 73 29 3B 0D 0A 09 09 72 76 61 6C 75 65 28 6C  us);....rvalue(l
000090: 76 61 6C 2C 6B 29 3B 0D 0A 09 09 6C 76 61 6C 5B  val,k);....lval[
0000A0: 31 5D 20 2B 3D 20 2A 63 6F 75 6E 74 3B 0D 0A 09  1] += *count;...
0000B0: 09 2A 63 6F 75 6E 74 3D 30 3B 0D 0A 09 09 2A 73  .*count=0;....*s
0000C0: 74 61 74 75 73 3D 46 41 4C 53 45 3B 0D 0A 09 09  tatus=FALSE;....
0000D0: 72 65 74 75 72 6E 20 41 44 44 52 45 53 53 3B 0D  return ADDRESS;.
0000E0: 0A 09 09 7D 0D 0A 09 65 6C 73 65 20 69 66 20 28  ...}...else if (
0000F0: 6D 61 74 63 68 28 22 26 22 29 29 20 7B 0D 0A 09  match("&")) {...
000100: 09 6B 3D 68 65 69 72 31 30 28 6C 76 61 6C 2C 63  .k=heir10(lval,c
000110: 6F 75 6E 74 2C 73 74 61 74 75 73 29 3B 0D 0A 09  ount,status);...
000120: 09 2A 73 74 61 74 75 73 3D 46 41 4C 53 45 3B 0D  .*status=FALSE;.
000130: 0A 09 09 69 66 20 28 6B 20 3D 3D 20 30 20 7C 7C  ...if (k == 0 ||
000140: 20 6C 76 61 6C 5B 30 5D 29 20 7B 0D 0A 09 09 09   lval[0]) {.....
000150: 65 72 72 6F 72 28 22 69 6C 6C 65 67 61 6C 20 61  error("illegal a
000160: 64 64 72 65 73 73 22 29 3B 0D 0A 09 09 09 72 65  ddress");.....re
000170: 74 75 72 6E 20 4C 4F 41 44 45 44 3B 0D 0A 09 09  turn LOADED;....
000180: 09 7D 0D 0A 09 09 65 6C 73 65 20 69 66 20 28 6C  .}....else if (l
000190: 76 61 6C 5B 31 5D 29 20 72 65 74 75 72 6E 20 4C  val[1]) return L
0001A0: 4F 41 44 45 44 3B 0D 0A 09 09 09 65 6C 73 65 20  OADED;.....else 
0001B0: 7B 0D 0A 09 09 09 09 69 6D 6D 65 64 28 29 3B 0D  {......immed();.
0001C0: 0A 09 09 09 09 6F 75 74 73 74 72 28 70 74 72 3D  .....outstr(ptr=
0001D0: 6C 76 61 6C 5B 30 5D 29 3B 0D 0A 09 09 09 09 6E  lval[0]);......n
0001E0: 6C 28 29 3B 0D 0A 09 09 09 09 72 65 74 75 72 6E  l();......return
0001F0: 20 4C 4F 41 44 45 44 3B 0D 0A 09 09 09 09 7D 0D   LOADED;......}.

Size : 512 (Real : 512)
000000: 61 73 6C 28 29 3B 0D 0A 09 09 09 2A 73 74 61 74  asl();.....*stat
000010: 75 73 3D 46 41 4C 53 45 3B 0D 0A 09 09 09 7D 0D  us=FALSE;.....}.
000020: 0A 09 09 65 6C 73 65 20 72 65 74 75 72 6E 20 30  ...else return 0
000030: 3B 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A 68 65 69 72  ;....}...}..heir
000040: 38 28 6C 76 61 6C 2C 73 74 61 74 75 73 29 0D 0A  8(lval,status)..
000050: 69 6E 74 20 6C 76 61 6C 5B 5D 3B 0D 0A 69 6E 74  int lval[];..int
000060: 20 2A 73 74 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69   *status;..{...i
000070: 6E 74 20 6B 2C 6C 76 61 6C 32 5B 6C 76 61 6C 73  nt k,lval2[lvals
000080: 69 7A 65 5D 3B 0D 0A 09 6B 3D 68 65 69 72 39 28  ize];...k=heir9(
000090: 6C 76 61 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 09  lval,status);...
0000A0: 62 6C 61 6E 6B 73 28 29 3B 0D 0A 09 69 66 20 28  blanks();...if (
0000B0: 28 63 68 28 29 20 21 3D 20 27 2B 27 20 26 26 20  (ch() != '+' && 
0000C0: 63 68 28 29 20 21 3D 20 27 2D 27 29 20 7C 7C 20  ch() != '-') || 
0000D0: 6E 63 68 28 29 20 3D 3D 20 27 3D 27 29 20 72 65  nch() == '=') re
0000E0: 74 75 72 6E 20 6B 3B 0D 0A 09 72 76 61 6C 75 65  turn k;...rvalue
0000F0: 28 6C 76 61 6C 2C 6B 29 3B 0D 0A 09 77 68 69 6C  (lval,k);...whil
000100: 65 28 31 29 20 7B 20 0D 0A 09 09 73 77 69 74 63  e(1) { ....switc
000110: 68 28 63 68 28 29 29 20 7B 0D 0A 0D 0A 09 09 09  h(ch()) {.......
000120: 2F 2A 20 61 64 64 20 6C 61 73 74 20 69 74 65 6D  /* add last item
000130: 20 74 6F 20 6E 65 78 74 20 69 74 65 6D 20 2A 2F   to next item */
000140: 0D 0A 09 09 09 63 61 73 65 20 27 2B 27 20 3A 0D  .....case '+' :.
000150: 0A 09 09 09 09 70 75 73 68 28 29 3B 0D 0A 09 09  .....push();....
000160: 09 09 67 63 68 28 29 3B 0D 0A 09 09 09 09 6B 3D  ..gch();......k=
000170: 68 65 69 72 39 28 6C 76 61 6C 32 2C 73 74 61 74  heir9(lval2,stat
000180: 75 73 29 3B 0D 0A 09 09 09 09 72 76 61 6C 75 65  us);......rvalue
000190: 28 6C 76 61 6C 32 2C 6B 29 3B 0D 0A 09 09 09 09  (lval2,k);......
0001A0: 73 69 7A 65 5F 61 64 6A 75 73 74 28 6C 76 61 6C  size_adjust(lval
0001B0: 29 3B 0D 0A 09 09 09 09 61 64 64 28 29 3B 0D 0A  );......add();..
0001C0: 09 09 09 09 2A 73 74 61 74 75 73 3D 46 41 4C 53  ....*status=FALS
0001D0: 45 3B 0D 0A 09 09 09 09 62 72 65 61 6B 3B 0D 0A  E;......break;..
0001E0: 0D 0A 09 09 09 2F 2A 20 73 75 62 74 72 61 63 74  ...../* subtract
0001F0: 20 6E 65 78 74 20 69 74 65 6D 20 66 72 6F 6D 20   next item from 

Size : 512 (Real : 512)
000000: 0A 09 09 7D 0D 0A 09 65 6C 73 65 20 69 66 20 28  ...}...else if (
000010: 6D 61 74 63 68 28 22 21 22 29 29 20 7B 0D 0A 09  match("!")) {...
000020: 09 72 76 61 6C 75 65 28 6C 76 61 6C 2C 68 65 69  .rvalue(lval,hei
000030: 72 31 30 28 6C 76 61 6C 2C 63 6F 75 6E 74 2C 73  r10(lval,count,s
000040: 74 61 74 75 73 29 29 3B 0D 0A 09 09 6E 6C 6F 67  tatus));....nlog
000050: 69 63 61 6C 28 29 3B 0D 0A 09 09 2A 73 74 61 74  ical();....*stat
000060: 75 73 3D 54 52 55 45 3B 0D 0A 09 09 72 65 74 75  us=TRUE;....retu
000070: 72 6E 20 4C 4F 41 44 45 44 3B 0D 0A 09 09 7D 0D  rn LOADED;....}.
000080: 0A 09 65 6C 73 65 20 7B 0D 0A 09 09 6B 3D 68 65  ..else {....k=he
000090: 69 72 31 31 28 6C 76 61 6C 2C 73 74 61 74 75 73  ir11(lval,status
0000A0: 29 3B 0D 0A 09 09 6D 6F 76 6D 65 6D 28 6C 76 61  );....movmem(lva
0000B0: 6C 2C 6C 76 61 6C 32 2C 6C 76 61 6C 73 69 7A 65  l,lval2,lvalsize
0000C0: 2A 32 29 3B 0D 0A 09 09 6C 76 61 6C 32 5B 31 5D  *2);....lval2[1]
0000D0: 20 2B 3D 20 2A 63 6F 75 6E 74 3B 0D 0A 09 09 69   += *count;....i
0000E0: 66 20 28 6D 61 74 63 68 28 22 2B 2B 22 29 29 20  f (match("++")) 
0000F0: 7B 0D 0A 09 09 09 69 66 28 6B 20 3D 3D 20 4C 4F  {.....if(k == LO
000100: 41 44 45 44 29 20 7B 0D 0A 09 09 09 09 6E 65 65  ADED) {......nee
000110: 64 6C 76 61 6C 28 29 3B 0D 0A 09 09 09 09 72 65  dlval();......re
000120: 74 75 72 6E 20 4C 4F 41 44 45 44 3B 0D 0A 09 09  turn LOADED;....
000130: 09 09 7D 0D 0A 09 09 09 61 64 64 72 65 73 73 28  ..}.....address(
000140: 6C 76 61 6C 2C 6B 29 3B 0D 0A 09 09 09 70 6F 73  lval,k);.....pos
000150: 74 5F 69 6E 63 28 6C 76 61 6C 29 3B 0D 0A 09 09  t_inc(lval);....
000160: 09 2A 73 74 61 74 75 73 3D 54 52 55 45 3B 0D 0A  .*status=TRUE;..
000170: 09 09 09 72 65 74 75 72 6E 20 4C 4F 41 44 45 44  ...return LOADED
000180: 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C 73 65 20  ;.....}....else 
000190: 69 66 20 28 6D 61 74 63 68 28 22 2D 2D 22 29 29  if (match("--"))
0001A0: 20 7B 0D 0A 09 09 09 69 66 20 28 6B 20 3D 3D 20   {.....if (k == 
0001B0: 4C 4F 41 44 45 44 29 20 7B 0D 0A 09 09 09 09 6E  LOADED) {......n
0001C0: 65 65 64 6C 76 61 6C 28 29 3B 0D 0A 09 09 09 09  eedlval();......
0001D0: 72 65 74 75 72 6E 20 4C 4F 41 44 45 44 3B 0D 0A  return LOADED;..
0001E0: 09 09 09 09 7D 0D 0A 09 09 09 61 64 64 72 65 73  ....}.....addres
0001F0: 73 28 6C 76 61 6C 2C 6B 29 3B 0D 0A 09 09 09 70  s(lval,k);.....p

Size : 512 (Real : 512)
000000: 63 75 72 72 65 6E 74 20 69 74 65 6D 20 2A 2F 0D  current item */.
000010: 0A 09 09 09 63 61 73 65 20 27 2D 27 20 3A 0D 0A  ....case '-' :..
000020: 09 09 09 09 70 75 73 68 28 29 3B 0D 0A 09 09 09  ....push();.....
000030: 09 67 63 68 28 29 3B 0D 0A 09 09 09 09 6B 3D 68  .gch();......k=h
000040: 65 69 72 39 28 6C 76 61 6C 32 2C 73 74 61 74 75  eir9(lval2,statu
000050: 73 29 3B 0D 0A 09 09 09 09 72 76 61 6C 75 65 28  s);......rvalue(
000060: 6C 76 61 6C 32 2C 6B 29 3B 0D 0A 09 09 09 09 73  lval2,k);......s
000070: 69 7A 65 5F 61 64 6A 75 73 74 28 6C 76 61 6C 29  ize_adjust(lval)
000080: 3B 0D 0A 09 09 09 09 73 75 62 28 29 3B 0D 0A 09  ;......sub();...
000090: 09 09 09 2A 73 74 61 74 75 73 3D 46 41 4C 53 45  ...*status=FALSE
0000A0: 3B 0D 0A 09 09 09 09 62 72 65 61 6B 3B 0D 0A 0D  ;......break;...
0000B0: 0A 09 09 09 2F 2A 20 6F 70 65 72 61 74 6F 72 20  ..../* operator 
0000C0: 6E 6F 74 20 22 2B 22 20 6F 72 20 22 2D 22 20 2A  not "+" or "-" *
0000D0: 2F 0D 0A 09 09 09 64 65 66 61 75 6C 74 20 3A 0D  /.....default :.
0000E0: 0A 09 09 09 09 72 65 74 75 72 6E 20 30 3B 0D 0A  .....return 0;..
0000F0: 09 09 09 7D 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A 68  ...}....}...}..h
000100: 65 69 72 39 28 6C 76 61 6C 2C 73 74 61 74 75 73  eir9(lval,status
000110: 29 0D 0A 69 6E 74 20 6C 76 61 6C 5B 5D 3B 0D 0A  )..int lval[];..
000120: 69 6E 74 20 2A 73 74 61 74 75 73 3B 0D 0A 7B 0D  int *status;..{.
000130: 0A 09 69 6E 74 20 6B 2C 6C 76 61 6C 32 5B 6C 76  ..int k,lval2[lv
000140: 61 6C 73 69 7A 65 5D 2C 74 65 6D 70 3B 0D 0A 0D  alsize],temp;...
000150: 0A 09 74 65 6D 70 3D 30 3B 0D 0A 09 6B 3D 68 65  ..temp=0;...k=he
000160: 69 72 31 30 28 6C 76 61 6C 2C 26 74 65 6D 70 2C  ir10(lval,&temp,
000170: 73 74 61 74 75 73 29 3B 0D 0A 09 62 6C 61 6E 6B  status);...blank
000180: 73 28 29 3B 0D 0A 09 69 66 20 28 28 63 68 28 29  s();...if ((ch()
000190: 20 21 3D 20 27 2A 27 20 26 26 20 63 68 28 29 21   != '*' && ch()!
0001A0: 3D 27 2F 27 20 26 26 20 63 68 28 29 20 21 3D 20  ='/' && ch() != 
0001B0: 27 25 27 29 20 0D 0A 09 09 7C 7C 20 6E 63 68 28  '%') ....|| nch(
0001C0: 29 20 3D 3D 20 27 3D 27 29 20 72 65 74 75 72 6E  ) == '=') return
0001D0: 20 6B 3B 0D 0A 09 72 76 61 6C 75 65 28 6C 76 61   k;...rvalue(lva
0001E0: 6C 2C 6B 29 3B 0D 0A 09 77 68 69 6C 65 28 31 29  l,k);...while(1)
0001F0: 20 7B 0D 0A 09 09 69 66 20 28 6D 61 74 63 68 28   {....if (match(

Size : 512 (Real : 512)
000000: 6F 73 74 5F 64 65 63 28 6C 76 61 6C 29 3B 0D 0A  ost_dec(lval);..
000010: 09 09 09 2A 73 74 61 74 75 73 3D 54 52 55 45 3B  ...*status=TRUE;
000020: 0D 0A 09 09 09 72 65 74 75 72 6E 20 4C 4F 41 44  .....return LOAD
000030: 45 44 3B 0D 0A 09 09 09 7D 0D 0A 09 09 65 6C 73  ED;.....}....els
000040: 65 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 09 09 7D  e return k;....}
000050: 0D 0A 09 7D 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ...}............
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 2A 73 05 EB 0E 15 CD 05 00 B7 2A 75 05 C2 9E 31  *s........*u...1
000090: 23 22 75 05 2A A3 05 2B 22 A3 05 C3 62 31 C1 C9  #"u.*..+"...b1..
0000A0: 3A 77 05 B7 6F CA AF 31 AF 32 77 05 26 00 C9 C5  :w..o..1.2w.&...
0000B0: 0E 01 CD 05 00 C1 FE 03 CA 00 00 FE 1A 21 FF FF  .............!..
0000C0: C8 6F FE 0D C2 D2 31 C5 0E 02 1E 0A CD 05 00 C1  .o....1.........
0000D0: 2E 0A 26 00 C9 CD 37 03 C5 3A 9F 05 4F 2A A1 05  ..&...7..:..O*..
0000E0: EB CD 05 00 6F 60 C1 C9 1A 1A 1A 1A 1A 1A 1A 1A  ....o`..........
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 05  ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 22 2A 22 29 29 20 7B 0D 0A 09 09 09 70 75 73 68  "*")) {.....push
000010: 28 29 3B 0D 0A 09 09 09 6B 3D 68 65 69 72 31 30  ();.....k=heir10
000020: 28 6C 76 61 6C 32 2C 26 74 65 6D 70 2C 73 74 61  (lval2,&temp,sta
000030: 74 75 73 29 3B 0D 0A 09 09 09 72 76 61 6C 75 65  tus);.....rvalue
000040: 28 6C 76 61 6C 32 2C 6B 29 3B 0D 0A 09 09 09 6D  (lval2,k);.....m
000050: 75 6C 74 28 29 3B 0D 0A 09 09 09 2A 73 74 61 74  ult();.....*stat
000060: 75 73 3D 46 41 4C 53 45 3B 0D 0A 09 09 09 7D 0D  us=FALSE;.....}.
000070: 0A 09 09 65 6C 73 65 20 69 66 20 28 6D 61 74 63  ...else if (matc
000080: 68 28 22 2F 22 29 29 20 7B 0D 0A 09 09 09 70 75  h("/")) {.....pu
000090: 73 68 28 29 3B 0D 0A 09 09 09 6B 3D 68 65 69 72  sh();.....k=heir
0000A0: 31 30 28 6C 76 61 6C 32 2C 26 74 65 6D 70 2C 73  10(lval2,&temp,s
0000B0: 74 61 74 75 73 29 3B 0D 0A 09 09 09 72 76 61 6C  tatus);.....rval
0000C0: 75 65 28 6C 76 61 6C 32 2C 6B 29 3B 0D 0A 09 09  ue(lval2,k);....
0000D0: 09 64 69 76 28 29 3B 0D 0A 09 09 09 2A 73 74 61  .div();.....*sta
0000E0: 74 75 73 3D 46 41 4C 53 45 3B 0D 0A 09 09 09 7D  tus=FALSE;.....}
0000F0: 0D 0A 09 09 65 6C 73 65 20 69 66 20 28 6D 61 74  ....else if (mat
000100: 63 68 28 22 25 22 29 29 20 7B 0D 0A 09 09 09 70  ch("%")) {.....p
000110: 75 73 68 28 29 3B 0D 0A 09 09 09 6B 3D 68 65 69  ush();.....k=hei
000120: 72 31 30 28 6C 76 61 6C 32 2C 26 74 65 6D 70 2C  r10(lval2,&temp,
000130: 73 74 61 74 75 73 29 3B 0D 0A 09 09 09 72 76 61  status);.....rva
000140: 6C 75 65 28 6C 76 61 6C 32 2C 6B 29 3B 0D 0A 09  lue(lval2,k);...
000150: 09 09 6D 6F 64 28 29 3B 0D 0A 09 09 09 2A 73 74  ..mod();.....*st
000160: 61 74 75 73 3D 46 41 4C 53 45 3B 0D 0A 09 09 09  atus=FALSE;.....
000170: 7D 0D 0A 09 09 65 6C 73 65 20 72 65 74 75 72 6E  }....else return
000180: 20 30 3B 0D 0A 09 09 7D 0D 0A 09 7D 0D 0A 68 65   0;....}...}..he
000190: 69 72 31 30 28 6C 76 61 6C 2C 63 6F 75 6E 74 2C  ir10(lval,count,
0001A0: 73 74 61 74 75 73 29 0D 0A 69 6E 74 20 6C 76 61  status)..int lva
0001B0: 6C 5B 5D 3B 0D 0A 69 6E 74 20 2A 63 6F 75 6E 74  l[];..int *count
0001C0: 3B 0D 0A 69 6E 74 20 2A 73 74 61 74 75 73 3B 0D  ;..int *status;.
0001D0: 0A 7B 0D 0A 09 69 6E 74 20 6B 2C 6C 76 61 6C 32  .{...int k,lval2
0001E0: 5B 6C 76 61 6C 73 69 7A 65 5D 3B 0D 0A 09 63 68  [lvalsize];...ch
0001F0: 61 72 20 2A 70 74 72 2C 66 6C 61 67 3B 0D 0A 0D  ar *ptr,flag;...

Size : 512 (Real : 512)
000000: 0D 0A 23 69 66 6E 64 65 66 09 54 52 55 45 09 2F  ..#ifndef.TRUE./
000010: 2A 20 63 68 65 63 6B 20 74 6F 20 73 65 65 20 69  * check to see i
000020: 66 20 69 6E 63 6C 75 64 65 20 66 69 6C 65 20 69  f include file i
000030: 73 20 6E 65 65 64 65 64 20 2A 2F 0D 0A 23 69 6E  s needed */..#in
000040: 63 6C 75 64 65 20 3C 43 2E 44 45 46 3E 0D 0A 23  clude <C.DEF>..#
000050: 65 6E 64 69 66 0D 0A 0D 0A 2F 2A 20 42 65 67 69  endif..../* Begi
000060: 6E 20 61 20 63 6F 6D 6D 65 6E 74 20 6C 69 6E 65  n a comment line
000070: 20 66 6F 72 20 74 68 65 20 61 73 73 65 6D 62 6C   for the assembl
000080: 65 72 20 2A 2F 0D 0A 63 6F 6D 6D 65 6E 74 28 29  er */..comment()
000090: 0D 0A 7B 0D 0A 09 6F 75 74 62 79 74 65 28 27 3B  ..{...outbyte(';
0000A0: 27 29 3B 0D 0A 09 7D 0D 0A 2F 2A 20 50 72 69 6E  ');...}../* Prin
0000B0: 74 20 61 6C 6C 20 61 73 73 65 6D 62 6C 65 72 20  t all assembler 
0000C0: 69 6E 66 6F 20 62 65 66 6F 72 65 20 61 6E 79 20  info before any 
0000D0: 63 6F 64 65 20 69 73 20 67 65 6E 65 72 61 74 65  code is generate
0000E0: 64 20 2A 2F 0D 0A 68 65 61 64 65 72 28 29 0D 0A  d */..header()..
0000F0: 7B 0D 0A 09 6F 75 74 73 74 72 28 22 40 73 74 61  {...outstr("@sta
000100: 72 74 3A 5C 74 63 73 65 63 74 22 29 3B 6E 6C 28  rt:\tcsect");nl(
000110: 29 3B 0D 0A 09 6F 6C 28 22 6A 6D 70 5C 74 40 69  );...ol("jmp\t@i
000120: 6E 69 74 22 29 3B 0D 0A 09 6F 6C 28 22 65 78 74  nit");...ol("ext
000130: 72 6E 5C 74 40 61 6E 64 2C 40 61 73 6C 2C 40 61  rn\t@and,@asl,@a
000140: 73 72 2C 40 63 6F 6D 70 2C 40 63 6F 6D 2C 40 64  sr,@comp,@com,@d
000150: 69 76 22 29 3B 0D 0A 09 6F 6C 28 22 65 78 74 72  iv");...ol("extr
000160: 6E 5C 74 40 67 63 68 61 72 2C 40 67 69 6E 74 2C  n\t@gchar,@gint,
000170: 40 69 6E 63 64 65 63 22 29 3B 0D 0A 09 6F 6C 28  @incdec");...ol(
000180: 22 65 78 74 72 6E 5C 74 40 6D 75 6C 74 2C 40 6E  "extrn\t@mult,@n
000190: 65 67 2C 40 6E 6C 6F 67 2C 40 6F 72 2C 40 70 69  eg,@nlog,@or,@pi
0001A0: 6E 74 2C 40 73 75 62 22 29 3B 0D 0A 09 6F 6C 28  nt,@sub");...ol(
0001B0: 22 65 78 74 72 6E 5C 74 40 73 78 74 2C 40 75 63  "extrn\t@sxt,@uc
0001C0: 6F 6D 70 2C 40 78 6F 72 2C 40 69 6E 69 74 2C 40  omp,@xor,@init,@
0001D0: 73 77 69 74 63 68 22 29 3B 0D 0A 09 6F 6C 28 22  switch");...ol("
0001E0: 65 78 74 72 6E 5C 74 40 67 69 6E 74 73 73 2C 40  extrn\t@gintss,@
0001F0: 67 69 6E 74 73 6C 2C 40 67 63 68 61 72 73 73 2C  gintsl,@gcharss,

Size : 512 (Real : 512)
000000: 65 73 73 20 6F 6E 20 74 68 65 20 74 6F 70 20 6F  ess on the top o
000010: 66 20 74 68 65 20 73 74 61 63 6B 20 2A 2F 0D 0A  f the stack */..
000020: 70 75 74 73 74 6B 28 74 79 70 65 6F 62 6A 29 0D  putstk(typeobj).
000030: 0A 63 68 61 72 20 74 79 70 65 6F 62 6A 3B 0D 0A  .char typeobj;..
000040: 7B 0D 0A 09 70 6F 70 28 29 3B 0D 0A 09 70 75 74  {...pop();...put
000050: 73 65 63 28 74 79 70 65 6F 62 6A 29 3B 0D 0A 09  sec(typeobj);...
000060: 7D 0D 0A 2F 2A 20 73 74 6F 72 65 20 74 68 65 20  }../* store the 
000070: 73 70 65 63 69 66 69 65 64 20 6F 62 6A 65 63 74  specified object
000080: 20 74 79 70 65 20 69 6E 20 74 68 65 20 70 72 69   type in the pri
000090: 6D 61 72 79 20 72 65 67 69 73 74 65 72 20 2A 2F  mary register */
0000A0: 0D 0A 2F 2A 09 61 74 20 74 68 65 20 61 64 64 72  ../*.at the addr
0000B0: 65 73 73 20 69 6E 20 74 68 65 20 73 65 63 6F 6E  ess in the secon
0000C0: 64 61 72 79 20 72 65 67 69 73 74 65 72 09 2A 2F  dary register.*/
0000D0: 0D 0A 70 75 74 73 65 63 28 74 79 70 65 6F 62 6A  ..putsec(typeobj
0000E0: 29 0D 0A 63 68 61 72 20 74 79 70 65 6F 62 6A 3B  )..char typeobj;
0000F0: 0D 0A 7B 0D 0A 09 69 66 20 28 74 79 70 65 6F 62  ..{...if (typeob
000100: 6A 20 3D 3D 20 63 63 68 61 72 29 20 7B 0D 0A 09  j == cchar) {...
000110: 09 6F 6C 28 22 6D 6F 76 5C 74 61 2C 6C 22 29 3B  .ol("mov\ta,l");
000120: 0D 0A 09 09 6F 6C 28 22 73 74 61 78 5C 74 64 22  ....ol("stax\td"
000130: 29 3B 0D 0A 09 09 7D 0D 0A 09 65 6C 73 65 20 63  );....}...else c
000140: 61 6C 6C 28 22 40 70 69 6E 74 22 29 3B 0D 0A 09  all("@pint");...
000150: 7D 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 2F 2A  }../*.....*/../*
000160: 09 77 72 69 74 74 65 6E 20 62 79 20 4D 69 6B 65  .written by Mike
000170: 20 42 65 72 6E 73 6F 6E 20 36 2F 39 2F 38 31 09   Bernson 6/9/81.
000180: 2A 2F 0D 0A 2F 2A 09 09 09 09 09 2A 2F 0D 0A 2F  */../*.....*/../
000190: 2A 09 73 74 6F 72 65 20 68 6C 20 76 61 6C 75 65  *.store hl value
0001A0: 20 61 66 74 65 72 20 63 61 6C 6C 20 70 6C 75 73   after call plus
0001B0: 09 2A 2F 0D 0A 2F 2A 09 63 75 72 72 65 6E 74 20  .*/../*.current 
0001C0: 73 74 61 63 6B 09 09 09 2A 2F 0D 0A 2F 2A 09 09  stack...*/../*..
0001D0: 09 09 09 2A 2F 0D 0A 70 75 74 6D 65 6D 5F 73 74  ...*/..putmem_st
0001E0: 61 63 6B 28 6C 76 61 6C 2C 74 79 70 29 0D 0A 69  ack(lval,typ)..i
0001F0: 6E 74 20 20 2A 6C 76 61 6C 3B 0D 0A 63 68 61 72  nt  *lval;..char

Size : 512 (Real : 512)
000000: 40 67 63 68 61 72 73 6C 22 29 3B 0D 0A 09 6F 6C  @gcharsl");...ol
000010: 28 22 65 78 74 72 6E 5C 74 40 70 69 6E 74 73 73  ("extrn\t@pintss
000020: 2C 40 70 69 6E 74 73 6C 2C 40 70 63 68 61 72 73  ,@pintsl,@pchars
000030: 73 2C 40 70 63 68 61 72 73 6C 22 29 3B 0D 0A 0D  s,@pcharsl");...
000040: 0A 09 6F 75 74 73 74 72 28 22 40 65 71 5C 74 65  ..outstr("@eq\te
000050: 71 75 5C 74 40 63 6F 6D 70 22 29 3B 6E 6C 28 29  qu\t@comp");nl()
000060: 3B 0D 0A 09 6F 75 74 73 74 72 28 22 40 67 65 5C  ;...outstr("@ge\
000070: 74 65 71 75 5C 74 40 63 6F 6D 70 2B 33 35 68 22  tequ\t@comp+35h"
000080: 29 3B 6E 6C 28 29 3B 0D 0A 09 6F 75 74 73 74 72  );nl();...outstr
000090: 28 22 40 67 74 5C 74 65 71 75 5C 74 40 63 6F 6D  ("@gt\tequ\t@com
0000A0: 70 2B 31 61 68 22 29 3B 6E 6C 28 29 3B 0D 0A 09  p+1ah");nl();...
0000B0: 6F 75 74 73 74 72 28 22 40 6C 65 5C 74 65 71 75  outstr("@le\tequ
0000C0: 5C 74 40 63 6F 6D 70 2B 34 33 68 22 29 3B 6E 6C  \t@comp+43h");nl
0000D0: 28 29 3B 0D 0A 09 6F 75 74 73 74 72 28 22 40 6C  ();...outstr("@l
0000E0: 74 5C 74 65 71 75 5C 74 40 63 6F 6D 70 2B 32 38  t\tequ\t@comp+28
0000F0: 68 22 29 3B 6E 6C 28 29 3B 0D 0A 09 6F 75 74 73  h");nl();...outs
000100: 74 72 28 22 40 6E 65 5C 74 65 71 75 5C 74 40 63  tr("@ne\tequ\t@c
000110: 6F 6D 70 2B 30 64 68 22 29 3B 6E 6C 28 29 3B 0D  omp+0dh");nl();.
000120: 0A 09 6F 75 74 73 74 72 28 22 40 75 67 65 5C 74  ..outstr("@uge\t
000130: 65 71 75 5C 74 40 75 63 6F 6D 70 2B 36 63 68 22  equ\t@ucomp+6ch"
000140: 29 3B 6E 6C 28 29 3B 0D 0A 09 6F 75 74 73 74 72  );nl();...outstr
000150: 28 22 40 75 67 74 5C 74 65 71 75 5C 74 40 75 63  ("@ugt\tequ\t@uc
000160: 6F 6D 70 2B 35 31 68 22 29 3B 6E 6C 28 29 3B 0D  omp+51h");nl();.
000170: 0A 09 6F 75 74 73 74 72 28 22 40 75 6C 65 5C 74  ..outstr("@ule\t
000180: 65 71 75 5C 74 40 75 63 6F 6D 70 2B 37 39 68 22  equ\t@ucomp+79h"
000190: 29 3B 6E 6C 28 29 3B 0D 0A 09 6F 75 74 73 74 72  );nl();...outstr
0001A0: 28 22 40 75 6C 74 5C 74 65 71 75 5C 74 40 75 63  ("@ult\tequ\t@uc
0001B0: 6F 6D 70 2B 35 66 68 22 29 3B 6E 6C 28 29 3B 0D  omp+5fh");nl();.
0001C0: 0A 0D 0A 09 6F 75 74 73 74 72 28 22 40 70 72 65  ....outstr("@pre
0001D0: 69 6E 63 5C 74 65 71 75 5C 74 40 69 6E 63 64 65  inc\tequ\t@incde
0001E0: 63 22 29 3B 6E 6C 28 29 3B 0D 0A 09 6F 75 74 73  c");nl();...outs
0001F0: 74 72 28 22 40 70 6F 73 74 69 6E 63 5C 74 65 71  tr("@postinc\teq

Size : 512 (Real : 512)
000000: 20 74 79 70 3B 0D 0A 7B 0D 0A 09 69 6E 74 20 6F   typ;..{...int o
000010: 66 66 3B 0D 0A 09 63 68 61 72 20 2A 70 74 72 3B  ff;...char *ptr;
000020: 0D 0A 0D 0A 09 70 74 72 3D 6C 76 61 6C 5B 30 5D  .....ptr=lval[0]
000030: 3B 0D 0A 09 6F 66 66 3D 70 74 72 5B 6F 66 66 73  ;...off=ptr[offs
000040: 65 74 5D 2B 70 74 72 5B 6F 66 66 73 65 74 2B 31  et]+ptr[offset+1
000050: 5D 2A 32 35 36 2B 6C 76 61 6C 5B 32 5D 2D 73 70  ]*256+lval[2]-sp
000060: 3B 0D 0A 0D 0A 09 69 66 20 28 74 79 70 20 3D 3D  ;.....if (typ ==
000070: 20 63 69 6E 74 29 20 0D 0A 09 09 69 66 20 28 69   cint) ....if (i
000080: 73 62 79 74 65 28 6F 66 66 29 29 20 63 61 6C 6C  sbyte(off)) call
000090: 28 22 40 70 69 6E 74 73 73 22 29 3B 20 65 6C 73  ("@pintss"); els
0000A0: 65 20 63 61 6C 6C 28 22 40 70 69 6E 74 73 6C 22  e call("@pintsl"
0000B0: 29 3B 0D 0A 09 65 6C 73 65 0D 0A 09 09 69 66 20  );...else....if 
0000C0: 28 69 73 62 79 74 65 28 6F 66 66 29 29 20 63 61  (isbyte(off)) ca
0000D0: 6C 6C 28 22 40 70 63 68 61 72 73 73 22 29 3B 20  ll("@pcharss"); 
0000E0: 65 6C 73 65 20 63 61 6C 6C 28 22 40 70 63 68 61  else call("@pcha
0000F0: 72 73 6C 22 29 3B 0D 0A 09 64 65 66 76 61 6C 75  rsl");...defvalu
000100: 65 28 6F 66 66 29 3B 0D 0A 09 7D 0D 0A 0D 0A 2F  e(off);...}..../
000110: 2A 20 46 65 74 63 68 20 74 68 65 20 73 70 65 63  * Fetch the spec
000120: 69 66 69 65 64 20 6F 62 6A 65 63 74 20 74 79 70  ified object typ
000130: 65 20 69 6E 64 69 72 65 63 74 20 74 68 72 6F 75  e indirect throu
000140: 67 68 20 74 68 65 20 2A 2F 0D 0A 2F 2A 20 20 20  gh the */../*   
000150: 20 20 20 70 72 69 6D 61 72 79 20 72 65 67 69 73     primary regis
000160: 74 65 72 20 69 6E 74 6F 20 74 68 65 20 70 72 69  ter into the pri
000170: 6D 61 72 79 20 72 65 67 69 73 74 65 72 20 2A 2F  mary register */
000180: 0D 0A 69 6E 64 69 72 65 63 74 28 74 79 70 65 6F  ..indirect(typeo
000190: 62 6A 29 0D 0A 63 68 61 72 20 74 79 70 65 6F 62  bj)..char typeob
0001A0: 6A 3B 0D 0A 7B 0D 0A 09 69 66 20 28 74 79 70 65  j;..{...if (type
0001B0: 6F 62 6A 20 3D 3D 20 63 63 68 61 72 29 20 63 61  obj == cchar) ca
0001C0: 6C 6C 28 22 40 67 63 68 61 72 22 29 3B 0D 0A 09  ll("@gchar");...
0001D0: 65 6C 73 65 20 63 61 6C 6C 28 22 40 67 69 6E 74  else call("@gint
0001E0: 22 29 3B 0D 0A 09 7D 0D 0A 2F 2A 20 61 64 64 20  ");...}../* add 
0001F0: 70 72 69 6D 61 72 79 20 61 6E 64 20 73 65 63 6F  primary and seco

Size : 512 (Real : 512)
000000: 75 5C 74 40 69 6E 63 64 65 63 2B 31 30 68 22 29  u\t@incdec+10h")
000010: 3B 6E 6C 28 29 3B 0D 0A 09 6F 75 74 73 74 72 28  ;nl();...outstr(
000020: 22 40 70 72 65 64 65 63 5C 74 65 71 75 5C 74 40  "@predec\tequ\t@
000030: 69 6E 63 64 65 63 2B 30 38 68 22 29 3B 6E 6C 28  incdec+08h");nl(
000040: 29 3B 0D 0A 09 6F 75 74 73 74 72 28 22 40 70 6F  );...outstr("@po
000050: 73 74 64 65 63 5C 74 65 71 75 5C 74 40 69 6E 63  stdec\tequ\t@inc
000060: 64 65 63 2B 31 61 68 22 29 3B 6E 6C 28 29 3B 0D  dec+1ah");nl();.
000070: 0A 09 7D 0D 0A 2F 2A 20 50 72 69 6E 74 20 61 6E  ..}../* Print an
000080: 79 20 61 73 73 65 6D 62 6C 65 72 20 73 74 75 66  y assembler stuf
000090: 66 20 6E 65 65 64 65 64 20 61 66 74 65 72 20 61  f needed after a
0000A0: 6C 6C 20 63 6F 64 65 20 2A 2F 0D 0A 74 72 61 69  ll code */..trai
0000B0: 6C 65 72 28 29 0D 0A 7B 0D 0A 09 6F 6C 28 22 65  ler()..{...ol("e
0000C0: 6E 64 22 29 3B 0D 0A 09 7D 0D 0A 2F 2A 09 09 09  nd");...}../*...
0000D0: 09 09 09 09 2A 2F 0D 0A 2F 2A 09 72 65 77 72 69  ....*/../*.rewri
0000E0: 74 74 65 6E 20 20 34 2F 33 30 2F 38 31 20 62 79  tten  4/30/81 by
0000F0: 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 09 09 2A   Mike Bernson..*
000100: 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 0D 0A  /../*.......*/..
000110: 2F 2A 20 46 65 74 63 68 20 61 20 73 74 61 74 69  /* Fetch a stati
000120: 63 20 6D 65 6D 6F 72 79 20 63 65 6C 6C 20 69 6E  c memory cell in
000130: 74 6F 20 74 68 65 20 70 72 69 6D 61 72 79 20 72  to the primary r
000140: 65 67 69 73 74 65 72 20 2A 2F 0D 0A 67 65 74 6D  egister */..getm
000150: 65 6D 28 73 6E 61 6D 65 2C 74 79 70 2C 6F 66 66  em(sname,typ,off
000160: 29 0D 0A 63 68 61 72 20 2A 73 6E 61 6D 65 3B 0D  )..char *sname;.
000170: 0A 69 6E 74 20 20 74 79 70 3B 0D 0A 69 6E 74 20  .int  typ;..int 
000180: 20 6F 66 66 3B 0D 0A 7B 0D 0A 09 69 66 28 74 79   off;..{...if(ty
000190: 70 3D 3D 63 63 68 61 72 29 20 7B 0D 0A 09 09 6F  p==cchar) {....o
0001A0: 74 28 22 6C 64 61 5C 74 22 29 3B 0D 0A 09 09 6F  t("lda\t");....o
0001B0: 75 74 73 74 72 28 73 6E 61 6D 65 29 3B 0D 0A 09  utstr(sname);...
0001C0: 09 69 66 20 28 6F 66 66 29 20 7B 0D 0A 09 09 09  .if (off) {.....
0001D0: 6F 75 74 73 74 72 28 22 2B 22 29 3B 0D 0A 09 09  outstr("+");....
0001E0: 09 6F 75 74 64 65 63 28 6F 66 66 29 3B 0D 0A 09  .outdec(off);...
0001F0: 09 09 7D 0D 0A 09 09 6E 6C 28 29 3B 0D 0A 09 09  ..}....nl();....

Size : 512 (Real : 512)
000000: 6E 64 61 72 79 20 72 65 67 69 73 74 65 72 73 20  ndary registers 
000010: 2A 2F 0D 0A 61 64 64 5F 61 64 64 72 65 73 73 28  */..add_address(
000020: 29 0D 0A 7B 0D 0A 09 6F 6C 28 22 64 61 64 5C 74  )..{...ol("dad\t
000030: 64 22 29 3B 0D 0A 09 7D 0D 0A 2F 2A 20 53 77 61  d");...}../* Swa
000040: 70 20 74 68 65 20 70 72 69 6D 61 72 79 20 61 6E  p the primary an
000050: 64 20 73 65 63 6F 6E 64 61 72 79 20 72 65 67 69  d secondary regi
000060: 73 74 65 72 73 20 2A 2F 0D 0A 73 77 61 70 28 29  sters */..swap()
000070: 0D 0A 7B 0D 0A 09 6F 6C 28 22 78 63 68 67 22 29  ..{...ol("xchg")
000080: 3B 0D 0A 09 7D 0D 0A 2F 2A 20 50 72 69 6E 74 20  ;...}../* Print 
000090: 70 61 72 74 69 61 6C 20 69 6E 73 74 72 75 63 74  partial instruct
0000A0: 69 6F 6E 20 74 6F 20 67 65 74 20 61 6E 20 69 6D  ion to get an im
0000B0: 6D 65 64 69 61 74 65 20 76 61 6C 75 65 20 2A 2F  mediate value */
0000C0: 0D 0A 2F 2A 20 20 20 20 20 20 69 6E 74 6F 20 74  ../*      into t
0000D0: 68 65 20 70 72 69 6D 61 72 79 20 72 65 67 69 73  he primary regis
0000E0: 74 65 72 20 2A 2F 0D 0A 69 6D 6D 65 64 28 29 0D  ter */..immed().
0000F0: 0A 7B 0D 0A 09 6F 74 28 22 6C 78 69 5C 74 68 2C  .{...ot("lxi\th,
000100: 22 29 3B 0D 0A 09 7D 0D 0A 2F 2A 20 50 75 73 68  ");...}../* Push
000110: 20 74 68 65 20 70 72 69 6D 61 72 79 20 72 65 67   the primary reg
000120: 69 73 74 65 72 20 6F 6E 74 6F 20 74 68 65 20 73  ister onto the s
000130: 74 61 63 6B 20 2A 2F 0D 0A 70 75 73 68 28 29 0D  tack */..push().
000140: 0A 7B 0D 0A 09 6F 6C 28 22 70 75 73 68 5C 74 68  .{...ol("push\th
000150: 22 29 3B 0D 0A 09 73 70 3D 73 70 2D 32 3B 0D 0A  ");...sp=sp-2;..
000160: 09 7D 0D 0A 2F 2A 20 70 75 73 68 20 74 68 65 20  .}../* push the 
000170: 73 65 63 6F 6E 64 61 72 79 20 72 65 67 69 73 74  secondary regist
000180: 65 72 09 6F 6E 20 73 74 61 63 6B 20 2A 2F 0D 0A  er.on stack */..
000190: 70 75 73 68 73 28 29 0D 0A 7B 0D 0A 09 6F 6C 28  pushs()..{...ol(
0001A0: 22 70 75 73 68 5C 74 64 22 29 3B 0D 0A 09 73 70  "push\td");...sp
0001B0: 3D 73 70 2D 32 3B 0D 0A 09 7D 0D 0A 2F 2A 20 50  =sp-2;...}../* P
0001C0: 6F 70 20 74 68 65 20 74 6F 70 20 6F 66 20 74 68  op the top of th
0001D0: 65 20 73 74 61 63 6B 20 69 6E 74 6F 20 74 68 65  e stack into the
0001E0: 20 73 65 63 6F 6E 64 61 72 79 20 72 65 67 69 73   secondary regis
0001F0: 74 65 72 20 2A 2F 0D 0A 70 6F 70 28 29 0D 0A 7B  ter */..pop()..{

Size : 512 (Real : 512)
000000: 63 61 6C 6C 28 22 40 73 78 74 22 29 3B 0D 0A 09  call("@sxt");...
000010: 09 7D 0D 0A 09 65 6C 73 65 20 7B 0D 0A 09 09 6F  .}...else {....o
000020: 74 28 22 6C 68 6C 64 5C 74 22 29 3B 0D 0A 09 09  t("lhld\t");....
000030: 6F 75 74 73 74 72 28 73 6E 61 6D 65 29 3B 0D 0A  outstr(sname);..
000040: 09 09 69 66 20 28 6F 66 66 29 20 7B 0D 0A 09 09  ..if (off) {....
000050: 09 6F 75 74 73 74 72 28 22 2B 22 29 3B 0D 0A 09  .outstr("+");...
000060: 09 09 6F 75 74 64 65 63 28 6F 66 66 29 3B 0D 0A  ..outdec(off);..
000070: 09 09 09 7D 0D 0A 09 09 6E 6C 28 29 3B 0D 0A 09  ...}....nl();...
000080: 09 7D 0D 0A 09 7D 0D 0A 2F 2A 09 09 09 09 09 09  .}...}../*......
000090: 09 2A 2F 0D 0A 2F 2A 09 77 72 69 74 74 65 6E 20  .*/../*.written 
0000A0: 62 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 20  by Mike Bernson 
0000B0: 36 2F 38 2F 38 31 09 09 09 2A 2F 0D 0A 2F 2A 09  6/8/81...*/../*.
0000C0: 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 6C 6F 61  ......*/../*.loa
0000D0: 64 20 61 20 62 79 74 65 20 6F 66 66 73 65 74 20  d a byte offset 
0000E0: 66 72 6F 6D 20 63 75 72 72 65 6E 74 20 73 74 61  from current sta
0000F0: 63 6B 09 09 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09  ck..*/../*......
000100: 09 2A 2F 0D 0A 67 65 74 6D 65 6D 5F 73 74 61 63  .*/..getmem_stac
000110: 6B 28 6C 76 61 6C 2C 74 79 70 29 0D 0A 69 6E 74  k(lval,typ)..int
000120: 20 20 2A 6C 76 61 6C 3B 0D 0A 63 68 61 72 20 2A    *lval;..char *
000130: 74 79 70 3B 0D 0A 7B 0D 0A 09 63 68 61 72 20 2A  typ;..{...char *
000140: 70 74 72 3B 0D 0A 09 69 6E 74 20 20 6F 66 66 3B  ptr;...int  off;
000150: 0D 0A 0D 0A 09 70 74 72 3D 6C 76 61 6C 5B 30 5D  .....ptr=lval[0]
000160: 3B 0D 0A 09 6F 66 66 3D 70 74 72 5B 6F 66 66 73  ;...off=ptr[offs
000170: 65 74 5D 2B 70 74 72 5B 6F 66 66 73 65 74 2B 31  et]+ptr[offset+1
000180: 5D 2A 32 35 36 2B 6C 76 61 6C 5B 32 5D 2D 73 70  ]*256+lval[2]-sp
000190: 3B 0D 0A 09 0D 0A 09 69 66 20 28 74 79 70 20 3D  ;......if (typ =
0001A0: 3D 20 63 69 6E 74 29 0D 0A 09 09 69 66 20 28 69  = cint)....if (i
0001B0: 73 62 79 74 65 28 6F 66 66 29 29 20 63 61 6C 6C  sbyte(off)) call
0001C0: 28 22 40 67 69 6E 74 73 73 22 29 3B 20 65 6C 73  ("@gintss"); els
0001D0: 65 20 63 61 6C 6C 28 22 40 67 69 6E 74 73 6C 22  e call("@gintsl"
0001E0: 29 3B 0D 0A 09 65 6C 73 65 0D 0A 09 09 69 66 20  );...else....if 
0001F0: 28 69 73 62 79 74 65 28 6F 66 66 29 29 20 63 61  (isbyte(off)) ca

Size : 512 (Real : 512)
000000: 0D 0A 09 6F 6C 28 22 70 6F 70 5C 74 64 22 29 3B  ...ol("pop\td");
000010: 0D 0A 09 73 70 3D 73 70 2B 32 3B 0D 0A 09 7D 0D  ...sp=sp+2;...}.
000020: 0A 2F 2A 20 53 77 61 70 20 74 68 65 20 70 72 69  ./* Swap the pri
000030: 6D 61 72 79 20 72 65 67 69 73 74 65 72 20 61 6E  mary register an
000040: 64 20 74 68 65 20 74 6F 70 20 6F 66 20 74 68 65  d the top of the
000050: 20 73 74 61 63 6B 20 2A 2F 0D 0A 73 77 61 70 73   stack */..swaps
000060: 74 6B 28 29 0D 0A 7B 0D 0A 09 6F 6C 28 22 78 74  tk()..{...ol("xt
000070: 68 6C 22 29 3B 0D 0A 09 7D 0D 0A 2F 2A 20 63 61  hl");...}../* ca
000080: 6C 6C 20 72 6F 75 74 69 6E 65 20 61 6E 64 20 73  ll routine and s
000090: 75 62 74 72 61 63 74 20 32 09 66 72 6F 6D 20 73  ubtract 2.from s
0000A0: 74 61 63 6B 20 70 6F 69 6E 74 65 72 20 2A 2F 0D  tack pointer */.
0000B0: 0A 63 63 61 6C 6C 28 73 6E 61 6D 65 29 0D 0A 63  .ccall(sname)..c
0000C0: 68 61 72 20 2A 73 6E 61 6D 65 3B 0D 0A 7B 0D 0A  har *sname;..{..
0000D0: 09 73 70 3D 73 70 2B 32 3B 0D 0A 09 63 61 6C 6C  .sp=sp+2;...call
0000E0: 28 73 6E 61 6D 65 29 3B 0D 0A 09 7D 0D 0A 2F 2A  (sname);...}../*
0000F0: 20 43 61 6C 6C 20 74 68 65 20 73 70 65 63 69 66   Call the specif
000100: 69 65 64 20 73 75 62 72 6F 75 74 69 6E 65 20 6E  ied subroutine n
000110: 61 6D 65 20 2A 2F 0D 0A 63 61 6C 6C 28 73 6E 61  ame */..call(sna
000120: 6D 65 29 0D 0A 63 68 61 72 20 2A 73 6E 61 6D 65  me)..char *sname
000130: 3B 0D 0A 7B 0D 0A 09 6F 74 28 22 63 61 6C 6C 5C  ;..{...ot("call\
000140: 74 22 29 3B 0D 0A 09 6F 75 74 73 74 72 28 73 6E  t");...outstr(sn
000150: 61 6D 65 29 3B 0D 0A 09 6E 6C 28 29 3B 0D 0A 09  ame);...nl();...
000160: 7D 0D 0A 2F 2A 20 52 65 74 75 72 6E 20 66 72 6F  }../* Return fro
000170: 6D 20 73 75 62 72 6F 75 74 69 6E 65 20 2A 2F 0D  m subroutine */.
000180: 0A 72 65 74 28 29 0D 0A 7B 0D 0A 09 6F 6C 28 22  .ret()..{...ol("
000190: 72 65 74 22 29 3B 0D 0A 09 7D 0D 0A 2F 2A 20 50  ret");...}../* P
0001A0: 65 72 66 6F 72 6D 20 73 75 62 72 6F 75 74 69 6E  erform subroutin
0001B0: 65 20 63 61 6C 6C 20 74 6F 20 63 61 6C 75 65 20  e call to calue 
0001C0: 6F 6E 20 74 6F 70 20 6F 66 20 73 74 61 63 6B 20  on top of stack 
0001D0: 2A 2F 0D 0A 63 61 6C 6C 73 74 6B 28 29 0D 0A 7B  */..callstk()..{
0001E0: 0D 0A 09 69 6D 6D 65 64 28 29 3B 0D 0A 09 6F 75  ...immed();...ou
0001F0: 74 73 74 72 28 22 53 2B 35 22 29 3B 0D 0A 09 6E  tstr("S+5");...n

Size : 512 (Real : 512)
000000: 6C 6C 28 22 40 67 63 68 61 72 73 73 22 29 3B 20  ll("@gcharss"); 
000010: 65 6C 73 65 20 63 61 6C 6C 28 22 40 67 63 68 61  else call("@gcha
000020: 72 73 6C 22 29 3B 0D 0A 09 64 65 66 76 61 6C 75  rsl");...defvalu
000030: 65 28 6F 66 66 29 3B 0D 0A 09 7D 0D 0A 2F 2A 09  e(off);...}../*.
000040: 09 09 09 09 09 09 2A 2F 0D 0A 2F 2A 09 72 65 77  ......*/../*.rew
000050: 72 69 74 74 65 6E 20 34 2F 33 30 2F 38 31 20 42  ritten 4/30/81 B
000060: 79 20 4D 69 6B 65 20 42 65 72 6E 73 6F 6E 09 09  y Mike Bernson..
000070: 2A 2F 0D 0A 2F 2A 09 09 09 09 09 09 09 2A 2F 09  */../*.......*/.
000080: 0D 0A 2F 2A 20 53 74 6F 72 65 20 74 68 65 20 70  ../* Store the p
000090: 72 69 6D 61 72 79 20 72 65 67 69 73 74 65 72 20  rimary register 
0000A0: 69 6E 74 6F 20 74 68 65 20 73 70 65 63 69 66 69  into the specifi
0000B0: 65 64 09 2A 2F 0D 0A 2F 2A 09 73 74 61 74 69 63  ed.*/../*.static
0000C0: 20 6D 65 6D 6F 72 79 09 09 09 09 09 2A 2F 0D 0A   memory.....*/..
0000D0: 70 75 74 6D 65 6D 28 73 6E 61 6D 65 2C 74 79 70  putmem(sname,typ
0000E0: 2C 6F 66 66 29 0D 0A 63 68 61 72 20 2A 73 6E 61  ,off)..char *sna
0000F0: 6D 65 3B 0D 0A 69 6E 74 20 74 79 70 3B 0D 0A 69  me;..int typ;..i
000100: 6E 74 20 6F 66 66 3B 0D 0A 7B 0D 0A 09 69 66 20  nt off;..{...if 
000110: 28 74 79 70 3D 3D 63 63 68 61 72 29 20 7B 0D 0A  (typ==cchar) {..
000120: 09 09 6F 6C 28 22 6D 6F 76 5C 74 61 2C 6C 22 29  ..ol("mov\ta,l")
000130: 3B 0D 0A 09 09 6F 74 28 22 73 74 61 5C 74 22 29  ;....ot("sta\t")
000140: 3B 0D 0A 09 09 7D 0D 0A 09 65 6C 73 65 20 6F 74  ;....}...else ot
000150: 28 22 73 68 6C 64 5C 74 22 29 3B 0D 0A 09 6F 75  ("shld\t");...ou
000160: 74 73 74 72 28 73 6E 61 6D 65 29 3B 0D 0A 09 69  tstr(sname);...i
000170: 66 20 28 6F 66 66 29 20 7B 0D 0A 09 09 6F 75 74  f (off) {....out
000180: 73 74 72 28 22 2B 22 29 3B 0D 0A 09 09 6F 75 74  str("+");....out
000190: 64 65 63 28 6F 66 66 29 3B 0D 0A 09 09 7D 0D 0A  dec(off);....}..
0001A0: 09 6E 6C 28 29 3B 0D 0A 09 7D 0D 0A 0D 0A 2F 2A  .nl();...}..../*
0001B0: 20 53 74 6F 72 65 20 74 68 65 20 73 70 65 63 69   Store the speci
0001C0: 66 69 65 64 20 6F 62 6A 65 63 74 20 74 79 70 65  fied object type
0001D0: 20 69 6E 20 74 68 65 20 70 72 69 6D 61 72 79 20   in the primary 
0001E0: 72 65 67 69 73 74 65 72 20 2A 2F 0D 0A 2F 2A 20  register */../* 
0001F0: 20 20 20 20 20 61 74 20 74 68 65 20 61 64 64 72       at the addr

Size : 512 (Real : 512)
000000: 6C 28 29 3B 0D 0A 09 73 77 61 70 73 74 6B 28 29  l();...swapstk()
000010: 3B 0D 0A 09 6F 6C 28 22 70 63 68 6C 22 29 3B 0D  ;...ol("pchl");.
000020: 0A 09 73 70 3D 73 70 2B 32 3B 0D 0A 09 7D 0D 0A  ..sp=sp+2;...}..
000030: 2F 2A 20 4A 75 6D 70 20 74 6F 20 73 70 65 63 69  /* Jump to speci
000040: 66 69 65 64 20 69 6E 74 65 72 6E 61 6C 20 6C 61  fied internal la
000050: 62 65 6C 20 6E 75 6D 62 65 72 20 2A 2F 0D 0A 6A  bel number */..j
000060: 75 6D 70 28 6C 61 62 65 6C 29 0D 0A 69 6E 74 20  ump(label)..int 
000070: 6C 61 62 65 6C 3B 0D 0A 7B 0D 0A 09 6F 74 28 22  label;..{...ot("
000080: 6A 6D 70 5C 74 22 29 3B 0D 0A 09 70 72 69 6E 74  jmp\t");...print
000090: 6C 61 62 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 09  label(label);...
0000A0: 6E 6C 28 29 3B 0D 0A 09 7D 0D 0A 2F 2A 20 74 65  nl();...}../* te
0000B0: 73 74 20 74 68 65 20 70 72 69 6D 61 72 79 20 72  st the primary r
0000C0: 65 67 69 73 74 65 72 20 61 6E 64 20 6A 75 6D 70  egister and jump
0000D0: 20 69 66 20 74 72 65 75 20 74 6F 20 6C 61 62 65   if treu to labe
0000E0: 6C 20 2A 2F 0D 0A 74 72 75 65 6A 75 6D 70 28 6C  l */..truejump(l
0000F0: 61 62 65 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E  abel,status)..in
000100: 74 20 6C 61 62 65 6C 3B 0D 0A 69 6E 74 20 73 74  t label;..int st
000110: 61 74 75 73 3B 0D 0A 7B 0D 0A 09 69 66 20 28 21  atus;..{...if (!
000120: 73 74 61 74 75 73 29 20 7B 0D 0A 09 09 6F 6C 28  status) {....ol(
000130: 22 6D 6F 76 5C 74 61 2C 68 22 29 3B 0D 0A 09 09  "mov\ta,h");....
000140: 6F 6C 28 22 6F 72 61 5C 74 6C 22 29 3B 0D 0A 09  ol("ora\tl");...
000150: 09 7D 0D 0A 09 6F 74 28 22 6A 6E 7A 5C 74 22 29  .}...ot("jnz\t")
000160: 3B 0D 0A 09 70 72 69 6E 74 6C 61 62 65 6C 28 6C  ;...printlabel(l
000170: 61 62 65 6C 29 3B 0D 0A 09 6E 6C 28 29 3B 0D 0A  abel);...nl();..
000180: 09 7D 0D 0A 0D 0A 0D 0A 2F 2A 20 54 65 73 74 20  .}....../* Test 
000190: 74 68 65 20 70 72 69 6D 61 72 79 20 72 65 67 69  the primary regi
0001A0: 73 74 65 72 20 61 6E 64 20 6A 75 6D 70 20 69 66  ster and jump if
0001B0: 20 66 61 6C 73 65 20 74 6F 20 6C 61 62 65 6C 20   false to label 
0001C0: 2A 2F 0D 0A 74 65 73 74 6A 75 6D 70 28 6C 61 62  */..testjump(lab
0001D0: 65 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E 74 20  el,status)..int 
0001E0: 6C 61 62 65 6C 3B 0D 0A 69 6E 74 20 73 74 61 74  label;..int stat
0001F0: 75 73 3B 0D 0A 7B 0D 0A 09 69 66 20 28 21 73 74  us;..{...if (!st

Size : 512 (Real : 512)
000000: 0D 0A 23 69 66 6E 64 65 66 20 54 52 55 45 20 20  ..#ifndef TRUE  
000010: 20 20 2F 2A 20 73 65 65 20 69 66 20 69 6E 63 6C    /* see if incl
000020: 75 64 65 20 6E 65 65 64 65 64 20 2A 2F 0D 0A 23  ude needed */..#
000030: 69 6E 63 6C 75 64 65 20 3C 43 2E 44 45 46 3E 0D  include <C.DEF>.
000040: 0A 23 65 6E 64 69 66 0D 0A 68 65 69 72 31 31 28  .#endif..heir11(
000050: 6C 76 61 6C 2C 73 74 61 74 75 73 29 0D 0A 69 6E  lval,status)..in
000060: 74 20 2A 6C 76 61 6C 3B 0D 0A 69 6E 74 20 2A 73  t *lval;..int *s
000070: 74 61 74 75 73 3B 0D 0A 7B 0D 0A 20 20 20 20 20  tatus;..{..     
000080: 20 20 20 69 6E 74 20 6B 3B 0D 0A 20 20 20 20 20     int k;..     
000090: 20 20 20 63 68 61 72 20 2A 70 74 72 3B 0D 0A 20     char *ptr;.. 
0000A0: 20 20 20 20 20 20 20 69 6E 74 20 20 6C 76 61 6C         int  lval
0000B0: 32 5B 6C 76 61 6C 73 69 7A 65 5D 3B 0D 0A 20 20  2[lvalsize];..  
0000C0: 20 20 20 20 20 20 6B 3D 70 72 69 6D 61 72 79 28        k=primary(
0000D0: 6C 76 61 6C 2C 73 74 61 74 75 73 29 3B 0D 0A 20  lval,status);.. 
0000E0: 20 20 20 20 20 20 20 70 74 72 3D 6C 76 61 6C 5B         ptr=lval[
0000F0: 30 5D 3B 0D 0A 20 20 20 20 20 20 20 20 62 6C 61  0];..        bla
000100: 6E 6B 73 28 29 3B 0D 0A 20 20 20 20 20 20 20 20  nks();..        
000110: 73 77 69 74 63 68 28 63 68 28 29 29 20 7B 0D 0A  switch(ch()) {..
000120: 0D 0A 09 20 20 20 20 20 20 20 20 2F 2A 20 73 75  ...        /* su
000130: 62 73 63 72 69 70 74 20 76 61 72 62 6C 65 20 20  bscript varble  
000140: 2A 2F 0D 0A 09 20 20 20 20 20 20 20 20 63 61 73  */...        cas
000150: 65 20 27 5B 27 20 3A 0D 0A 09 09 20 20 20 20 20  e '[' :....     
000160: 20 20 20 67 63 68 28 29 3B 20 20 2F 2A 20 65 61     gch();  /* ea
000170: 74 20 27 5B 27 20 2A 2F 0D 0A 09 09 20 20 20 20  t '[' */....    
000180: 20 20 20 20 73 77 69 74 63 68 28 70 74 72 5B 69      switch(ptr[i
000190: 64 65 6E 74 5D 29 20 7B 0D 0A 0D 0A 09 09 09 20  dent]) {....... 
0001A0: 20 20 20 20 20 20 20 2F 2A 20 61 72 72 61 79 20         /* array 
0001B0: 6F 66 20 65 6C 65 6D 65 6E 74 73 20 2A 2F 0D 0A  of elements */..
0001C0: 09 09 09 20 20 20 20 20 20 20 20 63 61 73 65 20  ...        case 
0001D0: 61 72 72 61 79 20 3A 0D 0A 09 09 09 09 09 2A 73  array :.......*s
0001E0: 74 61 74 75 73 3D 46 41 4C 53 45 3B 0D 0A 09 09  tatus=FALSE;....
0001F0: 09 09 09 2B 2B 6C 76 61 6C 5B 31 5D 3B 0D 0A 09  ...++lval[1];...

Size : 512 (Real : 512)
000000: 61 74 75 73 29 20 7B 0D 0A 09 09 6F 6C 28 22 6D  atus) {....ol("m
000010: 6F 76 5C 74 61 2C 68 22 29 3B 0D 0A 09 09 6F 6C  ov\ta,h");....ol
000020: 28 22 6F 72 61 5C 74 6C 22 29 3B 0D 0A 09 09 7D  ("ora\tl");....}
000030: 0D 0A 09 6F 74 28 22 6A 7A 5C 74 22 29 3B 0D 0A  ...ot("jz\t");..
000040: 09 70 72 69 6E 74 6C 61 62 65 6C 28 6C 61 62 65  .printlabel(labe
000050: 6C 29 3B 0D 0A 09 6E 6C 28 29 3B 0D 0A 09 7D 0D  l);...nl();...}.
000060: 0A 2F 2A 20 72 6F 75 74 69 6E 65 20 74 6F 20 73  ./* routine to s
000070: 65 61 72 63 68 20 73 77 69 74 63 68 20 74 61 62  earch switch tab
000080: 6C 65 20 2A 2F 0D 0A 65 78 65 63 5F 73 77 69 74  le */..exec_swit
000090: 63 68 28 63 6F 75 6E 74 2C 6C 61 62 65 6C 2C 65  ch(count,label,e
0000A0: 6E 64 5F 6C 61 62 65 6C 29 0D 0A 69 6E 74 20 63  nd_label)..int c
0000B0: 6F 75 6E 74 3B 09 2F 2A 20 6E 75 6D 62 65 72 20  ount;./* number 
0000C0: 6F 66 20 63 61 73 65 20 73 74 61 74 65 6D 65 6E  of case statemen
0000D0: 74 20 69 6E 20 73 77 69 74 63 68 20 2A 2F 0D 0A  t in switch */..
0000E0: 69 6E 74 20 6C 61 62 65 6C 3B 09 2F 2A 20 6C 61  int label;./* la
0000F0: 62 65 6C 20 66 6F 72 20 73 77 69 74 63 68 20 74  bel for switch t
000100: 61 62 6C 65 20 2A 2F 0D 0A 69 6E 74 20 65 6E 64  able */..int end
000110: 5F 6C 61 62 65 6C 3B 09 2F 2A 20 6C 61 62 65 6C  _label;./* label
000120: 20 74 6F 20 65 78 65 63 75 74 65 20 77 68 65 6E   to execute when
000130: 20 74 61 62 6C 65 20 73 65 61 72 63 68 20 65 6E   table search en
000140: 64 73 20 61 6E 64 20 6E 6F 74 20 66 6F 75 6E 64  ds and not found
000150: 20 2A 2F 0D 0A 7B 0D 0A 09 6F 74 28 22 6C 78 69   */..{...ot("lxi
000160: 5C 74 64 2C 22 29 3B 0D 0A 09 70 72 69 6E 74 6C  \td,");...printl
000170: 61 62 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 09 6E  abel(label);...n
000180: 6C 28 29 3B 0D 0A 09 6F 74 28 22 6C 78 69 5C 74  l();...ot("lxi\t
000190: 68 2C 22 29 3B 0D 0A 09 70 72 69 6E 74 6C 61 62  h,");...printlab
0001A0: 65 6C 28 65 6E 64 5F 6C 61 62 65 6C 29 3B 0D 0A  el(end_label);..
0001B0: 09 6E 6C 28 29 3B 0D 0A 09 6F 74 28 22 6D 76 69  .nl();...ot("mvi
0001C0: 5C 74 62 2C 22 29 3B 0D 0A 09 6F 75 74 64 65 63  \tb,");...outdec
0001D0: 28 63 6F 75 6E 74 29 3B 0D 0A 09 6E 6C 28 29 3B  (count);...nl();
0001E0: 0D 0A 09 6F 74 28 22 6A 6D 70 5C 74 40 73 77 69  ...ot("jmp\t@swi
0001F0: 74 63 68 22 29 3B 0D 0A 09 6E 6C 28 29 3B 0D 0A  tch");...nl();..

Size : 512 (Real : 512)
000000: 09 09 09 20 20 20 20 20 20 20 20 69 66 20 28 63  ...        if (c
000010: 6F 6E 73 74 5F 65 78 70 28 6C 76 61 6C 32 29 20  onst_exp(lval2) 
000020: 26 26 20 63 68 28 29 3D 3D 27 5D 27 29 20 7B 0D  && ch()==']') {.
000030: 0A 09 09 09 09 09 20 20 20 20 20 20 20 20 6C 76  ......        lv
000040: 61 6C 5B 32 5D 3D 64 61 74 61 5F 73 69 7A 65 28  al[2]=data_size(
000050: 6C 76 61 6C 29 2A 0D 0A 09 09 09 09 09 09 20 20  lval)*........  
000060: 20 20 20 20 20 20 6C 76 61 6C 32 5B 30 5D 3B 0D        lval2[0];.
000070: 0A 09 09 09 09 09 20 20 20 20 20 20 20 20 6E 65  ......        ne
000080: 65 64 62 72 61 63 6B 28 22 5D 22 29 3B 0D 0A 09  edbrack("]");...
000090: 09 09 09 09 20 20 20 20 20 20 20 20 72 65 74 75  ....        retu
0000A0: 72 6E 20 4E 4F 54 4C 4F 41 44 45 44 3B 0D 0A 09  rn NOTLOADED;...
0000B0: 09 09 09 09 20 20 20 20 20 20 20 20 7D 0D 0A 09  ....        }...
0000C0: 09 09 09 20 20 20 20 20 20 20 20 65 6C 73 65 20  ...        else 
0000D0: 7B 0D 0A 09 09 09 09 09 20 20 20 20 20 20 20 20  {.......        
0000E0: 65 78 70 72 65 73 73 69 6F 6E 28 29 3B 0D 0A 09  expression();...
0000F0: 09 09 09 09 20 20 20 20 20 20 20 20 73 69 7A 65  ....        size
000100: 5F 61 64 6A 75 73 74 28 6C 76 61 6C 29 3B 0D 0A  _adjust(lval);..
000110: 09 09 09 09 09 20 20 20 20 20 20 20 20 73 77 61  .....        swa
000120: 70 28 29 3B 0D 0A 09 09 09 09 09 20 20 20 20 20  p();.......     
000130: 20 20 20 61 64 64 72 65 73 73 28 6C 76 61 6C 2C     address(lval,
000140: 4E 4F 54 4C 4F 41 44 45 44 29 3B 0D 0A 09 09 09  NOTLOADED);.....
000150: 09 09 20 20 20 20 20 20 20 20 61 64 64 5F 61 64  ..        add_ad
000160: 64 72 65 73 73 28 29 3B 0D 0A 09 09 09 09 09 20  dress();....... 
000170: 20 20 20 20 20 20 20 6E 65 65 64 62 72 61 63 6B         needbrack
000180: 28 22 5D 22 29 3B 0D 0A 09 09 09 09 09 20 20 20  ("]");.......   
000190: 20 20 20 20 20 72 65 74 75 72 6E 20 41 44 44 52       return ADDR
0001A0: 45 53 53 3B 0D 0A 09 09 09 09 09 20 20 20 20 20  ESS;.......     
0001B0: 20 20 20 7D 0D 0A 0D 0A 09 09 09 20 20 20 20 20     }.......     
0001C0: 20 20 20 2F 2A 20 70 6F 69 6E 74 65 72 20 74 6F     /* pointer to
0001D0: 20 65 6C 65 6D 65 6E 74 73 20 2A 2F 0D 0A 09 09   elements */....
0001E0: 09 20 20 20 20 20 20 20 20 63 61 73 65 20 70 6F  .        case po
0001F0: 69 6E 74 65 72 3A 0D 0A 09 09 09 09 09 2A 73 74  inter:.......*st

Size : 512 (Real : 512)
000000: 09 7D 0D 0A 2F 2A 20 6F 75 74 70 75 74 20 65 78  .}../* output ex
000010: 74 72 6E 20 61 6E 64 20 73 79 6D 62 6F 6C 20 6E  trn and symbol n
000020: 61 6D 65 20 2A 2F 0D 0A 65 78 74 72 6E 28 6E 29  ame */..extrn(n)
000030: 0D 0A 63 68 61 72 20 2A 6E 3B 0D 0A 7B 0D 0A 09  ..char *n;..{...
000040: 6F 75 74 73 74 72 28 22 5C 74 65 78 74 72 6E 5C  outstr("\textrn\
000050: 74 22 29 3B 0D 0A 09 6F 75 74 73 74 72 28 6E 29  t");...outstr(n)
000060: 3B 6E 6C 28 29 3B 0D 0A 09 7D 0D 0A 0D 0A 2F 2A  ;nl();...}..../*
000070: 20 6F 75 74 70 75 74 20 63 6F 6E 74 72 6F 6C 20   output control 
000080: 73 65 63 74 69 6F 6E 20 20 6E 61 6D 65 20 61 6E  section  name an
000090: 64 20 6B 65 79 20 77 6F 72 64 20 2A 2F 0D 0A 63  d key word */..c
0000A0: 73 65 63 74 28 6E 29 0D 0A 63 68 61 72 20 2A 6E  sect(n)..char *n
0000B0: 3B 0D 0A 7B 0D 0A 09 6F 75 74 73 74 72 28 6E 29  ;..{...outstr(n)
0000C0: 3B 0D 0A 09 63 6F 6C 28 29 3B 0D 0A 09 6F 6C 28  ;...col();...ol(
0000D0: 22 43 53 45 43 54 22 29 3B 0D 0A 09 7D 0D 0A 0D  "CSECT");...}...
0000E0: 0A 2F 2A 20 6F 75 74 70 75 74 20 64 61 74 61 20  ./* output data 
0000F0: 73 65 63 74 69 6F 6E 20 6E 61 6D 65 20 61 6E 64  section name and
000100: 20 6B 65 79 20 77 6F 72 64 20 2A 2F 0D 0A 64 73   key word */..ds
000110: 65 63 74 28 6E 29 0D 0A 63 68 61 72 20 2A 6E 3B  ect(n)..char *n;
000120: 0D 0A 7B 0D 0A 09 6F 75 74 73 74 72 28 6E 29 3B  ..{...outstr(n);
000130: 0D 0A 09 63 6F 6C 28 29 3B 0D 0A 09 6F 6C 28 22  ...col();...ol("
000140: 64 73 65 63 74 22 29 3B 0D 0A 09 7D 0D 0A 2F 2A  dsect");...}../*
000150: 20 64 65 66 69 6E 65 20 76 61 6C 75 65 20 75 73   define value us
000160: 69 6E 67 20 6D 69 6E 20 61 6D 6F 75 6E 74 20 6F  ing min amount o
000170: 66 20 73 74 72 6F 61 67 65 20 73 70 61 63 65 20  f stroage space 
000180: 2A 2F 0D 0A 64 65 66 76 61 6C 75 65 28 6E 75 6D  */..defvalue(num
000190: 29 0D 0A 69 6E 74 20 6E 75 6D 3B 0D 0A 7B 0D 0A  )..int num;..{..
0001A0: 09 69 66 20 28 69 73 62 79 74 65 28 6E 75 6D 29  .if (isbyte(num)
0001B0: 29 20 64 65 66 62 79 74 65 28 29 3B 20 65 6C 73  ) defbyte(); els
0001C0: 65 20 64 65 66 77 6F 72 64 28 29 3B 0D 0A 09 6F  e defword();...o
0001D0: 75 74 64 65 63 28 6E 75 6D 29 3B 0D 0A 09 6E 6C  utdec(num);...nl
0001E0: 28 29 3B 0D 0A 09 7D 0D 0A 0D 0A 2F 2A 20 63 68  ();...}..../* ch
0001F0: 65 63 6B 20 74 6F 20 73 65 65 20 69 66 20 6E 75  eck to see if nu