SectorData v1.3

CRTC Source Code Collection Volume 1 (UK) (Face A) (1997) [EDUCATIF].dsk

Choose sector :

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: 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 64 2C 28 68  ...; |...ld d,(h
000010: 6C 29 3A 20 65 78 20 64 65 2C 68 6C 3A 20 6C 64  l): ex de,hl: ld
000020: 20 64 65 2C 26 43 30 30 30 3A 20 63 61 6C 6C 20   de,&C000: call 
000030: 26 42 43 37 37 09 3B 4F 70 65 6E 20 66 69 6C 65  &BC77.;Open file
000040: 0D 0A 09 6C 64 20 68 6C 2C 63 68 72 73 65 74 3A  ...ld hl,chrset:
000050: 20 63 61 6C 6C 20 26 42 43 38 33 3A 20 63 61 6C   call &BC83: cal
000060: 6C 20 26 42 43 37 41 09 09 3B 52 65 61 64 20 66  l &BC7A..;Read f
000070: 69 6C 65 20 69 6E 20 61 6E 64 20 63 6C 6F 73 65  ile in and close
000080: 0D 0A 0D 0A 2E 63 68 72 6D 6F 64 09 6C 64 20 68  .....chrmod.ld h
000090: 6C 2C 63 68 72 73 65 74 2B 26 33 38 30 3A 20 6C  l,chrset+&380: l
0000A0: 64 20 62 63 2C 37 3A 20 6C 64 20 28 68 6C 29 2C  d bc,7: ld (hl),
0000B0: 30 09 09 3B 50 61 74 63 68 20 66 6F 72 20 73 6F  0..;Patch for so
0000C0: 66 74 20 73 70 61 63 65 0D 0A 09 6C 64 20 64 65  ft space...ld de
0000D0: 2C 63 68 72 73 65 74 2B 26 33 38 31 3A 20 6C 64  ,chrset+&381: ld
0000E0: 69 72 3A 20 72 65 74 09 09 09 3B 20 7C 0D 0A 0D  ir: ret...; |...
0000F0: 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 44 49 53 50  ..;*** RSX.|DISP
000100: 4C 41 59 2C 40 6B 65 79 24 0D 0A 0D 0A 2E 64 69  LAY,@key$.....di
000110: 73 70 5F 69 09 63 70 20 31 3A 20 72 65 74 20 6E  sp_i.cp 1: ret n
000120: 7A 09 09 09 09 09 3B 47 65 74 20 73 74 72 69 6E  z.....;Get strin
000130: 67 20 61 64 64 72 65 73 73 0D 0A 09 6C 64 20 6C  g address...ld l
000140: 2C 28 69 78 29 3A 20 6C 64 20 68 2C 28 69 78 2B  ,(ix): ld h,(ix+
000150: 31 29 09 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 61  1)....; |...ld a
000160: 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 3A 20 63  ,(hl): inc hl: c
000170: 70 20 31 3A 20 72 65 74 20 6E 7A 09 09 09 3B 4D  p 1: ret nz...;M
000180: 75 73 74 20 62 65 20 6F 6E 65 20 63 68 61 72 20  ust be one char 
000190: 6C 6F 6E 67 0D 0A 09 6C 64 20 65 2C 28 68 6C 29  long...ld e,(hl)
0001A0: 3A 20 69 6E 63 20 68 6C 09 09 09 09 3B 20 7C 0D  : inc hl....; |.
0001B0: 0A 09 6C 64 20 64 2C 28 68 6C 29 3A 20 6C 64 20  ..ld d,(hl): ld 
0001C0: 28 72 65 74 6B 2B 31 29 2C 64 65 09 09 09 3B 20  (retk+1),de...; 
0001D0: 7C 0D 0A 0D 0A 09 6C 64 20 61 2C 32 3A 20 63 61  |.....ld a,2: ca
0001E0: 6C 6C 20 26 42 43 30 45 0D 0A 09 6C 64 20 68 6C  ll &BC0E...ld hl
0001F0: 2C 26 33 30 30 30 3A 20 6C 64 20 28 63 72 74 63  ,&3000: ld (crtc

Size : 512 (Real : 512)
000000: 00 52 45 41 44 20 20 20 20 4D 45 20 00 00 00 00  .READ    ME ....
000010: 00 00 0A 00 00 F0 01 00 66 03 00 00 00 00 00 00  ........f.......
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000040: 66 03 00 1B 04 6E 20 63 75 72 73 6F 72 20 75 70  f....n cursor up
000050: 2F 64 6F 77 6E 20 61 6E 64 20 50 2C 20 0D 8A 77  /down and P, ..w
000060: 68 69 63 68 20 70 72 69 6E 74 73 29 2C 20 69 74  hich prints), it
000070: 20 77 69 6C 6C 20 62 65 20 72 65 74 75 72 6E 65   will be returne
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 E2 54 68 65 20 45 75 72 6F 57        .The EuroW
0000A0: 41 43 43 49 20 74 65 78 74 20 72 65 61 64 65 72  ACCI text reader
0000B0: E2 0D 0A 0D 0A 54 6F 20 69 6E 69 74 69 61 6C 69  .....To initiali
0000C0: 73 65 20 74 68 65 20 52 53 58 73 2C 20 74 79 70  se the RSXs, typ
0000D0: 65 0D 0A 0D 0A E9 20 20 20 20 20 20 20 20 4D 45  e.....        ME
0000E0: 4D 4F 52 59 20 26 33 46 46 46 0D 0A 20 20 20 20  MORY &3FFF..    
0000F0: 20 20 20 20 4C 4F 41 44 20 22 74 65 78 74 72 65      LOAD "textre
000100: 61 64 2E 62 69 6E 22 0D 0A 20 20 20 20 20 20 20  ad.bin"..       
000110: 20 43 41 4C 4C 20 26 38 30 30 30 E9 0D 0A 0D 0A   CALL &8000.....
000120: 59 6F 75 20 77 69 6C 6C 20 74 68 65 6E 20 68 61  You will then ha
000130: 76 65 20 74 68 72 65 65 20 62 72 61 6E 64 90 20  ve three brand. 
000140: 6E 65 77 90 20 63 6F 6D 6D 61 6E 64 73 90 20 72  new. commands. r
000150: 65 61 64 79 20 66 6F 72 20 61 63 74 69 6F 6E 2C  eady for action,
000160: 20 61 73 20 69 74 20 0D 8A 77 65 72 65 2E 0D 0A   as it ..were...
000170: 0D 0A E2 7C 41 52 54 2E 4C 4F 41 44 2C 22 66 69  ...|ART.LOAD,"fi
000180: 6C 65 6E 61 6D 65 22 E2 0D 0A 4C 6F 61 64 20 61  lename"...Load a
000190: 20 73 74 61 6E 64 61 72 64 20 50 72 6F 74 65 78   standard Protex
0001A0: 74 20 66 69 6C 65 20 69 6E 74 6F 20 6D 65 6D 6F  t file into memo
0001B0: 72 79 20 2D 20 6D 61 78 69 6D 75 6D 20 6C 65 6E  ry - maximum len
0001C0: 67 74 68 20 31 36 6B 2E 0D 0A 0D 0A E2 7C 43 48  gth 16k......|CH
0001D0: 52 2E 4C 4F 41 44 2C 22 66 69 6C 65 6E 61 6D 65  R.LOAD,"filename
0001E0: 22 E2 0D 0A 4C 6F 61 64 20 61 20 63 68 61 72 61  "...Load a chara
0001F0: 63 74 65 72 20 73 65 74 90 20 69 6E 74 6F 90 20  cter set. into.

Size : 512 (Real : 512)
000000: 00 54 45 58 54 52 45 41 44 44 4F 43 00 00 00 08  .TEXTREADDOC....
000010: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000020: 00 54 45 58 54 52 45 41 44 53 52 43 00 00 00 3B  .TEXTREADSRC...;
000030: 03 04 05 06 07 08 09 0A 00 00 00 00 00 00 00 00  ................
000040: 00 49 4D 41 47 45 20 20 20 53 52 43 00 00 00 41  .IMAGE   SRC...A
000050: 0B 0C 0D 0E 0F 10 11 12 13 00 00 00 00 00 00 00  ................
000060: 00 4F 52 47 41 4E 49 53 45 53 52 43 00 00 00 80  .ORGANISESRC....
000070: 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F 20 21 22 23  ............ !"#
000080: 00 4F 52 47 41 4E 49 53 45 53 52 43 01 00 00 80  .ORGANISESRC....
000090: 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F 30 31 32 33  $%&'()*+,-./0123
0000A0: 00 4F 52 47 41 4E 49 53 45 53 52 43 02 00 00 06  .ORGANISESRC....
0000B0: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  4...............
0000C0: 00 54 4F 4F 4C 4B 49 54 20 53 52 43 00 00 00 80  .TOOLKIT SRC....
0000D0: 35 36 37 38 39 3A 3B 3C 3D 3E 3F 40 41 42 43 44  56789:;<=>?@ABCD
0000E0: 00 54 4F 4F 4C 4B 49 54 20 53 52 43 01 00 00 4A  .TOOLKIT SRC...J
0000F0: 45 46 47 48 49 4A 4B 4C 4D 4E 00 00 00 00 00 00  EFGHIJKLMN......
000100: 00 53 44 4F 53 31 20 20 20 53 52 43 00 00 00 80  .SDOS1   SRC....
000110: 4F 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E  OPQRSTUVWXYZ[\]^
000120: 00 53 44 4F 53 31 20 20 20 53 52 43 01 00 00 17  .SDOS1   SRC....
000130: 5F 60 61 00 00 00 00 00 00 00 00 00 00 00 00 00  _`a.............
000140: E5 54 41 4D 53 49 4E 20 20 42 41 4B 00 00 00 68  .TAMSIN  BAK...h
000150: 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 00 00 00  bcdefghijklmn...
000160: 00 50 4C 55 53 38 42 49 54 53 52 43 00 00 00 0A  .PLUS8BITSRC....
000170: 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00  op..............
000180: 00 53 50 45 4C 4C 20 20 20 53 52 43 00 00 00 80  .SPELL   SRC....
000190: 71 72 73 74 75 76 77 78 79 7A 7B 7C 7D 7E 7F 80  qrstuvwxyz{|}~..
0001A0: 00 53 50 45 4C 4C 20 20 20 53 52 43 01 00 00 80  .SPELL   SRC....
0001B0: 81 82 83 84 85 86 87 88 89 8A 8B 8C 8D 8E 8F 90  ................
0001C0: 00 53 50 45 4C 4C 20 20 20 53 52 43 02 00 00 0F  .SPELL   SRC....
0001D0: 91 92 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 54 41 4D 53 49 4E 20 20 53 52 43 00 00 00 67  .TAMSIN  SRC...g
0001F0: 93 94 95 A3 A4 A5 A6 A7 A8 A9 AA AB AC 00 00 00  ................

Size : 512 (Real : 512)
000000: 6D 65 6D 6F 72 79 2E 90 20 54 6F 90 20 72 65 74  memory.. To. ret
000010: 61 69 6E 20 34 36 34 20 63 6F 6D 70 61 74 69 62  ain 464 compatib
000020: 69 6C 69 74 79 2C 20 74 68 65 20 0D 8A 62 65 73  ility, the ..bes
000030: 74 20 77 61 79 20 74 6F 20 75 73 65 20 74 68 65  t way to use the
000040: 20 6C 61 73 74 20 74 77 6F 20 63 6F 6D 6D 61 6E   last two comman
000050: 64 73 20 69 73 20 E9 61 24 3D 22 66 69 6C 65 6E  ds is .a$="filen
000060: 61 6D 65 22 3A 7C 41 52 54 2E 4C 4F 41 44 2C 40  ame":|ART.LOAD,@
000070: 61 24 E9 2E 0D 0A 0D 0A E2 61 24 3D 22 20 22 3A  a$.......a$=" ":
000080: 7C 44 49 53 50 4C 41 59 2C 40 61 24 E2 0D 0A 44  |DISPLAY,@a$...D
000090: 69 73 70 6C 61 79 73 20 74 68 65 20 74 65 78 74  isplays the text
0000A0: 20 66 69 6C 65 20 6F 6E 20 73 63 72 65 65 6E 3A   file on screen:
0000B0: 90 20 63 75 72 73 6F 72 90 20 75 70 20 61 6E 64  . cursor. up and
0000C0: 20 64 6F 77 6E 20 74 6F 20 73 63 72 6F 6C 6C 2E   down to scroll.
0000D0: 20 4D 61 6B 65 20 0D 8A 73 75 72 65 20 E9 53 50   Make ..sure .SP
0000E0: 45 45 44 20 4B 45 59 20 32 35 2C 31 E9 20 69 73  EED KEY 25,1. is
0000F0: 20 73 65 74 20 66 6F 72 20 62 65 73 74 20 72 65   set for best re
000100: 73 75 6C 74 73 2E 0D 0A 20 20 50 72 6F 74 65 78  sults...  Protex
000110: 74 20 62 6F 6C 64 20 61 6E 64 20 69 74 61 6C 69  t bold and itali
000120: 63 20 63 6F 6D 6D 61 6E 64 73 20 61 72 65 90 20  c commands are. 
000130: 75 6E 64 65 72 73 74 6F 6F 64 2C 20 62 75 74 20  understood, but 
000140: 6E 6F 74 68 69 6E 67 20 65 6C 73 65 20 2D 20 0D  nothing else - .
000150: 8A 6E 6F 74 20 65 76 65 6E 20 74 61 62 73 2E 20  .not even tabs. 
000160: 49 66 20 61 20 6B 65 79 20 69 73 90 20 70 72 65  If a key is. pre
000170: 73 73 65 64 90 20 28 6F 74 68 65 72 20 74 68 61  ssed. (other tha
000180: 6E 20 63 75 72 73 6F 72 20 75 70 2F 64 6F 77 6E  n cursor up/down
000190: 20 61 6E 64 20 50 2C 20 0D 8A 77 68 69 63 68 20   and P, ..which 
0001A0: 70 72 69 6E 74 73 29 2C 20 69 74 20 77 69 6C 6C  prints), it will
0001B0: 20 62 65 20 72 65 74 75 72 6E 65 64 20 69 6E 20   be returned in 
0001C0: 61 24 2E 0D 0A 0D 0A 43 6F 64 65 20 28 63 29 20  a$.....Code (c) 
0001D0: 31 39 39 37 20 43 52 54 43 2F 53 79 73 74 65 6D  1997 CRTC/System
0001E0: 65 20 44 2E 0D 0A 1A 6E 65 64 20 69 6E 20 61 24  e D....ned in a$
0001F0: 2E 0D 0A 0D 0A 43 6F 64 65 20 28 63 29 20 31 39  .....Code (c) 19

Size : 512 (Real : 512)
000000: 00 2D 52 45 41 44 20 20 20 4D 45 20 00 00 00 13  .-READ   ME ....
000010: 96 A1 A2 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000020: 00 4D 41 43 42 55 47 53 20 53 52 43 00 00 00 4F  .MACBUGS SRC...O
000030: 97 98 99 9A 9B 9C 9D 9E 9F A0 00 00 00 00 00 00  ................
000040: E5 2D 52 45 41 44 20 20 20 42 41 4B 00 00 00 10  .-READ   BAK....
000050: A1 A2 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
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 3B 45 75 72 6F 57 41 43 43 49 20 74 65  ...;EuroWACCI te
000010: 78 74 20 72 65 61 64 65 72 0D 0A 09 3B 28 63 29  xt reader...;(c)
000020: 20 31 39 39 37 20 43 52 54 43 2F 53 79 73 74 65   1997 CRTC/Syste
000030: 6D 65 20 44 0D 0A 0D 0A 09 6F 72 67 20 26 38 30  me D.....org &80
000040: 30 30 0D 0A 09 77 72 69 74 65 20 22 74 65 78 74  00...write "text
000050: 72 65 61 64 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69  read.bin"...noli
000060: 73 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 49 4E 49 54  st.....;*** INIT
000070: 09 49 6E 69 74 69 61 6C 69 73 65 20 52 53 58 73  .Initialise RSXs
000080: 0D 0A 0D 0A 2E 69 6E 69 72 73 78 09 6C 64 20 61  .....inirsx.ld a
000090: 2C 26 43 39 3A 20 6C 64 20 28 69 6E 69 72 73 78  ,&C9: ld (inirsx
0000A0: 29 2C 61 0D 0A 09 6C 64 20 62 63 2C 63 6F 6D 5F  ),a...ld bc,com_
0000B0: 74 0D 0A 09 6C 64 20 68 6C 2C 77 6B 73 70 0D 0A  t...ld hl,wksp..
0000C0: 09 63 61 6C 6C 20 26 42 43 44 31 0D 0A 0D 0A 09  .call &BCD1.....
0000D0: 63 61 6C 6C 20 26 42 39 30 36 09 09 09 09 09 3B  call &B906.....;
0000E0: 43 6F 70 79 20 52 4F 4D 20 63 68 61 72 61 63 74  Copy ROM charact
0000F0: 65 72 73 0D 0A 09 6C 64 20 68 6C 2C 26 33 39 30  ers...ld hl,&390
000100: 30 3A 20 6C 64 20 64 65 2C 63 68 72 73 65 74 09  0: ld de,chrset.
000110: 09 09 3B 20 7C 0D 0A 09 6C 64 20 62 63 2C 26 30  ..; |...ld bc,&0
000120: 37 30 30 3A 20 6C 64 69 72 09 09 09 09 3B 20 7C  700: ldir....; |
000130: 0D 0A 09 63 61 6C 6C 20 26 42 39 30 39 3A 20 63  ...call &B909: c
000140: 61 6C 6C 20 63 68 72 6D 6F 64 3A 20 72 65 74 09  all chrmod: ret.
000150: 09 09 3B 20 7C 0D 0A 0D 0A 2E 63 6F 6D 5F 74 09  ..; |.....com_t.
000160: 64 77 20 6E 61 6D 65 5F 74 0D 0A 09 6A 70 20 61  dw name_t...jp a
000170: 72 74 6C 5F 69 0D 0A 09 6A 70 20 63 68 72 6C 5F  rtl_i...jp chrl_
000180: 69 0D 0A 09 6A 70 20 64 69 73 70 5F 69 0D 0A 0D  i...jp disp_i...
000190: 0A 2E 6E 61 6D 65 5F 74 09 73 74 72 20 22 41 52  ..name_t.str "AR
0001A0: 54 2E 4C 4F 41 44 22 0D 0A 09 73 74 72 20 22 43  T.LOAD"...str "C
0001B0: 48 52 2E 4C 4F 41 44 22 0D 0A 09 73 74 72 20 22  HR.LOAD"...str "
0001C0: 44 49 53 50 4C 41 59 22 0D 0A 09 64 62 20 30 0D  DISPLAY"...db 0.
0001D0: 0A 0D 0A 2E 77 6B 73 70 09 64 73 20 34 0D 0A 0D  ....wksp.ds 4...
0001E0: 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 41 52 54 2E  ..;*** RSX.|ART.
0001F0: 4C 4F 41 44 2C 22 66 69 6C 65 6E 61 6D 65 22 0D  LOAD,"filename".

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: 0A 0D 0A 2E 61 72 74 6C 5F 69 09 63 70 20 31 3A  ....artl_i.cp 1:
000010: 20 72 65 74 20 6E 7A 0D 0A 09 6C 64 20 6C 2C 28   ret nz...ld l,(
000020: 69 78 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29  ix): ld h,(ix+1)
000030: 09 09 09 09 3B 47 65 74 20 66 69 6C 65 6E 61 6D  ....;Get filenam
000040: 65 0D 0A 09 6C 64 20 62 2C 28 68 6C 29 3A 20 69  e...ld b,(hl): i
000050: 6E 63 20 68 6C 09 09 09 09 3B 20 7C 0D 0A 09 6C  nc hl....; |...l
000060: 64 20 65 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C  d e,(hl): inc hl
000070: 09 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 64 2C 28  ....; |...ld d,(
000080: 68 6C 29 3A 20 65 78 20 64 65 2C 68 6C 3A 20 6C  hl): ex de,hl: l
000090: 64 20 64 65 2C 26 43 30 30 30 3A 20 63 61 6C 6C  d de,&C000: call
0000A0: 20 26 42 43 37 37 09 3B 4F 70 65 6E 20 66 69 6C   &BC77.;Open fil
0000B0: 65 0D 0A 09 70 75 73 68 20 68 6C 3A 20 70 6F 70  e...push hl: pop
0000C0: 20 69 78 09 09 09 09 09 3B 46 69 64 64 6C 65 20   ix.....;Fiddle 
0000D0: 68 65 61 64 65 72 0D 0A 09 6C 64 20 28 69 78 2B  header...ld (ix+
0000E0: 36 35 29 2C 32 35 35 3A 20 6C 64 20 28 69 78 2B  65),255: ld (ix+
0000F0: 36 36 29 2C 30 09 09 09 3B 20 7C 0D 0A 09 6C 64  66),0...; |...ld
000100: 20 68 6C 2C 26 34 30 30 32 3A 20 63 61 6C 6C 20   hl,&4002: call 
000110: 26 42 43 38 33 3A 20 63 61 6C 6C 20 26 42 43 37  &BC83: call &BC7
000120: 41 09 09 3B 52 65 61 64 20 66 69 6C 65 20 69 6E  A..;Read file in
000130: 20 61 6E 64 20 63 6C 6F 73 65 0D 0A 09 6C 64 20   and close...ld 
000140: 68 6C 2C 26 30 41 30 44 3A 20 6C 64 20 28 26 34  hl,&0A0D: ld (&4
000150: 30 30 30 29 2C 68 6C 3A 20 72 65 74 09 09 09 3B  000),hl: ret...;
000160: 46 61 6B 65 20 43 52 2F 4C 46 0D 0A 0D 0A 0D 0A  Fake CR/LF......
000170: 09 3B 2A 2A 2A 20 52 53 58 09 7C 43 48 52 2E 4C  .;*** RSX.|CHR.L
000180: 4F 41 44 2C 22 66 69 6C 65 6E 61 6D 65 22 0D 0A  OAD,"filename"..
000190: 0D 0A 2E 63 68 72 6C 5F 69 09 63 70 20 31 3A 20  ...chrl_i.cp 1: 
0001A0: 72 65 74 20 6E 7A 0D 0A 09 6C 64 20 6C 2C 28 69  ret nz...ld l,(i
0001B0: 78 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29 09  x): ld h,(ix+1).
0001C0: 09 09 09 3B 47 65 74 20 66 69 6C 65 6E 61 6D 65  ...;Get filename
0001D0: 0D 0A 09 6C 64 20 62 2C 28 68 6C 29 3A 20 69 6E  ...ld b,(hl): in
0001E0: 63 20 68 6C 09 09 09 09 3B 20 7C 0D 0A 09 6C 64  c hl....; |...ld
0001F0: 20 65 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 09   e,(hl): inc hl.

Size : 512 (Real : 512)
000000: 09 3B 20 7C 0D 0A 2E 63 68 62 6F 6C 64 09 6C 64  .; |...chbold.ld
000010: 20 61 2C 69 3A 20 78 6F 72 20 32 3A 20 6C 64 20   a,i: xor 2: ld 
000020: 69 2C 61 3A 20 6A 72 20 6C 69 6E 65 6C 70 09 09  i,a: jr linelp..
000030: 3B 20 7C 0D 0A 0D 0A 2E 65 6F 6C 69 6E 65 09 69  ; |.....eoline.i
000040: 6E 63 20 69 78 09 09 09 09 09 09 3B 53 6B 69 70  nc ix......;Skip
000050: 20 4C 46 0D 0A 2E 77 69 70 65 6C 70 09 64 62 20   LF...wipelp.db 
000060: 26 46 44 3A 20 6C 64 20 61 2C 68 3A 20 63 70 20  &FD: ld a,h: cp 
000070: 38 30 3A 20 72 65 74 20 6E 63 09 09 09 3B 52 65  80: ret nc...;Re
000080: 74 75 72 6E 20 69 66 20 61 6C 6C 20 38 30 20 64  turn if all 80 d
000090: 6F 6E 65 0D 0A 09 6C 64 20 62 2C 33 32 3A 20 63  one...ld b,32: c
0000A0: 61 6C 6C 20 63 68 61 72 3A 20 64 62 20 26 46 44  all char: db &FD
0000B0: 3A 20 69 6E 63 20 68 3A 20 6A 72 20 77 69 70 65  : inc h: jr wipe
0000C0: 6C 70 09 3B 20 7C 20 77 69 70 65 20 72 65 73 74  lp.; | wipe rest
0000D0: 20 6F 66 20 6C 69 6E 65 0D 0A 0D 0A 0D 0A 09 3B   of line.......;
0000E0: 2D 2D 2D 20 73 75 62 72 09 43 68 61 72 61 63 74  --- subr.Charact
0000F0: 65 72 20 70 72 69 6E 74 0D 0A 09 3B 09 09 4F 6E  er print...;..On
000100: 20 65 6E 74 72 79 2C 20 41 20 63 6F 6E 74 61 69   entry, A contai
000110: 6E 73 20 41 53 43 49 49 20 63 6F 64 65 2C 20 44  ns ASCII code, D
000120: 45 20 73 63 72 65 65 6E 20 61 64 64 72 65 73 73  E screen address
000130: 0D 0A 0D 0A 2E 63 68 61 72 09 70 75 73 68 20 64  .....char.push d
000140: 65 0D 0A 09 20 6C 64 20 6C 2C 62 3A 20 6C 64 20  e... ld l,b: ld 
000150: 68 2C 30 3A 20 61 64 64 20 68 6C 2C 68 6C 3A 20  h,0: add hl,hl: 
000160: 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68  add hl,hl: add h
000170: 6C 2C 68 6C 0D 0A 09 20 6C 64 20 62 63 2C 63 68  l,hl... ld bc,ch
000180: 72 73 65 74 2D 32 35 36 3A 20 61 64 64 20 68 6C  rset-256: add hl
000190: 2C 62 63 3A 20 6C 64 20 63 2C 38 0D 0A 09 20 6C  ,bc: ld c,8... l
0001A0: 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28 64 65  d a,(hl): ld (de
0001B0: 29 2C 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64 64  ),a: ld a,d: add
0001C0: 20 63 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63 20   c: ld d,a: inc 
0001D0: 68 6C 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A  hl... ld a,(hl):
0001E0: 20 6C 64 20 28 64 65 29 2C 61 3A 20 6C 64 20 61   ld (de),a: ld a
0001F0: 2C 64 3A 20 61 64 64 20 63 3A 20 6C 64 20 64 2C  ,d: add c: ld d,

Size : 512 (Real : 512)
000000: 28 69 78 29 09 09 09 09 3B 20 7C 0D 0A 09 63 70  (ix)....; |...cp
000010: 20 26 45 32 3A 20 6A 72 20 7A 2C 73 63 62 6F 6C   &E2: jr z,scbol
000020: 64 09 09 09 09 3B 20 7C 0D 0A 09 63 70 20 26 45  d....; |...cp &E
000030: 39 3A 20 6A 72 20 7A 2C 73 63 69 74 61 6C 09 09  9: jr z,scital..
000040: 09 09 3B 20 7C 0D 0A 09 63 70 20 26 30 44 3A 20  ..; |...cp &0D: 
000050: 6A 72 20 7A 2C 73 63 72 5F 70 6C 20 20 3A 20 6A  jr z,scr_pl  : j
000060: 72 20 73 63 72 5F 6C 70 09 09 3B 20 7C 0D 0A 2E  r scr_lp..; |...
000070: 73 63 62 6F 6C 64 09 6C 64 20 61 2C 69 3A 20 78  scbold.ld a,i: x
000080: 6F 72 20 32 3A 20 6C 64 20 69 2C 61 3A 20 6A 72  or 2: ld i,a: jr
000090: 20 73 63 72 5F 6C 70 09 09 3B 20 7C 0D 0A 2E 73   scr_lp..; |...s
0000A0: 63 69 74 61 6C 09 6C 64 20 61 2C 69 3A 20 78 6F  cital.ld a,i: xo
0000B0: 72 20 31 3A 20 6C 64 20 69 2C 61 3A 20 6A 72 20  r 1: ld i,a: jr 
0000C0: 73 63 72 5F 6C 70 09 09 3B 20 7C 0D 0A 2E 73 63  scr_lp..; |...sc
0000D0: 72 5F 70 6C 09 69 6E 63 20 69 78 3A 20 69 6E 63  r_pl.inc ix: inc
0000E0: 20 69 78 3A 20 6C 64 20 28 6C 69 6E 65 74 62 29   ix: ld (linetb)
0000F0: 2C 69 78 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 61  ,ix...; |...ld a
000100: 2C 69 3A 20 6C 64 20 28 6C 69 6E 65 74 62 2B 34  ,i: ld (linetb+4
000110: 29 2C 61 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C  ),a....; |.....l
000120: 64 20 68 6C 2C 28 6C 69 6E 65 74 62 2B 37 29 3A  d hl,(linetb+7):
000130: 20 6C 64 20 64 65 2C 2D 38 30 3A 20 61 64 64 20   ld de,-80: add 
000140: 68 6C 2C 64 65 09 09 3B 46 69 6E 64 20 73 63 72  hl,de..;Find scr
000150: 65 65 6E 20 61 64 64 72 65 73 73 0D 0A 09 62 69  een address...bi
000160: 74 20 36 2C 68 3A 20 6A 72 20 6E 7A 2C 73 63 72  t 6,h: jr nz,scr
000170: 5F 73 61 3A 20 6C 64 20 64 65 2C 26 38 30 30 3A  _sa: ld de,&800:
000180: 20 61 64 64 20 68 6C 2C 64 65 09 3B 20 7C 0D 0A   add hl,de.; |..
000190: 2E 73 63 72 5F 73 61 09 6C 64 20 28 6C 69 6E 65  .scr_sa.ld (line
0001A0: 74 62 2B 32 29 2C 68 6C 09 09 09 09 3B 20 7C 0D  tb+2),hl....; |.
0001B0: 0A 0D 0A 09 6C 64 20 69 78 2C 28 6C 69 6E 65 74  ....ld ix,(linet
0001C0: 62 2B 30 29 09 09 09 09 3B 50 72 69 6E 74 20 6C  b+0)....;Print l
0001D0: 69 6E 65 0D 0A 09 6C 64 20 64 65 2C 28 6C 69 6E  ine...ld de,(lin
0001E0: 65 74 62 2B 32 29 09 09 09 09 3B 20 7C 0D 0A 09  etb+2)....; |...
0001F0: 6C 64 20 61 20 2C 28 6C 69 6E 65 74 62 2B 34 29  ld a ,(linetb+4)

Size : 512 (Real : 512)
000000: 61 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 6C 64 20  a: inc hl... ld 
000010: 61 2C 28 68 6C 29 3A 20 6C 64 20 28 64 65 29 2C  a,(hl): ld (de),
000020: 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64 64 20 63  a: ld a,d: add c
000030: 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63 20 68 6C  : ld d,a: inc hl
000040: 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20 6C  ... ld a,(hl): l
000050: 64 20 28 64 65 29 2C 61 3A 20 6C 64 20 61 2C 64  d (de),a: ld a,d
000060: 3A 20 61 64 64 20 63 3A 20 6C 64 20 64 2C 61 3A  : add c: ld d,a:
000070: 20 69 6E 63 20 68 6C 0D 0A 2E 63 68 61 72 5F 63   inc hl...char_c
000080: 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20  . ld a,(hl): ld 
000090: 28 64 65 29 2C 61 3A 20 6C 64 20 61 2C 64 3A 20  (de),a: ld a,d: 
0000A0: 61 64 64 20 63 3A 20 6C 64 20 64 2C 61 3A 20 69  add c: ld d,a: i
0000B0: 6E 63 20 68 6C 0D 0A 09 20 6C 64 20 61 2C 28 68  nc hl... ld a,(h
0000C0: 6C 29 3A 20 6C 64 20 28 64 65 29 2C 61 3A 20 6C  l): ld (de),a: l
0000D0: 64 20 61 2C 64 3A 20 61 64 64 20 63 3A 20 6C 64  d a,d: add c: ld
0000E0: 20 64 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A 09 20   d,a: inc hl... 
0000F0: 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28 64  ld a,(hl): ld (d
000100: 65 29 2C 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64  e),a: ld a,d: ad
000110: 64 20 63 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63  d c: ld d,a: inc
000120: 20 68 6C 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29   hl... ld a,(hl)
000130: 3A 20 6C 64 20 28 64 65 29 2C 61 0D 0A 09 70 6F  : ld (de),a...po
000140: 70 20 64 65 3A 20 69 6E 63 20 64 65 3A 20 72 65  p de: inc de: re
000150: 73 20 33 2C 64 3A 20 6C 64 20 61 2C 32 35 35 3A  s 3,d: ld a,255:
000160: 20 72 65 74 0D 0A 0D 0A 2E 63 68 61 72 5F 69 09   ret.....char_i.
000170: 70 75 73 68 20 64 65 0D 0A 09 20 6C 64 20 6C 2C  push de... ld l,
000180: 62 3A 20 6C 64 20 68 2C 30 3A 20 61 64 64 20 68  b: ld h,0: add h
000190: 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68 6C 3A  l,hl: add hl,hl:
0001A0: 20 61 64 64 20 68 6C 2C 68 6C 0D 0A 09 20 6C 64   add hl,hl... ld
0001B0: 20 62 63 2C 63 68 72 73 65 74 2D 32 35 36 3A 20   bc,chrset-256: 
0001C0: 61 64 64 20 68 6C 2C 62 63 3A 20 6C 64 20 63 2C  add hl,bc: ld c,
0001D0: 38 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20  8... ld a,(hl): 
0001E0: 72 72 61 3A 20 6C 64 20 28 64 65 29 2C 61 3A 20  rra: ld (de),a: 
0001F0: 6C 64 20 61 2C 64 3A 20 61 64 64 20 63 3A 20 6C  ld a,d: add c: l

Size : 512 (Real : 512)
000000: 3A 20 6C 64 20 69 2C 61 3A 20 63 61 6C 6C 20 6C  : ld i,a: call l
000010: 69 6E 65 3A 20 6A 70 20 64 69 73 70 6C 70 09 3B  ine: jp displp.;
000020: 20 7C 0D 0A 0D 0A 09 3B 2B 2B 2B 20 73 65 63 74   |.....;+++ sect
000030: 09 53 63 72 6F 6C 6C 20 64 6F 77 6E 20 6F 6E 65  .Scroll down one
000040: 20 6C 69 6E 65 0D 0A 0D 0A 2E 73 63 72 5F 64 6E   line.....scr_dn
000050: 09 6C 64 20 68 6C 2C 28 6C 69 6E 65 74 62 2B 31  .ld hl,(linetb+1
000060: 32 35 29 3A 20 6C 64 20 61 2C 28 68 6C 29 3A 63  25): ld a,(hl):c
000070: 70 20 32 36 3A 6A 70 20 7A 2C 64 69 73 70 6C 70  p 26:jp z,displp
000080: 09 3B 45 6E 64 20 6F 66 20 66 69 6C 65 3F 0D 0A  .;End of file?..
000090: 0D 0A 09 6C 64 20 68 6C 2C 6C 69 6E 65 74 62 2B  ...ld hl,linetb+
0000A0: 35 3A 20 6C 64 20 62 63 2C 31 32 35 09 09 09 3B  5: ld bc,125...;
0000B0: 4D 6F 76 65 20 74 61 62 6C 65 0D 0A 09 6C 64 20  Move table...ld 
0000C0: 64 65 2C 6C 69 6E 65 74 62 20 20 3A 20 6C 64 69  de,linetb  : ldi
0000D0: 72 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64 20  r....; |.....ld 
0000E0: 68 6C 2C 28 63 72 74 63 29 3A 20 6C 64 20 64 65  hl,(crtc): ld de
0000F0: 2C 34 30 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20  ,40: add hl,de: 
000100: 72 65 73 20 32 2C 68 09 3B 53 63 72 6F 6C 6C 20  res 2,h.;Scroll 
000110: 64 6F 77 6E 0D 0A 09 6C 64 20 28 63 72 74 63 29  down...ld (crtc)
000120: 2C 68 6C 09 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09  ,hl.....; |.....
000130: 6C 64 20 69 78 2C 28 6C 69 6E 65 74 62 2B 31 32  ld ix,(linetb+12
000140: 30 29 09 09 09 09 3B 50 72 69 6E 74 20 6E 65 78  0)....;Print nex
000150: 74 20 6C 69 6E 65 0D 0A 09 6C 64 20 64 65 2C 28  t line...ld de,(
000160: 6C 69 6E 65 74 62 2B 31 32 32 29 09 09 09 09 3B  linetb+122)....;
000170: 20 7C 0D 0A 09 6C 64 20 61 20 2C 28 6C 69 6E 65   |...ld a ,(line
000180: 74 62 2B 31 32 34 29 3A 20 6C 64 20 69 2C 61 3A  tb+124): ld i,a:
000190: 20 63 61 6C 6C 20 6C 69 6E 65 3A 20 6C 64 20 61   call line: ld a
0001A0: 2C 69 09 3B 20 7C 0D 0A 09 6C 64 20 28 6C 69 6E  ,i.; |...ld (lin
0001B0: 65 74 62 2B 31 32 35 29 2C 69 78 09 09 09 09 3B  etb+125),ix....;
0001C0: 53 74 6F 72 65 20 6E 65 77 20 65 6E 64 20 76 61  Store new end va
0001D0: 6C 75 65 73 0D 0A 09 6C 64 20 28 6C 69 6E 65 74  lues...ld (linet
0001E0: 62 2B 31 32 37 29 2C 64 65 09 09 09 09 3B 20 7C  b+127),de....; |
0001F0: 0D 0A 09 6C 64 20 28 6C 69 6E 65 74 62 2B 31 32  ...ld (linetb+12

Size : 512 (Real : 512)
000000: 64 20 64 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A 09  d d,a: inc hl...
000010: 20 6C 64 20 61 2C 28 68 6C 29 3A 20 72 72 61 3A   ld a,(hl): rra:
000020: 20 6C 64 20 28 64 65 29 2C 61 3A 20 6C 64 20 61   ld (de),a: ld a
000030: 2C 64 3A 20 61 64 64 20 63 3A 20 6C 64 20 64 2C  ,d: add c: ld d,
000040: 61 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 6C 64 20  a: inc hl... ld 
000050: 61 2C 28 68 6C 29 3A 20 72 72 61 3A 20 6C 64 20  a,(hl): rra: ld 
000060: 28 64 65 29 2C 61 3A 20 6C 64 20 61 2C 64 3A 20  (de),a: ld a,d: 
000070: 61 64 64 20 63 3A 20 6C 64 20 64 2C 61 3A 20 69  add c: ld d,a: i
000080: 6E 63 20 68 6C 0D 0A 09 20 6C 64 20 61 2C 28 68  nc hl... ld a,(h
000090: 6C 29 3A 20 72 72 61 3A 20 6C 64 20 28 64 65 29  l): rra: ld (de)
0000A0: 2C 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64 64 20  ,a: ld a,d: add 
0000B0: 63 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63 20 68  c: ld d,a: inc h
0000C0: 6C 3A 20 6A 72 20 63 68 61 72 5F 63 0D 0A 0D 0A  l: jr char_c....
0000D0: 2E 63 68 61 72 5F 62 09 70 75 73 68 20 64 65 0D  .char_b.push de.
0000E0: 0A 09 20 6C 64 20 6C 2C 62 3A 20 6C 64 20 68 2C  .. ld l,b: ld h,
0000F0: 30 3A 20 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64  0: add hl,hl: ad
000100: 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C  d hl,hl: add hl,
000110: 68 6C 0D 0A 09 20 6C 64 20 62 63 2C 63 68 72 73  hl... ld bc,chrs
000120: 65 74 2D 32 35 36 3A 20 61 64 64 20 68 6C 2C 62  et-256: add hl,b
000130: 63 3A 20 6C 64 20 63 2C 38 0D 0A 09 20 6C 64 20  c: ld c,8... ld 
000140: 61 2C 28 68 6C 29 3A 20 6C 64 20 62 2C 61 3A 72  a,(hl): ld b,a:r
000150: 72 61 3A 6F 72 20 62 3A 20 6C 64 20 28 64 65 29  ra:or b: ld (de)
000160: 2C 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64 64 20  ,a: ld a,d: add 
000170: 63 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63 20 68  c: ld d,a: inc h
000180: 6C 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20  l... ld a,(hl): 
000190: 6C 64 20 62 2C 61 3A 72 72 61 3A 6F 72 20 62 3A  ld b,a:rra:or b:
0001A0: 20 6C 64 20 28 64 65 29 2C 61 3A 20 6C 64 20 61   ld (de),a: ld a
0001B0: 2C 64 3A 20 61 64 64 20 63 3A 20 6C 64 20 64 2C  ,d: add c: ld d,
0001C0: 61 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 6C 64 20  a: inc hl... ld 
0001D0: 61 2C 28 68 6C 29 3A 20 6C 64 20 62 2C 61 3A 72  a,(hl): ld b,a:r
0001E0: 72 61 3A 6F 72 20 62 3A 20 6C 64 20 28 64 65 29  ra:or b: ld (de)
0001F0: 2C 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64 64 20  ,a: ld a,d: add

Size : 512 (Real : 512)
000000: 39 29 2C 61 3A 20 6A 70 20 64 69 73 70 6C 70 09  9),a: jp displp.
000010: 09 09 3B 20 7C 0D 0A 0D 0A 09 3B 2B 2B 2B 20 73  ..; |.....;+++ s
000020: 65 63 74 09 50 72 69 6E 74 20 61 72 74 69 63 6C  ect.Print articl
000030: 65 0D 0A 0D 0A 2E 70 72 69 6E 74 09 6C 64 20 69  e.....print.ld i
000040: 78 2C 26 34 30 30 32 0D 0A 2E 70 72 6E 74 6C 70  x,&4002...prntlp
000050: 09 6C 64 20 61 2C 28 69 78 29 0D 0A 09 63 70 20  .ld a,(ix)...cp 
000060: 26 39 30 3A 20 6A 72 20 7A 2C 70 72 5F 73 70 63  &90: jr z,pr_spc
000070: 0D 0A 09 63 70 20 26 38 41 3A 20 6A 72 20 7A 2C  ...cp &8A: jr z,
000080: 70 72 5F 6C 66 0D 0A 09 63 70 20 26 45 39 3A 20  pr_lf...cp &E9: 
000090: 6A 72 20 7A 2C 70 72 5F 69 74 61 0D 0A 09 63 70  jr z,pr_ita...cp
0000A0: 20 26 45 32 3A 20 6A 72 20 7A 2C 70 72 5F 62 6C   &E2: jr z,pr_bl
0000B0: 64 0D 0A 09 63 70 20 26 31 41 3A 20 6A 70 20 7A  d...cp &1A: jp z
0000C0: 2C 64 69 73 70 6C 70 3A 20 6A 72 20 70 72 5F 63  ,displp: jr pr_c
0000D0: 68 72 0D 0A 0D 0A 2E 70 72 5F 73 70 63 09 6C 64  hr.....pr_spc.ld
0000E0: 20 61 2C 22 20 22 3A 20 6A 72 20 70 72 5F 63 68   a," ": jr pr_ch
0000F0: 72 0D 0A 2E 70 72 5F 6C 66 09 6C 64 20 61 2C 31  r...pr_lf.ld a,1
000100: 30 20 3A 20 6A 72 20 70 72 5F 63 68 72 0D 0A 2E  0 : jr pr_chr...
000110: 70 72 5F 69 74 61 09 6C 64 20 61 2C 32 37 3A 20  pr_ita.ld a,27: 
000120: 63 61 6C 6C 20 64 6F 5F 70 72 3A 20 6A 70 20 6E  call do_pr: jp n
000130: 63 2C 64 69 73 70 6C 70 0D 0A 09 6C 64 20 61 2C  c,displp...ld a,
000140: 28 69 74 61 6C 73 77 29 3A 20 78 6F 72 20 31 0D  (italsw): xor 1.
000150: 0A 09 6C 64 20 28 69 74 61 6C 73 77 29 2C 61 3A  ..ld (italsw),a:
000160: 20 6A 72 20 70 72 5F 63 68 72 0D 0A 2E 70 72 5F   jr pr_chr...pr_
000170: 62 6C 64 09 6C 64 20 61 2C 32 37 3A 20 63 61 6C  bld.ld a,27: cal
000180: 6C 20 64 6F 5F 70 72 3A 20 6A 70 20 6E 63 2C 64  l do_pr: jp nc,d
000190: 69 73 70 6C 70 0D 0A 09 6C 64 20 61 2C 28 62 6F  isplp...ld a,(bo
0001A0: 6C 64 73 77 29 3A 20 78 6F 72 20 33 0D 0A 09 6C  ldsw): xor 3...l
0001B0: 64 20 28 62 6F 6C 64 73 77 29 2C 61 3A 20 6A 72  d (boldsw),a: jr
0001C0: 20 70 72 5F 63 68 72 0D 0A 2E 70 72 5F 63 68 72   pr_chr...pr_chr
0001D0: 09 63 61 6C 6C 20 64 6F 5F 70 72 3A 20 6A 70 20  .call do_pr: jp 
0001E0: 6E 63 2C 64 69 73 70 6C 70 0D 0A 09 69 6E 63 20  nc,displp...inc 
0001F0: 69 78 3A 20 6A 72 20 70 72 6E 74 6C 70 0D 0A 0D  ix: jr prntlp...

Size : 512 (Real : 512)
000000: 29 2C 68 6C 0D 0A 0D 0A 09 78 6F 72 20 61 3A 20  ),hl.....xor a: 
000010: 6C 64 20 69 2C 61 3A 20 6C 64 20 64 65 2C 26 43  ld i,a: ld de,&C
000020: 30 30 30 3A 20 6C 64 20 69 78 2C 26 34 30 30 32  000: ld ix,&4002
000030: 09 09 3B 50 72 69 6E 74 20 69 6E 69 74 69 61 6C  ..;Print initial
000040: 20 73 63 72 65 65 6E 0D 0A 09 6C 64 20 69 79 2C   screen...ld iy,
000050: 6C 69 6E 65 74 62 3A 20 63 61 6C 6C 20 70 75 74  linetb: call put
000060: 76 61 6C 3A 20 6C 64 20 62 2C 32 35 09 09 3B 20  val: ld b,25..; 
000070: 7C 20 63 72 65 61 74 69 6E 67 20 74 61 62 6C 65  | creating table
000080: 0D 0A 2E 69 6E 69 74 6C 70 09 70 75 73 68 20 69  ...initlp.push i
000090: 79 3A 20 70 75 73 68 20 62 63 3A 20 63 61 6C 6C  y: push bc: call
0000A0: 20 6C 69 6E 65 09 09 09 3B 20 7C 0D 0A 09 70 6F   line...; |...po
0000B0: 70 20 20 62 63 3A 20 70 6F 70 20 20 69 79 3A 20  p  bc: pop  iy: 
0000C0: 63 61 6C 6C 20 70 75 74 76 61 6C 3A 20 64 6A 6E  call putval: djn
0000D0: 7A 20 69 6E 69 74 6C 70 09 3B 20 7C 0D 0A 0D 0A  z initlp.; |....
0000E0: 2E 64 69 73 70 6C 70 09 6C 64 20 68 6C 2C 28 63  .displp.ld hl,(c
0000F0: 72 74 63 29 09 09 09 09 09 3B 53 65 6E 64 20 73  rtc).....;Send s
000100: 63 72 65 65 6E 20 61 64 64 72 65 73 73 0D 0A 09  creen address...
000110: 6C 64 20 62 63 2C 26 42 43 30 43 3A 20 6F 75 74  ld bc,&BC0C: out
000120: 20 28 63 29 2C 63 3A 20 69 6E 63 20 62 3A 20 6F   (c),c: inc b: o
000130: 75 74 20 28 63 29 2C 68 09 3B 20 7C 0D 0A 09 6C  ut (c),h.; |...l
000140: 64 20 62 63 2C 26 42 43 30 44 3A 20 6F 75 74 20  d bc,&BC0D: out 
000150: 28 63 29 2C 63 3A 20 69 6E 63 20 62 3A 20 6F 75  (c),c: inc b: ou
000160: 74 20 28 63 29 2C 6C 09 3B 20 7C 0D 0A 0D 0A 09  t (c),l.; |.....
000170: 63 61 6C 6C 20 26 42 42 30 36 09 09 09 09 09 3B  call &BB06.....;
000180: 47 65 74 20 6B 65 79 0D 0A 09 63 70 20 32 34 30  Get key...cp 240
000190: 3A 20 6A 70 20 7A 20 2C 73 63 72 5F 75 70 09 09  : jp z ,scr_up..
0001A0: 09 09 3B 20 7C 0D 0A 09 63 70 20 32 34 31 3A 20  ..; |...cp 241: 
0001B0: 6A 70 20 7A 20 2C 73 63 72 5F 64 6E 09 09 09 09  jp z ,scr_dn....
0001C0: 3B 20 7C 0D 0A 09 63 70 20 22 70 22 3A 20 6A 70  ; |...cp "p": jp
0001D0: 20 7A 20 2C 70 72 69 6E 74 09 09 09 09 3B 20 7C   z ,print....; |
0001E0: 0D 0A 09 63 70 20 22 50 22 3A 20 6A 70 20 7A 20  ...cp "P": jp z 
0001F0: 2C 70 72 69 6E 74 09 09 09 09 3B 20 7C 0D 0A 0D  ,print....; |...

Size : 512 (Real : 512)
000000: 0A 09 3B 09 09 50 72 69 6E 74 20 61 20 63 68 61  ..;..Print a cha
000010: 72 61 63 74 65 72 0D 0A 0D 0A 2E 64 6F 5F 70 72  racter.....do_pr
000020: 09 63 61 6C 6C 20 26 42 44 32 42 3A 20 72 65 74  .call &BD2B: ret
000030: 20 63 20 3A 20 6C 64 20 62 2C 61 0D 0A 09 63 61   c : ld b,a...ca
000040: 6C 6C 20 26 42 42 30 39 3A 20 63 70 20 32 35 32  ll &BB09: cp 252
000050: 3A 20 6C 64 20 61 2C 62 3A 20 72 65 74 20 7A 3A  : ld a,b: ret z:
000060: 20 6A 72 20 64 6F 5F 70 72 0D 0A 0D 0A 0D 0A 09   jr do_pr.......
000070: 3B 2D 2D 2D 20 73 75 62 72 09 50 72 69 6E 74 20  ;--- subr.Print 
000080: 74 65 78 74 20 6C 69 6E 65 0D 0A 0D 0A 2E 6C 69  text line.....li
000090: 6E 65 09 64 62 20 26 46 44 3A 20 6C 64 20 68 2C  ne.db &FD: ld h,
0000A0: 30 0D 0A 2E 6C 69 6E 65 6C 70 09 6C 64 20 61 2C  0...linelp.ld a,
0000B0: 28 69 78 29 3A 20 69 6E 63 20 69 78 0D 0A 09 63  (ix): inc ix...c
0000C0: 70 20 31 33 20 3A 20 6A 72 20 7A 20 2C 65 6F 6C  p 13 : jr z ,eol
0000D0: 69 6E 65 0D 0A 09 63 70 20 26 45 30 3A 20 6A 72  ine...cp &E0: jr
0000E0: 20 6E 63 2C 62 6F 6C 64 69 74 3A 20 6C 64 20 62   nc,boldit: ld b
0000F0: 2C 61 0D 0A 0D 0A 09 6C 64 20 61 2C 69 3A 20 6F  ,a.....ld a,i: o
000100: 72 20 20 61 3A 20 63 61 6C 6C 20 7A 2C 63 68 61  r  a: call z,cha
000110: 72 09 09 09 3B 4E 6F 72 6D 61 6C 20 63 68 61 72  r...;Normal char
000120: 61 63 74 65 72 0D 0A 09 09 64 65 63 20 61 3A 20  acter....dec a: 
000130: 63 61 6C 6C 20 7A 2C 63 68 61 72 5F 69 09 09 09  call z,char_i...
000140: 3B 20 7C 0D 0A 09 09 64 65 63 20 61 3A 20 63 61  ; |....dec a: ca
000150: 6C 6C 20 7A 2C 63 68 61 72 5F 62 09 09 09 3B 20  ll z,char_b...; 
000160: 7C 0D 0A 09 09 64 65 63 20 61 3A 20 63 61 6C 6C  |....dec a: call
000170: 20 7A 2C 63 68 61 72 62 69 09 09 09 3B 20 7C 0D   z,charbi...; |.
000180: 0A 09 64 62 20 26 46 44 3A 20 69 6E 63 20 68 3A  ..db &FD: inc h:
000190: 20 6A 72 20 6C 69 6E 65 6C 70 09 09 09 3B 20 7C   jr linelp...; |
0001A0: 0D 0A 0D 0A 2E 62 6F 6C 64 69 74 09 63 70 20 26  .....boldit.cp &
0001B0: 45 32 3A 20 6A 72 20 7A 2C 63 68 62 6F 6C 64 09  E2: jr z,chbold.
0001C0: 09 09 09 3B 54 6F 67 67 6C 65 20 73 74 79 6C 65  ...;Toggle style
0001D0: 20 62 79 74 65 0D 0A 2E 63 68 69 74 61 6C 09 6C   byte...chital.l
0001E0: 64 20 61 2C 69 3A 20 78 6F 72 20 31 3A 20 6C 64  d a,i: xor 1: ld
0001F0: 20 69 2C 61 3A 20 6A 72 20 6C 69 6E 65 6C 70 09   i,a: jr linelp.

Size : 512 (Real : 512)
000000: 0A 2E 72 65 74 6B 09 6C 64 20 68 6C 2C 30 09 09  ..retk.ld hl,0..
000010: 09 09 09 09 3B 52 65 74 75 72 6E 20 6B 65 79 70  ....;Return keyp
000020: 72 65 73 73 0D 0A 09 6C 64 20 28 68 6C 29 2C 61  ress...ld (hl),a
000030: 3A 20 72 65 74 09 09 09 09 09 3B 20 7C 0D 0A 0D  : ret.....; |...
000040: 0A 09 3B 2B 2B 2B 20 73 65 63 74 09 53 63 72 6F  ..;+++ sect.Scro
000050: 6C 6C 20 75 70 20 6F 6E 65 20 6C 69 6E 65 0D 0A  ll up one line..
000060: 0D 0A 2E 73 63 72 5F 75 70 09 6C 64 20 68 6C 2C  ...scr_up.ld hl,
000070: 28 6C 69 6E 65 74 62 29 3A 20 6C 64 20 64 65 2C  (linetb): ld de,
000080: 26 34 30 30 33 09 09 09 3B 53 74 61 72 74 20 6F  &4003...;Start o
000090: 66 20 74 65 78 74 3F 0D 0A 09 6F 72 20 61 3A 20  f text?...or a: 
0000A0: 73 62 63 20 68 6C 2C 64 65 3A 20 6A 70 20 63 2C  sbc hl,de: jp c,
0000B0: 64 69 73 70 6C 70 09 09 09 3B 20 7C 0D 0A 0D 0A  displp...; |....
0000C0: 09 6C 64 20 68 6C 2C 6C 69 6E 65 74 62 2B 31 32  .ld hl,linetb+12
0000D0: 34 3A 20 6C 64 20 62 63 2C 31 32 35 09 09 09 3B  4: ld bc,125...;
0000E0: 4D 6F 76 65 20 74 61 62 6C 65 0D 0A 09 6C 64 20  Move table...ld 
0000F0: 64 65 2C 6C 69 6E 65 74 62 2B 31 32 39 3A 20 6C  de,linetb+129: l
000100: 64 64 72 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C  ddr....; |.....l
000110: 64 20 68 6C 2C 28 63 72 74 63 29 3A 20 6C 64 20  d hl,(crtc): ld 
000120: 64 65 2C 2D 34 30 3A 20 61 64 64 20 68 6C 2C 64  de,-40: add hl,d
000130: 65 09 09 3B 53 63 72 6F 6C 6C 20 75 70 0D 0A 09  e..;Scroll up...
000140: 62 69 74 20 34 2C 68 3A 20 6A 72 20 6E 7A 2C 73  bit 4,h: jr nz,s
000150: 63 72 5F 63 74 3A 20 6C 64 20 64 65 2C 31 30 32  cr_ct: ld de,102
000160: 34 3A 20 61 64 64 20 68 6C 2C 64 65 09 3B 20 7C  4: add hl,de.; |
000170: 0D 0A 2E 73 63 72 5F 63 74 09 6C 64 20 28 63 72  ...scr_ct.ld (cr
000180: 74 63 29 2C 68 6C 09 09 09 09 09 3B 20 7C 0D 0A  tc),hl.....; |..
000190: 0D 0A 09 6C 64 20 69 78 2C 28 6C 69 6E 65 74 62  ...ld ix,(linetb
0001A0: 2B 35 29 3A 20 64 65 63 20 69 78 3A 20 64 65 63  +5): dec ix: dec
0001B0: 20 69 78 09 09 3B 46 69 6E 64 20 70 72 65 76 69   ix..;Find previ
0001C0: 6F 75 73 20 6C 69 6E 65 0D 0A 09 6C 64 20 61 20  ous line...ld a 
0001D0: 2C 28 6C 69 6E 65 74 62 2B 39 29 3A 20 6C 64 20  ,(linetb+9): ld 
0001E0: 69 2C 61 09 09 09 3B 20 7C 0D 0A 2E 73 63 72 5F  i,a...; |...scr_
0001F0: 6C 70 09 64 65 63 20 69 78 3A 20 6C 64 20 61 2C  lp.dec ix: ld a,

Size : 512 (Real : 512)
000000: 69 73 63 65 6C 6C 61 6E 65 6F 75 73 0D 0A 09 3B  iscellaneous...;
000010: 09 09 30 2F 31 20 74 65 78 74 20 61 64 64 72 65  ..0/1 text addre
000020: 73 73 0D 0A 09 3B 09 09 32 2F 33 20 73 63 72 65  ss...;..2/3 scre
000030: 65 6E 20 61 64 64 72 65 73 73 0D 0A 09 3B 09 09  en address...;..
000040: 34 20 20 20 73 74 79 6C 65 20 62 79 74 65 20 2D  4   style byte -
000050: 20 62 30 20 69 74 61 6C 69 63 2C 20 62 31 20 62   b0 italic, b1 b
000060: 6F 6C 64 0D 0A 0D 0A 2E 6C 69 6E 65 74 62 09 64  old.....linetb.d
000070: 73 20 31 33 30 0D 0A 0D 0A 2E 63 72 74 63 09 64  s 130.....crtc.d
000080: 77 20 26 33 30 30 30 09 09 09 09 09 3B 43 52 54  w &3000.....;CRT
000090: 43 20 72 65 67 69 73 74 65 72 73 20 31 32 2F 31  C registers 12/1
0000A0: 33 0D 0A 2E 63 68 72 73 65 74 09 64 73 20 26 37  3...chrset.ds &7
0000B0: 30 30 09 09 09 09 09 09 3B 43 68 61 72 61 63 74  00......;Charact
0000C0: 65 72 20 73 65 74 0D 0A 2E 69 74 61 6C 73 77 09  er set...italsw.
0000D0: 64 62 20 22 35 22 09 09 09 09 09 09 3B 50 72 69  db "5"......;Pri
0000E0: 6E 74 65 72 20 73 77 69 74 63 68 65 73 0D 0A 2E  nter switches...
0000F0: 62 6F 6C 64 73 77 09 64 62 20 22 46 22 09 09 09  boldsw.db "F"...
000100: 09 09 09 3B 20 7C 0D 0A 1A 44 24 24 24 FF 00 FF  ...; |...D$$$...
000110: 78 74 20 72 65 61 64 65 72 0D 0A 09 3B 28 63 29  xt reader...;(c)
000120: 20 31 39 39 37 20 43 52 54 43 2F 53 79 73 74 65   1997 CRTC/Syste
000130: 6D 65 20 44 0D 0A 0D 0A 09 6F 72 67 20 26 38 30  me D.....org &80
000140: 30 30 0D 0A 09 77 72 69 74 65 20 22 74 65 78 74  00...write "text
000150: 72 65 61 64 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69  read.bin"...noli
000160: 73 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 49 4E 49 54  st.....;*** INIT
000170: 09 49 6E 69 74 69 61 6C 69 73 65 20 52 53 58 73  .Initialise RSXs
000180: 69 0D 0A 09 6C 64 20 28 69 79 2B 30 29 2C 6C 3A  i...ld (iy+0),l:
000190: 20 6C 64 20 28 69 79 2B 31 29 2C 68 0D 0A 09 6C   ld (iy+1),h...l
0001A0: 64 20 28 69 79 2B 32 29 2C 65 3A 20 6C 64 20 28  d (iy+2),e: ld (
0001B0: 69 79 2B 33 29 2C 64 0D 0A 09 6C 64 20 28 69 79  iy+3),d...ld (iy
0001C0: 2B 34 29 2C 61 3A 20 69 6E 63 20 69 79 3A 69 6E  +4),a: inc iy:in
0001D0: 63 20 69 79 3A 69 6E 63 20 69 79 3A 69 6E 63 20  c iy:inc iy:inc 
0001E0: 69 79 3A 69 6E 63 20 69 79 3A 20 72 65 74 0D 0A  iy:inc iy: ret..
0001F0: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 56 41 52 49 09 4D  .....;*** VARI.M

Size : 512 (Real : 512)
000000: 3A 20 6C 64 20 63 2C 61 09 09 09 3B 20 7C 0D 0A  : ld c,a...; |..
000010: 09 20 6C 64 20 61 2C 28 70 6F 73 29 3A 20 6F 72  . ld a,(pos): or
000020: 20 61 3A 20 6A 70 20 7A 2C 6E 6F 73 70 61 63 3A   a: jp z,nospac:
000030: 20 6C 64 20 62 2C 61 09 3B 44 6F 6E 27 74 20 62   ld b,a.;Don't b
000040: 6F 74 68 65 72 20 69 66 20 62 75 66 66 65 72 20  other if buffer 
000050: 65 6D 70 74 79 0D 0A 0D 0A 2E 73 70 63 5F 6C 70  empty.....spc_lp
000060: 09 20 6C 64 20 61 2C 28 69 78 29 3A 20 63 70 20  . ld a,(ix): cp 
000070: 32 37 3A 20 6A 72 20 6E 7A 2C 6E 6F 74 65 73 63  27: jr nz,notesc
000080: 09 09 3B 45 53 43 61 70 65 20 63 6F 64 65 3F 0D  ..;ESCape code?.
000090: 0A 09 20 6C 64 20 61 2C 28 69 78 2B 31 29 3A 20  .. ld a,(ix+1): 
0000A0: 63 70 20 22 50 22 3A 20 6A 72 20 7A 20 2C 70 69  cp "P": jr z ,pi
0000B0: 63 61 09 3B 20 7C 20 77 68 61 74 20 69 73 20 69  ca.; | what is i
0000C0: 74 3F 0D 0A 09 09 20 20 20 20 20 20 63 70 20 22  t?....      cp "
0000D0: 4D 22 3A 20 6A 72 20 7A 20 2C 65 6C 69 74 65 09  M": jr z ,elite.
0000E0: 3B 20 7C 20 20 7C 0D 0A 09 09 20 20 20 20 20 20  ; |  |....      
0000F0: 63 70 20 22 45 22 3A 20 6A 72 20 7A 20 2C 6F 74  cp "E": jr z ,ot
000100: 68 65 72 09 3B 20 7C 20 20 7C 0D 0A 09 09 20 20  her.; |  |....  
000110: 20 20 20 20 63 70 20 22 46 22 3A 20 6A 72 20 7A      cp "F": jr z
000120: 20 2C 6F 74 68 65 72 09 3B 20 7C 20 20 7C 0D 0A   ,other.; |  |..
000130: 09 09 20 20 20 20 20 20 63 70 20 22 34 22 3A 20  ..      cp "4": 
000140: 6A 72 20 7A 20 2C 73 65 74 69 74 61 09 3B 20 7C  jr z ,setita.; |
000150: 20 20 7C 0D 0A 09 09 20 20 20 20 20 20 63 70 20    |....      cp 
000160: 22 35 22 3A 20 6A 72 20 7A 20 2C 72 65 73 69 74  "5": jr z ,resit
000170: 61 09 3B 20 7C 20 20 7C 0D 0A 09 09 20 20 20 20  a.; |  |....    
000180: 20 20 63 70 20 22 2D 22 3A 20 6A 72 20 7A 20 2C    cp "-": jr z ,
000190: 6F 74 68 65 72 32 09 3B 20 7C 20 20 7C 0D 0A 09  other2.; |  |...
0001A0: 09 20 20 20 20 20 20 63 70 20 22 70 22 3A 20 6A  .      cp "p": j
0001B0: 72 20 6E 7A 2C 6F 74 68 65 72 09 3B 20 7C 20 20  r nz,other.; |  
0001C0: 7C 0D 0A 09 20 6C 64 20 61 2C 28 69 78 2B 32 29  |... ld a,(ix+2)
0001D0: 3A 20 63 70 20 22 31 22 3A 20 6A 72 20 7A 20 2C  : cp "1": jr z ,
0001E0: 70 72 70 5F 6F 6E 09 3B 20 7C 20 20 7C 0D 0A 09  prp_on.; |  |...
0001F0: 20 09 20 20 20 20 20 20 63 70 20 20 31 20 3A 20   .      cp  1 :

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: 6A 72 20 7A 20 2C 70 72 70 5F 6F 6E 09 3B 20 7C  jr z ,prp_on.; |
000010: 20 20 7C 0D 0A 09 20 6C 64 20 61 2C 28 70 72 76    |... ld a,(prv
000020: 70 74 63 29 3A 20 6C 64 20 64 65 2C 33 3A 20 6A  ptc): ld de,3: j
000030: 72 20 64 6E 5F 70 74 63 09 3B 20 7C 20 70 72 6F  r dn_ptc.; | pro
000040: 70 6F 72 74 69 6F 6E 61 6C 20 6F 66 66 0D 0A 2E  portional off...
000050: 70 72 70 5F 6F 6E 09 20 6C 64 20 61 2C 30 20 20  prp_on. ld a,0  
000060: 20 20 20 20 20 3A 20 6C 64 20 64 65 2C 33 3A 20       : ld de,3: 
000070: 6A 72 20 64 6E 5F 70 74 63 09 3B 20 7C 20 70 72  jr dn_ptc.; | pr
000080: 6F 70 6F 72 74 69 6F 6E 61 6C 20 6F 6E 0D 0A 2E  oportional on...
000090: 70 69 63 61 09 20 6C 64 20 61 2C 31 32 20 20 20  pica. ld a,12   
0000A0: 20 20 20 3A 20 6C 64 20 64 65 2C 32 3A 20 6A 72     : ld de,2: jr
0000B0: 20 64 6E 5F 70 74 63 09 3B 20 7C 20 70 69 63 61   dn_ptc.; | pica
0000C0: 20 31 30 63 70 69 0D 0A 2E 65 6C 69 74 65 09 20   10cpi...elite. 
0000D0: 6C 64 20 61 2C 31 30 20 20 20 20 20 20 3A 20 6C  ld a,10      : l
0000E0: 64 20 64 65 2C 32 3A 20 6A 72 20 64 6E 5F 70 74  d de,2: jr dn_pt
0000F0: 63 09 3B 20 7C 20 65 6C 69 74 65 20 31 32 63 70  c.; | elite 12cp
000100: 69 0D 0A 2E 73 65 74 69 74 61 09 20 6C 64 20 61  i...setita. ld a
000110: 2C 31 32 38 3A 20 6C 64 20 28 69 74 61 6C 69 63  ,128: ld (italic
000120: 29 2C 61 3A 20 6C 64 20 64 65 2C 32 3A 20 6A 72  ),a: ld de,2: jr
000130: 20 64 6E 3B 20 7C 20 69 74 61 6C 69 63 73 20 6F   dn; | italics o
000140: 6E 0D 0A 2E 72 65 73 69 74 61 09 20 78 6F 72 20  n...resita. xor 
000150: 61 20 20 20 3A 20 6C 64 20 28 69 74 61 6C 69 63  a   : ld (italic
000160: 29 2C 61 3A 20 6C 64 20 64 65 2C 32 3A 20 6A 72  ),a: ld de,2: jr
000170: 20 64 6E 3B 20 7C 20 69 74 61 6C 69 63 73 20 6F   dn; | italics o
000180: 66 66 0D 0A 2E 6F 74 68 65 72 09 20 6C 64 20 64  ff...other. ld d
000190: 65 2C 32 3A 20 6A 72 20 64 6E 09 09 09 09 3B 20  e,2: jr dn....; 
0001A0: 7C 20 6F 74 68 65 72 20 28 32 20 63 68 61 72 61  | other (2 chara
0001B0: 63 74 65 72 73 29 0D 0A 2E 6F 74 68 65 72 32 09  cters)...other2.
0001C0: 20 6C 64 20 64 65 2C 33 3A 20 6A 72 20 64 6E 09   ld de,3: jr dn.
0001D0: 09 09 09 3B 20 7C 20 6F 74 68 65 72 20 28 33 20  ...; | other (3 
0001E0: 63 68 61 72 61 63 74 65 72 73 29 0D 0A 2E 64 6E  characters)...dn
0001F0: 5F 70 74 63 09 20 6C 64 20 28 70 69 74 63 68 29  _ptc. ld (pitch)

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 49 6D 61 67 65 50 72 69 6E 74 20 76  ...;ImagePrint v
000010: 31 2E 30 0D 0A 09 3B 28 63 29 20 52 69 63 68 61  1.0...;(c) Richa
000020: 72 64 20 46 61 69 72 68 75 72 73 74 20 41 70 72  rd Fairhurst Apr
000030: 69 6C 20 31 39 39 35 0D 0A 0D 0A 09 6F 72 67 20  il 1995.....org 
000040: 26 39 41 30 30 0D 0A 09 77 72 69 74 65 20 22 69  &9A00...write "i
000050: 6D 61 67 65 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69  mage.bin"...noli
000060: 73 74 0D 0A 0D 0A 6C 6F 61 64 09 65 71 75 20 26  st....load.equ &
000070: 37 30 30 30 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F  7000.....;*** RO
000080: 55 54 09 49 6E 69 74 69 61 6C 69 73 65 20 52 53  UT.Initialise RS
000090: 58 73 0D 0A 0D 0A 09 6C 64 20 62 63 2C 63 6F 6D  Xs.....ld bc,com
0000A0: 5F 74 0D 0A 09 6C 64 20 68 6C 2C 77 6B 73 70 0D  _t...ld hl,wksp.
0000B0: 0A 09 63 61 6C 6C 20 26 42 43 44 31 0D 0A 0D 0A  ..call &BCD1....
0000C0: 09 6C 64 20 61 20 2C 28 26 42 44 32 42 29 3A 20  .ld a ,(&BD2B): 
0000D0: 6C 64 20 28 73 74 6F 72 69 67 20 20 29 2C 61 0D  ld (storig  ),a.
0000E0: 0A 09 6C 64 20 68 6C 2C 28 26 42 44 32 43 29 3A  ..ld hl,(&BD2C):
0000F0: 20 6C 64 20 28 73 74 6F 72 69 67 2B 31 29 2C 68   ld (storig+1),h
000100: 6C 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 63 6F 6D 5F  l...ret.....com_
000110: 74 09 64 77 20 6E 61 6D 65 5F 74 0D 0A 09 6A 70  t.dw name_t...jp
000120: 20 6F 6E 0D 0A 09 6A 70 20 6F 66 66 0D 0A 0D 0A   on...jp off....
000130: 2E 6E 61 6D 65 5F 74 09 73 74 72 20 22 49 50 2E  .name_t.str "IP.
000140: 4F 4E 22 0D 0A 09 73 74 72 20 22 49 50 2E 4F 46  ON"...str "IP.OF
000150: 46 22 0D 0A 09 64 62 20 30 0D 0A 0D 0A 2E 77 6B  F"...db 0.....wk
000160: 73 70 09 64 73 20 34 0D 0A 0D 0A 09 3B 2A 2A 2A  sp.ds 4.....;***
000170: 20 52 53 58 09 7C 49 50 2E 4F 4E 2C 20 7C 49 50   RSX.|IP.ON, |IP
000180: 2E 4F 46 46 0D 0A 0D 0A 2E 6F 6E 09 6C 64 20 61  .OFF.....on.ld a
000190: 2C 26 43 33 20 20 20 20 20 3A 20 6C 64 20 28 26  ,&C3     : ld (&
0001A0: 42 44 32 42 29 2C 61 3A 20 6C 64 20 68 6C 2C 72  BD2B),a: ld hl,r
0001B0: 6F 75 74 20 20 20 20 20 20 3A 20 6C 64 20 28 26  out      : ld (&
0001C0: 42 44 32 43 29 2C 68 6C 3A 20 6A 70 20 69 6E 69  BD2C),hl: jp ini
0001D0: 74 0D 0A 2E 6F 66 66 09 6C 64 20 61 2C 28 73 74  t...off.ld a,(st
0001E0: 6F 72 69 67 29 3A 20 6C 64 20 28 26 42 44 32 42  orig): ld (&BD2B
0001F0: 29 2C 61 3A 20 6C 64 20 68 6C 2C 28 73 74 6F 72  ),a: ld hl,(stor

Size : 512 (Real : 512)
000000: 63 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63 20 68  c: ld d,a: inc h
000010: 6C 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20  l... ld a,(hl): 
000020: 6C 64 20 62 2C 61 3A 72 72 61 3A 6F 72 20 62 3A  ld b,a:rra:or b:
000030: 20 6C 64 20 28 64 65 29 2C 61 3A 20 6C 64 20 61   ld (de),a: ld a
000040: 2C 64 3A 20 61 64 64 20 63 3A 20 6C 64 20 64 2C  ,d: add c: ld d,
000050: 61 3A 20 69 6E 63 20 68 6C 0D 0A 2E 63 68 61 72  a: inc hl...char
000060: 62 63 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20 6C  bc. ld a,(hl): l
000070: 64 20 62 2C 61 3A 72 72 61 3A 6F 72 20 62 3A 20  d b,a:rra:or b: 
000080: 6C 64 20 28 64 65 29 2C 61 3A 20 6C 64 20 61 2C  ld (de),a: ld a,
000090: 64 3A 20 61 64 64 20 63 3A 20 6C 64 20 64 2C 61  d: add c: ld d,a
0000A0: 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 6C 64 20 61  : inc hl... ld a
0000B0: 2C 28 68 6C 29 3A 20 6C 64 20 62 2C 61 3A 72 72  ,(hl): ld b,a:rr
0000C0: 61 3A 6F 72 20 62 3A 20 6C 64 20 28 64 65 29 2C  a:or b: ld (de),
0000D0: 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64 64 20 63  a: ld a,d: add c
0000E0: 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63 20 68 6C  : ld d,a: inc hl
0000F0: 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20 6C  ... ld a,(hl): l
000100: 64 20 62 2C 61 3A 72 72 61 3A 6F 72 20 62 3A 20  d b,a:rra:or b: 
000110: 6C 64 20 28 64 65 29 2C 61 3A 20 6C 64 20 61 2C  ld (de),a: ld a,
000120: 64 3A 20 61 64 64 20 63 3A 20 6C 64 20 64 2C 61  d: add c: ld d,a
000130: 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 6C 64 20 61  : inc hl... ld a
000140: 2C 28 68 6C 29 3A 20 6C 64 20 62 2C 61 3A 72 72  ,(hl): ld b,a:rr
000150: 61 3A 6F 72 20 62 3A 20 6C 64 20 28 64 65 29 2C  a:or b: ld (de),
000160: 61 0D 0A 09 70 6F 70 20 64 65 3A 20 69 6E 63 20  a...pop de: inc 
000170: 64 65 3A 20 72 65 73 20 33 2C 64 3A 20 6C 64 20  de: res 3,d: ld 
000180: 61 2C 32 35 35 3A 20 72 65 74 0D 0A 0D 0A 2E 63  a,255: ret.....c
000190: 68 61 72 62 69 09 70 75 73 68 20 64 65 0D 0A 09  harbi.push de...
0001A0: 20 6C 64 20 6C 2C 62 3A 20 6C 64 20 68 2C 30 3A   ld l,b: ld h,0:
0001B0: 20 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20   add hl,hl: add 
0001C0: 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68 6C  hl,hl: add hl,hl
0001D0: 0D 0A 09 20 6C 64 20 62 63 2C 63 68 72 73 65 74  ... ld bc,chrset
0001E0: 2D 32 35 36 3A 20 61 64 64 20 68 6C 2C 62 63 3A  -256: add hl,bc:
0001F0: 20 6C 64 20 63 2C 38 0D 0A 09 20 6C 64 20 61 2C   ld c,8... ld a,

Size : 512 (Real : 512)
000000: 69 67 2B 31 29 3A 20 6C 64 20 28 26 42 44 32 43  ig+1): ld (&BD2C
000010: 29 2C 68 6C 0D 0A 09 6C 64 20 61 2C 32 37 3A 20  ),hl...ld a,27: 
000020: 63 61 6C 6C 20 70 72 6E 3A 20 6C 64 20 61 2C 22  call prn: ld a,"
000030: 32 22 3A 20 63 61 6C 6C 20 70 72 6E 3A 20 72 65  2": call prn: re
000040: 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09  t.....;*** ROUT.
000050: 49 6E 69 74 69 61 6C 69 73 61 74 69 6F 6E 20 6F  Initialisation o
000060: 66 20 76 61 72 69 61 62 6C 65 73 0D 0A 0D 0A 2E  f variables.....
000070: 69 6E 69 74 09 6C 64 20 68 6C 2C 63 68 61 72 73  init.ld hl,chars
000080: 3A 20 6C 64 20 28 62 75 66 70 6F 73 29 2C 68 6C  : ld (bufpos),hl
000090: 0D 0A 09 78 6F 72 20 61 20 20 20 20 20 20 3A 20  ...xor a      : 
0000A0: 6C 64 20 28 70 6F 73 29 2C 61 0D 0A 09 78 6F 72  ld (pos),a...xor
0000B0: 20 61 20 20 20 20 20 20 3A 20 6C 64 20 28 69 74   a      : ld (it
0000C0: 61 6C 69 63 29 2C 61 3A 20 6C 64 20 28 62 6F 6C  alic),a: ld (bol
0000D0: 64 29 2C 61 3A 20 6C 64 20 28 75 6E 64 65 72 6C  d),a: ld (underl
0000E0: 29 2C 61 0D 0A 09 6C 64 20 61 2C 31 32 20 20 20  ),a...ld a,12   
0000F0: 20 3A 20 6C 64 20 28 70 69 74 63 68 29 2C 61 3A   : ld (pitch),a:
000100: 20 6C 64 20 28 70 72 76 70 74 63 29 2C 61 0D 0A   ld (prvptc),a..
000110: 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F  .ret.....;*** RO
000120: 55 54 09 4D 61 69 6E 20 69 6E 64 69 72 65 63 74  UT.Main indirect
000130: 69 6F 6E 20 72 6F 75 74 69 6E 65 0D 0A 0D 0A 2E  ion routine.....
000140: 72 6F 75 74 09 63 70 20 31 33 3A 20 6A 70 20 7A  rout.cp 13: jp z
000150: 2C 65 6D 70 74 79 09 09 09 3B 43 61 72 72 69 61  ,empty...;Carria
000160: 67 65 20 72 65 74 75 72 6E 3F 0D 0A 09 63 70 20  ge return?...cp 
000170: 31 30 3A 20 6A 72 20 7A 2C 69 67 6E 6F 72 65 09  10: jr z,ignore.
000180: 09 09 3B 4C 69 6E 65 20 66 65 65 64 20 28 69 67  ..;Line feed (ig
000190: 6E 6F 72 65 29 3F 0D 0A 09 70 75 73 68 20 68 6C  nore)?...push hl
0001A0: 09 09 09 09 09 3B 4E 6F 2C 20 73 6F 20 73 74 6F  .....;No, so sto
0001B0: 72 65 20 69 6E 20 62 75 66 66 65 72 0D 0A 09 20  re in buffer... 
0001C0: 6C 64 20 68 6C 2C 28 62 75 66 70 6F 73 29 3A 20  ld hl,(bufpos): 
0001D0: 6C 64 20 28 68 6C 29 2C 61 09 09 3B 20 7C 0D 0A  ld (hl),a..; |..
0001E0: 09 20 3A 20 69 6E 63 20 68 6C 3A 20 6C 64 20 28  . : inc hl: ld (
0001F0: 62 75 66 70 6F 73 29 2C 68 6C 09 09 3B 20 7C 0D  bufpos),hl..; |.

Size : 512 (Real : 512)
000000: 28 68 6C 29 3A 20 6C 64 20 62 2C 61 3A 72 72 61  (hl): ld b,a:rra
000010: 3A 6F 72 20 62 3A 20 72 72 61 3A 20 6C 64 20 28  :or b: rra: ld (
000020: 64 65 29 2C 61 3A 20 6C 64 20 61 2C 64 3A 20 61  de),a: ld a,d: a
000030: 64 64 20 63 3A 20 6C 64 20 64 2C 61 3A 20 69 6E  dd c: ld d,a: in
000040: 63 20 68 6C 0D 0A 09 20 6C 64 20 61 2C 28 68 6C  c hl... ld a,(hl
000050: 29 3A 20 6C 64 20 62 2C 61 3A 72 72 61 3A 6F 72  ): ld b,a:rra:or
000060: 20 62 3A 20 72 72 61 3A 20 6C 64 20 28 64 65 29   b: rra: ld (de)
000070: 2C 61 3A 20 6C 64 20 61 2C 64 3A 20 61 64 64 20  ,a: ld a,d: add 
000080: 63 3A 20 6C 64 20 64 2C 61 3A 20 69 6E 63 20 68  c: ld d,a: inc h
000090: 6C 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20  l... ld a,(hl): 
0000A0: 6C 64 20 62 2C 61 3A 72 72 61 3A 6F 72 20 62 3A  ld b,a:rra:or b:
0000B0: 20 72 72 61 3A 20 6C 64 20 28 64 65 29 2C 61 3A   rra: ld (de),a:
0000C0: 20 6C 64 20 61 2C 64 3A 20 61 64 64 20 63 3A 20   ld a,d: add c: 
0000D0: 6C 64 20 64 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  ld d,a: inc hl..
0000E0: 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20  . ld a,(hl): ld 
0000F0: 62 2C 61 3A 72 72 61 3A 6F 72 20 62 3A 20 72 72  b,a:rra:or b: rr
000100: 61 3A 20 6C 64 20 28 64 65 29 2C 61 3A 20 6C 64  a: ld (de),a: ld
000110: 20 61 2C 64 3A 20 61 64 64 20 63 3A 20 6C 64 20   a,d: add c: ld 
000120: 64 2C 61 3A 20 69 6E 63 20 68 6C 3A 20 6A 72 20  d,a: inc hl: jr 
000130: 63 68 61 72 62 63 0D 0A 0D 0A 09 3B 2A 2A 2A 20  charbc.....;*** 
000140: 53 55 42 52 09 50 75 74 20 76 61 6C 75 65 73 20  SUBR.Put values 
000150: 69 6E 20 6C 69 6E 65 74 62 20 28 69 79 29 0D 0A  in linetb (iy)..
000160: 0D 0A 2E 70 75 74 76 61 6C 09 70 75 73 68 20 69  ...putval.push i
000170: 78 3A 20 70 6F 70 20 68 6C 3A 20 6C 64 20 61 2C  x: pop hl: ld a,
000180: 69 0D 0A 09 6C 64 20 28 69 79 2B 30 29 2C 6C 3A  i...ld (iy+0),l:
000190: 20 6C 64 20 28 69 79 2B 31 29 2C 68 0D 0A 09 6C   ld (iy+1),h...l
0001A0: 64 20 28 69 79 2B 32 29 2C 65 3A 20 6C 64 20 28  d (iy+2),e: ld (
0001B0: 69 79 2B 33 29 2C 64 0D 0A 09 6C 64 20 28 69 79  iy+3),d...ld (iy
0001C0: 2B 34 29 2C 61 3A 20 69 6E 63 20 69 79 3A 69 6E  +4),a: inc iy:in
0001D0: 63 20 69 79 3A 69 6E 63 20 69 79 3A 69 6E 63 20  c iy:inc iy:inc 
0001E0: 69 79 3A 69 6E 63 20 69 79 3A 20 72 65 74 0D 0A  iy:inc iy: ret..
0001F0: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 56 41 52 49 09 4D  .....;*** VARI.M

Size : 512 (Real : 512)
000000: 0A 09 70 6F 70 20 68 6C 09 09 09 09 09 3B 20 7C  ..pop hl.....; |
000010: 0D 0A 09 6C 64 20 61 2C 28 70 6F 73 29 3A 20 69  ...ld a,(pos): i
000020: 6E 63 20 61 3A 20 6F 72 20 61 09 09 09 3B 49 6E  nc a: or a...;In
000030: 63 72 65 61 73 65 20 63 68 61 72 61 63 74 65 72  crease character
000040: 20 63 6F 75 6E 74 0D 0A 09 3A 20 72 65 74 20 7A   count...: ret z
000050: 3A 20 6C 64 20 28 70 6F 73 29 2C 61 09 09 09 3B  : ld (pos),a...;
000060: 20 7C 20 72 65 74 75 72 6E 20 75 6E 68 61 70 70   | return unhapp
000070: 79 20 69 66 20 6F 76 65 72 66 6C 6F 77 0D 0A 2E  y if overflow...
000080: 69 67 6E 6F 72 65 09 73 63 66 3A 20 72 65 74 09  ignore.scf: ret.
000090: 09 09 09 3B 52 65 74 75 72 6E 20 22 6F 6B 22 0D  ...;Return "ok".
0000A0: 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09 45 6D  ....;*** ROUT.Em
0000B0: 70 74 79 20 62 75 66 66 65 72 0D 0A 0D 0A 2E 65  pty buffer.....e
0000C0: 6D 70 74 79 09 70 75 73 68 20 62 63 3A 20 70 75  mpty.push bc: pu
0000D0: 73 68 20 64 65 3A 20 70 75 73 68 20 68 6C 3A 20  sh de: push hl: 
0000E0: 70 75 73 68 20 69 78 3A 20 70 75 73 68 20 69 79  push ix: push iy
0000F0: 0D 0A 0D 0A 09 20 6C 64 20 68 6C 2C 28 62 75 66  ..... ld hl,(buf
000100: 70 6F 73 29 3A 20 6C 64 20 64 65 2C 73 70 61 63  pos): ld de,spac
000110: 65 73 09 09 3B 43 6C 65 61 72 20 75 6E 75 73 65  es..;Clear unuse
000120: 64 20 62 75 66 66 65 72 0D 0A 2E 77 69 70 65 6C  d buffer...wipel
000130: 70 09 20 6C 64 20 61 2C 68 3A 20 63 70 20 64 3A  p. ld a,h: cp d:
000140: 20 6A 72 20 6E 7A 2C 6E 6F 74 65 6E 64 09 09 3B   jr nz,notend..;
000150: 20 7C 0D 0A 09 20 6C 64 20 61 2C 6C 3A 20 63 70   |... ld a,l: cp
000160: 20 65 3A 20 6A 72 20 7A 20 2C 62 75 66 65 6E 64   e: jr z ,bufend
000170: 09 09 3B 20 7C 0D 0A 2E 6E 6F 74 65 6E 64 09 20  ..; |...notend. 
000180: 6C 64 20 28 68 6C 29 2C 30 3A 20 69 6E 63 20 68  ld (hl),0: inc h
000190: 6C 3A 20 6A 72 20 77 69 70 65 6C 70 09 09 3B 20  l: jr wipelp..; 
0001A0: 7C 0D 0A 2E 62 75 66 65 6E 64 0D 0A 09 20 3B 09  |...bufend... ;.
0001B0: 09 53 74 61 67 65 20 31 20 2D 20 61 73 73 65 73  .Stage 1 - asses
0001C0: 73 20 73 70 61 63 69 6E 67 0D 0A 0D 0A 09 20 6C  s spacing..... l
0001D0: 64 20 69 78 2C 63 68 61 72 73 3A 20 6C 64 20 69  d ix,chars: ld i
0001E0: 79 2C 73 70 61 63 65 73 09 09 3B 53 74 61 72 74  y,spaces..;Start
0001F0: 0D 0A 09 20 6C 64 20 61 2C 28 70 69 74 63 68 29  ... ld a,(pitch)

Size : 512 (Real : 512)
000000: 3A 20 69 6E 63 20 69 79 09 09 09 09 3B 4E 65 78  : inc iy....;Nex
000010: 74 20 62 75 66 66 65 72 20 70 6F 73 69 74 69 6F  t buffer positio
000020: 6E 0D 0A 2E 70 72 6E 5F 63 74 09 64 65 63 20 62  n...prn_ct.dec b
000030: 3A 20 6A 70 20 6E 7A 2C 70 72 6E 63 6C 70 09 09  : jp nz,prnclp..
000040: 09 3B 4C 6F 6F 70 2E 2E 2E 0D 0A 2E 6E 6F 70 72  .;Loop......nopr
000050: 69 6E 09 78 6F 72 20 61 3A 20 63 61 6C 6C 20 70  in.xor a: call p
000060: 72 6E 67 72 61 09 09 09 3B 46 69 6E 69 73 68 20  rngra...;Finish 
000070: 6F 66 66 20 62 6F 6C 64 0D 0A 09 78 6F 72 20 61  off bold...xor a
000080: 3A 20 63 61 6C 6C 20 70 72 6E 67 72 61 09 09 09  : call prngra...
000090: 3B 20 7C 0D 0A 09 63 61 6C 6C 20 65 6D 70 74 79  ; |...call empty
0000A0: 67 09 09 09 09 3B 45 6D 70 74 79 20 67 72 61 70  g....;Empty grap
0000B0: 68 69 63 73 20 62 75 66 66 65 72 0D 0A 09 6C 64  hics buffer...ld
0000C0: 20 61 2C 31 30 3A 20 63 61 6C 6C 20 70 72 6E 09   a,10: call prn.
0000D0: 09 09 3B 43 52 2F 4C 46 0D 0A 09 6C 64 20 61 2C  ..;CR/LF...ld a,
0000E0: 31 33 3A 20 63 61 6C 6C 20 70 72 6E 3A 20 72 65  13: call prn: re
0000F0: 74 09 09 09 3B 20 7C 20 61 6E 64 20 71 75 69 74  t...; | and quit
000100: 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52  .......;*** SUBR
000110: 09 43 61 6C 63 75 6C 61 74 65 20 63 68 61 72 61  .Calculate chara
000120: 63 74 65 72 20 73 70 61 63 69 6E 67 20 66 6F 72  cter spacing for
000130: 20 28 49 58 29 20 69 6E 74 6F 20 41 0D 0A 09 3B   (IX) into A...;
000140: 09 09 4C 6F 77 20 20 6E 69 62 62 6C 65 20 2D 20  ..Low  nibble - 
000150: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 0D  number to print.
000160: 0A 09 3B 09 09 48 69 67 68 20 6E 69 62 62 6C 65  ..;..High nibble
000170: 20 2D 20 77 68 65 72 65 20 74 6F 20 73 74 61 72   - where to star
000180: 74 20 70 72 69 6E 74 69 6E 67 0D 0A 0D 0A 2E 67  t printing.....g
000190: 65 74 70 72 70 09 70 75 73 68 20 69 78 0D 0A 09  etprp.push ix...
0001A0: 20 6C 64 20 61 2C 28 69 78 29 3A 20 63 70 20 22   ld a,(ix): cp "
0001B0: 20 22 3A 20 6A 72 20 7A 20 2C 67 70 73 70 61 63   ": jr z ,gpspac
0001C0: 09 3B 53 75 62 73 74 69 74 75 74 65 20 22 41 22  .;Substitute "A"
0001D0: 20 66 6F 72 20 73 70 61 63 65 0D 0A 09 09 20 20   for space....  
0001E0: 20 20 63 70 20 31 36 30 3A 20 6A 72 20 6E 7A 2C    cp 160: jr nz,
0001F0: 67 70 6E 6F 74 73 09 3B 20 7C 0D 0A 2E 67 70 73  gpnots.; |...gps

Size : 512 (Real : 512)
000000: 64 20 61 2C 31 36 3A 20 6C 64 20 28 75 6E 64 65  d a,16: ld (unde
000010: 72 63 29 2C 61 0D 0A 09 20 6C 64 20 63 2C 31 31  rc),a... ld c,11
000020: 3A 20 6C 64 20 68 6C 2C 6C 6F 61 64 2B 33 36 3A  : ld hl,load+36:
000030: 20 63 61 6C 6C 20 70 72 69 6E 74 3A 20 6C 64 20   call print: ld 
000040: 61 2C 30 20 3A 20 6C 64 20 28 75 6E 64 65 72 63  a,0 : ld (underc
000050: 29 2C 61 0D 0A 0D 0A 09 20 6C 64 20 68 6C 2C 63  ),a..... ld hl,c
000060: 68 61 72 73 3A 20 6C 64 20 28 62 75 66 70 6F 73  hars: ld (bufpos
000070: 29 2C 68 6C 0D 0A 09 20 78 6F 72 20 61 20 20 20  ),hl... xor a   
000080: 20 20 20 3A 20 6C 64 20 28 70 6F 73 20 20 20 29     : ld (pos   )
000090: 2C 61 0D 0A 09 70 6F 70 20 69 79 3A 20 70 6F 70  ,a...pop iy: pop
0000A0: 20 69 78 3A 20 70 6F 70 20 68 6C 3A 20 70 6F 70   ix: pop hl: pop
0000B0: 20 64 65 3A 20 70 6F 70 20 62 63 0D 0A 09 73 63   de: pop bc...sc
0000C0: 66 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20  f: ret.....;*** 
0000D0: 53 55 42 52 09 50 72 69 6E 74 20 61 20 6C 69 6E  SUBR.Print a lin
0000E0: 65 20 6F 66 20 63 68 61 72 61 63 74 65 72 73 0D  e of characters.
0000F0: 0A 09 3B 09 09 75 73 69 6E 67 20 64 61 74 61 20  ..;..using data 
000100: 66 72 6F 6D 20 48 4C 2C 20 63 68 61 72 61 63 74  from HL, charact
000110: 65 72 20 73 70 61 63 69 6E 67 20 43 20 31 2F 32  er spacing C 1/2
000120: 31 36 22 0D 0A 0D 0A 2E 70 72 69 6E 74 09 6C 64  16".....print.ld
000130: 20 61 2C 32 37 20 3A 20 63 61 6C 6C 20 70 72 6E   a,27 : call prn
000140: 09 09 09 3B 53 65 6E 64 20 6C 69 6E 65 20 73 70  ...;Send line sp
000150: 61 63 69 6E 67 20 63 6F 64 65 0D 0A 09 6C 64 20  acing code...ld 
000160: 61 2C 22 33 22 3A 20 63 61 6C 6C 20 70 72 6E 09  a,"3": call prn.
000170: 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 63 20 20  ..; |...ld a,c  
000180: 3A 20 63 61 6C 6C 20 70 72 6E 09 09 09 3B 20 7C  : call prn...; |
000190: 0D 0A 09 6C 64 20 28 62 61 73 65 29 2C 68 6C 09  ...ld (base),hl.
0001A0: 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64 20 69 78  ...; |.....ld ix
0001B0: 2C 63 68 61 72 73 3A 20 6C 64 20 69 79 2C 73 70  ,chars: ld iy,sp
0001C0: 61 63 65 73 09 09 3B 53 74 61 72 74 0D 0A 09 6C  aces..;Start...l
0001D0: 64 20 61 2C 28 70 6F 73 29 3A 20 6F 72 20 61 3A  d a,(pos): or a:
0001E0: 20 6A 70 20 7A 2C 6E 6F 70 72 69 6E 3A 20 6C 64   jp z,noprin: ld
0001F0: 20 62 2C 61 09 3B 53 6B 69 70 20 69 66 20 62 75   b,a.;Skip if bu

Size : 512 (Real : 512)
000000: 70 61 63 09 20 6C 64 20 61 2C 22 41 22 09 09 09  pac. ld a,"A"...
000010: 09 3B 20 7C 0D 0A 0D 0A 2E 67 70 6E 6F 74 73 09  .; |.....gpnots.
000020: 20 73 75 62 20 33 32 3A 20 6C 64 20 6C 2C 61 3A   sub 32: ld l,a:
000030: 20 6C 64 20 68 2C 30 09 09 09 3B 47 65 74 20 62   ld h,0...;Get b
000040: 61 73 65 20 61 64 64 72 65 73 73 0D 0A 09 20 61  ase address... a
000050: 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C  dd hl,hl: add hl
000060: 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68 6C 09 3B  ,hl: add hl,hl.;
000070: 20 7C 0D 0A 09 20 61 64 64 20 68 6C 2C 68 6C 3A   |... add hl,hl:
000080: 20 70 75 73 68 20 68 6C 3A 20 20 20 61 64 64 20   push hl:   add 
000090: 68 6C 2C 68 6C 09 3B 20 7C 0D 0A 09 20 70 6F 70  hl,hl.; |... pop
0000A0: 20 64 65 20 20 20 3A 20 61 64 64 20 68 6C 2C 64   de   : add hl,d
0000B0: 65 3A 20 6C 64 20 64 65 2C 6C 6F 61 64 09 3B 20  e: ld de,load.; 
0000C0: 7C 0D 0A 09 20 61 64 64 20 68 6C 2C 64 65 3A 20  |... add hl,de: 
0000D0: 70 75 73 68 20 68 6C 3A 20 70 6F 70 20 69 78 09  push hl: pop ix.
0000E0: 09 3B 20 7C 0D 0A 0D 0A 09 20 6C 64 20 64 2C 30  .; |..... ld d,0
0000F0: 09 09 09 09 09 3B 46 69 6E 64 20 77 68 65 72 65  .....;Find where
000100: 20 74 6F 20 73 74 61 72 74 0D 0A 2E 67 65 74 73   to start...gets
000110: 74 6C 09 20 6C 64 20 61 2C 20 28 69 78 29 3A 20  tl. ld a, (ix): 
000120: 6F 72 20 28 69 78 2B 31 32 29 09 09 09 3B 20 7C  or (ix+12)...; |
000130: 0D 0A 09 20 6F 72 20 28 69 78 2B 32 34 29 3A 20  ... or (ix+24): 
000140: 6F 72 20 28 69 78 2B 33 36 29 3A 20 6A 72 20 6E  or (ix+36): jr n
000150: 7A 2C 67 6F 74 73 74 09 3B 20 7C 0D 0A 09 20 69  z,gotst.; |... i
000160: 6E 63 20 64 3A 20 69 6E 63 20 69 78 09 09 09 09  nc d: inc ix....
000170: 3B 20 7C 0D 0A 09 20 6C 64 20 61 2C 64 3A 20 63  ; |... ld a,d: c
000180: 70 20 31 31 3A 20 6A 72 20 6E 7A 2C 67 65 74 73  p 11: jr nz,gets
000190: 74 6C 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 65 2C  tl..; |... ld e,
0001A0: 31 32 3A 20 6A 72 20 67 6F 74 65 6E 64 09 09 09  12: jr gotend...
0001B0: 3B 20 7C 0D 0A 2E 67 6F 74 73 74 09 20 0D 0A 09  ; |...gotst. ...
0001C0: 20 6C 64 20 65 2C 64 09 09 09 09 09 3B 50 72 69   ld e,d.....;Pri
0001D0: 6E 74 20 68 6F 77 20 6D 61 6E 79 3F 0D 0A 2E 67  nt how many?...g
0001E0: 65 74 6C 6E 6C 09 20 6C 64 20 61 2C 20 28 69 78  etlnl. ld a, (ix
0001F0: 29 3A 20 6F 72 20 28 69 78 2B 31 32 29 09 09 09  ): or (ix+12)...

Size : 512 (Real : 512)
000000: 66 66 65 72 20 65 6D 70 74 79 0D 0A 0D 0A 09 6C  ffer empty.....l
000010: 64 20 61 2C 28 75 6E 64 65 72 6C 29 3A 20 6F 72  d a,(underl): or
000020: 20 61 3A 20 6A 72 20 7A 2C 70 72 6E 63 6C 70 09   a: jr z,prnclp.
000030: 3B 53 77 69 74 63 68 20 75 6E 64 65 72 6C 69 6E  ;Switch underlin
000040: 65 20 6F 6E 20 69 66 20 6E 65 65 64 65 64 0D 0A  e on if needed..
000050: 09 6C 64 20 61 2C 28 75 6E 64 65 72 63 29 09 09  .ld a,(underc)..
000060: 09 09 3B 20 7C 0D 0A 2E 70 75 74 75 6E 64 09 6C  ..; |...putund.l
000070: 64 20 28 75 6E 64 65 72 6D 2B 31 29 2C 61 09 09  d (underm+1),a..
000080: 09 09 3B 20 7C 0D 0A 0D 0A 2E 70 72 6E 63 6C 70  ..; |.....prnclp
000090: 09 6C 64 20 61 2C 28 69 78 29 20 20 3A 20 63 70  .ld a,(ix)  : cp
0000A0: 20 32 37 20 3A 20 6A 70 20 6E 7A 2C 70 6E 74 65   27 : jp nz,pnte
0000B0: 73 63 09 3B 45 53 43 61 70 65 20 63 6F 64 65 3F  sc.;ESCape code?
0000C0: 0D 0A 09 6C 64 20 61 2C 28 69 78 2B 31 29 3A 20  ...ld a,(ix+1): 
0000D0: 63 70 20 22 50 22 3A 20 6A 72 20 7A 20 2C 73 6B  cp "P": jr z ,sk
0000E0: 69 70 32 09 3B 50 69 74 63 68 20 28 73 6B 69 70  ip2.;Pitch (skip
0000F0: 29 3F 0D 0A 09 09 20 20 20 20 20 63 70 20 22 4D  )?....     cp "M
000100: 22 3A 20 6A 72 20 7A 20 2C 73 6B 69 70 32 09 3B  ": jr z ,skip2.;
000110: 20 7C 0D 0A 09 09 20 20 20 20 20 63 70 20 22 70   |....     cp "p
000120: 22 3A 20 6A 72 20 7A 20 2C 73 6B 69 70 33 09 3B  ": jr z ,skip3.;
000130: 20 7C 0D 0A 09 09 20 20 20 20 20 63 70 20 22 45   |....     cp "E
000140: 22 3A 20 6A 72 20 7A 20 2C 73 65 74 62 6C 64 09  ": jr z ,setbld.
000150: 3B 42 6F 6C 64 3F 0D 0A 09 09 20 20 20 20 20 63  ;Bold?....     c
000160: 70 20 22 46 22 3A 20 6A 72 20 7A 20 2C 72 65 73  p "F": jr z ,res
000170: 62 6C 64 09 3B 20 7C 0D 0A 09 09 20 20 20 20 20  bld.; |....     
000180: 63 70 20 22 2D 22 3A 20 6A 72 20 6E 7A 2C 73 6B  cp "-": jr nz,sk
000190: 69 70 32 09 3B 55 6E 64 65 72 6C 69 6E 65 3F 0D  ip2.;Underline?.
0001A0: 0A 09 6C 64 20 61 2C 28 69 78 2B 32 29 3A 20 63  ..ld a,(ix+2): c
0001B0: 70 20 22 31 22 3A 20 6A 72 20 7A 20 2C 73 65 74  p "1": jr z ,set
0001C0: 75 6E 64 09 3B 20 7C 0D 0A 09 09 20 20 20 20 20  und.; |....     
0001D0: 63 70 20 20 31 20 3A 20 6A 72 20 7A 20 2C 73 65  cp  1 : jr z ,se
0001E0: 74 75 6E 64 09 3B 20 7C 0D 0A 09 78 6F 72 20 61  tund.; |...xor a
0001F0: 20 3A 20 6C 64 20 28 75 6E 64 65 72 6C 29 2C 61   : ld (underl),a

Size : 512 (Real : 512)
000000: 3B 20 7C 0D 0A 09 20 6F 72 20 28 69 78 2B 32 34  ; |... or (ix+24
000010: 29 3A 20 6F 72 20 28 69 78 2B 33 36 29 3A 20 6A  ): or (ix+36): j
000020: 72 20 7A 2C 67 6F 74 65 6E 64 09 3B 20 7C 0D 0A  r z,gotend.; |..
000030: 09 20 69 6E 63 20 65 3A 20 69 6E 63 20 69 78 09  . inc e: inc ix.
000040: 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 61 2C 65  ...; |... ld a,e
000050: 3A 20 63 70 20 31 32 3A 20 6A 72 20 6E 7A 2C 67  : cp 12: jr nz,g
000060: 65 74 6C 6E 6C 09 09 3B 20 7C 0D 0A 2E 67 6F 74  etlnl..; |...got
000070: 65 6E 64 0D 0A 09 20 69 6E 63 20 65 3A 20 69 6E  end... inc e: in
000080: 63 20 65 3A 20 69 6E 63 20 65 3A 20 6C 64 20 61  c e: inc e: ld a
000090: 2C 65 3A 20 73 75 62 20 64 09 3B 43 6F 6D 62 69  ,e: sub d.;Combi
0000A0: 6E 65 20 69 6E 74 6F 20 6F 6E 65 20 62 79 74 65  ne into one byte
0000B0: 0D 0A 09 20 63 70 20 31 32 3A 20 6A 72 20 63 2C  ... cp 12: jr c,
0000C0: 77 69 64 65 6F 6B 3A 20 6C 64 20 61 2C 31 32 09  wideok: ld a,12.
0000D0: 09 3B 20 7C 0D 0A 2E 77 69 64 65 6F 6B 09 20 72  .; |...wideok. r
0000E0: 72 63 20 64 3A 20 72 72 63 20 64 3A 20 72 72 63  rc d: rrc d: rrc
0000F0: 20 64 3A 20 72 72 63 20 64 3A 20 6F 72 20 64 09   d: rrc d: or d.
000100: 3B 20 7C 0D 0A 09 70 6F 70 20 69 78 3A 20 72 65  ; |...pop ix: re
000110: 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09  t.....;*** SUBR.
000120: 50 72 69 6E 74 20 67 72 61 70 68 69 63 73 20 75  Print graphics u
000130: 73 69 6E 67 20 67 72 61 70 68 69 63 73 20 62 75  sing graphics bu
000140: 66 66 65 72 0D 0A 0D 0A 2E 70 72 6E 67 72 61 09  ffer.....prngra.
000150: 6C 64 20 28 63 68 61 72 29 2C 61 09 09 09 09 09  ld (char),a.....
000160: 3B 42 6F 6C 64 20 74 72 61 6E 73 66 6F 72 6D 61  ;Bold transforma
000170: 74 69 6F 6E 0D 0A 09 6C 64 20 61 2C 28 62 6F 6C  tion...ld a,(bol
000180: 64 29 3A 20 6F 72 20 61 3A 20 6C 64 20 61 2C 28  d): or a: ld a,(
000190: 63 68 61 72 29 3A 20 6A 72 20 7A 2C 6E 6F 62 6F  char): jr z,nobo
0001A0: 74 72 09 3B 20 7C 0D 0A 09 6C 64 20 62 2C 61 3A  tr.; |...ld b,a:
0001B0: 20 6C 64 20 61 2C 28 6C 61 73 74 20 29 3A 20 6F   ld a,(last ): o
0001C0: 72 20 62 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 62  r b...; |...ld b
0001D0: 2C 61 3A 20 6C 64 20 61 2C 28 6C 61 73 74 32 29  ,a: ld a,(last2)
0001E0: 3A 20 6F 72 20 62 09 09 09 3B 20 7C 0D 0A 0D 0A  : or b...; |....
0001F0: 2E 6E 6F 62 6F 74 72 09 6C 64 20 68 6C 2C 28 67  .nobotr.ld hl,(g

Size : 512 (Real : 512)
000000: 3A 20 6C 64 20 28 75 6E 64 65 72 6D 2B 31 29 2C  : ld (underm+1),
000010: 61 09 3B 55 6E 64 65 72 6C 69 6E 65 20 6F 66 66  a.;Underline off
000020: 0D 0A 09 3A 20 09 09 20 20 20 20 20 20 20 6C 64  ...: ..       ld
000030: 20 64 65 2C 33 3A 20 6A 72 20 64 6E 63 74 09 3B   de,3: jr dnct.;
000040: 20 7C 0D 0A 2E 73 65 74 75 6E 64 09 6C 64 20 61   |...setund.ld a
000050: 2C 28 75 6E 64 65 72 63 29 3A 20 6C 64 20 28 75  ,(underc): ld (u
000060: 6E 64 65 72 6D 2B 31 29 2C 61 09 09 3B 55 6E 64  nderm+1),a..;Und
000070: 65 72 6C 69 6E 65 20 6F 6E 0D 0A 09 6C 64 20 61  erline on...ld a
000080: 2C 31 3A 20 6C 64 20 28 75 6E 64 65 72 6C 29 2C  ,1: ld (underl),
000090: 61 3A 20 6C 64 20 64 65 2C 33 3A 20 6A 72 20 64  a: ld de,3: jr d
0000A0: 6E 63 74 09 3B 20 7C 0D 0A 2E 72 65 73 62 6C 64  nct.; |...resbld
0000B0: 09 78 6F 72 20 61 20 3A 20 6C 64 20 28 62 6F 6C  .xor a : ld (bol
0000C0: 64 20 20 29 2C 61 3A 20 6C 64 20 64 65 2C 32 3A  d  ),a: ld de,2:
0000D0: 20 6A 72 20 64 6E 63 74 09 3B 42 6F 6C 64 20 6F   jr dnct.;Bold o
0000E0: 66 66 0D 0A 2E 73 65 74 62 6C 64 09 6C 64 20 61  ff...setbld.ld a
0000F0: 2C 31 3A 20 6C 64 20 28 62 6F 6C 64 20 20 29 2C  ,1: ld (bold  ),
000100: 61 3A 20 6C 64 20 64 65 2C 32 3A 20 6A 72 20 64  a: ld de,2: jr d
000110: 6E 63 74 09 3B 42 6F 6C 64 20 6F 6E 0D 0A 2E 73  nct.;Bold on...s
000120: 6B 69 70 32 09 6C 64 20 64 65 2C 32 3A 20 6A 72  kip2.ld de,2: jr
000130: 20 64 6E 63 74 09 09 09 3B 4F 74 68 65 72 20 28   dnct...;Other (
000140: 32 20 63 68 61 72 61 63 74 65 72 73 29 0D 0A 2E  2 characters)...
000150: 73 6B 69 70 33 09 6C 64 20 64 65 2C 33 3A 20 6A  skip3.ld de,3: j
000160: 72 20 64 6E 63 74 09 09 09 3B 4F 74 68 65 72 20  r dnct...;Other 
000170: 28 33 20 63 68 61 72 61 63 74 65 72 73 29 0D 0A  (3 characters)..
000180: 2E 64 6E 63 74 09 61 64 64 20 69 78 2C 64 65 3A  .dnct.add ix,de:
000190: 20 61 64 64 20 69 79 2C 64 65 09 09 09 3B 53 6B   add iy,de...;Sk
0001A0: 69 70 20 70 61 73 74 20 63 68 61 72 61 63 74 65  ip past characte
0001B0: 72 73 0D 0A 09 6C 64 20 61 2C 62 3A 20 73 75 62  rs...ld a,b: sub
0001C0: 20 65 3A 20 6C 64 20 62 2C 61 3A 20 69 6E 63 20   e: ld b,a: inc 
0001D0: 62 3A 20 6A 70 20 70 72 6E 5F 63 74 09 3B 20 7C  b: jp prn_ct.; |
0001E0: 0D 0A 0D 0A 2E 70 6E 74 65 73 63 09 6C 64 20 61  .....pntesc.ld a
0001F0: 2C 28 69 78 29 3A 20 73 75 62 20 33 32 09 09 09  ,(ix): sub 32...

Size : 512 (Real : 512)
000000: 72 61 70 6F 73 29 3A 20 6C 64 20 28 68 6C 29 2C  rapos): ld (hl),
000010: 61 3A 20 69 6E 63 20 68 6C 09 09 3B 53 74 6F 72  a: inc hl..;Stor
000020: 65 20 69 6E 20 62 75 66 66 65 72 0D 0A 09 6C 64  e in buffer...ld
000030: 20 61 20 2C 28 67 72 61 73 6E 74 29 3A 20 69 6E   a ,(grasnt): in
000040: 63 20 61 3A 20 63 70 20 31 32 37 3A 20 6A 72 20  c a: cp 127: jr 
000050: 6E 7A 2C 70 72 6E 5F 6F 6B 09 3B 42 75 66 66 65  nz,prn_ok.;Buffe
000060: 72 20 66 75 6C 6C 3F 0D 0A 09 6C 64 20 62 2C 31  r full?...ld b,1
000070: 32 37 09 09 09 09 09 3B 59 65 73 2C 20 73 6F 20  27.....;Yes, so 
000080: 65 6D 70 74 79 0D 0A 2E 73 65 6E 64 69 74 09 6C  empty...sendit.l
000090: 64 20 61 20 2C 32 37 3A 20 63 61 6C 6C 20 70 72  d a ,27: call pr
0000A0: 6E 3A 20 6C 64 20 61 2C 22 5A 22 3A 20 63 61 6C  n: ld a,"Z": cal
0000B0: 6C 20 70 72 6E 09 09 3B 20 7C 0D 0A 09 6C 64 20  l prn..; |...ld 
0000C0: 61 20 2C 62 20 3A 20 63 61 6C 6C 20 70 72 6E 3A  a ,b : call prn:
0000D0: 20 6C 64 20 61 2C 30 20 20 3A 20 63 61 6C 6C 20   ld a,0  : call 
0000E0: 70 72 6E 09 09 3B 20 7C 0D 0A 09 6C 64 20 68 6C  prn..; |...ld hl
0000F0: 2C 67 72 61 62 75 66 09 09 09 09 09 3B 20 7C 0D  ,grabuf.....; |.
000100: 0A 2E 70 72 6E 65 31 6C 09 6C 64 20 61 2C 28 68  ..prne1l.ld a,(h
000110: 6C 29 3A 20 69 6E 63 20 68 6C 3A 20 63 61 6C 6C  l): inc hl: call
000120: 20 70 72 6E 3A 20 64 6A 6E 7A 20 70 72 6E 65 31   prn: djnz prne1
000130: 6C 09 3B 20 7C 0D 0A 09 6C 64 20 68 6C 2C 67 72  l.; |...ld hl,gr
000140: 61 62 75 66 3A 20 78 6F 72 20 61 09 09 09 09 3B  abuf: xor a....;
000150: 20 7C 20 61 6E 64 20 72 65 73 65 74 0D 0A 2E 70   | and reset...p
000160: 72 6E 5F 6F 6B 09 6C 64 20 28 67 72 61 70 6F 73  rn_ok.ld (grapos
000170: 29 2C 68 6C 3A 20 6C 64 20 28 67 72 61 73 6E 74  ),hl: ld (grasnt
000180: 29 2C 61 09 09 09 3B 53 74 6F 72 65 20 6E 65 77  ),a...;Store new
000190: 20 70 6F 73 69 74 69 6F 6E 0D 0A 0D 0A 09 6C 64   position.....ld
0001A0: 20 61 2C 28 6C 61 73 74 29 3A 20 6C 64 20 28 6C   a,(last): ld (l
0001B0: 61 73 74 32 29 2C 61 09 09 09 3B 42 6F 6C 64 20  ast2),a...;Bold 
0001C0: 74 72 61 6E 73 66 6F 72 6D 61 74 69 6F 6E 0D 0A  transformation..
0001D0: 09 6C 64 20 61 2C 28 63 68 61 72 29 3A 20 6C 64  .ld a,(char): ld
0001E0: 20 28 6C 61 73 74 20 29 2C 61 3A 20 72 65 74 09   (last ),a: ret.
0001F0: 09 09 3B 20 7C 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53  ..; |.....;*** S

Size : 512 (Real : 512)
000000: 3B 47 65 74 20 63 68 61 72 61 63 74 65 72 20 62  ;Get character b
000010: 61 73 65 20 61 64 64 72 65 73 73 0D 0A 09 3A 20  ase address...: 
000020: 6C 64 20 6C 2C 61 3A 20 6C 64 20 68 2C 30 3A 20  ld l,a: ld h,0: 
000030: 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68  add hl,hl: add h
000040: 6C 2C 68 6C 09 3B 20 7C 0D 0A 09 3A 20 61 64 64  l,hl.; |...: add
000050: 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68   hl,hl: add hl,h
000060: 6C 3A 20 70 75 73 68 20 68 6C 09 09 3B 20 7C 0D  l: push hl..; |.
000070: 0A 09 3A 20 61 64 64 20 68 6C 2C 68 6C 3A 20 70  ..: add hl,hl: p
000080: 6F 70 20 64 65 3A 20 61 64 64 20 68 6C 2C 64 65  op de: add hl,de
000090: 09 09 3B 20 7C 0D 0A 09 3A 20 6C 64 20 64 65 2C  ..; |...: ld de,
0000A0: 28 62 61 73 65 29 3A 20 61 64 64 20 68 6C 2C 64  (base): add hl,d
0000B0: 65 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 28 69  e..; |...ld a,(i
0000C0: 79 29 3A 20 61 6E 64 20 26 46 30 09 09 09 3B 41  y): and &F0...;A
0000D0: 64 6A 75 73 74 20 74 6F 20 63 6F 72 72 65 63 74  djust to correct
0000E0: 20 73 74 61 72 74 0D 0A 2E 73 74 74 74 6C 70 09   start...stttlp.
0000F0: 3A 20 6F 72 20 61 3A 20 6A 72 20 7A 2C 67 6F 74  : or a: jr z,got
000100: 73 74 74 09 09 09 3B 20 7C 20 7C 0D 0A 09 3A 20  stt...; | |...: 
000110: 69 6E 63 20 68 6C 3A 20 73 75 62 20 26 31 30 3A  inc hl: sub &10:
000120: 20 6A 72 20 73 74 74 74 6C 70 09 09 3B 20 7C 20   jr stttlp..; | 
000130: 7C 0D 0A 2E 67 6F 74 73 74 74 0D 0A 09 70 75 73  |...gotstt...pus
000140: 68 20 62 63 3A 20 65 78 20 64 65 2C 68 6C 09 09  h bc: ex de,hl..
000150: 09 3B 50 72 69 6E 74 20 63 68 61 72 61 63 74 65  .;Print characte
000160: 72 0D 0A 09 20 6C 64 20 61 2C 28 69 79 29 3A 20  r... ld a,(iy): 
000170: 61 6E 64 20 26 46 3A 20 6C 64 20 63 2C 61 09 09  and &F: ld c,a..
000180: 3B 20 7C 0D 0A 2E 70 62 69 74 6C 70 09 20 6C 64  ; |...pbitlp. ld
000190: 20 61 2C 28 64 65 29 3A 20 69 6E 63 20 64 65 09   a,(de): inc de.
0001A0: 09 09 3B 20 7C 0D 0A 2E 75 6E 64 65 72 6D 09 20  ..; |...underm. 
0001B0: 6F 72 20 30 3A 20 63 61 6C 6C 20 70 72 6E 67 72  or 0: call prngr
0001C0: 61 09 09 09 3B 20 7C 0D 0A 09 20 64 65 63 20 63  a...; |... dec c
0001D0: 3A 20 6A 72 20 6E 7A 2C 70 62 69 74 6C 70 09 09  : jr nz,pbitlp..
0001E0: 09 3B 20 7C 0D 0A 09 70 6F 70 20 62 63 09 09 09  .; |...pop bc...
0001F0: 09 09 3B 20 7C 0D 0A 0D 0A 09 69 6E 63 20 69 78  ..; |.....inc ix

Size : 512 (Real : 512)
000000: 2C 61 3A 20 6C 64 20 63 2C 61 09 09 09 3B 20 7C  ,a: ld c,a...; |
000010: 20 73 74 6F 72 65 20 6E 65 77 20 70 69 74 63 68   store new pitch
000020: 0D 0A 2E 64 6E 09 20 61 64 64 20 69 78 2C 64 65  ...dn. add ix,de
000030: 3A 20 61 64 64 20 69 79 2C 64 65 09 09 09 3B 20  : add iy,de...; 
000040: 7C 20 61 64 76 61 6E 63 65 20 74 68 72 6F 75 67  | advance throug
000050: 68 20 62 75 66 66 65 72 0D 0A 09 20 6C 64 20 61  h buffer... ld a
000060: 2C 62 3A 20 73 75 62 20 65 3A 20 6C 64 20 62 2C  ,b: sub e: ld b,
000070: 61 3A 20 69 6E 63 20 62 3A 20 6A 72 20 73 70 63  a: inc b: jr spc
000080: 63 74 09 3B 20 7C 20 20 7C 0D 0A 0D 0A 2E 6E 6F  ct.; |  |.....no
000090: 74 65 73 63 09 20 6C 64 20 64 2C 61 3A 20 6C 64  tesc. ld d,a: ld
0000A0: 20 61 2C 28 69 74 61 6C 69 63 29 3A 20 61 64 64   a,(italic): add
0000B0: 20 64 3A 20 6C 64 20 28 69 78 29 2C 61 3B 43 6F   d: ld (ix),a;Co
0000C0: 6E 76 65 72 74 20 74 6F 20 69 74 61 6C 69 63 73  nvert to italics
0000D0: 3F 0D 0A 09 20 6C 64 20 61 2C 63 3A 20 6F 72 20  ?... ld a,c: or 
0000E0: 61 3A 20 63 61 6C 6C 20 7A 2C 67 65 74 70 72 70  a: call z,getprp
0000F0: 09 09 3B 47 65 74 20 70 72 6F 70 6F 72 74 69 6F  ..;Get proportio
000100: 6E 61 6C 20 76 61 6C 75 65 3F 0D 0A 09 20 6C 64  nal value?... ld
000110: 20 28 69 79 29 2C 61 3A 20 69 6E 63 20 69 79 3A   (iy),a: inc iy:
000120: 20 69 6E 63 20 69 78 09 09 3B 53 74 6F 72 65 20   inc ix..;Store 
000130: 73 70 61 63 65 20 69 6E 20 62 75 66 66 65 72 0D  space in buffer.
000140: 0A 2E 73 70 63 63 74 09 20 64 65 63 20 62 3A 20  ..spcct. dec b: 
000150: 6A 70 20 6E 7A 2C 73 70 63 5F 6C 70 09 09 09 3B  jp nz,spc_lp...;
000160: 4C 6F 6F 70 0D 0A 2E 6E 6F 73 70 61 63 0D 0A 09  Loop...nospac...
000170: 20 3B 09 09 53 74 61 67 65 20 32 20 2D 20 70 72   ;..Stage 2 - pr
000180: 69 6E 74 20 6C 69 6E 65 73 0D 0A 0D 0A 09 20 6C  int lines..... l
000190: 64 20 63 2C 31 20 3A 20 6C 64 20 68 6C 2C 6C 6F  d c,1 : ld hl,lo
0001A0: 61 64 20 20 20 3A 20 63 61 6C 6C 20 70 72 69 6E  ad   : call prin
0001B0: 74 0D 0A 09 20 6C 64 20 63 2C 32 30 3A 20 6C 64  t... ld c,20: ld
0001C0: 20 68 6C 2C 6C 6F 61 64 2B 31 32 3A 20 63 61 6C   hl,load+12: cal
0001D0: 6C 20 70 72 69 6E 74 0D 0A 09 20 6C 64 20 63 2C  l print... ld c,
0001E0: 31 20 3A 20 6C 64 20 68 6C 2C 6C 6F 61 64 2B 32  1 : ld hl,load+2
0001F0: 34 3A 20 63 61 6C 6C 20 70 72 69 6E 74 3A 20 6C  4: call print: l

Size : 512 (Real : 512)
000000: 6F 72 20 69 6E 20 6F 70 65 6E 69 6E 67 0D 0A 0D  or in opening...
000010: 0A 2E 6F 70 65 6E 65 72 09 63 61 6C 6C 20 26 42  ..opener.call &B
000020: 43 37 44 3A 20 63 61 6C 6C 20 26 39 32 38 44 0D  C7D: call &928D.
000030: 0A 09 63 61 6C 6C 20 73 74 61 74 73 3A 20 63 61  ..call stats: ca
000040: 6C 6C 20 63 61 72 64 20 3A 20 6A 70 20 6B 65 79  ll card : jp key
000050: 73 0D 0A 0D 0A 0D 0A 09 3B 2B 2B 2B 20 52 4F 55  s.......;+++ ROU
000060: 54 09 53 61 76 65 20 64 61 74 61 62 61 73 65 0D  T.Save database.
000070: 0A 0D 0A 2E 73 61 76 65 09 6C 64 20 68 2C 33 31  ....save.ld h,31
000080: 3A 20 6C 64 20 6C 2C 38 30 0D 0A 09 6C 64 20 64  : ld l,80...ld d
000090: 2C 31 38 3A 20 6C 64 20 65 2C 34 34 0D 0A 09 63  ,18: ld e,44...c
0000A0: 61 6C 6C 20 26 39 32 33 46 0D 0A 09 63 61 6C 6C  all &923F...call
0000B0: 20 26 39 32 38 31 0D 0A 09 63 61 6C 6C 20 26 39   &9281...call &9
0000C0: 32 38 41 0D 0A 09 6C 64 20 64 65 2C 37 39 3A 20  28A...ld de,79: 
0000D0: 63 61 6C 6C 20 26 39 32 37 38 0D 0A 0D 0A 09 6C  call &9278.....l
0000E0: 64 20 68 6C 2C 73 61 76 65 74 78 3A 20 63 61 6C  d hl,savetx: cal
0000F0: 6C 20 26 39 32 30 33 0D 0A 09 6C 64 20 64 2C 33  l &9203...ld d,3
000100: 33 3A 20 6C 64 20 65 2C 31 30 38 3A 20 6F 72 20  3: ld e,108: or 
000110: 61 0D 0A 09 6C 64 20 63 2C 31 33 3A 20 6C 64 20  a...ld c,13: ld 
000120: 68 6C 2C 66 6E 61 6D 65 3A 20 63 61 6C 6C 20 26  hl,fname: call &
000130: 39 32 37 32 0D 0A 09 6A 70 20 63 2C 73 61 76 65  9272...jp c,save
000140: 65 72 0D 0A 0D 0A 09 6C 64 20 62 2C 63 3A 20 6C  er.....ld b,c: l
000150: 64 20 68 6C 2C 66 6E 61 6D 65 09 09 09 3B 4F 70  d hl,fname...;Op
000160: 65 6E 20 66 69 6C 65 0D 0A 09 6C 64 20 64 65 2C  en file...ld de,
000170: 26 43 30 30 30 3A 20 63 61 6C 6C 20 26 42 43 38  &C000: call &BC8
000180: 43 3A 20 6A 70 20 6E 63 2C 73 61 76 65 65 72 09  C: jp nc,saveer.
000190: 3B 20 7C 0D 0A 09 6C 64 20 68 6C 2C 28 6C 61 73  ; |...ld hl,(las
0001A0: 74 61 64 29 3A 20 6C 64 20 64 65 2C 66 6E 61 6D  tad): ld de,fnam
0001B0: 65 3A 20 6F 72 20 61 09 3B 53 61 76 65 0D 0A 09  e: or a.;Save...
0001C0: 73 62 63 20 68 6C 2C 64 65 3A 20 65 78 20 64 65  sbc hl,de: ex de
0001D0: 2C 68 6C 09 09 09 3B 20 7C 20 63 61 6C 63 75 6C  ,hl...; | calcul
0001E0: 61 74 65 20 6C 65 6E 67 74 68 0D 0A 09 6C 64 20  ate length...ld 
0001F0: 68 6C 2C 66 6E 61 6D 65 3A 20 6C 64 20 62 63 2C  hl,fname: ld bc,

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 44 65 73 6B 74 6F 70 20 4F 72 67 61  ...;Desktop Orga
000010: 6E 69 73 65 0D 0A 09 3B 63 61 74 61 6C 6F 67 75  nise...;catalogu
000020: 65 2F 61 72 63 68 69 76 65 20 73 79 73 74 65 6D  e/archive system
000030: 20 66 6F 72 20 44 45 53 0D 0A 09 3B 28 63 29 20   for DES...;(c) 
000040: 52 69 63 68 61 72 64 20 46 61 69 72 68 75 72 73  Richard Fairhurs
000050: 74 20 31 39 39 34 0D 0A 0D 0A 09 6F 72 67 20 26  t 1994.....org &
000060: 33 30 30 30 0D 0A 09 77 72 69 74 65 20 22 63 61  3000...write "ca
000070: 74 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69 73 74 0D  t.bin"...nolist.
000080: 0A 0D 0A 09 3B 76 31 2E 31 20 20 2D 20 6E 61 6D  ....;v1.1  - nam
000090: 65 20 63 68 65 63 6B 69 6E 67 20 6F 6E 20 72 65  e checking on re
0000A0: 73 74 6F 72 65 0D 0A 09 3B 20 20 20 20 20 20 20  store...;       
0000B0: 20 66 6F 72 6D 61 74 20 6F 70 74 69 6F 6E 0D 0A   format option..
0000C0: 09 3B 76 31 2E 31 31 20 2D 20 62 75 67 20 66 69  .;v1.11 - bug fi
0000D0: 78 20 28 2E 73 74 61 74 73 32 20 65 6E 74 72 79  x (.stats2 entry
0000E0: 20 70 6F 69 6E 74 20 61 64 64 65 64 29 0D 0A 0D   point added)...
0000F0: 0A 09 3B 2A 2A 2A 20 49 4E 49 54 09 44 45 53 20  ..;*** INIT.DES 
000100: 6C 6F 61 64 65 72 0D 0A 0D 0A 09 64 62 20 22 44  loader.....db "D
000110: 45 53 20 41 50 50 4C 49 43 41 54 49 4F 4E 3A 22  ES APPLICATION:"
000120: 0D 0A 09 64 77 20 26 33 30 30 30 0D 0A 0D 0A 09  ...dw &3000.....
000130: 70 75 73 68 20 62 63 3A 20 70 75 73 68 20 68 6C  push bc: push hl
000140: 0D 0A 09 20 63 61 6C 6C 20 6D 63 6F 64 65 0D 0A  ... call mcode..
000150: 09 70 6F 70 20 68 6C 3A 20 70 6F 70 20 62 63 0D  .pop hl: pop bc.
000160: 0A 09 6A 70 20 26 31 42 0D 0A 0D 0A 09 3B 2A 2A  ..jp &1B.....;**
000170: 2A 20 49 4E 49 54 09 53 63 72 65 65 6E 20 69 6E  * INIT.Screen in
000180: 69 74 69 61 6C 69 73 61 74 69 6F 6E 0D 0A 0D 0A  itialisation....
000190: 2E 6D 63 6F 64 65 09 6C 64 20 62 2C 37 3A 20 6C  .mcode.ld b,7: l
0001A0: 64 20 68 6C 2C 6D 61 69 6E 66 6E 09 09 09 3B 4F  d hl,mainfn...;O
0001B0: 70 65 6E 20 22 4D 41 49 4E 2E 46 4E 22 0D 0A 09  pen "MAIN.FN"...
0001C0: 6C 64 20 64 65 2C 26 43 30 30 30 3A 20 63 61 6C  ld de,&C000: cal
0001D0: 6C 20 26 42 43 37 37 09 09 09 3B 20 7C 0D 0A 09  l &BC77...; |...
0001E0: 6C 64 20 68 6C 2C 66 6E 61 6D 65 3A 20 63 61 6C  ld hl,fname: cal
0001F0: 6C 20 26 42 43 38 33 09 09 09 3B 4C 6F 61 64 20  l &BC83...;Load

Size : 512 (Real : 512)
000000: 55 42 52 09 45 6D 70 74 79 20 67 72 61 70 68 69  UBR.Empty graphi
000010: 63 73 20 62 75 66 66 65 72 0D 0A 0D 0A 2E 65 6D  cs buffer.....em
000020: 70 74 79 67 09 6C 64 20 61 2C 28 67 72 61 73 6E  ptyg.ld a,(grasn
000030: 74 29 3A 20 6F 72 20 61 3A 20 72 65 74 20 7A 3A  t): or a: ret z:
000040: 20 6C 64 20 62 2C 61 3A 20 6A 72 20 73 65 6E 64   ld b,a: jr send
000050: 69 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52  it.....;*** SUBR
000060: 09 50 72 69 6E 74 20 63 68 61 72 61 63 74 65 72  .Print character
000070: 0D 0A 0D 0A 2E 70 72 6E 09 70 75 73 68 20 62 63  .....prn.push bc
000080: 3A 20 6C 64 20 63 2C 61 0D 0A 2E 70 72 6E 74 72  : ld c,a...prntr
000090: 79 09 20 6C 64 20 61 2C 63 3A 20 63 61 6C 6C 20  y. ld a,c: call 
0000A0: 73 74 6F 72 69 67 3A 20 6A 72 20 6E 63 2C 70 72  storig: jr nc,pr
0000B0: 6E 74 72 79 0D 0A 09 70 6F 70 20 62 63 3A 20 72  ntry...pop bc: r
0000C0: 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 56 41 52 53  et.....;*** VARS
0000D0: 09 4D 69 73 63 65 6C 6C 61 6E 65 6F 75 73 0D 0A  .Miscellaneous..
0000E0: 0D 0A 2E 73 74 6F 72 69 67 09 64 73 20 33 09 09  ...storig.ds 3..
0000F0: 09 09 09 3B 4F 72 69 67 69 6E 61 6C 20 26 42 44  ...;Original &BD
000100: 32 42 20 72 6F 75 74 69 6E 65 0D 0A 2E 62 61 73  2B routine...bas
000110: 65 09 64 77 20 6C 6F 61 64 09 09 09 09 09 3B 42  e.dw load.....;B
000120: 61 73 65 20 6F 66 20 63 68 61 72 61 63 74 65 72  ase of character
000130: 73 20 66 6F 72 20 74 68 69 73 20 72 75 6E 0D 0A  s for this run..
000140: 0D 0A 2E 62 75 66 70 6F 73 09 64 77 20 63 68 61  ...bufpos.dw cha
000150: 72 73 09 09 09 09 3B 50 6F 73 69 74 69 6F 6E 20  rs....;Position 
000160: 69 6E 20 62 75 66 66 65 72 0D 0A 2E 70 6F 73 09  in buffer...pos.
000170: 64 62 20 30 09 09 09 09 09 3B 4E 75 6D 62 65 72  db 0.....;Number
000180: 20 6F 66 20 63 68 61 72 61 63 74 65 72 73 20 77   of characters w
000190: 72 69 74 74 65 6E 0D 0A 0D 0A 2E 70 69 74 63 68  ritten.....pitch
0001A0: 09 64 62 20 30 09 09 09 09 09 3B 43 68 61 72 61  .db 0.....;Chara
0001B0: 63 74 65 72 20 70 69 74 63 68 20 28 31 30 2F 31  cter pitch (10/1
0001C0: 32 2F 30 3D 70 72 70 6E 2E 29 0D 0A 2E 70 72 76  2/0=prpn.)...prv
0001D0: 70 74 63 09 64 62 20 30 09 09 09 09 09 3B 50 72  ptc.db 0.....;Pr
0001E0: 65 76 69 6F 75 73 20 63 68 61 72 61 63 74 65 72  evious character
0001F0: 20 70 69 74 63 68 0D 0A 2E 62 6F 6C 64 09 64 62   pitch...bold.db

Size : 512 (Real : 512)
000000: 66 69 6C 65 0D 0A 09 63 61 6C 6C 20 26 42 43 37  file...call &BC7
000010: 41 0D 0A 0D 0A 09 6C 64 20 61 2C 28 6C 73 74 72  A.....ld a,(lstr
000020: 65 63 29 3A 20 63 61 6C 6C 20 73 74 61 74 73 32  ec): call stats2
000030: 0D 0A 09 61 64 64 20 68 6C 2C 64 65 3A 20 6C 64  ...add hl,de: ld
000040: 20 28 6C 61 73 74 61 64 29 2C 68 6C 0D 0A 0D 0A   (lastad),hl....
000050: 09 6C 64 20 64 65 2C 37 39 20 20 3A 20 63 61 6C  .ld de,79  : cal
000060: 6C 20 26 39 32 37 38 0D 0A 09 6C 64 20 68 6C 2C  l &9278...ld hl,
000070: 6D 62 61 72 3A 20 63 61 6C 6C 20 26 39 32 34 35  mbar: call &9245
000080: 0D 0A 09 63 61 6C 6C 20 73 74 61 74 73 3A 20 63  ...call stats: c
000090: 61 6C 6C 20 63 61 72 64 0D 0A 0D 0A 09 3B 09 09  all card.....;..
0000A0: 49 6E 69 74 69 61 6C 69 73 65 20 63 6C 69 63 6B  Initialise click
0000B0: 20 7A 6F 6E 65 73 0D 0A 0D 0A 2E 6B 65 79 73 09   zones.....keys.
0000C0: 63 61 6C 6C 20 26 39 32 43 30 09 09 09 09 3B 43  call &92C0....;C
0000D0: 6C 65 61 72 20 61 6C 6C 20 63 6C 69 63 6B 20 7A  lear all click z
0000E0: 6F 6E 65 73 0D 0A 09 6C 64 20 62 2C 31 39 3A 20  ones...ld b,19: 
0000F0: 6C 64 20 68 6C 2C 7A 6F 6E 65 73 20 3A 20 63 61  ld hl,zones : ca
000100: 6C 6C 20 26 39 32 43 33 09 3B 53 65 74 20 75 70  ll &92C3.;Set up
000110: 20 63 6C 69 63 6B 20 7A 6F 6E 65 73 0D 0A 09 6C   click zones...l
000120: 64 20 62 2C 31 33 3A 20 6C 64 20 68 6C 2C 6B 7A  d b,13: ld hl,kz
000130: 6F 6E 65 73 3A 20 63 61 6C 6C 20 26 39 32 43 43  ones: call &92CC
000140: 09 3B 53 65 74 20 75 70 20 73 68 6F 72 74 63 75  .;Set up shortcu
000150: 74 20 6B 65 79 73 0D 0A 0D 0A 09 3B 2A 2A 2A 20  t keys.....;*** 
000160: 53 45 43 54 09 4D 61 69 6E 20 6C 6F 6F 70 0D 0A  SECT.Main loop..
000170: 0D 0A 2E 6D 6F 75 73 65 09 63 61 6C 6C 20 26 39  ...mouse.call &9
000180: 32 36 39 09 09 09 09 3B 57 61 69 74 20 66 6F 72  269....;Wait for
000190: 20 72 65 6C 65 61 73 65 20 6F 66 20 63 6C 69 63   release of clic
0001A0: 6B 20 6B 65 79 73 0D 0A 2E 6D 6E 63 09 63 61 6C  k keys...mnc.cal
0001B0: 6C 20 26 39 32 36 33 09 09 09 09 3B 4D 6F 75 73  l &9263....;Mous
0001C0: 65 20 72 6F 75 74 69 6E 65 0D 0A 2E 73 65 6C 65  e routine...sele
0001D0: 63 74 09 63 70 20 31 20 3A 20 6A 70 20 20 7A 2C  ct.cp 1 : jp  z,
0001E0: 66 69 6C 65 20 20 3A 09 63 70 20 32 20 3A 20 6A  file  :.cp 2 : j
0001F0: 70 20 20 7A 2C 64 69 73 63 0D 0A 09 63 70 20 33  p  z,disc...cp 3

Size : 512 (Real : 512)
000000: 20 30 09 09 09 09 09 3B 42 6F 6C 64 3F 0D 0A 2E   0.....;Bold?...
000010: 69 74 61 6C 69 63 09 64 62 20 30 09 09 09 09 09  italic.db 0.....
000020: 3B 49 74 61 6C 69 63 73 3F 0D 0A 2E 63 75 72 69  ;Italics?...curi
000030: 74 61 09 64 62 20 30 09 09 09 09 09 3B 49 74 61  ta.db 0.....;Ita
000040: 6C 69 63 73 3F 20 28 63 68 61 72 61 63 74 65 72  lics? (character
000050: 20 61 73 73 65 73 73 6D 65 6E 74 29 0D 0A 2E 75   assessment)...u
000060: 6E 64 65 72 6C 09 64 62 20 30 09 09 09 09 09 3B  nderl.db 0.....;
000070: 55 6E 64 65 72 6C 69 6E 65 3F 0D 0A 2E 75 6E 64  Underline?...und
000080: 65 72 63 09 64 62 20 30 09 09 09 09 09 3B 55 6E  erc.db 0.....;Un
000090: 64 65 72 6C 69 6E 65 3F 20 28 4F 52 20 62 79 74  derline? (OR byt
0000A0: 65 20 74 6F 20 75 73 65 29 0D 0A 0D 0A 2E 6C 61  e to use).....la
0000B0: 73 74 09 64 62 20 30 09 09 09 09 09 3B 4C 61 73  st.db 0.....;Las
0000C0: 74 20 63 68 61 72 61 63 74 65 72 20 20 20 20 20  t character     
0000D0: 20 20 20 28 62 6F 6C 64 29 0D 0A 2E 6C 61 73 74     (bold)...last
0000E0: 32 09 64 62 20 30 09 09 09 09 09 3B 43 68 61 72  2.db 0.....;Char
0000F0: 61 63 74 65 72 20 62 65 66 6F 72 65 20 74 68 61  acter before tha
000100: 74 20 28 62 6F 6C 64 29 0D 0A 2E 63 68 61 72 09  t (bold)...char.
000110: 64 62 20 30 09 09 09 09 09 3B 43 75 72 72 65 6E  db 0.....;Curren
000120: 74 20 63 68 61 72 61 63 74 65 72 20 20 20 20 20  t character     
000130: 28 62 6F 6C 64 29 0D 0A 0D 0A 09 3B 2A 2A 2A 20  (bold).....;*** 
000140: 56 41 52 53 09 47 72 61 70 68 69 63 73 20 62 75  VARS.Graphics bu
000150: 66 66 65 72 0D 0A 0D 0A 2E 67 72 61 73 6E 74 09  ffer.....grasnt.
000160: 64 62 20 30 09 09 09 09 09 3B 4E 75 6D 62 65 72  db 0.....;Number
000170: 20 6F 66 20 63 68 61 72 61 63 74 65 72 73 20 73   of characters s
000180: 65 6E 74 0D 0A 2E 67 72 61 70 6F 73 09 64 77 20  ent...grapos.dw 
000190: 67 72 61 62 75 66 09 09 09 09 3B 50 6F 73 69 74  grabuf....;Posit
0001A0: 69 6F 6E 20 69 6E 20 62 75 66 66 65 72 0D 0A 2E  ion in buffer...
0001B0: 67 72 61 62 75 66 09 64 73 20 31 32 38 09 09 09  grabuf.ds 128...
0001C0: 09 09 3B 42 75 66 66 65 72 0D 0A 0D 0A 09 3B 2A  ..;Buffer.....;*
0001D0: 2A 2A 20 56 41 52 53 09 43 68 61 72 61 63 74 65  ** VARS.Characte
0001E0: 72 2F 73 70 61 63 69 6E 67 20 62 75 66 66 65 72  r/spacing buffer
0001F0: 73 0D 0A 0D 0A 2E 63 68 61 72 73 09 64 73 20 32  s.....chars.ds 2

Size : 512 (Real : 512)
000000: 20 3A 20 6A 70 20 20 7A 2C 73 65 61 72 63 68 3A   : jp  z,search:
000010: 09 63 70 20 34 20 3A 20 6A 70 20 20 7A 2C 61 72  .cp 4 : jp  z,ar
000020: 63 68 69 76 0D 0A 09 63 70 20 35 20 3A 20 6A 70  chiv...cp 5 : jp
000030: 20 20 7A 2C 6F 70 65 6E 20 20 3A 09 63 70 20 36    z,open  :.cp 6
000040: 20 3A 20 6A 70 20 20 7A 2C 73 61 76 65 0D 0A 09   : jp  z,save...
000050: 63 70 20 38 20 3A 20 6A 70 20 20 7A 2C 6C 6F 67  cp 8 : jp  z,log
000060: 69 6E 20 3A 09 63 70 20 39 20 3A 20 6A 70 20 20  in :.cp 9 : jp  
000070: 7A 2C 75 70 64 61 74 65 0D 0A 09 63 70 20 31 30  z,update...cp 10
000080: 3A 20 6A 70 20 20 7A 2C 70 72 72 65 63 20 3A 09  : jp  z,prrec :.
000090: 63 70 20 31 31 3A 20 6A 70 20 20 7A 2C 67 6F 74  cp 11: jp  z,got
0000A0: 6F 0D 0A 09 63 70 20 31 32 3A 20 6A 70 20 20 7A  o...cp 12: jp  z
0000B0: 2C 64 72 69 76 65 61 3A 09 63 70 20 31 33 3A 20  ,drivea:.cp 13: 
0000C0: 6A 70 20 20 7A 2C 64 72 69 76 65 62 0D 0A 09 63  jp  z,driveb...c
0000D0: 70 20 31 34 3A 20 6A 70 20 20 7A 2C 66 69 6E 64  p 14: jp  z,find
0000E0: 20 20 3A 09 63 70 20 31 35 3A 20 6A 70 20 20 7A    :.cp 15: jp  z
0000F0: 2C 6E 65 78 74 0D 0A 09 63 70 20 31 36 3A 20 6A  ,next...cp 16: j
000100: 70 20 20 7A 2C 63 72 65 61 74 65 3A 09 63 70 20  p  z,create:.cp 
000110: 31 37 3A 20 6A 70 20 20 7A 2C 72 65 73 74 6F 72  17: jp  z,restor
000120: 0D 0A 09 63 70 20 31 38 3A 20 6A 70 20 20 7A 2C  ...cp 18: jp  z,
000130: 66 63 5F 64 6E 20 3A 09 63 70 20 31 39 3A 20 6A  fc_dn :.cp 19: j
000140: 70 20 20 7A 2C 66 63 5F 75 70 0D 0A 09 63 70 20  p  z,fc_up...cp 
000150: 37 20 3A 20 72 65 74 20 7A 20 20 20 20 20 20 20  7 : ret z       
000160: 3A 09 6A 70 20 6D 6F 75 73 65 0D 0A 0D 0A 09 3B  :.jp mouse.....;
000170: 2A 2A 2A 20 4D 45 4E 55 09 46 69 6C 65 20 6D 65  *** MENU.File me
000180: 6E 75 0D 0A 0D 0A 2E 66 69 6C 65 09 6C 64 20 68  nu.....file.ld h
000190: 6C 2C 6D 66 69 6C 65 3A 20 6C 64 20 64 65 2C 69  l,mfile: ld de,i
0001A0: 66 69 6C 65 0D 0A 09 63 61 6C 6C 20 26 39 32 37  file...call &927
0001B0: 45 3A 20 6A 70 20 63 2C 73 65 6C 65 63 74 3A 20  E: jp c,select: 
0001C0: 63 70 20 26 46 46 3A 20 6A 70 20 7A 2C 6D 6F 75  cp &FF: jp z,mou
0001D0: 73 65 0D 0A 09 63 70 20 31 3A 20 6A 70 20 20 7A  se...cp 1: jp  z
0001E0: 2C 6F 70 65 6E 0D 0A 09 63 70 20 32 3A 20 6A 70  ,open...cp 2: jp
0001F0: 20 20 7A 2C 73 61 76 65 0D 0A 09 63 70 20 33 3A    z,save...cp 3:

Size : 512 (Real : 512)
000000: 35 36 0D 0A 2E 73 70 61 63 65 73 09 64 73 20 32  56...spaces.ds 2
000010: 35 36 0D 0A 1A 09 3B 28 63 29 20 52 69 63 68 61  56....;(c) Richa
000020: 72 64 20 46 61 69 72 68 75 72 73 74 20 41 70 72  rd Fairhurst Apr
000030: 69 6C 20 31 39 39 35 0D 0A 0D 0A 09 6F 72 67 20  il 1995.....org 
000040: 26 39 41 30 30 0D 0A 09 77 72 69 74 65 20 22 69  &9A00...write "i
000050: 6D 61 67 65 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69  mage.bin"...noli
000060: 73 74 0D 0A 0D 0A 6C 6F 61 64 09 65 71 75 20 26  st....load.equ &
000070: 36 36 30 30 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F  6600.....;*** RO
000080: 65 72 63 09 64 62 20 30 09 09 09 09 09 3B 55 6E  erc.db 0.....;Un
000090: 64 65 72 6C 69 6E 65 3F 20 28 4F 52 20 62 79 74  derline? (OR byt
0000A0: 65 20 74 6F 20 75 73 65 29 0D 0A 0D 0A 2E 6C 61  e to use).....la
0000B0: 73 74 09 64 62 20 30 09 09 09 09 09 3B 4C 61 73  st.db 0.....;Las
0000C0: 74 20 63 68 61 72 61 63 74 65 72 20 20 20 20 20  t character     
0000D0: 20 20 20 28 62 6F 6C 64 29 0D 0A 2E 6C 61 73 74     (bold)...last
0000E0: 32 09 64 62 20 30 09 09 09 09 09 3B 43 68 61 72  2.db 0.....;Char
0000F0: 61 63 74 65 72 20 62 65 66 6F 72 65 20 74 68 61  acter before tha
000100: 74 20 28 62 6F 6C 64 29 0D 0A 2E 63 68 61 72 09  t (bold)...char.
000110: 64 62 20 30 09 09 09 09 09 3B 43 75 72 72 65 6E  db 0.....;Curren
000120: 74 20 63 68 61 72 61 63 74 65 72 20 20 20 20 20  t character     
000130: 28 62 6F 6C 64 29 0D 0A 0D 0A 09 3B 2A 2A 2A 20  (bold).....;*** 
000140: 56 41 52 53 09 47 72 61 70 68 69 63 73 20 62 75  VARS.Graphics bu
000150: 66 66 65 72 0D 0A 0D 0A 2E 67 72 61 73 6E 74 09  ffer.....grasnt.
000160: 64 62 20 30 09 09 09 09 09 3B 4E 75 6D 62 65 72  db 0.....;Number
000170: 20 6F 66 20 63 68 61 72 61 63 74 65 72 73 20 73   of characters s
000180: 65 6E 74 0D 0A 2E 67 72 61 70 6F 73 09 64 77 20  ent...grapos.dw 
000190: 67 72 61 62 75 66 09 09 09 09 3B 50 6F 73 69 74  grabuf....;Posit
0001A0: 69 6F 6E 20 69 6E 20 62 75 66 66 65 72 0D 0A 2E  ion in buffer...
0001B0: 67 72 61 62 75 66 09 64 73 20 31 32 38 09 09 09  grabuf.ds 128...
0001C0: 09 09 3B 42 75 66 66 65 72 0D 0A 0D 0A 09 3B 2A  ..;Buffer.....;*
0001D0: 2A 2A 20 56 41 52 53 09 43 68 61 72 61 63 74 65  ** VARS.Characte
0001E0: 72 2F 73 70 61 63 69 6E 67 20 62 75 66 66 65 72  r/spacing buffer
0001F0: 73 0D 0A 0D 0A 2E 63 68 61 72 73 09 64 73 20 32  s.....chars.ds 2

Size : 512 (Real : 512)
000000: 20 6A 70 20 20 7A 2C 61 73 63 69 69 0D 0A 09 63   jp  z,ascii...c
000010: 70 20 34 3A 20 6A 70 20 20 7A 2C 70 72 69 6E 74  p 4: jp  z,print
000020: 0D 0A 09 63 70 20 36 3A 20 72 65 74 20 7A 0D 0A  ...cp 6: ret z..
000030: 09 6A 70 20 66 69 6C 65 0D 0A 0D 0A 0D 0A 09 3B  .jp file.......;
000040: 2B 2B 2B 20 52 4F 55 54 09 4F 70 65 6E 20 64 61  +++ ROUT.Open da
000050: 74 61 62 61 73 65 0D 0A 0D 0A 2E 6F 70 65 6E 09  tabase.....open.
000060: 6C 64 20 68 2C 33 31 3A 20 6C 64 20 6C 2C 38 30  ld h,31: ld l,80
000070: 0D 0A 09 6C 64 20 64 2C 31 38 3A 20 6C 64 20 65  ...ld d,18: ld e
000080: 2C 34 34 0D 0A 09 63 61 6C 6C 20 26 39 32 33 46  ,44...call &923F
000090: 0D 0A 09 63 61 6C 6C 20 26 39 32 38 31 0D 0A 09  ...call &9281...
0000A0: 63 61 6C 6C 20 26 39 32 38 41 0D 0A 09 6C 64 20  call &928A...ld 
0000B0: 64 65 2C 37 39 3A 20 63 61 6C 6C 20 26 39 32 37  de,79: call &927
0000C0: 38 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 6F 70 65 6E  8.....ld hl,open
0000D0: 74 78 3A 20 63 61 6C 6C 20 26 39 32 30 33 0D 0A  tx: call &9203..
0000E0: 09 6C 64 20 64 2C 33 33 3A 20 6C 64 20 65 2C 31  .ld d,33: ld e,1
0000F0: 30 38 3A 20 6F 72 20 61 0D 0A 09 6C 64 20 63 2C  08: or a...ld c,
000100: 31 33 3A 20 6C 64 20 68 6C 2C 66 6E 61 6D 65 3A  13: ld hl,fname:
000110: 20 63 61 6C 6C 20 26 39 32 37 32 0D 0A 09 6A 70   call &9272...jp
000120: 20 63 2C 6F 70 65 6E 65 72 0D 0A 0D 0A 09 6C 64   c,opener.....ld
000130: 20 62 2C 63 3A 20 6C 64 20 68 6C 2C 66 6E 61 6D   b,c: ld hl,fnam
000140: 65 09 09 09 3B 4F 70 65 6E 20 66 69 6C 65 0D 0A  e...;Open file..
000150: 09 6C 64 20 64 65 2C 26 43 30 30 30 3A 20 63 61  .ld de,&C000: ca
000160: 6C 6C 20 26 42 43 37 37 3A 20 6A 70 20 6E 63 2C  ll &BC77: jp nc,
000170: 6F 70 65 6E 65 72 09 3B 20 7C 0D 0A 09 6C 64 20  opener.; |...ld 
000180: 68 6C 2C 66 6E 61 6D 65 3A 20 63 61 6C 6C 20 26  hl,fname: call &
000190: 42 43 38 33 3A 20 6A 70 20 6E 63 2C 6F 70 65 6E  BC83: jp nc,open
0001A0: 65 72 09 3B 4C 6F 61 64 20 66 69 6C 65 0D 0A 09  er.;Load file...
0001B0: 63 61 6C 6C 20 26 42 43 37 41 0D 0A 0D 0A 09 6C  call &BC7A.....l
0001C0: 64 20 61 2C 28 6C 73 74 72 65 63 29 3A 20 63 61  d a,(lstrec): ca
0001D0: 6C 6C 20 73 74 61 74 73 32 0D 0A 09 61 64 64 20  ll stats2...add 
0001E0: 68 6C 2C 64 65 3A 20 6C 64 20 28 6C 61 73 74 61  hl,de: ld (lasta
0001F0: 64 29 2C 68 6C 0D 0A 0D 0A 09 3B 09 09 45 72 72  d),hl.....;..Err

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: 70 20 61 66 09 09 3B 50 72 69 6E 74 20 74 6F 20  p af..;Print to 
000010: 64 69 73 63 0D 0A 09 6C 64 20 68 6C 2C 6C 73 74  disc...ld hl,lst
000020: 72 65 63 3A 20 63 70 20 28 68 6C 29 3A 20 6A 70  rec: cp (hl): jp
000030: 20 7A 2C 6B 65 79 73 09 3B 20 7C 0D 0A 09 69 6E   z,keys.; |...in
000040: 63 20 61 3A 20 6A 72 20 70 72 6E 5F 6C 70 09 09  c a: jr prn_lp..
000050: 09 3B 20 7C 20 61 6E 64 20 6C 6F 6F 70 0D 0A 0D  .; | and loop...
000060: 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09  ......;*** SUBR.
000070: 4F 75 74 70 75 74 20 64 69 73 63 20 63 61 74 61  Output disc cata
000080: 6C 6F 67 75 65 0D 0A 09 3B 09 09 4F 6E 20 65 6E  logue...;..On en
000090: 74 72 79 2C 20 41 20 63 6F 6E 74 61 69 6E 73 20  try, A contains 
0000A0: 64 69 73 63 20 6E 75 6D 62 65 72 0D 0A 09 3B 09  disc number...;.
0000B0: 09 52 6F 75 74 69 6E 65 20 61 74 20 70 63 68 61  .Routine at pcha
0000C0: 72 20 73 68 6F 75 6C 64 20 6F 75 74 70 75 74 20  r should output 
0000D0: 61 20 63 68 61 72 61 63 74 65 72 0D 0A 0D 0A 2E  a character.....
0000E0: 6F 75 74 70 75 74 09 63 61 6C 6C 20 72 65 63 61  output.call reca
0000F0: 64 64 0D 0A 09 70 75 73 68 20 68 6C 3A 20 63 61  dd...push hl: ca
000100: 6C 6C 20 73 74 72 69 6E 67 3A 20 70 6F 70 20 68  ll string: pop h
000110: 6C 09 09 3B 50 72 69 6E 74 20 74 69 74 6C 65 0D  l..;Print title.
000120: 0A 09 63 61 6C 6C 20 63 72 6C 66 3A 20 6C 64 20  ..call crlf: ld 
000130: 64 65 2C 33 32 3A 20 61 64 64 20 68 6C 2C 64 65  de,32: add hl,de
000140: 09 09 3B 20 7C 0D 0A 09 70 75 73 68 20 68 6C 3A  ..; |...push hl:
000150: 20 6C 64 20 62 2C 28 68 6C 29 09 09 09 3B 50 72   ld b,(hl)...;Pr
000160: 69 6E 74 20 6E 75 6D 62 65 72 20 6F 66 20 66 69  int number of fi
000170: 6C 65 73 0D 0A 09 20 6C 64 20 6C 2C 28 68 6C 29  les... ld l,(hl)
000180: 3A 20 6C 64 20 68 2C 30 3A 20 63 61 6C 6C 20 70  : ld h,0: call p
000190: 72 5F 68 6C 09 09 3B 20 7C 0D 0A 09 20 6C 64 20  r_hl..; |... ld 
0001A0: 68 6C 2C 66 69 6C 65 73 3A 20 63 61 6C 6C 20 73  hl,files: call s
0001B0: 74 72 69 6E 67 09 09 3B 20 7C 0D 0A 09 20 6C 64  tring..; |... ld
0001C0: 20 61 2C 22 2C 22 3A 20 63 61 6C 6C 20 70 63 68   a,",": call pch
0001D0: 61 72 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 61  ar...; |... ld a
0001E0: 2C 22 20 22 3A 20 63 61 6C 6C 20 70 63 68 61 72  ," ": call pchar
0001F0: 09 09 09 3B 20 7C 0D 0A 09 70 6F 70 20 68 6C 3A  ...; |...pop hl:

Size : 512 (Real : 512)
000000: 4D 45 4E 55 09 44 69 73 63 20 6D 65 6E 75 0D 0A  MENU.Disc menu..
000010: 0D 0A 2E 64 69 73 63 09 6C 64 20 68 6C 2C 6D 64  ...disc.ld hl,md
000020: 69 73 63 3A 20 6C 64 20 64 65 2C 69 64 69 73 63  isc: ld de,idisc
000030: 0D 0A 09 63 61 6C 6C 20 26 39 32 37 45 3A 20 6A  ...call &927E: j
000040: 70 20 63 2C 73 65 6C 65 63 74 3A 20 63 70 20 26  p c,select: cp &
000050: 46 46 3A 20 6A 70 20 7A 2C 6D 6F 75 73 65 0D 0A  FF: jp z,mouse..
000060: 0D 0A 09 63 70 20 31 3A 20 6A 70 20 7A 2C 6C 6F  ...cp 1: jp z,lo
000070: 67 69 6E 0D 0A 09 63 70 20 32 3A 20 6A 70 20 7A  gin...cp 2: jp z
000080: 2C 75 70 64 61 74 65 0D 0A 09 63 70 20 34 3A 20  ,update...cp 4: 
000090: 6A 70 20 7A 2C 70 72 72 65 63 0D 0A 09 63 70 20  jp z,prrec...cp 
0000A0: 35 3A 20 6A 70 20 7A 2C 67 6F 74 6F 0D 0A 09 63  5: jp z,goto...c
0000B0: 70 20 37 3A 20 6A 70 20 7A 2C 64 72 69 76 65 61  p 7: jp z,drivea
0000C0: 0D 0A 09 63 70 20 38 3A 20 6A 70 20 7A 2C 64 72  ...cp 8: jp z,dr
0000D0: 69 76 65 62 0D 0A 09 6A 70 20 64 69 73 63 0D 0A  iveb...jp disc..
0000E0: 0D 0A 09 3B 2B 2B 2B 20 52 4F 55 54 09 4C 6F 67  ...;+++ ROUT.Log
0000F0: 20 69 6E 20 6E 65 77 20 64 69 73 63 0D 0A 0D 0A   in new disc....
000100: 2E 6C 6F 67 69 6E 09 63 61 6C 6C 20 6D 65 6D 63  .login.call memc
000110: 68 6B 20 20 20 3A 20 6A 70 20 6E 63 2C 6D 6F 75  hk   : jp nc,mou
000120: 73 65 0D 0A 09 6C 64 20 68 6C 2C 28 6C 61 73 74  se...ld hl,(last
000130: 61 64 29 3A 20 6C 64 20 28 68 6C 29 2C 30 0D 0A  ad): ld (hl),0..
000140: 09 6C 64 20 64 2C 68 3A 20 6C 64 20 65 2C 6C 3A  .ld d,h: ld e,l:
000150: 20 69 6E 63 20 64 65 3A 20 6C 64 20 62 63 2C 34   inc de: ld bc,4
000160: 38 3A 20 6C 64 69 72 0D 0A 09 6C 64 20 68 6C 2C  8: ldir...ld hl,
000170: 28 6C 61 73 74 61 64 29 3A 20 63 61 6C 6C 20 6C  (lastad): call l
000180: 6F 67 73 75 62 3A 20 6C 64 20 28 6C 61 73 74 61  ogsub: ld (lasta
000190: 64 29 2C 68 6C 0D 0A 0D 0A 09 6C 64 20 61 2C 28  d),hl.....ld a,(
0001A0: 6C 73 74 72 65 63 29 3A 20 69 6E 63 20 61 0D 0A  lstrec): inc a..
0001B0: 09 6C 64 20 28 6C 73 74 72 65 63 29 2C 61 3A 20  .ld (lstrec),a: 
0001C0: 6C 64 20 28 63 75 72 72 65 63 29 2C 61 0D 0A 09  ld (currec),a...
0001D0: 63 61 6C 6C 20 72 65 63 61 64 64 3A 20 63 61 6C  call recadd: cal
0001E0: 6C 20 63 61 72 64 0D 0A 09 6A 70 20 6D 6F 75 73  l card...jp mous
0001F0: 65 0D 0A 0D 0A 0D 0A 09 3B 2B 2B 2B 20 52 4F 55  e.......;+++ ROU

Size : 512 (Real : 512)
000000: 20 69 6E 63 20 68 6C 09 09 09 09 3B 20 7C 0D 0A   inc hl....; |..
000010: 09 70 75 73 68 20 68 6C 09 09 09 09 09 3B 50 72  .push hl.....;Pr
000020: 69 6E 74 20 6B 20 66 72 65 65 0D 0A 09 20 6C 64  int k free... ld
000030: 20 65 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 09   e,(hl): inc hl.
000040: 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 64 2C 28 68  ..; |... ld d,(h
000050: 6C 29 3A 20 65 78 20 64 65 2C 68 6C 3A 20 63 61  l): ex de,hl: ca
000060: 6C 6C 20 70 72 5F 68 6C 09 3B 20 7C 0D 0A 09 20  ll pr_hl.; |... 
000070: 6C 64 20 68 6C 2C 66 72 65 65 3A 20 63 61 6C 6C  ld hl,free: call
000080: 20 73 74 72 69 6E 67 09 09 3B 20 7C 0D 0A 09 70   string..; |...p
000090: 6F 70 20 68 6C 3A 20 69 6E 63 20 68 6C 3A 20 69  op hl: inc hl: i
0000A0: 6E 63 20 68 6C 3A 20 63 61 6C 6C 20 63 72 6C 66  nc hl: call crlf
0000B0: 09 3B 20 7C 0D 0A 09 70 75 73 68 20 68 6C 09 09  .; |...push hl..
0000C0: 09 09 09 3B 50 72 69 6E 74 20 66 6F 72 6D 61 74  ...;Print format
0000D0: 0D 0A 09 20 6C 64 20 61 2C 28 68 6C 29 3A 20 63  ... ld a,(hl): c
0000E0: 61 6C 6C 20 70 66 6F 72 6D 3A 20 63 61 6C 6C 20  all pform: call 
0000F0: 73 74 72 69 6E 67 09 3B 20 7C 0D 0A 09 20 6C 64  string.; |... ld
000100: 20 68 6C 2C 66 5F 66 6F 72 6D 09 20 20 20 20 20   hl,f_form.     
000110: 20 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67 09 3B   : call string.;
000120: 20 7C 0D 0A 09 70 6F 70 20 68 6C 3A 20 69 6E 63   |...pop hl: inc
000130: 20 68 6C 09 09 09 09 3B 20 7C 0D 0A 09 70 75 73   hl....; |...pus
000140: 68 20 68 6C 09 09 09 09 09 3B 50 72 69 6E 74 20  h hl.....;Print 
000150: 61 72 63 68 69 76 65 0D 0A 09 20 6C 64 20 61 2C  archive... ld a,
000160: 28 68 6C 29 3A 20 6F 72 20 61 3A 20 6A 72 20 7A  (hl): or a: jr z
000170: 2C 70 6E 61 72 63 09 09 3B 20 7C 0D 0A 09 20 70  ,pnarc..; |... p
000180: 75 73 68 20 61 66 3A 20 6C 64 20 68 6C 2C 61 64  ush af: ld hl,ad
000190: 69 73 63 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67  isc: call string
0001A0: 09 3B 20 7C 20 61 72 63 68 69 76 65 2E 2E 2E 0D  .; | archive....
0001B0: 0A 09 20 70 6F 70 20 20 61 66 3A 20 6C 64 20 6C  .. pop  af: ld l
0001C0: 2C 61 3A 20 6C 64 20 68 2C 30 3A 20 63 61 6C 6C  ,a: ld h,0: call
0001D0: 20 70 72 5F 68 6C 09 3B 20 7C 20 20 7C 0D 0A 09   pr_hl.; |  |...
0001E0: 20 6A 72 20 70 6E 61 72 63 64 09 09 09 09 3B 20   jr pnarcd....; 
0001F0: 7C 20 20 7C 0D 0A 2E 70 6E 61 72 63 09 20 6C 64  |  |...pnarc. ld

Size : 512 (Real : 512)
000000: 54 09 55 70 64 61 74 65 20 64 69 73 63 0D 0A 0D  T.Update disc...
000010: 0A 2E 75 70 64 61 74 65 09 63 61 6C 6C 20 6D 65  ..update.call me
000020: 6D 63 68 6B 3A 20 6A 70 20 6E 63 2C 6D 6F 75 73  mchk: jp nc,mous
000030: 65 0D 0A 0D 0A 09 63 61 6C 6C 20 73 74 61 74 73  e.....call stats
000040: 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20 65 78 20  : add hl,de: ex 
000050: 64 65 2C 68 6C 09 09 3B 46 69 6E 64 20 6F 75 74  de,hl..;Find out
000060: 20 6C 65 6E 67 74 68 20 74 6F 20 63 6F 70 79 0D   length to copy.
000070: 0A 09 6C 64 20 68 6C 2C 28 6C 61 73 74 61 64 29  ..ld hl,(lastad)
000080: 3A 20 6F 72 20 61 3A 20 73 62 63 20 68 6C 2C 64  : or a: sbc hl,d
000090: 65 09 09 3B 20 7C 0D 0A 09 6C 64 20 28 6C 65 6E  e..; |...ld (len
0000A0: 67 74 68 29 2C 68 6C 3A 20 6C 64 20 61 2C 68 3A  gth),hl: ld a,h:
0000B0: 20 6F 72 20 6C 09 09 3B 20 7C 20 6C 65 6E 67 74   or l..; | lengt
0000C0: 68 3D 62 79 74 65 73 20 61 66 74 65 72 20 72 65  h=bytes after re
0000D0: 63 6F 72 64 0D 0A 09 6A 72 20 7A 2C 64 6F 6C 6F  cord...jr z,dolo
0000E0: 67 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 63 61 6C  g....; |.....cal
0000F0: 6C 20 73 74 61 74 73 3A 20 6C 64 20 64 65 2C 26  l stats: ld de,&
000100: 43 32 35 09 09 09 3B 46 69 6E 64 20 6F 75 74 20  C25...;Find out 
000110: 64 65 73 74 69 6E 61 74 69 6F 6E 0D 0A 09 61 64  destination...ad
000120: 64 20 68 6C 2C 64 65 3A 20 6C 64 20 28 64 65 73  d hl,de: ld (des
000130: 74 29 2C 68 6C 09 09 09 3B 20 7C 20 64 65 73 74  t),hl...; | dest
000140: 3D 6C 6F 63 61 74 69 6F 6E 20 66 6F 72 20 6E 65  =location for ne
000150: 78 74 2C 0D 0A 09 09 09 09 09 09 3B 20 7C 20 20  xt,........; |  
000160: 20 20 20 20 6C 65 61 76 69 6E 67 20 6D 61 78 69      leaving maxi
000170: 6D 75 6D 20 73 70 61 63 65 0D 0A 0D 0A 09 63 61  mum space.....ca
000180: 6C 6C 20 73 74 61 74 73 3A 20 61 64 64 20 68 6C  ll stats: add hl
000190: 2C 64 65 09 09 09 3B 46 69 6E 64 20 6F 75 74 20  ,de...;Find out 
0001A0: 73 6F 75 72 63 65 0D 0A 09 6C 64 20 64 65 2C 28  source...ld de,(
0001B0: 64 65 73 74 29 3A 20 6C 64 20 62 63 2C 28 6C 65  dest): ld bc,(le
0001C0: 6E 67 74 68 29 3A 20 63 61 6C 6C 20 6C 64 64 73  ngth): call ldds
0001D0: 09 3B 2E 2E 2E 61 6E 64 20 63 6F 70 79 20 69 74  .;...and copy it
0001E0: 0D 0A 0D 0A 2E 64 6F 6C 6F 67 09 63 61 6C 6C 20  .....dolog.call 
0001F0: 73 74 61 74 73 3A 20 63 61 6C 6C 20 6C 6F 67 73  stats: call logs

Size : 512 (Real : 512)
000000: 20 68 6C 2C 66 6E 74 61 72 63 3A 20 63 61 6C 6C   hl,fntarc: call
000010: 20 73 74 72 69 6E 67 09 09 3B 20 7C 20 6E 6F 74   string..; | not
000020: 20 61 72 63 68 69 76 65 64 0D 0A 2E 70 6E 61 72   archived...pnar
000030: 63 64 09 70 6F 70 20 68 6C 3A 20 63 61 6C 6C 20  cd.pop hl: call 
000040: 63 72 6C 66 3A 20 63 61 6C 6C 20 63 72 6C 66 0D  crlf: call crlf.
000050: 0A 09 6C 64 20 64 65 2C 31 33 3A 20 61 64 64 20  ..ld de,13: add 
000060: 68 6C 2C 64 65 0D 0A 0D 0A 09 6C 64 20 63 2C 30  hl,de.....ld c,0
000070: 3A 20 6C 64 20 61 2C 62 3A 20 6F 72 20 61 3A 20  : ld a,b: or a: 
000080: 6A 72 20 7A 2C 65 6F 5F 6F 75 74 09 3B 41 6E 79  jr z,eo_out.;Any
000090: 20 66 69 6C 65 73 3F 0D 0A 2E 70 6C 5F 6F 6C 70   files?...pl_olp
0000A0: 09 6C 64 20 63 2C 35 09 09 09 09 09 3B 50 72 69  .ld c,5.....;Pri
0000B0: 6E 74 20 6C 69 6E 65 20 28 6F 75 74 65 72 20 6C  nt line (outer l
0000C0: 6F 6F 70 29 0D 0A 2E 70 6C 5F 69 6C 70 09 63 61  oop)...pl_ilp.ca
0000D0: 6C 6C 20 6F 70 66 6E 09 09 09 09 3B 20 7C 20 70  ll opfn....; | p
0000E0: 72 69 6E 74 20 66 69 6C 65 6E 61 6D 65 20 28 69  rint filename (i
0000F0: 6E 6E 65 72 20 6C 6F 6F 70 29 0D 0A 09 6C 64 20  nner loop)...ld 
000100: 61 2C 22 20 22 20 3A 20 63 61 6C 6C 20 70 63 68  a," " : call pch
000110: 61 72 09 09 09 3B 20 7C 20 20 7C 0D 0A 09 6C 64  ar...; |  |...ld
000120: 20 61 2C 22 20 22 20 3A 20 63 61 6C 6C 20 70 63   a," " : call pc
000130: 68 61 72 09 09 09 3B 20 7C 20 20 7C 0D 0A 09 64  har...; |  |...d
000140: 65 63 20 62 09 20 3A 20 6A 72 20 7A 20 2C 65 6F  ec b. : jr z ,eo
000150: 5F 6F 75 74 09 09 09 3B 20 7C 20 20 7C 20 61 6E  _out...; |  | an
000160: 79 20 66 69 6C 65 73 20 6C 65 66 74 3F 0D 0A 09  y files left?...
000170: 64 65 63 20 63 09 20 3A 20 6A 72 20 6E 7A 2C 70  dec c. : jr nz,p
000180: 6C 5F 69 6C 70 09 09 09 3B 20 7C 20 20 7C 0D 0A  l_ilp...; |  |..
000190: 09 63 61 6C 6C 20 63 72 6C 66 3A 20 6A 72 20 20  .call crlf: jr  
0001A0: 20 20 70 6C 5F 6F 6C 70 09 09 09 3B 20 7C 0D 0A    pl_olp...; |..
0001B0: 0D 0A 2E 65 6F 5F 6F 75 74 09 6C 64 20 61 2C 63  ...eo_out.ld a,c
0001C0: 3A 20 6F 72 20 61 3A 20 63 61 6C 6C 20 6E 7A 2C  : or a: call nz,
0001D0: 63 72 6C 66 0D 0A 09 63 61 6C 6C 20 63 72 6C 66  crlf...call crlf
0001E0: 3A 20 72 65 74 0D 0A 0D 0A 2E 70 63 68 61 72 09  : ret.....pchar.
0001F0: 64 73 20 33 0D 0A 0D 0A 2E 70 64 69 73 63 09 70  ds 3.....pdisc.p

Size : 512 (Real : 512)
000000: 30 09 09 09 3B 20 7C 20 6F 72 69 67 69 6E 20 61  0...; | origin a
000010: 6E 64 20 65 78 65 63 75 74 69 6F 6E 20 61 64 64  nd execution add
000020: 72 65 73 73 0D 0A 09 6C 64 20 61 2C 32 3A 20 63  ress...ld a,2: c
000030: 61 6C 6C 20 26 42 43 39 38 3A 20 6A 70 20 6E 63  all &BC98: jp nc
000040: 2C 73 61 76 65 65 72 09 3B 20 7C 20 66 69 6C 65  ,saveer.; | file
000050: 74 79 70 65 0D 0A 09 63 61 6C 6C 20 26 42 43 38  type...call &BC8
000060: 46 09 09 09 09 3B 43 6C 6F 73 65 0D 0A 0D 0A 2E  F....;Close.....
000070: 73 61 76 65 65 72 09 63 61 6C 6C 20 26 42 43 39  saveer.call &BC9
000080: 32 3A 20 63 61 6C 6C 20 26 39 32 38 44 0D 0A 09  2: call &928D...
000090: 63 61 6C 6C 20 73 74 61 74 73 3A 20 63 61 6C 6C  call stats: call
0000A0: 20 63 61 72 64 20 3A 20 6A 70 20 6B 65 79 73 0D   card : jp keys.
0000B0: 0A 0D 0A 0D 0A 09 3B 2B 2B 2B 20 52 4F 55 54 09  ......;+++ ROUT.
0000C0: 53 61 76 65 20 61 73 20 41 53 43 49 49 0D 0A 0D  Save as ASCII...
0000D0: 0A 2E 61 73 63 69 69 09 6C 64 20 68 2C 33 31 3A  ..ascii.ld h,31:
0000E0: 20 6C 64 20 6C 2C 38 30 0D 0A 09 6C 64 20 64 2C   ld l,80...ld d,
0000F0: 31 38 3A 20 6C 64 20 65 2C 34 34 0D 0A 09 63 61  18: ld e,44...ca
000100: 6C 6C 20 26 39 32 33 46 0D 0A 09 63 61 6C 6C 20  ll &923F...call 
000110: 26 39 32 38 31 0D 0A 09 63 61 6C 6C 20 26 39 32  &9281...call &92
000120: 38 41 0D 0A 09 6C 64 20 64 65 2C 37 39 3A 20 63  8A...ld de,79: c
000130: 61 6C 6C 20 26 39 32 37 38 0D 0A 0D 0A 09 6C 64  all &9278.....ld
000140: 20 68 6C 2C 73 61 76 65 74 78 3A 20 63 61 6C 6C   hl,savetx: call
000150: 20 26 39 32 30 33 0D 0A 09 6C 64 20 64 2C 33 33   &9203...ld d,33
000160: 3A 20 6C 64 20 65 2C 31 30 38 3A 20 6F 72 20 61  : ld e,108: or a
000170: 0D 0A 09 6C 64 20 63 2C 31 33 3A 20 6C 64 20 68  ...ld c,13: ld h
000180: 6C 2C 66 6E 61 6D 65 3A 20 63 61 6C 6C 20 26 39  l,fname: call &9
000190: 32 37 32 0D 0A 09 6A 70 20 63 2C 61 73 63 65 72  272...jp c,ascer
0001A0: 72 0D 0A 0D 0A 09 6C 64 20 62 2C 63 3A 20 6C 64  r.....ld b,c: ld
0001B0: 20 68 6C 2C 66 6E 61 6D 65 09 09 09 3B 4F 70 65   hl,fname...;Ope
0001C0: 6E 20 66 69 6C 65 0D 0A 09 6C 64 20 64 65 2C 26  n file...ld de,&
0001D0: 31 30 30 30 3A 20 63 61 6C 6C 20 26 42 43 38 43  1000: call &BC8C
0001E0: 3A 20 6A 70 20 6E 63 2C 61 73 63 65 72 72 09 3B  : jp nc,ascerr.;
0001F0: 20 7C 0D 0A 0D 0A 09 6C 64 20 61 2C 26 43 33 20   |.....ld a,&C3

Size : 512 (Real : 512)
000000: 75 73 68 20 69 78 3A 20 63 61 6C 6C 20 26 42 43  ush ix: call &BC
000010: 39 35 3A 20 70 6F 70 20 69 78 3A 20 72 65 74 20  95: pop ix: ret 
000020: 63 09 3B 4F 75 74 70 75 74 20 74 6F 20 64 69 73  c.;Output to dis
000030: 63 0D 0A 09 6C 64 20 61 2C 26 43 39 3A 20 6C 64  c...ld a,&C9: ld
000040: 20 28 70 63 68 61 72 29 2C 61 09 09 09 3B 20 7C   (pchar),a...; |
000050: 20 69 66 20 64 69 73 63 20 65 72 72 6F 72 2C 20   if disc error, 
000060: 63 6C 6F 73 65 0D 0A 09 70 75 73 68 20 61 66 3A  close...push af:
000070: 20 70 75 73 68 20 62 63 3A 20 70 75 73 68 20 64   push bc: push d
000080: 65 3A 20 70 75 73 68 20 68 6C 09 3B 20 7C 20 20  e: push hl.; |  
000090: 7C 0D 0A 09 20 63 61 6C 6C 20 26 42 43 39 32 09  |... call &BC92.
0000A0: 09 09 09 3B 20 7C 20 20 7C 0D 0A 09 70 6F 70 20  ...; |  |...pop 
0000B0: 68 6C 3A 20 70 6F 70 20 64 65 3A 20 70 6F 70 20  hl: pop de: pop 
0000C0: 62 63 3A 20 70 6F 70 20 61 66 3A 20 72 65 74 09  bc: pop af: ret.
0000D0: 3B 20 7C 20 20 7C 0D 0A 2E 70 72 6E 09 70 75 73  ; |  |...prn.pus
0000E0: 68 20 61 66 09 09 09 09 09 3B 4F 75 74 70 75 74  h af.....;Output
0000F0: 20 74 6F 20 70 72 69 6E 74 65 72 0D 0A 09 20 63   to printer... c
000100: 61 6C 6C 20 26 42 44 32 42 3A 20 6A 72 20 63 2C  all &BD2B: jr c,
000110: 70 72 6E 5F 6F 6B 09 09 3B 20 7C 0D 0A 09 70 6F  prn_ok..; |...po
000120: 70 20 61 66 3A 20 6A 72 20 70 72 6E 09 09 09 09  p af: jr prn....
000130: 3B 20 7C 0D 0A 2E 70 72 6E 5F 6F 6B 09 70 6F 70  ; |...prn_ok.pop
000140: 20 61 66 3A 20 72 65 74 09 09 09 09 3B 20 7C 0D   af: ret....; |.
000150: 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09  ......;--- subr.
000160: 4F 75 74 70 75 74 20 73 74 72 69 6E 67 0D 0A 0D  Output string...
000170: 0A 2E 73 74 72 69 6E 67 09 6C 64 20 61 2C 28 68  ..string.ld a,(h
000180: 6C 29 3A 20 6F 72 20 61 3A 20 72 65 74 20 7A 0D  l): or a: ret z.
000190: 0A 09 63 61 6C 6C 20 70 63 68 61 72 3A 20 69 6E  ..call pchar: in
0001A0: 63 20 68 6C 3A 20 6A 72 20 73 74 72 69 6E 67 0D  c hl: jr string.
0001B0: 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 4F 75  ....;--- subr.Ou
0001C0: 74 70 75 74 20 31 32 2D 63 68 61 72 61 63 74 65  tput 12-characte
0001D0: 72 20 66 69 6C 65 6E 61 6D 65 0D 0A 0D 0A 2E 6F  r filename.....o
0001E0: 70 66 6E 09 70 75 73 68 20 62 63 3A 20 6C 64 20  pfn.push bc: ld 
0001F0: 62 2C 31 32 0D 0A 2E 6F 70 66 6E 6C 70 09 20 6C  b,12...opfnlp. l

Size : 512 (Real : 512)
000000: 20 20 3A 20 6C 64 20 28 70 63 68 61 72 2B 30 29    : ld (pchar+0)
000010: 2C 61 09 09 3B 53 65 74 20 75 70 20 70 72 69 6E  ,a..;Set up prin
000020: 74 69 6E 67 20 74 6F 20 64 69 73 63 0D 0A 09 6C  ting to disc...l
000030: 64 20 68 6C 2C 70 64 69 73 63 3A 20 6C 64 20 28  d hl,pdisc: ld (
000040: 70 63 68 61 72 2B 31 29 2C 68 6C 09 09 3B 20 7C  pchar+1),hl..; |
000050: 0D 0A 09 78 6F 72 20 61 09 09 09 09 09 3B 52 65  ...xor a.....;Re
000060: 63 6F 72 64 20 30 0D 0A 2E 61 73 63 5F 6C 70 09  cord 0...asc_lp.
000070: 70 75 73 68 20 61 66 3A 20 63 61 6C 6C 20 6F 75  push af: call ou
000080: 74 70 75 74 3A 20 70 6F 70 20 61 66 09 09 3B 50  tput: pop af..;P
000090: 72 69 6E 74 20 74 6F 20 64 69 73 63 0D 0A 09 6C  rint to disc...l
0000A0: 64 20 68 6C 2C 6C 73 74 72 65 63 3A 20 63 70 20  d hl,lstrec: cp 
0000B0: 28 68 6C 29 3A 20 6A 72 20 7A 2C 61 73 63 63 6C  (hl): jr z,asccl
0000C0: 73 09 3B 20 7C 0D 0A 09 69 6E 63 20 61 3A 20 6A  s.; |...inc a: j
0000D0: 72 20 61 73 63 5F 6C 70 09 09 09 3B 20 7C 20 61  r asc_lp...; | a
0000E0: 6E 64 20 6C 6F 6F 70 0D 0A 0D 0A 2E 61 73 63 63  nd loop.....ascc
0000F0: 6C 73 09 63 61 6C 6C 20 26 42 43 38 46 09 09 09  ls.call &BC8F...
000100: 09 3B 43 6C 6F 73 65 0D 0A 0D 0A 2E 61 73 63 65  .;Close.....asce
000110: 72 72 09 63 61 6C 6C 20 26 42 43 39 32 3A 20 63  rr.call &BC92: c
000120: 61 6C 6C 20 26 39 32 38 44 0D 0A 09 63 61 6C 6C  all &928D...call
000130: 20 73 74 61 74 73 3A 20 63 61 6C 6C 20 63 61 72   stats: call car
000140: 64 20 3A 20 6A 70 20 6B 65 79 73 0D 0A 0D 0A 0D  d : jp keys.....
000150: 0A 09 3B 2B 2B 2B 20 52 4F 55 54 09 50 72 69 6E  ..;+++ ROUT.Prin
000160: 74 20 64 61 74 61 62 61 73 65 0D 0A 0D 0A 2E 70  t database.....p
000170: 72 69 6E 74 09 63 61 6C 6C 20 26 39 32 42 44 3A  rint.call &92BD:
000180: 20 6A 70 20 6E 63 2C 6B 65 79 73 0D 0A 09 6C 64   jp nc,keys...ld
000190: 20 61 20 2C 26 43 33 20 3A 20 6C 64 20 28 70 63   a ,&C3 : ld (pc
0001A0: 68 61 72 2B 30 29 2C 61 0D 0A 09 6C 64 20 68 6C  har+0),a...ld hl
0001B0: 2C 70 72 6E 20 3A 20 6C 64 20 28 70 63 68 61 72  ,prn : ld (pchar
0001C0: 2B 31 29 2C 68 6C 0D 0A 0D 0A 09 78 6F 72 20 61  +1),hl.....xor a
0001D0: 09 09 09 09 09 3B 52 65 63 6F 72 64 20 30 0D 0A  .....;Record 0..
0001E0: 2E 70 72 6E 5F 6C 70 09 70 75 73 68 20 61 66 3A  .prn_lp.push af:
0001F0: 20 63 61 6C 6C 20 6F 75 74 70 75 74 3A 20 70 6F   call output: po

Size : 512 (Real : 512)
000000: 64 20 61 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C  d a,(hl): inc hl
000010: 3A 20 61 6E 64 20 31 32 37 0D 0A 09 20 63 61 6C  : and 127... cal
000020: 6C 20 70 63 68 61 72 3A 20 64 6A 6E 7A 20 6F 70  l pchar: djnz op
000030: 66 6E 6C 70 0D 0A 09 70 6F 70 20 62 63 3A 20 72  fnlp...pop bc: r
000040: 65 74 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72  et.....;--- subr
000050: 09 43 52 2F 4C 46 0D 0A 0D 0A 2E 63 72 6C 66 09  .CR/LF.....crlf.
000060: 6C 64 20 61 2C 31 33 3A 20 63 61 6C 6C 20 70 63  ld a,13: call pc
000070: 68 61 72 0D 0A 09 6C 64 20 61 2C 31 30 3A 20 6A  har...ld a,10: j
000080: 70 20 20 20 70 63 68 61 72 0D 0A 0D 0A 09 3B 2D  p   pchar.....;-
000090: 2D 2D 20 73 75 62 72 09 4F 75 74 70 75 74 20 48  -- subr.Output H
0000A0: 4C 20 61 73 20 28 75 70 20 74 6F 29 20 35 2D 64  L as (up to) 5-d
0000B0: 69 67 69 74 20 64 65 63 69 6D 61 6C 0D 0A 0D 0A  igit decimal....
0000C0: 2E 70 72 5F 68 6C 09 6C 64 20 63 2C 30 0D 0A 09  .pr_hl.ld c,0...
0000D0: 6C 64 20 64 65 2C 31 30 30 30 30 3A 20 63 61 6C  ld de,10000: cal
0000E0: 6C 20 70 72 68 6C 72 0D 0A 09 6C 64 20 64 65 2C  l prhlr...ld de,
0000F0: 31 30 30 30 20 3A 20 63 61 6C 6C 20 70 72 68 6C  1000 : call prhl
000100: 72 0D 0A 09 6C 64 20 64 65 2C 31 30 30 20 20 3A  r...ld de,100  :
000110: 20 63 61 6C 6C 20 70 72 68 6C 72 0D 0A 09 6C 64   call prhlr...ld
000120: 20 64 65 2C 31 30 20 20 20 3A 20 63 61 6C 6C 20   de,10   : call 
000130: 70 72 68 6C 72 0D 0A 09 6C 64 20 64 65 2C 31 20  prhlr...ld de,1 
000140: 20 20 20 3A 20 6C 64 20 63 2C 31 0D 0A 2E 70 72     : ld c,1...pr
000150: 68 6C 72 09 78 6F 72 20 61 0D 0A 2E 70 72 68 6C  hlr.xor a...prhl
000160: 6C 70 09 73 63 66 3A 20 63 63 66 3A 20 73 62 63  lp.scf: ccf: sbc
000170: 20 68 6C 2C 64 65 3A 20 6A 72 20 63 2C 70 72 68   hl,de: jr c,prh
000180: 6C 6F 0D 0A 09 69 6E 63 20 61 3A 20 6A 72 20 70  lo...inc a: jr p
000190: 72 68 6C 6C 70 0D 0A 2E 70 72 68 6C 6F 09 61 64  rhllp...prhlo.ad
0001A0: 64 20 68 6C 2C 64 65 3A 20 6F 72 20 61 3A 20 6A  d hl,de: or a: j
0001B0: 72 20 6E 7A 2C 70 72 68 6C 79 3A 20 63 70 20 63  r nz,prhly: cp c
0001C0: 3A 20 72 65 74 20 7A 0D 0A 2E 70 72 68 6C 79 09  : ret z...prhly.
0001D0: 6C 64 20 63 2C 31 3A 20 61 64 64 20 26 33 30 3A  ld c,1: add &30:
0001E0: 20 63 61 6C 6C 20 70 63 68 61 72 3A 20 72 65 74   call pchar: ret
0001F0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20  ...........;***

Size : 512 (Real : 512)
000000: 6D 0D 0A 0D 0A 2E 6C 62 66 61 6B 65 09 64 73 20  m.....lbfake.ds 
000010: 32 35 36 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2B 2B 2B  256.........;+++
000020: 20 52 4F 55 54 09 43 68 61 6E 67 65 20 64 72 69   ROUT.Change dri
000030: 76 65 0D 0A 0D 0A 2E 64 72 69 76 65 61 09 6C 64  ve.....drivea.ld
000040: 20 65 2C 30 3A 20 63 61 6C 6C 20 26 39 32 41 35   e,0: call &92A5
000050: 3A 20 6A 70 20 6D 6F 75 73 65 0D 0A 2E 64 72 69  : jp mouse...dri
000060: 76 65 62 09 6C 64 20 65 2C 31 3A 20 63 61 6C 6C  veb.ld e,1: call
000070: 20 26 39 32 41 35 3A 20 6A 70 20 6D 6F 75 73 65   &92A5: jp mouse
000080: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2A 2A  .............;**
000090: 2A 20 4D 45 4E 55 09 53 65 61 72 63 68 20 6D 65  * MENU.Search me
0000A0: 6E 75 0D 0A 0D 0A 2E 73 65 61 72 63 68 09 6C 64  nu.....search.ld
0000B0: 20 68 6C 2C 6D 73 65 61 72 63 3A 20 6C 64 20 64   hl,msearc: ld d
0000C0: 65 2C 69 73 65 61 72 63 0D 0A 09 63 61 6C 6C 20  e,isearc...call 
0000D0: 26 39 32 37 45 3A 20 6A 70 20 63 2C 73 65 6C 65  &927E: jp c,sele
0000E0: 63 74 3A 20 63 70 20 26 46 46 3A 20 6A 70 20 7A  ct: cp &FF: jp z
0000F0: 2C 6D 6F 75 73 65 0D 0A 09 63 70 20 31 3A 20 6A  ,mouse...cp 1: j
000100: 70 20 7A 2C 66 69 6E 64 0D 0A 09 63 70 20 32 3A  p z,find...cp 2:
000110: 20 6A 70 20 7A 2C 6E 65 78 74 0D 0A 09 6A 70 20   jp z,next...jp 
000120: 73 65 61 72 63 68 0D 0A 0D 0A 09 3B 2B 2B 2B 20  search.....;+++ 
000130: 52 4F 55 54 09 46 69 6E 64 20 66 69 6C 65 6E 61  ROUT.Find filena
000140: 6D 65 0D 0A 0D 0A 2E 66 69 6E 64 09 6C 64 20 68  me.....find.ld h
000150: 2C 33 31 3A 20 6C 64 20 6C 2C 38 30 0D 0A 09 6C  ,31: ld l,80...l
000160: 64 20 64 2C 31 38 3A 20 6C 64 20 65 2C 34 34 0D  d d,18: ld e,44.
000170: 0A 09 63 61 6C 6C 20 26 39 32 33 46 0D 0A 09 63  ..call &923F...c
000180: 61 6C 6C 20 26 39 32 38 31 0D 0A 09 6C 64 20 64  all &9281...ld d
000190: 65 2C 37 39 3A 20 63 61 6C 6C 20 26 39 32 37 38  e,79: call &9278
0001A0: 0D 0A 09 6C 64 20 61 2C 31 3A 20 63 61 6C 6C 20  ...ld a,1: call 
0001B0: 26 39 32 37 42 09 09 09 3B 55 70 70 65 72 20 63  &927B...;Upper c
0001C0: 61 73 65 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 66 69  ase.....ld hl,fi
0001D0: 6E 64 74 78 3A 20 63 61 6C 6C 20 26 39 32 30 33  ndtx: call &9203
0001E0: 0D 0A 09 6C 64 20 64 2C 33 33 3A 20 6C 64 20 65  ...ld d,33: ld e
0001F0: 2C 31 30 38 3A 20 6F 72 20 61 0D 0A 09 6C 64 20  ,108: or a...ld

Size : 512 (Real : 512)
000000: 0A 09 6C 64 64 72 3A 20 72 65 74 0D 0A 0D 0A 0D  ..lddr: ret.....
000010: 0A 09 3B 2B 2B 2B 20 52 4F 55 54 09 50 72 69 6E  ..;+++ ROUT.Prin
000020: 74 20 64 69 73 63 0D 0A 0D 0A 2E 70 72 72 65 63  t disc.....prrec
000030: 09 63 61 6C 6C 20 26 39 32 42 44 3A 20 6A 70 20  .call &92BD: jp 
000040: 6E 63 2C 6B 65 79 73 0D 0A 09 6C 64 20 61 20 2C  nc,keys...ld a ,
000050: 26 43 33 20 3A 20 6C 64 20 28 70 63 68 61 72 2B  &C3 : ld (pchar+
000060: 30 29 2C 61 0D 0A 09 6C 64 20 68 6C 2C 70 72 6E  0),a...ld hl,prn
000070: 20 3A 20 6C 64 20 28 70 63 68 61 72 2B 31 29 2C   : ld (pchar+1),
000080: 68 6C 0D 0A 0D 0A 09 6C 64 20 61 2C 28 63 75 72  hl.....ld a,(cur
000090: 72 65 63 29 0D 0A 09 63 61 6C 6C 20 6F 75 74 70  rec)...call outp
0000A0: 75 74 0D 0A 09 6A 70 20 6B 65 79 73 0D 0A 0D 0A  ut...jp keys....
0000B0: 0D 0A 0D 0A 09 3B 2B 2B 2B 20 52 4F 55 54 09 47  .....;+++ ROUT.G
0000C0: 6F 20 74 6F 20 64 69 73 63 0D 0A 0D 0A 2E 67 6F  o to disc.....go
0000D0: 74 6F 09 6C 64 20 68 2C 32 31 3A 20 6C 64 20 6C  to.ld h,21: ld l
0000E0: 2C 36 30 09 09 3B 49 6E 69 74 69 61 6C 69 73 65  ,60..;Initialise
0000F0: 20 77 69 6E 64 6F 77 0D 0A 09 6C 64 20 64 2C 33   window...ld d,3
000100: 38 3A 20 6C 64 20 65 2C 38 30 3A 20 63 61 6C 6C  8: ld e,80: call
000110: 20 26 39 32 33 43 09 3B 20 7C 0D 0A 09 6C 64 20   &923C.; |...ld 
000120: 68 2C 32 32 3A 20 6C 64 20 6C 2C 36 36 3A 20 63  h,22: ld l,66: c
000130: 61 6C 6C 20 26 39 32 32 34 09 3B 50 72 69 6E 74  all &9224.;Print
000140: 20 22 73 65 6C 65 63 74 20 64 69 73 63 22 0D 0A   "select disc"..
000150: 09 6C 64 20 68 6C 2C 67 6F 74 6F 74 78 3A 20 63  .ld hl,gototx: c
000160: 61 6C 6C 20 26 39 32 30 33 09 3B 20 7C 0D 0A 09  all &9203.; |...
000170: 63 61 6C 6C 20 26 39 32 43 30 09 09 09 3B 43 6C  call &92C0...;Cl
000180: 65 61 72 20 61 6C 6C 20 63 6C 69 63 6B 20 7A 6F  ear all click zo
000190: 6E 65 73 0D 0A 09 78 6F 72 20 61 3A 20 6C 64 20  nes...xor a: ld 
0001A0: 28 73 74 61 74 75 73 2B 37 29 2C 61 09 09 3B 53  (status+7),a..;S
0001B0: 74 61 72 74 69 6E 67 20 61 74 20 72 65 63 6F 72  tarting at recor
0001C0: 64 20 30 0D 0A 09 6C 64 20 69 78 2C 73 74 61 74  d 0...ld ix,stat
0001D0: 75 73 09 09 09 3B 53 65 74 20 75 70 20 6C 69 73  us...;Set up lis
0001E0: 74 20 62 6F 78 0D 0A 09 6C 64 20 61 2C 28 6C 73  t box...ld a,(ls
0001F0: 74 72 65 63 29 3A 20 69 6E 63 20 61 09 09 3B 20  trec): inc a..;

Size : 512 (Real : 512)
000000: 63 2C 31 32 3A 20 6C 64 20 68 6C 2C 70 6E 61 6D  c,12: ld hl,pnam
000010: 65 3A 20 63 61 6C 6C 20 26 39 32 37 32 0D 0A 09  e: call &9272...
000020: 6A 70 20 63 2C 66 69 6E 64 71 74 0D 0A 09 63 61  jp c,findqt...ca
000030: 6C 6C 20 65 78 70 61 6E 64 0D 0A 0D 0A 09 78 6F  ll expand.....xo
000040: 72 20 61 3A 20 6C 64 20 28 63 75 72 72 65 63 29  r a: ld (currec)
000050: 2C 61 09 09 09 3B 52 65 63 6F 72 64 20 30 0D 0A  ,a...;Record 0..
000060: 09 20 20 20 20 20 20 20 6C 64 20 28 69 73 65 61  .       ld (isea
000070: 72 63 29 2C 61 09 09 09 3B 22 46 69 6E 64 20 6E  rc),a...;"Find n
000080: 65 78 74 22 20 65 6E 61 62 6C 65 64 0D 0A 0D 0A  ext" enabled....
000090: 2E 66 64 6C 6F 6F 70 09 63 61 6C 6C 20 73 74 61  .fdloop.call sta
0000A0: 74 73 09 09 09 09 3B 46 69 6E 64 20 72 65 63 6F  ts....;Find reco
0000B0: 72 64 0D 0A 09 6C 64 20 64 65 2C 33 32 3A 20 61  rd...ld de,32: a
0000C0: 64 64 20 68 6C 2C 64 65 3A 20 6C 64 20 62 2C 28  dd hl,de: ld b,(
0000D0: 68 6C 29 09 09 3B 47 65 74 20 6C 65 6E 67 74 68  hl)..;Get length
0000E0: 0D 0A 09 6C 64 20 61 2C 62 3A 20 6F 72 20 61 3A  ...ld a,b: or a:
0000F0: 20 6A 70 20 7A 2C 6E 78 74 64 73 63 09 09 3B 53   jp z,nxtdsc..;S
000100: 6B 69 70 20 69 66 20 6E 6F 20 66 69 6C 65 73 0D  kip if no files.
000110: 0A 09 6C 64 20 64 65 2C 31 37 3A 20 61 64 64 20  ..ld de,17: add 
000120: 68 6C 2C 64 65 09 09 09 3B 45 78 61 6D 69 6E 65  hl,de...;Examine
000130: 0D 0A 09 63 61 6C 6C 20 65 78 61 6D 3A 20 6A 70  ...call exam: jp
000140: 20 6E 63 2C 66 69 6E 64 71 74 09 09 09 3B 20 7C   nc,findqt...; |
000150: 20 71 75 69 74 20 69 66 20 66 6F 75 6E 64 0D 0A   quit if found..
000160: 2E 6E 78 74 64 73 63 09 6C 64 20 61 2C 28 6C 73  .nxtdsc.ld a,(ls
000170: 74 72 65 63 29 3A 20 6C 64 20 63 2C 61 09 09 09  trec): ld c,a...
000180: 3B 49 73 20 74 68 69 73 20 74 68 65 20 6C 61 73  ;Is this the las
000190: 74 20 72 65 63 6F 72 64 3F 0D 0A 09 6C 64 20 61  t record?...ld a
0001A0: 2C 28 63 75 72 72 65 63 29 3A 20 63 70 20 63 3A  ,(currec): cp c:
0001B0: 20 6A 72 20 7A 2C 6E 6F 74 66 6E 64 09 3B 20 7C   jr z,notfnd.; |
0001C0: 20 79 65 73 2C 20 73 6F 20 71 75 69 74 0D 0A 09   yes, so quit...
0001D0: 69 6E 63 20 61 3A 20 6C 64 20 28 63 75 72 72 65  inc a: ld (curre
0001E0: 63 29 2C 61 3A 20 6A 72 20 66 64 6C 6F 6F 70 09  c),a: jr fdloop.
0001F0: 09 3B 20 7C 20 6E 6F 20 2C 20 73 6F 20 6C 6F 6F  .; | no , so loo

Size : 512 (Real : 512)
000000: 7C 0D 0A 09 6C 64 20 62 2C 31 35 3A 20 6C 64 20  |...ld b,15: ld 
000010: 63 2C 38 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 64  c,8...; |...ld d
000020: 65 2C 6C 62 66 61 6B 65 09 09 09 3B 20 7C 0D 0A  e,lbfake...; |..
000030: 09 6C 64 20 68 2C 33 36 3A 20 6C 64 20 6C 2C 36  .ld h,36: ld l,6
000040: 34 09 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20 26 39  4..; |...call &9
000050: 32 46 33 09 09 09 3B 20 7C 0D 0A 09 63 61 6C 6C  2F3...; |...call
000060: 20 6C 73 74 73 75 62 09 09 09 3B 44 69 73 70 6C   lstsub...;Displ
000070: 61 79 20 74 68 65 20 6C 69 73 74 20 62 6F 78 21  ay the list box!
000080: 0D 0A 0D 0A 2E 6C 69 73 74 6D 73 09 63 61 6C 6C  .....listms.call
000090: 20 26 39 32 36 39 09 09 09 3B 57 61 69 74 20 66   &9269...;Wait f
0000A0: 6F 72 20 72 65 6C 65 61 73 65 20 6F 66 20 63 6C  or release of cl
0000B0: 69 63 6B 20 6B 65 79 73 0D 0A 09 63 61 6C 6C 20  ick keys...call 
0000C0: 26 39 32 36 33 09 09 09 3B 4D 6F 75 73 65 20 72  &9263...;Mouse r
0000D0: 6F 75 74 69 6E 65 0D 0A 09 63 70 20 31 3A 20 6A  outine...cp 1: j
0000E0: 70 20 7A 2C 6C 69 73 74 73 6C 0D 0A 09 63 70 20  p z,listsl...cp 
0000F0: 32 3A 20 6A 70 20 7A 2C 6C 69 73 74 75 70 0D 0A  2: jp z,listup..
000100: 09 63 70 20 33 3A 20 6A 70 20 7A 2C 6C 69 73 74  .cp 3: jp z,list
000110: 64 6E 0D 0A 2E 6C 69 73 74 62 70 09 63 61 6C 6C  dn...listbp.call
000120: 20 26 39 32 44 32 3A 20 6A 70 20 6C 69 73 74 6D   &92D2: jp listm
000130: 73 0D 0A 0D 0A 2E 6C 69 73 74 75 70 09 6C 64 20  s.....listup.ld 
000140: 61 2C 28 73 74 61 74 75 73 2B 37 29 3A 20 6F 72  a,(status+7): or
000150: 20 61 3A 20 6A 70 20 7A 2C 6C 69 73 74 6D 73 0D   a: jp z,listms.
000160: 0A 09 6C 64 20 69 78 2C 73 74 61 74 75 73 3A 20  ..ld ix,status: 
000170: 63 61 6C 6C 20 26 39 32 45 44 0D 0A 09 63 61 6C  call &92ED...cal
000180: 6C 20 6C 73 74 73 75 62 3A 20 6A 70 20 6C 69 73  l lstsub: jp lis
000190: 74 6D 73 0D 0A 2E 6C 69 73 74 64 6E 09 6C 64 20  tms...listdn.ld 
0001A0: 61 2C 28 73 74 61 74 75 73 2B 37 29 3A 20 61 64  a,(status+7): ad
0001B0: 64 20 37 3A 20 6C 64 20 63 2C 61 0D 0A 09 6C 64  d 7: ld c,a...ld
0001C0: 20 61 2C 28 73 74 61 74 75 73 2B 31 29 3A 20 63   a,(status+1): c
0001D0: 70 20 63 20 3A 20 6A 70 20 7A 2C 6C 69 73 74 6D  p c : jp z,listm
0001E0: 73 0D 0A 09 6C 64 20 69 78 2C 73 74 61 74 75 73  s...ld ix,status
0001F0: 3A 20 63 61 6C 6C 20 26 39 32 46 30 0D 0A 09 63  : call &92F0...c

Size : 512 (Real : 512)
000000: 70 0D 0A 0D 0A 2E 6E 6F 74 66 6E 64 09 6C 64 20  p.....notfnd.ld 
000010: 68 6C 2C 6E 66 6E 64 74 78 3A 20 6C 64 20 61 2C  hl,nfndtx: ld a,
000020: 26 38 32 3A 20 63 61 6C 6C 20 26 39 32 34 38 09  &82: call &9248.
000030: 3B 22 46 69 6C 65 20 6E 6F 74 20 66 6F 75 6E 64  ;"File not found
000040: 22 0D 0A 09 6C 64 20 61 2C 32 3A 20 6C 64 20 28  "...ld a,2: ld (
000050: 69 73 65 61 72 63 29 2C 61 09 09 09 3B 20 7C 20  isearc),a...; | 
000060: 64 69 73 61 62 6C 65 20 22 66 69 6E 64 20 6E 65  disable "find ne
000070: 78 74 22 0D 0A 2E 66 69 6E 64 71 74 09 78 6F 72  xt"...findqt.xor
000080: 20 61 3A 20 63 61 6C 6C 20 26 39 32 37 42 09 09   a: call &927B..
000090: 09 3B 51 75 69 74 0D 0A 09 63 61 6C 6C 20 73 74  .;Quit...call st
0000A0: 61 74 73 3A 20 63 61 6C 6C 20 63 61 72 64 09 09  ats: call card..
0000B0: 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 28 6C 73 74  .; |...ld a,(lst
0000C0: 72 65 63 29 3A 20 6C 64 20 63 2C 61 09 09 09 3B  rec): ld c,a...;
0000D0: 41 72 65 20 77 65 20 6F 6E 20 74 68 65 20 6C 61  Are we on the la
0000E0: 73 74 20 72 65 63 6F 72 64 3F 0D 0A 09 6C 64 20  st record?...ld 
0000F0: 61 2C 28 63 75 72 72 65 63 29 3A 20 63 70 20 63  a,(currec): cp c
000100: 3A 20 6A 70 20 6E 7A 2C 6B 65 79 73 09 09 3B 20  : jp nz,keys..; 
000110: 7C 0D 0A 09 6C 64 20 61 2C 32 3A 20 6C 64 20 28  |...ld a,2: ld (
000120: 69 73 65 61 72 63 29 2C 61 3A 20 6A 70 20 6B 65  isearc),a: jp ke
000130: 79 73 09 09 3B 20 7C 20 69 66 20 73 6F 2C 20 64  ys..; | if so, d
000140: 69 73 61 62 6C 65 20 22 66 69 6E 64 20 6E 65 78  isable "find nex
000150: 74 22 0D 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75  t".......;--- su
000160: 62 72 09 45 78 61 6D 69 6E 65 20 42 20 66 69 6C  br.Examine B fil
000170: 65 6E 61 6D 65 73 20 61 74 20 48 4C 20 74 6F 20  enames at HL to 
000180: 73 65 65 20 69 66 20 65 6E 61 6D 65 20 6F 63 63  see if ename occ
000190: 75 72 73 0D 0A 09 3B 09 09 52 65 74 75 72 6E 20  urs...;..Return 
0001A0: 4E 43 20 69 66 20 79 65 73 2C 20 43 20 69 66 20  NC if yes, C if 
0001B0: 6E 6F 74 0D 0A 0D 0A 2E 65 78 61 6D 09 6C 64 20  not.....exam.ld 
0001C0: 63 2C 31 32 3A 20 6C 64 20 69 78 2C 65 6E 61 6D  c,12: ld ix,enam
0001D0: 65 3A 20 6C 64 20 64 2C 31 0D 0A 2E 65 78 61 6D  e: ld d,1...exam
0001E0: 6C 70 09 6C 64 20 61 2C 28 69 78 29 3A 20 20 20  lp.ld a,(ix):   
0001F0: 20 20 20 20 20 20 20 63 70 20 22 3F 22 3A 20 6A         cp "?": j

Size : 512 (Real : 512)
000000: 61 6C 6C 20 6C 73 74 73 75 62 3A 20 6A 70 20 6C  all lstsub: jp l
000010: 69 73 74 6D 73 0D 0A 0D 0A 2E 6C 69 73 74 73 6C  istms.....listsl
000020: 09 6C 64 20 61 2C 63 3A 20 73 75 62 20 36 36 0D  .ld a,c: sub 66.
000030: 0A 09 73 72 6C 20 61 3A 20 73 72 6C 20 61 3A 20  ..srl a: srl a: 
000040: 73 72 6C 20 61 3A 20 6C 64 20 63 2C 61 0D 0A 09  srl a: ld c,a...
000050: 6C 64 20 61 20 2C 28 73 74 61 74 75 73 2B 37 29  ld a ,(status+7)
000060: 3A 20 61 64 64 20 63 0D 0A 09 6C 64 20 62 63 2C  : add c...ld bc,
000070: 28 6C 73 74 72 65 63 20 20 29 3A 20 69 6E 63 20  (lstrec  ): inc 
000080: 63 3A 20 63 70 20 63 3A 20 6A 70 20 6E 63 2C 6C  c: cp c: jp nc,l
000090: 69 73 74 62 70 0D 0A 09 6C 64 20 28 63 75 72 72  istbp...ld (curr
0000A0: 65 63 29 2C 61 0D 0A 09 63 61 6C 6C 20 72 65 63  ec),a...call rec
0000B0: 61 64 64 3A 20 63 61 6C 6C 20 63 61 72 64 0D 0A  add: call card..
0000C0: 09 6A 70 20 6B 65 79 73 0D 0A 0D 0A 0D 0A 0D 0A  .jp keys........
0000D0: 09 3B 2D 2D 2D 20 73 75 62 72 09 4C 69 73 74 20  .;--- subr.List 
0000E0: 64 69 73 70 6C 61 79 20 73 75 62 73 74 69 74 75  display substitu
0000F0: 74 65 0D 0A 0D 0A 2E 6C 73 74 73 75 62 09 6C 64  te.....lstsub.ld
000100: 20 61 2C 28 73 74 61 74 75 73 2B 37 29 3A 20 6C   a,(status+7): l
000110: 64 20 63 2C 61 0D 0A 09 6C 64 20 61 2C 28 73 74  d c,a...ld a,(st
000120: 61 74 75 73 2B 31 29 3A 20 73 75 62 20 63 3A 20  atus+1): sub c: 
000130: 6C 64 20 65 2C 61 0D 0A 09 6C 64 20 62 2C 33 37  ld e,a...ld b,37
000140: 3A 20 6C 64 20 63 2C 36 36 3A 20 6C 64 20 61 2C  : ld c,66: ld a,
000150: 28 73 74 61 74 75 73 2B 37 29 0D 0A 2E 6C 73 74  (status+7)...lst
000160: 73 6C 70 09 70 75 73 68 20 61 66 0D 0A 09 20 70  slp.push af... p
000170: 75 73 68 20 64 65 3A 20 63 61 6C 6C 20 72 65 63  ush de: call rec
000180: 61 64 64 3A 20 70 6F 70 20 64 65 3A 20 63 61 6C  add: pop de: cal
000190: 6C 20 6C 6F 63 61 74 65 0D 0A 09 20 70 75 73 68  l locate... push
0001A0: 20 62 63 3A 20 63 61 6C 6C 20 73 74 72 31 37 20   bc: call str17 
0001B0: 3A 20 70 6F 70 20 62 63 0D 0A 09 20 64 65 63 20  : pop bc... dec 
0001C0: 65 20 3A 20 6A 72 20 7A 2C 6C 73 74 73 71 74 0D  e : jr z,lstsqt.
0001D0: 0A 09 20 6C 64 20 61 2C 63 3A 20 61 64 64 20 38  .. ld a,c: add 8
0001E0: 3A 20 6C 64 20 63 2C 61 0D 0A 09 20 63 70 20 31  : ld c,a... cp 1
0001F0: 33 30 3A 20 6A 72 20 7A 2C 6C 73 74 73 71 74 0D  30: jr z,lstsqt.

Size : 512 (Real : 512)
000000: 72 20 7A 2C 65 78 61 6D 63 74 09 3B 43 6F 6D 70  r z,examct.;Comp
000010: 61 72 65 20 66 69 6C 65 6E 61 6D 65 0D 0A 09 6C  are filename...l
000020: 64 20 65 2C 28 68 6C 29 3A 20 72 65 73 20 37 2C  d e,(hl): res 7,
000030: 65 3A 20 63 70 20 65 20 20 3A 20 6A 72 20 7A 2C  e: cp e  : jr z,
000040: 65 78 61 6D 63 74 09 3B 20 7C 0D 0A 09 6C 64 20  examct.; |...ld 
000050: 64 2C 30 09 09 09 09 09 3B 20 7C 20 64 6F 65 73  d,0.....; | does
000060: 20 6E 6F 74 20 6D 61 74 63 68 0D 0A 2E 65 78 61   not match...exa
000070: 6D 63 74 09 69 6E 63 20 69 78 3A 20 69 6E 63 20  mct.inc ix: inc 
000080: 68 6C 09 09 09 09 3B 20 7C 0D 0A 09 64 65 63 20  hl....; |...dec 
000090: 63 3A 20 6A 72 20 6E 7A 2C 65 78 61 6D 6C 70 09  c: jr nz,examlp.
0000A0: 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64 20 61 2C 64  ..; |.....ld a,d
0000B0: 3A 20 63 70 20 31 3A 20 72 65 74 20 7A 09 09 09  : cp 1: ret z...
0000C0: 3B 52 65 74 75 72 6E 20 4E 43 20 69 66 20 79 65  ;Return NC if ye
0000D0: 73 0D 0A 09 64 6A 6E 7A 20 65 78 61 6D 3A 20 73  s...djnz exam: s
0000E0: 63 66 3A 20 72 65 74 09 09 09 3B 4C 6F 6F 70 20  cf: ret...;Loop 
0000F0: 74 68 72 6F 75 67 68 20 61 6C 6C 20 66 69 6C 65  through all file
000100: 6E 61 6D 65 73 0D 0A 0D 0A 0D 0A 09 3B 2D 2D 2D  names.......;---
000110: 20 73 75 62 72 09 45 78 70 61 6E 64 20 66 69 6C   subr.Expand fil
000120: 65 6E 61 6D 65 20 61 74 20 70 6E 61 6D 65 20 74  ename at pname t
000130: 6F 20 65 6E 61 6D 65 0D 0A 0D 0A 2E 65 78 70 61  o ename.....expa
000140: 6E 64 09 6C 64 20 68 6C 2C 65 6E 61 6D 65 20 20  nd.ld hl,ename  
000150: 3A 20 6C 64 20 28 68 6C 29 2C 33 32 0D 0A 09 6C  : ld (hl),32...l
000160: 64 20 64 65 2C 65 6E 61 6D 65 2B 31 3A 20 6C 64  d de,ename+1: ld
000170: 20 62 63 2C 31 31 3A 20 6C 64 69 72 0D 0A 0D 0A   bc,11: ldir....
000180: 09 6C 64 20 69 78 2C 70 6E 61 6D 65 3A 20 6C 64  .ld ix,pname: ld
000190: 20 62 2C 30 0D 0A 09 6C 64 20 69 79 2C 65 6E 61   b,0...ld iy,ena
0001A0: 6D 65 3A 20 6C 64 20 28 69 79 2B 38 29 2C 22 2E  me: ld (iy+8),".
0001B0: 22 0D 0A 0D 0A 2E 65 78 5F 6C 70 31 09 6C 64 20  ".....ex_lp1.ld 
0001C0: 61 2C 28 69 78 29 3A 20 69 6E 63 20 69 78 09 09  a,(ix): inc ix..
0001D0: 09 3B 49 6E 69 74 69 61 6C 20 70 61 72 74 20 6F  .;Initial part o
0001E0: 66 20 66 69 6C 65 6E 61 6D 65 0D 0A 09 6F 72 20  f filename...or 
0001F0: 61 20 20 20 3A 20 72 65 74 20 7A 09 09 09 09 3B  a   : ret z....;

Size : 512 (Real : 512)
000000: 0A 09 70 6F 70 20 61 66 3A 20 69 6E 63 20 61 3A  ..pop af: inc a:
000010: 20 6A 72 20 6C 73 74 73 6C 70 0D 0A 2E 6C 73 74   jr lstslp...lst
000020: 73 71 74 09 70 6F 70 20 61 66 3A 20 72 65 74 0D  sqt.pop af: ret.
000030: 0A 0D 0A 2E 6C 6F 63 61 74 65 09 70 75 73 68 20  ....locate.push 
000040: 68 6C 0D 0A 09 20 6C 64 20 68 2C 62 3A 20 6C 64  hl... ld h,b: ld
000050: 20 6C 2C 63 3A 20 63 61 6C 6C 20 26 39 32 32 34   l,c: call &9224
000060: 0D 0A 09 70 6F 70 20 68 6C 3A 20 72 65 74 0D 0A  ...pop hl: ret..
000070: 0D 0A 2E 73 74 72 31 37 09 6C 64 20 62 2C 31 37  ...str17.ld b,17
000080: 0D 0A 2E 73 74 72 31 37 6C 09 6C 64 20 61 2C 28  ...str17l.ld a,(
000090: 68 6C 29 3A 20 6F 72 20 61 3A 20 72 65 74 20 7A  hl): or a: ret z
0000A0: 0D 0A 09 63 61 6C 6C 20 26 39 32 30 30 3A 20 69  ...call &9200: i
0000B0: 6E 63 20 68 6C 3A 20 64 6A 6E 7A 20 73 74 72 31  nc hl: djnz str1
0000C0: 37 6C 0D 0A 09 72 65 74 0D 0A 0D 0A 0D 0A 09 3B  7l...ret.......;
0000D0: 2A 2A 2A 20 44 41 54 41 09 4C 69 73 74 2D 62 6F  *** DATA.List-bo
0000E0: 78 20 66 61 6B 65 20 28 73 74 75 70 69 64 20 44  x fake (stupid D
0000F0: 45 53 20 72 65 73 74 72 69 63 74 69 6F 6E 73 2E  ES restrictions.
000100: 2E 2E 21 29 0D 0A 0D 0A 2E 73 74 61 74 75 73 09  ..!).....status.
000110: 64 62 20 31 37 09 09 3B 57 69 64 74 68 20 6F 66  db 17..;Width of
000120: 20 6C 69 73 74 20 62 6F 78 0D 0A 09 64 62 20 30   list box...db 0
000130: 09 09 3B 4E 75 6D 62 65 72 20 6F 66 20 65 6E 74  ..;Number of ent
000140: 72 69 65 73 20 69 6E 20 6C 69 73 74 0D 0A 09 64  ries in list...d
000150: 62 20 38 09 09 3B 4E 75 6D 62 65 72 20 64 69 73  b 8..;Number dis
000160: 70 6C 61 79 65 64 20 61 74 20 6F 6E 63 65 0D 0A  played at once..
000170: 09 64 77 20 6C 62 66 61 6B 65 09 3B 41 64 64 72  .dw lbfake.;Addr
000180: 65 73 73 20 6F 66 20 73 74 72 69 6E 67 73 0D 0A  ess of strings..
000190: 09 64 62 20 33 36 09 09 3B 58 20 63 6F 2D 6F 72  .db 36..;X co-or
0001A0: 64 69 6E 61 74 65 0D 0A 09 64 62 20 36 36 09 09  dinate...db 66..
0001B0: 3B 59 20 63 6F 2D 6F 72 64 69 6E 61 74 65 0D 0A  ;Y co-ordinate..
0001C0: 09 64 62 20 30 09 09 3B 54 6F 70 20 76 69 73 69  .db 0..;Top visi
0001D0: 62 6C 65 20 69 74 65 6D 20 69 6E 20 6C 69 73 74  ble item in list
0001E0: 0D 0A 09 64 62 20 30 09 09 3B 43 75 72 72 65 6E  ...db 0..;Curren
0001F0: 74 6C 79 20 73 65 6C 65 63 74 65 64 20 69 74 65  tly selected ite

Size : 512 (Real : 512)
000000: 75 62 3A 20 65 78 20 64 65 2C 68 6C 09 3B 4C 6F  ub: ex de,hl.;Lo
000010: 67 20 64 69 73 63 0D 0A 0D 0A 09 6C 64 20 62 63  g disc.....ld bc
000020: 2C 28 6C 65 6E 67 74 68 29 3A 20 6C 64 20 61 2C  ,(length): ld a,
000030: 62 3A 20 6F 72 20 63 09 09 3B 43 6F 70 79 20 62  b: or c..;Copy b
000040: 61 63 6B 20 74 6F 20 6E 6F 72 6D 61 6C 0D 0A 09  ack to normal...
000050: 6A 72 20 7A 2C 64 6F 73 74 61 74 3A 20 6C 64 20  jr z,dostat: ld 
000060: 68 6C 2C 28 64 65 73 74 29 3A 20 6C 64 69 72 09  hl,(dest): ldir.
000070: 09 3B 20 7C 0D 0A 2E 64 6F 73 74 61 74 09 6C 64  .; |...dostat.ld
000080: 20 28 6C 61 73 74 61 64 29 2C 64 65 3A 20 63 61   (lastad),de: ca
000090: 6C 6C 20 73 74 61 74 73 3A 20 63 61 6C 6C 20 63  ll stats: call c
0000A0: 61 72 64 09 3B 50 72 69 6E 74 20 6E 65 77 20 63  ard.;Print new c
0000B0: 61 72 64 0D 0A 09 6A 70 20 6D 6F 75 73 65 0D 0A  ard...jp mouse..
0000C0: 0D 0A 2E 64 65 73 74 09 64 77 20 30 09 09 09 09  ...dest.dw 0....
0000D0: 09 3B 54 65 6D 70 6F 72 61 72 79 20 64 65 73 74  .;Temporary dest
0000E0: 69 6E 61 74 69 6F 6E 20 76 61 72 69 61 62 6C 65  ination variable
0000F0: 0D 0A 2E 6C 65 6E 67 74 68 09 64 77 20 30 09 09  ...length.dw 0..
000100: 09 09 09 3B 54 65 6D 70 6F 72 61 72 79 20 6C 65  ...;Temporary le
000110: 6E 67 74 68 20 76 61 72 69 61 62 6C 65 0D 0A 0D  ngth variable...
000120: 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 45 6D 75 6C  ..;--- subr.Emul
000130: 61 74 65 20 4C 44 44 52 2C 20 62 75 74 20 77 69  ate LDDR, but wi
000140: 74 68 20 4C 44 49 52 20 70 61 72 61 6D 65 74 65  th LDIR paramete
000150: 72 73 0D 0A 09 3B 09 09 4F 6E 20 65 6E 74 72 79  rs...;..On entry
000160: 2C 20 48 4C 20 3D 20 77 68 65 72 65 20 74 6F 20  , HL = where to 
000170: 63 6F 70 79 20 66 72 6F 6D 0D 0A 09 3B 09 09 09  copy from...;...
000180: 20 20 44 45 20 3D 20 77 68 65 72 65 20 74 6F 20    DE = where to 
000190: 63 6F 70 79 20 74 6F 0D 0A 09 3B 09 09 09 20 20  copy to...;...  
0001A0: 42 43 20 3D 20 6E 75 6D 62 65 72 20 6F 66 20 62  BC = number of b
0001B0: 79 74 65 73 20 74 6F 20 63 6F 70 79 0D 0A 0D 0A  ytes to copy....
0001C0: 2E 6C 64 64 73 09 61 64 64 20 68 6C 2C 62 63 3A  .ldds.add hl,bc:
0001D0: 20 64 65 63 20 68 6C 3A 20 65 78 20 64 65 2C 68   dec hl: ex de,h
0001E0: 6C 0D 0A 09 61 64 64 20 68 6C 2C 62 63 3A 20 64  l...add hl,bc: d
0001F0: 65 63 20 68 6C 3A 20 65 78 20 64 65 2C 68 6C 0D  ec hl: ex de,hl.

Size : 512 (Real : 512)
000000: 61 63 6B 2C 20 64 72 69 76 65 2C 20 61 64 64 72  ack, drive, addr
000010: 65 73 73 0D 0A 2E 72 65 61 64 74 70 09 6C 64 20  ess...readtp.ld 
000020: 63 2C 30 09 09 09 09 09 3B 53 65 63 74 6F 72 20  c,0.....;Sector 
000030: 28 73 65 6C 66 2D 6D 6F 64 69 66 79 69 6E 67 29  (self-modifying)
000040: 0D 0A 2E 72 65 61 64 6C 70 09 63 61 6C 6C 20 26  ...readlp.call &
000050: 39 32 39 33 3A 20 69 6E 63 20 63 3A 20 6C 64 20  9293: inc c: ld 
000060: 61 2C 63 09 09 3B 52 65 61 64 20 73 65 63 74 6F  a,c..;Read secto
000070: 72 0D 0A 09 70 75 73 68 20 64 65 3A 20 6C 64 20  r...push de: ld 
000080: 64 65 2C 35 31 32 3A 20 61 64 64 20 68 6C 2C 64  de,512: add hl,d
000090: 65 3A 20 70 6F 70 20 64 65 09 3B 20 7C 20 6E 65  e: pop de.; | ne
0000A0: 78 74 20 61 64 64 72 65 73 73 0D 0A 09 61 6E 64  xt address...and
0000B0: 20 26 46 3A 20 63 70 20 31 30 3A 20 6A 72 20 6E   &F: cp 10: jr n
0000C0: 7A 2C 72 65 61 64 6C 70 09 09 3B 20 7C 20 6C 6F  z,readlp..; | lo
0000D0: 6F 70 20 69 66 20 6E 6F 74 20 39 20 73 65 63 74  op if not 9 sect
0000E0: 6F 72 73 0D 0A 09 6C 64 20 69 79 2C 26 31 36 30  ors...ld iy,&160
0000F0: 30 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2D 2D 2D 20  0: ret.....;--- 
000100: 73 75 62 72 09 49 6E 69 74 69 61 6C 69 73 65 20  subr.Initialise 
000110: 63 6F 6D 70 72 65 73 73 69 6F 6E 20 62 75 66 66  compression buff
000120: 65 72 0D 0A 0D 0A 2E 69 6E 69 74 63 6D 09 6C 64  er.....initcm.ld
000130: 20 68 6C 2C 26 32 38 30 30 3A 20 6C 64 20 28 77   hl,&2800: ld (w
000140: 72 69 74 63 70 29 2C 68 6C 0D 0A 09 72 65 74 0D  ritcp),hl...ret.
000150: 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 57 72  ....;--- subr.Wr
000160: 69 74 65 20 41 20 74 6F 20 63 6F 6D 70 72 65 73  ite A to compres
000170: 73 69 6F 6E 20 62 75 66 66 65 72 0D 0A 09 3B 09  sion buffer...;.
000180: 09 64 6F 65 73 20 6E 6F 74 20 63 6F 72 72 75 70  .does not corrup
000190: 74 20 61 6E 79 20 72 65 67 69 73 74 65 72 73 0D  t any registers.
0001A0: 0A 0D 0A 2E 77 72 69 74 63 6D 09 70 75 73 68 20  ....writcm.push 
0001B0: 61 66 3A 20 70 75 73 68 20 68 6C 0D 0A 09 20 6C  af: push hl... l
0001C0: 64 20 68 6C 2C 28 77 72 69 74 63 70 29 3A 20 6C  d hl,(writcp): l
0001D0: 64 20 28 68 6C 29 2C 61 09 09 3B 50 6F 6B 65 20  d (hl),a..;Poke 
0001E0: 69 74 0D 0A 09 20 69 6E 63 20 68 6C 3A 20 6C 64  it... inc hl: ld
0001F0: 20 28 77 72 69 74 63 70 29 2C 68 6C 09 09 09 3B   (writcp),hl...;

Size : 512 (Real : 512)
000000: 72 65 61 65 72 09 09 09 3B 20 7C 0D 0A 0D 0A 2E  reaer...; |.....
000010: 75 70 64 65 6E 74 09 6C 64 20 65 2C 31 3A 20 63  updent.ld e,1: c
000020: 61 6C 6C 20 26 39 32 41 35 09 09 09 3B 44 72 69  all &92A5...;Dri
000030: 76 65 20 42 0D 0A 09 70 75 73 68 20 69 78 3A 20  ve B...push ix: 
000040: 70 6F 70 20 68 6C 3A 20 6C 64 20 64 65 2C 33 37  pop hl: ld de,37
000050: 3A 20 61 64 64 20 68 6C 2C 64 65 09 3B 4F 70 65  : add hl,de.;Ope
000060: 6E 20 66 69 6C 65 20 66 6F 72 20 6F 75 74 70 75  n file for outpu
000070: 74 0D 0A 09 6C 64 20 64 65 2C 26 43 30 30 30 3A  t...ld de,&C000:
000080: 20 6C 64 20 62 2C 31 32 3A 20 70 75 73 68 20 69   ld b,12: push i
000090: 78 09 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20 20 26  x..; |...call  &
0000A0: 42 43 38 43 3A 20 70 6F 70 20 69 78 3A 20 6A 70  BC8C: pop ix: jp
0000B0: 20 6E 63 2C 63 72 65 61 65 72 09 3B 20 7C 0D 0A   nc,creaer.; |..
0000C0: 09 63 61 6C 6C 20 69 6E 69 74 63 6D 09 09 09 09  .call initcm....
0000D0: 3B 49 6E 69 74 69 61 6C 69 73 65 20 69 74 73 20  ;Initialise its 
0000E0: 62 75 66 66 65 72 0D 0A 09 63 61 6C 6C 20 26 39  buffer...call &9
0000F0: 33 32 36 09 09 09 09 3B 48 6F 6C 64 20 45 53 43  326....;Hold ESC
000100: 20 66 6F 72 20 61 62 6F 72 74 0D 0A 09 6C 64 20   for abort...ld 
000110: 68 2C 32 33 3A 20 6C 64 20 6C 2C 33 37 3A 20 63  h,23: ld l,37: c
000120: 61 6C 6C 20 26 39 32 32 34 09 09 3B 50 72 69 6E  all &9224..;Prin
000130: 74 20 22 72 65 73 74 6F 72 69 6E 67 22 0D 0A 09  t "restoring"...
000140: 6C 64 20 68 6C 2C 63 72 65 77 74 78 3A 20 63 61  ld hl,crewtx: ca
000150: 6C 6C 20 26 39 32 30 33 09 09 3B 20 7C 0D 0A 0D  ll &9203..; |...
000160: 0A 09 6C 64 20 61 2C 22 49 22 3A 20 63 61 6C 6C  ..ld a,"I": call
000170: 20 77 72 69 74 63 6D 3A 20 6C 64 20 61 2C 22 6D   writcm: ld a,"m
000180: 22 3A 20 63 61 6C 6C 20 77 72 69 74 63 6D 09 3B  ": call writcm.;
000190: 57 72 69 74 65 20 66 69 6C 65 20 69 64 65 6E 74  Write file ident
0001A0: 69 66 69 65 72 0D 0A 09 6C 64 20 61 2C 22 61 22  ifier...ld a,"a"
0001B0: 3A 20 63 61 6C 6C 20 77 72 69 74 63 6D 3A 20 6C  : call writcm: l
0001C0: 64 20 61 2C 22 67 22 3A 20 63 61 6C 6C 20 77 72  d a,"g": call wr
0001D0: 69 74 63 6D 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C  itcm.; |...ld a,
0001E0: 22 65 22 3A 20 63 61 6C 6C 20 77 72 69 74 63 6D  "e": call writcm
0001F0: 3A 20 6C 64 20 61 2C 30 20 20 3A 20 63 61 6C 6C  : ld a,0  : call

Size : 512 (Real : 512)
000000: 20 7C 0D 0A 09 63 70 20 22 2E 22 20 3A 20 6A 72   |...cp "." : jr
000010: 20 20 7A 20 2C 64 6F 5F 65 78 74 09 09 09 3B 20    z ,do_ext...; 
000020: 7C 0D 0A 09 63 70 20 22 2A 22 20 3A 20 6A 72 20  |...cp "*" : jr 
000030: 20 7A 20 2C 64 6F 5F 66 6C 31 09 09 09 3B 20 7C   z ,do_fl1...; |
000040: 0D 0A 09 63 70 20 22 20 22 20 3A 20 6A 72 20 20  ...cp " " : jr  
000050: 7A 20 2C 65 78 5F 6C 70 31 09 09 09 3B 20 7C 0D  z ,ex_lp1...; |.
000060: 0A 09 6C 64 20 28 69 79 29 2C 61 3A 20 69 6E 63  ..ld (iy),a: inc
000070: 20 69 79 3A 20 69 6E 63 20 62 09 09 3B 20 7C 0D   iy: inc b..; |.
000080: 0A 09 62 69 74 20 33 2C 62 3A 20 6A 72 20 20 7A  ..bit 3,b: jr  z
000090: 20 2C 65 78 5F 6C 70 31 09 09 09 3B 20 7C 0D 0A   ,ex_lp1...; |..
0000A0: 2E 64 6F 5F 66 6C 31 09 62 69 74 20 33 2C 62 3A  .do_fl1.bit 3,b:
0000B0: 20 6A 72 20 20 6E 7A 2C 65 78 5F 6C 70 31 3A 20   jr  nz,ex_lp1: 
0000C0: 6C 64 20 28 69 79 29 2C 22 3F 22 09 3B 45 78 70  ld (iy),"?".;Exp
0000D0: 61 6E 64 20 2A 0D 0A 09 69 6E 63 20 69 79 3A 20  and *...inc iy: 
0000E0: 69 6E 63 20 62 3A 20 6A 72 20 64 6F 5F 66 6C 31  inc b: jr do_fl1
0000F0: 09 09 3B 20 7C 0D 0A 0D 0A 2E 64 6F 5F 65 78 74  ..; |.....do_ext
000100: 09 6C 64 20 69 79 2C 65 6E 61 6D 65 2B 39 3A 20  .ld iy,ename+9: 
000110: 6C 64 20 62 2C 39 09 09 09 3B 45 78 74 65 6E 73  ld b,9...;Extens
000120: 69 6F 6E 0D 0A 2E 65 78 5F 6C 70 32 09 6C 64 20  ion...ex_lp2.ld 
000130: 61 2C 28 69 78 29 3A 20 69 6E 63 20 69 78 09 09  a,(ix): inc ix..
000140: 09 3B 20 7C 0D 0A 09 6F 72 20 61 20 20 3A 20 72  .; |...or a  : r
000150: 65 74 20 7A 09 09 09 09 3B 20 7C 0D 0A 09 63 70  et z....; |...cp
000160: 20 22 2A 22 3A 20 6A 72 20 7A 2C 64 6F 5F 66 6C   "*": jr z,do_fl
000170: 32 09 09 09 3B 20 7C 0D 0A 09 63 70 20 22 20 22  2...; |...cp " "
000180: 3A 20 6A 72 20 7A 2C 65 78 5F 6C 70 32 09 09 09  : jr z,ex_lp2...
000190: 3B 20 7C 0D 0A 09 6C 64 20 28 69 79 29 2C 61 3A  ; |...ld (iy),a:
0001A0: 20 69 6E 63 20 69 79 3A 20 69 6E 63 20 62 09 09   inc iy: inc b..
0001B0: 3B 20 7C 0D 0A 09 6C 64 20 61 2C 62 3A 20 63 70  ; |...ld a,b: cp
0001C0: 20 31 32 3A 20 72 65 74 20 7A 3A 20 6A 72 20 65   12: ret z: jr e
0001D0: 78 5F 6C 70 32 09 09 3B 20 7C 0D 0A 2E 64 6F 5F  x_lp2..; |...do_
0001E0: 66 6C 32 09 6C 64 20 61 2C 62 3A 20 63 70 20 31  fl2.ld a,b: cp 1
0001F0: 32 3A 20 72 65 74 20 7A 3A 20 6C 64 20 28 69 79  2: ret z: ld (iy

Size : 512 (Real : 512)
000000: 20 77 72 69 74 63 6D 09 3B 20 7C 0D 0A 09 6C 64   writcm.; |...ld
000010: 20 61 2C 28 72 65 61 64 74 70 2B 31 29 3A 20 63   a,(readtp+1): c
000020: 61 6C 6C 20 77 72 69 74 63 6D 09 09 09 3B 57 72  all writcm...;Wr
000030: 69 74 65 20 66 6F 72 6D 61 74 0D 0A 09 70 75 73  ite format...pus
000040: 68 20 69 78 3A 20 70 6F 70 20 68 6C 3A 20 6C 64  h ix: pop hl: ld
000050: 20 62 2C 33 32 09 09 09 3B 57 72 69 74 65 20 74   b,32...;Write t
000060: 69 74 6C 65 0D 0A 2E 77 72 74 74 6C 70 09 6C 64  itle...wrttlp.ld
000070: 20 61 2C 28 68 6C 29 3A 20 63 61 6C 6C 20 77 72   a,(hl): call wr
000080: 69 74 63 6D 3A 20 69 6E 63 20 68 6C 3A 20 64 6A  itcm: inc hl: dj
000090: 6E 7A 20 77 72 74 74 6C 70 09 3B 20 7C 0D 0A 0D  nz wrttlp.; |...
0000A0: 0A 09 6C 64 20 62 2C 30 09 09 09 09 09 3B 46 69  ..ld b,0.....;Fi
0000B0: 72 73 74 20 74 72 61 63 6B 0D 0A 09 6C 64 20 28  rst track...ld (
0000C0: 73 74 61 63 6B 73 29 2C 73 70 09 09 09 09 3B 53  stacks),sp....;S
0000D0: 74 6F 72 65 20 73 74 61 63 6B 20 66 6F 72 20 61  tore stack for a
0000E0: 62 6F 72 74 0D 0A 2E 63 72 6F 75 6C 70 09 63 61  bort...croulp.ca
0000F0: 6C 6C 20 72 65 61 64 74 72 3A 20 63 61 6C 6C 20  ll readtr: call 
000100: 72 65 73 74 70 63 09 09 3B 52 65 61 64 20 74 72  restpc..;Read tr
000110: 61 63 6B 0D 0A 2E 63 72 69 6E 6C 70 09 6C 64 20  ack...crinlp.ld 
000120: 64 65 2C 26 32 37 46 43 3A 20 63 61 6C 6C 20 63  de,&27FC: call c
000130: 70 69 79 64 65 3A 20 6A 72 20 6E 63 2C 77 72 62  piyde: jr nc,wrb
000140: 79 74 65 09 3B 49 66 20 70 61 73 74 20 52 4C 45  yte.;If past RLE
000150: 20 73 74 61 67 65 2C 20 77 72 69 74 65 20 31 20   stage, write 1 
000160: 62 79 74 65 0D 0A 09 6C 64 20 61 2C 28 69 79 29  byte...ld a,(iy)
000170: 20 20 3A 20 63 70 20 28 69 79 2B 31 29 09 3A 20    : cp (iy+1).: 
000180: 6A 72 20 6E 7A 2C 77 72 62 79 74 65 09 3B 49 73  jr nz,wrbyte.;Is
000190: 20 52 4C 45 20 61 70 70 6C 69 63 61 62 6C 65 3F   RLE applicable?
0001A0: 0D 0A 09 09 20 20 20 20 20 63 70 20 28 69 79 2B  ....     cp (iy+
0001B0: 32 29 09 3A 20 6A 72 20 6E 7A 2C 77 72 62 79 74  2).: jr nz,wrbyt
0001C0: 65 09 3B 20 7C 0D 0A 09 09 20 20 20 20 20 63 70  e.; |....     cp
0001D0: 20 28 69 79 2B 33 29 09 3A 20 6A 72 20 6E 7A 2C   (iy+3).: jr nz,
0001E0: 77 72 62 79 74 65 09 3B 20 7C 0D 0A 09 70 75 73  wrbyte.; |...pus
0001F0: 68 20 61 66 3A 20 6C 64 20 61 2C 26 45 39 3A 20  h af: ld a,&E9:

Size : 512 (Real : 512)
000000: 29 2C 22 3F 22 09 3B 45 78 70 61 6E 64 20 2A 0D  ),"?".;Expand *.
000010: 0A 09 69 6E 63 20 69 79 3A 20 69 6E 63 20 62 3A  ..inc iy: inc b:
000020: 20 6A 72 20 64 6F 5F 66 6C 32 09 09 3B 20 7C 0D   jr do_fl2..; |.
000030: 0A 0D 0A 09 3B 2D 2D 2D 20 72 6F 75 74 09 46 69  ....;--- rout.Fi
000040: 6E 64 20 6E 65 78 74 20 69 66 20 65 6E 61 62 6C  nd next if enabl
000050: 65 64 20 28 66 6F 72 20 6B 65 79 62 6F 61 72 64  ed (for keyboard
000060: 29 0D 0A 0D 0A 2E 6E 65 78 74 09 6C 64 20 61 2C  ).....next.ld a,
000070: 28 69 73 65 61 72 63 29 3A 20 6F 72 20 61 3A 20  (isearc): or a: 
000080: 6A 70 20 6E 7A 2C 6D 6F 75 73 65 0D 0A 09 6C 64  jp nz,mouse...ld
000090: 20 68 6C 2C 63 75 72 72 65 63 3A 20 69 6E 63 20   hl,currec: inc 
0000A0: 28 68 6C 29 3A 20 6A 70 20 66 64 6C 6F 6F 70 0D  (hl): jp fdloop.
0000B0: 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 4D 45 4E 55 09  ......;*** MENU.
0000C0: 41 72 63 68 69 76 65 20 6D 65 6E 75 0D 0A 0D 0A  Archive menu....
0000D0: 2E 61 72 63 68 69 76 09 6C 64 20 68 6C 2C 6D 61  .archiv.ld hl,ma
0000E0: 72 63 68 76 3A 20 6C 64 20 64 65 2C 69 61 72 63  rchv: ld de,iarc
0000F0: 68 76 0D 0A 09 63 61 6C 6C 20 26 39 32 37 45 3A  hv...call &927E:
000100: 20 6A 70 20 63 2C 73 65 6C 65 63 74 3A 20 63 70   jp c,select: cp
000110: 20 26 46 46 3A 20 6A 70 20 7A 2C 6D 6F 75 73 65   &FF: jp z,mouse
000120: 0D 0A 09 63 70 20 31 3A 20 6A 70 20 7A 2C 63 72  ...cp 1: jp z,cr
000130: 65 61 74 65 0D 0A 09 63 70 20 32 3A 20 6A 70 20  eate...cp 2: jp 
000140: 7A 2C 75 70 64 61 72 63 0D 0A 09 63 70 20 33 3A  z,updarc...cp 3:
000150: 20 6A 70 20 7A 2C 64 65 6C 65 74 65 0D 0A 09 63   jp z,delete...c
000160: 70 20 35 3A 20 6A 70 20 7A 2C 72 65 73 74 6F 72  p 5: jp z,restor
000170: 0D 0A 09 6A 70 20 61 72 63 68 69 76 0D 0A 0D 0A  ...jp archiv....
000180: 0D 0A 09 3B 2B 2B 2B 20 52 4F 55 54 09 43 72 65  ...;+++ ROUT.Cre
000190: 61 74 65 20 61 72 63 68 69 76 65 0D 0A 0D 0A 2E  ate archive.....
0001A0: 63 72 65 61 74 65 09 6C 64 20 64 65 2C 37 39 3A  create.ld de,79:
0001B0: 20 63 61 6C 6C 20 26 39 32 37 38 09 09 09 3B 49   call &9278...;I
0001C0: 6E 70 75 74 20 72 65 73 74 72 69 63 74 69 6F 6E  nput restriction
0001D0: 73 0D 0A 09 6C 64 20 61 20 2C 31 20 3A 20 63 61  s...ld a ,1 : ca
0001E0: 6C 6C 20 26 39 32 37 42 09 09 09 3B 55 70 70 65  ll &927B...;Uppe
0001F0: 72 20 63 61 73 65 0D 0A 09 63 61 6C 6C 20 26 39  r case...call &9

Size : 512 (Real : 512)
000000: 63 61 6C 6C 20 77 72 69 74 63 6D 3A 20 70 6F 70  call writcm: pop
000010: 20 61 66 09 3B 59 65 73 2C 20 73 6F 20 77 72 69   af.;Yes, so wri
000020: 74 65 20 26 45 39 0D 0A 09 6C 64 20 64 65 2C 34  te &E9...ld de,4
000030: 3A 20 61 64 64 20 69 79 2C 64 65 3A 20 6C 64 20  : add iy,de: ld 
000040: 63 2C 34 09 09 3B 53 6F 20 66 61 72 2C 20 6F 6E  c,4..;So far, on
000050: 65 20 6F 63 63 75 72 72 65 6E 63 65 0D 0A 2E 72  e occurrence...r
000060: 6C 65 5F 6C 70 09 6C 64 20 64 65 2C 26 32 38 30  le_lp.ld de,&280
000070: 30 3A 20 63 61 6C 6C 20 63 70 69 79 64 65 3A 20  0: call cpiyde: 
000080: 6A 72 20 7A 20 2C 77 72 74 72 6C 65 09 3B 20 7C  jr z ,wrtrle.; |
000090: 20 77 72 69 74 65 20 69 66 20 65 6E 64 20 6F 66   write if end of
0000A0: 20 74 72 61 63 6B 0D 0A 09 09 09 20 63 70 20 28   track..... cp (
0000B0: 69 79 29 3A 20 6A 72 20 6E 7A 2C 77 72 74 72 6C  iy): jr nz,wrtrl
0000C0: 65 09 3B 20 7C 20 77 72 69 74 65 20 69 66 20 62  e.; | write if b
0000D0: 79 74 65 20 64 69 66 66 65 72 65 6E 74 0D 0A 09  yte different...
0000E0: 69 6E 63 20 63 3A 20 69 6E 63 20 69 79 3A 20 6A  inc c: inc iy: j
0000F0: 72 20 6E 7A 2C 72 6C 65 5F 6C 70 09 09 3B 20 7C  r nz,rle_lp..; |
000100: 20 65 6C 73 65 20 63 61 72 72 79 20 6F 6E 20 63   else carry on c
000110: 68 65 63 6B 69 6E 27 21 0D 0A 2E 77 72 74 72 6C  heckin'!...wrtrl
000120: 65 09 70 75 73 68 20 61 66 3A 20 6C 64 20 61 2C  e.push af: ld a,
000130: 63 3A 20 63 61 6C 6C 20 77 72 69 74 63 6D 09 09  c: call writcm..
000140: 3B 57 72 69 74 65 20 74 68 65 20 6C 65 6E 67 74  ;Write the lengt
000150: 68 0D 0A 09 70 6F 70 20 20 61 66 3A 09 20 63 61  h...pop  af:. ca
000160: 6C 6C 20 77 72 69 74 63 6D 09 09 3B 57 72 69 74  ll writcm..;Writ
000170: 65 20 74 68 65 20 62 79 74 65 21 0D 0A 09 6A 72  e the byte!...jr
000180: 20 63 72 69 6E 63 74 09 09 09 09 3B 41 6E 64 20   crinct....;And 
000190: 72 65 2D 65 6E 74 65 72 20 6D 61 69 6E 20 6C 6F  re-enter main lo
0001A0: 6F 70 2E 0D 0A 0D 0A 2E 77 72 62 79 74 65 09 6C  op......wrbyte.l
0001B0: 64 20 61 2C 28 69 79 29 3A 20 63 61 6C 6C 20 20  d a,(iy): call  
0001C0: 77 72 69 74 63 6D 3A 20 69 6E 63 20 69 79 09 09  writcm: inc iy..
0001D0: 3B 57 72 69 74 65 20 62 79 74 65 0D 0A 09 63 70  ;Write byte...cp
0001E0: 20 26 45 39 09 20 3A 20 6A 72 20 6E 7A 2C 63 72   &E9. : jr nz,cr
0001F0: 69 6E 63 74 09 09 09 3B 20 7C 20 69 73 20 69 74  inct...; | is it

Size : 512 (Real : 512)
000000: 32 38 41 09 09 09 09 3B 43 68 65 63 6B 4F 6E 0D  28A....;CheckOn.
000010: 0A 09 63 61 6C 6C 20 26 39 32 38 31 09 09 09 09  ..call &9281....
000020: 3B 43 6C 65 61 72 20 69 6E 70 75 74 0D 0A 09 63  ;Clear input...c
000030: 61 6C 6C 20 70 64 72 69 76 65 09 09 09 09 3B 50  all pdrive....;P
000040: 72 65 73 65 72 76 65 20 64 69 73 63 20 64 72 69  reserve disc dri
000050: 76 65 0D 0A 0D 0A 09 63 61 6C 6C 20 73 74 61 74  ve.....call stat
000060: 73 3A 20 70 75 73 68 20 68 6C 3A 20 70 6F 70 20  s: push hl: pop 
000070: 69 78 0D 0A 09 6C 64 20 61 2C 28 69 78 2B 33 36  ix...ld a,(ix+36
000080: 29 3A 20 6F 72 20 61 3A 20 6A 70 20 6E 7A 2C 61  ): or a: jp nz,a
000090: 6C 72 65 64 79 09 3B 41 6C 72 65 61 64 79 20 61  lredy.;Already a
0000A0: 72 63 68 69 76 65 64 3F 0D 0A 09 6C 64 20 61 2C  rchived?...ld a,
0000B0: 28 69 78 2B 33 35 29 3A 20 63 70 20 33 3A 20 6A  (ix+35): cp 3: j
0000C0: 70 20 6E 63 2C 77 72 6F 6E 67 66 09 3B 57 72 6F  p nc,wrongf.;Wro
0000D0: 6E 67 20 66 6F 72 6D 61 74 3F 0D 0A 0D 0A 09 6C  ng format?.....l
0000E0: 64 20 68 2C 32 32 3A 20 6C 64 20 6C 20 2C 38 30  d h,22: ld l ,80
0000F0: 09 09 09 3B 57 68 69 63 68 20 61 72 63 68 69 76  ...;Which archiv
000100: 65 20 64 69 73 63 3F 0D 0A 09 6C 64 20 64 2C 33  e disc?...ld d,3
000110: 36 3A 20 6C 64 20 65 20 2C 34 30 3A 20 63 61 6C  6: ld e ,40: cal
000120: 6C 20 26 39 32 33 46 09 09 3B 20 7C 0D 0A 09 6C  l &923F..; |...l
000130: 64 20 68 6C 2C 63 72 65 61 74 78 3A 20 63 61 6C  d hl,creatx: cal
000140: 6C 20 26 39 32 30 33 09 09 3B 20 7C 0D 0A 09 6C  l &9203..; |...l
000150: 64 20 68 2C 35 33 3A 20 6C 64 20 6C 20 2C 39 36  d h,53: ld l ,96
000160: 3A 20 6C 64 20 61 2C 32 3A 20 6F 72 20 61 09 09  : ld a,2: or a..
000170: 3B 20 7C 0D 0A 09 6C 64 20 62 63 2C 31 3A 20 6C  ; |...ld bc,1: l
000180: 64 20 64 65 2C 39 39 3A 20 70 75 73 68 20 69 78  d de,99: push ix
000190: 3A 20 63 61 6C 6C 20 26 39 32 36 46 09 3B 20 7C  : call &926F.; |
0001A0: 0D 0A 09 70 6F 70 20 69 78 20 3A 20 6A 70 20 63  ...pop ix : jp c
0001B0: 2C 63 72 65 61 65 72 3A 20 6C 64 20 28 69 78 2B  ,creaer: ld (ix+
0001C0: 33 36 29 2C 6C 09 3B 20 7C 20 71 75 69 74 20 69  36),l.; | quit i
0001D0: 66 20 45 53 43 20 70 72 65 73 73 65 64 0D 0A 0D  f ESC pressed...
0001E0: 0A 09 6C 64 20 68 6C 2C 63 72 65 32 74 78 3A 20  ..ld hl,cre2tx: 
0001F0: 63 61 6C 6C 20 26 39 32 30 33 09 09 3B 55 6E 64  call &9203..;Und

Size : 512 (Real : 512)
000000: 20 26 45 39 3F 0D 0A 09 6C 64 20 61 2C 31 09 20   &E9?...ld a,1. 
000010: 3A 20 63 61 6C 6C 20 20 77 72 69 74 63 6D 09 09  : call  writcm..
000020: 09 3B 20 7C 20 20 7C 20 69 66 20 73 6F 2C 20 26  .; |  | if so, &
000030: 45 39 20 26 30 31 0D 0A 2E 63 72 69 6E 63 74 09  E9 &01...crinct.
000040: 6C 64 20 64 65 2C 26 32 38 30 30 3A 20 63 61 6C  ld de,&2800: cal
000050: 6C 20 63 70 69 79 64 65 3A 20 6A 70 20 6E 7A 2C  l cpiyde: jp nz,
000060: 63 72 69 6E 6C 70 09 3B 4C 6F 6F 70 20 69 66 20  crinlp.;Loop if 
000070: 6E 6F 74 20 65 6E 64 20 6F 66 20 74 72 61 63 6B  not end of track
000080: 0D 0A 0D 0A 09 6C 64 20 61 2C 36 36 3A 20 63 61  .....ld a,66: ca
000090: 6C 6C 20 26 42 42 31 45 3A 20 6A 70 20 6E 7A 2C  ll &BB1E: jp nz,
0000A0: 63 72 65 61 65 72 09 3B 51 75 69 74 20 69 66 20  creaer.;Quit if 
0000B0: 45 53 43 20 68 65 6C 64 0D 0A 09 69 6E 63 20 62  ESC held...inc b
0000C0: 09 09 09 09 09 3B 4E 65 78 74 20 74 72 61 63 6B  .....;Next track
0000D0: 0D 0A 09 6C 64 20 61 2C 62 3A 20 63 70 20 34 30  ...ld a,b: cp 40
0000E0: 3A 20 6A 70 20 6E 7A 2C 63 72 6F 75 6C 70 09 09  : jp nz,croulp..
0000F0: 3B 20 7C 0D 0A 0D 0A 09 6C 64 20 61 2C 26 45 39  ; |.....ld a,&E9
000100: 3A 20 63 61 6C 6C 20 77 72 69 74 63 6D 09 09 09  : call writcm...
000110: 3B 57 72 69 74 65 20 65 6E 64 20 62 79 74 65 73  ;Write end bytes
000120: 0D 0A 09 6C 64 20 61 2C 26 30 33 3A 20 63 61 6C  ...ld a,&03: cal
000130: 6C 20 77 72 69 74 63 6D 09 09 09 3B 20 7C 0D 0A  l writcm...; |..
000140: 09 63 61 6C 6C 20 65 6D 70 74 63 6D 09 09 09 09  .call emptcm....
000150: 3B 45 6D 70 74 79 20 62 75 66 66 65 72 0D 0A 09  ;Empty buffer...
000160: 63 61 6C 6C 20 26 42 43 38 46 09 09 09 09 3B 2E  call &BC8F....;.
000170: 2E 2E 61 6E 64 20 63 6C 6F 73 65 20 6F 75 74 70  ..and close outp
000180: 75 74 20 66 69 6C 65 0D 0A 09 6A 70 20 63 72 65  ut file...jp cre
000190: 61 71 74 09 09 09 09 3B 2E 2E 2E 61 6E 64 20 71  aqt....;...and q
0001A0: 75 69 74 20 74 68 69 73 20 6D 6F 64 65 0D 0A 0D  uit this mode...
0001B0: 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 52 65 61 64  ..;--- subr.Read
0001C0: 20 74 72 61 63 6B 20 42 20 69 6E 74 6F 20 62 75   track B into bu
0001D0: 66 66 65 72 0D 0A 0D 0A 2E 72 65 61 64 74 72 09  ffer.....readtr.
0001E0: 6C 64 20 64 2C 62 3A 20 6C 64 20 65 2C 30 3A 20  ld d,b: ld e,0: 
0001F0: 6C 64 20 68 6C 2C 26 31 36 30 30 09 09 3B 54 72  ld hl,&1600..;Tr

Size : 512 (Real : 512)
000000: 65 72 20 77 68 61 74 20 66 69 6C 65 6E 61 6D 65  er what filename
000010: 3F 0D 0A 09 70 75 73 68 20 69 78 3A 20 70 6F 70  ?...push ix: pop
000020: 20 68 6C 3A 20 6C 64 20 64 65 2C 33 37 3A 20 61   hl: ld de,37: a
000030: 64 64 20 68 6C 2C 64 65 09 3B 20 7C 0D 0A 09 6C  dd hl,de.; |...l
000040: 64 20 64 2C 34 30 3A 20 6C 64 20 65 2C 31 30 34  d d,40: ld e,104
000050: 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 63 2C 38 20  ...; |...ld c,8 
000060: 3A 20 6F 72 20 61 3A 20 70 75 73 68 20 69 78 3A  : or a: push ix:
000070: 20 63 61 6C 6C 20 26 39 32 37 32 09 3B 20 7C 0D   call &9272.; |.
000080: 0A 09 70 6F 70 20 69 78 20 3A 20 6A 70 20 63 2C  ..pop ix : jp c,
000090: 63 72 65 61 65 72 09 09 09 3B 20 7C 0D 0A 09 6C  creaer...; |...l
0000A0: 64 20 62 2C 30 20 3A 20 61 64 64 20 68 6C 2C 62  d b,0 : add hl,b
0000B0: 63 09 09 09 3B 20 7C 20 66 69 6C 6C 20 77 69 74  c...; | fill wit
0000C0: 68 20 73 70 61 63 65 73 0D 0A 2E 63 72 73 5F 6C  h spaces...crs_l
0000D0: 70 09 62 69 74 20 33 2C 63 3A 20 6A 72 20 6E 7A  p.bit 3,c: jr nz
0000E0: 2C 63 72 73 64 6E 65 09 09 09 3B 20 7C 20 20 7C  ,crsdne...; |  |
0000F0: 0D 0A 09 6C 64 20 28 68 6C 29 2C 22 20 22 3A 20  ...ld (hl)," ": 
000100: 69 6E 63 20 68 6C 3A 20 69 6E 63 20 63 3A 20 6A  inc hl: inc c: j
000110: 72 20 63 72 73 5F 6C 70 09 3B 20 7C 20 20 7C 0D  r crs_lp.; |  |.
000120: 0A 2E 63 72 73 64 6E 65 09 6C 64 20 28 68 6C 29  ..crsdne.ld (hl)
000130: 2C 22 2E 22 3A 20 69 6E 63 20 68 6C 09 09 09 3B  ,".": inc hl...;
000140: 20 7C 20 61 64 64 20 66 69 6C 65 20 65 78 74 65   | add file exte
000150: 6E 73 69 6F 6E 0D 0A 09 6C 64 20 28 68 6C 29 2C  nsion...ld (hl),
000160: 22 49 22 3A 20 69 6E 63 20 68 6C 09 09 09 3B 20  "I": inc hl...; 
000170: 7C 20 20 7C 0D 0A 09 6C 64 20 28 68 6C 29 2C 22  |  |...ld (hl),"
000180: 4D 22 3A 20 69 6E 63 20 68 6C 09 09 09 3B 20 7C  M": inc hl...; |
000190: 20 20 7C 0D 0A 09 6C 64 20 28 68 6C 29 2C 22 47    |...ld (hl),"G
0001A0: 22 09 09 09 09 3B 20 7C 20 20 7C 0D 0A 0D 0A 09  "....; |  |.....
0001B0: 6C 64 20 61 2C 28 69 78 2B 33 36 29 3A 20 70 75  ld a,(ix+36): pu
0001C0: 73 68 20 69 78 3A 20 63 61 6C 6C 20 69 6E 73 64  sh ix: call insd
0001D0: 73 63 09 3B 49 6E 73 65 72 74 20 63 6F 72 72 65  sc.;Insert corre
0001E0: 63 74 20 64 69 73 63 2C 20 70 6C 65 61 73 65 0D  ct disc, please.
0001F0: 0A 09 70 6F 70 20 69 78 3A 20 6A 70 20 63 2C 63  ..pop ix: jp c,c

Size : 512 (Real : 512)
000000: 72 65 6E 74 20 64 72 69 76 65 0D 0A 09 6A 70 20  rent drive...jp 
000010: 6B 65 79 73 0D 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 20  keys.......;--- 
000020: 73 75 62 72 09 52 65 71 75 65 73 74 20 64 69 73  subr.Request dis
000030: 63 20 41 0D 0A 09 3B 09 09 43 20 69 66 20 63 61  c A...;..C if ca
000040: 6E 63 65 6C 6C 65 64 2C 20 4E 43 20 69 66 20 6F  ncelled, NC if o
000050: 6B 0D 0A 0D 0A 2E 69 6E 73 64 73 63 09 6C 64 20  k.....insdsc.ld 
000060: 68 6C 2C 69 6E 73 74 78 74 3A 20 6C 64 20 61 2C  hl,instxt: ld a,
000070: 31 32 09 09 09 3B 50 6C 65 61 73 65 20 69 6E 73  12...;Please ins
000080: 65 72 74 20 64 69 73 63 0D 0A 09 6C 64 20 62 63  ert disc...ld bc
000090: 2C 6F 6B 62 75 74 20 3A 20 6C 64 20 64 65 2C 63  ,okbut : ld de,c
0000A0: 61 6E 62 75 74 09 09 3B 20 7C 0D 0A 09 63 61 6C  anbut..; |...cal
0000B0: 6C 20 26 39 32 34 38 20 20 3A 20 72 65 74 20 63  l &9248  : ret c
0000C0: 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64 20 65 2C  ...; |.....ld e,
0000D0: 31 3A 20 63 61 6C 6C 20 26 39 32 41 35 09 09 09  1: call &92A5...
0000E0: 3B 44 72 69 76 65 20 42 0D 0A 09 63 61 6C 6C 20  ;Drive B...call 
0000F0: 26 39 32 38 44 3A 20 6F 72 20 61 09 09 09 3B 43  &928D: or a...;C
000100: 68 65 63 6B 4F 66 66 0D 0A 09 63 61 6C 6C 20 26  heckOff...call &
000110: 39 32 39 39 3A 20 70 75 73 68 20 61 66 09 09 09  9299: push af...
000120: 3B 53 63 61 6E 46 6F 72 6D 61 74 0D 0A 09 63 61  ;ScanFormat...ca
000130: 6C 6C 20 26 39 32 38 41 3A 20 70 6F 70 20 61 66  ll &928A: pop af
000140: 09 09 09 3B 43 68 65 63 6B 4F 6E 0D 0A 09 63 70  ...;CheckOn...cp
000150: 20 33 3A 20 6A 72 20 7A 2C 74 72 79 5F 61 3A 20   3: jr z,try_a: 
000160: 63 70 20 34 3A 20 6A 72 20 7A 2C 74 72 79 5F 61  cp 4: jr z,try_a
000170: 09 3B 4F 6B 20 69 66 20 44 31 2C 20 44 31 30 2C  .;Ok if D1, D10,
000180: 20 44 32 2C 20 44 32 30 0D 0A 09 63 70 20 35 3A   D2, D20...cp 5:
000190: 20 6A 72 20 7A 2C 74 72 79 5F 61 3A 20 63 70 20   jr z,try_a: cp 
0001A0: 36 3A 20 6A 72 20 7A 2C 74 72 79 5F 61 09 3B 20  6: jr z,try_a.; 
0001B0: 7C 0D 0A 09 63 61 6C 6C 20 26 39 32 44 32 3A 20  |...call &92D2: 
0001C0: 6A 72 20 69 6E 73 64 73 63 09 09 09 3B 45 6C 73  jr insdsc...;Els
0001D0: 65 20 74 72 79 20 61 67 61 69 6E 0D 0A 0D 0A 2E  e try again.....
0001E0: 74 72 79 5F 61 09 6C 64 20 65 2C 30 3A 20 63 61  try_a.ld e,0: ca
0001F0: 6C 6C 20 26 39 32 41 35 09 09 09 3B 44 72 69 76  ll &92A5...;Driv

Size : 512 (Real : 512)
000000: 6C 3A 20 6A 70 20 6E 63 2C 72 65 73 74 71 74 09  l: jp nc,restqt.
000010: 09 3B 20 7C 0D 0A 0D 0A 09 63 61 6C 6C 20 26 42  .; |.....call &B
000020: 43 38 30 3A 20 63 70 20 22 49 22 3A 20 6A 70 20  C80: cp "I": jp 
000030: 6E 7A 2C 6E 6F 74 69 6D 67 09 3B 43 68 65 63 6B  nz,notimg.;Check
000040: 20 69 74 27 73 20 61 6E 20 69 6D 61 67 65 20 66   it's an image f
000050: 69 6C 65 0D 0A 09 63 61 6C 6C 20 26 42 43 38 30  ile...call &BC80
000060: 3A 20 63 70 20 22 6D 22 3A 20 6A 70 20 6E 7A 2C  : cp "m": jp nz,
000070: 6E 6F 74 69 6D 67 09 3B 20 7C 0D 0A 09 63 61 6C  notimg.; |...cal
000080: 6C 20 26 42 43 38 30 3A 20 63 70 20 22 61 22 3A  l &BC80: cp "a":
000090: 20 6A 70 20 6E 7A 2C 6E 6F 74 69 6D 67 09 3B 20   jp nz,notimg.; 
0000A0: 7C 0D 0A 09 63 61 6C 6C 20 26 42 43 38 30 3A 20  |...call &BC80: 
0000B0: 63 70 20 22 67 22 3A 20 6A 70 20 6E 7A 2C 6E 6F  cp "g": jp nz,no
0000C0: 74 69 6D 67 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20  timg.; |...call 
0000D0: 26 42 43 38 30 3A 20 63 70 20 22 65 22 3A 20 6A  &BC80: cp "e": j
0000E0: 70 20 6E 7A 2C 6E 6F 74 69 6D 67 09 3B 20 7C 0D  p nz,notimg.; |.
0000F0: 0A 09 63 61 6C 6C 20 26 42 43 38 30 3A 20 6F 72  ..call &BC80: or
000100: 20 61 20 20 3A 20 6A 70 20 6E 7A 2C 6E 6F 74 69   a  : jp nz,noti
000110: 6D 67 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20 26 42  mg.; |...call &B
000120: 43 38 30 3A 20 6C 64 20 28 77 72 69 74 74 72 2B  C80: ld (writtr+
000130: 31 29 2C 61 09 09 3B 20 7C 0D 0A 09 63 61 6C 6C  1),a..; |...call
000140: 20 26 42 43 37 41 09 09 09 09 3B 43 6C 6F 73 65   &BC7A....;Close
000150: 20 66 69 6C 65 20 77 68 69 6C 65 20 66 6F 72 6D   file while form
000160: 61 74 74 69 6E 67 0D 0A 0D 0A 09 6C 64 20 65 2C  atting.....ld e,
000170: 30 3A 20 63 61 6C 6C 20 26 39 32 41 35 09 09 09  0: call &92A5...
000180: 3B 44 72 69 76 65 20 41 0D 0A 09 6C 64 20 61 2C  ;Drive A...ld a,
000190: 28 77 72 69 74 74 72 2B 31 29 09 09 09 09 3B 46  (writtr+1)....;F
0001A0: 6F 72 6D 61 74 0D 0A 09 6C 64 20 64 2C 31 3A 20  ormat...ld d,1: 
0001B0: 63 70 20 26 43 31 3A 20 6A 72 20 7A 2C 64 6F 66  cp &C1: jr z,dof
0001C0: 6F 72 6D 3A 20 6C 64 20 64 2C 32 09 3B 20 7C 0D  orm: ld d,2.; |.
0001D0: 0A 2E 64 6F 66 6F 72 6D 09 6C 64 20 61 2C 64 3A  ..doform.ld a,d:
0001E0: 20 6C 64 20 68 6C 2C 30 3A 20 63 61 6C 6C 20 26   ld hl,0: call &
0001F0: 39 32 38 37 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64  9287..; |.....ld

Size : 512 (Real : 512)
000000: 65 20 41 0D 0A 09 63 61 6C 6C 20 26 39 32 38 44  e A...call &928D
000010: 3A 20 6F 72 20 61 09 09 09 3B 43 68 65 63 6B 4F  : or a...;CheckO
000020: 66 66 0D 0A 09 63 61 6C 6C 20 26 39 32 39 39 3A  ff...call &9299:
000030: 20 70 75 73 68 20 61 66 09 09 09 3B 53 63 61 6E   push af...;Scan
000040: 46 6F 72 6D 61 74 0D 0A 09 63 61 6C 6C 20 26 39  Format...call &9
000050: 32 38 41 3A 20 70 6F 70 20 61 66 09 09 09 3B 43  28A: pop af...;C
000060: 68 65 63 6B 4F 6E 0D 0A 09 63 70 20 31 3A 20 6A  heckOn...cp 1: j
000070: 72 20 7A 2C 74 72 79 5F 64 74 3A 20 63 70 20 32  r z,try_dt: cp 2
000080: 3A 20 6A 72 20 7A 2C 74 72 79 5F 63 70 09 3B 4F  : jr z,try_cp.;O
000090: 6B 20 69 66 20 44 61 74 61 20 6F 72 20 43 50 2F  k if Data or CP/
0000A0: 4D 0D 0A 09 63 61 6C 6C 20 26 39 32 44 32 3A 20  M...call &92D2: 
0000B0: 6A 70 20 69 6E 73 64 73 63 09 09 09 3B 45 6C 73  jp insdsc...;Els
0000C0: 65 20 74 72 79 20 61 67 61 69 6E 0D 0A 0D 0A 2E  e try again.....
0000D0: 74 72 79 5F 64 74 09 6C 64 20 28 69 78 2B 33 35  try_dt.ld (ix+35
0000E0: 29 2C 61 3A 20 6C 64 20 61 2C 26 43 31 3A 20 6C  ),a: ld a,&C1: l
0000F0: 64 20 28 72 65 61 64 74 70 2B 31 29 2C 61 3A 20  d (readtp+1),a: 
000100: 72 65 74 0D 0A 2E 74 72 79 5F 63 70 09 6C 64 20  ret...try_cp.ld 
000110: 28 69 78 2B 33 35 29 2C 61 3A 20 6C 64 20 61 2C  (ix+35),a: ld a,
000120: 26 34 31 3A 20 6C 64 20 28 72 65 61 64 74 70 2B  &41: ld (readtp+
000130: 31 29 2C 61 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2D  1),a: ret.....;-
000140: 2D 2D 20 73 75 62 72 09 50 72 65 73 65 72 76 65  -- subr.Preserve
000150: 20 63 75 72 72 65 6E 74 20 64 69 73 63 20 64 72   current disc dr
000160: 69 76 65 0D 0A 0D 0A 2E 70 64 72 69 76 65 09 63  ive.....pdrive.c
000170: 61 6C 6C 20 26 39 32 39 46 3A 20 6C 64 20 61 2C  all &929F: ld a,
000180: 65 3A 20 6C 64 20 28 72 64 72 69 76 65 2B 31 29  e: ld (rdrive+1)
000190: 2C 61 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2D 2D 2D  ,a: ret.....;---
0001A0: 20 73 75 62 72 09 52 65 73 74 6F 72 65 20 63 75   subr.Restore cu
0001B0: 72 72 65 6E 74 20 64 69 73 63 20 64 72 69 76 65  rrent disc drive
0001C0: 0D 0A 0D 0A 2E 72 64 72 69 76 65 09 6C 64 20 65  .....rdrive.ld e
0001D0: 2C 30 3A 20 6A 70 20 26 39 32 41 35 0D 0A 0D 0A  ,0: jp &92A5....
0001E0: 0D 0A 0D 0A 09 3B 2B 2B 2B 20 52 4F 55 54 09 55  .....;+++ ROUT.U
0001F0: 70 64 61 74 65 20 61 72 63 68 69 76 65 0D 0A 0D  pdate archive...

Size : 512 (Real : 512)
000000: 20 65 2C 31 3A 20 63 61 6C 6C 20 26 39 32 41 35   e,1: call &92A5
000010: 3A 20 6A 70 20 6E 63 2C 72 65 73 74 71 74 09 3B  : jp nc,restqt.;
000020: 44 72 69 76 65 20 42 0D 0A 09 6C 64 20 68 2C 32  Drive B...ld h,2
000030: 33 3A 20 6C 64 20 6C 2C 33 37 3A 20 63 61 6C 6C  3: ld l,37: call
000040: 20 26 39 32 32 34 09 09 3B 50 72 69 6E 74 20 22   &9224..;Print "
000050: 72 65 73 74 6F 72 69 6E 67 22 0D 0A 09 6C 64 20  restoring"...ld 
000060: 68 6C 2C 72 65 73 74 74 78 3A 20 63 61 6C 6C 20  hl,resttx: call 
000070: 26 39 32 30 33 09 09 3B 20 7C 0D 0A 0D 0A 09 63  &9203..; |.....c
000080: 61 6C 6C 20 73 74 61 74 73 3A 20 6C 64 20 64 65  all stats: ld de
000090: 2C 33 37 3A 20 61 64 64 20 68 6C 2C 64 65 09 09  ,37: add hl,de..
0000A0: 3B 4F 70 65 6E 20 66 69 6C 65 20 61 67 61 69 6E  ;Open file again
0000B0: 0D 0A 09 6C 64 20 62 2C 31 32 3A 20 6C 64 20 64  ...ld b,12: ld d
0000C0: 65 2C 26 43 30 30 30 3A 20 63 61 6C 6C 20 26 42  e,&C000: call &B
0000D0: 43 37 37 09 3B 20 7C 0D 0A 09 6A 70 20 6E 63 2C  C77.; |...jp nc,
0000E0: 72 65 73 74 71 74 3A 20 63 61 6C 6C 20 69 6E 69  restqt: call ini
0000F0: 74 63 6D 09 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20  tcm..; |...call 
000100: 72 65 61 64 32 6B 3A 20 6C 64 20 62 2C 33 39 09  read2k: ld b,39.
000110: 09 09 3B 20 7C 0D 0A 2E 73 77 61 6C 6C 6F 09 63  ..; |...swallo.c
000120: 61 6C 6C 20 72 65 61 64 63 6D 3A 20 64 6A 6E 7A  all readcm: djnz
000130: 20 73 77 61 6C 6C 6F 09 09 3B 20 7C 0D 0A 0D 0A   swallo..; |....
000140: 09 6C 64 20 62 2C 30 09 09 09 09 09 3B 54 72 61  .ld b,0.....;Tra
000150: 63 6B 20 30 0D 0A 2E 72 73 6F 75 6C 70 09 6C 64  ck 0...rsoulp.ld
000160: 20 69 79 2C 26 31 36 30 30 3A 20 63 61 6C 6C 20   iy,&1600: call 
000170: 72 65 73 74 70 63 09 09 3B 53 74 61 72 74 20 6F  restpc..;Start o
000180: 66 20 73 65 63 74 6F 72 20 62 75 66 66 65 72 0D  f sector buffer.
000190: 0A 2E 72 73 69 6E 6C 70 09 63 61 6C 6C 20 72 65  ..rsinlp.call re
0001A0: 61 64 63 6D 3A 20 63 70 20 26 45 39 3A 20 6A 72  adcm: cp &E9: jr
0001B0: 20 6E 7A 2C 73 69 6D 70 6C 65 09 3B 49 73 20 69   nz,simple.;Is i
0001C0: 74 20 26 45 39 3F 0D 0A 09 63 61 6C 6C 20 72 65  t &E9?...call re
0001D0: 61 64 63 6D 3A 20 63 70 20 31 20 20 3A 20 6A 72  adcm: cp 1  : jr
0001E0: 20 7A 20 2C 73 69 6D 70 65 39 09 3B 20 7C 20 73   z ,simpe9.; | s
0001F0: 69 6D 70 6C 65 20 26 45 39 20 62 79 74 65 3F 0D  imple &E9 byte?.

Size : 512 (Real : 512)
000000: 0A 2E 75 70 64 61 72 63 09 6C 64 20 61 2C 26 43  ..updarc.ld a,&C
000010: 39 3A 20 6C 64 20 28 64 65 6C 5F 71 74 29 2C 61  9: ld (del_qt),a
000020: 0D 0A 09 63 61 6C 6C 20 64 65 6C 65 6E 74 0D 0A  ...call delent..
000030: 09 63 61 6C 6C 20 73 74 61 74 73 3A 20 70 75 73  .call stats: pus
000040: 68 20 68 6C 3A 20 70 6F 70 20 69 78 0D 0A 09 6A  h hl: pop ix...j
000050: 70 20 20 20 75 70 64 65 6E 74 0D 0A 0D 0A 0D 0A  p   updent......
000060: 09 3B 2B 2B 2B 20 52 4F 55 54 09 44 65 6C 65 74  .;+++ ROUT.Delet
000070: 65 20 61 72 63 68 69 76 65 0D 0A 0D 0A 2E 64 65  e archive.....de
000080: 6C 65 74 65 09 78 6F 72 20 61 3A 20 6C 64 20 28  lete.xor a: ld (
000090: 64 65 6C 5F 71 74 29 2C 61 0D 0A 2E 64 65 6C 65  del_qt),a...dele
0000A0: 6E 74 09 63 61 6C 6C 20 26 39 32 38 41 09 09 09  nt.call &928A...
0000B0: 09 3B 43 68 65 63 6B 4F 6E 0D 0A 09 63 61 6C 6C  .;CheckOn...call
0000C0: 20 26 39 32 38 31 09 09 09 09 3B 43 6C 65 61 72   &9281....;Clear
0000D0: 20 69 6E 70 75 74 0D 0A 09 63 61 6C 6C 20 70 64   input...call pd
0000E0: 72 69 76 65 09 09 09 09 3B 50 72 65 73 65 72 76  rive....;Preserv
0000F0: 65 20 64 69 73 63 20 64 72 69 76 65 0D 0A 0D 0A  e disc drive....
000100: 09 63 61 6C 6C 20 73 74 61 74 73 3A 20 70 75 73  .call stats: pus
000110: 68 20 68 6C 3A 20 70 6F 70 20 69 78 0D 0A 09 6C  h hl: pop ix...l
000120: 64 20 61 2C 28 69 78 2B 33 36 29 3A 20 6F 72 20  d a,(ix+36): or 
000130: 61 3A 20 6A 70 20 7A 2C 63 6E 74 64 65 6C 09 09  a: jp z,cntdel..
000140: 3B 4E 6F 74 20 61 72 63 68 69 76 65 64 3F 0D 0A  ;Not archived?..
000150: 09 63 61 6C 6C 20 69 6E 73 64 73 63 20 3A 20 6A  .call insdsc : j
000160: 70 20 63 2C 64 65 6C 5F 71 74 09 09 3B 49 6E 73  p c,del_qt..;Ins
000170: 65 72 74 20 64 69 73 63 20 70 6C 65 61 73 65 0D  ert disc please.
000180: 0A 0D 0A 09 6C 64 20 65 2C 31 3A 20 63 61 6C 6C  ....ld e,1: call
000190: 20 26 39 32 41 35 09 09 09 3B 44 72 69 76 65 20   &92A5...;Drive 
0001A0: 42 0D 0A 09 70 75 73 68 20 69 78 3A 20 70 6F 70  B...push ix: pop
0001B0: 20 68 6C 3A 20 6C 64 20 64 65 2C 33 37 3A 20 61   hl: ld de,37: a
0001C0: 64 64 20 68 6C 2C 64 65 09 3B 50 72 65 70 61 72  dd hl,de.;Prepar
0001D0: 65 20 70 61 72 61 6D 65 74 65 72 20 62 6C 6F 63  e parameter bloc
0001E0: 6B 0D 0A 09 6C 64 20 28 64 65 6C 73 74 72 2B 31  k...ld (delstr+1
0001F0: 29 2C 68 6C 3A 20 70 75 73 68 20 69 78 09 09 3B  ),hl: push ix..;

Size : 512 (Real : 512)
000000: 4E 65 78 74 20 61 64 64 72 65 73 73 0D 0A 09 20  Next address... 
000010: 6C 64 20 61 2C 68 3A 20 63 70 20 26 33 30 3A 20  ld a,h: cp &30: 
000020: 6A 72 20 7A 2C 77 72 69 74 6F 66 09 09 3B 20 7C  jr z,writof..; |
000030: 20 6F 76 65 72 66 6C 6F 77 73 20 62 75 66 66 65   overflows buffe
000040: 72 3F 0D 0A 09 70 6F 70 20 68 6C 3A 20 70 6F 70  r?...pop hl: pop
000050: 20 61 66 3A 20 72 65 74 09 09 09 3B 20 7C 20 20   af: ret...; |  
000060: 7C 20 6E 6F 2C 20 73 6F 20 72 65 74 75 72 6E 0D  | no, so return.
000070: 0A 0D 0A 2E 77 72 69 74 6F 66 09 20 63 61 6C 6C  ....writof. call
000080: 20 65 6D 70 74 63 6D 3A 20 6A 72 20 6E 63 2C 65   emptcm: jr nc,e
000090: 6D 70 74 65 72 09 09 3B 45 6D 70 74 79 20 62 75  mpter..;Empty bu
0000A0: 66 66 65 72 0D 0A 09 20 63 61 6C 6C 20 69 6E 69  ffer... call ini
0000B0: 74 63 6D 09 09 09 09 3B 52 65 73 74 61 72 74 20  tcm....;Restart 
0000C0: 69 74 0D 0A 09 70 6F 70 20 68 6C 3A 20 70 6F 70  it...pop hl: pop
0000D0: 20 61 66 3A 20 72 65 74 09 09 09 3B 2E 2E 2E 61   af: ret...;...a
0000E0: 6E 64 20 72 65 74 75 72 6E 0D 0A 2E 65 6D 70 74  nd return...empt
0000F0: 65 72 09 6C 64 20 73 70 2C 28 73 74 61 63 6B 73  er.ld sp,(stacks
000100: 29 3A 20 6A 70 20 63 72 65 61 65 72 09 09 3B 4F  ): jp creaer..;O
000110: 6E 20 65 72 72 6F 72 2C 20 63 6C 65 61 72 20 73  n error, clear s
000120: 74 61 63 6B 2C 20 72 65 74 75 72 6E 0D 0A 0D 0A  tack, return....
000130: 2E 65 6D 70 74 63 6D 09 70 75 73 68 20 62 63 3A  .emptcm.push bc:
000140: 20 70 75 73 68 20 64 65 3A 20 70 75 73 68 20 69   push de: push i
000150: 78 09 09 3B 57 72 69 74 65 20 32 6B 20 75 73 69  x..;Write 2k usi
000160: 6E 67 20 43 41 53 20 4F 55 54 20 44 49 52 45 43  ng CAS OUT DIREC
000170: 54 0D 0A 09 20 6C 64 20 68 6C 2C 26 32 38 30 30  T... ld hl,&2800
000180: 3A 20 6C 64 20 62 63 2C 30 09 09 09 3B 20 7C 0D  : ld bc,0...; |.
000190: 0A 09 20 6C 64 20 64 65 2C 26 30 38 30 30 3A 20  .. ld de,&0800: 
0001A0: 6C 64 20 61 20 2C 26 31 36 3A 20 63 61 6C 6C 20  ld a ,&16: call 
0001B0: 26 42 43 39 38 09 3B 20 7C 0D 0A 09 70 6F 70 20  &BC98.; |...pop 
0001C0: 69 78 3A 20 70 6F 70 20 64 65 3A 20 70 6F 70 20  ix: pop de: pop 
0001D0: 62 63 09 09 09 3B 20 7C 0D 0A 09 72 65 74 09 09  bc...; |...ret..
0001E0: 09 09 09 3B 20 7C 0D 0A 0D 0A 0D 0A 09 3B 2D 2D  ...; |.......;--
0001F0: 2D 20 73 75 62 72 09 43 6F 6D 70 61 72 65 20 49  - subr.Compare I

Size : 512 (Real : 512)
000000: 20 7C 0D 0A 09 6C 64 20 68 6C 2C 64 65 6C 63 6D   |...ld hl,delcm
000010: 64 3A 20 63 61 6C 6C 20 26 42 43 44 34 3A 20 6C  d: call &BCD4: l
000020: 64 20 61 2C 31 09 3B 46 69 6E 64 20 63 6F 6D 6D  d a,1.;Find comm
000030: 61 6E 64 0D 0A 09 6C 64 20 69 78 2C 64 65 6C 70  and...ld ix,delp
000040: 61 72 3A 20 63 61 6C 6C 20 26 31 42 09 09 09 3B  ar: call &1B...;
000050: 45 78 65 63 75 74 65 20 69 74 0D 0A 09 70 6F 70  Execute it...pop
000060: 20 69 78 3A 20 6A 70 20 64 65 6C 5F 71 74 0D 0A   ix: jp del_qt..
000070: 0D 0A 2E 64 65 6C 63 6D 64 09 73 74 72 20 22 45  ...delcmd.str "E
000080: 52 41 22 0D 0A 2E 64 65 6C 70 61 72 09 64 77 20  RA"...delpar.dw 
000090: 64 65 6C 73 74 72 0D 0A 2E 64 65 6C 73 74 72 09  delstr...delstr.
0000A0: 64 62 20 31 32 0D 0A 09 64 77 20 30 0D 0A 0D 0A  db 12...dw 0....
0000B0: 09 3B 2D 2D 2D 20 73 65 63 74 09 51 75 69 74 20  .;--- sect.Quit 
0000C0: 64 65 6C 65 74 69 6E 67 20 69 6D 61 67 65 0D 0A  deleting image..
0000D0: 0D 0A 2E 63 6E 74 64 65 6C 09 6C 64 20 61 2C 26  ...cntdel.ld a,&
0000E0: 38 32 3A 20 6C 64 20 68 6C 2C 6E 6F 74 61 74 78  82: ld hl,notatx
0000F0: 3A 20 63 61 6C 6C 20 26 39 32 34 38 3A 20 6A 70  : call &9248: jp
000100: 20 64 65 6C 5F 71 74 0D 0A 0D 0A 2E 64 65 6C 5F   del_qt.....del_
000110: 71 74 09 6E 6F 70 09 09 09 09 09 3B 26 43 39 20  qt.nop.....;&C9 
000120: 77 68 65 6E 20 63 61 6C 6C 65 64 20 62 79 20 22  when called by "
000130: 75 70 64 61 74 65 22 0D 0A 09 6C 64 20 28 69 78  update"...ld (ix
000140: 2B 33 36 29 2C 30 09 09 09 09 3B 52 65 73 65 74  +36),0....;Reset
000150: 20 61 72 63 68 69 76 65 20 62 79 74 65 0D 0A 09   archive byte...
000160: 63 61 6C 6C 20 73 74 61 74 73 3A 20 63 61 6C 6C  call stats: call
000170: 20 63 61 72 64 09 09 09 3B 51 75 69 74 20 64 65   card...;Quit de
000180: 6C 65 74 65 20 6D 6F 64 65 0D 0A 09 63 61 6C 6C  lete mode...call
000190: 20 26 39 32 38 44 09 09 09 09 3B 20 7C 20 43 68   &928D....; | Ch
0001A0: 65 63 6B 4F 66 66 0D 0A 09 78 6F 72 20 61 3A 20  eckOff...xor a: 
0001B0: 63 61 6C 6C 20 26 39 32 37 42 09 09 09 3B 20 7C  call &927B...; |
0001C0: 20 6C 6F 77 65 72 20 63 61 73 65 0D 0A 09 63 61   lower case...ca
0001D0: 6C 6C 20 26 42 43 37 44 3A 20 63 61 6C 6C 20 72  ll &BC7D: call r
0001E0: 64 72 69 76 65 09 09 09 3B 20 7C 20 61 62 61 6E  drive...; | aban
0001F0: 64 6F 6E 20 69 6E 70 75 74 2C 20 72 65 73 74 6F  don input, resto

Size : 512 (Real : 512)
000000: 59 20 77 69 74 68 20 44 45 0D 0A 0D 0A 2E 63 70  Y with DE.....cp
000010: 69 79 64 65 09 70 75 73 68 20 68 6C 0D 0A 09 20  iyde.push hl... 
000020: 6F 72 20 61 3A 20 70 75 73 68 20 69 79 3A 20 70  or a: push iy: p
000030: 6F 70 20 68 6C 0D 0A 09 20 73 62 63 20 68 6C 2C  op hl... sbc hl,
000040: 64 65 0D 0A 09 70 6F 70 20 68 6C 3A 20 72 65 74  de...pop hl: ret
000050: 0D 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 65 63 74  .......;--- sect
000060: 09 51 75 69 74 20 63 72 65 61 74 69 6E 67 20 61  .Quit creating a
000070: 72 63 68 69 76 65 0D 0A 0D 0A 2E 61 6C 72 65 64  rchive.....alred
000080: 79 09 6C 64 20 61 2C 26 38 32 3A 20 6C 64 20 68  y.ld a,&82: ld h
000090: 6C 2C 61 6C 72 65 74 78 3A 20 63 61 6C 6C 20 26  l,alretx: call &
0000A0: 39 32 34 38 3A 20 6A 70 20 63 72 65 61 65 32 0D  9248: jp creae2.
0000B0: 0A 2E 77 72 6F 6E 67 66 09 6C 64 20 61 2C 26 38  ..wrongf.ld a,&8
0000C0: 32 3A 20 6C 64 20 68 6C 2C 77 72 6E 67 74 78 3A  2: ld hl,wrngtx:
0000D0: 20 63 61 6C 6C 20 26 39 32 34 38 3A 20 6A 70 20   call &9248: jp 
0000E0: 63 72 65 61 65 32 0D 0A 0D 0A 2E 63 72 65 61 65  creae2.....creae
0000F0: 72 09 63 61 6C 6C 20 73 74 61 74 73 09 09 09 09  r.call stats....
000100: 3B 43 61 6E 63 65 6C 20 61 72 63 68 69 76 65 20  ;Cancel archive 
000110: 62 69 74 73 0D 0A 09 70 75 73 68 20 68 6C 3A 20  bits...push hl: 
000120: 70 6F 70 20 69 78 3A 20 6C 64 20 28 69 78 2B 33  pop ix: ld (ix+3
000130: 36 29 2C 30 09 09 3B 20 7C 0D 0A 2E 63 72 65 61  6),0..; |...crea
000140: 65 32 09 63 61 6C 6C 20 26 42 43 39 32 09 09 09  e2.call &BC92...
000150: 09 3B 20 7C 20 61 62 61 6E 64 6F 6E 20 6F 75 74  .; | abandon out
000160: 70 75 74 20 66 69 6C 65 0D 0A 0D 0A 2E 63 72 65  put file.....cre
000170: 61 71 74 09 63 61 6C 6C 20 73 74 61 74 73 3A 20  aqt.call stats: 
000180: 63 61 6C 6C 20 63 61 72 64 09 09 09 3B 51 75 69  call card...;Qui
000190: 74 20 63 72 65 61 74 65 20 6D 6F 64 65 0D 0A 09  t create mode...
0001A0: 63 61 6C 6C 20 26 39 32 38 44 09 09 09 09 3B 20  call &928D....; 
0001B0: 7C 20 43 68 65 63 6B 4F 66 66 0D 0A 09 78 6F 72  | CheckOff...xor
0001C0: 20 61 3A 20 63 61 6C 6C 20 26 39 32 37 42 09 09   a: call &927B..
0001D0: 09 3B 20 7C 20 6C 6F 77 65 72 20 63 61 73 65 0D  .; | lower case.
0001E0: 0A 09 63 61 6C 6C 20 72 64 72 69 76 65 09 09 09  ..call rdrive...
0001F0: 09 3B 20 7C 20 72 65 73 74 6F 72 65 20 63 75 72  .; | restore cur

Size : 512 (Real : 512)
000000: 72 65 20 64 72 69 76 65 0D 0A 09 6A 70 20 6B 65  re drive...jp ke
000010: 79 73 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2B 2B  ys...........;++
000020: 2B 20 52 4F 55 54 09 52 65 73 74 6F 72 65 20 64  + ROUT.Restore d
000030: 69 73 63 0D 0A 0D 0A 2E 72 65 73 74 6F 72 09 6C  isc.....restor.l
000040: 64 20 64 65 2C 37 39 3A 20 63 61 6C 6C 20 26 39  d de,79: call &9
000050: 32 37 38 09 09 09 3B 49 6E 70 75 74 20 72 65 73  278...;Input res
000060: 74 72 69 63 74 69 6F 6E 73 0D 0A 09 6C 64 20 61  trictions...ld a
000070: 20 2C 31 20 3A 20 63 61 6C 6C 20 26 39 32 37 42   ,1 : call &927B
000080: 09 09 09 3B 55 70 70 65 72 20 63 61 73 65 0D 0A  ...;Upper case..
000090: 09 63 61 6C 6C 20 26 39 32 38 41 09 09 09 09 3B  .call &928A....;
0000A0: 43 68 65 63 6B 4F 6E 0D 0A 09 63 61 6C 6C 20 26  CheckOn...call &
0000B0: 39 32 38 31 09 09 09 09 3B 43 6C 65 61 72 20 69  9281....;Clear i
0000C0: 6E 70 75 74 0D 0A 09 63 61 6C 6C 20 70 64 72 69  nput...call pdri
0000D0: 76 65 09 09 09 09 3B 50 72 65 73 65 72 76 65 20  ve....;Preserve 
0000E0: 64 69 73 63 20 64 72 69 76 65 0D 0A 0D 0A 09 63  disc drive.....c
0000F0: 61 6C 6C 20 73 74 61 74 73 3A 20 70 75 73 68 20  all stats: push 
000100: 68 6C 3A 20 70 6F 70 20 69 78 0D 0A 09 6C 64 20  hl: pop ix...ld 
000110: 61 2C 28 69 78 2B 33 36 29 3A 20 6F 72 20 61 3A  a,(ix+36): or a:
000120: 20 6A 70 20 7A 20 2C 63 6E 74 72 73 74 09 3B 4E   jp z ,cntrst.;N
000130: 6F 74 20 61 72 63 68 69 76 65 64 3F 0D 0A 09 63  ot archived?...c
000140: 61 6C 6C 20 69 6E 73 64 73 63 20 3A 20 6A 70 20  all insdsc : jp 
000150: 63 2C 72 65 73 74 71 74 09 09 3B 49 6E 73 65 72  c,restqt..;Inser
000160: 74 20 64 69 73 63 20 70 6C 65 61 73 65 0D 0A 0D  t disc please...
000170: 0A 09 6C 64 20 65 2C 31 3A 20 63 61 6C 6C 20 26  ..ld e,1: call &
000180: 39 32 41 35 09 09 09 3B 44 72 69 76 65 20 42 0D  92A5...;Drive B.
000190: 0A 09 70 75 73 68 20 69 78 3A 20 70 6F 70 20 68  ..push ix: pop h
0001A0: 6C 3A 20 6C 64 20 64 65 2C 33 37 3A 20 61 64 64  l: ld de,37: add
0001B0: 20 68 6C 2C 64 65 09 3B 4F 70 65 6E 20 69 6E 70   hl,de.;Open inp
0001C0: 75 74 20 66 69 6C 65 0D 0A 09 6C 64 20 62 2C 31  ut file...ld b,1
0001D0: 32 3A 20 6C 64 20 64 65 2C 26 32 38 30 30 3A 20  2: ld de,&2800: 
0001E0: 63 61 6C 6C 20 26 42 43 37 37 09 3B 20 7C 0D 0A  call &BC77.; |..
0001F0: 09 6C 64 20 28 72 65 61 64 63 70 2B 32 29 2C 68  .ld (readcp+2),h

Size : 512 (Real : 512)
000000: 3B 20 7C 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2D  ; |...ret.....;-
000010: 2D 2D 20 73 75 62 72 09 43 6F 70 79 20 66 69 6C  -- subr.Copy fil
000020: 65 6E 61 6D 65 20 41 20 74 6F 20 48 4C 0D 0A 0D  ename A to HL...
000030: 0A 2E 63 6F 70 79 66 6E 09 70 75 73 68 20 61 66  ..copyfn.push af
000040: 3A 20 65 78 20 64 65 2C 68 6C 0D 0A 09 20 63 61  : ex de,hl... ca
000050: 6C 6C 20 26 39 32 42 34 3A 20 6C 64 20 62 2C 30  ll &92B4: ld b,0
000060: 0D 0A 2E 63 66 6E 6C 70 09 20 6C 64 20 61 2C 28  ...cfnlp. ld a,(
000070: 68 6C 29 3A 20 63 70 20 22 2E 22 3A 20 69 6E 63  hl): cp ".": inc
000080: 20 68 6C 3A 20 6A 72 20 7A 2C 63 66 6E 64 6F 74   hl: jr z,cfndot
000090: 0D 0A 09 20 6C 64 20 28 64 65 29 2C 61 3A 20 69  ... ld (de),a: i
0000A0: 6E 63 20 64 65 3A 20 69 6E 63 20 62 3A 20 6A 72  nc de: inc b: jr
0000B0: 20 63 66 6E 6C 70 0D 0A 2E 63 66 6E 64 6F 74 09   cfnlp...cfndot.
0000C0: 20 62 69 74 20 33 2C 62 3A 20 6A 72 20 6E 7A 2C   bit 3,b: jr nz,
0000D0: 63 66 6E 65 78 74 0D 0A 09 20 6C 64 20 61 2C 22  cfnext... ld a,"
0000E0: 20 22 3A 20 6C 64 20 28 64 65 29 2C 61 3A 20 69   ": ld (de),a: i
0000F0: 6E 63 20 64 65 3A 20 69 6E 63 20 62 3A 20 6A 72  nc de: inc b: jr
000100: 20 63 66 6E 64 6F 74 0D 0A 2E 63 66 6E 65 78 74   cfndot...cfnext
000110: 09 20 6C 64 20 61 2C 22 2E 22 3A 20 6C 64 20 28  . ld a,".": ld (
000120: 64 65 29 2C 61 3A 20 69 6E 63 20 64 65 0D 0A 09  de),a: inc de...
000130: 20 6C 64 20 61 2C 28 68 6C 29 3A 20 6F 72 20 61   ld a,(hl): or a
000140: 3A 20 63 61 6C 6C 20 7A 2C 63 66 73 70 63 3A 20  : call z,cfspc: 
000150: 6C 64 20 28 64 65 29 2C 61 3A 20 69 6E 63 20 68  ld (de),a: inc h
000160: 6C 3A 20 69 6E 63 20 64 65 0D 0A 09 20 6C 64 20  l: inc de... ld 
000170: 61 2C 28 68 6C 29 3A 20 6F 72 20 61 3A 20 63 61  a,(hl): or a: ca
000180: 6C 6C 20 7A 2C 63 66 73 70 63 3A 20 6C 64 20 28  ll z,cfspc: ld (
000190: 64 65 29 2C 61 3A 20 69 6E 63 20 68 6C 3A 20 69  de),a: inc hl: i
0001A0: 6E 63 20 64 65 0D 0A 09 20 6C 64 20 61 2C 28 68  nc de... ld a,(h
0001B0: 6C 29 3A 20 6F 72 20 61 3A 20 63 61 6C 6C 20 7A  l): or a: call z
0001C0: 2C 63 66 73 70 63 3A 20 6C 64 20 28 64 65 29 2C  ,cfspc: ld (de),
0001D0: 61 3A 20 69 6E 63 20 68 6C 3A 20 69 6E 63 20 64  a: inc hl: inc d
0001E0: 65 0D 0A 09 65 78 20 64 65 2C 68 6C 3A 20 70 6F  e...ex de,hl: po
0001F0: 70 20 61 66 3A 20 72 65 74 0D 0A 0D 0A 2E 63 66  p af: ret.....cf

Size : 512 (Real : 512)
000000: 65 73 74 71 74 09 09 09 3B 43 6C 6F 73 65 20 66  estqt...;Close f
000010: 69 6C 65 20 61 6E 64 20 65 78 69 74 0D 0A 0D 0A  ile and exit....
000020: 09 3B 2D 2D 2D 20 73 75 62 72 09 52 65 61 64 20  .;--- subr.Read 
000030: 63 6F 6D 70 72 65 73 73 65 64 20 62 79 74 65 0D  compressed byte.
000040: 0A 0D 0A 2E 72 65 61 64 63 6D 09 70 75 73 68 20  ....readcm.push 
000050: 62 63 3A 20 70 75 73 68 20 68 6C 0D 0A 09 20 6C  bc: push hl... l
000060: 64 20 68 6C 2C 28 77 72 69 74 63 70 29 3A 20 6C  d hl,(writcp): l
000070: 64 20 63 2C 28 68 6C 29 09 09 3B 50 65 65 6B 20  d c,(hl)..;Peek 
000080: 69 74 0D 0A 09 20 69 6E 63 20 68 6C 3A 20 6C 64  it... inc hl: ld
000090: 20 28 77 72 69 74 63 70 29 2C 68 6C 09 09 09 3B   (writcp),hl...;
0000A0: 4E 65 78 74 20 61 64 64 72 65 73 73 0D 0A 09 20  Next address... 
0000B0: 6C 64 20 61 2C 68 3A 20 63 70 20 26 33 30 3A 20  ld a,h: cp &30: 
0000C0: 6A 72 20 7A 2C 72 65 61 64 6F 66 09 09 3B 20 7C  jr z,readof..; |
0000D0: 20 6F 76 65 72 66 6C 6F 77 73 20 62 75 66 66 65   overflows buffe
0000E0: 72 3F 0D 0A 09 70 6F 70 20 68 6C 3A 20 6C 64 20  r?...pop hl: ld 
0000F0: 61 2C 63 3A 20 70 6F 70 20 62 63 3A 20 72 65 74  a,c: pop bc: ret
000100: 09 09 3B 20 7C 20 20 7C 20 6E 6F 2C 20 73 6F 20  ..; |  | no, so 
000110: 72 65 74 75 72 6E 0D 0A 0D 0A 2E 72 65 61 64 6F  return.....reado
000120: 66 09 20 63 61 6C 6C 20 72 65 61 64 32 6B 09 09  f. call read2k..
000130: 09 09 3B 52 65 61 64 20 69 6E 20 62 75 66 66 65  ..;Read in buffe
000140: 72 0D 0A 09 20 63 61 6C 6C 20 69 6E 69 74 63 6D  r... call initcm
000150: 09 09 09 09 3B 52 65 73 74 61 72 74 20 69 74 0D  ....;Restart it.
000160: 0A 09 70 6F 70 20 68 6C 3A 20 6C 64 20 61 2C 63  ..pop hl: ld a,c
000170: 3A 20 70 6F 70 20 62 63 3A 20 72 65 74 09 09 3B  : pop bc: ret..;
000180: 2E 2E 2E 61 6E 64 20 72 65 74 75 72 6E 0D 0A 0D  ...and return...
000190: 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 52 65 61 64  ..;--- subr.Read
0001A0: 20 32 6B 20 6F 66 20 66 69 6C 65 0D 0A 0D 0A 2E   2k of file.....
0001B0: 72 65 61 64 32 6B 09 70 75 73 68 20 62 63 3A 20  read2k.push bc: 
0001C0: 70 75 73 68 20 64 65 3A 20 70 75 73 68 20 69 78  push de: push ix
0001D0: 09 09 3B 57 72 69 74 65 20 32 6B 20 75 73 69 6E  ..;Write 2k usin
0001E0: 67 20 43 41 53 20 4F 55 54 20 44 49 52 45 43 54  g CAS OUT DIRECT
0001F0: 0D 0A 2E 72 65 61 64 63 70 09 20 6C 64 20 69 78  ...readcp. ld ix

Size : 512 (Real : 512)
000000: 73 70 63 09 6C 64 20 68 6C 2C 73 70 61 63 65 73  spc.ld hl,spaces
000010: 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A  : ret.......;***
000020: 20 53 55 42 52 09 49 6E 70 75 74 20 64 69 73 63   SUBR.Input disc
000030: 20 74 69 74 6C 65 20 74 6F 20 49 58 0D 0A 0D 0A   title to IX....
000040: 2E 74 69 74 6C 65 73 09 63 61 6C 6C 20 26 39 32  .titles.call &92
000050: 38 31 09 09 09 09 3B 43 6C 65 61 72 20 69 6E 70  81....;Clear inp
000060: 75 74 20 62 75 66 66 65 72 0D 0A 09 6C 64 20 68  ut buffer...ld h
000070: 2C 32 32 3A 20 6C 64 20 6C 2C 38 36 09 09 09 3B  ,22: ld l,86...;
000080: 44 69 73 70 6C 61 79 20 77 69 6E 64 6F 77 0D 0A  Display window..
000090: 09 6C 64 20 64 2C 33 36 3A 20 6C 64 20 65 2C 33  .ld d,36: ld e,3
0000A0: 34 3A 20 63 61 6C 6C 20 26 39 32 33 46 09 09 3B  4: call &923F..;
0000B0: 20 7C 0D 0A 09 6C 64 20 68 6C 2C 64 6E 61 6D 65   |...ld hl,dname
0000C0: 3A 20 63 61 6C 6C 20 26 39 32 30 33 09 09 09 3B  : call &9203...;
0000D0: 50 72 69 6E 74 20 74 69 74 6C 65 0D 0A 09 6C 64  Print title...ld
0000E0: 20 64 2C 32 34 3A 20 6C 64 20 65 2C 31 30 34 3A   d,24: ld e,104:
0000F0: 20 6C 64 20 63 2C 33 31 3A 20 6F 72 20 61 09 3B   ld c,31: or a.;
000100: 45 64 69 74 20 73 74 72 69 6E 67 0D 0A 09 70 75  Edit string...pu
000110: 73 68 20 69 78 3A 20 70 6F 70 20 68 6C 3A 20 63  sh ix: pop hl: c
000120: 61 6C 6C 20 26 39 32 37 35 09 09 3B 20 7C 0D 0A  all &9275..; |..
000130: 09 72 65 74 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2A 2A  .ret.........;**
000140: 2A 20 52 4F 55 54 09 50 72 69 6E 74 20 66 69 6C  * ROUT.Print fil
000150: 65 20 63 61 72 64 20 66 6F 72 20 64 69 73 63 20  e card for disc 
000160: 61 74 20 48 4C 0D 0A 0D 0A 2E 63 61 72 64 09 70  at HL.....card.p
000170: 75 73 68 20 68 6C 09 09 09 09 09 3B 46 69 6C 65  ush hl.....;File
000180: 20 63 61 72 64 0D 0A 09 20 6C 64 20 68 2C 30 3A   card... ld h,0:
000190: 20 6C 64 20 6C 2C 31 36 09 09 09 3B 20 7C 0D 0A   ld l,16...; |..
0001A0: 09 20 6C 64 20 64 2C 38 30 3A 20 6C 64 20 65 2C  . ld d,80: ld e,
0001B0: 31 38 34 09 09 09 3B 20 7C 0D 0A 09 20 63 61 6C  184...; |... cal
0001C0: 6C 20 26 39 32 33 36 09 09 09 09 3B 20 7C 0D 0A  l &9236....; |..
0001D0: 09 70 6F 70 20 68 6C 09 09 09 09 09 3B 20 7C 0D  .pop hl.....; |.
0001E0: 0A 09 6C 64 20 61 2C 38 20 3A 20 63 61 6C 6C 20  ..ld a,8 : call 
0001F0: 26 39 32 30 30 3A 20 63 61 6C 6C 20 26 39 32 30  &9200: call &920

Size : 512 (Real : 512)
000000: 2C 30 09 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20  ,0....; |... ld 
000010: 28 69 78 2B 36 34 29 2C 30 3A 20 6C 64 20 28 69  (ix+64),0: ld (i
000020: 78 2B 36 35 29 2C 26 38 09 09 3B 20 7C 0D 0A 09  x+65),&8..; |...
000030: 20 6C 64 20 28 69 78 2B 36 36 29 2C 30 3A 20 6C   ld (ix+66),0: l
000040: 64 20 68 6C 2C 26 32 38 30 30 3A 20 63 61 6C 6C  d hl,&2800: call
000050: 20 26 42 43 38 33 09 3B 20 7C 0D 0A 09 70 6F 70   &BC83.; |...pop
000060: 20 69 78 3A 20 70 6F 70 20 64 65 3A 20 70 6F 70   ix: pop de: pop
000070: 20 62 63 09 09 09 3B 20 7C 0D 0A 09 72 65 74 09   bc...; |...ret.
000080: 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 3B 2D 2D 2D  ....; |.....;---
000090: 20 73 75 62 72 09 50 72 69 6E 74 20 70 65 72 63   subr.Print perc
0000A0: 65 6E 74 61 67 65 0D 0A 0D 0A 2E 72 65 73 74 70  entage.....restp
0000B0: 63 09 6C 64 20 64 2C 30 3A 20 6C 64 20 65 2C 62  c.ld d,0: ld e,b
0000C0: 3A 20 6C 64 20 68 6C 2C 33 39 3A 20 63 61 6C 6C  : ld hl,39: call
0000D0: 20 26 39 32 46 46 09 3B 43 61 6C 63 75 6C 61 74   &92FF.;Calculat
0000E0: 65 20 70 65 72 63 65 6E 74 61 67 65 0D 0A 09 63  e percentage...c
0000F0: 61 6C 6C 20 26 39 33 32 39 3A 20 72 65 74 09 09  all &9329: ret..
000100: 09 09 3B 50 72 69 6E 74 0D 0A 0D 0A 09 3B 2D 2D  ..;Print.....;--
000110: 2D 20 73 75 62 72 09 57 72 69 74 65 20 74 72 61  - subr.Write tra
000120: 63 6B 20 42 0D 0A 0D 0A 2E 77 72 69 74 74 72 09  ck B.....writtr.
000130: 6C 64 20 63 2C 30 3A 20 6C 64 20 68 6C 2C 26 31  ld c,0: ld hl,&1
000140: 36 30 30 09 09 09 3B 53 65 63 74 6F 72 20 28 73  600...;Sector (s
000150: 65 6C 66 2D 6D 6F 64 69 66 79 69 6E 67 29 0D 0A  elf-modifying)..
000160: 2E 77 72 69 74 6C 70 09 6C 64 20 65 2C 30 3A 20  .writlp.ld e,0: 
000170: 6C 64 20 64 2C 62 3A 20 63 61 6C 6C 20 26 39 32  ld d,b: call &92
000180: 39 36 09 09 3B 57 72 69 74 65 20 73 65 63 74 6F  96..;Write secto
000190: 72 0D 0A 09 69 6E 63 20 63 20 3A 20 6C 64 20 61  r...inc c : ld a
0001A0: 2C 63 3A 20 61 6E 64 20 26 46 09 09 09 3B 20 7C  ,c: and &F...; |
0001B0: 20 6E 65 78 74 20 73 65 63 74 6F 72 0D 0A 09 6C   next sector...l
0001C0: 64 20 64 65 2C 35 31 32 3A 20 61 64 64 20 68 6C  d de,512: add hl
0001D0: 2C 64 65 09 09 09 3B 20 7C 20 6E 65 78 74 20 61  ,de...; | next a
0001E0: 64 64 72 65 73 73 0D 0A 09 63 70 20 31 30 20 3A  ddress...cp 10 :
0001F0: 20 6A 72 20 6E 7A 2C 77 72 69 74 6C 70 09 09 09   jr nz,writlp...

Size : 512 (Real : 512)
000000: 30 09 09 3B 42 61 63 6B 73 70 61 63 65 20 6F 76  0..;Backspace ov
000010: 65 72 20 63 6C 6F 73 65 20 62 6F 78 0D 0A 09 63  er close box...c
000020: 61 6C 6C 20 26 39 32 30 30 3A 20 6C 64 20 61 2C  all &9200: ld a,
000030: 33 32 3A 20 63 61 6C 6C 20 26 39 32 30 30 09 09  32: call &9200..
000040: 3B 20 7C 20 61 6E 64 20 77 69 70 65 20 61 20 62  ; | and wipe a b
000050: 69 74 0D 0A 09 70 75 73 68 20 68 6C 3A 20 63 61  it...push hl: ca
000060: 6C 6C 20 26 39 32 30 33 3A 20 70 6F 70 20 69 78  ll &9203: pop ix
000070: 09 09 3B 54 69 74 6C 65 0D 0A 09 6C 64 20 61 2C  ..;Title...ld a,
000080: 31 3A 20 63 61 6C 6C 20 26 39 32 30 43 09 09 09  1: call &920C...
000090: 3B 4E 75 6D 62 65 72 20 6F 66 20 66 69 6C 65 73  ;Number of files
0000A0: 0D 0A 09 6C 64 20 68 6C 2C 73 70 63 33 20 20 3A  ...ld hl,spc3  :
0000B0: 20 63 61 6C 6C 20 26 39 32 30 33 09 09 3B 20 7C   call &9203..; |
0000C0: 0D 0A 09 6C 64 20 61 2C 28 69 78 2B 33 32 29 3A  ...ld a,(ix+32):
0000D0: 20 63 61 6C 6C 20 26 39 32 31 38 09 09 3B 20 7C   call &9218..; |
0000E0: 0D 0A 09 6C 64 20 68 6C 2C 66 69 6C 65 73 20 3A  ...ld hl,files :
0000F0: 20 63 61 6C 6C 20 26 39 32 30 33 09 09 3B 20 7C   call &9203..; |
000100: 0D 0A 09 6C 64 20 68 6C 2C 73 70 63 33 20 20 3A  ...ld hl,spc3  :
000110: 20 63 61 6C 6C 20 26 39 32 30 33 09 09 3B 6B 20   call &9203..;k 
000120: 66 72 65 65 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B  free...ld l,(ix+
000130: 33 33 29 09 09 09 09 3B 20 7C 0D 0A 09 6C 64 20  33)....; |...ld 
000140: 68 2C 28 69 78 2B 33 34 29 3A 20 63 61 6C 6C 20  h,(ix+34): call 
000150: 26 39 32 31 42 09 09 3B 20 7C 0D 0A 09 6C 64 20  &921B..; |...ld 
000160: 68 6C 2C 66 72 65 65 20 20 3A 20 63 61 6C 6C 20  hl,free  : call 
000170: 26 39 32 30 33 09 09 3B 20 7C 0D 0A 09 6C 64 20  &9203..; |...ld 
000180: 68 6C 2C 73 70 63 33 20 20 3A 20 63 61 6C 6C 20  hl,spc3  : call 
000190: 26 39 32 30 33 09 09 3B 46 6F 72 6D 61 74 0D 0A  &9203..;Format..
0001A0: 09 6C 64 20 61 2C 28 69 78 2B 33 35 29 3A 20 63  .ld a,(ix+35): c
0001B0: 61 6C 6C 20 70 66 6F 72 6D 3A 20 63 61 6C 6C 20  all pform: call 
0001C0: 26 39 32 30 33 09 3B 20 7C 0D 0A 09 6C 64 20 68  &9203.; |...ld h
0001D0: 6C 2C 73 70 63 33 20 20 3A 20 63 61 6C 6C 20 26  l,spc3  : call &
0001E0: 39 32 30 33 09 09 3B 41 72 63 68 69 76 65 20 64  9203..;Archive d
0001F0: 69 73 63 0D 0A 09 6C 64 20 61 2C 28 69 78 2B 33  isc...ld a,(ix+3

Size : 512 (Real : 512)
000000: 3B 20 7C 20 6C 6F 6F 70 20 69 66 20 6E 6F 74 20  ; | loop if not 
000010: 39 20 73 65 63 74 6F 72 73 0D 0A 09 72 65 74 0D  9 sectors...ret.
000020: 0A 0D 0A 09 3B 2D 2D 2D 20 73 65 63 74 09 51 75  ....;--- sect.Qu
000030: 69 74 20 72 65 73 74 6F 72 69 6E 67 20 69 6D 61  it restoring ima
000040: 67 65 0D 0A 0D 0A 2E 63 6E 74 72 73 74 09 6C 64  ge.....cntrst.ld
000050: 20 61 2C 26 38 32 3A 20 6C 64 20 68 6C 2C 6E 6F   a,&82: ld hl,no
000060: 74 61 74 78 3A 20 63 61 6C 6C 20 26 39 32 34 38  tatx: call &9248
000070: 3A 20 6A 70 20 72 65 73 74 71 74 0D 0A 2E 6E 6F  : jp restqt...no
000080: 74 69 6D 67 09 6C 64 20 61 2C 26 38 32 3A 20 6C  timg.ld a,&82: l
000090: 64 20 68 6C 2C 6E 6F 74 69 74 78 3A 20 63 61 6C  d hl,notitx: cal
0000A0: 6C 20 26 39 32 34 38 3A 20 6A 70 20 72 65 73 74  l &9248: jp rest
0000B0: 71 74 0D 0A 0D 0A 2E 72 65 73 74 71 74 09 63 61  qt.....restqt.ca
0000C0: 6C 6C 20 73 74 61 74 73 3A 20 63 61 6C 6C 20 63  ll stats: call c
0000D0: 61 72 64 09 09 09 3B 51 75 69 74 20 72 65 73 74  ard...;Quit rest
0000E0: 6F 72 65 20 6D 6F 64 65 0D 0A 09 63 61 6C 6C 20  ore mode...call 
0000F0: 26 39 32 38 44 09 09 09 09 3B 20 7C 20 43 68 65  &928D....; | Che
000100: 63 6B 4F 66 66 0D 0A 09 78 6F 72 20 61 3A 20 63  ckOff...xor a: c
000110: 61 6C 6C 20 26 39 32 37 42 09 09 09 3B 20 7C 20  all &927B...; | 
000120: 6C 6F 77 65 72 20 63 61 73 65 0D 0A 09 63 61 6C  lower case...cal
000130: 6C 20 26 42 43 37 44 3A 20 63 61 6C 6C 20 72 64  l &BC7D: call rd
000140: 72 69 76 65 09 09 09 3B 20 7C 20 61 62 61 6E 64  rive...; | aband
000150: 6F 6E 20 69 6E 70 75 74 2C 20 72 65 73 74 6F 72  on input, restor
000160: 65 20 64 72 69 76 65 0D 0A 09 6A 70 20 6B 65 79  e drive...jp key
000170: 73 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53  s.........;*** S
000180: 55 42 52 09 4C 6F 67 20 64 69 73 63 20 69 6E 20  UBR.Log disc in 
000190: 61 74 20 48 4C 0D 0A 09 3B 09 09 6F 6E 20 72 65  at HL...;..on re
0001A0: 74 75 72 6E 2C 20 48 4C 20 63 6F 6E 74 61 69 6E  turn, HL contain
0001B0: 73 20 6E 65 78 74 20 66 72 65 65 20 62 79 74 65  s next free byte
0001C0: 20 28 6D 61 78 2E 20 6C 65 6E 2E 20 33 31 30 39   (max. len. 3109
0001D0: 29 0D 0A 09 3B 09 09 72 65 73 65 74 73 20 61 72  )...;..resets ar
0001E0: 63 68 69 76 65 20 62 69 74 0D 0A 0D 0A 2E 6C 6F  chive bit.....lo
0001F0: 67 73 75 62 09 70 75 73 68 20 68 6C 09 09 09 09  gsub.push hl....

Size : 512 (Real : 512)
000000: 36 29 3A 20 6F 72 20 61 3A 20 6A 72 20 7A 2C 66  6): or a: jr z,f
000010: 63 6E 6F 74 09 09 3B 20 7C 20 75 73 65 64 3F 0D  cnot..; | used?.
000020: 0A 09 6C 64 20 68 6C 2C 61 64 69 73 63 20 3A 20  ..ld hl,adisc : 
000030: 63 61 6C 6C 20 26 39 32 30 33 09 09 3B 20 7C 20  call &9203..; | 
000040: 79 65 73 0D 0A 09 6C 64 20 61 2C 28 69 78 2B 33  yes...ld a,(ix+3
000050: 36 29 3A 20 63 61 6C 6C 20 26 39 32 31 38 3A 20  6): call &9218: 
000060: 6A 72 20 66 63 61 64 6E 65 09 3B 20 7C 20 20 7C  jr fcadne.; |  |
000070: 0D 0A 2E 66 63 6E 6F 74 09 6C 64 20 68 6C 2C 6E  ...fcnot.ld hl,n
000080: 6F 74 61 72 63 3A 20 63 61 6C 6C 20 26 39 32 30  otarc: call &920
000090: 33 09 09 3B 20 7C 20 6E 6F 0D 0A 2E 66 63 61 64  3..; | no...fcad
0000A0: 6E 65 09 6C 64 20 61 2C 30 3A 20 63 61 6C 6C 20  ne.ld a,0: call 
0000B0: 26 39 32 30 43 0D 0A 0D 0A 09 6C 64 20 62 2C 28  &920C.....ld b,(
0000C0: 69 78 2B 33 32 29 3A 20 78 6F 72 20 61 3A 20 6C  ix+32): xor a: l
0000D0: 64 20 28 63 75 72 64 69 72 29 2C 61 09 3B 4E 75  d (curdir),a.;Nu
0000E0: 6D 62 65 72 20 6F 66 20 66 69 6C 65 73 0D 0A 09  mber of files...
0000F0: 6C 64 20 64 65 2C 34 39 3A 20 61 64 64 20 69 78  ld de,49: add ix
000100: 2C 64 65 3A 20 6C 64 20 28 77 68 6C 64 69 72 29  ,de: ld (whldir)
000110: 2C 69 78 09 3B 46 69 6E 64 20 6F 72 69 67 69 6E  ,ix.;Find origin
000120: 20 6F 66 20 66 69 6C 65 20 6E 61 6D 65 73 0D 0A   of file names..
000130: 09 6C 64 20 68 6C 2C 26 30 32 32 30 09 09 09 09  .ld hl,&0220....
000140: 3B 53 63 72 65 65 6E 20 70 6F 73 69 74 69 6F 6E  ;Screen position
000150: 0D 0A 09 6C 64 20 61 2C 62 3A 20 6F 72 20 61 3A  ...ld a,b: or a:
000160: 20 6A 72 20 7A 2C 65 6F 70 72 6E 74 09 09 3B 41   jr z,eoprnt..;A
000170: 6E 79 20 66 69 6C 65 73 20 6C 65 66 74 3F 0D 0A  ny files left?..
000180: 2E 64 69 73 70 6C 70 09 63 61 6C 6C 20 70 66 6E  .displp.call pfn
000190: 61 6D 65 09 09 09 09 3B 50 72 69 6E 74 20 66 69  ame....;Print fi
0001A0: 6C 65 6E 61 6D 65 0D 0A 09 63 61 6C 6C 20 61 64  lename...call ad
0001B0: 76 61 6E 63 3A 20 6A 72 20 6E 63 2C 65 6F 70 72  vanc: jr nc,eopr
0001C0: 6E 74 09 09 3B 4E 65 78 74 20 63 75 72 73 6F 72  nt..;Next cursor
0001D0: 20 70 6F 73 69 74 69 6F 6E 0D 0A 09 64 6A 6E 7A   position...djnz
0001E0: 20 64 69 73 70 6C 70 09 09 09 09 3B 61 6E 64 20   displp....;and 
0001F0: 6C 6F 6F 70 0D 0A 0D 0A 2E 65 6F 70 72 6E 74 09  loop.....eoprnt.

Size : 512 (Real : 512)
000000: 09 3B 47 65 74 20 66 6F 72 6D 61 74 0D 0A 2E 6C  .;Get format...l
000010: 6F 67 65 72 72 09 20 73 63 66 3A 20 63 61 6C 6C  ogerr. scf: call
000020: 20 26 39 32 39 39 09 09 09 3B 20 7C 0D 0A 09 20   &9299...; |... 
000030: 6F 72 20 61 3A 20 6A 72 20 7A 2C 6C 6F 67 65 72  or a: jr z,loger
000040: 72 09 09 09 3B 20 7C 20 6C 6F 6F 70 20 6F 6E 20  r...; | loop on 
000050: 65 72 72 6F 72 0D 0A 09 70 6F 70 20 69 78 09 09  error...pop ix..
000060: 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 28 69 78 2B  ...; |...ld (ix+
000070: 33 35 29 2C 61 09 09 09 09 3B 53 74 6F 72 65 20  35),a....;Store 
000080: 69 74 20 28 45 52 52 4F 52 20 54 52 41 50 50 49  it (ERROR TRAPPI
000090: 4E 47 21 21 21 21 21 29 0D 0A 09 70 75 73 68 20  NG!!!!!)...push 
0000A0: 69 78 3A 20 63 61 6C 6C 20 74 69 74 6C 65 73 3A  ix: call titles:
0000B0: 20 70 6F 70 20 69 78 09 09 3B 49 6E 70 75 74 20   pop ix..;Input 
0000C0: 74 69 74 6C 65 0D 0A 09 70 75 73 68 20 69 78 3A  title...push ix:
0000D0: 20 6C 64 20 61 2C 31 3A 20 6C 64 20 64 65 2C 73   ld a,1: ld de,s
0000E0: 74 61 72 3A 20 63 61 6C 6C 20 26 39 32 42 31 09  tar: call &92B1.
0000F0: 3B 53 63 61 6E 20 64 69 73 63 0D 0A 09 70 6F 70  ;Scan disc...pop
000100: 20 69 78 20 3A 20 6C 64 20 28 69 78 2B 33 32 29   ix : ld (ix+32)
000110: 2C 61 09 09 09 3B 4E 75 6D 62 65 72 20 6F 66 20  ,a...;Number of 
000120: 66 69 6C 65 73 0D 0A 09 09 20 6C 64 20 28 69 78  files.... ld (ix
000130: 2B 33 33 29 2C 6C 3A 20 6C 64 20 28 69 78 2B 33  +33),l: ld (ix+3
000140: 34 29 2C 68 09 3B 46 72 65 65 20 6B 20 6F 6E 20  4),h.;Free k on 
000150: 64 69 73 63 0D 0A 0D 0A 09 70 75 73 68 20 69 78  disc.....push ix
000160: 3A 20 70 6F 70 20 68 6C 3A 20 78 6F 72 20 61 09  : pop hl: xor a.
000170: 09 09 3B 43 6F 70 79 20 66 69 6C 65 6E 61 6D 65  ..;Copy filename
000180: 73 20 74 6F 20 62 75 66 66 65 72 0D 0A 09 6C 64  s to buffer...ld
000190: 20 64 65 2C 34 39 3A 20 61 64 64 20 68 6C 2C 64   de,49: add hl,d
0001A0: 65 09 09 09 3B 20 7C 0D 0A 09 63 70 20 28 69 78  e...; |...cp (ix
0001B0: 2B 33 32 29 3A 20 72 65 74 20 7A 09 09 09 3B 20  +32): ret z...; 
0001C0: 7C 0D 0A 2E 6C 6F 67 73 6C 70 09 69 6E 63 20 61  |...logslp.inc a
0001D0: 3A 20 63 61 6C 6C 20 63 6F 70 79 66 6E 09 09 09  : call copyfn...
0001E0: 3B 20 7C 0D 0A 09 63 70 20 28 69 78 2B 33 32 29  ; |...cp (ix+32)
0001F0: 3A 20 6A 70 20 6E 7A 2C 6C 6F 67 73 6C 70 09 09  : jp nz,logslp..

Size : 512 (Real : 512)
000000: 0A 09 6C 64 20 63 2C 61 20 20 20 20 20 3A 20 63  ..ld c,a     : c
000010: 70 20 33 20 20 3A 20 6A 70 20 7A 20 2C 72 73 74  p 3  : jp z ,rst
000020: 65 6F 66 09 3B 20 7C 20 45 4F 46 3F 0D 0A 09 63  eof.; | EOF?...c
000030: 61 6C 6C 20 72 65 61 64 63 6D 09 09 09 09 3B 20  all readcm....; 
000040: 7C 20 67 65 74 20 62 79 74 65 0D 0A 2E 65 78 70  | get byte...exp
000050: 72 6C 65 09 6C 64 20 28 69 79 29 2C 61 3A 20 69  rle.ld (iy),a: i
000060: 6E 63 20 69 79 3A 20 64 65 63 20 63 3A 20 6A 72  nc iy: dec c: jr
000070: 20 6E 7A 2C 65 78 70 72 6C 65 09 3B 20 7C 20 61   nz,exprle.; | a
000080: 6E 64 20 63 6F 70 79 20 69 74 20 72 65 70 65 61  nd copy it repea
000090: 74 65 64 6C 79 0D 0A 09 6A 72 20 6E 65 78 74 75  tedly...jr nextu
0000A0: 6E 09 09 09 09 3B 20 7C 20 63 61 72 72 79 20 6F  n....; | carry o
0000B0: 6E 0D 0A 2E 73 69 6D 70 65 39 09 6C 64 20 61 2C  n...simpe9.ld a,
0000C0: 26 45 39 09 09 09 09 3B 53 69 6D 70 6C 65 20 26  &E9....;Simple &
0000D0: 45 39 20 62 79 74 65 0D 0A 2E 73 69 6D 70 6C 65  E9 byte...simple
0000E0: 09 6C 64 20 28 69 79 29 2C 61 3A 20 69 6E 63 20  .ld (iy),a: inc 
0000F0: 69 79 09 09 09 3B 53 69 6D 70 6C 65 20 62 79 74  iy...;Simple byt
000100: 65 0D 0A 2E 6E 65 78 74 75 6E 09 6C 64 20 64 65  e...nextun.ld de
000110: 2C 26 32 38 30 30 3A 20 63 61 6C 6C 20 63 70 69  ,&2800: call cpi
000120: 79 64 65 3A 20 6A 72 20 6E 7A 2C 72 73 69 6E 6C  yde: jr nz,rsinl
000130: 70 09 3B 49 6E 6E 65 72 20 6C 6F 6F 70 0D 0A 09  p.;Inner loop...
000140: 63 61 6C 6C 20 77 72 69 74 74 72 09 09 09 09 3B  call writtr....;
000150: 57 72 69 74 65 20 74 72 61 63 6B 0D 0A 0D 0A 09  Write track.....
000160: 6C 64 20 61 2C 36 36 3A 20 63 61 6C 6C 20 26 42  ld a,66: call &B
000170: 42 31 45 3A 20 6A 70 20 6E 7A 2C 72 65 73 74 71  B1E: jp nz,restq
000180: 74 09 3B 51 75 69 74 20 69 66 20 45 53 43 20 68  t.;Quit if ESC h
000190: 65 6C 64 0D 0A 09 69 6E 63 20 62 09 09 09 09 09  eld...inc b.....
0001A0: 3B 4E 65 78 74 20 74 72 61 63 6B 0D 0A 09 6C 64  ;Next track...ld
0001B0: 20 61 2C 62 3A 20 63 70 20 34 30 3A 20 6A 70 20   a,b: cp 40: jp 
0001C0: 6E 7A 2C 72 73 6F 75 6C 70 09 09 3B 20 7C 20 6C  nz,rsoulp..; | l
0001D0: 6F 6F 70 20 69 66 20 6E 6F 74 20 65 6E 64 20 6F  oop if not end o
0001E0: 66 20 64 69 73 63 0D 0A 2E 72 73 74 65 6F 66 09  f disc...rsteof.
0001F0: 63 61 6C 6C 20 26 42 43 37 41 3A 20 6A 70 20 72  call &BC7A: jp r

Size : 512 (Real : 512)
000000: 20 6C 64 20 64 2C 68 0D 0A 09 20 61 64 64 20 68   ld d,h... add h
000010: 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 64 65 3A  l,hl: add hl,de:
000020: 20 6C 64 20 64 65 2C 34 39 20 3A 20 61 64 64 20   ld de,49 : add 
000030: 68 6C 2C 64 65 0D 0A 09 70 6F 70 20 64 65 3A 20  hl,de...pop de: 
000040: 61 64 64 20 68 6C 2C 64 65 0D 0A 09 64 65 63 20  add hl,de...dec 
000050: 61 3A 20 6A 72 20 72 65 63 6C 70 0D 0A 0D 0A 0D  a: jr reclp.....
000060: 0A 09 3B 2A 2A 2A 20 44 41 54 41 09 4D 69 73 63  ..;*** DATA.Misc
000070: 65 6C 6C 61 6E 65 6F 75 73 20 74 65 78 74 0D 0A  ellaneous text..
000080: 0D 0A 2E 73 70 63 33 09 64 62 20 22 20 20 20 22  ...spc3.db "   "
000090: 2C 30 0D 0A 2E 66 69 6C 65 73 09 64 62 20 22 20  ,0...files.db " 
0000A0: 66 69 6C 65 73 22 2C 30 0D 0A 2E 66 72 65 65 09  files",0...free.
0000B0: 64 62 20 22 6B 20 66 72 65 65 22 2C 30 0D 0A 2E  db "k free",0...
0000C0: 66 6E 74 61 72 63 09 64 62 20 22 6E 6F 74 20 61  fntarc.db "not a
0000D0: 72 63 68 69 76 65 64 22 2C 30 0D 0A 2E 6E 6F 74  rchived",0...not
0000E0: 61 72 63 09 64 62 20 22 4E 6F 20 22 0D 0A 2E 61  arc.db "No "...a
0000F0: 64 69 73 63 09 64 62 20 22 41 72 63 68 69 76 65  disc.db "Archive
000100: 20 22 2C 30 0D 0A 2E 73 74 61 72 09 64 62 20 22   ",0...star.db "
000110: 2A 22 0D 0A 2E 73 70 61 63 65 73 09 64 62 20 22  *"...spaces.db "
000120: 20 20 20 22 0D 0A 2E 6D 61 69 6E 66 6E 09 64 62     "...mainfn.db
000130: 20 22 4D 41 49 4E 2E 44 42 22 0D 0A 0D 0A 2E 64   "MAIN.DB".....d
000140: 6E 61 6D 65 09 64 62 20 31 35 2C 31 31 2C 22 44  name.db 15,11,"D
000150: 49 53 43 20 54 49 54 4C 45 22 2C 31 34 2C 31 36  ISC TITLE",14,16
000160: 2C 30 0D 0A 2E 6F 70 65 6E 74 78 09 64 62 20 22  ,0...opentx.db "
000170: 20 20 20 22 2C 31 35 2C 31 31 2C 22 4F 50 45 4E     ",15,11,"OPEN
000180: 22 2C 31 34 2C 31 36 2C 20 33 31 2C 33 33 2C 39  ",14,16, 31,33,9
000190: 36 2C 22 45 6E 74 65 72 20 66 69 6C 65 6E 61 6D  6,"Enter filenam
0001A0: 65 22 2C 30 0D 0A 2E 73 61 76 65 74 78 09 64 62  e",0...savetx.db
0001B0: 20 22 20 20 20 22 2C 31 35 2C 31 31 2C 22 53 41   "   ",15,11,"SA
0001C0: 56 45 22 2C 31 34 2C 31 36 2C 20 33 31 2C 33 33  VE",14,16, 31,33
0001D0: 2C 39 36 2C 22 45 6E 74 65 72 20 66 69 6C 65 6E  ,96,"Enter filen
0001E0: 61 6D 65 22 2C 30 0D 0A 2E 67 6F 74 6F 74 78 09  ame",0...gototx.
0001F0: 64 62 20 22 53 65 6C 65 63 74 20 64 69 73 63 3A  db "Select disc:

Size : 512 (Real : 512)
000000: 74 74 6F 6D 20 6C 69 6E 65 0D 0A 2E 63 6F 6C 6F  ttom line...colo
000010: 6F 70 09 20 6C 64 20 61 2C 37 35 09 09 09 09 3B  op. ld a,75....;
000020: 20 6F 75 74 65 72 20 6C 6F 6F 70 0D 0A 2E 63 75   outer loop...cu
000030: 6C 6F 6F 70 09 20 6C 64 20 28 68 6C 29 2C 64 3A  loop. ld (hl),d:
000040: 20 69 6E 63 20 68 6C 3A 20 64 65 63 20 61 3A 20   inc hl: dec a: 
000050: 6A 70 20 6E 7A 2C 63 75 6C 6F 6F 70 09 3B 20 69  jp nz,culoop.; i
000060: 6E 6E 65 72 20 6C 6F 6F 70 0D 0A 09 20 63 61 6C  nner loop... cal
000070: 6C 20 6E 6C 69 6E 65 3A 20 64 65 63 20 65 3A 20  l nline: dec e: 
000080: 6A 70 20 6E 7A 2C 63 6F 6C 6F 6F 70 09 3B 20 7C  jp nz,coloop.; |
000090: 0D 0A 0D 0A 09 70 6F 70 20 61 66 3A 20 63 61 6C  .....pop af: cal
0000A0: 6C 20 26 42 39 30 43 3A 20 72 65 74 09 09 09 3B  l &B90C: ret...;
0000B0: 52 65 73 74 6F 72 65 20 52 4F 4D 20 73 74 61 74  Restore ROM stat
0000C0: 65 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 73 09  e.....;--- subs.
0000D0: 4E 65 78 74 20 73 63 72 65 65 6E 20 6C 69 6E 65  Next screen line
0000E0: 20 61 66 74 65 72 20 37 35 20 61 64 64 65 64 0D   after 75 added.
0000F0: 0A 0D 0A 2E 6E 6C 69 6E 65 09 6C 64 20 62 63 2C  ....nline.ld bc,
000100: 26 37 42 35 20 3A 20 61 64 64 20 68 6C 2C 62 63  &7B5 : add hl,bc
000110: 3A 20 72 65 74 20 6E 63 0D 0A 09 6C 64 20 62 63  : ret nc...ld bc
000120: 2C 26 43 30 35 30 3A 20 61 64 64 20 68 6C 2C 62  ,&C050: add hl,b
000130: 63 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 0D 0A 09 3B  c: ret.........;
000140: 2A 2A 2A 20 52 4F 55 54 09 53 63 72 6F 6C 6C 20  *** ROUT.Scroll 
000150: 66 69 6C 65 20 63 61 72 64 20 64 6F 77 6E 20 28  file card down (
000160: 63 6C 69 63 6B 65 64 20 6F 6E 20 75 70 20 61 72  clicked on up ar
000170: 72 6F 77 29 0D 0A 0D 0A 2E 66 63 5F 64 6E 09 6C  row).....fc_dn.l
000180: 64 20 61 2C 28 63 75 72 64 69 72 29 3A 20 6F 72  d a,(curdir): or
000190: 20 61 3A 20 6A 70 20 7A 2C 6D 6F 75 73 65 09 09   a: jp z,mouse..
0001A0: 3B 51 75 69 74 20 69 66 20 61 6C 72 65 61 64 79  ;Quit if already
0001B0: 20 61 74 20 74 6F 70 0D 0A 09 73 75 62 20 35 3A   at top...sub 5:
0001C0: 20 6C 64 20 28 63 75 72 64 69 72 29 2C 61 0D 0A   ld (curdir),a..
0001D0: 0D 0A 09 63 61 6C 6C 20 73 63 72 5F 64 6E 3A 20  ...call scr_dn: 
0001E0: 6C 64 20 62 2C 35 0D 0A 09 6C 64 20 68 6C 2C 26  ld b,5...ld hl,&
0001F0: 30 32 32 30 3A 20 6C 64 20 61 2C 28 63 75 72 64  0220: ld a,(curd

Size : 512 (Real : 512)
000000: 63 61 6C 6C 20 73 62 61 72 3A 20 72 65 74 09 09  call sbar: ret..
000010: 09 09 3B 44 69 73 70 6C 61 79 20 73 63 72 6F 6C  ..;Display scrol
000020: 6C 20 62 61 72 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73  l bar.....;--- s
000030: 75 62 72 09 50 72 69 6E 74 20 66 69 6C 65 6E 61  ubr.Print filena
000040: 6D 65 20 61 74 20 49 58 0D 0A 0D 0A 2E 70 66 6E  me at IX.....pfn
000050: 61 6D 65 09 63 61 6C 6C 20 26 39 32 32 34 3A 20  ame.call &9224: 
000060: 6C 64 20 63 2C 31 32 09 09 09 3B 4C 6F 63 61 74  ld c,12...;Locat
000070: 65 0D 0A 09 6C 64 20 61 2C 28 69 78 2B 31 30 29  e...ld a,(ix+10)
000080: 3A 20 61 6E 64 20 31 32 38 3A 20 63 61 6C 6C 20  : and 128: call 
000090: 26 39 32 31 32 09 3B 44 69 6D 20 69 66 20 73 79  &9212.;Dim if sy
0000A0: 73 74 65 6D 20 66 69 6C 65 0D 0A 2E 70 66 6C 6F  stem file...pflo
0000B0: 6F 70 09 6C 64 20 61 2C 28 69 78 29 3A 20 61 6E  op.ld a,(ix): an
0000C0: 64 20 31 32 37 3A 20 69 6E 63 20 69 78 09 09 3B  d 127: inc ix..;
0000D0: 50 72 69 6E 74 20 66 69 6C 65 6E 61 6D 65 0D 0A  Print filename..
0000E0: 09 63 61 6C 6C 20 26 39 32 30 30 3A 20 64 65 63  .call &9200: dec
0000F0: 20 63 3A 20 6A 72 20 6E 7A 2C 70 66 6C 6F 6F 70   c: jr nz,pfloop
000100: 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 28 69 78  ..; |...ld a,(ix
000110: 2D 31 29 3A 20 61 6E 64 20 31 32 38 3A 20 6A 72  -1): and 128: jr
000120: 20 7A 2C 6E 6F 74 5F 72 6F 09 3B 52 65 61 64 20   z,not_ro.;Read 
000130: 6F 6E 6C 79 3F 0D 0A 09 6C 64 20 61 2C 22 2A 22  only?...ld a,"*"
000140: 3A 20 63 61 6C 6C 20 26 39 32 30 30 09 09 09 3B  : call &9200...;
000150: 20 7C 20 69 66 20 73 6F 2C 20 70 72 69 6E 74 20   | if so, print 
000160: 22 2A 22 0D 0A 2E 6E 6F 74 5F 72 6F 09 78 6F 72  "*"...not_ro.xor
000170: 20 61 3A 20 63 61 6C 6C 20 26 39 32 31 32 3A 20   a: call &9212: 
000180: 72 65 74 09 09 09 3B 4E 6F 74 20 64 69 6D 2C 20  ret...;Not dim, 
000190: 61 6E 64 20 72 65 74 75 72 6E 0D 0A 0D 0A 09 3B  and return.....;
0001A0: 2D 2D 2D 20 73 75 62 72 09 41 64 76 61 6E 63 65  --- subr.Advance
0001B0: 20 63 75 72 73 6F 72 20 70 6F 73 69 74 69 6F 6E   cursor position
0001C0: 20 28 63 61 72 72 79 20 69 66 20 6F 6B 2C 20 4E   (carry if ok, N
0001D0: 43 20 69 66 20 66 75 6C 6C 20 75 70 29 0D 0A 0D  C if full up)...
0001E0: 0A 2E 61 64 76 61 6E 63 09 6C 64 20 61 2C 31 35  ..advanc.ld a,15
0001F0: 3A 20 61 64 64 20 68 3A 20 6C 64 20 68 2C 61 0D  : add h: ld h,a.

Size : 512 (Real : 512)
000000: 69 72 29 3A 20 6A 70 20 66 63 5F 72 6F 77 0D 0A  ir): jp fc_row..
000010: 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 53 63 72  ...;--- subr.Scr
000020: 6F 6C 6C 20 77 68 6F 6C 65 20 64 69 73 70 6C 61  oll whole displa
000030: 79 20 64 6F 77 6E 20 62 79 20 39 20 6C 69 6E 65  y down by 9 line
000040: 73 0D 0A 0D 0A 2E 73 63 72 5F 64 6E 09 63 61 6C  s.....scr_dn.cal
000050: 6C 20 26 42 39 30 33 0D 0A 09 70 75 73 68 20 61  l &B903...push a
000060: 66 0D 0A 09 20 6C 64 20 68 6C 2C 26 43 37 33 31  f... ld hl,&C731
000070: 3A 20 6C 64 20 61 2C 31 35 33 0D 0A 09 20 6C 64  : ld a,153... ld
000080: 20 64 65 2C 26 43 46 38 31 0D 0A 0D 0A 2E 73 63   de,&CF81.....sc
000090: 72 5F 64 6C 09 20 6C 64 20 62 63 2C 37 35 20 20  r_dl. ld bc,75  
0000A0: 3A 20 6C 64 69 72 09 09 09 3B 43 6F 70 79 20 62  : ldir...;Copy b
0000B0: 79 74 65 73 0D 0A 09 20 63 61 6C 6C 20 70 6C 69  ytes... call pli
0000C0: 6E 65 3A 20 65 78 20 64 65 2C 68 6C 09 09 09 3B  ne: ex de,hl...;
0000D0: 20 6E 65 78 74 20 73 6F 75 72 63 65 20 6C 69 6E   next source lin
0000E0: 65 0D 0A 09 20 63 61 6C 6C 20 70 6C 69 6E 65 3A  e... call pline:
0000F0: 20 65 78 20 64 65 2C 68 6C 09 09 09 3B 20 6E 65   ex de,hl...; ne
000100: 78 74 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 6C  xt destination l
000110: 69 6E 65 0D 0A 09 20 64 65 63 20 61 3A 20 6A 70  ine... dec a: jp
000120: 20 6E 7A 2C 73 63 72 5F 64 6C 0D 0A 0D 0A 09 20   nz,scr_dl..... 
000130: 65 78 20 64 65 2C 68 6C 3A 20 6C 64 20 64 65 2C  ex de,hl: ld de,
000140: 38 09 09 09 3B 42 6C 61 6E 6B 20 74 6F 70 20 6C  8...;Blank top l
000150: 69 6E 65 0D 0A 2E 64 6F 6C 6F 6F 70 09 20 6C 64  ine...doloop. ld
000160: 20 61 2C 37 35 09 09 09 09 3B 20 6F 75 74 65 72   a,75....; outer
000170: 20 6C 6F 6F 70 0D 0A 2E 64 75 6C 6F 6F 70 09 20   loop...duloop. 
000180: 6C 64 20 28 68 6C 29 2C 64 3A 20 69 6E 63 20 68  ld (hl),d: inc h
000190: 6C 3A 20 64 65 63 20 61 3A 20 6A 70 20 6E 7A 2C  l: dec a: jp nz,
0001A0: 64 75 6C 6F 6F 70 09 3B 20 69 6E 6E 65 72 20 6C  duloop.; inner l
0001B0: 6F 6F 70 0D 0A 09 20 63 61 6C 6C 20 70 6C 69 6E  oop... call plin
0001C0: 65 3A 20 64 65 63 20 65 3A 20 6A 70 20 6E 7A 2C  e: dec e: jp nz,
0001D0: 64 6F 6C 6F 6F 70 09 3B 20 7C 0D 0A 0D 0A 09 70  doloop.; |.....p
0001E0: 6F 70 20 61 66 3A 20 63 61 6C 6C 20 26 42 39 30  op af: call &B90
0001F0: 43 3A 20 72 65 74 09 09 09 3B 52 65 73 74 6F 72  C: ret...;Restor

Size : 512 (Real : 512)
000000: 0A 09 63 70 20 37 37 20 3A 20 72 65 74 20 6E 7A  ..cp 77 : ret nz
000010: 3A 20 6C 64 20 68 2C 32 0D 0A 09 6C 64 20 61 2C  : ld h,2...ld a,
000020: 39 20 3A 20 61 64 64 20 6C 3A 20 6C 64 20 6C 2C  9 : add l: ld l,
000030: 61 0D 0A 09 63 70 20 31 39 34 3A 20 72 65 74 0D  a...cp 194: ret.
000040: 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 44 69  ....;--- subr.Di
000050: 73 70 6C 61 79 20 73 63 72 6F 6C 6C 20 62 61 72  splay scroll bar
000060: 0D 0A 0D 0A 2E 73 62 61 72 09 6C 64 20 69 78 2C  .....sbar.ld ix,
000070: 28 77 68 6C 64 69 72 29 3A 20 6C 64 20 63 2C 28  (whldir): ld c,(
000080: 69 78 2D 31 37 29 09 09 3B 47 65 74 20 74 6F 74  ix-17)..;Get tot
000090: 61 6C 20 6E 75 6D 62 65 72 20 6F 66 20 72 65 63  al number of rec
0000A0: 6F 72 64 73 0D 0A 09 6C 64 20 61 20 2C 28 63 75  ords...ld a ,(cu
0000B0: 72 64 69 72 29 3A 20 6C 64 20 62 2C 61 09 09 09  rdir): ld b,a...
0000C0: 3B 47 65 74 20 63 75 72 72 65 6E 74 20 72 65 63  ;Get current rec
0000D0: 6F 72 64 0D 0A 09 6C 64 20 68 2C 37 38 3A 20 6C  ord...ld h,78: l
0000E0: 64 20 6C 2C 33 37 09 09 09 3B 44 69 73 70 6C 61  d l,37...;Displa
0000F0: 79 20 73 63 72 6F 6C 6C 20 62 61 72 0D 0A 09 6C  y scroll bar...l
000100: 64 20 64 2C 38 35 3A 20 6C 64 20 65 2C 31 35 32  d d,85: ld e,152
000110: 3A 20 6A 70 20 26 39 32 46 39 09 09 3B 20 7C 0D  : jp &92F9..; |.
000120: 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09  ......;*** ROUT.
000130: 50 72 69 6E 74 20 66 6F 72 6D 61 74 20 28 41 20  Print format (A 
000140: 3D 20 31 2D 38 29 0D 0A 0D 0A 2E 70 66 6F 72 6D  = 1-8).....pform
000150: 09 6C 64 20 68 6C 2C 66 5F 64 61 74 61 3A 20 64  .ld hl,f_data: d
000160: 65 63 20 61 3A 20 72 65 74 20 7A 0D 0A 09 6C 64  ec a: ret z...ld
000170: 20 68 6C 2C 66 5F 63 70 6D 20 3A 20 64 65 63 20   hl,f_cpm : dec 
000180: 61 3A 20 72 65 74 20 7A 0D 0A 09 6C 64 20 68 6C  a: ret z...ld hl
000190: 2C 66 5F 64 31 20 20 3A 20 64 65 63 20 61 3A 20  ,f_d1  : dec a: 
0001A0: 72 65 74 20 7A 0D 0A 09 6C 64 20 68 6C 2C 66 5F  ret z...ld hl,f_
0001B0: 64 31 30 20 3A 20 64 65 63 20 61 3A 20 72 65 74  d10 : dec a: ret
0001C0: 20 7A 0D 0A 09 6C 64 20 68 6C 2C 66 5F 64 32 20   z...ld hl,f_d2 
0001D0: 20 3A 20 64 65 63 20 61 3A 20 72 65 74 20 7A 0D   : dec a: ret z.
0001E0: 0A 09 6C 64 20 68 6C 2C 66 5F 64 32 30 20 3A 20  ..ld hl,f_d20 : 
0001F0: 64 65 63 20 61 3A 20 72 65 74 20 7A 0D 0A 09 6C  dec a: ret z...l

Size : 512 (Real : 512)
000000: 65 20 52 4F 4D 20 73 74 61 74 65 0D 0A 0D 0A 09  e ROM state.....
000010: 3B 2D 2D 2D 20 73 75 62 73 09 50 72 65 76 69 6F  ;--- subs.Previo
000020: 75 73 20 73 63 72 65 65 6E 20 6C 69 6E 65 20 61  us screen line a
000030: 66 74 65 72 20 37 35 20 61 64 64 65 64 0D 0A 0D  fter 75 added...
000040: 0A 2E 70 6C 69 6E 65 09 6C 64 20 62 63 2C 26 46  ..pline.ld bc,&F
000050: 37 42 35 3A 20 61 64 64 20 68 6C 2C 62 63 3A 20  7B5: add hl,bc: 
000060: 62 69 74 20 36 2C 68 3A 20 72 65 74 20 6E 7A 0D  bit 6,h: ret nz.
000070: 0A 09 6C 64 20 62 63 2C 26 33 46 42 30 3A 20 61  ..ld bc,&3FB0: a
000080: 64 64 20 68 6C 2C 62 63 3A 20 72 65 74 0D 0A 0D  dd hl,bc: ret...
000090: 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 43 68  ....;*** SUBR.Ch
0000A0: 65 63 6B 20 6D 65 6D 6F 72 79 20 74 6F 20 73 65  eck memory to se
0000B0: 65 20 69 66 20 77 65 27 72 65 20 6E 65 61 72 20  e if we're near 
0000C0: 74 68 65 20 6C 69 6D 69 74 0D 0A 09 3B 09 09 72  the limit...;..r
0000D0: 65 74 75 72 6E 73 20 43 20 69 66 20 6F 6B 2C 20  eturns C if ok, 
0000E0: 4E 43 20 69 66 20 70 72 6F 62 6C 65 6D 61 74 69  NC if problemati
0000F0: 63 0D 0A 0D 0A 2E 6D 65 6D 63 68 6B 09 70 75 73  c.....memchk.pus
000100: 68 20 64 65 3A 20 70 75 73 68 20 68 6C 0D 0A 09  h de: push hl...
000110: 20 6C 64 20 68 6C 2C 28 6C 61 73 74 61 64 29 3A   ld hl,(lastad):
000120: 20 6F 72 20 61 0D 0A 09 20 6C 64 20 64 65 2C 26   or a... ld de,&
000130: 37 45 30 30 3A 20 73 62 63 20 68 6C 2C 64 65 3A  7E00: sbc hl,de:
000140: 20 6A 72 20 63 2C 6D 65 6D 72 65 74 0D 0A 09 20   jr c,memret... 
000150: 6C 64 20 64 65 2C 26 30 35 30 30 3A 20 73 62 63  ld de,&0500: sbc
000160: 20 68 6C 2C 64 65 3A 20 6A 72 20 63 2C 6D 65 6D   hl,de: jr c,mem
000170: 64 6E 67 0D 0A 09 20 6C 64 20 61 2C 26 38 32 3A  dng... ld a,&82:
000180: 20 6C 64 20 68 6C 2C 66 75 6C 6C 74 78 3A 20 63   ld hl,fulltx: c
000190: 61 6C 6C 20 26 39 32 34 38 3A 20 6F 72 20 61 3A  all &9248: or a:
0001A0: 20 6A 72 20 6D 65 6D 72 65 74 0D 0A 2E 6D 65 6D   jr memret...mem
0001B0: 64 6E 67 09 20 6C 64 20 61 2C 26 38 32 3A 20 6C  dng. ld a,&82: l
0001C0: 64 20 68 6C 2C 64 61 6E 67 74 78 3A 20 63 61 6C  d hl,dangtx: cal
0001D0: 6C 20 26 39 32 34 38 3A 20 73 63 66 0D 0A 2E 6D  l &9248: scf...m
0001E0: 65 6D 72 65 74 09 70 6F 70 20 68 6C 3A 20 70 6F  emret.pop hl: po
0001F0: 70 20 64 65 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 09  p de: ret.......

Size : 512 (Real : 512)
000000: 64 20 68 6C 2C 66 5F 70 63 77 61 3A 20 64 65 63  d hl,f_pcwa: dec
000010: 20 61 3A 20 72 65 74 20 7A 0D 0A 09 6C 64 20 68   a: ret z...ld h
000020: 6C 2C 66 5F 70 63 77 62 3A 09 20 20 20 20 20 72  l,f_pcwb:.     r
000030: 65 74 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F  et.......;*** RO
000040: 55 54 09 53 63 72 6F 6C 6C 20 66 69 6C 65 20 63  UT.Scroll file c
000050: 61 72 64 20 75 70 20 28 63 6C 69 63 6B 65 64 20  ard up (clicked 
000060: 6F 6E 20 64 6F 77 6E 20 61 72 72 6F 77 29 0D 0A  on down arrow)..
000070: 0D 0A 2E 66 63 5F 75 70 09 6C 64 20 61 20 2C 28  ...fc_up.ld a ,(
000080: 63 75 72 64 69 72 29 3A 20 6C 64 20 63 2C 61 0D  curdir): ld c,a.
000090: 0A 09 6C 64 20 69 78 2C 28 77 68 6C 64 69 72 29  ..ld ix,(whldir)
0000A0: 3A 20 6C 64 20 61 2C 28 69 78 2D 31 37 29 0D 0A  : ld a,(ix-17)..
0000B0: 09 73 75 62 20 39 30 3A 20 6A 70 20 63 2C 6D 6F  .sub 90: jp c,mo
0000C0: 75 73 65 09 09 09 3B 51 75 69 74 20 69 66 20 6E  use...;Quit if n
0000D0: 6F 74 20 65 76 65 6E 20 39 30 0D 0A 09 73 75 62  ot even 90...sub
0000E0: 20 63 20 3A 20 6A 70 20 63 2C 6D 6F 75 73 65 3A   c : jp c,mouse:
0000F0: 20 6A 70 20 7A 2C 6D 6F 75 73 65 09 09 3B 51 75   jp z,mouse..;Qu
000100: 69 74 20 69 66 20 74 68 65 79 27 72 65 20 61 6C  it if they're al
000110: 6C 20 6F 6E 20 73 63 72 65 65 6E 0D 0A 09 63 61  l on screen...ca
000120: 6C 6C 20 73 63 72 5F 75 70 09 09 09 09 3B 53 63  ll scr_up....;Sc
000130: 72 6F 6C 6C 20 64 69 73 70 6C 61 79 0D 0A 09 6C  roll display...l
000140: 64 20 61 2C 28 63 75 72 64 69 72 29 3A 20 61 64  d a,(curdir): ad
000150: 64 20 35 0D 0A 09 6C 64 20 28 63 75 72 64 69 72  d 5...ld (curdir
000160: 29 2C 61 3A 20 6C 64 20 63 2C 61 0D 0A 0D 0A 09  ),a: ld c,a.....
000170: 6C 64 20 61 2C 28 69 78 2D 31 37 29 3A 20 73 75  ld a,(ix-17): su
000180: 62 20 63 3A 20 73 75 62 20 38 35 3A 20 6C 64 20  b c: sub 85: ld 
000190: 62 2C 61 09 3B 4E 75 6D 62 65 72 20 6F 66 20 66  b,a.;Number of f
0001A0: 69 6C 65 73 20 74 6F 20 64 69 73 70 6C 61 79 0D  iles to display.
0001B0: 0A 0D 0A 09 6C 64 20 61 2C 28 63 75 72 64 69 72  ....ld a,(curdir
0001C0: 29 3A 20 61 64 64 20 38 35 3A 20 6C 64 20 68 6C  ): add 85: ld hl
0001D0: 2C 26 30 32 42 39 09 3B 46 69 6E 64 20 66 69 6C  ,&02B9.;Find fil
0001E0: 65 6E 61 6D 65 0D 0A 2E 66 63 5F 72 6F 77 09 70  ename...fc_row.p
0001F0: 75 73 68 20 68 6C 09 09 09 09 09 3B 20 7C 0D 0A  ush hl.....; |..

Size : 512 (Real : 512)
000000: 3B 2A 2A 2A 20 53 55 42 52 09 46 69 6E 64 20 73  ;*** SUBR.Find s
000010: 74 61 74 69 73 74 69 63 73 20 66 6F 72 20 63 75  tatistics for cu
000020: 72 72 65 6E 74 20 72 65 63 6F 72 64 0D 0A 09 3B  rrent record...;
000030: 09 09 6F 6E 20 72 65 74 75 72 6E 2C 20 48 4C 20  ..on return, HL 
000040: 63 6F 6E 74 61 69 6E 73 20 61 64 64 72 65 73 73  contains address
000050: 2C 20 44 45 20 63 6F 6E 74 61 69 6E 73 20 6C 65  , DE contains le
000060: 6E 67 74 68 0D 0A 0D 0A 2E 73 74 61 74 73 09 6C  ngth.....stats.l
000070: 64 20 61 2C 28 63 75 72 72 65 63 29 0D 0A 2E 73  d a,(currec)...s
000080: 74 61 74 73 32 09 63 61 6C 6C 20 72 65 63 61 64  tats2.call recad
000090: 64 0D 0A 09 70 75 73 68 20 68 6C 0D 0A 09 20 6C  d...push hl... l
0000A0: 64 20 64 65 2C 33 32 20 3A 20 61 64 64 20 68 6C  d de,32 : add hl
0000B0: 2C 64 65 3A 20 6C 64 20 6C 2C 28 68 6C 29 3A 20  ,de: ld l,(hl): 
0000C0: 6C 64 20 68 2C 30 0D 0A 09 20 61 64 64 20 68 6C  ld h,0... add hl
0000D0: 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68 6C 3A 20  ,hl: add hl,hl: 
0000E0: 6C 64 20 65 2C 6C 20 20 20 3A 20 6C 64 20 64 2C  ld e,l   : ld d,
0000F0: 68 0D 0A 09 20 61 64 64 20 68 6C 2C 68 6C 3A 20  h... add hl,hl: 
000100: 61 64 64 20 68 6C 2C 64 65 3A 20 6C 64 20 64 65  add hl,de: ld de
000110: 2C 34 39 20 3A 20 61 64 64 20 68 6C 2C 64 65 0D  ,49 : add hl,de.
000120: 0A 09 20 65 78 20 64 65 2C 68 6C 0D 0A 09 70 6F  .. ex de,hl...po
000130: 70 20 68 6C 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 0D  p hl: ret.......
000140: 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 46 69 6E 64  ..;*** SUBR.Find
000150: 20 61 64 64 72 65 73 73 20 6F 66 20 72 65 63 6F   address of reco
000160: 72 64 20 41 20 69 6E 74 6F 20 48 4C 20 28 63 6F  rd A into HL (co
000170: 72 72 75 70 74 73 20 44 45 29 0D 0A 0D 0A 2E 72  rrupts DE).....r
000180: 65 63 61 64 64 09 6C 64 20 68 6C 2C 64 69 73 63  ecadd.ld hl,disc
000190: 31 0D 0A 2E 72 65 63 6C 70 09 6F 72 20 61 3A 20  1...reclp.or a: 
0001A0: 72 65 74 20 7A 0D 0A 0D 0A 09 70 75 73 68 20 68  ret z.....push h
0001B0: 6C 0D 0A 09 20 6C 64 20 64 65 2C 33 32 20 3A 20  l... ld de,32 : 
0001C0: 61 64 64 20 68 6C 2C 64 65 3A 20 6C 64 20 6C 2C  add hl,de: ld l,
0001D0: 28 68 6C 29 3A 20 6C 64 20 68 2C 30 0D 0A 09 20  (hl): ld h,0... 
0001E0: 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68  add hl,hl: add h
0001F0: 6C 2C 68 6C 3A 20 6C 64 20 65 2C 6C 20 20 20 3A  l,hl: ld e,l   :

Size : 512 (Real : 512)
000000: 09 20 6C 64 20 6C 2C 61 3A 20 6C 64 20 68 2C 30  . ld l,a: ld h,0
000010: 3A 20 61 64 64 20 68 6C 2C 68 6C 09 09 3B 20 7C  : add hl,hl..; |
000020: 0D 0A 09 20 61 64 64 20 68 6C 2C 68 6C 3A 20 6C  ... add hl,hl: l
000030: 64 20 64 2C 68 3A 20 6C 64 20 65 2C 6C 3A 20 61  d d,h: ld e,l: a
000040: 64 64 20 68 6C 2C 68 6C 09 3B 20 7C 0D 0A 09 20  dd hl,hl.; |... 
000050: 61 64 64 20 68 6C 2C 64 65 3A 20 6C 64 20 64 65  add hl,de: ld de
000060: 2C 28 77 68 6C 64 69 72 29 3A 20 61 64 64 20 68  ,(whldir): add h
000070: 6C 2C 64 65 09 3B 20 7C 0D 0A 09 20 70 75 73 68  l,de.; |... push
000080: 20 68 6C 3A 20 70 6F 70 20 69 78 09 09 09 3B 20   hl: pop ix...; 
000090: 7C 0D 0A 09 70 6F 70 20 68 6C 3A 20 63 61 6C 6C  |...pop hl: call
0000A0: 20 64 69 73 70 6C 70 3A 20 6A 70 20 6D 6E 63 0D   displp: jp mnc.
0000B0: 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09  ......;--- subr.
0000C0: 53 63 72 6F 6C 6C 20 77 68 6F 6C 65 20 64 69 73  Scroll whole dis
0000D0: 70 6C 61 79 20 75 70 20 62 79 20 39 20 6C 69 6E  play up by 9 lin
0000E0: 65 73 0D 0A 0D 0A 2E 73 63 72 5F 75 70 09 63 61  es.....scr_up.ca
0000F0: 6C 6C 20 26 42 39 30 33 09 09 09 09 3B 55 70 70  ll &B903....;Upp
000100: 65 72 20 52 4F 4D 20 6F 66 66 0D 0A 09 70 75 73  er ROM off...pus
000110: 68 20 61 66 0D 0A 09 20 6C 64 20 64 65 2C 26 43  h af... ld de,&C
000120: 31 34 31 3A 20 6C 64 20 61 2C 31 35 33 0D 0A 09  141: ld a,153...
000130: 20 6C 64 20 68 6C 2C 26 43 39 39 31 0D 0A 0D 0A   ld hl,&C991....
000140: 2E 73 63 72 5F 75 6C 09 20 6C 64 20 62 63 2C 37  .scr_ul. ld bc,7
000150: 35 20 20 3A 20 6C 64 69 72 09 09 09 3B 43 6F 70  5  : ldir...;Cop
000160: 79 20 62 79 74 65 73 0D 0A 09 20 63 61 6C 6C 20  y bytes... call 
000170: 6E 6C 69 6E 65 3A 20 65 78 20 64 65 2C 68 6C 09  nline: ex de,hl.
000180: 09 09 3B 20 6E 65 78 74 20 73 6F 75 72 63 65 20  ..; next source 
000190: 6C 69 6E 65 0D 0A 09 20 63 61 6C 6C 20 6E 6C 69  line... call nli
0001A0: 6E 65 3A 20 65 78 20 64 65 2C 68 6C 09 09 09 3B  ne: ex de,hl...;
0001B0: 20 6E 65 78 74 20 64 65 73 74 69 6E 61 74 69 6F   next destinatio
0001C0: 6E 20 6C 69 6E 65 0D 0A 09 20 64 65 63 20 61 3A  n line... dec a:
0001D0: 20 6A 70 20 6E 7A 2C 73 63 72 5F 75 6C 0D 0A 0D   jp nz,scr_ul...
0001E0: 0A 09 20 65 78 20 64 65 2C 68 6C 3A 20 6C 64 20  .. ex de,hl: ld 
0001F0: 64 65 2C 38 09 09 09 3B 42 6C 61 6E 6B 20 62 6F  de,8...;Blank bo

Size : 512 (Real : 512)
000000: 64 20 73 74 61 72 74 20 61 20 6E 65 77 20 66 69  d start a new fi
000010: 6C 65 2E 22 2C 30 0D 0A 0D 0A 2E 66 5F 64 61 74  le.",0.....f_dat
000020: 61 09 64 62 20 22 44 61 74 61 22 2C 30 0D 0A 2E  a.db "Data",0...
000030: 66 5F 63 70 6D 09 64 62 20 22 43 50 2F 4D 22 2C  f_cpm.db "CP/M",
000040: 30 0D 0A 2E 66 5F 64 31 09 64 62 20 22 44 31 22  0...f_d1.db "D1"
000050: 2C 30 0D 0A 2E 66 5F 64 31 30 09 64 62 20 22 44  ,0...f_d10.db "D
000060: 31 30 22 2C 30 0D 0A 2E 66 5F 64 32 09 64 62 20  10",0...f_d2.db 
000070: 22 44 32 22 2C 30 0D 0A 2E 66 5F 64 32 30 09 64  "D2",0...f_d20.d
000080: 62 20 22 44 32 30 22 2C 30 0D 0A 2E 66 5F 70 63  b "D20",0...f_pc
000090: 77 61 09 64 62 20 22 50 43 57 20 31 38 30 4B 22  wa.db "PCW 180K"
0000A0: 2C 30 0D 0A 2E 66 5F 70 63 77 62 09 64 62 20 22  ,0...f_pcwb.db "
0000B0: 50 43 57 20 37 32 30 4B 22 2C 30 0D 0A 2E 66 5F  PCW 720K",0...f_
0000C0: 66 6F 72 6D 09 64 62 20 22 20 66 6F 72 6D 61 74  form.db " format
0000D0: 2C 20 22 2C 30 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44  , ",0.....;*** D
0000E0: 41 54 41 09 4D 65 6E 75 20 74 65 78 74 0D 0A 0D  ATA.Menu text...
0000F0: 0A 2E 6D 62 61 72 09 64 62 20 22 46 69 6C 65 20  ..mbar.db "File 
000100: 20 20 20 44 69 73 63 20 20 20 20 53 65 61 72 63     Disc    Searc
000110: 68 20 20 20 20 41 72 63 68 69 76 65 20 20 20 20  h    Archive    
000120: 20 20 20 20 20 20 20 20 20 20 20 76 31 2E 31 31             v1.11
000130: 20 22 2C 31 33 30 2C 22 20 52 69 63 68 61 72 64   ",130," Richard
000140: 20 46 61 69 72 68 75 72 73 74 22 2C 30 0D 0A 0D   Fairhurst",0...
000150: 0A 0D 0A 2E 6D 66 69 6C 65 09 64 62 20 31 2C 39  ....mfile.db 1,9
000160: 2C 20 31 34 2C 20 36 0D 0A 09 64 62 20 31 2C 22  , 14, 6...db 1,"
000170: 4F 70 65 6E 20 64 61 74 61 62 61 73 65 22 2C 30  Open database",0
000180: 0D 0A 09 64 62 20 31 2C 22 53 61 76 65 20 64 61  ...db 1,"Save da
000190: 74 61 62 61 73 65 22 2C 30 0D 0A 09 64 62 20 22  tabase",0...db "
0001A0: 53 61 76 65 20 61 73 20 41 53 43 49 49 22 2C 30  Save as ASCII",0
0001B0: 0D 0A 09 64 62 20 22 50 72 69 6E 74 20 64 61 74  ...db "Print dat
0001C0: 61 62 61 73 65 22 2C 30 0D 0A 09 64 62 20 22 2D  abase",0...db "-
0001D0: 22 2C 30 0D 0A 09 64 62 20 31 2C 22 51 75 69 74  ",0...db 1,"Quit
0001E0: 22 2C 30 0D 0A 2E 69 66 69 6C 65 09 64 73 20 37  ",0...ifile.ds 7
0001F0: 0D 0A 0D 0A 2E 6D 64 69 73 63 09 64 62 20 39 2C  .....mdisc.db 9,

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 54 68 65 20 41 41 20 54 6F 6F 6C 6B  ...;The AA Toolk
000010: 69 74 20 76 31 2E 30 0D 0A 09 3B 28 63 29 20 31  it v1.0...;(c) 1
000020: 39 39 34 20 43 68 61 52 6C 65 79 54 72 6F 6E 69  994 ChaRleyTroni
000030: 43 20 6F 66 20 44 69 73 63 6F 76 65 72 79 0D 0A  C of Discovery..
000040: 0D 0A 09 3B 61 20 52 65 61 6C 57 6F 72 6C 64 20  ...;a RealWorld 
000050: 43 6F 64 69 6E 67 20 70 72 6F 64 75 63 74 69 6F  Coding productio
000060: 6E 0D 0A 09 3B 66 6F 72 20 52 6F 62 6F 74 20 50  n...;for Robot P
000070: 44 20 61 6E 64 20 41 6D 73 74 72 61 64 20 41 63  D and Amstrad Ac
000080: 74 69 6F 6E 0D 0A 0D 0A 09 6F 72 67 20 26 38 30  tion.....org &80
000090: 30 30 0D 0A 09 6E 6F 6C 69 73 74 0D 0A 09 77 72  00...nolist...wr
0000A0: 69 74 65 20 22 74 6F 6F 6C 6B 69 74 2E 72 73 78  ite "toolkit.rsx
0000B0: 22 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09  ".....;*** ROUT.
0000C0: 49 6E 69 74 69 61 6C 69 73 61 74 69 6F 6E 0D 0A  Initialisation..
0000D0: 0D 0A 09 6C 64 20 62 63 2C 63 6F 6D 5F 74 0D 0A  ...ld bc,com_t..
0000E0: 09 6C 64 20 68 6C 2C 77 6B 73 70 0D 0A 09 63 61  .ld hl,wksp...ca
0000F0: 6C 6C 20 26 42 43 44 31 0D 0A 0D 0A 09 63 61 6C  ll &BCD1.....cal
000100: 6C 20 66 6E 64 64 73 63 3A 20 6A 72 20 6E 7A 2C  l fnddsc: jr nz,
000110: 69 73 64 69 73 63 09 3B 44 69 73 63 20 64 72 69  isdisc.;Disc dri
000120: 76 65 20 63 6F 6E 6E 65 63 74 65 64 3F 0D 0A 09  ve connected?...
000130: 78 6F 72 20 61 3A 20 6C 64 20 28 64 5F 6F 6E 6C  xor a: ld (d_onl
000140: 79 29 2C 61 3A 20 72 65 74 09 3B 49 66 20 6E 6F  y),a: ret.;If no
000150: 74 2C 20 64 69 73 61 62 6C 65 20 64 69 73 63 20  t, disable disc 
000160: 64 72 69 76 65 20 63 6F 6D 6D 61 6E 64 73 0D 0A  drive commands..
000170: 2E 69 73 64 69 73 63 09 6C 64 20 68 6C 2C 72 73  .isdisc.ld hl,rs
000180: 63 72 73 78 3A 20 63 61 6C 6C 20 26 42 43 44 34  crsx: call &BCD4
000190: 3A 20 6C 64 20 61 2C 63 3A 20 6C 64 20 28 72 73  : ld a,c: ld (rs
0001A0: 63 66 61 72 29 2C 68 6C 3A 20 6C 64 20 28 72 73  cfar),hl: ld (rs
0001B0: 63 66 61 72 2B 32 29 2C 61 0D 0A 09 6C 64 20 68  cfar+2),a...ld h
0001C0: 6C 2C 77 73 63 72 73 78 3A 20 63 61 6C 6C 20 26  l,wscrsx: call &
0001D0: 42 43 44 34 3A 20 6C 64 20 61 2C 63 3A 20 6C 64  BCD4: ld a,c: ld
0001E0: 20 28 77 73 63 66 61 72 29 2C 68 6C 3A 20 6C 64   (wscfar),hl: ld
0001F0: 20 28 77 73 63 66 61 72 2B 32 29 2C 61 0D 0A 09   (wscfar+2),a...

Size : 512 (Real : 512)
000000: 39 2C 20 31 35 2C 20 38 0D 0A 09 64 62 20 31 2C  9, 15, 8...db 1,
000010: 22 4C 6F 67 20 69 6E 20 6E 65 77 20 64 69 73 63  "Log in new disc
000020: 22 2C 30 0D 0A 09 64 62 20 31 2C 22 55 70 64 61  ",0...db 1,"Upda
000030: 74 65 20 64 69 73 63 22 2C 30 0D 0A 09 64 62 20  te disc",0...db 
000040: 22 2D 22 2C 30 0D 0A 09 64 62 20 31 2C 22 50 72  "-",0...db 1,"Pr
000050: 69 6E 74 20 64 69 73 63 22 2C 30 0D 0A 09 64 62  int disc",0...db
000060: 20 31 2C 22 47 6F 20 74 6F 20 64 69 73 63 22 2C   1,"Go to disc",
000070: 30 0D 0A 09 64 62 20 22 2D 22 2C 30 0D 0A 09 64  0...db "-",0...d
000080: 62 20 22 44 72 69 76 65 20 22 2C 31 2C 22 41 22  b "Drive ",1,"A"
000090: 2C 30 0D 0A 09 64 62 20 22 44 72 69 76 65 20 22  ,0...db "Drive "
0000A0: 2C 31 2C 22 42 22 2C 30 0D 0A 2E 69 64 69 73 63  ,1,"B",0...idisc
0000B0: 09 64 73 20 31 30 0D 0A 0D 0A 2E 6D 73 65 61 72  .ds 10.....msear
0000C0: 63 09 64 62 20 31 37 2C 39 2C 20 39 2C 20 32 0D  c.db 17,9, 9, 2.
0000D0: 0A 09 64 62 20 31 2C 22 46 69 6E 64 20 66 69 6C  ..db 1,"Find fil
0000E0: 65 22 2C 30 0D 0A 09 64 62 20 22 46 69 6E 64 20  e",0...db "Find 
0000F0: 22 2C 31 2C 22 6E 65 78 74 22 2C 30 0D 0A 2E 69  ",1,"next",0...i
000100: 73 65 61 72 63 09 64 62 20 32 2C 30 0D 0A 0D 0A  searc.db 2,0....
000110: 2E 6D 61 72 63 68 76 09 64 62 20 32 37 2C 39 2C  .marchv.db 27,9,
000120: 20 31 34 2C 20 35 0D 0A 09 64 62 20 31 2C 22 43   14, 5...db 1,"C
000130: 72 65 61 74 65 20 61 72 63 68 69 76 65 22 2C 30  reate archive",0
000140: 0D 0A 09 64 62 20 22 55 70 64 61 74 65 20 61 72  ...db "Update ar
000150: 63 68 69 76 65 22 2C 30 0D 0A 09 64 62 20 22 44  chive",0...db "D
000160: 65 6C 65 74 65 20 61 72 63 68 69 76 65 22 2C 30  elete archive",0
000170: 0D 0A 09 64 62 20 22 2D 22 2C 30 0D 0A 09 64 62  ...db "-",0...db
000180: 20 31 2C 22 52 65 73 74 6F 72 65 20 64 69 73 63   1,"Restore disc
000190: 22 2C 30 0D 0A 2E 69 61 72 63 68 76 09 64 73 20  ",0...iarchv.ds 
0001A0: 35 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41 09  5.....;*** DATA.
0001B0: 4B 65 79 20 7A 6F 6E 65 73 0D 0A 0D 0A 2E 7A 6F  Key zones.....zo
0001C0: 6E 65 73 09 64 62 20 33 20 2C 30 2C 36 20 2C 39  nes.db 3 ,0,6 ,9
0001D0: 0D 0A 09 64 62 20 31 31 2C 30 2C 31 34 2C 39 0D  ...db 11,0,14,9.
0001E0: 0A 09 64 62 20 31 39 2C 30 2C 32 34 2C 39 0D 0A  ..db 19,0,24,9..
0001F0: 09 64 62 20 32 39 2C 30 2C 33 35 2C 39 0D 0A 09  .db 29,0,35,9...

Size : 512 (Real : 512)
000000: 6C 64 20 68 6C 2C 66 72 6D 72 73 78 3A 20 63 61  ld hl,frmrsx: ca
000010: 6C 6C 20 26 42 43 44 34 3A 20 6C 64 20 61 2C 63  ll &BCD4: ld a,c
000020: 3A 20 6C 64 20 28 66 72 6D 66 61 72 29 2C 68 6C  : ld (frmfar),hl
000030: 3A 20 6C 64 20 28 66 72 6D 66 61 72 2B 32 29 2C  : ld (frmfar+2),
000040: 61 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 72 73 63 72  a...ret.....rscr
000050: 73 78 09 64 62 20 26 38 34 0D 0A 2E 77 73 63 72  sx.db &84...wscr
000060: 73 78 09 64 62 20 26 38 35 0D 0A 2E 66 72 6D 72  sx.db &85...frmr
000070: 73 78 09 64 62 20 26 38 36 0D 0A 0D 0A 2E 72 73  sx.db &86.....rs
000080: 63 66 61 72 09 64 73 20 33 0D 0A 2E 77 73 63 66  cfar.ds 3...wscf
000090: 61 72 09 64 73 20 33 0D 0A 2E 66 72 6D 66 61 72  ar.ds 3...frmfar
0000A0: 09 64 73 20 33 0D 0A 0D 0A 2E 77 6B 73 70 09 64  .ds 3.....wksp.d
0000B0: 73 20 34 0D 0A 0D 0A 2E 63 6F 6D 5F 74 09 64 77  s 4.....com_t.dw
0000C0: 20 6E 61 6D 65 5F 74 0D 0A 0D 0A 09 6A 70 20 63   name_t.....jp c
0000D0: 6C 69 63 5F 69 3A 09 6A 70 20 65 78 65 63 5F 69  lic_i:.jp exec_i
0000E0: 0D 0A 09 6A 70 20 6B 65 79 63 5F 69 3A 09 6A 70  ...jp keyc_i:.jp
0000F0: 20 70 75 74 6B 5F 69 0D 0A 0D 0A 09 6A 70 20 65   putk_i.....jp e
000100: 64 69 74 5F 69 3A 09 6A 70 20 64 6F 75 62 5F 69  dit_i:.jp doub_i
000110: 3A 09 6A 70 20 77 72 69 74 5F 69 0D 0A 09 6A 70  :.jp writ_i...jp
000120: 20 6D 6F 64 65 5F 69 3A 09 6A 70 20 69 6E 6B 63   mode_i:.jp inkc
000130: 5F 69 3A 09 6A 70 20 62 6F 72 64 5F 69 0D 0A 0D  _i:.jp bord_i...
000140: 0A 09 6A 70 20 66 72 61 6D 5F 69 3A 09 6A 70 20  ..jp fram_i:.jp 
000150: 63 75 72 73 5F 69 3A 09 6A 70 20 67 70 61 70 5F  curs_i:.jp gpap_
000160: 69 0D 0A 09 6A 70 20 63 70 79 63 5F 69 3A 09 6A  i...jp cpyc_i:.j
000170: 70 20 63 6C 72 69 5F 69 3A 09 6A 70 20 67 70 65  p clri_i:.jp gpe
000180: 6E 5F 69 0D 0A 0D 0A 09 6A 70 20 6D 65 6D 72 5F  n_i.....jp memr_
000190: 69 3A 09 6A 70 20 64 75 6D 70 5F 69 3A 09 6A 70  i:.jp dump_i:.jp
0001A0: 20 66 69 6E 64 5F 69 0D 0A 09 6A 70 20 62 61 6E   find_i...jp ban
0001B0: 6B 5F 69 3A 09 6A 70 20 62 6E 6B 72 5F 69 3A 09  k_i:.jp bnkr_i:.
0001C0: 6A 70 20 62 6E 6B 77 5F 69 0D 0A 09 6A 70 20 63  jp bnkw_i...jp c
0001D0: 6F 70 79 5F 69 3A 09 6A 70 20 66 69 6C 6C 5F 69  opy_i:.jp fill_i
0001E0: 3A 09 6A 70 20 63 61 6C 6C 5F 69 0D 0A 09 6A 70  :.jp call_i...jp
0001F0: 20 73 74 61 66 5F 69 3A 09 6A 70 20 73 74 62 63   staf_i:.jp stbc

Size : 512 (Real : 512)
000000: 64 73 20 35 32 0D 0A 09 64 62 20 37 38 2C 32 37  ds 52...db 78,27
000010: 20 2C 37 39 2C 33 36 0D 0A 09 64 62 20 37 38 2C   ,79,36...db 78,
000020: 31 39 30 2C 37 39 2C 31 39 39 0D 0A 0D 0A 2E 6B  190,79,199.....k
000030: 7A 6F 6E 65 73 09 64 62 20 33 34 2C 35 09 09 3B  zones.db 34,5..;
000040: 4F 70 65 6E 0D 0A 09 64 62 20 36 30 2C 36 09 09  Open...db 60,6..
000050: 3B 53 61 76 65 0D 0A 09 64 62 20 36 37 2C 37 09  ;Save...db 67,7.
000060: 09 3B 51 75 69 74 0D 0A 09 64 62 20 33 36 2C 38  .;Quit...db 36,8
000070: 09 09 3B 4C 6F 67 20 69 6E 20 6E 65 77 20 64 69  ..;Log in new di
000080: 73 63 0D 0A 09 64 62 20 34 32 2C 39 09 09 3B 55  sc...db 42,9..;U
000090: 70 64 61 74 65 20 64 69 73 63 0D 0A 09 64 62 20  pdate disc...db 
0000A0: 32 37 2C 31 30 09 3B 50 72 69 6E 74 20 64 69 73  27,10.;Print dis
0000B0: 63 0D 0A 09 64 62 20 35 32 2C 31 31 09 3B 47 6F  c...db 52,11.;Go
0000C0: 20 74 6F 20 64 69 73 63 0D 0A 09 64 62 20 36 39   to disc...db 69
0000D0: 2C 31 32 09 3B 41 0D 0A 09 64 62 20 35 34 2C 31  ,12.;A...db 54,1
0000E0: 33 09 3B 42 0D 0A 09 64 62 20 35 33 2C 31 34 09  3.;B...db 53,14.
0000F0: 3B 46 69 6E 64 0D 0A 09 64 62 20 34 36 2C 31 35  ;Find...db 46,15
000100: 09 3B 66 69 6E 64 20 4E 65 78 74 0D 0A 09 64 62  .;find Next...db
000110: 20 36 32 2C 31 36 09 3B 43 72 65 61 74 65 20 61   62,16.;Create a
000120: 72 63 68 69 76 65 0D 0A 09 64 62 20 35 30 2C 31  rchive...db 50,1
000130: 37 09 3B 52 65 73 74 6F 72 65 20 64 69 73 63 0D  7.;Restore disc.
000140: 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 56 41 52 49 09  ......;*** VARI.
000150: 56 61 72 69 61 62 6C 65 73 0D 0A 0D 0A 2E 77 68  Variables.....wh
000160: 6C 64 69 72 09 64 77 20 30 09 09 09 09 09 3B 57  ldir.dw 0.....;W
000170: 68 65 72 65 20 77 68 6F 6C 65 20 64 69 72 65 63  here whole direc
000180: 74 6F 72 79 20 73 74 61 72 74 73 0D 0A 2E 63 75  tory starts...cu
000190: 72 64 69 72 09 64 62 20 30 09 09 09 09 09 3B 46  rdir.db 0.....;F
0001A0: 69 72 73 74 20 64 69 72 65 63 74 6F 72 79 20 65  irst directory e
0001B0: 6E 74 72 79 20 6F 6E 20 73 63 72 65 65 6E 0D 0A  ntry on screen..
0001C0: 2E 70 6E 61 6D 65 09 64 73 20 31 33 09 09 09 09  .pname.ds 13....
0001D0: 09 3B 46 69 6E 64 20 66 69 6C 65 6E 61 6D 65 20  .;Find filename 
0001E0: 28 70 72 65 2D 65 78 70 61 6E 64 29 0D 0A 2E 65  (pre-expand)...e
0001F0: 6E 61 6D 65 09 64 73 20 31 32 09 09 09 09 09 3B  name.ds 12.....;

Size : 512 (Real : 512)
000000: 22 2C 30 0D 0A 0D 0A 2E 66 69 6E 64 74 78 09 64  ",0.....findtx.d
000010: 62 20 22 20 20 20 22 2C 31 35 2C 31 31 2C 22 46  b "   ",15,11,"F
000020: 49 4E 44 22 2C 31 34 2C 31 36 2C 20 33 31 2C 33  IND",14,16, 31,3
000030: 33 2C 39 36 2C 22 45 6E 74 65 72 20 66 69 6C 65  3,96,"Enter file
000040: 6E 61 6D 65 22 2C 30 0D 0A 2E 6E 66 6E 64 74 78  name",0...nfndtx
000050: 09 64 62 20 22 46 69 6C 65 20 6E 6F 74 20 66 6F  .db "File not fo
000060: 75 6E 64 2E 22 2C 30 0D 0A 0D 0A 2E 63 72 65 61  und.",0.....crea
000070: 74 78 09 64 62 20 22 20 20 22 2C 31 35 2C 31 31  tx.db "  ",15,11
000080: 2C 22 43 52 45 41 54 45 20 41 52 43 48 49 56 45  ,"CREATE ARCHIVE
000090: 22 2C 31 34 2C 31 36 0D 0A 09 64 62 20 33 31 2C  ",14,16...db 31,
0000A0: 32 34 2C 39 36 2C 22 53 74 6F 72 65 20 6F 6E 20  24,96,"Store on 
0000B0: 77 68 69 63 68 20 61 72 63 68 69 76 65 20 64 69  which archive di
0000C0: 73 63 3F 22 2C 30 0D 0A 2E 63 72 65 32 74 78 09  sc?",0...cre2tx.
0000D0: 64 62 20 33 31 2C 32 34 2C 31 30 34 2C 22 45 6E  db 31,24,104,"En
0000E0: 74 65 72 20 66 69 6C 65 6E 61 6D 65 3A 20 22 2C  ter filename: ",
0000F0: 30 0D 0A 2E 69 6E 73 74 78 74 09 64 62 20 22 49  0...instxt.db "I
000100: 6E 73 65 72 74 20 61 72 63 68 69 76 65 20 64 69  nsert archive di
000110: 73 63 20 69 6E 74 6F 20 64 72 69 76 65 20 42 22  sc into drive B"
000120: 2C 31 33 0D 0A 09 64 62 20 22 61 6E 64 20 66 69  ,13...db "and fi
000130: 6C 65 20 64 69 73 63 20 69 6E 74 6F 20 64 72 69  le disc into dri
000140: 76 65 20 41 2E 22 2C 30 0D 0A 2E 6F 6B 62 75 74  ve A.",0...okbut
000150: 09 64 62 20 33 34 2C 22 20 20 20 22 2C 31 2C 22  .db 34,"   ",1,"
000160: 4F 6B 22 2C 30 0D 0A 2E 63 61 6E 62 75 74 09 64  Ok",0...canbut.d
000170: 62 20 36 32 2C 22 20 22 2C 31 2C 22 43 61 6E 63  b 62," ",1,"Canc
000180: 65 6C 22 2C 30 0D 0A 2E 61 6C 72 65 74 78 09 64  el",0...alretx.d
000190: 62 20 22 54 68 69 73 20 64 69 73 63 20 68 61 73  b "This disc has
0001A0: 20 61 6C 72 65 61 64 79 20 62 65 65 6E 20 61 72   already been ar
0001B0: 63 68 69 76 65 64 2E 22 2C 31 33 0D 0A 09 64 62  chived.",13...db
0001C0: 20 22 55 70 64 61 74 65 20 74 68 65 20 70 72 65   "Update the pre
0001D0: 76 69 6F 75 73 20 61 72 63 68 69 76 65 20 69 6E  vious archive in
0001E0: 73 74 65 61 64 2E 22 2C 30 0D 0A 2E 77 72 6E 67  stead.",0...wrng
0001F0: 74 78 09 64 62 20 22 59 6F 75 20 63 61 6E 20 6F  tx.db "You can o

Size : 512 (Real : 512)
000000: 46 69 6E 64 20 66 69 6C 65 6E 61 6D 65 20 28 70  Find filename (p
000010: 6F 73 74 2D 65 78 70 61 6E 64 29 0D 0A 2E 6C 61  ost-expand)...la
000020: 73 74 61 64 09 64 77 20 64 69 73 63 32 09 09 09  stad.dw disc2...
000030: 09 3B 46 69 72 73 74 20 66 72 65 65 20 70 6C 61  .;First free pla
000040: 63 65 20 69 6E 20 6D 65 6D 6F 72 79 0D 0A 2E 77  ce in memory...w
000050: 72 69 74 63 70 09 64 77 20 30 09 09 09 09 09 3B  ritcp.dw 0.....;
000060: 50 6F 73 69 74 69 6F 6E 20 69 6E 20 63 6F 6D 70  Position in comp
000070: 72 65 73 73 69 6F 6E 20 62 75 66 66 65 72 0D 0A  ression buffer..
000080: 2E 73 74 61 63 6B 73 09 64 77 20 30 09 09 09 09  .stacks.dw 0....
000090: 09 3B 53 74 61 63 6B 20 70 6F 73 69 74 69 6F 6E  .;Stack position
0000A0: 20 66 6F 72 20 61 62 6F 72 74 0D 0A 0D 0A 09 3B   for abort.....;
0000B0: 2D 2D 2D 20 76 61 72 69 09 52 65 6C 6F 61 64 65  --- vari.Reloade
0000C0: 64 20 77 69 74 68 20 65 61 63 68 20 66 69 6C 65  d with each file
0000D0: 0D 0A 0D 0A 2E 66 6E 61 6D 65 09 64 73 20 31 34  .....fname.ds 14
0000E0: 09 09 09 09 09 3B 43 75 72 72 65 6E 74 20 66 69  .....;Current fi
0000F0: 6C 65 6E 61 6D 65 0D 0A 2E 63 75 72 72 65 63 09  lename...currec.
000100: 64 62 20 30 09 09 09 09 09 3B 43 75 72 72 65 6E  db 0.....;Curren
000110: 74 20 72 65 63 6F 72 64 0D 0A 2E 6C 73 74 72 65  t record...lstre
000120: 63 09 64 62 20 30 09 09 09 09 09 3B 4C 61 73 74  c.db 0.....;Last
000130: 20 72 65 63 6F 72 64 0D 0A 0D 0A 09 3B 2A 2A 2A   record.....;***
000140: 20 56 41 52 49 09 52 65 63 6F 72 64 73 0D 0A 0D   VARI.Records...
000150: 0A 2E 64 69 73 63 31 09 64 62 20 22 44 45 53 20  ..disc1.db "DES 
000160: 64 65 76 65 6C 6F 70 6D 65 6E 74 20 64 69 73 63  development disc
000170: 22 3A 20 64 73 20 31 32 09 3B 4E 61 6D 65 0D 0A  ": ds 12.;Name..
000180: 09 64 62 20 37 09 09 09 09 09 3B 4E 75 6D 62 65  .db 7.....;Numbe
000190: 72 20 6F 66 20 66 69 6C 65 73 09 2B 33 32 0D 0A  r of files.+32..
0001A0: 09 64 77 20 30 09 09 09 09 09 3B 6B 20 66 72 65  .dw 0.....;k fre
0001B0: 65 09 09 09 2B 33 33 0D 0A 09 64 62 20 33 09 09  e...+33...db 3..
0001C0: 09 09 09 3B 46 6F 72 6D 61 74 20 28 31 2D 38 29  ...;Format (1-8)
0001D0: 09 09 2B 33 35 0D 0A 09 64 62 20 30 09 09 09 09  ..+35...db 0....
0001E0: 09 3B 41 72 63 68 69 76 65 20 64 69 73 63 09 09  .;Archive disc..
0001F0: 2B 33 36 0D 0A 09 64 73 20 31 32 09 09 09 09 09  +36...ds 12.....

Size : 512 (Real : 512)
000000: 6E 6C 79 20 61 72 63 68 69 76 65 20 44 61 74 61  nly archive Data
000010: 20 61 6E 64 20 43 50 2F 4D 20 64 69 73 63 73 2E   and CP/M discs.
000020: 22 2C 30 0D 0A 2E 63 72 65 77 74 78 09 64 62 20  ",0...crewtx.db 
000030: 22 43 72 65 61 74 69 6E 67 20 61 72 63 68 69 76  "Creating archiv
000040: 65 20 61 6E 64 20 73 74 6F 72 69 6E 67 20 6F 6E  e and storing on
000050: 20 42 2E 22 2C 30 0D 0A 0D 0A 2E 6E 6F 74 61 74   B.",0.....notat
000060: 78 09 64 62 20 22 54 68 65 72 65 20 69 73 20 6E  x.db "There is n
000070: 6F 20 61 72 63 68 69 76 65 20 66 6F 72 20 74 68  o archive for th
000080: 69 73 20 64 69 73 63 2E 22 2C 30 0D 0A 2E 6E 6F  is disc.",0...no
000090: 74 69 74 78 09 64 62 20 22 54 68 65 20 66 69 6C  titx.db "The fil
0000A0: 65 20 68 61 73 20 62 65 65 6E 20 63 6F 72 72 75  e has been corru
0000B0: 70 74 65 64 20 69 6E 20 73 6F 6D 65 20 77 61 79  pted in some way
0000C0: 2E 22 2C 30 0D 0A 2E 72 65 73 74 74 78 09 64 62  .",0...resttx.db
0000D0: 20 22 52 65 73 74 6F 72 69 6E 67 20 66 72 6F 6D   "Restoring from
0000E0: 20 64 72 69 76 65 20 42 20 74 6F 20 64 72 69 76   drive B to driv
0000F0: 65 20 41 2E 22 2C 30 0D 0A 0D 0A 2E 64 61 6E 67  e A.",0.....dang
000100: 74 78 09 64 62 20 22 4D 65 6D 6F 72 79 20 69 73  tx.db "Memory is
000110: 20 67 65 74 74 69 6E 67 20 6C 6F 77 2E 20 49 74   getting low. It
000120: 20 6D 69 67 68 74 20 62 65 20 61 20 67 6F 6F 64   might be a good
000130: 22 2C 31 33 0D 0A 09 64 62 20 22 69 64 65 61 20  ",13...db "idea 
000140: 74 6F 20 73 61 76 65 20 79 6F 75 72 20 64 61 74  to save your dat
000150: 61 62 61 73 65 20 73 6F 6F 6E 20 61 6E 64 20 73  abase soon and s
000160: 74 61 72 74 22 2C 31 33 0D 0A 09 64 62 20 22 6F  tart",13...db "o
000170: 6E 20 61 20 6E 65 77 20 6F 6E 65 2E 22 2C 30 0D  n a new one.",0.
000180: 0A 0D 0A 2E 66 75 6C 6C 74 78 09 64 62 20 22 54  ....fulltx.db "T
000190: 68 65 72 65 20 69 73 20 6E 6F 74 20 65 6E 6F 75  here is not enou
0001A0: 67 68 20 72 6F 6F 6D 20 69 6E 20 6D 65 6D 6F 72  gh room in memor
0001B0: 79 20 74 6F 20 63 61 72 72 79 22 2C 31 33 0D 0A  y to carry",13..
0001C0: 09 64 62 20 22 6F 75 74 20 74 68 61 74 20 6F 70  .db "out that op
0001D0: 65 72 61 74 69 6F 6E 2E 20 53 61 76 65 20 79 6F  eration. Save yo
0001E0: 75 72 20 63 75 72 72 65 6E 74 20 64 61 74 61 62  ur current datab
0001F0: 61 73 65 22 2C 31 33 0D 0A 09 64 62 20 22 61 6E  ase",13...db "an

Size : 512 (Real : 512)
000000: 3B 41 72 63 68 69 76 65 20 66 69 6C 65 6E 61 6D  ;Archive filenam
000010: 65 09 2B 33 37 0D 0A 0D 0A 09 64 62 20 22 43 41  e.+37.....db "CA
000020: 54 20 20 20 20 20 2E 22 2C 22 42 22 2B 31 32 38  T     .","B"+128
000030: 2C 22 49 4E 22 09 09 3B 46 69 6C 65 6E 61 6D 65  ,"IN"..;Filename
000040: 73 09 09 2B 34 39 0D 0A 09 64 62 20 22 41 4D 53  s..+49...db "AMS
000050: 54 52 41 44 20 2E 41 43 54 22 0D 0A 09 64 62 20  TRAD .ACT"...db 
000060: 22 43 52 54 43 23 38 20 20 2E 20 20 20 22 0D 0A  "CRTC#8  .   "..
000070: 09 64 62 20 22 42 54 4C 32 20 20 20 20 2E 42 22  .db "BTL2    .B"
000080: 2C 22 49 22 2B 31 32 38 2C 22 4E 22 0D 0A 09 64  ,"I"+128,"N"...d
000090: 62 20 22 44 49 53 43 20 20 20 20 2E 42 41 53 22  b "DISC    .BAS"
0000A0: 0D 0A 09 64 62 20 22 48 49 50 50 59 20 20 20 2E  ...db "HIPPY   .
0000B0: 43 4F 4D 22 0D 0A 09 64 62 20 22 57 41 4C 4C 59  COM"...db "WALLY
0000C0: 20 20 20 2E 22 2C 22 53 22 2B 31 32 38 2C 22 50     .","S"+128,"P
0000D0: 22 2B 31 32 38 2C 22 4C 22 0D 0A 0D 0A 0D 0A 2E  "+128,"L".......
0000E0: 64 69 73 63 32 09 64 62 20 30 09 09 09 09 09 3B  disc2.db 0.....;
0000F0: 4C 61 73 74 20 72 65 63 6F 72 64 0D 0A 1A 74 0D  Last record...t.
000100: 64 62 20 30 09 09 09 09 09 3B 43 75 72 72 65 6E  db 0.....;Curren
000110: 74 20 72 65 63 6F 72 64 0D 0A 2E 6C 73 74 72 65  t record...lstre
000120: 63 09 64 62 20 30 09 09 09 09 09 3B 4C 61 73 74  c.db 0.....;Last
000130: 20 72 65 63 6F 72 64 0D 0A 0D 0A 09 3B 2A 2A 2A   record.....;***
000140: 20 56 41 52 49 09 52 65 63 6F 72 64 73 0D 0A 0D   VARI.Records...
000150: 0A 2E 64 69 73 63 31 09 64 62 20 22 44 45 53 20  ..disc1.db "DES 
000160: 64 65 76 65 6C 6F 70 6D 65 6E 74 20 64 69 73 63  development disc
000170: 22 3A 20 64 73 20 31 32 09 3B 4E 61 6D 65 0D 0A  ": ds 12.;Name..
000180: 09 64 62 20 37 09 09 09 09 09 3B 4E 75 6D 62 65  .db 7.....;Numbe
000190: 72 20 6F 66 20 66 69 6C 65 73 09 2B 33 32 0D 0A  r of files.+32..
0001A0: 09 64 77 20 30 09 09 09 09 09 3B 6B 20 66 72 65  .dw 0.....;k fre
0001B0: 65 09 09 09 2B 33 33 0D 0A 09 64 62 20 33 09 09  e...+33...db 3..
0001C0: 09 09 09 3B 46 6F 72 6D 61 74 20 28 31 2D 38 29  ...;Format (1-8)
0001D0: 09 09 2B 33 35 0D 0A 09 64 62 20 30 09 09 09 09  ..+35...db 0....
0001E0: 09 3B 41 72 63 68 69 76 65 20 64 69 73 63 09 09  .;Archive disc..
0001F0: 2B 33 36 0D 0A 09 64 73 20 31 32 09 09 09 09 09  +36...ds 12.....

Size : 512 (Real : 512)
000000: 0A 0D 0A 09 3B 43 6F 70 79 20 73 74 72 69 6E 67  ....;Copy string
000010: 20 74 6F 20 62 75 66 66 65 72 0D 0A 0D 0A 2E 63   to buffer.....c
000020: 6C 69 6F 6E 65 09 6C 64 20 6C 2C 28 69 78 29 3A  lione.ld l,(ix):
000030: 20 6C 64 20 68 2C 28 69 78 2B 31 29 0D 0A 09 6C   ld h,(ix+1)...l
000040: 64 20 63 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C  d c,(hl): inc hl
000050: 3A 20 6C 64 20 61 2C 63 3A 20 72 65 74 20 7A 0D  : ld a,c: ret z.
000060: 0A 09 6C 64 20 65 2C 28 68 6C 29 3A 20 69 6E 63  ..ld e,(hl): inc
000070: 20 68 6C 0D 0A 09 6C 64 20 64 2C 28 68 6C 29 3A   hl...ld d,(hl):
000080: 20 65 78 20 64 65 2C 68 6C 0D 0A 09 6C 64 20 64   ex de,hl...ld d
000090: 65 2C 63 62 75 66 66 3A 20 6C 64 20 62 2C 30 3A  e,cbuff: ld b,0:
0000A0: 20 6C 64 69 72 0D 0A 09 6C 64 20 61 2C 32 35 35   ldir...ld a,255
0000B0: 3A 20 6C 64 20 28 64 65 29 2C 61 0D 0A 09 63 61  : ld (de),a...ca
0000C0: 6C 6C 20 63 6C 69 5F 64 6F 3A 20 72 65 74 0D 0A  ll cli_do: ret..
0000D0: 0D 0A 09 3B 41 63 74 75 61 6C 20 43 4C 49 20 72  ...;Actual CLI r
0000E0: 6F 75 74 69 6E 65 0D 0A 0D 0A 2E 63 6C 69 5F 64  outine.....cli_d
0000F0: 6F 09 6C 64 20 69 78 2C 63 62 75 66 66 3A 20 63  o.ld ix,cbuff: c
000100: 61 6C 6C 20 67 65 74 70 61 72 09 09 3B 47 65 74  all getpar..;Get
000110: 20 63 6F 6D 6D 61 6E 64 20 6E 61 6D 65 0D 0A 09   command name...
000120: 6C 64 20 61 2C 62 3A 20 6F 72 20 61 3A 20 72 65  ld a,b: or a: re
000130: 74 20 7A 0D 0A 0D 0A 09 70 75 73 68 20 62 63 0D  t z.....push bc.
000140: 0A 09 20 6C 64 20 68 6C 2C 72 65 61 64 69 6E 0D  .. ld hl,readin.
000150: 0A 2E 75 63 6C 5F 6C 70 09 20 6C 64 20 61 2C 28  ..ucl_lp. ld a,(
000160: 68 6C 29 3A 20 63 61 6C 6C 20 75 63 61 73 65 3A  hl): call ucase:
000170: 20 6C 64 20 28 68 6C 29 2C 61 0D 0A 09 20 69 6E   ld (hl),a... in
000180: 63 20 68 6C 3A 20 64 6A 6E 7A 20 75 63 6C 5F 6C  c hl: djnz ucl_l
000190: 70 0D 0A 09 70 6F 70 20 62 63 0D 0A 0D 0A 09 64  p...pop bc.....d
0001A0: 65 63 20 68 6C 3A 20 73 65 74 20 37 2C 28 68 6C  ec hl: set 7,(hl
0001B0: 29 09 09 09 3B 53 65 61 72 63 68 20 66 6F 72 20  )...;Search for 
0001C0: 69 74 0D 0A 09 6C 64 20 68 6C 2C 72 65 61 64 69  it...ld hl,readi
0001D0: 6E 3A 20 63 61 6C 6C 20 26 42 43 44 34 3A 20 6A  n: call &BCD4: j
0001E0: 70 20 6E 63 2C 75 6E 6B 65 72 72 09 3B 20 7C 0D  p nc,unkerr.; |.
0001F0: 0A 09 6C 64 20 61 2C 63 3A 20 6C 64 20 28 72 73  ..ld a,c: ld (rs

Size : 512 (Real : 512)
000000: 22 3A 09 73 74 72 20 22 46 49 4E 44 22 0D 0A 09  ":.str "FIND"...
000010: 73 74 72 20 22 42 41 4E 4B 22 3A 09 73 74 72 20  str "BANK":.str 
000020: 22 42 41 4E 4B 2E 52 45 41 44 22 3A 73 74 72 20  "BANK.READ":str 
000030: 22 42 41 4E 4B 2E 57 52 49 54 45 22 0D 0A 09 73  "BANK.WRITE"...s
000040: 74 72 20 22 43 4F 50 59 22 3A 09 73 74 72 20 22  tr "COPY":.str "
000050: 46 49 4C 4C 22 3A 09 73 74 72 20 22 43 41 4C 4C  FILL":.str "CALL
000060: 22 0D 0A 09 73 74 72 20 22 41 46 22 3A 09 73 74  "...str "AF":.st
000070: 72 20 22 42 43 22 3A 09 73 74 72 20 22 44 45 22  r "BC":.str "DE"
000080: 0D 0A 09 73 74 72 20 22 48 4C 22 3A 09 73 74 72  ...str "HL":.str
000090: 20 22 49 58 22 3A 09 73 74 72 20 22 49 59 22 0D   "IX":.str "IY".
0000A0: 0A 0D 0A 09 3B 46 69 6C 65 20 63 6F 6D 6D 61 6E  ....;File comman
0000B0: 64 73 0D 0A 0D 0A 09 73 74 72 20 22 54 59 50 45  ds.....str "TYPE
0000C0: 22 3A 09 73 74 72 20 22 50 54 59 50 45 22 3A 09  ":.str "PTYPE":.
0000D0: 73 74 72 20 22 49 4E 46 4F 22 0D 0A 09 73 74 72  str "INFO"...str
0000E0: 20 22 48 4C 2E 57 52 49 54 45 22 3A 09 73 74 72   "HL.WRITE":.str
0000F0: 20 22 48 4C 2E 52 45 41 44 22 0D 0A 09 73 74 72   "HL.READ"...str
000100: 20 22 4C 4F 41 44 22 3A 09 73 74 72 20 22 44 45   "LOAD":.str "DE
000110: 50 52 4F 54 45 43 54 22 0D 0A 0D 0A 09 3B 44 69  PROTECT".....;Di
000120: 73 63 2D 6F 6E 6C 79 20 63 6F 6D 6D 61 6E 64 73  sc-only commands
000130: 0D 0A 0D 0A 2E 64 5F 6F 6E 6C 79 09 73 74 72 20  .....d_only.str 
000140: 22 53 45 43 54 4F 52 2E 57 52 49 54 45 22 3A 73  "SECTOR.WRITE":s
000150: 74 72 20 22 53 45 43 54 4F 52 2E 52 45 41 44 22  tr "SECTOR.READ"
000160: 0D 0A 09 73 74 72 20 22 55 53 45 52 22 3A 09 73  ...str "USER":.s
000170: 74 72 20 22 43 41 54 22 0D 0A 09 64 62 20 30 0D  tr "CAT"...db 0.
000180: 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 43 4C  ....;*** RSX.|CL
000190: 49 5B 2C 73 74 72 69 6E 67 5D 0D 0A 0D 0A 2E 63  I[,string].....c
0001A0: 6C 69 63 5F 69 09 6E 6F 70 0D 0A 09 63 70 20 31  lic_i.nop...cp 1
0001B0: 3A 20 6A 70 20 7A 20 2C 63 6C 69 6F 6E 65 0D 0A  : jp z ,clione..
0001C0: 09 6F 72 20 61 3A 20 6A 70 20 6E 7A 2C 70 61 72  .or a: jp nz,par
0001D0: 65 72 72 0D 0A 0D 0A 09 3B 49 6E 70 75 74 20 6C  err.....;Input l
0001E0: 69 6E 65 0D 0A 0D 0A 2E 63 6C 69 63 5F 6C 09 6C  ine.....clic_l.l
0001F0: 64 20 61 2C 22 7C 22 3A 20 63 61 6C 6C 20 26 42  d a,"|": call &B

Size : 512 (Real : 512)
000000: 78 66 61 72 2B 32 29 2C 61 3A 20 6C 64 20 28 72  xfar+2),a: ld (r
000010: 73 78 66 61 72 29 2C 68 6C 09 3B 20 7C 0D 0A 0D  sxfar),hl.; |...
000020: 0A 09 6C 64 20 68 6C 2C 70 61 72 62 75 66 2B 36  ..ld hl,parbuf+6
000030: 33 3A 20 6C 64 20 28 70 61 72 70 6F 73 29 2C 68  3: ld (parpos),h
000040: 6C 09 09 3B 49 6E 69 74 69 61 6C 69 73 65 20 76  l..;Initialise v
000050: 61 72 69 61 62 6C 65 73 0D 0A 09 6C 64 20 68 6C  ariables...ld hl
000060: 2C 64 65 73 62 75 66 20 20 20 3A 20 6C 64 20 28  ,desbuf   : ld (
000070: 64 65 73 70 6F 73 29 2C 68 6C 09 09 3B 20 7C 0D  despos),hl..; |.
000080: 0A 09 6C 64 20 68 6C 2C 73 74 72 62 75 66 20 20  ..ld hl,strbuf  
000090: 20 3A 20 6C 64 20 28 73 74 72 70 6F 73 29 2C 68   : ld (strpos),h
0000A0: 6C 3A 20 6C 64 20 65 2C 30 09 3B 20 7C 0D 0A 0D  l: ld e,0.; |...
0000B0: 0A 2E 70 61 6C 6F 6F 70 09 6C 64 20 61 2C 28 69  ..paloop.ld a,(i
0000C0: 78 29 3A 20 63 70 20 32 35 35 3A 20 6A 70 20 7A  x): cp 255: jp z
0000D0: 2C 64 6F 5F 63 6F 6D 0D 0A 09 70 75 73 68 20 64  ,do_com...push d
0000E0: 65 3A 20 63 61 6C 6C 20 67 65 74 70 61 72 3A 20  e: call getpar: 
0000F0: 70 6F 70 20 64 65 0D 0A 09 6C 64 20 61 2C 62 20  pop de...ld a,b 
000100: 20 20 3A 20 6F 72 20 61 20 3A 20 6A 70 20 7A 2C    : or a : jp z,
000110: 64 6F 5F 63 6F 6D 0D 0A 09 63 61 6C 6C 20 61 6E  do_com...call an
000120: 61 6C 79 73 3A 20 6A 72 20 63 2C 74 78 74 70 61  alys: jr c,txtpa
000130: 72 0D 0A 0D 0A 09 6C 64 20 69 79 2C 28 70 61 72  r.....ld iy,(par
000140: 70 6F 73 29 3A 20 6C 64 20 28 69 79 29 2C 6C 3A  pos): ld (iy),l:
000150: 20 6C 64 20 28 69 79 2B 31 29 2C 68 09 3B 4E 75   ld (iy+1),h.;Nu
000160: 6D 65 72 69 63 61 6C 20 70 61 72 61 6D 65 74 65  merical paramete
000170: 72 0D 0A 09 64 65 63 20 69 79 3A 20 64 65 63 20  r...dec iy: dec 
000180: 69 79 3A 20 6C 64 20 28 70 61 72 70 6F 73 29 2C  iy: ld (parpos),
000190: 69 79 3A 20 69 6E 63 20 65 09 3B 20 7C 0D 0A 09  iy: inc e.; |...
0001A0: 6A 72 20 70 61 6C 6F 6F 70 09 09 09 09 3B 20 7C  jr paloop....; |
0001B0: 0D 0A 0D 0A 2E 74 78 74 70 61 72 09 70 75 73 68  .....txtpar.push
0001C0: 20 64 65 0D 0A 09 20 6C 64 20 68 6C 2C 28 64 65   de... ld hl,(de
0001D0: 73 70 6F 73 29 3A 20 6C 64 20 64 65 2C 28 73 74  spos): ld de,(st
0001E0: 72 70 6F 73 29 0D 0A 09 20 6C 64 20 69 79 2C 28  rpos)... ld iy,(
0001F0: 70 61 72 70 6F 73 29 3A 20 6C 64 20 28 69 79 29  parpos): ld (iy)

Size : 512 (Real : 512)
000000: 42 35 41 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 63 62  B5A.....ld hl,cb
000010: 75 66 66 3A 20 6C 64 20 64 65 2C 63 62 75 66 66  uff: ld de,cbuff
000020: 2B 31 0D 0A 09 6C 64 20 28 68 6C 29 2C 30 3A 20  +1...ld (hl),0: 
000030: 6C 64 20 62 63 2C 36 34 3A 20 6C 64 69 72 0D 0A  ld bc,64: ldir..
000040: 0D 0A 09 6C 64 20 68 6C 2C 63 62 75 66 66 3A 20  ...ld hl,cbuff: 
000050: 6C 64 20 62 2C 30 0D 0A 2E 69 6E 5F 6C 70 09 63  ld b,0...in_lp.c
000060: 61 6C 6C 20 26 42 42 38 41 0D 0A 09 63 61 6C 6C  all &BB8A...call
000070: 20 26 42 42 30 36 0D 0A 09 70 75 73 68 20 61 66   &BB06...push af
000080: 3A 20 63 61 6C 6C 20 26 42 42 38 41 3A 20 70 6F  : call &BB8A: po
000090: 70 20 61 66 0D 0A 0D 0A 09 63 70 20 31 33 20 20  p af.....cp 13  
0000A0: 3A 20 6A 72 20 7A 20 2C 69 6E 5F 72 65 74 0D 0A  : jr z ,in_ret..
0000B0: 09 63 70 20 31 32 37 20 3A 20 6A 72 20 7A 20 2C  .cp 127 : jr z ,
0000C0: 69 6E 5F 64 65 6C 0D 0A 09 63 70 20 32 35 32 20  in_del...cp 252 
0000D0: 3A 20 6A 72 20 7A 20 2C 69 6E 5F 65 73 63 0D 0A  : jr z ,in_esc..
0000E0: 09 63 70 20 33 32 20 20 3A 20 6A 72 20 63 20 2C  .cp 32  : jr c ,
0000F0: 69 6E 5F 6C 70 0D 0A 09 62 69 74 20 37 2C 61 3A  in_lp...bit 7,a:
000100: 20 6A 72 20 6E 7A 2C 69 6E 5F 6C 70 0D 0A 0D 0A   jr nz,in_lp....
000110: 09 62 69 74 20 36 2C 62 3A 20 6A 72 20 6E 7A 2C  .bit 6,b: jr nz,
000120: 69 6E 5F 6C 70 0D 0A 09 6C 64 20 28 68 6C 29 2C  in_lp...ld (hl),
000130: 61 3A 20 69 6E 63 20 68 6C 3A 20 69 6E 63 20 62  a: inc hl: inc b
000140: 0D 0A 09 63 61 6C 6C 20 26 42 42 35 41 3A 20 6A  ...call &BB5A: j
000150: 72 20 69 6E 5F 6C 70 0D 0A 0D 0A 2E 69 6E 5F 64  r in_lp.....in_d
000160: 65 6C 09 6C 64 20 61 2C 62 3A 20 6F 72 20 61 3A  el.ld a,b: or a:
000170: 20 6A 72 20 7A 2C 69 6E 5F 6C 70 0D 0A 09 6C 64   jr z,in_lp...ld
000180: 20 61 2C 38 20 3A 20 63 61 6C 6C 20 26 42 42 35   a,8 : call &BB5
000190: 41 3A 20 64 65 63 20 68 6C 3A 20 6C 64 20 28 68  A: dec hl: ld (h
0001A0: 6C 29 2C 30 0D 0A 09 6C 64 20 61 2C 31 36 3A 20  l),0...ld a,16: 
0001B0: 63 61 6C 6C 20 26 42 42 35 41 3A 20 64 65 63 20  call &BB5A: dec 
0001C0: 62 20 3A 20 6A 72 20 69 6E 5F 6C 70 0D 0A 2E 69  b : jr in_lp...i
0001D0: 6E 5F 65 73 63 09 6C 64 20 68 6C 2C 62 72 6B 74  n_esc.ld hl,brkt
0001E0: 78 74 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67 3A  xt: call string:
0001F0: 20 6A 70 20 63 72 6C 66 0D 0A 2E 69 6E 5F 72 65   jp crlf...in_re

Size : 512 (Real : 512)
000000: 2C 6C 3A 20 6C 64 20 28 69 79 2B 31 29 2C 68 0D  ,l: ld (iy+1),h.
000010: 0A 09 20 64 65 63 20 69 79 3A 20 64 65 63 20 69  .. dec iy: dec i
000020: 79 3A 20 6C 64 20 28 70 61 72 70 6F 73 29 2C 69  y: ld (parpos),i
000030: 79 0D 0A 09 20 6C 64 20 28 68 6C 29 2C 62 3A 20  y... ld (hl),b: 
000040: 69 6E 63 20 68 6C 0D 0A 09 20 6C 64 20 28 68 6C  inc hl... ld (hl
000050: 29 2C 65 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 6C  ),e: inc hl... l
000060: 64 20 28 68 6C 29 2C 64 3A 20 69 6E 63 20 68 6C  d (hl),d: inc hl
000070: 3A 20 6C 64 20 28 64 65 73 70 6F 73 29 2C 68 6C  : ld (despos),hl
000080: 0D 0A 09 20 6C 64 20 68 6C 2C 72 65 61 64 69 6E  ... ld hl,readin
000090: 3A 20 6C 64 20 63 2C 62 3A 20 6C 64 20 62 2C 30  : ld c,b: ld b,0
0000A0: 3A 20 6C 64 69 72 0D 0A 09 20 6C 64 20 28 73 74  : ldir... ld (st
0000B0: 72 70 6F 73 29 2C 64 65 0D 0A 09 70 6F 70 20 64  rpos),de...pop d
0000C0: 65 3A 20 69 6E 63 20 65 3A 20 6A 70 20 70 61 6C  e: inc e: jp pal
0000D0: 6F 6F 70 0D 0A 0D 0A 2E 64 6F 5F 63 6F 6D 09 6C  oop.....do_com.l
0000E0: 64 20 61 2C 26 43 39 3A 20 6C 64 20 28 63 6C 69  d a,&C9: ld (cli
0000F0: 63 5F 69 29 2C 61 09 09 09 3B 50 72 65 76 65 6E  c_i),a...;Preven
000100: 74 20 6E 65 73 74 69 6E 67 0D 0A 09 6C 64 20 69  t nesting...ld i
000110: 78 2C 28 70 61 72 70 6F 73 29 3A 20 69 6E 63 20  x,(parpos): inc 
000120: 69 78 3A 20 69 6E 63 20 69 78 0D 0A 09 6C 64 20  ix: inc ix...ld 
000130: 61 2C 65 3A 20 72 73 74 20 33 2C 72 73 78 66 61  a,e: rst 3,rsxfa
000140: 72 0D 0A 09 78 6F 72 20 61 3A 20 6C 64 20 28 63  r...xor a: ld (c
000150: 6C 69 63 5F 69 29 2C 61 3A 20 72 65 74 09 09 3B  lic_i),a: ret..;
000160: 52 65 2D 65 6E 61 62 6C 65 20 72 6F 75 74 69 6E  Re-enable routin
000170: 65 0D 0A 0D 0A 09 3B 41 6E 61 6C 79 73 65 20 70  e.....;Analyse p
000180: 61 72 61 6D 65 74 65 72 0D 0A 0D 0A 2E 61 6E 61  arameter.....ana
000190: 6C 79 73 09 6C 64 20 69 79 2C 72 65 61 64 69 6E  lys.ld iy,readin
0001A0: 09 09 09 09 3B 41 6E 79 20 6C 65 74 74 65 72 73  ....;Any letters
0001B0: 20 69 6E 20 74 68 65 72 65 2E 2E 2E 3F 0D 0A 09   in there...?...
0001C0: 70 75 73 68 20 62 63 0D 0A 2E 61 6E 61 6C 6C 70  push bc...anallp
0001D0: 09 20 6C 64 20 61 2C 28 69 79 29 3A 20 63 70 20  . ld a,(iy): cp 
0001E0: 22 30 22 3A 20 6A 72 20 63 20 2C 6E 6F 74 6E 75  "0": jr c ,notnu
0001F0: 6D 0D 0A 09 09 20 20 20 20 63 70 20 22 3A 22 3A  m....    cp ":":

Size : 512 (Real : 512)
000000: 74 09 6C 64 20 61 2C 32 35 35 3A 20 6C 64 20 28  t.ld a,255: ld (
000010: 68 6C 29 2C 61 3A 20 63 61 6C 6C 20 63 72 6C 66  hl),a: call crlf
000020: 0D 0A 09 6C 64 20 61 2C 28 63 62 75 66 66 29 3A  ...ld a,(cbuff):
000030: 20 63 70 20 22 2A 22 3A 20 6A 72 20 6E 7A 2C 6E   cp "*": jr nz,n
000040: 6F 68 69 64 6E 09 3B 56 65 72 79 20 69 6E 64 75  ohidn.;Very indu
000050: 6C 67 65 6E 74 20 6D 65 73 73 61 67 65 20 74 68  lgent message th
000060: 69 6E 67 0D 0A 09 70 75 73 68 20 62 63 3A 20 70  ing...push bc: p
000070: 75 73 68 20 68 6C 09 09 09 3B 20 7C 0D 0A 09 20  ush hl...; |... 
000080: 6C 64 20 69 78 2C 63 62 75 66 66 3A 20 6C 64 20  ld ix,cbuff: ld 
000090: 68 6C 2C 30 09 09 09 3B 20 7C 0D 0A 2E 68 69 64  hl,0...; |...hid
0000A0: 65 6C 70 09 20 6C 64 20 65 2C 28 69 78 29 3A 20  elp. ld e,(ix): 
0000B0: 6C 64 20 64 2C 30 3A 20 61 64 64 20 68 6C 2C 64  ld d,0: add hl,d
0000C0: 65 09 09 3B 20 7C 0D 0A 09 20 69 6E 63 20 69 78  e..; |... inc ix
0000D0: 3A 20 64 6A 6E 7A 20 68 69 64 65 6C 70 09 09 09  : djnz hidelp...
0000E0: 3B 20 7C 0D 0A 09 20 6C 64 20 61 2C 68 3A 20 63  ; |... ld a,h: c
0000F0: 70 20 31 3A 20 6A 72 20 6E 7A 2C 6E 6F 74 67 6F  p 1: jr nz,notgo
000100: 74 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 61 2C 6C  t..; |... ld a,l
000110: 3A 20 63 70 20 26 32 34 3A 20 6A 72 20 7A 2C 73  : cp &24: jr z,s
000120: 74 73 09 09 3B 20 7C 0D 0A 09 09 20 63 70 20 26  ts..; |.... cp &
000130: 42 30 3A 20 6A 72 20 7A 2C 72 6F 62 6F 74 09 09  B0: jr z,robot..
000140: 3B 20 7C 0D 0A 09 09 20 63 70 20 26 34 38 3A 20  ; |.... cp &48: 
000150: 6A 72 20 7A 2C 61 61 61 61 68 09 09 3B 20 7C 0D  jr z,aaaah..; |.
000160: 0A 2E 6E 6F 74 67 6F 74 09 70 6F 70 20 68 6C 3A  ..notgot.pop hl:
000170: 20 70 6F 70 20 62 63 09 09 09 09 3B 20 7C 0D 0A   pop bc....; |..
000180: 2E 6E 6F 68 69 64 6E 09 63 61 6C 6C 20 63 6C 69  .nohidn.call cli
000190: 5F 64 6F 3A 20 6A 70 20 63 6C 69 63 5F 6C 0D 0A  _do: jp clic_l..
0001A0: 0D 0A 2E 72 6F 62 6F 74 09 6C 64 20 68 6C 2C 74  ...robot.ld hl,t
0001B0: 77 69 66 66 3A 20 63 61 6C 6C 20 73 74 72 69 6E  wiff: call strin
0001C0: 67 3A 20 63 61 6C 6C 20 63 72 6C 66 3A 20 70 6F  g: call crlf: po
0001D0: 70 20 68 6C 3A 20 70 6F 70 20 62 63 3A 20 6A 70  p hl: pop bc: jp
0001E0: 20 63 6C 69 63 5F 6C 0D 0A 09 64 62 20 31 36 34   clic_l...db 164
0001F0: 2C 22 31 39 39 34 20 43 52 54 43 3A 20 22 0D 0A  ,"1994 CRTC: "..

Size : 512 (Real : 512)
000000: 20 6A 72 20 6E 63 2C 6E 6F 74 6E 75 6D 0D 0A 09   jr nc,notnum...
000010: 20 69 6E 63 20 69 79 3A 20 64 6A 6E 7A 20 61 6E   inc iy: djnz an
000020: 61 6C 6C 70 0D 0A 09 70 6F 70 20 62 63 0D 0A 0D  allp...pop bc...
000030: 0A 09 6C 64 20 69 79 2C 72 65 61 64 69 6E 3A 20  ..ld iy,readin: 
000040: 6C 64 20 68 6C 2C 30 0D 0A 2E 61 64 64 61 6C 70  ld hl,0...addalp
000050: 09 6C 64 20 61 2C 28 69 79 29 3A 20 70 75 73 68  .ld a,(iy): push
000060: 20 64 65 0D 0A 09 20 61 64 64 20 68 6C 2C 68 6C   de... add hl,hl
000070: 3A 20 6C 64 20 65 2C 6C 3A 20 6C 64 20 64 2C 68  : ld e,l: ld d,h
000080: 3A 20 61 64 64 20 68 6C 2C 68 6C 09 3B 48 4C 20  : add hl,hl.;HL 
000090: 3D 20 48 4C 20 2A 20 31 30 0D 0A 09 20 61 64 64  = HL * 10... add
0000A0: 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 64   hl,hl: add hl,d
0000B0: 65 0D 0A 09 20 73 75 62 20 34 38 3A 20 6C 64 20  e... sub 48: ld 
0000C0: 65 2C 61 3A 20 6C 64 20 64 2C 30 3A 20 61 64 64  e,a: ld d,0: add
0000D0: 20 68 6C 2C 64 65 09 3B 48 4C 20 3D 20 48 4C 20   hl,de.;HL = HL 
0000E0: 2B 20 6E 65 77 20 6E 75 6D 62 65 72 0D 0A 09 70  + new number...p
0000F0: 6F 70 20 64 65 3A 20 69 6E 63 20 69 79 3A 20 64  op de: inc iy: d
000100: 6A 6E 7A 20 61 64 64 61 6C 70 0D 0A 09 6F 72 20  jnz addalp...or 
000110: 61 3A 20 72 65 74 0D 0A 0D 0A 2E 6E 6F 74 6E 75  a: ret.....notnu
000120: 6D 09 70 6F 70 20 62 63 3A 20 73 63 66 3A 20 72  m.pop bc: scf: r
000130: 65 74 09 09 09 3B 41 68 61 2C 20 66 6F 75 6E 64  et...;Aha, found
000140: 20 61 20 6C 65 74 74 65 72 2C 20 73 6F 20 65 78   a letter, so ex
000150: 69 74 0D 0A 0D 0A 09 3B 47 65 74 20 70 61 72 61  it.....;Get para
000160: 6D 65 74 65 72 0D 0A 0D 0A 2E 67 65 74 70 61 72  meter.....getpar
000170: 09 6C 64 20 68 6C 2C 72 65 61 64 69 6E 3A 20 6C  .ld hl,readin: l
000180: 64 20 64 65 2C 72 65 61 64 69 6E 2B 31 09 09 3B  d de,readin+1..;
000190: 43 6C 65 61 72 20 62 75 66 66 65 72 0D 0A 09 6C  Clear buffer...l
0001A0: 64 20 28 68 6C 29 2C 30 3A 20 6C 64 20 62 63 2C  d (hl),0: ld bc,
0001B0: 36 34 3A 20 6C 64 69 72 0D 0A 0D 0A 09 6C 64 20  64: ldir.....ld 
0001C0: 68 6C 2C 72 65 61 64 69 6E 3A 20 6C 64 20 62 2C  hl,readin: ld b,
0001D0: 30 0D 0A 09 6C 64 20 61 2C 28 69 78 29 3A 20 63  0...ld a,(ix): c
0001E0: 70 20 33 34 3A 20 6A 72 20 7A 2C 69 6E 76 63 6F  p 34: jr z,invco
0001F0: 6D 0D 0A 0D 0A 2E 67 65 74 70 72 6C 09 6C 64 20  m.....getprl.ld

Size : 512 (Real : 512)
000000: 2E 74 77 69 66 66 09 64 62 20 22 49 74 27 73 20  .twiff.db "It's 
000010: 74 77 69 66 66 69 63 21 22 2C 30 0D 0A 2E 61 61  twiffic!",0...aa
000020: 61 61 68 09 6C 64 20 62 2C 34 30 3A 20 6C 64 20  aah.ld b,40: ld 
000030: 61 2C 32 32 38 0D 0A 2E 61 61 68 6C 70 09 63 61  a,228...aahlp.ca
000040: 6C 6C 20 26 42 42 35 41 3A 20 64 6A 6E 7A 20 61  ll &BB5A: djnz a
000050: 61 68 6C 70 3A 20 20 20 63 61 6C 6C 20 63 72 6C  ahlp:   call crl
000060: 66 3A 20 70 6F 70 20 68 6C 3A 20 70 6F 70 20 62  f: pop hl: pop b
000070: 63 3A 20 6A 70 20 63 6C 69 63 5F 6C 0D 0A 2E 73  c: jp clic_l...s
000080: 74 73 09 6C 64 20 69 79 2C 6D 75 73 69 63 3A 20  ts.ld iy,music: 
000090: 6C 64 20 62 2C 39 0D 0A 2E 73 74 73 6C 70 09 6C  ld b,9...stslp.l
0000A0: 64 20 6C 2C 28 69 79 2B 30 29 3A 20 6C 64 20 68  d l,(iy+0): ld h
0000B0: 2C 28 69 79 2B 31 29 3A 20 6C 64 20 28 74 6F 6E  ,(iy+1): ld (ton
0000C0: 65 29 2C 68 6C 0D 0A 09 6C 64 20 6C 2C 28 69 79  e),hl...ld l,(iy
0000D0: 2B 32 29 3A 20 6C 64 20 68 2C 28 69 79 2B 33 29  +2): ld h,(iy+3)
0000E0: 3A 20 6C 64 20 28 6C 6F 6E 67 29 2C 68 6C 0D 0A  : ld (long),hl..
0000F0: 09 69 6E 63 20 69 79 3A 20 69 6E 63 20 69 79 3A  .inc iy: inc iy:
000100: 20 69 6E 63 20 69 79 3A 20 69 6E 63 20 69 79 0D   inc iy: inc iy.
000110: 0A 2E 73 74 72 79 09 70 75 73 68 20 62 63 3A 20  ..stry.push bc: 
000120: 6C 64 20 68 6C 2C 73 6F 75 6E 64 3A 20 63 61 6C  ld hl,sound: cal
000130: 6C 20 26 42 43 41 41 3A 20 70 6F 70 20 62 63 3A  l &BCAA: pop bc:
000140: 20 6A 72 20 6E 63 2C 73 74 72 79 0D 0A 09 64 6A   jr nc,stry...dj
000150: 6E 7A 20 73 74 73 6C 70 3A 20 70 6F 70 20 68 6C  nz stslp: pop hl
000160: 3A 20 70 6F 70 20 62 63 3A 20 6A 70 20 63 6C 69  : pop bc: jp cli
000170: 63 5F 6C 0D 0A 2E 73 6F 75 6E 64 09 64 62 20 32  c_l...sound.db 2
000180: 2C 30 2C 30 0D 0A 2E 74 6F 6E 65 09 64 77 20 30  ,0,0...tone.dw 0
000190: 3A 20 64 62 20 30 2C 31 35 0D 0A 2E 6C 6F 6E 67  : db 0,15...long
0001A0: 09 64 77 20 30 0D 0A 2E 6D 75 73 69 63 09 64 77  .dw 0...music.dw
0001B0: 20 34 37 38 2C 33 30 2C 20 33 37 39 2C 33 30 2C   478,30, 379,30,
0001C0: 20 33 31 39 2C 39 30 0D 0A 09 64 77 20 32 38 34   319,90...dw 284
0001D0: 2C 32 30 2C 20 33 31 39 2C 31 30 2C 20 33 35 38  ,20, 319,10, 358
0001E0: 2C 32 30 0D 0A 09 64 77 20 33 37 39 2C 31 30 2C  ,20...dw 379,10,
0001F0: 20 34 32 36 2C 33 30 2C 20 34 37 38 2C 36 30 0D   426,30, 478,60.

Size : 512 (Real : 512)
000000: 5F 69 3A 09 6A 70 20 73 74 64 65 5F 69 0D 0A 09  _i:.jp stde_i...
000010: 6A 70 20 73 74 68 6C 5F 69 3A 09 6A 70 20 73 74  jp sthl_i:.jp st
000020: 69 78 5F 69 3A 09 6A 70 20 73 74 69 79 5F 69 0D  ix_i:.jp stiy_i.
000030: 0A 0D 0A 09 6A 70 20 74 79 70 65 5F 69 3A 09 6A  ....jp type_i:.j
000040: 70 20 70 74 79 70 5F 69 3A 09 6A 70 20 69 6E 66  p ptyp_i:.jp inf
000050: 6F 5F 69 0D 0A 09 6A 70 20 68 6C 77 72 5F 69 3A  o_i...jp hlwr_i:
000060: 09 6A 70 20 68 6C 72 64 5F 69 0D 0A 09 6A 70 20  .jp hlrd_i...jp 
000070: 6C 6F 61 64 5F 69 3A 09 6A 70 20 64 70 72 6F 5F  load_i:.jp dpro_
000080: 69 0D 0A 0D 0A 09 6A 70 20 73 65 63 77 5F 69 3A  i.....jp secw_i:
000090: 09 6A 70 20 73 65 63 72 5F 69 0D 0A 09 6A 70 20  .jp secr_i...jp 
0000A0: 75 73 65 72 5F 69 3A 09 6A 70 20 63 61 74 6C 5F  user_i:.jp catl_
0000B0: 69 0D 0A 0D 0A 2E 6E 61 6D 65 5F 74 09 73 74 72  i.....name_t.str
0000C0: 20 22 43 4C 49 22 3A 09 73 74 72 20 22 45 58 45   "CLI":.str "EXE
0000D0: 43 22 0D 0A 09 73 74 72 20 22 4B 45 59 22 3A 09  C"...str "KEY":.
0000E0: 73 74 72 20 22 50 55 54 4B 45 59 22 0D 0A 0D 0A  str "PUTKEY"....
0000F0: 09 3B 53 63 72 65 65 6E 20 63 6F 6D 6D 61 6E 64  .;Screen command
000100: 73 0D 0A 0D 0A 09 73 74 72 20 22 45 44 49 54 22  s.....str "EDIT"
000110: 3A 09 73 74 72 20 22 44 4F 55 42 4C 45 22 3A 09  :.str "DOUBLE":.
000120: 73 74 72 20 22 57 52 49 54 45 22 0D 0A 09 73 74  str "WRITE"...st
000130: 72 20 22 4D 4F 44 45 22 3A 09 73 74 72 20 22 49  r "MODE":.str "I
000140: 4E 4B 22 3A 09 73 74 72 20 22 42 4F 52 44 45 52  NK":.str "BORDER
000150: 22 0D 0A 0D 0A 09 3B 34 36 34 20 63 6F 6D 6D 61  ".....;464 comma
000160: 6E 64 73 0D 0A 0D 0A 09 73 74 72 20 22 46 52 41  nds.....str "FRA
000170: 4D 45 22 3A 09 73 74 72 20 22 43 55 52 53 4F 52  ME":.str "CURSOR
000180: 22 3A 09 73 74 72 20 22 47 52 41 50 48 49 43 53  ":.str "GRAPHICS
000190: 2E 50 41 50 45 52 22 0D 0A 09 73 74 72 20 22 43  .PAPER"...str "C
0001A0: 4F 50 59 2E 43 48 52 22 3A 09 73 74 72 20 22 43  OPY.CHR":.str "C
0001B0: 4C 45 41 52 2E 49 4E 50 55 54 22 3A 20 73 74 72  LEAR.INPUT": str
0001C0: 20 22 47 52 41 50 48 49 43 53 2E 50 45 4E 22 0D   "GRAPHICS.PEN".
0001D0: 0A 0D 0A 09 3B 4D 65 6D 6F 72 79 20 63 6F 6D 6D  ....;Memory comm
0001E0: 61 6E 64 73 0D 0A 0D 0A 09 73 74 72 20 22 4D 45  ands.....str "ME
0001F0: 4D 4F 52 59 22 3A 09 73 74 72 20 22 44 55 4D 50  MORY":.str "DUMP

Size : 512 (Real : 512)
000000: 6C 64 20 61 2C 28 69 79 2B 30 29 3A 20 6F 72 20  ld a,(iy+0): or 
000010: 61 3A 20 72 72 20 61 3A 20 6C 64 20 28 69 79 2B  a: rr a: ld (iy+
000020: 30 29 2C 61 0D 0A 09 6C 64 20 61 2C 28 69 79 2B  0),a...ld a,(iy+
000030: 31 29 3A 20 6F 72 20 61 3A 20 72 72 20 61 3A 20  1): or a: rr a: 
000040: 6C 64 20 28 69 79 2B 31 29 2C 61 0D 0A 09 6C 64  ld (iy+1),a...ld
000050: 20 61 2C 28 69 79 2B 32 29 3A 20 6F 72 20 61 3A   a,(iy+2): or a:
000060: 20 72 72 20 61 3A 20 6C 64 20 28 69 79 2B 32 29   rr a: ld (iy+2)
000070: 2C 61 0D 0A 09 6C 64 20 61 2C 28 69 79 2B 33 29  ,a...ld a,(iy+3)
000080: 3A 20 6F 72 20 61 3A 20 72 72 20 61 3A 20 6C 64  : or a: rr a: ld
000090: 20 28 69 79 2B 33 29 2C 61 0D 0A 09 72 65 74 0D   (iy+3),a...ret.
0000A0: 0A 0D 0A 2E 77 5F 75 6E 64 65 09 6C 64 20 61 2C  ....w_unde.ld a,
0000B0: 32 35 35 3A 20 6C 64 20 28 69 79 2B 37 29 2C 61  255: ld (iy+7),a
0000C0: 3A 20 72 65 74 0D 0A 0D 0A 2E 77 5F 66 6C 69 70  : ret.....w_flip
0000D0: 09 6C 64 20 64 2C 28 69 79 2B 30 29 3A 20 6C 64  .ld d,(iy+0): ld
0000E0: 20 61 2C 28 69 79 2B 37 29 3A 20 6C 64 20 28 69   a,(iy+7): ld (i
0000F0: 79 2B 37 29 2C 64 3A 20 6C 64 20 28 69 79 2B 30  y+7),d: ld (iy+0
000100: 29 2C 61 0D 0A 09 6C 64 20 64 2C 28 69 79 2B 31  ),a...ld d,(iy+1
000110: 29 3A 20 6C 64 20 61 2C 28 69 79 2B 36 29 3A 20  ): ld a,(iy+6): 
000120: 6C 64 20 28 69 79 2B 36 29 2C 64 3A 20 6C 64 20  ld (iy+6),d: ld 
000130: 28 69 79 2B 31 29 2C 61 0D 0A 09 6C 64 20 64 2C  (iy+1),a...ld d,
000140: 28 69 79 2B 32 29 3A 20 6C 64 20 61 2C 28 69 79  (iy+2): ld a,(iy
000150: 2B 35 29 3A 20 6C 64 20 28 69 79 2B 35 29 2C 64  +5): ld (iy+5),d
000160: 3A 20 6C 64 20 28 69 79 2B 32 29 2C 61 0D 0A 09  : ld (iy+2),a...
000170: 6C 64 20 64 2C 28 69 79 2B 33 29 3A 20 6C 64 20  ld d,(iy+3): ld 
000180: 61 2C 28 69 79 2B 34 29 3A 20 6C 64 20 28 69 79  a,(iy+4): ld (iy
000190: 2B 34 29 2C 64 3A 20 6C 64 20 28 69 79 2B 33 29  +4),d: ld (iy+3)
0001A0: 2C 61 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  ,a...ret.....;**
0001B0: 2A 20 52 53 58 09 7C 44 4F 55 42 4C 45 2C 73 74  * RSX.|DOUBLE,st
0001C0: 72 69 6E 67 0D 0A 0D 0A 2E 64 6F 75 62 5F 69 09  ring.....doub_i.
0001D0: 63 70 20 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65  cp 1: jp nz,pare
0001E0: 72 72 0D 0A 09 6C 64 20 61 2C 32 35 34 3A 20 63  rr...ld a,254: c
0001F0: 61 6C 6C 20 26 42 42 41 35 3A 20 6A 70 20 6E 63  all &BBA5: jp nc

Size : 512 (Real : 512)
000000: 6F 72 64 5F 69 09 63 70 20 31 3A 20 6A 70 20 6E  ord_i.cp 1: jp n
000010: 7A 2C 70 61 72 65 72 72 3A 20 6C 64 20 62 2C 28  z,parerr: ld b,(
000020: 69 78 29 3A 20 6C 64 20 63 2C 62 3A 20 6A 70 20  ix): ld c,b: jp 
000030: 26 42 43 33 38 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52  &BC38.....;*** R
000040: 53 58 09 7C 57 52 49 54 45 2C 73 74 72 69 6E 67  SX.|WRITE,string
000050: 0D 0A 0D 0A 2E 77 72 69 74 5F 69 09 63 70 20 31  .....writ_i.cp 1
000060: 3A 20 6A 70 20 7A 20 2C 6F 6E 65 70 61 72 0D 0A  : jp z ,onepar..
000070: 09 63 70 20 32 3A 20 6A 70 20 6E 7A 2C 70 61 72  .cp 2: jp nz,par
000080: 65 72 72 0D 0A 09 6C 64 20 63 2C 28 69 78 2B 32  err...ld c,(ix+2
000090: 29 3A 20 6A 72 20 77 72 69 74 5F 64 0D 0A 2E 6F  ): jr writ_d...o
0000A0: 6E 65 70 61 72 09 6C 64 20 63 2C 30 0D 0A 0D 0A  nepar.ld c,0....
0000B0: 2E 77 72 69 74 5F 64 09 6C 64 20 61 2C 32 35 35  .writ_d.ld a,255
0000C0: 3A 20 63 61 6C 6C 20 26 42 42 41 35 3A 20 6A 70  : call &BBA5: jp
0000D0: 20 6E 63 2C 63 68 72 65 72 72 0D 0A 09 70 75 73   nc,chrerr...pus
0000E0: 68 20 68 6C 3A 20 70 6F 70 20 69 79 0D 0A 0D 0A  h hl: pop iy....
0000F0: 09 6C 64 20 6C 2C 28 69 78 29 3A 20 6C 64 20 68  .ld l,(ix): ld h
000100: 2C 28 69 78 2B 31 29 0D 0A 09 6C 64 20 62 2C 28  ,(ix+1)...ld b,(
000110: 68 6C 29 3A 20 69 6E 63 20 68 6C 0D 0A 09 6C 64  hl): inc hl...ld
000120: 20 65 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 0D   e,(hl): inc hl.
000130: 0A 09 6C 64 20 64 2C 28 68 6C 29 3A 20 70 75 73  ..ld d,(hl): pus
000140: 68 20 64 65 3A 20 70 6F 70 20 69 78 0D 0A 0D 0A  h de: pop ix....
000150: 09 6C 64 20 61 2C 62 3A 20 6F 72 20 61 3A 20 72  .ld a,b: or a: r
000160: 65 74 20 7A 0D 0A 0D 0A 2E 77 72 69 74 5F 6C 09  et z.....writ_l.
000170: 6C 64 20 61 2C 28 69 78 29 0D 0A 09 63 70 20 32  ld a,(ix)...cp 2
000180: 20 3A 20 6A 70 20 7A 2C 74 5F 62 6F 6C 64 0D 0A   : jp z,t_bold..
000190: 09 63 70 20 32 30 3A 20 6A 70 20 7A 2C 74 5F 74  .cp 20: jp z,t_t
0001A0: 68 69 6E 0D 0A 09 63 70 20 39 20 3A 20 6A 70 20  hin...cp 9 : jp 
0001B0: 7A 2C 74 5F 69 74 61 6C 0D 0A 09 63 70 20 32 31  z,t_ital...cp 21
0001C0: 3A 20 6A 70 20 7A 2C 74 5F 75 6E 64 65 0D 0A 09  : jp z,t_unde...
0001D0: 63 70 20 36 20 3A 20 6A 70 20 7A 2C 74 5F 66 6C  cp 6 : jp z,t_fl
0001E0: 69 70 0D 0A 0D 0A 09 63 61 6C 6C 20 26 42 42 41  ip.....call &BBA
0001F0: 35 3A 20 63 61 6C 6C 20 26 42 39 30 36 0D 0A 09  5: call &B906...

Size : 512 (Real : 512)
000000: 61 2C 28 69 78 29 09 09 09 09 3B 43 6F 70 79 20  a,(ix)....;Copy 
000010: 74 6F 20 22 72 65 61 64 20 69 6E 22 20 62 75 66  to "read in" buf
000020: 66 65 72 0D 0A 09 63 70 20 32 35 35 3A 20 72 65  fer...cp 255: re
000030: 74 20 7A 0D 0A 09 63 70 20 22 20 22 3A 20 6A 72  t z...cp " ": jr
000040: 20 7A 2C 65 78 69 6E 63 31 0D 0A 09 63 70 20 22   z,exinc1...cp "
000050: 2C 22 3A 20 6A 72 20 7A 2C 65 78 69 6E 63 31 0D  ,": jr z,exinc1.
000060: 0A 09 6C 64 20 28 68 6C 29 2C 61 3A 20 69 6E 63  ..ld (hl),a: inc
000070: 20 62 3A 20 69 6E 63 20 68 6C 3A 20 69 6E 63 20   b: inc hl: inc 
000080: 69 78 3A 20 6A 72 20 67 65 74 70 72 6C 0D 0A 0D  ix: jr getprl...
000090: 0A 2E 69 6E 76 63 6F 6D 09 69 6E 63 20 69 78 0D  ..invcom.inc ix.
0000A0: 0A 2E 69 6E 76 70 72 6C 09 6C 64 20 61 2C 28 69  ..invprl.ld a,(i
0000B0: 78 29 09 09 09 09 3B 51 75 6F 74 65 64 20 74 65  x)....;Quoted te
0000C0: 78 74 0D 0A 09 63 70 20 32 35 35 3A 20 72 65 74  xt...cp 255: ret
0000D0: 20 7A 0D 0A 09 63 70 20 33 34 20 3A 20 6A 72 20   z...cp 34 : jr 
0000E0: 7A 2C 65 78 69 6E 63 31 0D 0A 09 6C 64 20 28 68  z,exinc1...ld (h
0000F0: 6C 29 2C 61 3A 20 69 6E 63 20 62 3A 20 69 6E 63  l),a: inc b: inc
000100: 20 68 6C 3A 20 69 6E 63 20 69 78 3A 20 6A 72 20   hl: inc ix: jr 
000110: 69 6E 76 70 72 6C 0D 0A 0D 0A 2E 65 78 69 6E 63  invprl.....exinc
000120: 31 09 69 6E 63 20 69 78 3A 20 6C 64 20 61 2C 28  1.inc ix: ld a,(
000130: 69 78 29 09 09 09 3B 52 65 6D 6F 76 65 20 65 78  ix)...;Remove ex
000140: 63 65 73 73 20 73 70 61 63 65 0D 0A 09 63 70 20  cess space...cp 
000150: 32 35 35 3A 20 72 65 74 20 7A 0D 0A 09 63 70 20  255: ret z...cp 
000160: 22 20 22 3A 20 6A 72 20 7A 2C 65 78 69 6E 63 31  " ": jr z,exinc1
000170: 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 72 65 61 64 69  ...ret.....readi
000180: 6E 09 64 73 20 36 35 09 09 09 09 09 3B 57 68 65  n.ds 65.....;Whe
000190: 72 65 20 74 68 65 20 70 61 72 61 6D 65 74 65 72  re the parameter
0001A0: 20 69 73 20 72 65 61 64 20 69 6E 0D 0A 0D 0A 2E   is read in.....
0001B0: 70 61 72 62 75 66 09 64 73 20 36 35 09 09 09 09  parbuf.ds 65....
0001C0: 09 3B 50 61 72 61 6D 65 74 65 72 20 62 75 66 66  .;Parameter buff
0001D0: 65 72 20 28 49 58 29 0D 0A 2E 64 65 73 62 75 66  er (IX)...desbuf
0001E0: 09 64 73 20 39 36 09 09 09 09 09 3B 53 74 72 69  .ds 96.....;Stri
0001F0: 6E 67 20 64 65 73 63 72 69 70 74 6F 72 20 62 75  ng descriptor bu

Size : 512 (Real : 512)
000000: 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28 69  ld a,(hl): ld (i
000010: 79 2B 30 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  y+0),a: inc hl..
000020: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
000030: 69 79 2B 31 29 2C 61 3A 20 69 6E 63 20 68 6C 0D  iy+1),a: inc hl.
000040: 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20  ..ld a,(hl): ld 
000050: 28 69 79 2B 32 29 2C 61 3A 20 69 6E 63 20 68 6C  (iy+2),a: inc hl
000060: 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64  ...ld a,(hl): ld
000070: 20 28 69 79 2B 33 29 2C 61 3A 20 69 6E 63 20 68   (iy+3),a: inc h
000080: 6C 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C  l...ld a,(hl): l
000090: 64 20 28 69 79 2B 34 29 2C 61 3A 20 69 6E 63 20  d (iy+4),a: inc 
0000A0: 68 6C 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20  hl...ld a,(hl): 
0000B0: 6C 64 20 28 69 79 2B 35 29 2C 61 3A 20 69 6E 63  ld (iy+5),a: inc
0000C0: 20 68 6C 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A   hl...ld a,(hl):
0000D0: 20 6C 64 20 28 69 79 2B 36 29 2C 61 3A 20 69 6E   ld (iy+6),a: in
0000E0: 63 20 68 6C 0D 0A 09 6C 64 20 61 2C 28 68 6C 29  c hl...ld a,(hl)
0000F0: 3A 20 6C 64 20 28 69 79 2B 37 29 2C 61 3A 20 63  : ld (iy+7),a: c
000100: 61 6C 6C 20 26 42 39 30 39 0D 0A 0D 0A 09 62 69  all &B909.....bi
000110: 74 20 30 2C 63 3A 20 63 61 6C 6C 20 6E 7A 2C 77  t 0,c: call nz,w
000120: 5F 62 6F 6C 64 0D 0A 09 62 69 74 20 31 2C 63 3A  _bold...bit 1,c:
000130: 20 63 61 6C 6C 20 6E 7A 2C 77 5F 74 68 69 6E 0D   call nz,w_thin.
000140: 0A 09 62 69 74 20 32 2C 63 3A 20 63 61 6C 6C 20  ..bit 2,c: call 
000150: 6E 7A 2C 77 5F 69 74 61 6C 0D 0A 09 62 69 74 20  nz,w_ital...bit 
000160: 33 2C 63 3A 20 63 61 6C 6C 20 6E 7A 2C 77 5F 75  3,c: call nz,w_u
000170: 6E 64 65 0D 0A 09 62 69 74 20 34 2C 63 3A 20 63  nde...bit 4,c: c
000180: 61 6C 6C 20 6E 7A 2C 77 5F 66 6C 69 70 0D 0A 09  all nz,w_flip...
000190: 6C 64 20 61 2C 32 35 35 3A 20 63 61 6C 6C 20 26  ld a,255: call &
0001A0: 42 42 35 41 0D 0A 0D 0A 2E 77 72 69 74 5F 63 09  BB5A.....writ_c.
0001B0: 69 6E 63 20 69 78 3A 20 64 65 63 20 62 3A 20 6A  inc ix: dec b: j
0001C0: 70 20 6E 7A 2C 77 72 69 74 5F 6C 0D 0A 09 6A 70  p nz,writ_l...jp
0001D0: 20 63 72 6C 66 0D 0A 0D 0A 2E 74 5F 62 6F 6C 64   crlf.....t_bold
0001E0: 09 6C 64 20 61 2C 63 3A 20 78 6F 72 20 20 31 3A  .ld a,c: xor  1:
0001F0: 20 6C 64 20 63 2C 61 3A 20 6A 70 20 77 72 69 74   ld c,a: jp writ

Size : 512 (Real : 512)
000000: 66 66 65 72 0D 0A 2E 73 74 72 62 75 66 09 64 73  ffer...strbuf.ds
000010: 20 36 35 09 09 09 09 09 3B 41 63 74 75 61 6C 20   65.....;Actual 
000020: 73 74 72 69 6E 67 20 62 75 66 66 65 72 0D 0A 2E  string buffer...
000030: 63 62 75 66 66 09 64 73 20 36 35 09 09 09 09 09  cbuff.ds 65.....
000040: 3B 49 6E 70 75 74 20 62 75 66 66 65 72 0D 0A 0D  ;Input buffer...
000050: 0A 2E 70 61 72 70 6F 73 09 64 77 20 70 61 72 62  ..parpos.dw parb
000060: 75 66 2B 36 34 09 09 09 09 3B 43 75 72 72 65 6E  uf+64....;Curren
000070: 74 20 70 6F 73 69 74 69 6F 6E 20 69 6E 20 70 61  t position in pa
000080: 72 62 75 66 0D 0A 2E 64 65 73 70 6F 73 09 64 77  rbuf...despos.dw
000090: 20 64 65 73 62 75 66 09 09 09 09 3B 43 75 72 72   desbuf....;Curr
0000A0: 65 6E 74 20 70 6F 73 69 74 69 6F 6E 20 69 6E 20  ent position in 
0000B0: 64 65 73 62 75 66 0D 0A 2E 73 74 72 70 6F 73 09  desbuf...strpos.
0000C0: 64 77 20 73 74 72 62 75 66 09 09 09 09 3B 43 75  dw strbuf....;Cu
0000D0: 72 72 65 6E 74 20 70 6F 73 69 74 69 6F 6E 20 69  rrent position i
0000E0: 6E 20 73 74 72 62 75 66 0D 0A 0D 0A 2E 72 73 78  n strbuf.....rsx
0000F0: 66 61 72 09 64 73 20 33 09 09 09 09 09 3B 53 70  far.ds 3.....;Sp
000100: 61 63 65 20 66 6F 72 20 46 41 52 20 43 41 4C 4C  ace for FAR CALL
000110: 20 61 64 64 72 65 73 73 0D 0A 2E 62 72 6B 74 78   address...brktx
000120: 74 09 64 62 20 22 2A 42 72 65 61 6B 2A 22 2C 30  t.db "*Break*",0
000130: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 45  .....;*** RSX.|E
000140: 58 45 43 2C 66 69 6C 65 6E 61 6D 65 24 0D 0A 0D  XEC,filename$...
000150: 0A 2E 65 78 65 63 5F 69 09 63 70 20 30 3A 20 6A  ..exec_i.cp 0: j
000160: 72 20 7A 20 2C 65 78 65 63 30 0D 0A 09 63 70 20  r z ,exec0...cp 
000170: 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72 0D  1: jp nz,parerr.
000180: 0A 0D 0A 09 6C 64 20 6C 2C 28 69 78 29 3A 20 6C  ....ld l,(ix): l
000190: 64 20 68 2C 28 69 78 2B 31 29 0D 0A 09 6C 64 20  d h,(ix+1)...ld 
0001A0: 62 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 0D 0A  b,(hl): inc hl..
0001B0: 09 6C 64 20 65 2C 28 68 6C 29 3A 20 69 6E 63 20  .ld e,(hl): inc 
0001C0: 68 6C 0D 0A 09 6C 64 20 64 2C 28 68 6C 29 3A 20  hl...ld d,(hl): 
0001D0: 69 6E 63 20 68 6C 0D 0A 09 6A 72 20 65 78 65 63  inc hl...jr exec
0001E0: 5F 6F 0D 0A 0D 0A 2E 65 78 65 63 30 09 6C 64 20  _o.....exec0.ld 
0001F0: 68 6C 2C 64 65 66 61 75 6C 74 3A 20 6C 64 20 62  hl,default: ld b

Size : 512 (Real : 512)
000000: 5F 63 0D 0A 2E 74 5F 74 68 69 6E 09 6C 64 20 61  _c...t_thin.ld a
000010: 2C 63 3A 20 78 6F 72 20 20 32 3A 20 6C 64 20 63  ,c: xor  2: ld c
000020: 2C 61 3A 20 6A 70 20 77 72 69 74 5F 63 0D 0A 2E  ,a: jp writ_c...
000030: 74 5F 69 74 61 6C 09 6C 64 20 61 2C 63 3A 20 78  t_ital.ld a,c: x
000040: 6F 72 20 20 34 3A 20 6C 64 20 63 2C 61 3A 20 6A  or  4: ld c,a: j
000050: 70 20 77 72 69 74 5F 63 0D 0A 2E 74 5F 75 6E 64  p writ_c...t_und
000060: 65 09 6C 64 20 61 2C 63 3A 20 78 6F 72 20 20 38  e.ld a,c: xor  8
000070: 3A 20 6C 64 20 63 2C 61 3A 20 6A 70 20 77 72 69  : ld c,a: jp wri
000080: 74 5F 63 0D 0A 2E 74 5F 66 6C 69 70 09 6C 64 20  t_c...t_flip.ld 
000090: 61 2C 63 3A 20 78 6F 72 20 31 36 3A 20 6C 64 20  a,c: xor 16: ld 
0000A0: 63 2C 61 3A 20 6A 70 20 77 72 69 74 5F 63 0D 0A  c,a: jp writ_c..
0000B0: 0D 0A 2E 77 5F 62 6F 6C 64 09 6C 64 20 61 2C 28  ...w_bold.ld a,(
0000C0: 69 79 2B 30 29 3A 20 6F 72 20 61 3A 20 72 72 20  iy+0): or a: rr 
0000D0: 61 3A 20 6F 72 20 28 69 79 2B 30 29 3A 20 6C 64  a: or (iy+0): ld
0000E0: 20 28 69 79 2B 30 29 2C 61 0D 0A 09 6C 64 20 61   (iy+0),a...ld a
0000F0: 2C 28 69 79 2B 31 29 3A 20 6F 72 20 61 3A 20 72  ,(iy+1): or a: r
000100: 72 20 61 3A 20 6F 72 20 28 69 79 2B 31 29 3A 20  r a: or (iy+1): 
000110: 6C 64 20 28 69 79 2B 31 29 2C 61 0D 0A 09 6C 64  ld (iy+1),a...ld
000120: 20 61 2C 28 69 79 2B 32 29 3A 20 6F 72 20 61 3A   a,(iy+2): or a:
000130: 20 72 72 20 61 3A 20 6F 72 20 28 69 79 2B 32 29   rr a: or (iy+2)
000140: 3A 20 6C 64 20 28 69 79 2B 32 29 2C 61 0D 0A 09  : ld (iy+2),a...
000150: 6C 64 20 61 2C 28 69 79 2B 33 29 3A 20 6F 72 20  ld a,(iy+3): or 
000160: 61 3A 20 72 72 20 61 3A 20 6F 72 20 28 69 79 2B  a: rr a: or (iy+
000170: 33 29 3A 20 6C 64 20 28 69 79 2B 33 29 2C 61 0D  3): ld (iy+3),a.
000180: 0A 09 6C 64 20 61 2C 28 69 79 2B 34 29 3A 20 6F  ..ld a,(iy+4): o
000190: 72 20 61 3A 20 72 72 20 61 3A 20 6F 72 20 28 69  r a: rr a: or (i
0001A0: 79 2B 34 29 3A 20 6C 64 20 28 69 79 2B 34 29 2C  y+4): ld (iy+4),
0001B0: 61 0D 0A 09 6C 64 20 61 2C 28 69 79 2B 35 29 3A  a...ld a,(iy+5):
0001C0: 20 6F 72 20 61 3A 20 72 72 20 61 3A 20 6F 72 20   or a: rr a: or 
0001D0: 28 69 79 2B 35 29 3A 20 6C 64 20 28 69 79 2B 35  (iy+5): ld (iy+5
0001E0: 29 2C 61 0D 0A 09 6C 64 20 61 2C 28 69 79 2B 36  ),a...ld a,(iy+6
0001F0: 29 3A 20 6F 72 20 61 3A 20 72 72 20 61 3A 20 6F  ): or a: rr a: o

Size : 512 (Real : 512)
000000: 2C 39 0D 0A 0D 0A 2E 65 78 65 63 5F 6F 09 6C 64  ,9.....exec_o.ld
000010: 20 64 65 2C 62 75 66 66 65 72 0D 0A 09 63 61 6C   de,buffer...cal
000020: 6C 20 26 42 43 37 37 3A 20 6A 70 20 6E 63 2C 65  l &BC77: jp nc,e
000030: 72 72 6F 72 0D 0A 0D 0A 2E 65 78 65 63 6F 6C 09  rror.....execol.
000040: 6C 64 20 69 79 2C 63 62 75 66 66 3A 20 6C 64 20  ld iy,cbuff: ld 
000050: 62 2C 30 0D 0A 2E 65 78 65 63 69 6C 09 63 61 6C  b,0...execil.cal
000060: 6C 20 26 42 43 38 30 3A 20 6A 70 20 6E 63 2C 65  l &BC80: jp nc,e
000070: 78 63 65 6F 66 0D 0A 09 63 70 20 31 33 20 20 3A  xceof...cp 13  :
000080: 20 6A 72 20 7A 20 2C 70 72 6F 63 63 72 0D 0A 09   jr z ,proccr...
000090: 63 70 20 31 30 20 20 3A 20 6A 72 20 7A 20 2C 64  cp 10  : jr z ,d
0000A0: 65 61 6C 74 77 0D 0A 09 63 70 20 22 5E 22 20 3A  ealtw...cp "^" :
0000B0: 20 6A 72 20 7A 20 2C 63 6F 6E 74 72 6C 0D 0A 09   jr z ,contrl...
0000C0: 62 69 74 20 36 2C 62 3A 20 6A 72 20 6E 7A 2C 64  bit 6,b: jr nz,d
0000D0: 65 61 6C 74 77 0D 0A 2E 64 65 61 6C 09 6C 64 20  ealtw...deal.ld 
0000E0: 28 69 79 29 2C 61 3A 20 69 6E 63 20 69 79 3A 20  (iy),a: inc iy: 
0000F0: 69 6E 63 20 62 0D 0A 2E 64 65 61 6C 74 77 09 63  inc b...dealtw.c
000100: 70 20 31 30 20 20 3A 20 6A 72 20 6E 7A 2C 65 78  p 10  : jr nz,ex
000110: 65 63 69 6C 0D 0A 09 63 61 6C 6C 20 63 6C 69 5F  ecil...call cli_
000120: 64 6F 0D 0A 09 6A 72 20 65 78 65 63 6F 6C 0D 0A  do...jr execol..
000130: 0D 0A 2E 65 78 63 65 6F 66 09 63 61 6C 6C 20 26  ...exceof.call &
000140: 42 43 37 41 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 63  BC7A...ret.....c
000150: 6F 6E 74 72 6C 09 63 61 6C 6C 20 26 42 43 38 30  ontrl.call &BC80
000160: 3A 20 6A 70 20 6E 63 2C 65 78 63 65 6F 66 3A 20  : jp nc,exceof: 
000170: 61 6E 64 20 33 31 3A 20 6A 70 20 64 65 61 6C 09  and 31: jp deal.
000180: 3B 48 61 6E 64 6C 65 20 63 6F 6E 74 72 6F 6C 20  ;Handle control 
000190: 63 6F 64 65 73 0D 0A 2E 70 72 6F 63 63 72 09 6C  codes...proccr.l
0001A0: 64 20 61 2C 32 35 35 3A 20 6A 70 20 64 65 61 6C  d a,255: jp deal
0001B0: 09 09 09 09 3B 48 61 6E 64 6C 65 20 63 61 72 72  ....;Handle carr
0001C0: 69 61 67 65 20 72 65 74 75 72 6E 0D 0A 0D 0A 2E  iage return.....
0001D0: 64 65 66 61 75 6C 74 20 64 62 20 22 23 45 58 45  default db "#EXE
0001E0: 43 2E 42 41 54 22 0D 0A 0D 0A 09 3B 2A 2A 2A 20  C.BAT".....;*** 
0001F0: 52 53 58 09 7C 4B 45 59 2C 74 6F 6B 65 6E 2C 73  RSX.|KEY,token,s

Size : 512 (Real : 512)
000000: 72 20 28 69 79 2B 36 29 3A 20 6C 64 20 28 69 79  r (iy+6): ld (iy
000010: 2B 36 29 2C 61 0D 0A 09 6C 64 20 61 2C 28 69 79  +6),a...ld a,(iy
000020: 2B 37 29 3A 20 6F 72 20 61 3A 20 72 72 20 61 3A  +7): or a: rr a:
000030: 20 6F 72 20 28 69 79 2B 37 29 3A 20 6C 64 20 28   or (iy+7): ld (
000040: 69 79 2B 37 29 2C 61 0D 0A 09 72 65 74 0D 0A 0D  iy+7),a...ret...
000050: 0A 2E 77 5F 74 68 69 6E 09 6C 64 20 61 2C 28 69  ..w_thin.ld a,(i
000060: 79 2B 30 29 3A 20 6F 72 20 61 3A 20 72 72 20 61  y+0): or a: rr a
000070: 3A 20 61 6E 64 20 28 69 79 2B 30 29 3A 20 6C 64  : and (iy+0): ld
000080: 20 28 69 79 2B 30 29 2C 61 0D 0A 09 6C 64 20 61   (iy+0),a...ld a
000090: 2C 28 69 79 2B 31 29 3A 20 6F 72 20 61 3A 20 72  ,(iy+1): or a: r
0000A0: 72 20 61 3A 20 61 6E 64 20 28 69 79 2B 31 29 3A  r a: and (iy+1):
0000B0: 20 6C 64 20 28 69 79 2B 31 29 2C 61 0D 0A 09 6C   ld (iy+1),a...l
0000C0: 64 20 61 2C 28 69 79 2B 32 29 3A 20 6F 72 20 61  d a,(iy+2): or a
0000D0: 3A 20 72 72 20 61 3A 20 61 6E 64 20 28 69 79 2B  : rr a: and (iy+
0000E0: 32 29 3A 20 6C 64 20 28 69 79 2B 32 29 2C 61 0D  2): ld (iy+2),a.
0000F0: 0A 09 6C 64 20 61 2C 28 69 79 2B 33 29 3A 20 6F  ..ld a,(iy+3): o
000100: 72 20 61 3A 20 72 72 20 61 3A 20 61 6E 64 20 28  r a: rr a: and (
000110: 69 79 2B 33 29 3A 20 6C 64 20 28 69 79 2B 33 29  iy+3): ld (iy+3)
000120: 2C 61 0D 0A 09 6C 64 20 61 2C 28 69 79 2B 34 29  ,a...ld a,(iy+4)
000130: 3A 20 6F 72 20 61 3A 20 72 72 20 61 3A 20 61 6E  : or a: rr a: an
000140: 64 20 28 69 79 2B 34 29 3A 20 6C 64 20 28 69 79  d (iy+4): ld (iy
000150: 2B 34 29 2C 61 0D 0A 09 6C 64 20 61 2C 28 69 79  +4),a...ld a,(iy
000160: 2B 35 29 3A 20 6F 72 20 61 3A 20 72 72 20 61 3A  +5): or a: rr a:
000170: 20 61 6E 64 20 28 69 79 2B 35 29 3A 20 6C 64 20   and (iy+5): ld 
000180: 28 69 79 2B 35 29 2C 61 0D 0A 09 6C 64 20 61 2C  (iy+5),a...ld a,
000190: 28 69 79 2B 36 29 3A 20 6F 72 20 61 3A 20 72 72  (iy+6): or a: rr
0001A0: 20 61 3A 20 61 6E 64 20 28 69 79 2B 36 29 3A 20   a: and (iy+6): 
0001B0: 6C 64 20 28 69 79 2B 36 29 2C 61 0D 0A 09 6C 64  ld (iy+6),a...ld
0001C0: 20 61 2C 28 69 79 2B 37 29 3A 20 6F 72 20 61 3A   a,(iy+7): or a:
0001D0: 20 72 72 20 61 3A 20 61 6E 64 20 28 69 79 2B 37   rr a: and (iy+7
0001E0: 29 3A 20 6C 64 20 28 69 79 2B 37 29 2C 61 0D 0A  ): ld (iy+7),a..
0001F0: 09 72 65 74 0D 0A 0D 0A 2E 77 5F 69 74 61 6C 09  .ret.....w_ital.

Size : 512 (Real : 512)
000000: 74 72 69 6E 67 0D 0A 0D 0A 2E 6B 65 79 63 5F 69  tring.....keyc_i
000010: 09 63 70 20 32 3A 20 6A 70 20 6E 7A 2C 70 61 72  .cp 2: jp nz,par
000020: 65 72 72 0D 0A 09 6C 64 20 6C 2C 28 69 78 29 3A  err...ld l,(ix):
000030: 20 6C 64 20 68 2C 28 69 78 2B 31 29 0D 0A 09 6C   ld h,(ix+1)...l
000040: 64 20 63 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C  d c,(hl): inc hl
000050: 0D 0A 09 6C 64 20 65 2C 28 68 6C 29 3A 20 69 6E  ...ld e,(hl): in
000060: 63 20 68 6C 0D 0A 09 6C 64 20 64 2C 28 68 6C 29  c hl...ld d,(hl)
000070: 3A 20 65 78 20 64 65 2C 68 6C 0D 0A 09 6C 64 20  : ex de,hl...ld 
000080: 62 2C 28 69 78 2B 32 29 3A 20 63 61 6C 6C 20 26  b,(ix+2): call &
000090: 42 42 30 46 0D 0A 09 6A 70 20 6E 63 2C 6B 65 79  BB0F...jp nc,key
0000A0: 65 72 72 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  err: ret.....;**
0000B0: 2A 20 52 53 58 09 7C 50 55 54 4B 45 59 2C 63 68  * RSX.|PUTKEY,ch
0000C0: 61 72 61 63 74 65 72 0D 0A 0D 0A 2E 70 75 74 6B  aracter.....putk
0000D0: 5F 69 09 63 70 20 31 3A 20 6A 70 20 6E 7A 2C 70  _i.cp 1: jp nz,p
0000E0: 61 72 65 72 72 0D 0A 09 6C 64 20 6C 2C 28 69 78  arerr...ld l,(ix
0000F0: 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29 0D 0A  ): ld h,(ix+1)..
000100: 09 6C 64 20 61 2C 68 3A 20 6F 72 20 61 3A 20 6C  .ld a,h: or a: l
000110: 64 20 61 2C 6C 3A 20 6A 70 20 7A 2C 26 42 42 30  d a,l: jp z,&BB0
000120: 43 0D 0A 0D 0A 09 69 6E 63 20 68 6C 3A 20 6C 64  C.....inc hl: ld
000130: 20 65 2C 28 68 6C 29 0D 0A 09 69 6E 63 20 68 6C   e,(hl)...inc hl
000140: 3A 20 6C 64 20 64 2C 28 68 6C 29 0D 0A 09 6C 64  : ld d,(hl)...ld
000150: 20 61 2C 28 64 65 29 3A 20 6A 70 20 26 42 42 30   a,(de): jp &BB0
000160: 43 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C  C.....;*** RSX.|
000170: 4D 4F 44 45 2C 20 7C 49 4E 4B 2C 20 7C 42 4F 52  MODE, |INK, |BOR
000180: 44 45 52 0D 0A 0D 0A 2E 6D 6F 64 65 5F 69 09 63  DER.....mode_i.c
000190: 70 20 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72  p 1: jp nz,parer
0001A0: 72 3A 20 6C 64 20 61 2C 28 69 78 29 3A 20 6A 70  r: ld a,(ix): jp
0001B0: 20 26 42 43 30 45 0D 0A 2E 69 6E 6B 63 5F 69 09   &BC0E...inkc_i.
0001C0: 63 70 20 32 3A 20 6A 70 20 6E 7A 2C 70 61 72 65  cp 2: jp nz,pare
0001D0: 72 72 3A 20 6C 64 20 61 2C 28 69 78 2B 32 29 3A  rr: ld a,(ix+2):
0001E0: 20 6C 64 20 62 2C 28 69 78 29 3A 20 6C 64 20 63   ld b,(ix): ld c
0001F0: 2C 62 3A 20 6A 70 20 26 42 43 33 32 0D 0A 2E 62  ,b: jp &BC32...b

Size : 512 (Real : 512)
000000: 61 2C 30 3A 20 63 61 6C 6C 20 26 42 42 39 36 0D  a,0: call &BB96.
000010: 0A 09 70 6F 70 20 69 78 0D 0A 0D 0A 09 70 75 73  ..pop ix.....pus
000020: 68 20 69 78 3A 20 6C 64 20 63 2C 38 0D 0A 2E 67  h ix: ld c,8...g
000030: 63 5F 6F 6C 70 09 20 6C 64 20 64 2C 28 69 78 29  c_olp. ld d,(ix)
000040: 3A 20 6C 64 20 62 2C 38 0D 0A 2E 67 63 5F 69 6C  : ld b,8...gc_il
000050: 70 09 20 72 6C 20 64 3A 20 6C 64 20 61 2C 22 20  p. rl d: ld a," 
000060: 22 3A 20 6A 72 20 6E 63 2C 67 6F 74 63 68 72 0D  ": jr nc,gotchr.
000070: 0A 09 20 6C 64 20 61 2C 32 33 33 0D 0A 2E 67 6F  .. ld a,233...go
000080: 74 63 68 72 09 20 63 61 6C 6C 20 26 42 42 35 41  tchr. call &BB5A
000090: 3A 20 64 6A 6E 7A 20 67 63 5F 69 6C 70 0D 0A 09  : djnz gc_ilp...
0000A0: 20 63 61 6C 6C 20 63 72 6C 66 20 3A 20 69 6E 63   call crlf : inc
0000B0: 20 69 78 3A 20 64 65 63 20 63 3A 20 6A 72 20 6E   ix: dec c: jr n
0000C0: 7A 2C 67 63 5F 6F 6C 70 0D 0A 09 70 6F 70 20 69  z,gc_olp...pop i
0000D0: 78 0D 0A 0D 0A 09 70 75 73 68 20 69 78 0D 0A 09  x.....push ix...
0000E0: 20 6C 64 20 68 6C 2C 26 30 31 30 31 3A 20 6C 64   ld hl,&0101: ld
0000F0: 20 64 2C 31 32 38 0D 0A 2E 65 6B 65 79 6C 70 09   d,128...ekeylp.
000100: 20 70 75 73 68 20 68 6C 3A 20 63 61 6C 6C 20 26   push hl: call &
000110: 42 42 37 35 3A 20 63 61 6C 6C 20 26 42 42 38 41  BB75: call &BB8A
000120: 3A 20 70 6F 70 20 68 6C 0D 0A 09 20 63 61 6C 6C  : pop hl... call
000130: 20 26 42 42 30 36 0D 0A 09 20 70 75 73 68 20 61   &BB06... push a
000140: 66 3A 20 63 61 6C 6C 20 26 42 42 38 41 3A 20 70  f: call &BB8A: p
000150: 6F 70 20 61 66 0D 0A 09 20 63 70 20 31 33 20 3A  op af... cp 13 :
000160: 20 6A 72 20 7A 2C 65 5F 65 78 69 74 0D 0A 09 20   jr z,e_exit... 
000170: 63 70 20 32 32 34 3A 20 6A 72 20 7A 2C 65 5F 69  cp 224: jr z,e_i
000180: 6E 76 74 0D 0A 09 20 63 70 20 32 34 30 3A 20 6A  nvt... cp 240: j
000190: 72 20 7A 2C 65 5F 75 70 0D 0A 09 20 63 70 20 32  r z,e_up... cp 2
0001A0: 34 31 3A 20 6A 72 20 7A 2C 65 5F 64 6F 77 6E 0D  41: jr z,e_down.
0001B0: 0A 09 20 63 70 20 32 34 32 3A 20 6A 72 20 7A 2C  .. cp 242: jr z,
0001C0: 65 5F 6C 65 66 74 0D 0A 09 20 63 70 20 32 34 33  e_left... cp 243
0001D0: 3A 20 6A 72 20 7A 2C 65 5F 72 67 68 74 0D 0A 09  : jr z,e_rght...
0001E0: 20 6A 72 20 65 6B 65 79 6C 70 0D 0A 0D 0A 2E 65   jr ekeylp.....e
0001F0: 5F 75 70 09 20 6C 64 20 61 2C 6C 3A 20 63 70 20  _up. ld a,l: cp

Size : 512 (Real : 512)
000000: 79 6E 63 0D 0A 0D 0A 2E 68 6C 77 72 5F 69 09 63  ync.....hlwr_i.c
000010: 70 20 33 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72  p 3: jp nz,parer
000020: 72 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B 34 29 3A  r...ld l,(ix+4):
000030: 20 6C 64 20 68 2C 28 69 78 2B 35 29 0D 0A 09 6C   ld h,(ix+5)...l
000040: 64 20 65 2C 28 69 78 2B 32 29 3A 20 6C 64 20 64  d e,(ix+2): ld d
000050: 2C 28 69 78 2B 33 29 0D 0A 09 6C 64 20 61 2C 28  ,(ix+3)...ld a,(
000060: 69 78 2B 30 29 3A 20 63 61 6C 6C 20 26 42 43 39  ix+0): call &BC9
000070: 45 0D 0A 09 72 65 74 20 63 0D 0A 0D 0A 09 63 70  E...ret c.....cp
000080: 20 30 3A 20 6A 70 20 7A 2C 65 73 63 65 72 72 0D   0: jp z,escerr.
000090: 0A 09 63 70 20 31 3A 20 6A 70 20 7A 2C 6F 76 72  ..cp 1: jp z,ovr
0000A0: 65 72 72 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A  err...ret.....;*
0000B0: 2A 2A 20 52 53 58 09 7C 48 4C 2E 52 45 41 44 2C  ** RSX.|HL.READ,
0000C0: 73 6F 75 72 63 65 2C 6C 65 6E 67 74 68 2C 73 79  source,length,sy
0000D0: 6E 63 0D 0A 0D 0A 2E 68 6C 72 64 5F 69 09 63 70  nc.....hlrd_i.cp
0000E0: 20 33 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72   3: jp nz,parerr
0000F0: 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B 34 29 3A 20  ...ld l,(ix+4): 
000100: 6C 64 20 68 2C 28 69 78 2B 35 29 0D 0A 09 6C 64  ld h,(ix+5)...ld
000110: 20 65 2C 28 69 78 2B 32 29 3A 20 6C 64 20 64 2C   e,(ix+2): ld d,
000120: 28 69 78 2B 33 29 0D 0A 09 6C 64 20 61 2C 28 69  (ix+3)...ld a,(i
000130: 78 2B 30 29 3A 20 63 61 6C 6C 20 26 42 43 41 31  x+0): call &BCA1
000140: 0D 0A 09 72 65 74 20 63 0D 0A 0D 0A 09 63 70 20  ...ret c.....cp 
000150: 30 3A 20 6A 70 20 7A 2C 65 73 63 65 72 72 0D 0A  0: jp z,escerr..
000160: 09 63 70 20 31 3A 20 6A 70 20 7A 2C 6F 76 72 65  .cp 1: jp z,ovre
000170: 72 72 0D 0A 09 63 70 20 32 3A 20 6A 70 20 7A 2C  rr...cp 2: jp z,
000180: 63 72 63 65 72 72 0D 0A 09 72 65 74 0D 0A 0D 0A  crcerr...ret....
000190: 09 3B 2A 2A 2A 20 52 53 58 09 7C 55 53 45 52 2C  .;*** RSX.|USER,
0001A0: 6E 0D 0A 0D 0A 2E 75 73 65 72 5F 69 09 63 70 20  n.....user_i.cp 
0001B0: 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72 0D  1: jp nz,parerr.
0001C0: 0A 09 6C 64 20 68 6C 2C 28 26 42 45 37 44 29 3A  ..ld hl,(&BE7D):
0001D0: 20 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 61 2C 28   inc hl...ld a,(
0001E0: 69 78 29 3A 20 6C 64 20 28 68 6C 29 2C 61 0D 0A  ix): ld (hl),a..
0001F0: 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53  .ret.....;*** RS

Size : 512 (Real : 512)
000000: 31 3A 20 6A 72 20 7A 2C 65 6B 65 79 6C 70 3A 20  1: jr z,ekeylp: 
000010: 64 65 63 20 6C 3A 20 64 65 63 20 69 78 3A 20 6A  dec l: dec ix: j
000020: 72 20 65 6B 65 79 6C 70 0D 0A 2E 65 5F 64 6F 77  r ekeylp...e_dow
000030: 6E 09 20 6C 64 20 61 2C 6C 3A 20 63 70 20 38 3A  n. ld a,l: cp 8:
000040: 20 6A 72 20 7A 2C 65 6B 65 79 6C 70 3A 20 69 6E   jr z,ekeylp: in
000050: 63 20 6C 3A 20 69 6E 63 20 69 78 3A 20 6A 72 20  c l: inc ix: jr 
000060: 65 6B 65 79 6C 70 0D 0A 2E 65 5F 6C 65 66 74 09  ekeylp...e_left.
000070: 20 6C 64 20 61 2C 68 3A 20 63 70 20 31 3A 20 6A   ld a,h: cp 1: j
000080: 72 20 7A 2C 65 6B 65 79 6C 70 3A 20 64 65 63 20  r z,ekeylp: dec 
000090: 68 3A 20 72 6C 63 20 64 20 3A 20 6A 72 20 65 6B  h: rlc d : jr ek
0000A0: 65 79 6C 70 0D 0A 2E 65 5F 72 67 68 74 09 20 6C  eylp...e_rght. l
0000B0: 64 20 61 2C 68 3A 20 63 70 20 38 3A 20 6A 72 20  d a,h: cp 8: jr 
0000C0: 7A 2C 65 6B 65 79 6C 70 3A 20 69 6E 63 20 68 3A  z,ekeylp: inc h:
0000D0: 20 72 72 63 20 64 20 3A 20 6A 72 20 65 6B 65 79   rrc d : jr ekey
0000E0: 6C 70 0D 0A 2E 65 5F 69 6E 76 74 09 20 6C 64 20  lp...e_invt. ld 
0000F0: 61 2C 28 69 78 29 3A 20 78 6F 72 20 64 3A 20 6C  a,(ix): xor d: l
000100: 64 20 28 69 78 29 2C 61 0D 0A 09 20 6C 64 20 63  d (ix),a... ld c
000110: 2C 22 20 22 3A 20 61 6E 64 20 64 3A 20 6A 72 20  ," ": and d: jr 
000120: 7A 2C 65 67 74 63 68 72 0D 0A 09 20 6C 64 20 63  z,egtchr... ld c
000130: 2C 32 33 33 0D 0A 2E 65 67 74 63 68 72 09 20 6C  ,233...egtchr. l
000140: 64 20 61 2C 63 3A 20 63 61 6C 6C 20 26 42 42 35  d a,c: call &BB5
000150: 41 3A 20 6A 72 20 65 6B 65 79 6C 70 0D 0A 0D 0A  A: jr ekeylp....
000160: 2E 65 5F 65 78 69 74 09 20 6C 64 20 61 2C 31 3A  .e_exit. ld a,1:
000170: 20 63 61 6C 6C 20 26 42 43 30 45 0D 0A 09 70 6F   call &BC0E...po
000180: 70 20 69 78 0D 0A 09 6C 64 20 61 2C 22 26 22 3A  p ix...ld a,"&":
000190: 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 6C 64 20   call &BB5A: ld 
0001A0: 61 2C 28 69 78 29 3A 20 63 61 6C 6C 20 68 65 78  a,(ix): call hex
0001B0: 70 72 74 3A 20 6C 64 20 61 2C 22 2C 22 3A 20 63  prt: ld a,",": c
0001C0: 61 6C 6C 20 26 42 42 35 41 3A 20 69 6E 63 20 69  all &BB5A: inc i
0001D0: 78 0D 0A 09 6C 64 20 61 2C 22 26 22 3A 20 63 61  x...ld a,"&": ca
0001E0: 6C 6C 20 26 42 42 35 41 3A 20 6C 64 20 61 2C 28  ll &BB5A: ld a,(
0001F0: 69 78 29 3A 20 63 61 6C 6C 20 68 65 78 70 72 74  ix): call hexprt

Size : 512 (Real : 512)
000000: 58 09 7C 43 4F 50 59 2C 73 6F 75 72 63 65 2C 64  X.|COPY,source,d
000010: 65 73 74 69 6E 61 74 69 6F 6E 2C 6C 65 6E 67 74  estination,lengt
000020: 68 0D 0A 0D 0A 2E 63 6F 70 79 5F 69 09 63 70 20  h.....copy_i.cp 
000030: 33 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72 0D  3: jp nz,parerr.
000040: 0A 09 6C 64 20 6C 2C 28 69 78 2B 34 29 3A 20 6C  ..ld l,(ix+4): l
000050: 64 20 68 2C 28 69 78 2B 35 29 0D 0A 09 6C 64 20  d h,(ix+5)...ld 
000060: 65 2C 28 69 78 2B 32 29 3A 20 6C 64 20 64 2C 28  e,(ix+2): ld d,(
000070: 69 78 2B 33 29 0D 0A 09 6F 72 20 61 3A 20 73 62  ix+3)...or a: sb
000080: 63 20 68 6C 2C 64 65 3A 20 6A 70 20 63 2C 63 6F  c hl,de: jp c,co
000090: 70 79 5F 64 0D 0A 0D 0A 09 6C 64 20 6C 2C 28 69  py_d.....ld l,(i
0000A0: 78 2B 34 29 3A 20 6C 64 20 68 2C 28 69 78 2B 35  x+4): ld h,(ix+5
0000B0: 29 0D 0A 09 6C 64 20 63 2C 28 69 78 2B 30 29 3A  )...ld c,(ix+0):
0000C0: 20 6C 64 20 62 2C 28 69 78 2B 31 29 0D 0A 09 6C   ld b,(ix+1)...l
0000D0: 64 69 72 3A 20 72 65 74 0D 0A 0D 0A 2E 63 6F 70  dir: ret.....cop
0000E0: 79 5F 64 09 6C 64 20 63 2C 28 69 78 2B 30 29 3A  y_d.ld c,(ix+0):
0000F0: 20 6C 64 20 62 2C 28 69 78 2B 31 29 0D 0A 09 6C   ld b,(ix+1)...l
000100: 64 20 6C 2C 28 69 78 2B 32 29 3A 20 6C 64 20 68  d l,(ix+2): ld h
000110: 2C 28 69 78 2B 33 29 3A 20 64 65 63 20 68 6C 3A  ,(ix+3): dec hl:
000120: 20 61 64 64 20 68 6C 2C 62 63 3A 20 65 78 20 64   add hl,bc: ex d
000130: 65 2C 68 6C 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B  e,hl...ld l,(ix+
000140: 34 29 3A 20 6C 64 20 68 2C 28 69 78 2B 35 29 3A  4): ld h,(ix+5):
000150: 20 64 65 63 20 68 6C 3A 20 61 64 64 20 68 6C 2C   dec hl: add hl,
000160: 62 63 3A 20 6C 64 64 72 3A 20 72 65 74 0D 0A 0D  bc: lddr: ret...
000170: 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 46 49 4C 4C  ..;*** RSX.|FILL
000180: 2C 61 64 64 72 65 73 73 2C 6C 65 6E 67 74 68 2C  ,address,length,
000190: 62 79 74 65 0D 0A 0D 0A 2E 66 69 6C 6C 5F 69 09  byte.....fill_i.
0001A0: 63 70 20 33 3A 20 6A 70 20 6E 7A 2C 70 61 72 65  cp 3: jp nz,pare
0001B0: 72 72 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B 34 29  rr...ld l,(ix+4)
0001C0: 3A 20 6C 64 20 68 2C 28 69 78 2B 35 29 0D 0A 09  : ld h,(ix+5)...
0001D0: 6C 64 20 61 2C 28 69 78 2B 30 29 3A 20 6C 64 20  ld a,(ix+0): ld 
0001E0: 28 68 6C 29 2C 61 0D 0A 0D 0A 09 70 75 73 68 20  (hl),a.....push 
0001F0: 68 6C 3A 20 70 6F 70 20 64 65 3A 20 69 6E 63 20  hl: pop de: inc

Size : 512 (Real : 512)
000000: 3A 20 6C 64 20 61 2C 22 2C 22 3A 20 63 61 6C 6C  : ld a,",": call
000010: 20 26 42 42 35 41 3A 20 69 6E 63 20 69 78 0D 0A   &BB5A: inc ix..
000020: 09 6C 64 20 61 2C 22 26 22 3A 20 63 61 6C 6C 20  .ld a,"&": call 
000030: 26 42 42 35 41 3A 20 6C 64 20 61 2C 28 69 78 29  &BB5A: ld a,(ix)
000040: 3A 20 63 61 6C 6C 20 68 65 78 70 72 74 3A 20 6C  : call hexprt: l
000050: 64 20 61 2C 22 2C 22 3A 20 63 61 6C 6C 20 26 42  d a,",": call &B
000060: 42 35 41 3A 20 69 6E 63 20 69 78 0D 0A 09 6C 64  B5A: inc ix...ld
000070: 20 61 2C 22 26 22 3A 20 63 61 6C 6C 20 26 42 42   a,"&": call &BB
000080: 35 41 3A 20 6C 64 20 61 2C 28 69 78 29 3A 20 63  5A: ld a,(ix): c
000090: 61 6C 6C 20 68 65 78 70 72 74 3A 20 6C 64 20 61  all hexprt: ld a
0000A0: 2C 22 2C 22 3A 20 63 61 6C 6C 20 26 42 42 35 41  ,",": call &BB5A
0000B0: 3A 20 69 6E 63 20 69 78 0D 0A 09 6C 64 20 61 2C  : inc ix...ld a,
0000C0: 22 26 22 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A  "&": call &BB5A:
0000D0: 20 6C 64 20 61 2C 28 69 78 29 3A 20 63 61 6C 6C   ld a,(ix): call
0000E0: 20 68 65 78 70 72 74 3A 20 6C 64 20 61 2C 22 2C   hexprt: ld a,",
0000F0: 22 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 69  ": call &BB5A: i
000100: 6E 63 20 69 78 0D 0A 09 6C 64 20 61 2C 22 26 22  nc ix...ld a,"&"
000110: 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 6C 64  : call &BB5A: ld
000120: 20 61 2C 28 69 78 29 3A 20 63 61 6C 6C 20 68 65   a,(ix): call he
000130: 78 70 72 74 3A 20 6C 64 20 61 2C 22 2C 22 3A 20  xprt: ld a,",": 
000140: 63 61 6C 6C 20 26 42 42 35 41 3A 20 69 6E 63 20  call &BB5A: inc 
000150: 69 78 0D 0A 09 6C 64 20 61 2C 22 26 22 3A 20 63  ix...ld a,"&": c
000160: 61 6C 6C 20 26 42 42 35 41 3A 20 6C 64 20 61 2C  all &BB5A: ld a,
000170: 28 69 78 29 3A 20 63 61 6C 6C 20 68 65 78 70 72  (ix): call hexpr
000180: 74 3A 20 6C 64 20 61 2C 22 2C 22 3A 20 63 61 6C  t: ld a,",": cal
000190: 6C 20 26 42 42 35 41 3A 20 69 6E 63 20 69 78 0D  l &BB5A: inc ix.
0001A0: 0A 09 6C 64 20 61 2C 22 26 22 3A 20 63 61 6C 6C  ..ld a,"&": call
0001B0: 20 26 42 42 35 41 3A 20 6C 64 20 61 2C 28 69 78   &BB5A: ld a,(ix
0001C0: 29 3A 20 63 61 6C 6C 20 68 65 78 70 72 74 3A 20  ): call hexprt: 
0001D0: 63 61 6C 6C 20 63 72 6C 66 0D 0A 09 72 65 74 0D  call crlf...ret.
0001E0: 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 46 52  ....;*** RSX.|FR
0001F0: 41 4D 45 0D 0A 0D 0A 2E 66 72 61 6D 5F 69 09 6A  AME.....fram_i.j

Size : 512 (Real : 512)
000000: 2C 63 68 72 65 72 72 0D 0A 09 70 75 73 68 20 68  ,chrerr...push h
000010: 6C 3A 20 70 6F 70 20 69 79 0D 0A 0D 0A 09 6C 64  l: pop iy.....ld
000020: 20 6C 2C 28 69 78 29 3A 20 6C 64 20 68 2C 28 69   l,(ix): ld h,(i
000030: 78 2B 31 29 0D 0A 09 6C 64 20 62 2C 28 68 6C 29  x+1)...ld b,(hl)
000040: 3A 20 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 65 2C  : inc hl...ld e,
000050: 28 68 6C 29 3A 20 69 6E 63 20 68 6C 0D 0A 09 6C  (hl): inc hl...l
000060: 64 20 64 2C 28 68 6C 29 3A 20 70 75 73 68 20 64  d d,(hl): push d
000070: 65 3A 20 70 6F 70 20 69 78 0D 0A 0D 0A 09 6C 64  e: pop ix.....ld
000080: 20 61 2C 62 3A 20 6F 72 20 61 3A 20 72 65 74 20   a,b: or a: ret 
000090: 7A 0D 0A 0D 0A 2E 64 6F 75 62 5F 6C 09 6C 64 20  z.....doub_l.ld 
0000A0: 61 2C 28 69 78 29 3A 20 63 61 6C 6C 20 26 42 42  a,(ix): call &BB
0000B0: 41 35 3A 20 63 61 6C 6C 20 26 42 39 30 36 0D 0A  A5: call &B906..
0000C0: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
0000D0: 69 79 2B 30 30 29 2C 61 3A 20 6C 64 20 28 69 79  iy+00),a: ld (iy
0000E0: 2B 30 31 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  +01),a: inc hl..
0000F0: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
000100: 69 79 2B 30 32 29 2C 61 3A 20 6C 64 20 28 69 79  iy+02),a: ld (iy
000110: 2B 30 33 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  +03),a: inc hl..
000120: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
000130: 69 79 2B 30 34 29 2C 61 3A 20 6C 64 20 28 69 79  iy+04),a: ld (iy
000140: 2B 30 35 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  +05),a: inc hl..
000150: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
000160: 69 79 2B 30 36 29 2C 61 3A 20 6C 64 20 28 69 79  iy+06),a: ld (iy
000170: 2B 30 37 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  +07),a: inc hl..
000180: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
000190: 69 79 2B 30 38 29 2C 61 3A 20 6C 64 20 28 69 79  iy+08),a: ld (iy
0001A0: 2B 30 39 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  +09),a: inc hl..
0001B0: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
0001C0: 69 79 2B 31 30 29 2C 61 3A 20 6C 64 20 28 69 79  iy+10),a: ld (iy
0001D0: 2B 31 31 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  +11),a: inc hl..
0001E0: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
0001F0: 69 79 2B 31 32 29 2C 61 3A 20 6C 64 20 28 69 79  iy+12),a: ld (iy

Size : 512 (Real : 512)
000000: 70 20 26 42 44 31 39 0D 0A 0D 0A 09 3B 2A 2A 2A  p &BD19.....;***
000010: 20 52 53 58 09 7C 43 55 52 53 4F 52 2C 73 79 73   RSX.|CURSOR,sys
000020: 74 65 6D 20 73 77 69 74 63 68 2C 75 73 65 72 20  tem switch,user 
000030: 73 77 69 74 63 68 0D 0A 0D 0A 2E 63 75 72 73 5F  switch.....curs_
000040: 69 09 63 70 20 31 3A 20 6A 72 20 7A 20 2C 63 75  i.cp 1: jr z ,cu
000050: 72 73 5F 31 0D 0A 09 63 70 20 32 3A 20 6A 70 20  rs_1...cp 2: jp 
000060: 6E 7A 2C 70 61 72 65 72 72 0D 0A 0D 0A 09 6C 64  nz,parerr.....ld
000070: 20 61 2C 28 69 78 29 3A 20 6F 72 20 61 3A 20 63   a,(ix): or a: c
000080: 61 6C 6C 20 7A 2C 26 42 42 37 45 3A 20 63 61 6C  all z,&BB7E: cal
000090: 6C 20 6E 7A 2C 26 42 42 37 42 0D 0A 09 69 6E 63  l nz,&BB7B...inc
0000A0: 20 69 78 3A 20 69 6E 63 20 69 78 0D 0A 2E 63 75   ix: inc ix...cu
0000B0: 72 73 5F 31 09 6C 64 20 61 2C 28 69 78 29 3A 20  rs_1.ld a,(ix): 
0000C0: 6F 72 20 61 3A 20 70 75 73 68 20 61 66 3A 20 63  or a: push af: c
0000D0: 61 6C 6C 20 7A 2C 26 42 42 38 34 3A 20 70 6F 70  all z,&BB84: pop
0000E0: 20 61 66 3A 20 63 61 6C 6C 20 6E 7A 2C 26 42 42   af: call nz,&BB
0000F0: 38 31 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  81...ret.....;**
000100: 2A 20 52 53 58 09 7C 47 52 41 50 48 49 43 53 2E  * RSX.|GRAPHICS.
000110: 50 41 50 45 52 2C 63 6F 6C 6F 75 72 0D 0A 0D 0A  PAPER,colour....
000120: 2E 67 70 61 70 5F 69 09 63 70 20 31 3A 20 6A 70  .gpap_i.cp 1: jp
000130: 20 6E 7A 2C 70 61 72 65 72 72 0D 0A 09 6C 64 20   nz,parerr...ld 
000140: 61 2C 28 69 78 29 3A 20 6A 70 20 26 42 42 45 34  a,(ix): jp &BBE4
000150: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 47  .....;*** RSX.|G
000160: 52 41 50 48 49 43 53 2E 50 45 4E 2C 63 6F 6C 6F  RAPHICS.PEN,colo
000170: 75 72 0D 0A 0D 0A 2E 67 70 65 6E 5F 69 09 63 70  ur.....gpen_i.cp
000180: 20 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72   1: jp nz,parerr
000190: 0D 0A 09 6C 64 20 61 2C 28 69 78 29 3A 20 6A 70  ...ld a,(ix): jp
0001A0: 20 26 42 42 44 45 0D 0A 0D 0A 09 3B 2A 2A 2A 20   &BBDE.....;*** 
0001B0: 52 53 58 09 7C 43 4C 45 41 52 2E 49 4E 50 55 54  RSX.|CLEAR.INPUT
0001C0: 0D 0A 0D 0A 2E 63 6C 72 69 5F 69 09 63 61 6C 6C  .....clri_i.call
0001D0: 20 26 42 42 30 39 3A 20 6A 72 20 63 2C 63 6C 72   &BB09: jr c,clr
0001E0: 69 5F 69 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  i_i: ret.....;**
0001F0: 2A 20 52 53 58 09 7C 43 4F 50 59 2E 43 48 52 2C  * RSX.|COPY.CHR,

Size : 512 (Real : 512)
000000: 2B 31 33 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A  +13),a: inc hl..
000010: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64 20 28  .ld a,(hl): ld (
000020: 69 79 2B 31 34 29 2C 61 3A 20 6C 64 20 28 69 79  iy+14),a: ld (iy
000030: 2B 31 35 29 2C 61 0D 0A 09 6C 64 20 61 2C 32 35  +15),a...ld a,25
000040: 34 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 63  4: call &BB5A: c
000050: 61 6C 6C 20 26 42 39 30 39 0D 0A 09 6C 64 20 61  all &B909...ld a
000060: 2C 31 30 20 3A 20 63 61 6C 6C 20 26 42 42 35 41  ,10 : call &BB5A
000070: 3A 20 6C 64 20 61 2C 38 20 3A 20 63 61 6C 6C 20  : ld a,8 : call 
000080: 26 42 42 35 41 0D 0A 09 6C 64 20 61 2C 32 35 35  &BB5A...ld a,255
000090: 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 6C 64  : call &BB5A: ld
0000A0: 20 61 2C 31 31 3A 20 63 61 6C 6C 20 26 42 42 35   a,11: call &BB5
0000B0: 41 0D 0A 0D 0A 09 69 6E 63 20 69 78 3A 20 64 65  A.....inc ix: de
0000C0: 63 20 62 3A 20 6A 70 20 6E 7A 2C 64 6F 75 62 5F  c b: jp nz,doub_
0000D0: 6C 0D 0A 09 63 61 6C 6C 20 63 72 6C 66 3A 20 6A  l...call crlf: j
0000E0: 70 20 63 72 6C 66 0D 0A 0D 0A 09 3B 2A 2A 2A 20  p crlf.....;*** 
0000F0: 52 53 58 09 7C 45 44 49 54 2C 63 68 61 72 61 63  RSX.|EDIT,charac
000100: 74 65 72 0D 0A 0D 0A 2E 65 64 69 74 5F 69 09 63  ter.....edit_i.c
000110: 70 20 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72  p 1: jp nz,parer
000120: 72 0D 0A 0D 0A 09 6C 64 20 6C 2C 28 69 78 29 3A  r.....ld l,(ix):
000130: 20 6C 64 20 68 2C 28 69 78 2B 31 29 0D 0A 09 6C   ld h,(ix+1)...l
000140: 64 20 61 2C 68 3A 20 6F 72 20 61 3A 20 6C 64 20  d a,h: or a: ld 
000150: 61 2C 6C 3A 20 6A 72 20 7A 2C 67 6F 74 65 64 63  a,l: jr z,gotedc
000160: 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20 69 6E  ...ld a,(hl): in
000170: 63 20 68 6C 0D 0A 09 6C 64 20 65 2C 28 68 6C 29  c hl...ld e,(hl)
000180: 3A 20 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 64 2C  : inc hl...ld d,
000190: 28 68 6C 29 3A 20 6C 64 20 61 2C 28 64 65 29 0D  (hl): ld a,(de).
0001A0: 0A 0D 0A 2E 67 6F 74 65 64 63 09 63 61 6C 6C 20  ....gotedc.call 
0001B0: 26 42 42 41 35 3A 20 6A 70 20 6E 63 2C 63 68 72  &BBA5: jp nc,chr
0001C0: 65 72 72 0D 0A 09 70 75 73 68 20 68 6C 0D 0A 09  err...push hl...
0001D0: 20 6C 64 20 61 2C 31 3A 20 63 61 6C 6C 20 26 42   ld a,1: call &B
0001E0: 43 30 45 0D 0A 09 20 6C 64 20 61 2C 31 3A 20 63  C0E... ld a,1: c
0001F0: 61 6C 6C 20 26 42 42 39 30 0D 0A 09 20 6C 64 20  all &BB90... ld

Size : 512 (Real : 512)
000000: 40 61 0D 0A 0D 0A 2E 63 70 79 63 5F 69 09 63 70  @a.....cpyc_i.cp
000010: 20 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72   1: jp nz,parerr
000020: 0D 0A 09 63 61 6C 6C 20 26 42 42 36 30 0D 0A 09  ...call &BB60...
000030: 6C 64 20 6C 2C 28 69 78 29 3A 20 6C 64 20 68 2C  ld l,(ix): ld h,
000040: 28 69 78 2B 31 29 0D 0A 09 6C 64 20 28 68 6C 29  (ix+1)...ld (hl)
000050: 2C 61 3A 20 69 6E 63 20 68 6C 3A 20 6C 64 20 28  ,a: inc hl: ld (
000060: 68 6C 29 2C 30 3A 20 72 65 74 0D 0A 0D 0A 09 3B  hl),0: ret.....;
000070: 2A 2A 2A 20 52 53 58 09 7C 53 45 43 54 4F 52 2E  *** RSX.|SECTOR.
000080: 57 52 49 54 45 2C 73 6F 75 72 63 65 2C 64 72 69  WRITE,source,dri
000090: 76 65 2C 74 72 61 63 6B 2C 73 65 63 74 6F 72 0D  ve,track,sector.
0000A0: 0A 0D 0A 2E 73 65 63 77 5F 69 09 63 70 20 34 3A  ....secw_i.cp 4:
0000B0: 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72 0D 0A 09   jp nz,parerr...
0000C0: 6C 64 20 6C 2C 28 69 78 2B 36 29 3A 20 6C 64 20  ld l,(ix+6): ld 
0000D0: 68 2C 28 69 78 2B 37 29 0D 0A 09 6C 64 20 65 2C  h,(ix+7)...ld e,
0000E0: 28 69 78 2B 34 29 3A 20 6C 64 20 64 2C 28 69 78  (ix+4): ld d,(ix
0000F0: 2B 32 29 0D 0A 09 6C 64 20 63 2C 28 69 78 2B 30  +2)...ld c,(ix+0
000100: 29 3A 20 72 73 74 20 33 2C 77 73 63 66 61 72 0D  ): rst 3,wscfar.
000110: 0A 09 72 65 74 20 63 3A 20 6A 70 20 64 73 63 65  ..ret c: jp dsce
000120: 72 72 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09  rr.....;*** RSX.
000130: 7C 53 45 43 54 4F 52 2E 52 45 41 44 2C 73 6F 75  |SECTOR.READ,sou
000140: 72 63 65 2C 64 72 69 76 65 2C 74 72 61 63 6B 2C  rce,drive,track,
000150: 73 65 63 74 6F 72 0D 0A 0D 0A 2E 73 65 63 72 5F  sector.....secr_
000160: 69 09 63 70 20 34 3A 20 6A 70 20 6E 7A 2C 70 61  i.cp 4: jp nz,pa
000170: 72 65 72 72 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B  rerr...ld l,(ix+
000180: 36 29 3A 20 6C 64 20 68 2C 28 69 78 2B 37 29 0D  6): ld h,(ix+7).
000190: 0A 09 6C 64 20 65 2C 28 69 78 2B 34 29 3A 20 6C  ..ld e,(ix+4): l
0001A0: 64 20 64 2C 28 69 78 2B 32 29 0D 0A 09 6C 64 20  d d,(ix+2)...ld 
0001B0: 63 2C 28 69 78 2B 30 29 3A 20 72 73 74 20 33 2C  c,(ix+0): rst 3,
0001C0: 72 73 63 66 61 72 0D 0A 09 72 65 74 20 63 3A 20  rscfar...ret c: 
0001D0: 6A 70 20 64 73 63 65 72 72 0D 0A 0D 0A 09 3B 2A  jp dscerr.....;*
0001E0: 2A 2A 20 52 53 58 09 7C 48 4C 2E 57 52 49 54 45  ** RSX.|HL.WRITE
0001F0: 2C 73 6F 75 72 63 65 2C 6C 65 6E 67 74 68 2C 73  ,source,length,s

Size : 512 (Real : 512)
000000: 63 3A 20 70 6F 70 20 68 6C 0D 0A 09 6C 64 20 61  c: pop hl...ld a
000010: 2C 22 20 22 3A 20 63 61 6C 6C 20 26 42 42 35 41  ," ": call &BB5A
000020: 3A 20 63 61 6C 6C 20 26 42 42 35 41 0D 0A 09 70  : call &BB5A...p
000030: 75 73 68 20 62 63 0D 0A 09 20 6C 64 20 62 2C 31  ush bc... ld b,1
000040: 36 0D 0A 2E 64 64 61 6C 09 20 6C 64 20 61 2C 28  6...ddal. ld a,(
000050: 68 6C 29 3A 20 63 61 6C 6C 20 70 63 73 70 65 63  hl): call pcspec
000060: 0D 0A 09 20 69 6E 63 20 68 6C 3A 20 64 6A 6E 7A  ... inc hl: djnz
000070: 20 64 64 61 6C 0D 0A 09 70 6F 70 20 62 63 0D 0A   ddal...pop bc..
000080: 09 63 61 6C 6C 20 63 72 6C 66 0D 0A 09 64 65 63  .call crlf...dec
000090: 20 62 63 3A 20 69 6E 63 20 65 0D 0A 09 62 69 74   bc: inc e...bit
0000A0: 20 34 2C 65 3A 20 6A 72 20 7A 2C 6E 6F 70 61 75   4,e: jr z,nopau
0000B0: 73 0D 0A 09 20 6C 64 20 65 2C 30 0D 0A 09 20 63  s... ld e,0... c
0000C0: 61 6C 6C 20 26 42 42 38 31 3A 20 63 61 6C 6C 20  all &BB81: call 
0000D0: 26 42 42 30 36 3A 20 63 61 6C 6C 20 26 42 42 38  &BB06: call &BB8
0000E0: 34 0D 0A 09 20 63 70 20 26 46 43 3A 20 72 65 74  4... cp &FC: ret
0000F0: 20 7A 0D 0A 2E 6E 6F 70 61 75 73 09 6C 64 20 61   z...nopaus.ld a
000100: 2C 62 3A 20 6F 72 20 63 3A 20 6A 72 20 6E 7A 2C  ,b: or c: jr nz,
000110: 64 75 6D 70 5F 6C 0D 0A 09 72 65 74 0D 0A 0D 0A  dump_l...ret....
000120: 09 3B 2A 2A 2A 20 52 53 58 09 7C 46 49 4E 44 2C  .;*** RSX.|FIND,
000130: 73 74 61 72 74 2C 65 6E 64 2C 62 79 74 65 0D 0A  start,end,byte..
000140: 0D 0A 2E 66 69 6E 64 5F 69 09 63 70 20 33 3A 20  ...find_i.cp 3: 
000150: 6A 70 20 6E 7A 2C 70 61 72 65 72 72 0D 0A 09 6C  jp nz,parerr...l
000160: 64 20 6C 2C 28 69 78 2B 34 29 3A 20 6C 64 20 68  d l,(ix+4): ld h
000170: 2C 28 69 78 2B 35 29 0D 0A 09 6C 64 20 64 2C 28  ,(ix+5)...ld d,(
000180: 69 78 2B 30 29 0D 0A 0D 0A 2E 66 6E 64 5F 6C 70  ix+0).....fnd_lp
000190: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 63 70 20 64  .ld a,(hl): cp d
0001A0: 3A 20 6A 70 20 6E 7A 2C 66 6E 64 6E 6F 74 0D 0A  : jp nz,fndnot..
0001B0: 09 63 61 6C 6C 20 68 65 78 68 6C 3A 20 6C 64 20  .call hexhl: ld 
0001C0: 61 2C 22 20 22 3A 20 63 61 6C 6C 20 26 42 42 35  a," ": call &BB5
0001D0: 41 0D 0A 2E 66 6E 64 6E 6F 74 09 69 6E 63 20 68  A...fndnot.inc h
0001E0: 6C 0D 0A 09 6C 64 20 61 2C 6C 3A 20 63 70 20 28  l...ld a,l: cp (
0001F0: 69 78 2B 32 29 3A 20 6A 70 20 6E 7A 2C 66 6E 64  ix+2): jp nz,fnd

Size : 512 (Real : 512)
000000: 6B 77 5F 64 09 6C 64 20 63 2C 28 69 78 2B 30 29  kw_d.ld c,(ix+0)
000010: 3A 20 6C 64 20 62 2C 28 69 78 2B 31 29 0D 0A 09  : ld b,(ix+1)...
000020: 6C 64 20 6C 2C 28 69 78 2B 32 29 3A 20 6C 64 20  ld l,(ix+2): ld 
000030: 68 2C 28 69 78 2B 33 29 3A 20 64 65 63 20 68 6C  h,(ix+3): dec hl
000040: 3A 20 61 64 64 20 68 6C 2C 62 63 3A 20 65 78 20  : add hl,bc: ex 
000050: 64 65 2C 68 6C 0D 0A 09 6C 64 20 6C 2C 28 69 78  de,hl...ld l,(ix
000060: 2B 34 29 3A 20 6C 64 20 68 2C 28 69 78 2B 35 29  +4): ld h,(ix+5)
000070: 3A 20 64 65 63 20 68 6C 3A 20 61 64 64 20 68 6C  : dec hl: add hl
000080: 2C 62 63 3A 20 65 78 20 64 65 2C 68 6C 0D 0A 0D  ,bc: ex de,hl...
000090: 0A 2E 62 6E 6B 77 5F 62 09 6C 64 20 61 2C 28 64  ..bnkw_b.ld a,(d
0000A0: 65 29 20 3A 20 64 65 63 20 64 65 0D 0A 09 63 61  e) : dec de...ca
0000B0: 6C 6C 20 6C 64 68 6C 61 3A 20 64 65 63 20 68 6C  ll ldhla: dec hl
0000C0: 0D 0A 09 64 65 63 20 62 63 3A 20 6C 64 20 61 2C  ...dec bc: ld a,
0000D0: 62 3A 20 6F 72 20 63 3A 20 6A 70 20 6E 7A 2C 62  b: or c: jp nz,b
0000E0: 6E 6B 77 5F 62 0D 0A 09 72 65 74 0D 0A 0D 0A 09  nkw_b...ret.....
0000F0: 3B 2A 2A 2A 20 52 53 58 09 7C 42 41 4E 4B 2E 52  ;*** RSX.|BANK.R
000100: 45 41 44 2C 73 6F 75 72 63 65 2C 64 65 73 74 69  EAD,source,desti
000110: 6E 61 74 69 6F 6E 2C 6C 65 6E 67 74 68 0D 0A 0D  nation,length...
000120: 0A 2E 62 6E 6B 72 5F 69 09 63 70 20 33 3A 20 6A  ..bnkr_i.cp 3: j
000130: 70 20 6E 7A 2C 70 61 72 65 72 72 0D 0A 09 6C 64  p nz,parerr...ld
000140: 20 6C 2C 28 69 78 2B 34 29 3A 20 6C 64 20 68 2C   l,(ix+4): ld h,
000150: 28 69 78 2B 35 29 0D 0A 09 6C 64 20 65 2C 28 69  (ix+5)...ld e,(i
000160: 78 2B 32 29 3A 20 6C 64 20 64 2C 28 69 78 2B 33  x+2): ld d,(ix+3
000170: 29 0D 0A 09 6F 72 20 61 3A 20 73 62 63 20 68 6C  )...or a: sbc hl
000180: 2C 64 65 3A 20 6A 70 20 63 2C 62 6E 6B 72 5F 64  ,de: jp c,bnkr_d
000190: 0D 0A 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B 34 29  .....ld l,(ix+4)
0001A0: 3A 20 6C 64 20 68 2C 28 69 78 2B 35 29 0D 0A 09  : ld h,(ix+5)...
0001B0: 6C 64 20 63 2C 28 69 78 2B 30 29 3A 20 6C 64 20  ld c,(ix+0): ld 
0001C0: 62 2C 28 69 78 2B 31 29 0D 0A 0D 0A 2E 62 6E 6B  b,(ix+1).....bnk
0001D0: 72 5F 61 09 63 61 6C 6C 20 6C 64 61 68 6C 3A 20  r_a.call ldahl: 
0001E0: 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 28 64 65 29  inc hl...ld (de)
0001F0: 2C 61 20 3A 20 69 6E 63 20 64 65 0D 0A 09 64 65  ,a : inc de...de

Size : 512 (Real : 512)
000000: 5F 6C 70 0D 0A 09 6C 64 20 61 2C 68 3A 20 63 70  _lp...ld a,h: cp
000010: 20 28 69 78 2B 33 29 3A 20 6A 70 20 6E 7A 2C 66   (ix+3): jp nz,f
000020: 6E 64 5F 6C 70 0D 0A 09 63 61 6C 6C 20 63 72 6C  nd_lp...call crl
000030: 66 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A  f...ret.....;***
000040: 20 52 53 58 09 7C 4D 45 4D 4F 52 59 0D 0A 0D 0A   RSX.|MEMORY....
000050: 2E 6D 65 6D 72 5F 69 09 6C 64 20 61 2C 32 3A 20  .memr_i.ld a,2: 
000060: 63 61 6C 6C 20 26 42 43 30 45 0D 0A 09 6C 64 20  call &BC0E...ld 
000070: 64 65 2C 26 45 30 33 30 0D 0A 09 6C 64 20 68 6C  de,&E030...ld hl
000080: 2C 26 30 30 30 30 0D 0A 0D 0A 2E 72 62 69 74 6F  ,&0000.....rbito
000090: 09 6C 64 20 62 2C 33 32 0D 0A 0D 0A 2E 72 62 69  .ld b,32.....rbi
0000A0: 74 6C 09 78 6F 72 20 61 0D 0A 09 63 70 20 28 68  tl.xor a...cp (h
0000B0: 6C 29 3A 20 69 6E 63 20 6C 3A 20 72 6C 20 63 0D  l): inc l: rl c.
0000C0: 0A 09 63 70 20 28 68 6C 29 3A 20 69 6E 63 20 6C  ..cp (hl): inc l
0000D0: 3A 20 72 6C 20 63 0D 0A 09 63 70 20 28 68 6C 29  : rl c...cp (hl)
0000E0: 3A 20 69 6E 63 20 6C 3A 20 72 6C 20 63 0D 0A 09  : inc l: rl c...
0000F0: 63 70 20 28 68 6C 29 3A 20 69 6E 63 20 6C 3A 20  cp (hl): inc l: 
000100: 72 6C 20 63 0D 0A 09 63 70 20 28 68 6C 29 3A 20  rl c...cp (hl): 
000110: 69 6E 63 20 6C 3A 20 72 6C 20 63 0D 0A 09 63 70  inc l: rl c...cp
000120: 20 28 68 6C 29 3A 20 69 6E 63 20 6C 3A 20 72 6C   (hl): inc l: rl
000130: 20 63 0D 0A 09 63 70 20 28 68 6C 29 3A 20 69 6E   c...cp (hl): in
000140: 63 20 6C 3A 20 72 6C 20 63 0D 0A 09 63 70 20 28  c l: rl c...cp (
000150: 68 6C 29 3A 20 69 6E 63 20 6C 3A 20 72 6C 20 63  hl): inc l: rl c
000160: 0D 0A 09 6C 64 20 61 2C 63 3A 20 6C 64 20 28 64  ...ld a,c: ld (d
000170: 65 29 2C 61 3A 20 69 6E 63 20 64 65 0D 0A 09 64  e),a: inc de...d
000180: 6A 6E 7A 20 72 62 69 74 6C 0D 0A 09 69 6E 63 20  jnz rbitl...inc 
000190: 68 0D 0A 0D 0A 09 65 78 20 64 65 2C 68 6C 0D 0A  h.....ex de,hl..
0001A0: 09 20 6C 64 20 62 63 2C 26 37 45 30 0D 0A 09 20  . ld bc,&7E0... 
0001B0: 61 64 64 20 68 6C 2C 62 63 3A 20 6A 72 20 6E 63  add hl,bc: jr nc
0001C0: 2C 72 62 69 74 6F 6B 0D 0A 09 20 6C 64 20 62 63  ,rbitok... ld bc
0001D0: 2C 26 43 30 35 30 3A 20 61 64 64 20 68 6C 2C 62  ,&C050: add hl,b
0001E0: 63 0D 0A 2E 72 62 69 74 6F 6B 09 65 78 20 64 65  c...rbitok.ex de
0001F0: 2C 68 6C 0D 0A 0D 0A 09 6C 64 20 61 2C 68 3A 20  ,hl.....ld a,h:

Size : 512 (Real : 512)
000000: 63 20 62 63 3A 20 6C 64 20 61 2C 62 3A 20 6F 72  c bc: ld a,b: or
000010: 20 63 3A 20 6A 70 20 6E 7A 2C 62 6E 6B 72 5F 61   c: jp nz,bnkr_a
000020: 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 62 6E 6B 72 5F  ...ret.....bnkr_
000030: 64 09 6C 64 20 63 2C 28 69 78 2B 30 29 3A 20 6C  d.ld c,(ix+0): l
000040: 64 20 62 2C 28 69 78 2B 31 29 0D 0A 09 6C 64 20  d b,(ix+1)...ld 
000050: 6C 2C 28 69 78 2B 32 29 3A 20 6C 64 20 68 2C 28  l,(ix+2): ld h,(
000060: 69 78 2B 33 29 3A 20 64 65 63 20 68 6C 3A 20 61  ix+3): dec hl: a
000070: 64 64 20 68 6C 2C 62 63 3A 20 65 78 20 64 65 2C  dd hl,bc: ex de,
000080: 68 6C 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B 34 29  hl...ld l,(ix+4)
000090: 3A 20 6C 64 20 68 2C 28 69 78 2B 35 29 3A 20 64  : ld h,(ix+5): d
0000A0: 65 63 20 68 6C 3A 20 61 64 64 20 68 6C 2C 62 63  ec hl: add hl,bc
0000B0: 0D 0A 0D 0A 2E 62 6E 6B 72 5F 62 09 63 61 6C 6C  .....bnkr_b.call
0000C0: 20 6C 64 61 68 6C 3A 20 64 65 63 20 68 6C 0D 0A   ldahl: dec hl..
0000D0: 09 6C 64 20 28 64 65 29 2C 61 20 3A 20 64 65 63  .ld (de),a : dec
0000E0: 20 64 65 0D 0A 09 64 65 63 20 62 63 3A 20 6C 64   de...dec bc: ld
0000F0: 20 61 2C 62 3A 20 6F 72 20 63 3A 20 6A 70 20 6E   a,b: or c: jp n
000100: 7A 2C 62 6E 6B 72 5F 62 0D 0A 09 72 65 74 0D 0A  z,bnkr_b...ret..
000110: 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09 7C 43 41 4C  ...;*** RSX.|CAL
000120: 4C 2C 61 64 64 72 65 73 73 0D 0A 0D 0A 2E 63 61  L,address.....ca
000130: 6C 6C 5F 69 09 63 70 20 31 3A 20 6A 70 20 6E 7A  ll_i.cp 1: jp nz
000140: 2C 70 61 72 65 72 72 0D 0A 09 6C 64 20 6C 2C 28  ,parerr...ld l,(
000150: 69 78 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29  ix): ld h,(ix+1)
000160: 3A 20 70 75 73 68 20 68 6C 0D 0A 2E 61 66 70 6C  : push hl...afpl
000170: 6F 70 09 6C 64 20 68 6C 2C 30 3A 20 70 75 73 68  op.ld hl,0: push
000180: 20 68 6C 3A 20 70 6F 70 20 61 66 0D 0A 2E 62 63   hl: pop af...bc
000190: 70 6C 6F 70 09 6C 64 20 62 63 2C 30 0D 0A 2E 64  plop.ld bc,0...d
0001A0: 65 70 6C 6F 70 09 6C 64 20 64 65 2C 30 0D 0A 2E  eplop.ld de,0...
0001B0: 68 6C 70 6C 6F 70 09 6C 64 20 68 6C 2C 30 0D 0A  hlplop.ld hl,0..
0001C0: 2E 69 78 70 6C 6F 70 09 6C 64 20 69 78 2C 30 0D  .ixplop.ld ix,0.
0001D0: 0A 2E 69 79 70 6C 6F 70 09 6C 64 20 69 79 2C 30  ..iyplop.ld iy,0
0001E0: 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20  ...ret.....;*** 
0001F0: 52 53 58 09 7C 41 46 2C 20 7C 42 43 2C 20 7C 44  RSX.|AF, |BC, |D

Size : 512 (Real : 512)
000000: 63 70 20 26 43 30 3A 20 6A 70 20 6E 7A 2C 72 62  cp &C0: jp nz,rb
000010: 69 74 6F 0D 0A 0D 0A 09 6C 64 20 61 2C 32 35 34  ito.....ld a,254
000020: 0D 0A 09 6C 64 20 68 6C 2C 26 45 30 32 46 3A 20  ...ld hl,&E02F: 
000030: 6C 64 20 28 68 6C 29 2C 61 3A 20 6C 64 20 68 6C  ld (hl),a: ld hl
000040: 2C 26 45 30 43 46 3A 20 6C 64 20 28 68 6C 29 2C  ,&E0CF: ld (hl),
000050: 61 0D 0A 09 6C 64 20 68 6C 2C 26 45 31 36 46 3A  a...ld hl,&E16F:
000060: 20 6C 64 20 28 68 6C 29 2C 61 3A 20 6C 64 20 68   ld (hl),a: ld h
000070: 6C 2C 26 45 32 30 46 3A 20 6C 64 20 28 68 6C 29  l,&E20F: ld (hl)
000080: 2C 61 0D 0A 09 6C 64 20 68 6C 2C 26 45 32 41 46  ,a...ld hl,&E2AF
000090: 3A 20 6C 64 20 28 68 6C 29 2C 61 3A 20 6C 64 20  : ld (hl),a: ld 
0000A0: 68 6C 2C 26 45 33 34 46 3A 20 6C 64 20 28 68 6C  hl,&E34F: ld (hl
0000B0: 29 2C 61 0D 0A 09 6C 64 20 68 6C 2C 26 45 33 45  ),a...ld hl,&E3E
0000C0: 46 3A 20 6C 64 20 28 68 6C 29 2C 61 3A 20 6C 64  F: ld (hl),a: ld
0000D0: 20 68 6C 2C 26 45 34 38 46 3A 20 6C 64 20 28 68   hl,&E48F: ld (h
0000E0: 6C 29 2C 61 0D 0A 09 6C 64 20 68 6C 2C 26 45 35  l),a...ld hl,&E5
0000F0: 32 46 3A 20 6C 64 20 28 68 6C 29 2C 61 3A 20 6C  2F: ld (hl),a: l
000100: 64 20 68 6C 2C 26 45 35 43 46 3A 20 6C 64 20 28  d hl,&E5CF: ld (
000110: 68 6C 29 2C 61 0D 0A 09 6C 64 20 68 6C 2C 26 45  hl),a...ld hl,&E
000120: 36 36 46 3A 20 6C 64 20 28 68 6C 29 2C 61 3A 20  66F: ld (hl),a: 
000130: 6C 64 20 68 6C 2C 26 45 37 30 46 3A 20 6C 64 20  ld hl,&E70F: ld 
000140: 28 68 6C 29 2C 61 0D 0A 09 6C 64 20 68 6C 2C 26  (hl),a...ld hl,&
000150: 45 37 41 46 3A 20 6C 64 20 28 68 6C 29 2C 61 0D  E7AF: ld (hl),a.
000160: 0A 0D 0A 09 6C 64 20 68 6C 2C 26 32 42 30 31 3A  ....ld hl,&2B01:
000170: 20 63 61 6C 6C 20 26 42 42 37 35 3A 20 6C 64 20   call &BB75: ld 
000180: 61 2C 22 30 22 3A 20 63 61 6C 6C 20 6E 70 72 69  a,"0": call npri
000190: 6E 74 0D 0A 09 6C 64 20 68 6C 2C 26 32 42 30 35  nt...ld hl,&2B05
0001A0: 3A 20 63 61 6C 6C 20 26 42 42 37 35 3A 20 6C 64  : call &BB75: ld
0001B0: 20 61 2C 22 32 22 3A 20 63 61 6C 6C 20 6E 70 72   a,"2": call npr
0001C0: 69 6E 74 0D 0A 09 6C 64 20 68 6C 2C 26 32 42 30  int...ld hl,&2B0
0001D0: 39 3A 20 63 61 6C 6C 20 26 42 42 37 35 3A 20 6C  9: call &BB75: l
0001E0: 64 20 61 2C 22 34 22 3A 20 63 61 6C 6C 20 6E 70  d a,"4": call np
0001F0: 72 69 6E 74 0D 0A 09 6C 64 20 68 6C 2C 26 32 42  rint...ld hl,&2B

Size : 512 (Real : 512)
000000: 45 2C 20 7C 48 4C 2C 20 7C 49 58 2C 20 7C 49 59  E, |HL, |IX, |IY
000010: 0D 0A 0D 0A 2E 73 74 61 66 5F 69 09 63 70 20 31  .....staf_i.cp 1
000020: 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72 3A 20  : jp nz,parerr: 
000030: 6C 64 20 6C 2C 28 69 78 29 3A 20 6C 64 20 68 2C  ld l,(ix): ld h,
000040: 28 69 78 2B 31 29 3A 20 6C 64 20 28 61 66 70 6C  (ix+1): ld (afpl
000050: 6F 70 2B 31 29 2C 68 6C 3A 20 72 65 74 0D 0A 2E  op+1),hl: ret...
000060: 73 74 62 63 5F 69 09 63 70 20 31 3A 20 6A 70 20  stbc_i.cp 1: jp 
000070: 6E 7A 2C 70 61 72 65 72 72 3A 20 6C 64 20 6C 2C  nz,parerr: ld l,
000080: 28 69 78 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31  (ix): ld h,(ix+1
000090: 29 3A 20 6C 64 20 28 62 63 70 6C 6F 70 2B 31 29  ): ld (bcplop+1)
0000A0: 2C 68 6C 3A 20 72 65 74 0D 0A 2E 73 74 64 65 5F  ,hl: ret...stde_
0000B0: 69 09 63 70 20 31 3A 20 6A 70 20 6E 7A 2C 70 61  i.cp 1: jp nz,pa
0000C0: 72 65 72 72 3A 20 6C 64 20 6C 2C 28 69 78 29 3A  rerr: ld l,(ix):
0000D0: 20 6C 64 20 68 2C 28 69 78 2B 31 29 3A 20 6C 64   ld h,(ix+1): ld
0000E0: 20 28 64 65 70 6C 6F 70 2B 31 29 2C 68 6C 3A 20   (deplop+1),hl: 
0000F0: 72 65 74 0D 0A 2E 73 74 68 6C 5F 69 09 63 70 20  ret...sthl_i.cp 
000100: 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72 3A  1: jp nz,parerr:
000110: 20 6C 64 20 6C 2C 28 69 78 29 3A 20 6C 64 20 68   ld l,(ix): ld h
000120: 2C 28 69 78 2B 31 29 3A 20 6C 64 20 28 68 6C 70  ,(ix+1): ld (hlp
000130: 6C 6F 70 2B 31 29 2C 68 6C 3A 20 72 65 74 0D 0A  lop+1),hl: ret..
000140: 2E 73 74 69 78 5F 69 09 63 70 20 31 3A 20 6A 70  .stix_i.cp 1: jp
000150: 20 6E 7A 2C 70 61 72 65 72 72 3A 20 6C 64 20 6C   nz,parerr: ld l
000160: 2C 28 69 78 29 3A 20 6C 64 20 68 2C 28 69 78 2B  ,(ix): ld h,(ix+
000170: 31 29 3A 20 6C 64 20 28 69 78 70 6C 6F 70 2B 32  1): ld (ixplop+2
000180: 29 2C 68 6C 3A 20 72 65 74 0D 0A 2E 73 74 69 79  ),hl: ret...stiy
000190: 5F 69 09 63 70 20 31 3A 20 6A 70 20 6E 7A 2C 70  _i.cp 1: jp nz,p
0001A0: 61 72 65 72 72 3A 20 6C 64 20 6C 2C 28 69 78 29  arerr: ld l,(ix)
0001B0: 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29 3A 20 6C  : ld h,(ix+1): l
0001C0: 64 20 28 69 79 70 6C 6F 70 2B 32 29 2C 68 6C 3A  d (iyplop+2),hl:
0001D0: 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53   ret.....;*** RS
0001E0: 58 09 7C 44 55 4D 50 2C 73 74 61 72 74 2C 65 6E  X.|DUMP,start,en
0001F0: 64 0D 0A 0D 0A 2E 64 75 6D 70 5F 69 09 63 70 20  d.....dump_i.cp

Size : 512 (Real : 512)
000000: 30 44 3A 20 63 61 6C 6C 20 26 42 42 37 35 3A 20  0D: call &BB75: 
000010: 6C 64 20 61 2C 22 36 22 3A 20 63 61 6C 6C 20 6E  ld a,"6": call n
000020: 70 72 69 6E 74 0D 0A 09 6C 64 20 68 6C 2C 26 32  print...ld hl,&2
000030: 42 31 31 3A 20 63 61 6C 6C 20 26 42 42 37 35 3A  B11: call &BB75:
000040: 20 6C 64 20 61 2C 22 38 22 3A 20 63 61 6C 6C 20   ld a,"8": call 
000050: 6E 70 72 69 6E 74 0D 0A 09 6C 64 20 68 6C 2C 26  nprint...ld hl,&
000060: 32 42 31 35 3A 20 63 61 6C 6C 20 26 42 42 37 35  2B15: call &BB75
000070: 3A 20 6C 64 20 61 2C 22 41 22 3A 20 63 61 6C 6C  : ld a,"A": call
000080: 20 6E 70 72 69 6E 74 0D 0A 09 6C 64 20 68 6C 2C   nprint...ld hl,
000090: 26 32 42 31 39 3A 20 63 61 6C 6C 20 26 42 42 37  &2B19: call &BB7
0000A0: 35 3A 20 6C 64 20 61 2C 22 43 22 3A 20 63 61 6C  5: ld a,"C": cal
0000B0: 6C 20 6E 70 72 69 6E 74 0D 0A 09 6C 64 20 68 6C  l nprint...ld hl
0000C0: 2C 26 30 31 30 31 3A 20 63 61 6C 6C 20 26 42 42  ,&0101: call &BB
0000D0: 37 35 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 6E 70 72  75...ret.....npr
0000E0: 69 6E 74 09 63 61 6C 6C 20 26 42 42 35 41 3A 20  int.call &BB5A: 
0000F0: 6C 64 20 61 2C 22 30 22 0D 0A 09 63 61 6C 6C 20  ld a,"0"...call 
000100: 26 42 42 35 41 3A 20 63 61 6C 6C 20 26 42 42 35  &BB5A: call &BB5
000110: 41 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 72  A: call &BB5A: r
000120: 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09  et.....;*** RSX.
000130: 7C 54 59 50 45 2C 40 61 24 0D 0A 0D 0A 2E 74 79  |TYPE,@a$.....ty
000140: 70 65 5F 69 09 63 70 20 31 3A 20 6A 70 20 6E 7A  pe_i.cp 1: jp nz
000150: 2C 70 61 72 65 72 72 0D 0A 09 6C 64 20 61 2C 26  ,parerr...ld a,&
000160: 32 31 3A 20 6C 64 20 28 70 72 6E 63 68 72 2B 31  21: ld (prnchr+1
000170: 29 2C 61 09 09 3B 4E 6F 20 70 72 69 6E 74 69 6E  ),a..;No printin
000180: 67 20 70 6C 65 61 73 65 0D 0A 09 6A 72 20 74 79  g please...jr ty
000190: 70 65 5F 63 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53  pe_c.....;*** RS
0001A0: 58 09 7C 50 54 59 50 45 2C 40 61 24 0D 0A 0D 0A  X.|PTYPE,@a$....
0001B0: 2E 70 74 79 70 5F 69 09 63 70 20 31 3A 20 6A 70  .ptyp_i.cp 1: jp
0001C0: 20 6E 7A 2C 70 61 72 65 72 72 0D 0A 09 6C 64 20   nz,parerr...ld 
0001D0: 61 2C 26 43 44 3A 20 6C 64 20 28 70 72 6E 63 68  a,&CD: ld (prnch
0001E0: 72 2B 31 29 2C 61 09 09 3B 50 72 69 6E 74 69 6E  r+1),a..;Printin
0001F0: 67 20 6F 6E 0D 0A 09 6A 72 20 74 79 70 65 5F 63  g on...jr type_c

Size : 512 (Real : 512)
000000: 32 3A 20 6A 72 20 7A 20 2C 64 75 6D 70 5F 74 0D  2: jr z ,dump_t.
000010: 0A 09 63 70 20 31 3A 20 6A 70 20 6E 7A 2C 70 61  ..cp 1: jp nz,pa
000020: 72 65 72 72 0D 0A 09 6C 64 20 61 2C 28 69 78 2B  rerr...ld a,(ix+
000030: 30 29 3A 20 61 6E 64 20 26 46 30 3A 20 6C 64 20  0): and &F0: ld 
000040: 6C 2C 61 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29  l,a: ld h,(ix+1)
000050: 0D 0A 09 6C 64 20 62 63 2C 38 3A 20 6A 72 20 64  ...ld bc,8: jr d
000060: 75 6D 70 5F 64 0D 0A 2E 64 75 6D 70 5F 74 09 6C  ump_d...dump_t.l
000070: 64 20 61 2C 28 69 78 2B 32 29 3A 20 61 6E 64 20  d a,(ix+2): and 
000080: 26 46 30 3A 20 6C 64 20 65 2C 61 3A 20 6C 64 20  &F0: ld e,a: ld 
000090: 64 2C 28 69 78 2B 33 29 0D 0A 09 6C 64 20 6C 2C  d,(ix+3)...ld l,
0000A0: 28 69 78 2B 30 29 3A 20 6C 64 20 68 2C 28 69 78  (ix+0): ld h,(ix
0000B0: 2B 31 29 3A 20 6F 72 20 61 3A 20 73 62 63 20 68  +1): or a: sbc h
0000C0: 6C 2C 64 65 0D 0A 09 73 72 6C 20 68 3A 20 72 72  l,de...srl h: rr
0000D0: 20 6C 3A 20 73 72 6C 20 68 3A 20 72 72 20 6C 0D   l: srl h: rr l.
0000E0: 0A 09 73 72 6C 20 68 3A 20 72 72 20 6C 3A 20 73  ..srl h: rr l: s
0000F0: 72 6C 20 68 3A 20 72 72 20 6C 0D 0A 09 69 6E 63  rl h: rr l...inc
000100: 20 68 6C 3A 20 70 75 73 68 20 68 6C 3A 20 70 6F   hl: push hl: po
000110: 70 20 62 63 3A 20 65 78 20 64 65 2C 68 6C 0D 0A  p bc: ex de,hl..
000120: 0D 0A 2E 64 75 6D 70 5F 64 09 6C 64 20 65 2C 30  ...dump_d.ld e,0
000130: 0D 0A 2E 64 75 6D 70 5F 6C 09 6C 64 20 61 2C 68  ...dump_l.ld a,h
000140: 3A 20 63 61 6C 6C 20 68 65 78 6E 63 0D 0A 09 6C  : call hexnc...l
000150: 64 20 61 2C 6C 3A 20 63 61 6C 6C 20 68 65 78 6E  d a,l: call hexn
000160: 63 0D 0A 09 6C 64 20 61 2C 22 20 22 3A 20 63 61  c...ld a," ": ca
000170: 6C 6C 20 26 42 42 35 41 3A 20 63 61 6C 6C 20 26  ll &BB5A: call &
000180: 42 42 35 41 3A 20 63 61 6C 6C 20 26 42 42 35 41  BB5A: call &BB5A
000190: 0D 0A 09 70 75 73 68 20 68 6C 3A 20 70 75 73 68  ...push hl: push
0001A0: 20 62 63 0D 0A 09 20 6C 64 20 62 2C 31 36 0D 0A   bc... ld b,16..
0001B0: 2E 64 64 68 6C 09 20 6C 64 20 61 2C 28 68 6C 29  .ddhl. ld a,(hl)
0001C0: 3A 20 63 61 6C 6C 20 68 65 78 6E 63 3A 20 69 6E  : call hexnc: in
0001D0: 63 20 68 6C 0D 0A 09 20 6C 64 20 61 2C 22 20 22  c hl... ld a," "
0001E0: 20 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 64   : call &BB5A: d
0001F0: 6A 6E 7A 20 64 64 68 6C 0D 0A 09 70 6F 70 20 62  jnz ddhl...pop b

Size : 512 (Real : 512)
000000: 64 65 0D 0A 09 6C 64 20 63 2C 28 69 78 2B 32 29  de...ld c,(ix+2)
000010: 3A 20 6C 64 20 62 2C 28 69 78 2B 33 29 0D 0A 09  : ld b,(ix+3)...
000020: 64 65 63 20 62 63 3A 20 6C 64 69 72 0D 0A 09 72  dec bc: ldir...r
000030: 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58 09  et.....;*** RSX.
000040: 7C 42 41 4E 4B 2C 62 61 6E 6B 0D 0A 0D 0A 2E 62  |BANK,bank.....b
000050: 61 6E 6B 5F 69 09 63 70 20 31 3A 20 6A 70 20 6E  ank_i.cp 1: jp n
000060: 7A 2C 70 61 72 65 72 72 0D 0A 09 6C 64 20 61 2C  z,parerr...ld a,
000070: 28 69 78 29 3A 20 61 6E 64 20 26 46 38 3A 20 6F  (ix): and &F8: o
000080: 72 20 26 43 30 3A 20 61 64 64 20 34 0D 0A 09 6C  r &C0: add 4...l
000090: 64 20 28 62 6E 6B 70 31 2B 33 29 2C 61 0D 0A 09  d (bnkp1+3),a...
0000A0: 6C 64 20 28 62 6E 6B 70 32 2B 33 29 2C 61 3A 20  ld (bnkp2+3),a: 
0000B0: 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53 58  ret.....;*** RSX
0000C0: 09 7C 42 41 4E 4B 2E 57 52 49 54 45 2C 73 6F 75  .|BANK.WRITE,sou
0000D0: 72 63 65 2C 64 65 73 74 69 6E 61 74 69 6F 6E 2C  rce,destination,
0000E0: 6C 65 6E 67 74 68 0D 0A 0D 0A 2E 62 6E 6B 77 5F  length.....bnkw_
0000F0: 69 09 63 70 20 33 3A 20 6A 70 20 6E 7A 2C 70 61  i.cp 3: jp nz,pa
000100: 72 65 72 72 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B  rerr...ld l,(ix+
000110: 34 29 3A 20 6C 64 20 68 2C 28 69 78 2B 35 29 0D  4): ld h,(ix+5).
000120: 0A 09 6C 64 20 65 2C 28 69 78 2B 32 29 3A 20 6C  ..ld e,(ix+2): l
000130: 64 20 64 2C 28 69 78 2B 33 29 0D 0A 09 6F 72 20  d d,(ix+3)...or 
000140: 61 3A 20 73 62 63 20 68 6C 2C 64 65 3A 20 6A 70  a: sbc hl,de: jp
000150: 20 63 2C 62 6E 6B 77 5F 64 0D 0A 0D 0A 09 6C 64   c,bnkw_d.....ld
000160: 20 6C 2C 28 69 78 2B 34 29 3A 20 6C 64 20 68 2C   l,(ix+4): ld h,
000170: 28 69 78 2B 35 29 0D 0A 09 6C 64 20 63 2C 28 69  (ix+5)...ld c,(i
000180: 78 2B 30 29 3A 20 6C 64 20 62 2C 28 69 78 2B 31  x+0): ld b,(ix+1
000190: 29 3A 20 65 78 20 64 65 2C 68 6C 0D 0A 0D 0A 2E  ): ex de,hl.....
0001A0: 62 6E 6B 77 5F 61 09 6C 64 20 61 2C 28 64 65 29  bnkw_a.ld a,(de)
0001B0: 20 3A 20 69 6E 63 20 64 65 0D 0A 09 63 61 6C 6C   : inc de...call
0001C0: 20 6C 64 68 6C 61 3A 20 69 6E 63 20 68 6C 0D 0A   ldhla: inc hl..
0001D0: 09 64 65 63 20 62 63 3A 20 6C 64 20 61 2C 62 3A  .dec bc: ld a,b:
0001E0: 20 6F 72 20 63 3A 20 6A 70 20 6E 7A 2C 62 6E 6B   or c: jp nz,bnk
0001F0: 77 5F 61 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 62 6E  w_a...ret.....bn

Size : 512 (Real : 512)
000000: 2D 46 0D 0A 2E 68 65 78 62 79 65 09 61 64 64 20  -F...hexbye.add 
000010: 34 38 3A 20 63 61 6C 6C 20 26 42 42 35 41 0D 0A  48: call &BB5A..
000020: 09 6C 64 20 61 2C 63 3A 20 64 6A 6E 7A 20 68 65  .ld a,c: djnz he
000030: 78 6D 73 6B 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B  xmsk...ret.....;
000040: 2A 2A 2A 20 53 55 42 52 09 32 2D 62 79 74 65 20  *** SUBR.2-byte 
000050: 68 65 78 20 70 72 69 6E 74 20 5B 48 4C 5D 0D 0A  hex print [HL]..
000060: 0D 0A 2E 68 65 78 68 6C 09 6C 64 20 61 2C 68 3A  ...hexhl.ld a,h:
000070: 20 63 61 6C 6C 20 68 65 78 70 72 74 0D 0A 09 6C   call hexprt...l
000080: 64 20 61 2C 6C 3A 20 6A 70 20 20 20 68 65 78 70  d a,l: jp   hexp
000090: 72 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52  rt.....;*** SUBR
0000A0: 09 50 72 69 6E 74 20 48 4C 20 61 73 20 28 75 70  .Print HL as (up
0000B0: 20 74 6F 29 20 35 2D 64 69 67 69 74 20 64 65 63   to) 5-digit dec
0000C0: 69 6D 61 6C 0D 0A 0D 0A 2E 64 65 63 68 6C 09 6C  imal.....dechl.l
0000D0: 64 20 63 2C 30 0D 0A 09 6C 64 20 64 65 2C 31 30  d c,0...ld de,10
0000E0: 30 30 30 3A 20 63 61 6C 6C 20 70 72 68 6C 72 0D  000: call prhlr.
0000F0: 0A 09 6C 64 20 64 65 2C 31 30 30 30 3A 20 63 61  ..ld de,1000: ca
000100: 6C 6C 20 70 72 68 6C 72 0D 0A 09 6C 64 20 64 65  ll prhlr...ld de
000110: 2C 31 30 30 3A 20 63 61 6C 6C 20 70 72 68 6C 72  ,100: call prhlr
000120: 0D 0A 09 6C 64 20 64 65 2C 31 30 3A 20 63 61 6C  ...ld de,10: cal
000130: 6C 20 70 72 68 6C 72 0D 0A 09 6C 64 20 63 2C 31  l prhlr...ld c,1
000140: 3A 20 6C 64 20 64 65 2C 31 0D 0A 2E 70 72 68 6C  : ld de,1...prhl
000150: 72 09 78 6F 72 20 61 0D 0A 2E 70 72 68 6C 6C 70  r.xor a...prhllp
000160: 09 73 63 66 3A 20 63 63 66 3A 20 73 62 63 20 68  .scf: ccf: sbc h
000170: 6C 2C 64 65 3A 20 6A 72 20 63 2C 70 72 68 6C 6F  l,de: jr c,prhlo
000180: 0D 0A 09 69 6E 63 20 61 3A 20 6A 72 20 70 72 68  ...inc a: jr prh
000190: 6C 6C 70 0D 0A 2E 70 72 68 6C 6F 09 61 64 64 20  llp...prhlo.add 
0001A0: 68 6C 2C 64 65 3A 20 6F 72 20 61 3A 20 6A 72 20  hl,de: or a: jr 
0001B0: 6E 7A 2C 70 72 68 6C 79 3A 20 63 70 20 63 3A 20  nz,prhly: cp c: 
0001C0: 72 65 74 20 7A 0D 0A 2E 70 72 68 6C 79 09 6C 64  ret z...prhly.ld
0001D0: 20 63 2C 31 3A 20 61 64 64 20 26 33 30 3A 20 63   c,1: add &30: c
0001E0: 61 6C 6C 20 26 42 42 35 41 3A 20 72 65 74 0D 0A  all &BB5A: ret..
0001F0: 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 50 72 69  ...;*** SUBR.Pri

Size : 512 (Real : 512)
000000: 66 6F 72 20 69 6E 70 75 74 0D 0A 09 20 70 6F 70  for input... pop
000010: 20 62 63 0D 0A 09 20 70 75 73 68 20 68 6C 3A 20   bc... push hl: 
000020: 70 6F 70 20 69 78 0D 0A 09 70 6F 70 20 68 6C 0D  pop ix...pop hl.
000030: 0A 09 6A 70 20 6E 63 2C 65 72 72 6F 72 0D 0A 0D  ..jp nc,error...
000040: 0A 09 63 70 20 26 31 36 3A 20 6A 72 20 6E 7A 2C  ..cp &16: jr nz,
000050: 6C 6E 74 61 73 63 0D 0A 09 6C 64 20 28 69 78 2B  lntasc...ld (ix+
000060: 36 35 29 2C 32 35 35 3A 20 6C 64 20 28 69 78 2B  65),255: ld (ix+
000070: 36 36 29 2C 30 09 3B 6D 6F 64 69 66 79 20 69 66  66),0.;modify if
000080: 20 41 53 43 49 49 20 66 69 6C 65 0D 0A 0D 0A 2E   ASCII file.....
000090: 6C 6E 74 61 73 63 09 63 61 6C 6C 20 26 42 43 38  lntasc.call &BC8
0000A0: 33 0D 0A 09 6A 70 20 26 42 43 37 41 0D 0A 0D 0A  3...jp &BC7A....
0000B0: 09 3B 2A 2A 2A 20 52 53 58 09 7C 49 4E 46 4F 2C  .;*** RSX.|INFO,
0000C0: 40 61 24 0D 0A 0D 0A 2E 69 6E 66 6F 5F 69 09 63  @a$.....info_i.c
0000D0: 70 20 31 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72  p 1: jp nz,parer
0000E0: 72 0D 0A 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B 30  r.....ld l,(ix+0
0000F0: 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29 0D 0A  ): ld h,(ix+1)..
000100: 09 6C 64 20 62 2C 28 68 6C 29 3A 20 69 6E 63 20  .ld b,(hl): inc 
000110: 68 6C 0D 0A 09 6C 64 20 65 2C 28 68 6C 29 3A 20  hl...ld e,(hl): 
000120: 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 64 2C 28 68  inc hl...ld d,(h
000130: 6C 29 3A 20 65 78 20 64 65 2C 68 6C 0D 0A 09 6C  l): ex de,hl...l
000140: 64 20 64 65 2C 62 75 66 66 65 72 09 09 09 3B 32  d de,buffer...;2
000150: 6B 20 62 75 66 66 65 72 0D 0A 2E 72 68 65 61 64  k buffer...rhead
000160: 09 63 61 6C 6C 20 26 42 43 37 37 09 09 09 3B 6F  .call &BC77...;o
000170: 70 65 6E 20 66 69 6C 65 20 66 6F 72 20 69 6E 70  pen file for inp
000180: 75 74 0D 0A 09 6A 70 20 6E 63 2C 65 72 72 6F 72  ut...jp nc,error
000190: 0D 0A 0D 0A 09 6C 64 20 28 64 5F 6C 6F 63 29 2C  .....ld (d_loc),
0001A0: 64 65 0D 0A 09 6C 64 20 28 64 5F 6C 65 6E 29 2C  de...ld (d_len),
0001B0: 62 63 0D 0A 09 6C 64 20 28 64 5F 74 79 70 29 2C  bc...ld (d_typ),
0001C0: 61 0D 0A 09 70 75 73 68 20 64 65 0D 0A 09 20 6C  a...push de... l
0001D0: 64 20 64 65 2C 26 31 41 3A 20 61 64 64 20 68 6C  d de,&1A: add hl
0001E0: 2C 64 65 0D 0A 09 20 6C 64 20 65 2C 28 68 6C 29  ,de... ld e,(hl)
0001F0: 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 6C 64 20 64  : inc hl... ld d

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 09 3B 54 79 70 65 20 63 6F 64 65 0D  .....;Type code.
000010: 0A 0D 0A 2E 74 79 70 65 5F 63 09 63 61 6C 6C 20  ....type_c.call 
000020: 26 42 43 37 44 0D 0A 09 6C 64 20 6C 2C 28 69 78  &BC7D...ld l,(ix
000030: 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31 29 0D 0A  ): ld h,(ix+1)..
000040: 09 6C 64 20 62 2C 28 68 6C 29 3A 20 69 6E 63 20  .ld b,(hl): inc 
000050: 68 6C 0D 0A 09 6C 64 20 65 2C 28 68 6C 29 3A 20  hl...ld e,(hl): 
000060: 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 64 2C 28 68  inc hl...ld d,(h
000070: 6C 29 3A 20 65 78 20 64 65 2C 68 6C 0D 0A 09 6C  l): ex de,hl...l
000080: 64 20 64 65 2C 62 75 66 66 65 72 0D 0A 09 63 61  d de,buffer...ca
000090: 6C 6C 20 26 42 43 37 37 0D 0A 09 6A 72 20 6E 63  ll &BC77...jr nc
0000A0: 2C 74 79 70 65 65 78 0D 0A 0D 0A 2E 74 79 70 65  ,typeex.....type
0000B0: 6C 09 63 61 6C 6C 20 26 42 43 38 30 3A 20 6A 72  l.call &BC80: jr
0000C0: 20 6E 63 2C 74 79 70 65 65 78 0D 0A 09 63 70 20   nc,typeex...cp 
0000D0: 31 33 38 3A 20 63 61 6C 6C 20 7A 20 2C 73 75 62  138: call z ,sub
0000E0: 31 32 38 0D 0A 09 63 70 20 31 34 34 3A 20 63 61  128...cp 144: ca
0000F0: 6C 6C 20 7A 20 2C 72 65 70 73 70 63 0D 0A 09 63  ll z ,repspc...c
000100: 70 20 33 32 20 3A 20 6A 72 20 20 20 6E 63 2C 74  p 32 : jr   nc,t
000110: 79 70 63 68 72 0D 0A 09 63 70 20 39 20 20 3A 20  ypchr...cp 9  : 
000120: 6A 72 20 20 20 7A 20 2C 74 79 70 74 61 62 0D 0A  jr   z ,typtab..
000130: 09 63 70 20 31 30 20 3A 20 6A 72 20 20 20 7A 20  .cp 10 : jr   z 
000140: 2C 74 79 70 63 68 72 09 09 09 3B 64 6F 6E 27 74  ,typchr...;don't
000150: 20 70 72 69 6E 74 20 63 6F 6E 74 72 6F 6C 20 63   print control c
000160: 68 61 72 61 63 74 65 72 73 0D 0A 09 63 70 20 31  haracters...cp 1
000170: 33 20 3A 20 6A 72 20 20 20 7A 20 2C 74 79 70 63  3 : jr   z ,typc
000180: 68 72 09 09 09 3B 65 78 63 65 70 74 20 43 52 2F  hr...;except CR/
000190: 4C 46 20 77 69 74 68 6F 75 74 20 73 65 74 74 69  LF without setti
0001A0: 6E 67 0D 0A 09 70 75 73 68 20 61 66 3A 20 6C 64  ng...push af: ld
0001B0: 20 61 2C 31 3A 20 63 61 6C 6C 20 26 42 42 35 41   a,1: call &BB5A
0001C0: 3A 20 70 6F 70 20 61 66 09 3B 22 70 72 69 6E 74  : pop af.;"print
0001D0: 20 67 72 61 70 68 69 63 22 20 6D 6F 64 65 20 66   graphic" mode f
0001E0: 69 72 73 74 21 0D 0A 2E 74 79 70 63 68 72 09 63  irst!...typchr.c
0001F0: 61 6C 6C 20 26 42 42 35 41 3A 20 73 63 66 0D 0A  all &BB5A: scf..

Size : 512 (Real : 512)
000000: 2C 28 68 6C 29 0D 0A 09 20 6C 64 20 28 66 65 78  ,(hl)... ld (fex
000010: 65 63 29 2C 64 65 09 09 09 3B 67 65 74 20 65 78  ec),de...;get ex
000020: 65 63 75 74 69 6F 6E 20 61 64 64 72 65 73 73 20  ecution address 
000030: 66 72 6F 6D 20 68 65 61 64 65 72 0D 0A 09 70 6F  from header...po
000040: 70 20 68 6C 0D 0A 09 61 64 64 20 68 6C 2C 62 63  p hl...add hl,bc
000050: 0D 0A 09 6C 64 20 28 64 5F 65 6E 64 29 2C 68 6C  ...ld (d_end),hl
000060: 0D 0A 09 63 61 6C 6C 20 26 42 43 37 41 09 09 09  ...call &BC7A...
000070: 3B 63 6C 6F 73 65 20 66 69 6C 65 0D 0A 0D 0A 2E  ;close file.....
000080: 64 69 73 70 69 6E 09 6C 64 20 68 6C 2C 73 74 61  dispin.ld hl,sta
000090: 72 74 3A 20 20 63 61 6C 6C 20 73 74 72 69 6E 67  rt:  call string
0000A0: 3A 20 6C 64 20 68 6C 2C 28 64 5F 6C 6F 63 29 3A  : ld hl,(d_loc):
0000B0: 20 63 61 6C 6C 20 68 65 78 68 6C 0D 0A 09 6C 64   call hexhl...ld
0000C0: 20 68 6C 2C 6C 65 6E 67 74 68 3A 20 63 61 6C 6C   hl,length: call
0000D0: 20 73 74 72 69 6E 67 3A 20 6C 64 20 68 6C 2C 28   string: ld hl,(
0000E0: 64 5F 6C 65 6E 29 3A 20 63 61 6C 6C 20 68 65 78  d_len): call hex
0000F0: 68 6C 0D 0A 09 6C 64 20 68 6C 2C 66 65 78 63 3A  hl...ld hl,fexc:
000100: 20 20 20 63 61 6C 6C 20 73 74 72 69 6E 67 3A 20     call string: 
000110: 6C 64 20 68 6C 2C 28 66 65 78 65 63 29 3A 20 63  ld hl,(fexec): c
000120: 61 6C 6C 20 68 65 78 68 6C 0D 0A 09 6C 64 20 68  all hexhl...ld h
000130: 6C 2C 64 61 74 65 6E 64 3A 20 63 61 6C 6C 20 73  l,datend: call s
000140: 74 72 69 6E 67 3A 20 6C 64 20 68 6C 2C 28 64 5F  tring: ld hl,(d_
000150: 65 6E 64 29 3A 20 63 61 6C 6C 20 68 65 78 68 6C  end): call hexhl
000160: 0D 0A 09 6C 64 20 68 6C 2C 66 6C 74 79 70 65 3A  ...ld hl,fltype:
000170: 20 63 61 6C 6C 20 73 74 72 69 6E 67 3A 20 6C 64   call string: ld
000180: 20 61 20 2C 28 64 5F 74 79 70 29 3A 20 63 61 6C   a ,(d_typ): cal
000190: 6C 20 68 65 78 70 72 74 0D 0A 09 6C 64 20 61 2C  l hexprt...ld a,
0001A0: 22 20 22 3A 20 63 61 6C 6C 20 26 42 42 35 41 0D  " ": call &BB5A.
0001B0: 0A 09 6C 64 20 61 2C 22 28 22 3A 20 63 61 6C 6C  ..ld a,"(": call
0001C0: 20 26 42 42 35 41 0D 0A 09 6C 64 20 61 2C 28 64   &BB5A...ld a,(d
0001D0: 5F 74 79 70 29 3A 20 62 69 74 20 30 2C 61 0D 0A  _typ): bit 0,a..
0001E0: 09 6C 64 20 68 6C 2C 70 72 6F 74 78 74 3A 20 63  .ld hl,protxt: c
0001F0: 61 6C 6C 20 6E 7A 2C 73 74 72 69 6E 67 0D 0A 09  all nz,string...

Size : 512 (Real : 512)
000000: 2E 70 72 6E 63 68 72 09 70 75 73 68 20 61 66 3A  .prnchr.push af:
000010: 20 63 61 6C 6C 20 26 42 44 32 42 3A 20 70 6F 70   call &BD2B: pop
000020: 20 61 66 3A 20 6A 72 20 6E 63 2C 70 72 6E 63 68   af: jr nc,prnch
000030: 72 0D 0A 2E 74 79 70 64 6F 6E 65 20 63 61 6C 6C  r...typdone call
000040: 20 26 42 42 30 39 3A 20 6A 72 20 6E 63 2C 74 79   &BB09: jr nc,ty
000050: 70 65 6C 09 09 3B 69 66 20 6B 65 79 20 6E 6F 74  pel..;if key not
000060: 20 70 72 65 73 73 65 64 2C 20 6C 6F 6F 70 0D 0A   pressed, loop..
000070: 09 63 61 6C 6C 20 26 42 42 30 36 3A 20 63 70 20  .call &BB06: cp 
000080: 26 46 43 3A 20 6A 72 20 6E 7A 2C 74 79 70 65 6C  &FC: jr nz,typel
000090: 09 09 3B 71 75 69 74 20 69 66 20 45 53 43 0D 0A  ..;quit if ESC..
0000A0: 0D 0A 2E 74 79 70 65 65 78 09 63 61 6C 6C 20 26  ...typeex.call &
0000B0: 42 43 37 44 3A 20 72 65 74 0D 0A 0D 0A 2E 73 75  BC7D: ret.....su
0000C0: 62 31 32 38 09 61 6E 64 20 31 32 37 3A 20 72 65  b128.and 127: re
0000D0: 74 09 09 09 09 3B 50 72 6F 74 65 78 74 20 73 6F  t....;Protext so
0000E0: 66 74 20 6C 69 6E 65 20 66 65 65 64 73 0D 0A 2E  ft line feeds...
0000F0: 72 65 70 73 70 63 09 6C 64 20 61 2C 22 20 22 3A  repspc.ld a," ":
000100: 20 72 65 74 09 09 09 09 3B 50 72 6F 74 65 78 74   ret....;Protext
000110: 20 73 6F 66 74 20 73 70 61 63 65 73 0D 0A 2E 74   soft spaces...t
000120: 79 70 74 61 62 09 6C 64 20 61 2C 22 20 22 3A 20  yptab.ld a," ": 
000130: 63 61 6C 6C 20 26 42 42 35 41 09 09 09 3B 54 41  call &BB5A...;TA
000140: 42 20 68 61 6E 64 6C 69 6E 67 20 28 65 76 65 72  B handling (ever
000150: 79 20 38 20 73 70 61 63 65 73 29 0D 0A 09 63 61  y 8 spaces)...ca
000160: 6C 6C 20 26 42 42 37 38 3A 20 6C 64 20 61 2C 68  ll &BB78: ld a,h
000170: 3A 20 64 65 63 20 61 3A 20 61 6E 64 20 37 0D 0A  : dec a: and 7..
000180: 09 6A 72 20 6E 7A 2C 74 79 70 74 61 62 3A 20 6A  .jr nz,typtab: j
000190: 72 20 74 79 70 64 6F 6E 65 0D 0A 0D 0A 09 3B 2A  r typdone.....;*
0001A0: 2A 2A 20 52 53 58 09 7C 43 41 54 2C 64 72 69 76  ** RSX.|CAT,driv
0001B0: 65 0D 0A 0D 0A 2E 63 61 74 6C 5F 69 09 6F 72 20  e.....catl_i.or 
0001C0: 61 3A 20 6A 72 20 7A 2C 64 6F 72 63 61 74 0D 0A  a: jr z,dorcat..
0001D0: 2E 63 74 68 69 6E 67 09 6C 64 20 68 6C 2C 28 26  .cthing.ld hl,(&
0001E0: 42 45 37 44 29 3A 20 6C 64 20 61 2C 28 68 6C 29  BE7D): ld a,(hl)
0001F0: 0D 0A 09 70 75 73 68 20 61 66 3A 20 70 75 73 68  ...push af: push

Size : 512 (Real : 512)
000000: 6C 64 20 61 2C 28 64 5F 74 79 70 29 3A 20 61 6E  ld a,(d_typ): an
000010: 64 20 31 34 0D 0A 09 6C 64 20 68 6C 2C 73 68 62  d 14...ld hl,shb
000020: 61 73 63 3A 20 63 70 20 30 3A 20 6A 70 20 7A 2C  asc: cp 0: jp z,
000030: 73 68 73 74 6E 67 0D 0A 09 6C 64 20 68 6C 2C 73  shstng...ld hl,s
000040: 68 62 69 6E 72 3A 20 63 70 20 32 3A 20 6A 70 20  hbinr: cp 2: jp 
000050: 7A 2C 73 68 73 74 6E 67 0D 0A 09 6C 64 20 68 6C  z,shstng...ld hl
000060: 2C 73 68 61 73 63 69 3A 20 63 70 20 36 3A 20 6A  ,shasci: cp 6: j
000070: 70 20 7A 2C 73 68 73 74 6E 67 0D 0A 09 6C 64 20  p z,shstng...ld 
000080: 68 6C 2C 73 68 75 6E 6B 6E 0D 0A 2E 73 68 73 74  hl,shunkn...shst
000090: 6E 67 09 6A 70 20 73 74 72 69 6E 67 0D 0A 0D 0A  ng.jp string....
0000A0: 2E 64 5F 6C 6F 63 09 65 71 75 20 26 41 46 30 30  .d_loc.equ &AF00
0000B0: 0D 0A 2E 64 5F 6C 65 6E 09 65 71 75 20 26 41 46  ...d_len.equ &AF
0000C0: 30 32 0D 0A 2E 64 5F 74 79 70 09 65 71 75 20 26  02...d_typ.equ &
0000D0: 41 46 30 34 0D 0A 2E 64 5F 65 6E 64 09 65 71 75  AF04...d_end.equ
0000E0: 20 26 41 46 30 36 0D 0A 2E 66 65 78 65 63 09 65   &AF06...fexec.e
0000F0: 71 75 20 26 41 46 30 38 0D 0A 0D 0A 2E 73 74 61  qu &AF08.....sta
000100: 72 74 09 64 62 20 31 30 2C 31 33 0D 0A 2E 73 74  rt.db 10,13...st
000110: 61 72 74 31 09 64 62 20 20 20 20 20 20 20 22 53  art1.db       "S
000120: 74 61 72 74 20 61 64 64 72 65 73 73 20 20 3A 20  tart address  : 
000130: 26 22 2C 30 0D 0A 2E 6C 65 6E 67 74 68 09 64 62  &",0...length.db
000140: 20 31 30 2C 31 33 2C 22 4C 65 6E 67 74 68 20 20   10,13,"Length  
000150: 20 20 20 20 20 20 20 3A 20 26 22 2C 30 0D 0A 2E         : &",0...
000160: 66 65 78 63 09 64 62 20 31 30 2C 31 33 2C 22 45  fexc.db 10,13,"E
000170: 78 65 63 75 74 65 20 61 64 64 72 65 73 73 3A 20  xecute address: 
000180: 26 22 2C 30 0D 0A 2E 64 61 74 65 6E 64 09 64 62  &",0...datend.db
000190: 20 31 30 2C 31 33 2C 22 45 6E 64 20 61 64 64 72   10,13,"End addr
0001A0: 65 73 73 20 20 20 20 3A 20 26 22 2C 30 0D 0A 2E  ess    : &",0...
0001B0: 66 6C 74 79 70 65 09 64 62 20 31 30 2C 31 33 2C  fltype.db 10,13,
0001C0: 22 46 69 6C 65 20 74 79 70 65 20 20 20 20 20 20  "File type      
0001D0: 3A 20 26 22 2C 30 0D 0A 2E 70 72 6F 74 78 74 09  : &",0...protxt.
0001E0: 64 62 20 22 70 72 6F 74 65 63 74 65 64 20 22 2C  db "protected ",
0001F0: 30 0D 0A 2E 73 68 62 61 73 63 09 64 62 20 22 42  0...shbasc.db "B

Size : 512 (Real : 512)
000000: 20 68 6C 0D 0A 09 20 6C 64 20 61 2C 28 69 78 29   hl... ld a,(ix)
000010: 3A 20 6C 64 20 28 68 6C 29 2C 61 0D 0A 09 20 63  : ld (hl),a... c
000020: 61 6C 6C 20 64 6F 72 63 61 74 0D 0A 09 70 6F 70  all dorcat...pop
000030: 20 68 6C 3A 20 70 6F 70 20 61 66 0D 0A 09 6C 64   hl: pop af...ld
000040: 20 28 68 6C 29 2C 61 3A 20 72 65 74 0D 0A 0D 0A   (hl),a: ret....
000050: 2E 64 6F 72 63 61 74 09 6C 64 20 64 65 2C 62 75  .dorcat.ld de,bu
000060: 66 66 65 72 3A 20 6A 70 20 26 42 43 39 42 0D 0A  ffer: jp &BC9B..
000070: 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 53  .ret.....;*** RS
000080: 58 09 7C 44 45 50 52 4F 54 45 43 54 2C 40 61 24  X.|DEPROTECT,@a$
000090: 0D 0A 0D 0A 2E 64 70 72 6F 5F 69 09 63 70 20 31  .....dpro_i.cp 1
0000A0: 3A 20 6A 70 20 6E 7A 2C 70 61 72 65 72 72 09 09  : jp nz,parerr..
0000B0: 3B 61 62 6F 72 74 20 69 66 20 6E 6F 74 20 70 72  ;abort if not pr
0000C0: 65 73 65 6E 74 0D 0A 0D 0A 09 6C 64 20 6C 2C 28  esent.....ld l,(
0000D0: 69 78 2B 30 29 3A 20 6C 64 20 68 2C 28 69 78 2B  ix+0): ld h,(ix+
0000E0: 31 29 0D 0A 09 6C 64 20 62 2C 28 68 6C 29 3A 20  1)...ld b,(hl): 
0000F0: 69 6E 63 20 68 6C 09 09 3B 73 74 72 69 6E 67 20  inc hl..;string 
000100: 61 64 64 72 65 73 73 0D 0A 09 6C 64 20 65 2C 28  address...ld e,(
000110: 68 6C 29 3A 20 69 6E 63 20 68 6C 0D 0A 09 6C 64  hl): inc hl...ld
000120: 20 64 2C 28 68 6C 29 3A 20 65 78 20 64 65 2C 68   d,(hl): ex de,h
000130: 6C 0D 0A 09 6C 64 20 64 65 2C 62 75 66 66 65 72  l...ld de,buffer
000140: 3A 20 63 61 6C 6C 20 26 42 43 37 37 09 3B 6F 70  : call &BC77.;op
000150: 65 6E 20 66 69 6C 65 20 66 6F 72 20 69 6E 70 75  en file for inpu
000160: 74 0D 0A 09 6A 70 20 6E 63 2C 65 72 72 6F 72 0D  t...jp nc,error.
000170: 0A 09 63 70 20 32 3A 20 6A 70 20 6E 63 2C 65 72  ..cp 2: jp nc,er
000180: 72 6F 72 09 09 3B 69 66 20 6E 6F 74 20 61 20 70  ror..;if not a p
000190: 72 6F 74 65 63 74 65 64 20 42 41 53 49 43 20 66  rotected BASIC f
0001A0: 69 6C 65 0D 0A 09 70 75 73 68 20 64 65 0D 0A 09  ile...push de...
0001B0: 20 6C 64 20 69 78 2C 26 41 45 36 36 09 09 09 3B   ld ix,&AE66...;
0001C0: 42 41 53 49 43 20 31 2E 31 20 76 61 72 69 61 62  BASIC 1.1 variab
0001D0: 6C 65 20 2D 20 6C 65 6E 67 74 68 0D 0A 09 20 6C  le - length... l
0001E0: 64 20 61 2C 28 36 29 3A 20 63 70 20 31 32 38 3A  d a,(6): cp 128:
0001F0: 20 6A 72 20 6E 7A 2C 6E 6F 74 34 36 34 09 3B 34   jr nz,not464.;4

Size : 512 (Real : 512)
000000: 41 53 49 43 29 22 2C 31 30 2C 31 33 2C 30 0D 0A  ASIC)",10,13,0..
000010: 2E 73 68 62 69 6E 72 09 64 62 20 22 62 69 6E 61  .shbinr.db "bina
000020: 72 79 29 22 2C 31 30 2C 31 33 2C 30 0D 0A 2E 73  ry)",10,13,0...s
000030: 68 61 73 63 69 09 64 62 20 22 41 53 43 49 49 29  hasci.db "ASCII)
000040: 22 2C 31 30 2C 31 33 2C 30 0D 0A 2E 73 68 75 6E  ",10,13,0...shun
000050: 6B 6E 09 64 62 20 22 75 6E 6B 6E 6F 77 6E 29 22  kn.db "unknown)"
000060: 2C 31 30 2C 31 33 2C 30 0D 0A 0D 0A 09 3B 2A 2A  ,10,13,0.....;**
000070: 2A 20 53 55 42 52 09 53 74 72 69 6E 67 20 70 72  * SUBR.String pr
000080: 69 6E 74 0D 0A 0D 0A 2E 73 74 72 69 6E 67 09 6C  int.....string.l
000090: 64 20 61 2C 28 68 6C 29 3A 20 6F 72 20 61 3A 20  d a,(hl): or a: 
0000A0: 72 65 74 20 7A 0D 0A 09 63 61 6C 6C 20 26 42 42  ret z...call &BB
0000B0: 35 41 0D 0A 09 69 6E 63 20 68 6C 3A 20 6A 72 20  5A...inc hl: jr 
0000C0: 73 74 72 69 6E 67 0D 0A 0D 0A 09 3B 2A 2A 2A 20  string.....;*** 
0000D0: 53 55 42 52 09 43 6F 6E 76 65 72 74 20 74 6F 20  SUBR.Convert to 
0000E0: 75 70 70 65 72 20 63 61 73 65 0D 0A 0D 0A 2E 75  upper case.....u
0000F0: 63 61 73 65 09 63 70 20 20 26 36 31 3A 20 72 65  case.cp  &61: re
000100: 74 20 63 0D 0A 09 63 70 20 20 26 37 42 3A 20 72  t c...cp  &7B: r
000110: 65 74 20 6E 63 0D 0A 09 61 64 64 20 26 45 30 3A  et nc...add &E0:
000120: 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55   ret.....;*** SU
000130: 42 52 09 48 65 78 20 70 72 69 6E 74 20 77 69 74  BR.Hex print wit
000140: 68 6F 75 74 20 63 6F 72 72 75 70 74 69 6F 6E 0D  hout corruption.
000150: 0A 0D 0A 2E 68 65 78 6E 63 09 70 75 73 68 20 62  ....hexnc.push b
000160: 63 3A 20 63 61 6C 6C 20 68 65 78 70 72 74 3A 20  c: call hexprt: 
000170: 70 6F 70 20 62 63 3A 20 72 65 74 0D 0A 0D 0A 09  pop bc: ret.....
000180: 3B 2A 2A 2A 20 53 55 42 52 09 31 2D 62 79 74 65  ;*** SUBR.1-byte
000190: 20 68 65 78 20 70 72 69 6E 74 20 5B 41 5D 0D 0A   hex print [A]..
0001A0: 0D 0A 2E 68 65 78 70 72 74 09 6C 64 20 62 2C 32  ...hexprt.ld b,2
0001B0: 3A 20 6C 64 20 63 2C 61 0D 0A 09 72 72 61 3A 20  : ld c,a...rra: 
0001C0: 72 72 61 3A 20 72 72 61 3A 20 72 72 61 0D 0A 2E  rra: rra: rra...
0001D0: 68 65 78 6D 73 6B 09 61 6E 64 20 26 46 0D 0A 09  hexmsk.and &F...
0001E0: 63 70 20 31 30 3A 20 6A 72 20 63 2C 68 65 78 62  cp 10: jr c,hexb
0001F0: 79 65 0D 0A 09 61 64 64 20 37 09 09 09 09 3B 41  ye...add 7....;A

Size : 512 (Real : 512)
000000: 36 34 3F 0D 0A 09 20 6C 64 20 69 78 2C 26 41 45  64?... ld ix,&AE
000010: 38 33 09 09 09 3B 42 41 53 49 43 20 31 2E 30 20  83...;BASIC 1.0 
000020: 76 61 72 69 61 62 6C 65 20 2D 20 6C 65 6E 67 74  variable - lengt
000030: 68 0D 0A 2E 6E 6F 74 34 36 34 09 20 65 78 20 64  h...not464. ex d
000040: 65 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 62 63 0D  e,hl: add hl,bc.
000050: 0A 09 20 6C 64 20 28 69 78 2B 30 29 2C 6C 3A 20  .. ld (ix+0),l: 
000060: 6C 64 20 28 69 78 2B 31 29 2C 68 0D 0A 09 20 6C  ld (ix+1),h... l
000070: 64 20 28 69 78 2B 32 29 2C 6C 3A 20 6C 64 20 28  d (ix+2),l: ld (
000080: 69 78 2B 33 29 2C 68 0D 0A 09 20 6C 64 20 28 69  ix+3),h... ld (i
000090: 78 2B 34 29 2C 6C 3A 20 6C 64 20 28 69 78 2B 35  x+4),l: ld (ix+5
0000A0: 29 2C 68 0D 0A 09 20 6C 64 20 28 69 78 2B 36 29  ),h... ld (ix+6)
0000B0: 2C 6C 3A 20 6C 64 20 28 69 78 2B 37 29 2C 68 0D  ,l: ld (ix+7),h.
0000C0: 0A 09 70 6F 70 20 68 6C 0D 0A 09 63 61 6C 6C 20  ..pop hl...call 
0000D0: 26 42 43 38 33 3A 20 63 61 6C 6C 20 26 42 43 37  &BC83: call &BC7
0000E0: 41 09 09 3B 67 65 74 20 66 69 6C 65 20 61 6E 64  A..;get file and
0000F0: 20 63 6C 6F 73 65 0D 0A 09 72 65 74 0D 0A 0D 0A   close...ret....
000100: 09 3B 2A 2A 2A 20 52 53 58 09 7C 4C 4F 41 44 2C  .;*** RSX.|LOAD,
000110: 40 61 24 2C 61 64 64 72 65 73 73 0D 0A 0D 0A 2E  @a$,address.....
000120: 6C 6F 61 64 5F 69 09 63 70 20 32 3A 20 6A 70 20  load_i.cp 2: jp 
000130: 6E 7A 2C 70 61 72 65 72 72 0D 0A 0D 0A 09 6C 64  nz,parerr.....ld
000140: 20 6C 2C 28 69 78 29 3A 20 6C 64 20 68 2C 28 69   l,(ix): ld h,(i
000150: 78 2B 31 29 0D 0A 09 70 75 73 68 20 68 6C 0D 0A  x+1)...push hl..
000160: 09 20 6C 64 20 6C 2C 28 69 78 2B 32 29 3A 20 6C  . ld l,(ix+2): l
000170: 64 20 68 2C 28 69 78 2B 33 29 0D 0A 09 20 6C 64  d h,(ix+3)... ld
000180: 20 62 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 0D   b,(hl): inc hl.
000190: 0A 09 20 6C 64 20 65 2C 28 68 6C 29 3A 20 69 6E  .. ld e,(hl): in
0001A0: 63 20 68 6C 0D 0A 09 20 6C 64 20 64 2C 28 68 6C  c hl... ld d,(hl
0001B0: 29 3A 20 65 78 20 64 65 2C 68 6C 0D 0A 09 20 6C  ): ex de,hl... l
0001C0: 64 20 64 65 2C 62 75 66 66 65 72 09 09 09 3B 32  d de,buffer...;2
0001D0: 6B 20 62 75 66 66 65 72 0D 0A 09 20 70 75 73 68  k buffer... push
0001E0: 20 62 63 0D 0A 09 20 20 63 61 6C 6C 20 26 42 43   bc...  call &BC
0001F0: 37 37 09 09 09 3B 6F 70 65 6E 20 66 69 6C 65 20  77...;open file

Size : 512 (Real : 512)
000000: 64 62 20 22 55 6E 6B 6E 6F 77 6E 20 63 6F 6D 6D  db "Unknown comm
000010: 61 6E 64 22 2C 30 0D 0A 2E 6B 65 79 74 78 74 09  and",0...keytxt.
000020: 64 62 20 22 43 6F 75 6C 64 20 6E 6F 74 20 73 65  db "Could not se
000030: 74 20 6B 65 79 22 2C 30 0D 0A 0D 0A 09 3B 2A 2A  t key",0.....;**
000040: 2A 20 53 55 42 52 09 4C 44 20 41 2C 28 48 4C 29  * SUBR.LD A,(HL)
000050: 20 2D 20 65 78 74 72 61 20 62 61 6E 6B 73 0D 0A   - extra banks..
000060: 0D 0A 2E 6C 64 61 68 6C 09 70 75 73 68 20 62 63  ...ldahl.push bc
000070: 3A 20 70 75 73 68 20 68 6C 0D 0A 09 20 6C 64 20  : push hl... ld 
000080: 62 2C 61 3A 20 6C 64 20 61 2C 68 3A 20 61 6E 64  b,a: ld a,h: and
000090: 20 26 43 30 0D 0A 2E 62 6E 6B 70 31 09 20 72 6C   &C0...bnkp1. rl
0000A0: 63 61 3A 20 72 6C 63 61 3A 20 61 64 64 20 26 43  ca: rlca: add &C
0000B0: 34 0D 0A 09 20 6C 64 20 63 2C 61 0D 0A 09 20 6C  4... ld c,a... l
0000C0: 64 20 61 2C 68 3A 20 61 6E 64 20 26 33 46 3A 20  d a,h: and &3F: 
0000D0: 6F 72 20 26 34 30 3A 20 6C 64 20 68 2C 61 0D 0A  or &40: ld h,a..
0000E0: 09 20 6C 64 20 61 2C 62 3A 20 6C 64 20 62 2C 26  . ld a,b: ld b,&
0000F0: 37 46 0D 0A 09 20 6F 75 74 20 28 63 29 2C 63 3A  7F... out (c),c:
000100: 20 6C 64 20 61 2C 28 68 6C 29 0D 0A 09 20 6C 64   ld a,(hl)... ld
000110: 20 63 2C 26 43 30 3A 20 6F 75 74 20 28 63 29 2C   c,&C0: out (c),
000120: 63 0D 0A 09 70 6F 70 20 68 6C 3A 20 70 6F 70 20  c...pop hl: pop 
000130: 62 63 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  bc...ret.....;**
000140: 2A 20 53 55 42 52 09 4C 44 20 28 48 4C 29 2C 41  * SUBR.LD (HL),A
000150: 20 2D 20 65 78 74 72 61 20 62 61 6E 6B 73 0D 0A   - extra banks..
000160: 0D 0A 2E 6C 64 68 6C 61 09 70 75 73 68 20 62 63  ...ldhla.push bc
000170: 3A 20 70 75 73 68 20 68 6C 0D 0A 09 20 6C 64 20  : push hl... ld 
000180: 62 2C 61 3A 20 6C 64 20 61 2C 68 3A 20 61 6E 64  b,a: ld a,h: and
000190: 20 26 43 30 0D 0A 2E 62 6E 6B 70 32 09 20 72 6C   &C0...bnkp2. rl
0001A0: 63 61 3A 20 72 6C 63 61 3A 20 61 64 64 20 26 43  ca: rlca: add &C
0001B0: 34 0D 0A 09 20 6C 64 20 63 2C 61 0D 0A 09 20 6C  4... ld c,a... l
0001C0: 64 20 61 2C 68 3A 20 61 6E 64 20 26 33 46 3A 20  d a,h: and &3F: 
0001D0: 6F 72 20 26 34 30 3A 20 6C 64 20 68 2C 61 0D 0A  or &40: ld h,a..
0001E0: 09 20 6C 64 20 61 2C 62 3A 20 6C 64 20 62 2C 26  . ld a,b: ld b,&
0001F0: 37 46 0D 0A 09 20 6F 75 74 20 28 63 29 2C 63 3A  7F... out (c),c:

Size : 512 (Real : 512)
000000: 6A 70 20 43 4F 50 59 41 42 0D 0A 09 6A 70 20 43  jp COPYAB...jp C
000010: 4F 50 59 42 41 0D 0A 09 6A 70 20 42 52 55 4E 0D  OPYBA...jp BRUN.
000020: 0A 09 6A 70 20 48 45 4C 50 0D 0A 09 6A 70 20 48  ..jp HELP...jp H
000030: 45 41 44 45 52 0D 0A 09 6A 70 20 42 41 53 4C 4F  EADER...jp BASLO
000040: 44 0D 0A 09 6A 70 20 53 4C 4F 41 44 0D 0A 09 6A  D...jp SLOAD...j
000050: 70 20 43 41 54 0D 0A 0D 0A 2E 6E 61 6D 74 61 62  p CAT.....namtab
000060: 20 69 66 20 72 6F 6D 0D 0A 09 20 73 74 72 20 22   if rom... str "
000070: 53 2D 44 4F 53 20 22 0D 0A 09 65 6E 64 69 66 0D  S-DOS "...endif.
000080: 0A 09 73 74 72 20 22 53 46 4F 52 4D 41 54 22 0D  ..str "SFORMAT".
000090: 0A 09 73 74 72 20 22 53 56 45 52 49 46 59 22 0D  ..str "SVERIFY".
0000A0: 0A 09 73 74 72 20 22 41 4D 53 44 4F 53 22 0D 0A  ..str "AMSDOS"..
0000B0: 09 73 74 72 20 22 43 4F 50 59 41 42 22 0D 0A 09  .str "COPYAB"...
0000C0: 73 74 72 20 22 43 4F 50 59 42 41 22 0D 0A 09 73  str "COPYBA"...s
0000D0: 74 72 20 22 42 52 55 4E 22 0D 0A 09 73 74 72 20  tr "BRUN"...str 
0000E0: 22 53 48 45 4C 50 22 0D 0A 09 73 74 72 20 22 53  "SHELP"...str "S
0000F0: 48 45 41 44 45 52 22 0D 0A 09 73 74 72 20 22 53  HEADER"...str "S
000100: 50 4C 4F 41 44 22 0D 0A 09 73 74 72 20 22 53 4C  PLOAD"...str "SL
000110: 4F 41 44 22 0D 0A 09 73 74 72 20 22 43 41 54 22  OAD"...str "CAT"
000120: 0D 0A 09 6E 6F 70 0D 0A 0D 0A 09 3B 3E 3E 3E 20  ...nop.....;>>> 
000130: 49 6E 69 74 69 61 6C 69 73 61 74 69 6F 6E 20 65  Initialisation e
000140: 6E 74 72 79 0D 0A 0D 0A 2E 69 6E 69 74 65 6E 09  ntry.....initen.
000150: 6C 64 20 61 2C 31 0D 0A 09 70 75 73 68 20 68 6C  ld a,1...push hl
000160: 3A 70 75 73 68 20 64 65 20 3B 70 72 65 73 65 72  :push de ;preser
000170: 76 65 20 69 6D 70 6F 72 74 61 6E 74 20 73 79 73  ve important sys
000180: 74 65 6D 20 72 65 67 69 73 74 65 72 73 0D 0A 09  tem registers...
000190: 70 75 73 68 20 69 78 3A 70 75 73 68 20 69 79 20  push ix:push iy 
0001A0: 0D 0A 09 63 61 6C 6C 20 66 6F 72 6D 61 74 09 3B  ...call format.;
0001B0: 53 65 74 20 75 70 20 53 2D 44 4F 53 20 66 6F 72  Set up S-DOS for
0001C0: 6D 61 74 0D 0A 09 6C 64 20 68 6C 2C 74 69 74 6C  mat...ld hl,titl
0001D0: 65 09 3B 61 64 64 72 65 73 73 20 6F 66 20 52 4F  e.;address of RO
0001E0: 4D 20 6C 6F 67 6F 6E 20 74 69 74 6C 65 0D 0A 09  M logon title...
0001F0: 63 61 6C 6C 20 73 74 72 69 6E 67 09 3B 50 72 69  call string.;Pri

Size : 512 (Real : 512)
000000: 20 6C 64 20 28 68 6C 29 2C 61 0D 0A 09 20 6C 64   ld (hl),a... ld
000010: 20 63 2C 26 43 30 3A 20 6F 75 74 20 28 63 29 2C   c,&C0: out (c),
000020: 63 0D 0A 09 70 6F 70 20 68 6C 3A 20 70 6F 70 20  c...pop hl: pop 
000030: 62 63 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  bc...ret.....;**
000040: 2A 20 53 55 42 52 09 44 69 73 63 20 64 72 69 76  * SUBR.Disc driv
000050: 65 20 63 6F 6E 6E 65 63 74 65 64 3F 0D 0A 0D 0A  e connected?....
000060: 2E 66 6E 64 64 73 63 09 6C 64 20 68 6C 2C 64 73  .fnddsc.ld hl,ds
000070: 63 72 73 78 3A 20 63 61 6C 6C 20 26 42 43 44 34  crsx: call &BCD4
000080: 0D 0A 09 73 62 63 20 61 3A 20 72 65 74 0D 0A 0D  ...sbc a: ret...
000090: 0A 2E 64 73 63 72 73 78 09 73 74 72 20 22 44 49  ..dscrsx.str "DI
0000A0: 53 43 22 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54  SC".....;*** DAT
0000B0: 41 09 46 69 6C 65 20 62 75 66 66 65 72 0D 0A 0D  A.File buffer...
0000C0: 0A 2E 62 75 66 66 65 72 09 64 62 20 30 0D 0A 1A  ..buffer.db 0...
0000D0: 43 6F 64 69 6E 67 20 70 72 6F 64 75 63 74 69 6F  Coding productio
0000E0: 6E 0D 0A 09 3B 66 6F 72 20 52 6F 62 6F 74 20 50  n...;for Robot P
0000F0: 44 20 61 6E 64 20 41 6D 73 74 72 61 64 20 41 63  D and Amstrad Ac
000100: 20 6C 64 20 61 2C 28 68 6C 29 0D 0A 09 20 6C 64   ld a,(hl)... ld
000110: 20 63 2C 26 43 30 3A 20 6F 75 74 20 28 63 29 2C   c,&C0: out (c),
000120: 63 0D 0A 09 70 6F 70 20 68 6C 3A 20 70 6F 70 20  c...pop hl: pop 
000130: 62 63 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  bc...ret.....;**
000140: 2A 20 53 55 42 52 09 4C 44 20 28 48 4C 29 2C 41  * SUBR.LD (HL),A
000150: 20 2D 20 65 78 74 72 61 20 62 61 6E 6B 73 0D 0A   - extra banks..
000160: 0D 0A 2E 6C 64 68 6C 61 09 70 75 73 68 20 62 63  ...ldhla.push bc
000170: 3A 20 70 75 73 68 20 68 6C 0D 0A 09 20 6C 64 20  : push hl... ld 
000180: 62 2C 61 3A 20 6C 64 20 61 2C 68 3A 20 61 6E 64  b,a: ld a,h: and
000190: 20 26 43 30 0D 0A 2E 62 6E 6B 70 32 09 20 72 6C   &C0...bnkp2. rl
0001A0: 63 61 3A 20 72 6C 63 61 3A 20 61 64 64 20 26 43  ca: rlca: add &C
0001B0: 34 0D 0A 09 20 6C 64 20 63 2C 61 0D 0A 09 20 6C  4... ld c,a... l
0001C0: 64 20 61 2C 68 3A 20 61 6E 64 20 26 33 46 3A 20  d a,h: and &3F: 
0001D0: 6F 72 20 26 34 30 3A 20 6C 64 20 68 2C 61 0D 0A  or &40: ld h,a..
0001E0: 09 20 6C 64 20 61 2C 62 3A 20 6C 64 20 62 2C 26  . ld a,b: ld b,&
0001F0: 37 46 0D 0A 09 20 6F 75 74 20 28 63 29 2C 63 3A  7F... out (c),c:

Size : 512 (Real : 512)
000000: 6E 74 20 69 74 20 0D 0A 0D 0A 09 6C 64 20 64 65  nt it .....ld de
000010: 2C 26 41 46 30 30 0D 0A 09 6C 64 20 68 6C 2C 64  ,&AF00...ld hl,d
000020: 70 61 72 61 6D 0D 0A 09 6C 64 20 62 63 2C 39 0D  param...ld bc,9.
000030: 0A 09 70 75 73 68 20 64 65 0D 0A 09 6C 64 69 72  ..push de...ldir
000040: 09 09 3B 43 6F 70 79 20 74 6F 20 26 41 46 30 30  ..;Copy to &AF00
000050: 20 28 6E 6F 74 20 69 6E 20 61 20 52 4F 4D 29 0D   (not in a ROM).
000060: 0A 09 70 6F 70 20 68 6C 0D 0A 09 72 73 74 20 33  ..pop hl...rst 3
000070: 09 09 3B 53 65 74 20 75 70 20 66 61 73 74 65 72  ..;Set up faster
000080: 20 64 69 73 63 20 73 70 65 65 64 0D 0A 09 64 77   disc speed...dw
000090: 20 73 65 74 75 70 0D 0A 0D 0A 09 70 6F 70 20 69   setup.....pop i
0000A0: 79 3A 20 70 6F 70 20 69 78 09 3B 67 65 74 20 74  y: pop ix.;get t
0000B0: 68 65 20 70 72 65 73 65 72 76 65 64 20 72 65 67  he preserved reg
0000C0: 69 73 74 65 72 73 20 62 61 63 6B 20 61 67 61 69  isters back agai
0000D0: 6E 21 0D 0A 09 70 6F 70 20 64 65 3A 20 70 6F 70  n!...pop de: pop
0000E0: 20 68 6C 0D 0A 09 73 63 66 09 09 3B 63 61 72 72   hl...scf..;carr
0000F0: 79 20 66 6C 61 67 20 69 6E 64 69 63 61 74 65 73  y flag indicates
000100: 20 52 4F 4D 20 69 6E 69 74 2E 20 77 61 73 20 73   ROM init. was s
000110: 75 63 63 65 73 73 66 75 6C 0D 0A 09 72 65 74 09  uccessful...ret.
000120: 09 3B 61 6E 64 20 72 65 74 75 72 6E 0D 0A 0D 0A  .;and return....
000130: 09 3B 3E 3E 3E 20 53 46 4F 52 4D 41 54 20 63 6F  .;>>> SFORMAT co
000140: 6D 6D 61 6E 64 20 3C 52 6F 62 3E 0D 0A 0D 0A 2E  mmand <Rob>.....
000150: 66 6F 72 6D 61 74 09 6C 64 20 68 6C 2C 28 26 42  format.ld hl,(&B
000160: 45 37 44 29 0D 0A 09 6C 64 20 64 65 2C 26 31 64  E7D)...ld de,&1d
000170: 30 0D 0A 09 61 64 64 20 68 6C 2C 64 65 0D 0A 09  0...add hl,de...
000180: 65 78 20 68 6C 2C 64 65 09 3B 44 45 20 63 6F 6E  ex hl,de.;DE con
000190: 74 61 69 6E 73 20 58 50 42 20 61 64 64 72 65 73  tains XPB addres
0001A0: 73 20 66 6F 72 20 64 72 69 76 65 20 42 0D 0A 09  s for drive B...
0001B0: 6C 64 20 68 6C 2C 78 70 62 09 3B 48 4C 20 63 6F  ld hl,xpb.;HL co
0001C0: 6E 74 61 69 6E 73 20 70 6F 69 6E 74 65 72 20 74  ntains pointer t
0001D0: 6F 20 4E 45 57 20 58 50 42 20 66 6F 72 20 64 72  o NEW XPB for dr
0001E0: 69 76 65 20 42 0D 0A 09 6C 64 20 62 63 2C 32 35  ive B...ld bc,25
0001F0: 09 3B 6E 75 6D 62 65 72 20 6F 66 20 65 6E 74 72  .;number of entr

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: 6E 74 20 4C 46 2F 43 52 0D 0A 0D 0A 2E 63 72 6C  nt LF/CR.....crl
000010: 66 09 6C 64 20 61 2C 31 30 3A 20 63 61 6C 6C 20  f.ld a,10: call 
000020: 26 42 42 35 41 0D 0A 09 6C 64 20 61 2C 31 33 3A  &BB5A...ld a,13:
000030: 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 72 65 74   call &BB5A: ret
000040: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 50  .....;*** SUBR.P
000050: 72 69 6E 74 20 73 70 65 63 69 61 6C 20 63 68 61  rint special cha
000060: 72 61 63 74 65 72 0D 0A 0D 0A 2E 70 63 73 70 65  racter.....pcspe
000070: 63 09 70 75 73 68 20 61 66 3A 20 70 75 73 68 20  c.push af: push 
000080: 62 63 0D 0A 09 20 6C 64 20 63 2C 61 0D 0A 09 20  bc... ld c,a... 
000090: 6C 64 20 61 2C 31 3A 20 63 61 6C 6C 20 26 42 42  ld a,1: call &BB
0000A0: 35 41 0D 0A 09 20 6C 64 20 61 2C 63 3A 20 63 61  5A... ld a,c: ca
0000B0: 6C 6C 20 26 42 42 35 41 0D 0A 09 20 6C 64 20 61  ll &BB5A... ld a
0000C0: 2C 72 3A 20 62 69 74 20 37 2C 61 3A 20 6A 72 20  ,r: bit 7,a: jr 
0000D0: 7A 2C 70 63 73 65 6E 64 0D 0A 09 20 6C 64 20 61  z,pcsend... ld a
0000E0: 2C 63 3A 20 63 70 20 33 32 3A 20 6A 72 20 63 2C  ,c: cp 32: jr c,
0000F0: 70 63 73 64 6F 74 0D 0A 09 20 62 69 74 20 37 2C  pcsdot... bit 7,
000100: 61 3A 20 6A 72 20 6E 7A 2C 70 63 73 64 6F 74 0D  a: jr nz,pcsdot.
000110: 0A 09 20 63 61 6C 6C 20 26 42 44 32 42 3A 20 6A  .. call &BD2B: j
000120: 72 20 70 63 73 65 6E 64 0D 0A 2E 70 63 73 64 6F  r pcsend...pcsdo
000130: 74 09 20 6C 64 20 61 2C 22 2E 22 3A 20 63 61 6C  t. ld a,".": cal
000140: 6C 20 26 42 44 32 42 0D 0A 2E 70 63 73 65 6E 64  l &BD2B...pcsend
000150: 09 70 6F 70 20 62 63 3A 20 70 6F 70 20 61 66 3A  .pop bc: pop af:
000160: 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55   ret.....;*** SU
000170: 42 52 09 45 72 72 6F 72 73 0D 0A 0D 0A 2E 70 61  BR.Errors.....pa
000180: 72 65 72 72 09 6C 64 20 68 6C 2C 70 61 72 74 78  rerr.ld hl,partx
000190: 74 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67 3A 20  t: call string: 
0001A0: 6A 70 20 63 72 6C 66 0D 0A 2E 65 72 72 6F 72 09  jp crlf...error.
0001B0: 6C 64 20 68 6C 2C 65 72 72 74 78 74 3A 20 63 61  ld hl,errtxt: ca
0001C0: 6C 6C 20 73 74 72 69 6E 67 3A 20 6A 70 20 63 72  ll string: jp cr
0001D0: 6C 66 0D 0A 2E 65 73 63 65 72 72 09 6C 64 20 68  lf...escerr.ld h
0001E0: 6C 2C 65 73 63 74 78 74 3A 20 63 61 6C 6C 20 73  l,esctxt: call s
0001F0: 74 72 69 6E 67 3A 20 6A 70 20 63 72 6C 66 0D 0A  tring: jp crlf..

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 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 0D  ***************.
000030: 0A 09 3B 2A 20 53 44 4F 53 20 76 65 72 73 69 6F  ..;* SDOS versio
000040: 6E 20 31 2E 30 20 72 65 76 20 32 33 20 20 20 20  n 1.0 rev 23    
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 0A               *..
000060: 09 3B 2A 20 57 72 69 74 74 65 6E 20 69 6E 20 5A  .;* Written in Z
000070: 38 30 20 41 53 53 45 4D 42 4C 45 52 20 6F 6E 20  80 ASSEMBLER on 
000080: 61 20 43 50 43 36 36 34 20 20 20 20 2A 0D 0A 09  a CPC664    *...
000090: 3B 2A 20 41 6C 6C 20 63 6F 64 65 20 63 6F 6E 74  ;* All code cont
0000A0: 65 6E 74 20 63 6F 70 79 72 69 67 68 74 20 31 39  ent copyright 19
0000B0: 39 32 20 20 20 20 20 20 20 20 20 2A 0D 0A 09 3B  92         *...;
0000C0: 2A 20 52 6F 62 20 53 63 6F 74 74 20 61 6E 64 20  * Rob Scott and 
0000D0: 52 69 63 68 61 72 64 20 46 61 69 72 68 75 72 73  Richard Fairhurs
0000E0: 74 20 20 20 20 20 20 20 20 20 2A 0D 0A 09 3B 2A  t         *...;*
0000F0: 2A 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 0D 0A 0D 0A 09 3B  **********.....;
000120: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  +---------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 2D 2D 2B 0D 0A 09 3B 7C 20 44 61 74 65  -----+...;| Date
000150: 20 50 72 6F 67 72 61 6D 6D 65 64 20 20 20 54 75   Programmed   Tu
000160: 65 2F 57 65 64 20 32 35 2F 30 33 2F 39 32 20 7C  e/Wed 25/03/92 |
000170: 0D 0A 09 3B 7C 20 52 65 76 69 73 69 6F 6E 20 4E  ...;| Revision N
000180: 75 6D 62 65 72 20 20 20 32 33 20 20 20 20 20 20  umber   23      
000190: 20 20 20 20 20 20 20 20 20 7C 0D 0A 09 3B 7C 20           |...;| 
0001A0: 4C 61 6E 67 75 61 67 65 20 20 20 20 20 20 20 20  Language        
0001B0: 20 20 5A 38 30 20 6D 61 63 68 69 6E 65 20 63 6F    Z80 machine co
0001C0: 64 65 20 7C 0D 0A 09 3B 7C 20 56 65 72 73 69 6F  de |...;| Versio
0001D0: 6E 20 54 79 70 65 20 20 20 20 20 20 52 4F 4D 2F  n Type      ROM/
0001E0: 64 69 73 63 20 69 6D 61 67 65 20 20 20 7C 0D 0A  disc image   |..
0001F0: 09 3B 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  .;+-------------

Size : 512 (Real : 512)
000000: 2E 6F 76 72 65 72 72 09 6C 64 20 68 6C 2C 6F 76  .ovrerr.ld hl,ov
000010: 72 74 78 74 3A 20 63 61 6C 6C 20 73 74 72 69 6E  rtxt: call strin
000020: 67 3A 20 6A 70 20 63 72 6C 66 0D 0A 2E 63 72 63  g: jp crlf...crc
000030: 65 72 72 09 6C 64 20 68 6C 2C 63 72 63 74 78 74  err.ld hl,crctxt
000040: 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67 3A 20 6A  : call string: j
000050: 70 20 63 72 6C 66 0D 0A 2E 64 73 63 65 72 72 09  p crlf...dscerr.
000060: 6C 64 20 68 6C 2C 64 73 63 74 78 74 3A 20 63 61  ld hl,dsctxt: ca
000070: 6C 6C 20 73 74 72 69 6E 67 3A 20 6A 70 20 63 72  ll string: jp cr
000080: 6C 66 0D 0A 2E 63 68 72 65 72 72 09 6C 64 20 68  lf...chrerr.ld h
000090: 6C 2C 63 68 72 74 78 74 3A 20 63 61 6C 6C 20 73  l,chrtxt: call s
0000A0: 74 72 69 6E 67 3A 20 6A 70 20 63 72 6C 66 0D 0A  tring: jp crlf..
0000B0: 2E 75 6E 6B 65 72 72 09 6C 64 20 68 6C 2C 75 6E  .unkerr.ld hl,un
0000C0: 6B 74 78 74 3A 20 63 61 6C 6C 20 73 74 72 69 6E  ktxt: call strin
0000D0: 67 3A 20 6A 70 20 63 72 6C 66 0D 0A 2E 6B 65 79  g: jp crlf...key
0000E0: 65 72 72 09 6C 64 20 68 6C 2C 6B 65 79 74 78 74  err.ld hl,keytxt
0000F0: 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67 3A 20 6A  : call string: j
000100: 70 20 63 72 6C 66 0D 0A 0D 0A 2E 70 61 72 74 78  p crlf.....partx
000110: 74 09 64 62 20 22 49 6C 6C 65 67 61 6C 20 70 61  t.db "Illegal pa
000120: 72 61 6D 65 74 65 72 20 63 6F 75 6E 74 22 2C 30  rameter count",0
000130: 0D 0A 2E 65 72 72 74 78 74 09 64 62 20 22 46 69  ...errtxt.db "Fi
000140: 6C 65 20 65 72 72 6F 72 22 2C 30 0D 0A 2E 65 73  le error",0...es
000150: 63 74 78 74 09 64 62 20 22 45 73 63 61 70 65 20  ctxt.db "Escape 
000160: 70 72 65 73 73 65 64 22 2C 30 0D 0A 2E 6F 76 72  pressed",0...ovr
000170: 74 78 74 09 64 62 20 22 43 61 73 73 65 74 74 65  txt.db "Cassette
000180: 20 6F 76 65 72 72 75 6E 22 2C 30 0D 0A 2E 63 72   overrun",0...cr
000190: 63 74 78 74 09 64 62 20 22 52 65 61 64 20 65 72  ctxt.db "Read er
0001A0: 72 6F 72 20 62 20 28 43 52 43 20 65 72 72 6F 72  ror b (CRC error
0001B0: 29 22 2C 30 0D 0A 2E 64 73 63 74 78 74 09 64 62  )",0...dsctxt.db
0001C0: 20 22 44 69 73 63 20 65 72 72 6F 72 22 2C 30 0D   "Disc error",0.
0001D0: 0A 2E 63 68 72 74 78 74 09 64 62 20 22 43 68 61  ..chrtxt.db "Cha
0001E0: 72 61 63 74 65 72 20 6E 6F 74 20 65 64 69 74 61  racter not edita
0001F0: 62 6C 65 22 2C 30 0D 0A 2E 75 6E 6B 74 78 74 09  ble",0...unktxt.

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 0D 0A 72 6F 6D 09  -------+....rom.
000020: 65 71 75 20 30 0D 0A 0D 0A 09 6E 6F 6C 69 73 74  equ 0.....nolist
000030: 09 09 3B 52 4F 4D 20 73 68 6F 75 6C 64 20 62 65  ..;ROM should be
000040: 20 31 20 69 66 20 61 20 52 4F 4D 20 69 6D 61 67   1 if a ROM imag
000050: 65 20 69 73 20 74 6F 20 62 65 20 77 72 69 74 74  e is to be writt
000060: 65 6E 0D 0A 69 66 20 72 6F 6D 0D 0A 09 6F 72 67  en..if rom...org
000070: 20 26 43 30 30 30 0D 0A 09 77 72 69 74 65 20 22   &C000...write "
000080: 73 64 6F 73 2D 72 6F 6D 2E 62 69 6E 22 0D 0A 0D  sdos-rom.bin"...
000090: 0A 09 64 62 20 31 09 09 3B 42 61 63 6B 67 72 6F  ..db 1..;Backgro
0000A0: 75 6E 64 20 52 4F 4D 0D 0A 09 64 62 20 31 09 09  und ROM...db 1..
0000B0: 3B 4D 61 72 6B 20 6E 75 6D 62 65 72 0D 0A 09 64  ;Mark number...d
0000C0: 62 20 30 09 09 3B 56 65 72 73 69 6F 6E 20 6E 75  b 0..;Version nu
0000D0: 6D 62 65 72 0D 0A 09 64 62 20 30 09 09 3B 4D 6F  mber...db 0..;Mo
0000E0: 64 69 66 69 63 61 74 69 6F 6E 20 6C 65 76 65 6C  dification level
0000F0: 0D 0A 65 6C 73 65 09 0D 0A 09 6F 72 67 20 26 38  ..else....org &8
000100: 30 30 30 0D 0A 09 77 72 69 74 65 20 22 73 64 6F  000...write "sdo
000110: 73 2D 64 69 73 2E 62 69 6E 22 0D 0A 09 6C 64 20  s-dis.bin"...ld 
000120: 68 6C 2C 77 73 70 61 63 65 0D 0A 09 6C 64 20 62  hl,wspace...ld b
000130: 63 2C 63 6F 6D 74 61 62 0D 0A 09 63 61 6C 6C 20  c,comtab...call 
000140: 26 62 63 64 31 0D 0A 09 63 61 6C 6C 20 69 6E 69  &bcd1...call ini
000150: 74 65 6E 0D 0A 09 72 65 74 0D 0A 2E 77 73 70 61  ten...ret...wspa
000160: 63 65 09 64 73 20 34 0D 0A 65 6E 64 69 66 0D 0A  ce.ds 4..endif..
000170: 0D 0A 09 3B 3E 3E 3E 20 43 6F 6D 6D 61 6E 64 20  ...;>>> Command 
000180: 61 6E 64 20 6E 61 6D 65 20 74 61 62 6C 65 73 0D  and name tables.
000190: 0A 0D 0A 2E 63 6F 6D 74 61 62 09 64 77 20 6E 61  ....comtab.dw na
0001A0: 6D 74 61 62 09 3B 41 64 64 72 65 73 73 20 6F 66  mtab.;Address of
0001B0: 20 6E 61 6D 65 20 74 61 62 6C 65 0D 0A 09 69 66   name table...if
0001C0: 20 72 6F 6D 0D 0A 09 20 6A 70 20 49 4E 49 54 45   rom... jp INITE
0001D0: 4E 0D 0A 09 65 6E 64 69 66 0D 0A 09 6A 70 20 46  N...endif...jp F
0001E0: 4F 52 4D 41 54 0D 0A 09 6A 70 20 56 45 52 49 46  ORMAT...jp VERIF
0001F0: 59 0D 0A 09 6A 70 20 41 4D 53 44 4F 53 0D 0A 09  Y...jp AMSDOS...

Size : 512 (Real : 512)
000000: 6B 09 70 75 73 68 20 61 66 09 09 3B 70 72 65 73  k.push af..;pres
000010: 65 72 76 65 20 74 72 61 63 6B 20 63 6F 75 6E 74  erve track count
000020: 65 72 0D 0A 09 6C 64 20 61 2C 62 0D 0A 09 63 61  er...ld a,b...ca
000030: 6C 6C 20 26 62 62 35 61 09 3B 70 72 69 6E 74 20  ll &bb5a.;print 
000040: 74 68 65 20 63 68 61 72 61 63 74 65 72 20 28 22  the character ("
000050: 2B 22 20 69 66 20 6F 6B 2C 20 22 3F 22 20 69 66  +" if ok, "?" if
000060: 20 65 72 72 6F 72 29 0D 0A 09 69 6E 63 20 64 09   error)...inc d.
000070: 09 3B 74 72 61 63 6B 20 3D 20 74 72 61 63 6B 2B  .;track = track+
000080: 31 0D 0A 09 6C 64 20 61 2C 64 09 09 3B 67 65 74  1...ld a,d..;get
000090: 20 74 68 65 20 74 72 61 63 6B 20 63 6F 75 6E 74   the track count
0000A0: 65 72 20 69 6E 74 6F 20 74 68 65 20 41 20 72 65  er into the A re
0000B0: 67 69 73 74 65 72 0D 0A 09 63 70 20 38 30 09 09  gister...cp 80..
0000C0: 3B 69 73 20 69 74 20 74 68 65 20 6C 61 73 74 20  ;is it the last 
0000D0: 74 72 61 63 6B 20 3F 0D 0A 09 6A 70 20 7A 2C 65  track ?...jp z,e
0000E0: 6E 64 09 3B 79 65 73 2C 20 74 68 65 6E 20 6A 75  nd.;yes, then ju
0000F0: 6D 70 20 74 6F 20 74 68 65 20 65 6E 64 20 72 6F  mp to the end ro
000100: 75 74 69 6E 65 0D 0A 09 6C 64 20 64 2C 61 09 09  utine...ld d,a..
000110: 3B 6F 74 68 65 72 77 69 73 65 20 70 6C 61 63 65  ;otherwise place
000120: 20 74 68 65 20 74 72 61 63 6B 20 6E 75 6D 62 65   the track numbe
000130: 72 20 69 6E 20 44 20 72 65 67 69 73 74 65 72 0D  r in D register.
000140: 0A 09 6C 64 20 63 2C 26 37 31 09 3B 61 6E 64 20  ..ld c,&71.;and 
000150: 70 6C 61 63 65 20 74 68 65 20 73 74 61 72 74 69  place the starti
000160: 6E 67 20 73 65 63 74 6F 72 20 6E 75 6D 62 65 72  ng sector number
000170: 20 69 6E 20 43 0D 0A 09 70 6F 70 20 61 66 09 09   in C...pop af..
000180: 3B 67 65 74 20 74 68 65 20 74 72 61 63 6B 20 63  ;get the track c
000190: 6F 75 6E 74 65 72 20 62 61 63 6B 20 61 67 61 69  ounter back agai
0001A0: 6E 0D 0A 09 64 65 63 20 61 09 09 3B 74 72 61 63  n...dec a..;trac
0001B0: 6B 3D 74 72 61 63 6B 2D 31 0D 0A 09 6A 70 20 77  k=track-1...jp w
0001C0: 72 7A 09 09 3B 61 6E 64 20 6A 75 6D 70 20 62 61  rz..;and jump ba
0001D0: 63 6B 20 74 6F 20 74 68 65 20 72 65 61 64 20 72  ck to the read r
0001E0: 6F 75 74 69 6E 65 0D 0A 0D 0A 2E 65 6E 64 09 70  outine.....end.p
0001F0: 6F 70 20 61 66 09 09 3B 62 61 6C 61 6E 63 65 20  op af..;balance

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 2E 74 72 6B 6C 6F 70 09 6C 64 20 62  .....trklop.ld b
000010: 2C 31 30 09 09 3B 6E 75 6D 62 65 72 20 6F 66 20  ,10..;number of 
000020: 73 65 63 74 6F 72 73 20 70 65 72 20 74 72 61 63  sectors per trac
000030: 6B 0D 0A 2E 6C 64 6C 6F 70 09 6C 64 20 28 68 6C  k...ldlop.ld (hl
000040: 29 2C 64 09 3B 61 6E 64 20 70 6C 61 63 65 20 74  ),d.;and place t
000050: 68 65 20 63 75 72 72 65 6E 74 20 74 72 61 63 6B  he current track
000060: 20 6E 75 6D 62 65 72 20 69 6E 20 28 48 4C 29 20   number in (HL) 
000070: 28 62 75 66 66 65 72 29 0D 0A 09 69 6E 63 20 68  (buffer)...inc h
000080: 6C 09 09 3B 61 6E 64 20 74 68 65 20 6E 65 78 74  l..;and the next
000090: 20 33 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 20   3 instructions 
0000A0: 69 6E 63 72 65 6D 65 6E 74 20 74 6F 20 6E 65 78  increment to nex
0000B0: 74 20 74 72 61 63 6B 20 65 6E 74 72 79 0D 0A 09  t track entry...
0000C0: 69 6E 63 20 68 6C 0D 0A 09 69 6E 63 20 68 6C 0D  inc hl...inc hl.
0000D0: 0A 09 69 6E 63 20 68 6C 0D 0A 09 64 6A 6E 7A 20  ..inc hl...djnz 
0000E0: 6C 64 6C 6F 70 09 3B 61 6E 64 20 72 65 70 65 61  ldlop.;and repea
0000F0: 74 20 66 6F 72 20 61 6C 6C 20 31 30 20 73 65 63  t for all 10 sec
000100: 74 6F 72 73 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 26  tors.....ld hl,&
000110: 41 46 30 30 09 3B 61 64 64 72 65 73 73 20 6F 66  AF00.;address of
000120: 20 49 44 20 68 65 61 64 65 72 20 62 75 66 66 65   ID header buffe
000130: 72 0D 0A 0D 0A 09 72 73 74 20 33 09 09 3B 66 61  r.....rst 3..;fa
000140: 72 20 63 61 6C 6C 20 74 6F 20 64 69 73 6B 20 52  r call to disk R
000150: 4F 4D 20 74 6F 20 66 6F 72 6D 61 74 20 74 68 65  OM to format the
000160: 20 74 72 61 63 6B 0D 0A 09 64 77 20 66 74 72 61   track...dw ftra
000170: 63 6B 09 3B 77 6F 72 64 20 61 64 64 72 65 73 73  ck.;word address
000180: 20 6F 66 20 74 68 65 20 66 6F 72 6D 61 74 20 74   of the format t
000190: 72 61 63 6B 20 72 6F 75 74 69 6E 65 0D 0A 0D 0A  rack routine....
0001A0: 09 6A 70 20 6E 63 2C 65 72 72 6F 72 0D 0A 09 69  .jp nc,error...i
0001B0: 6E 63 20 64 09 09 3B 74 72 61 63 6B 3D 74 72 61  nc d..;track=tra
0001C0: 63 6B 2B 31 0D 0A 09 70 75 73 68 20 61 66 09 09  ck+1...push af..
0001D0: 3B 70 72 65 73 65 72 76 65 20 41 46 0D 0A 09 6C  ;preserve AF...l
0001E0: 64 20 61 2C 22 2B 22 09 3B 70 6C 61 63 65 20 74  d a,"+".;place t
0001F0: 68 65 20 46 4F 52 4D 41 54 20 54 52 41 43 4B 20  he FORMAT TRACK

Size : 512 (Real : 512)
000000: 70 75 73 68 65 64 20 76 61 72 69 61 62 6C 65 73  pushed variables
000010: 20 0D 0A 09 70 6F 70 20 68 6C 09 09 3B 67 65 74   ...pop hl..;get
000020: 20 74 68 65 20 72 65 74 72 79 20 61 6E 64 20 65   the retry and e
000030: 72 72 6F 72 20 63 6F 75 6E 74 20 62 61 63 6B 20  rror count back 
000040: 61 67 61 69 6E 0D 0A 09 6C 64 20 61 2C 68 09 09  again...ld a,h..
000050: 3B 67 65 74 20 74 68 65 20 72 65 74 72 79 20 63  ;get the retry c
000060: 6F 75 6E 74 20 62 61 63 6B 20 66 72 6F 6D 20 48  ount back from H
000070: 20 72 65 67 69 73 74 65 72 0D 0A 09 6C 64 20 28   register...ld (
000080: 26 42 45 37 38 29 2C 61 09 3B 61 6E 64 20 72 65  &BE78),a.;and re
000090: 73 65 74 20 62 61 63 6B 20 74 6F 20 6E 6F 72 6D  set back to norm
0000A0: 61 6C 0D 0A 09 6C 64 20 61 2C 6C 09 09 3B 67 65  al...ld a,l..;ge
0000B0: 74 20 74 68 65 20 65 72 72 6F 72 20 6D 65 73 73  t the error mess
0000C0: 61 67 65 73 20 63 6F 75 6E 74 20 62 61 63 6B 20  ages count back 
0000D0: 61 67 61 69 6E 0D 0A 09 6C 64 20 28 26 42 45 36  again...ld (&BE6
0000E0: 36 29 2C 61 09 3B 61 6E 64 20 72 65 73 65 74 20  6),a.;and reset 
0000F0: 62 61 63 6B 20 74 6F 20 6E 6F 72 6D 61 6C 0D 0A  back to normal..
000100: 09 72 65 74 09 09 3B 61 6E 64 20 72 65 74 75 72  .ret..;and retur
000110: 6E 0D 0A 0D 0A 09 3B 3E 3E 3E 20 41 4D 53 44 4F  n.....;>>> AMSDO
000120: 53 20 63 6F 6D 6D 61 6E 64 0D 0A 0D 0A 2E 61 6D  S command.....am
000130: 73 64 6F 73 09 6C 64 20 68 6C 2C 28 26 42 45 37  sdos.ld hl,(&BE7
000140: 44 29 0D 0A 09 6C 64 20 64 65 2C 26 31 64 30 2B  D)...ld de,&1d0+
000150: 32 34 0D 0A 09 61 64 64 20 68 6C 2C 64 65 09 3B  24...add hl,de.;
000160: 48 4C 20 63 6F 6E 74 61 69 6E 73 20 58 50 42 20  HL contains XPB 
000170: 61 64 64 72 65 73 73 20 2B 32 34 20 66 6F 72 20  address +24 for 
000180: 64 72 69 76 65 20 42 0D 0A 09 78 6F 72 20 61 09  drive B...xor a.
000190: 09 3B 41 20 3D 20 66 72 65 65 7A 65 20 66 6C 61  .;A = freeze fla
0001A0: 67 20 28 30 20 3D 20 61 75 74 6F 20 64 65 74 65  g (0 = auto dete
0001B0: 63 74 20 66 6F 72 6D 61 74 29 0D 0A 09 6C 64 20  ct format)...ld 
0001C0: 28 68 6C 29 2C 61 09 3B 61 6E 64 20 70 6C 61 63  (hl),a.;and plac
0001D0: 65 20 69 6E 20 66 72 65 65 7A 65 20 66 6C 61 67  e in freeze flag
0001E0: 20 70 6F 73 69 74 69 6F 6E 20 69 6E 20 42 20 58   position in B X
0001F0: 50 42 0D 0A 09 72 65 74 09 09 3B 72 65 74 75 72  PB...ret..;retur

Size : 512 (Real : 512)
000000: 6D 61 72 6B 65 72 20 69 6E 20 41 0D 0A 09 63 61  marker in A...ca
000010: 6C 6C 20 26 62 62 35 61 09 3B 61 6E 64 20 70 72  ll &bb5a.;and pr
000020: 69 6E 74 20 69 74 20 61 74 20 63 75 72 72 65 6E  int it at curren
000030: 74 20 63 75 72 73 6F 72 20 70 6F 73 69 74 69 6F  t cursor positio
000040: 6E 0D 0A 09 70 6F 70 20 61 66 09 09 3B 67 65 74  n...pop af..;get
000050: 20 41 46 20 62 61 63 6B 20 61 67 61 69 6E 0D 0A   AF back again..
000060: 09 6C 64 20 61 2C 64 09 09 3B 67 65 74 20 74 68  .ld a,d..;get th
000070: 65 20 74 72 61 63 6B 20 63 6F 75 6E 74 20 62 61  e track count ba
000080: 63 6B 20 69 6E 74 6F 20 41 20 61 67 61 69 6E 0D  ck into A again.
000090: 0A 09 63 70 20 38 30 09 09 3B 69 73 20 69 74 20  ..cp 80..;is it 
0000A0: 74 68 65 20 6C 61 73 74 20 74 72 61 63 6B 20 74  the last track t
0000B0: 6F 20 62 65 20 66 6F 72 6D 61 74 74 65 64 0D 0A  o be formatted..
0000C0: 09 6A 70 20 6E 7A 2C 74 72 6B 6C 6F 70 09 3B 61  .jp nz,trklop.;a
0000D0: 6E 64 20 72 65 70 65 61 74 20 72 6F 75 6E 64 20  nd repeat round 
0000E0: 6C 6F 6F 70 20 69 66 20 69 74 20 69 73 0D 0A 09  loop if it is...
0000F0: 72 65 74 09 09 3B 72 65 74 75 72 6E 20 66 72 6F  ret..;return fro
000100: 6D 20 72 6F 75 74 69 6E 65 0D 0A 0D 0A 09 3B 3E  m routine.....;>
000110: 3E 3E 20 53 56 45 52 49 46 59 20 63 6F 6D 6D 61  >> SVERIFY comma
000120: 6E 64 20 3C 52 6F 62 3E 0D 0A 0D 0A 2E 76 65 72  nd <Rob>.....ver
000130: 69 66 79 20 6C 64 20 61 2C 28 26 62 65 37 38 29  ify ld a,(&be78)
000140: 09 3B 67 65 74 20 74 68 65 20 63 75 72 72 65 6E  .;get the curren
000150: 74 20 65 72 72 6F 72 20 6D 65 73 73 61 67 65 20  t error message 
000160: 66 6C 61 67 20 66 72 6F 6D 20 52 41 4D 0D 0A 09  flag from RAM...
000170: 6C 64 20 68 2C 61 09 09 3B 61 6E 64 20 70 6C 61  ld h,a..;and pla
000180: 63 65 20 69 6E 20 48 0D 0A 09 6C 64 20 61 2C 28  ce in H...ld a,(
000190: 26 62 65 36 36 29 09 3B 67 65 74 20 74 68 65 20  &be66).;get the 
0001A0: 63 75 72 72 65 6E 74 20 52 45 54 52 59 20 63 6F  current RETRY co
0001B0: 75 6E 74 20 66 72 6F 6D 20 52 41 4D 0D 0A 09 6C  unt from RAM...l
0001C0: 64 20 6C 2C 61 09 09 3B 61 6E 64 20 70 6C 61 63  d l,a..;and plac
0001D0: 65 20 69 6E 20 4C 0D 0A 09 70 75 73 68 20 68 6C  e in L...push hl
0001E0: 09 09 3B 70 72 65 73 65 72 76 65 20 52 45 54 52  ..;preserve RETR
0001F0: 59 20 61 6E 64 20 45 52 52 4F 52 20 64 61 74 61  Y and ERROR data

Size : 512 (Real : 512)
000000: 6E 20 74 6F 20 42 41 53 49 43 0D 0A 0D 0A 09 3B  n to BASIC.....;
000010: 3E 3E 3E 20 43 4F 50 59 41 42 2F 43 4F 50 59 42  >>> COPYAB/COPYB
000020: 41 20 63 6F 6D 6D 61 6E 64 73 20 3C 6D 65 3E 0D  A commands <me>.
000030: 0A 0D 0A 2E 63 6F 70 79 61 62 20 6F 72 20 61 0D  ....copyab or a.
000040: 0A 09 63 61 6C 6C 20 7A 2C 6E 6F 6E 61 6D 09 3B  ..call z,nonam.;
000050: 49 66 20 6E 6F 20 70 61 72 61 6D 65 74 65 72 2C  If no parameter,
000060: 20 67 65 74 20 6F 6E 65 0D 0A 09 63 70 20 31 0D   get one...cp 1.
000070: 0A 09 72 65 74 20 6E 7A 09 09 3B 52 65 74 75 72  ..ret nz..;Retur
000080: 6E 20 69 66 20 73 74 69 6C 6C 20 6E 6F 74 20 6F  n if still not o
000090: 6E 65 20 70 61 72 61 6D 65 74 65 72 21 0D 0A 09  ne parameter!...
0000A0: 63 61 6C 6C 20 69 66 61 63 65 09 3B 50 75 74 20  call iface.;Put 
0000B0: 73 74 72 69 6E 67 20 69 6E 20 72 69 67 68 74 20  string in right 
0000C0: 70 6C 61 63 65 0D 0A 09 6C 64 20 28 68 6C 29 2C  place...ld (hl),
0000D0: 22 42 22 09 3B 42 20 69 73 20 64 65 73 74 69 6E  "B".;B is destin
0000E0: 61 74 69 6F 6E 20 64 72 69 76 65 0D 0A 09 6A 72  ation drive...jr
0000F0: 20 63 6F 70 79 0D 0A 0D 0A 2E 63 6F 70 79 62 61   copy.....copyba
000100: 20 6F 72 20 61 0D 0A 09 63 61 6C 6C 20 7A 2C 6E   or a...call z,n
000110: 6F 6E 61 6D 0D 0A 09 63 70 20 31 0D 0A 09 72 65  onam...cp 1...re
000120: 74 20 6E 7A 0D 0A 09 63 61 6C 6C 20 69 66 61 63  t nz...call ifac
000130: 65 0D 0A 09 6C 64 20 28 68 6C 29 2C 22 41 22 0D  e...ld (hl),"A".
000140: 0A 0D 0A 2E 63 6F 70 79 09 69 6E 63 20 68 6C 0D  ....copy.inc hl.
000150: 0A 09 6C 64 20 28 68 6C 29 2C 22 3A 22 09 3B 63  ..ld (hl),":".;c
000160: 6F 6C 6F 6E 20 66 6F 72 20 64 72 69 76 65 20 73  olon for drive s
000170: 70 65 63 69 66 69 65 72 0D 0A 09 64 65 63 20 68  pecifier...dec h
000180: 6C 09 09 3B 74 6F 20 73 74 61 72 74 20 6F 66 20  l..;to start of 
000190: 73 74 72 69 6E 67 0D 0A 0D 0A 09 63 61 6C 6C 20  string.....call 
0001A0: 66 64 62 75 66 66 09 3B 66 69 6E 64 20 32 6B 20  fdbuff.;find 2k 
0001B0: 62 75 66 66 65 72 20 61 64 64 72 65 73 73 0D 0A  buffer address..
0001C0: 09 6C 64 20 28 26 41 46 32 30 29 2C 64 65 09 3B  .ld (&AF20),de.;
0001D0: 73 74 6F 72 65 20 69 74 0D 0A 09 70 75 73 68 20  store it...push 
0001E0: 62 63 3A 20 70 75 73 68 20 68 6C 0D 0A 09 63 61  bc: push hl...ca
0001F0: 6C 6C 20 26 42 43 38 43 09 3B 6F 70 65 6E 20 6F  ll &BC8C.;open o

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 09 6C 64 20 61 2C 31 09 09 3B 61 6E  .....ld a,1..;an
000010: 64 20 73 65 74 20 72 65 74 72 79 73 20 74 6F 20  d set retrys to 
000020: 4F 6E 65 0D 0A 09 6C 64 20 28 26 62 65 36 36 29  One...ld (&be66)
000030: 2C 61 0D 0A 09 78 6F 72 20 61 09 09 3B 41 3D 30  ,a...xor a..;A=0
000040: 0D 0A 09 64 65 63 20 61 09 09 3B 41 3D 26 46 46  ...dec a..;A=&FF
000050: 20 28 63 61 72 72 79 20 74 72 75 65 21 29 0D 0A   (carry true!)..
000060: 09 6C 64 20 28 26 62 65 37 38 29 2C 61 09 3B 61  .ld (&be78),a.;a
000070: 6E 64 20 73 65 74 20 74 68 65 20 65 72 72 6F 72  nd set the error
000080: 20 6D 65 73 73 73 61 67 65 73 20 6F 66 66 0D 0A   messsages off..
000090: 0D 0A 09 6C 64 20 68 6C 2C 28 26 62 65 37 64 29  ...ld hl,(&be7d)
0000A0: 09 3B 67 65 74 20 74 68 65 20 64 72 69 76 65 20  .;get the drive 
0000B0: 42 20 73 65 6C 65 63 74 20 61 64 64 72 65 73 73  B select address
0000C0: 20 66 72 6F 6D 20 52 41 4D 0D 0A 09 6C 64 20 64   from RAM...ld d
0000D0: 65 2C 35 36 30 09 3B 73 65 63 74 6F 72 20 62 75  e,560.;sector bu
0000E0: 66 66 65 72 20 3D 20 6F 66 66 73 65 74 20 35 36  ffer = offset 56
0000F0: 30 20 69 6E 20 52 41 4D 0D 0A 09 61 64 64 20 68  0 in RAM...add h
000100: 6C 2C 64 65 09 3B 61 6E 64 20 6E 6F 77 20 48 4C  l,de.;and now HL
000110: 20 70 6F 69 6E 74 73 20 74 6F 20 73 65 63 74 6F   points to secto
000120: 72 20 62 75 66 66 65 72 0D 0A 09 6C 64 20 63 2C  r buffer...ld c,
000130: 26 37 31 09 3B 73 74 61 72 74 69 6E 67 20 73 65  &71.;starting se
000140: 63 74 6F 72 20 6E 75 6D 62 65 72 0D 0A 09 6C 64  ctor number...ld
000150: 20 64 2C 30 09 09 3B 73 74 61 72 74 20 74 72 61   d,0..;start tra
000160: 63 6B 20 74 6F 20 73 74 61 72 74 20 77 72 69 74  ck to start writ
000170: 69 6E 67 20 74 6F 0D 0A 09 6C 64 20 65 2C 31 09  ing to...ld e,1.
000180: 09 3B 64 72 69 76 65 20 75 6E 69 74 20 2D 20 31  .;drive unit - 1
000190: 3D 42 3A 0D 0A 0D 0A 2E 77 72 7A 09 6C 64 20 61  =B:.....wrz.ld a
0001A0: 2C 39 09 09 3B 6E 75 6D 62 65 72 20 6F 66 20 73  ,9..;number of s
0001B0: 65 63 74 6F 72 73 20 70 65 72 20 74 72 61 63 6B  ectors per track
0001C0: 20 28 53 50 54 29 20 6D 69 6E 75 73 20 31 0D 0A   (SPT) minus 1..
0001D0: 09 6C 64 20 62 2C 22 2B 22 09 3B 63 68 61 72 61  .ld b,"+".;chara
0001E0: 63 74 65 72 20 74 6F 20 70 72 69 6E 74 0D 0A 0D  cter to print...
0001F0: 0A 2E 77 72 69 74 65 09 70 75 73 68 20 61 66 09  ..write.push af.

Size : 512 (Real : 512)
000000: 75 74 70 75 74 20 66 69 6C 65 0D 0A 09 70 6F 70  utput file...pop
000010: 20 68 6C 3A 20 70 6F 70 20 62 63 0D 0A 09 6A 70   hl: pop bc...jp
000020: 20 6E 63 2C 65 72 72 6F 72 0D 0A 0D 0A 09 72 73   nc,error.....rs
000030: 74 20 34 3A 20 6C 64 20 63 2C 61 0D 0A 09 6C 64  t 4: ld c,a...ld
000040: 20 61 2C 31 33 31 3A 20 73 75 62 20 63 09 3B 63   a,131: sub c.;c
000050: 6F 6E 76 65 72 74 20 64 65 73 74 69 6E 61 74 69  onvert destinati
000060: 6F 6E 20 69 6E 74 6F 20 73 6F 75 72 63 65 20 64  on into source d
000070: 72 69 76 65 0D 0A 09 6C 64 20 28 68 6C 29 2C 61  rive...ld (hl),a
000080: 0D 0A 0D 0A 09 70 75 73 68 20 62 63 0D 0A 09 6C  .....push bc...l
000090: 64 20 64 65 2C 28 26 41 46 32 30 29 09 3B 67 65  d de,(&AF20).;ge
0000A0: 74 20 6C 61 73 74 20 62 75 66 66 65 72 20 61 64  t last buffer ad
0000B0: 64 72 65 73 73 0D 0A 09 6C 64 20 61 2C 64 3A 20  dress...ld a,d: 
0000C0: 63 70 20 26 43 30 09 3B 69 66 20 69 74 20 77 61  cp &C0.;if it wa
0000D0: 73 20 69 6E 20 73 63 72 65 65 6E 20 6D 65 6D 6F  s in screen memo
0000E0: 72 79 2C 0D 0A 09 6A 72 20 7A 2C 69 6E 73 63 72  ry,...jr z,inscr
0000F0: 09 3B 20 74 68 65 20 6E 65 77 20 6F 6E 65 20 6D  .; the new one m
000100: 75 73 74 20 62 65 20 74 6F 6F 21 0D 0A 09 6C 64  ust be too!...ld
000110: 20 62 63 2C 32 30 34 38 0D 0A 09 65 78 20 68 6C   bc,2048...ex hl
000120: 2C 64 65 0D 0A 09 61 64 64 20 68 6C 2C 62 63 09  ,de...add hl,bc.
000130: 3B 65 6C 73 65 20 66 69 6E 64 20 65 6E 64 20 6F  ;else find end o
000140: 66 20 6C 61 73 74 20 62 75 66 66 65 72 0D 0A 09  f last buffer...
000150: 65 78 20 64 65 2C 68 6C 0D 0A 09 63 61 6C 6C 20  ex de,hl...call 
000160: 66 62 75 66 66 70 09 3B 61 6E 64 20 73 65 61 72  fbuffp.;and sear
000170: 63 68 20 73 74 61 72 74 69 6E 67 20 66 72 6F 6D  ch starting from
000180: 20 74 68 65 72 65 0D 0A 09 6A 72 20 73 74 62 75   there...jr stbu
000190: 66 66 0D 0A 2E 69 6E 73 63 72 09 6C 64 20 64 65  ff...inscr.ld de
0001A0: 2C 26 43 38 30 30 09 3B 73 65 63 6F 6E 64 20 62  ,&C800.;second b
0001B0: 75 66 66 65 72 20 69 6E 20 73 63 72 65 65 6E 20  uffer in screen 
0001C0: 6D 65 6D 6F 72 79 0D 0A 2E 73 74 62 75 66 66 09  memory...stbuff.
0001D0: 6C 64 20 28 26 41 46 32 32 29 2C 64 65 09 3B 73  ld (&AF22),de.;s
0001E0: 74 6F 72 65 20 74 68 65 20 62 75 66 66 65 72 0D  tore the buffer.
0001F0: 0A 09 70 6F 70 20 62 63 0D 0A 09 63 61 6C 6C 20  ..pop bc...call

Size : 512 (Real : 512)
000000: 09 3B 70 72 65 73 65 72 76 65 20 73 65 63 74 6F  .;preserve secto
000010: 72 20 63 6F 75 6E 74 0D 0A 09 72 73 74 20 33 09  r count...rst 3.
000020: 09 3B 46 41 52 5F 43 41 4C 4C 20 74 6F 20 64 69  .;FAR_CALL to di
000030: 73 6B 20 52 4F 4D 20 77 69 74 68 20 66 6F 6C 6C  sk ROM with foll
000040: 6F 77 69 6E 67 20 57 4F 52 44 0D 0A 09 64 77 20  owing WORD...dw 
000050: 72 65 61 64 09 09 3B 57 4F 52 44 20 61 64 64 72  read..;WORD addr
000060: 65 73 73 20 6F 66 20 72 6F 75 74 69 6E 65 20 61  ess of routine a
000070: 6E 64 20 52 4F 4D 20 73 65 6C 65 63 74 20 61 64  nd ROM select ad
000080: 64 72 65 73 73 0D 0A 09 6A 72 20 63 2C 72 63 6F  dress...jr c,rco
000090: 6E 74 09 3B 72 65 61 64 20 6F 6B 3F 0D 0A 09 6C  nt.;read ok?...l
0000A0: 64 20 62 2C 22 3F 22 09 3B 6E 6F 2C 20 73 6F 20  d b,"?".;no, so 
0000B0: 63 68 61 72 61 63 74 65 72 20 74 6F 20 70 72 69  character to pri
0000C0: 6E 74 20 3D 20 22 3F 22 0D 0A 2E 72 63 6F 6E 74  nt = "?"...rcont
0000D0: 09 70 6F 70 20 61 66 09 09 3B 67 65 74 20 74 68  .pop af..;get th
0000E0: 65 20 73 65 63 74 6F 72 20 63 6F 75 6E 74 20 62  e sector count b
0000F0: 61 63 6B 20 61 67 61 69 6E 0D 0A 09 63 70 20 30  ack again...cp 0
000100: 09 09 3B 69 73 20 69 74 20 7A 65 72 6F 20 28 6E  ..;is it zero (n
000110: 69 6E 65 20 73 65 63 74 6F 72 73 20 77 72 69 74  ine sectors writ
000120: 74 65 6E 20 3F 29 0D 0A 09 6A 72 20 7A 2C 69 6E  ten ?)...jr z,in
000130: 63 74 72 6B 09 3B 79 65 73 2C 20 74 68 65 6E 20  ctrk.;yes, then 
000140: 6A 75 6D 70 20 74 6F 20 49 4E 43 72 65 6D 65 6E  jump to INCremen
000150: 74 20 54 52 61 63 4B 20 72 6F 75 74 69 6E 65 0D  t TRacK routine.
000160: 0A 09 64 65 63 20 61 09 09 3B 64 65 63 72 65 6D  ..dec a..;decrem
000170: 65 6E 74 20 74 72 61 63 6B 20 63 6F 75 6E 74 20  ent track count 
000180: 28 74 72 61 63 6B 3D 74 72 61 63 6B 2D 31 29 0D  (track=track-1).
000190: 0A 09 69 6E 63 20 63 09 09 3B 69 6E 63 72 65 6D  ..inc c..;increm
0001A0: 65 6E 74 20 73 65 63 74 6F 72 20 63 6F 75 6E 74  ent sector count
0001B0: 65 72 20 28 73 65 63 74 6F 72 3D 73 65 63 74 6F  er (sector=secto
0001C0: 72 2B 31 29 0D 0A 09 6A 72 20 77 72 69 74 65 09  r+1)...jr write.
0001D0: 3B 61 6E 64 20 6A 75 6D 70 20 62 61 63 6B 20 74  ;and jump back t
0001E0: 6F 20 73 65 63 74 6F 72 20 77 72 69 74 65 20 72  o sector write r
0001F0: 6F 75 74 69 6E 65 0D 0A 0D 0A 2E 69 6E 63 74 72  outine.....inctr

Size : 512 (Real : 512)
000000: 69 65 73 20 69 6E 20 64 72 69 76 65 20 42 20 58  ies in drive B X
000010: 50 42 0D 0A 09 6C 64 69 72 09 09 3B 63 72 65 61  PB...ldir..;crea
000020: 74 65 20 6E 65 77 20 58 50 42 20 66 6F 72 20 64  te new XPB for d
000030: 72 69 76 65 20 42 0D 0A 09 6F 72 20 61 09 09 3B  rive B...or a..;
000040: 61 6E 64 20 74 65 73 74 20 74 6F 20 73 65 65 20  and test to see 
000050: 69 66 20 74 68 65 72 65 20 61 72 65 20 61 6E 79  if there are any
000060: 20 70 61 72 61 6D 65 74 65 72 73 0D 0A 09 72 65   parameters...re
000070: 74 20 6E 7A 09 09 3B 72 65 74 75 72 6E 20 69 66  t nz..;return if
000080: 20 6E 6F 20 70 61 72 61 6D 65 74 65 72 73 20 28   no parameters (
000090: 6A 75 73 74 20 73 65 74 20 75 70 20 66 6F 72 6D  just set up form
0000A0: 61 74 29 0D 0A 09 0D 0A 2E 66 6F 72 09 6C 64 20  at)......for.ld 
0000B0: 68 6C 2C 73 65 63 62 75 66 09 3B 61 64 64 72 65  hl,secbuf.;addre
0000C0: 73 73 20 6F 66 20 73 65 63 74 6F 72 20 49 44 20  ss of sector ID 
0000D0: 68 65 61 64 65 72 20 66 6F 72 20 66 6F 72 6D 61  header for forma
0000E0: 74 74 69 6E 67 0D 0A 09 6C 64 20 64 65 2C 26 61  tting...ld de,&a
0000F0: 66 30 30 09 3B 61 64 64 72 65 73 73 20 6F 66 20  f00.;address of 
000100: 6E 69 63 65 20 73 61 66 65 20 70 6C 61 63 65 20  nice safe place 
000110: 69 6E 20 52 41 4D 20 74 6F 20 70 6C 61 63 65 20  in RAM to place 
000120: 69 74 0D 0A 09 6C 64 20 62 63 2C 35 30 09 3B 6E  it...ld bc,50.;n
000130: 75 6D 62 65 72 20 6F 66 20 65 6E 74 72 69 65 73  umber of entries
000140: 20 69 6E 20 74 68 65 20 68 65 61 64 65 72 20 62   in the header b
000150: 75 66 66 65 72 0D 0A 09 6C 64 69 72 09 09 3B 61  uffer...ldir..;a
000160: 6E 64 20 6D 6F 76 65 20 74 68 65 20 68 65 61 64  nd move the head
000170: 65 72 20 62 75 66 66 65 72 20 69 6E 74 6F 20 52  er buffer into R
000180: 41 4D 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 26 61 66  AM.....ld hl,&af
000190: 30 30 09 3B 61 64 64 72 65 73 73 20 6F 66 20 49  00.;address of I
0001A0: 44 20 68 65 61 64 65 72 20 62 75 66 66 65 72 0D  D header buffer.
0001B0: 0A 09 6C 64 20 65 2C 31 09 09 3B 44 72 69 76 65  ..ld e,1..;Drive
0001C0: 20 73 65 6C 65 63 74 20 61 64 64 72 65 73 73 20   select address 
0001D0: 28 31 3D 62 29 0D 0A 09 6C 64 20 64 2C 30 09 09  (1=b)...ld d,0..
0001E0: 3B 73 74 61 72 74 20 74 72 61 63 6B 20 74 6F 20  ;start track to 
0001F0: 73 74 61 72 74 20 66 6F 72 6D 61 74 74 69 6E 67  start formatting

Size : 512 (Real : 512)
000000: 65 20 66 6F 75 6E 64 20 69 6E 20 73 63 72 65 65  e found in scree
000010: 6E 0D 0A 09 6C 64 20 28 26 41 46 31 32 29 2C 64  n...ld (&AF12),d
000020: 65 09 09 3B 73 74 6F 72 65 20 62 75 66 66 65 72  e..;store buffer
000030: 20 61 64 64 72 65 73 73 0D 0A 0D 0A 09 6C 64 20   address.....ld 
000040: 61 2C 63 09 09 09 3B 72 65 73 74 6F 72 65 20 41  a,c...;restore A
000050: 0D 0A 09 6C 64 20 68 6C 2C 28 26 42 45 37 44 29  ...ld hl,(&BE7D)
000060: 09 09 3B 67 65 74 20 61 64 64 72 65 73 73 20 6F  ..;get address o
000070: 66 20 63 75 72 72 65 6E 74 20 64 72 69 76 65 20  f current drive 
000080: 73 74 6F 72 65 0D 0A 09 70 75 73 68 20 61 66 0D  store...push af.
000090: 0A 09 6C 64 20 61 2C 28 68 6C 29 09 09 3B 67 65  ..ld a,(hl)..;ge
0000A0: 74 20 74 68 65 20 63 75 72 72 65 6E 74 20 64 72  t the current dr
0000B0: 69 76 65 0D 0A 09 6C 64 20 28 26 41 46 31 30 29  ive...ld (&AF10)
0000C0: 2C 61 09 09 3B 61 6E 64 20 73 74 6F 72 65 20 65  ,a..;and store e
0000D0: 6C 73 65 77 68 65 72 65 0D 0A 09 70 6F 70 20 61  lsewhere...pop a
0000E0: 66 0D 0A 09 6F 72 20 61 0D 0A 09 6A 72 20 7A 2C  f...or a...jr z,
0000F0: 64 6F 63 61 74 0D 0A 0D 0A 09 6C 64 20 61 2C 28  docat.....ld a,(
000100: 69 78 29 09 09 3B 67 65 74 20 70 61 72 61 6D 65  ix)..;get parame
000110: 74 65 72 0D 0A 09 61 6E 64 20 31 09 09 09 3B 6D  ter...and 1...;m
000120: 61 73 6B 20 73 6F 20 69 74 20 63 61 6E 20 6F 6E  ask so it can on
000130: 6C 79 20 62 65 20 30 20 6F 72 20 31 0D 0A 09 6C  ly be 0 or 1...l
000140: 64 20 28 68 6C 29 2C 61 0D 0A 0D 0A 2E 64 6F 63  d (hl),a.....doc
000150: 61 74 09 70 75 73 68 20 68 6C 0D 0A 09 63 61 6C  at.push hl...cal
000160: 6C 20 26 42 43 39 42 09 09 3B 64 6F 20 74 68 65  l &BC9B..;do the
000170: 20 63 61 74 61 6C 6F 67 75 65 2E 2E 2E 0D 0A 09   catalogue......
000180: 70 6F 70 20 68 6C 0D 0A 09 6C 64 20 61 2C 28 26  pop hl...ld a,(&
000190: 41 46 31 30 29 0D 0A 09 6C 64 20 28 68 6C 29 2C  AF10)...ld (hl),
0001A0: 61 09 09 3B 72 65 73 74 6F 72 65 20 6F 6C 64 20  a..;restore old 
0001B0: 64 72 69 76 65 0D 0A 09 6C 64 20 68 6C 2C 28 26  drive...ld hl,(&
0001C0: 41 46 31 32 29 09 09 3B 67 65 74 20 62 75 66 66  AF12)..;get buff
0001D0: 65 72 20 61 64 64 72 65 73 73 0D 0A 09 63 61 6C  er address...cal
0001E0: 6C 20 62 6B 62 75 66 66 09 09 3B 61 6E 64 20 62  l bkbuff..;and b
0001F0: 6C 61 6E 6B 20 74 68 65 20 62 75 66 66 65 72 21  lank the buffer!

Size : 512 (Real : 512)
000000: 70 6F 69 6E 74 73 20 74 6F 20 61 64 64 72 65 73  points to addres
000010: 73 20 6F 66 20 66 69 6C 65 6E 61 6D 65 0D 0A 09  s of filename...
000020: 6C 64 20 64 65 2C 26 43 30 30 30 09 3B 41 64 64  ld de,&C000.;Add
000030: 72 65 73 73 20 74 6F 20 6F 70 65 6E 20 32 6B 20  ress to open 2k 
000040: 62 75 66 66 65 72 0D 0A 2E 6C 66 69 6C 65 09 63  buffer...lfile.c
000050: 61 6C 6C 20 26 42 43 37 37 09 3B 6F 70 65 6E 20  all &BC77.;open 
000060: 66 69 6C 65 20 66 6F 72 20 69 6E 70 75 74 0D 0A  file for input..
000070: 09 6A 70 20 6E 63 2C 65 72 72 6F 72 09 3B 61 6E  .jp nc,error.;an
000080: 64 20 69 66 20 61 6E 20 65 72 72 6F 72 20 6F 63  d if an error oc
000090: 63 75 72 73 2C 20 74 68 65 6E 20 74 65 6C 6C 20  curs, then tell 
0000A0: 75 73 65 72 0D 0A 09 6F 72 20 61 09 09 3B 42 41  user...or a..;BA
0000B0: 53 49 43 3F 0D 0A 09 6A 72 20 7A 2C 62 61 73 69  SIC?...jr z,basi
0000C0: 63 0D 0A 09 63 70 20 31 09 09 3B 70 72 6F 74 65  c...cp 1..;prote
0000D0: 63 74 65 64 20 42 41 53 49 43 3F 0D 0A 09 6A 72  cted BASIC?...jr
0000E0: 20 7A 2C 62 61 73 69 63 0D 0A 09 70 75 73 68 20   z,basic...push 
0000F0: 68 6C 09 09 3B 70 72 65 73 65 72 76 65 20 61 6C  hl..;preserve al
000100: 6C 20 72 65 67 69 73 74 65 72 73 20 63 6F 72 72  l registers corr
000110: 75 70 74 65 64 20 62 79 20 4C 44 49 52 20 0D 0A  upted by LDIR ..
000120: 09 70 75 73 68 20 64 65 0D 0A 09 70 75 73 68 20  .push de...push 
000130: 62 63 0D 0A 09 6C 64 20 68 6C 2C 72 65 73 74 09  bc...ld hl,rest.
000140: 3B 48 4C 20 70 6F 69 6E 74 73 20 74 6F 20 72 6F  ;HL points to ro
000150: 75 74 69 6E 65 20 74 6F 20 72 65 61 64 20 74 68  utine to read th
000160: 65 20 66 69 6C 65 20 69 6E 74 6F 20 73 74 6F 72  e file into stor
000170: 65 0D 0A 09 6C 64 20 64 65 2C 26 61 66 30 30 09  e...ld de,&af00.
000180: 3B 44 45 20 70 6F 69 6E 74 73 20 74 6F 20 70 6C  ;DE points to pl
000190: 61 63 65 20 74 6F 20 70 75 74 20 72 6F 75 74 69  ace to put routi
0001A0: 6E 65 0D 0A 09 6C 64 20 62 63 2C 26 33 30 09 3B  ne...ld bc,&30.;
0001B0: 6E 75 6D 62 65 72 20 6F 66 20 62 79 74 65 73 20  number of bytes 
0001C0: 74 6F 20 6D 6F 76 65 0D 0A 09 6C 64 69 72 09 09  to move...ldir..
0001D0: 3B 61 6E 64 20 72 65 6C 6F 63 61 74 65 20 74 68  ;and relocate th
0001E0: 65 20 6C 6F 61 64 65 72 0D 0A 09 6A 70 20 26 61  e loader...jp &a
0001F0: 66 30 30 09 3B 74 6F 20 65 78 65 63 75 74 65 20  f00.;to execute

Size : 512 (Real : 512)
000000: 26 42 43 37 37 09 3B 6F 70 65 6E 20 74 68 65 20  &BC77.;open the 
000010: 69 6E 70 75 74 20 66 69 6C 65 0D 0A 09 6A 70 20  input file...jp 
000020: 6E 63 2C 65 72 72 6F 72 0D 0A 09 63 70 20 32 32  nc,error...cp 22
000030: 3A 20 6A 72 20 7A 2C 6E 6F 68 65 61 64 0D 0A 0D  : jr z,nohead...
000040: 0A 09 6C 64 20 62 2C 31 32 38 0D 0A 2E 6F 68 65  ..ld b,128...ohe
000050: 61 64 09 6C 64 20 61 2C 28 68 6C 29 0D 0A 09 63  ad.ld a,(hl)...c
000060: 61 6C 6C 20 26 42 43 39 35 09 3B 77 72 69 74 65  all &BC95.;write
000070: 20 6F 75 74 20 31 32 38 2D 62 79 74 65 20 68 65   out 128-byte he
000080: 61 64 65 72 0D 0A 09 69 6E 63 20 68 6C 0D 0A 09  ader...inc hl...
000090: 64 6A 6E 7A 20 6F 68 65 61 64 0D 0A 0D 0A 2E 6E  djnz ohead.....n
0000A0: 6F 68 65 61 64 20 63 61 6C 6C 20 26 42 43 38 30  ohead call &BC80
0000B0: 09 3B 69 6E 70 75 74 20 63 68 61 72 61 63 74 65  .;input characte
0000C0: 72 2E 2E 2E 0D 0A 09 6A 72 20 63 2C 6F 6B 63 68  r......jr c,okch
0000D0: 61 72 09 3B 72 65 61 64 20 6F 6B 0D 0A 09 6A 70  ar.;read ok...jp
0000E0: 20 7A 2C 65 6F 66 09 3B 63 6C 6F 73 65 20 66 69   z,eof.;close fi
0000F0: 6C 65 20 69 66 20 65 72 72 6F 72 0D 0A 09 63 70  le if error...cp
000100: 20 26 31 41 0D 0A 09 6A 72 20 6E 7A 2C 65 6F 66   &1A...jr nz,eof
000110: 09 3B 65 6E 64 20 6F 66 20 66 69 6C 65 20 69 66  .;end of file if
000120: 20 6E 6F 74 20 73 6F 66 74 20 45 4F 46 20 28 43   not soft EOF (C
000130: 48 52 24 28 32 36 29 29 0D 0A 0D 0A 2E 6F 6B 63  HR$(26)).....okc
000140: 68 61 72 20 63 61 6C 6C 20 26 42 43 39 35 09 3B  har call &BC95.;
000150: 2E 2E 2E 6F 75 74 70 75 74 20 63 68 61 72 61 63  ...output charac
000160: 74 65 72 0D 0A 09 6A 72 20 6E 6F 68 65 61 64 0D  ter...jr nohead.
000170: 0A 0D 0A 2E 65 6F 66 09 63 61 6C 6C 20 26 42 43  ....eof.call &BC
000180: 37 41 09 3B 63 6C 6F 73 65 20 69 6E 70 75 74 20  7A.;close input 
000190: 66 69 6C 65 0D 0A 09 63 61 6C 6C 20 26 42 43 38  file...call &BC8
0001A0: 46 09 3B 63 6C 6F 73 65 20 6F 75 74 70 75 74 20  F.;close output 
0001B0: 66 69 6C 65 0D 0A 09 6C 64 20 68 6C 2C 28 26 41  file...ld hl,(&A
0001C0: 46 32 30 29 0D 0A 09 63 61 6C 6C 20 62 6B 62 75  F20)...call bkbu
0001D0: 66 66 09 3B 62 6C 61 6E 6B 20 6F 75 74 70 75 74  ff.;blank output
0001E0: 20 62 75 66 66 65 72 20 61 67 61 69 6E 0D 0A 09   buffer again...
0001F0: 6C 64 20 68 6C 2C 28 26 41 46 32 32 29 0D 0A 09  ld hl,(&AF22)...

Size : 512 (Real : 512)
000000: 74 68 65 20 6C 6F 61 64 65 72 0D 0A 2E 72 65 73  the loader...res
000010: 74 09 70 6F 70 20 62 63 09 09 3B 67 65 74 20 61  t.pop bc..;get a
000020: 6C 6C 20 74 68 65 20 70 72 65 73 65 72 76 65 64  ll the preserved
000030: 20 72 65 67 69 73 74 65 72 73 20 62 61 63 6B 0D   registers back.
000040: 0A 09 70 6F 70 20 64 65 0D 0A 09 70 6F 70 20 68  ..pop de...pop h
000050: 6C 0D 0A 09 65 78 20 64 65 2C 68 6C 09 3B 67 65  l...ex de,hl.;ge
000060: 74 20 73 74 61 72 74 20 61 64 64 72 65 73 73 20  t start address 
000070: 66 72 6F 6D 20 68 65 61 64 65 72 20 69 6E 74 6F  from header into
000080: 20 48 4C 0D 0A 09 63 61 6C 6C 20 26 62 63 38 33   HL...call &bc83
000090: 09 3B 61 6E 64 20 72 65 61 64 20 69 6E 20 74 68  .;and read in th
0000A0: 65 20 66 69 6C 65 20 69 6E 74 6F 20 73 74 6F 72  e file into stor
0000B0: 65 0D 0A 09 70 75 73 68 20 68 6C 09 09 3B 70 72  e...push hl..;pr
0000C0: 65 73 65 72 76 65 20 65 78 65 63 75 74 65 20 61  eserve execute a
0000D0: 64 64 72 65 73 73 0D 0A 09 63 61 6C 6C 20 26 62  ddress...call &b
0000E0: 63 37 61 09 3B 61 6E 64 20 63 6C 6F 73 65 20 69  c7a.;and close i
0000F0: 6E 70 75 74 20 66 69 6C 65 0D 0A 09 70 6F 70 20  nput file...pop 
000100: 68 6C 09 09 3B 67 65 74 20 74 68 65 20 65 78 65  hl..;get the exe
000110: 63 75 74 65 20 61 64 64 72 65 73 73 20 62 61 63  cute address bac
000120: 6B 20 61 67 61 69 6E 0D 0A 09 6A 70 20 28 68 6C  k again...jp (hl
000130: 29 09 09 3B 61 6E 64 20 65 78 65 63 75 74 65 20  )..;and execute 
000140: 74 68 65 20 66 69 6C 65 0D 0A 0D 0A 2E 62 61 73  the file.....bas
000150: 69 63 09 6C 64 20 68 6C 2C 62 74 78 74 09 3B 61  ic.ld hl,btxt.;a
000160: 64 64 72 65 73 73 20 6F 66 20 42 41 53 49 43 20  ddress of BASIC 
000170: 70 72 6F 67 72 61 6D 20 74 65 78 74 0D 0A 09 63  program text...c
000180: 61 6C 6C 20 73 74 72 69 6E 67 09 3B 63 61 6C 6C  all string.;call
000190: 20 73 74 72 69 6E 67 20 70 72 69 6E 74 20 72 6F   string print ro
0001A0: 75 74 69 6E 65 0D 0A 09 72 65 74 09 09 3B 72 65  utine...ret..;re
0001B0: 74 75 72 6E 20 74 6F 20 42 41 53 49 43 0D 0A 0D  turn to BASIC...
0001C0: 0A 2E 62 61 73 6C 6F 64 09 6F 72 20 61 0D 0A 09  ..baslod.or a...
0001D0: 63 61 6C 6C 20 7A 2C 6E 6F 6E 61 6D 0D 0A 09 63  call z,nonam...c
0001E0: 70 20 31 0D 0A 09 72 65 74 20 6E 7A 0D 0A 0D 0A  p 1...ret nz....
0001F0: 2E 67 65 74 62 61 73 09 6C 64 20 6C 2C 28 69 78  .getbas.ld l,(ix

Size : 512 (Real : 512)
000000: 63 61 6C 6C 20 62 6B 62 75 66 66 09 3B 61 6E 64  call bkbuff.;and
000010: 20 69 6E 70 75 74 20 62 75 66 66 65 72 0D 0A 09   input buffer...
000020: 72 65 74 0D 0A 0D 0A 2E 65 72 72 6F 72 09 62 69  ret.....error.bi
000030: 74 20 37 2C 61 0D 0A 09 6A 72 20 6E 7A 2C 65 72  t 7,a...jr nz,er
000040: 63 6F 6E 74 0D 0A 09 6C 64 20 68 6C 2C 65 74 65  cont...ld hl,ete
000050: 78 74 0D 0A 09 63 61 6C 6C 20 73 74 72 69 6E 67  xt...call string
000060: 0D 0A 2E 65 72 63 6F 6E 74 09 63 61 6C 6C 20 26  ...ercont.call &
000070: 42 43 39 32 09 3B 61 62 61 6E 64 6F 6E 20 6F 75  BC92.;abandon ou
000080: 74 70 75 74 20 66 69 6C 65 0D 0A 09 63 61 6C 6C  tput file...call
000090: 20 26 42 43 37 44 09 3B 61 62 61 6E 64 6F 6E 20   &BC7D.;abandon 
0000A0: 69 6E 70 75 74 20 66 69 6C 65 0D 0A 09 72 65 74  input file...ret
0000B0: 0D 0A 0D 0A 2E 69 66 61 63 65 09 6C 64 20 6C 2C  .....iface.ld l,
0000C0: 28 69 78 29 3A 20 6C 64 20 68 2C 28 69 78 2B 31  (ix): ld h,(ix+1
0000D0: 29 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C  )...ld a,(hl): l
0000E0: 64 20 63 2C 61 3A 20 6C 64 20 62 2C 30 0D 0A 09  d c,a: ld b,0...
0000F0: 69 6E 63 20 68 6C 3A 20 6C 64 20 65 2C 28 68 6C  inc hl: ld e,(hl
000100: 29 3A 20 69 6E 63 20 68 6C 3A 20 6C 64 20 64 2C  ): inc hl: ld d,
000110: 28 68 6C 29 0D 0A 09 65 78 20 64 65 2C 68 6C 0D  (hl)...ex de,hl.
000120: 0A 09 6C 64 20 64 65 2C 26 41 46 32 36 0D 0A 09  ..ld de,&AF26...
000130: 70 75 73 68 20 62 63 0D 0A 09 6C 64 69 72 0D 0A  push bc...ldir..
000140: 09 70 6F 70 20 62 63 0D 0A 09 6C 64 20 62 2C 63  .pop bc...ld b,c
000150: 0D 0A 09 69 6E 63 20 62 0D 0A 09 69 6E 63 20 62  ...inc b...inc b
000160: 0D 0A 09 6C 64 20 68 6C 2C 26 41 46 32 34 0D 0A  ...ld hl,&AF24..
000170: 09 72 65 74 0D 0A 0D 0A 09 3B 3E 3E 3E 20 42 52  .ret.....;>>> BR
000180: 55 4E 20 63 6F 6D 6D 61 6E 64 20 3C 52 6F 62 3E  UN command <Rob>
000190: 0D 0A 0D 0A 2E 62 72 75 6E 09 6F 72 20 61 09 09  .....brun.or a..
0001A0: 3B 73 65 74 20 7A 20 66 6C 61 67 20 61 63 63 6F  ;set z flag acco
0001B0: 72 64 69 6E 67 20 74 6F 20 73 74 61 74 65 20 6F  rding to state o
0001C0: 66 20 41 0D 0A 09 63 61 6C 6C 20 7A 2C 6E 6F 6E  f A...call z,non
0001D0: 61 6D 09 3B 69 66 20 6E 6F 20 66 69 6C 65 6E 61  am.;if no filena
0001E0: 6D 65 2C 20 67 6F 20 61 6E 64 20 67 65 74 20 6F  me, go and get o
0001F0: 6E 65 21 0D 0A 09 63 70 20 31 09 09 3B 69 73 20  ne!...cp 1..;is

Size : 512 (Real : 512)
000000: 2B 26 30 30 29 0D 0A 09 6C 64 20 68 2C 28 69 78  +&00)...ld h,(ix
000010: 2B 26 30 31 29 0D 0A 09 6C 64 20 61 2C 28 68 6C  +&01)...ld a,(hl
000020: 29 0D 0A 09 6C 64 20 62 2C 61 0D 0A 09 69 6E 63  )...ld b,a...inc
000030: 20 68 6C 0D 0A 09 6C 64 20 65 2C 28 68 6C 29 0D   hl...ld e,(hl).
000040: 0A 09 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 64 2C  ..inc hl...ld d,
000050: 28 68 6C 29 0D 0A 09 65 78 20 68 6C 2C 64 65 0D  (hl)...ex hl,de.
000060: 0A 09 6C 64 20 64 65 2C 26 63 30 30 30 09 09 3B  ..ld de,&c000..;
000070: 41 64 64 72 65 73 73 20 74 6F 20 6F 70 65 6E 20  Address to open 
000080: 32 6B 20 62 75 66 66 65 72 0D 0A 2E 72 62 61 73  2k buffer...rbas
000090: 69 63 09 63 61 6C 6C 20 26 62 63 37 37 09 09 3B  ic.call &bc77..;
0000A0: 6F 70 65 6E 20 66 69 6C 65 20 66 6F 72 20 69 6E  open file for in
0000B0: 70 75 74 0D 0A 09 6A 70 20 6E 63 2C 65 72 72 6F  put...jp nc,erro
0000C0: 72 0D 0A 09 63 70 20 32 0D 0A 09 6A 70 20 6E 63  r...cp 2...jp nc
0000D0: 2C 65 72 72 6F 72 0D 0A 09 65 78 20 64 65 2C 68  ,error...ex de,h
0000E0: 6C 0D 0A 09 63 61 6C 6C 20 26 62 63 38 33 0D 0A  l...call &bc83..
0000F0: 09 63 61 6C 6C 20 26 62 63 37 61 0D 0A 09 72 65  .call &bc7a...re
000100: 74 0D 0A 0D 0A 09 3B 3E 3E 3E 20 53 4C 4F 41 44  t.....;>>> SLOAD
000110: 20 63 6F 6D 6D 61 6E 64 20 3C 52 6F 62 3E 0D 0A   command <Rob>..
000120: 0D 0A 2E 73 6C 6F 61 64 09 6F 72 20 61 0D 0A 09  ...sload.or a...
000130: 63 61 6C 6C 20 7A 2C 6E 6F 6E 61 6D 0D 0A 09 63  call z,nonam...c
000140: 70 20 31 0D 0A 09 72 65 74 20 6E 7A 0D 0A 0D 0A  p 1...ret nz....
000150: 09 6C 64 20 68 6C 2C 73 74 61 72 74 31 0D 0A 09  .ld hl,start1...
000160: 63 61 6C 6C 20 73 74 72 69 6E 67 0D 0A 09 63 61  call string...ca
000170: 6C 6C 20 68 65 78 69 6E 70 0D 0A 09 72 65 74 20  ll hexinp...ret 
000180: 7A 09 09 09 3B 45 53 43 20 70 72 65 73 73 65 64  z...;ESC pressed
000190: 3F 0D 0A 09 6C 64 20 63 2C 30 0D 0A 09 6A 72 20  ?...ld c,0...jr 
0001A0: 63 2C 6E 6F 73 65 74 63 0D 0A 09 69 6E 63 20 63  c,nosetc...inc c
0001B0: 09 09 09 3B 43 20 69 73 20 31 20 69 66 20 69 6E  ...;C is 1 if in
0001C0: 70 75 74 2C 20 30 20 69 66 20 6E 6F 20 69 6E 70  put, 0 if no inp
0001D0: 75 74 0D 0A 2E 6E 6F 73 65 74 63 09 70 75 73 68  ut...nosetc.push
0001E0: 20 68 6C 0D 0A 09 6C 64 20 6C 2C 28 69 78 2B 30   hl...ld l,(ix+0
0001F0: 29 0D 0A 09 6C 64 20 68 2C 28 69 78 2B 31 29 0D  )...ld h,(ix+1).

Size : 512 (Real : 512)
000000: 74 68 65 72 65 20 61 20 66 69 6C 65 6E 61 6D 65  there a filename
000010: 20 6E 6F 77 3F 0D 0A 09 72 65 74 20 6E 7A 09 09   now?...ret nz..
000020: 3B 72 65 74 75 72 6E 20 69 66 20 6E 6F 74 0D 0A  ;return if not..
000030: 09 70 75 73 68 20 69 78 09 09 3B 6F 74 68 65 72  .push ix..;other
000040: 77 69 73 65 20 70 72 65 73 65 72 76 65 20 70 61  wise preserve pa
000050: 72 61 6D 65 74 65 72 20 62 6C 6F 63 6B 20 61 64  rameter block ad
000060: 64 72 65 73 73 0D 0A 0D 0A 09 6C 64 20 68 6C 2C  dress.....ld hl,
000070: 28 26 62 65 37 64 29 09 3B 61 6E 64 20 67 65 74  (&be7d).;and get
000080: 20 74 68 65 20 64 72 69 76 65 20 73 65 6C 65 63   the drive selec
000090: 74 20 61 64 64 72 65 73 73 20 66 72 6F 6D 20 52  t address from R
0000A0: 41 4D 0D 0A 09 6C 64 20 28 68 6C 29 2C 31 09 3B  AM...ld (hl),1.;
0000B0: 61 6E 64 20 73 65 6C 65 63 74 20 64 72 69 76 65  and select drive
0000C0: 20 6F 6E 65 20 28 42 29 0D 0A 0D 0A 2E 70 61 74   one (B).....pat
0000D0: 63 68 09 6C 64 20 61 2C 26 63 39 09 3B 41 20 63  ch.ld a,&c9.;A c
0000E0: 6F 6E 74 61 69 6E 73 20 5A 38 30 20 6F 70 2D 63  ontains Z80 op-c
0000F0: 6F 64 65 20 66 6F 72 20 52 45 54 75 72 6E 0D 0A  ode for RETurn..
000100: 09 6C 64 20 28 26 42 43 43 42 29 2C 61 09 3B 73  .ld (&BCCB),a.;s
000110: 74 6F 70 20 52 4F 4D 73 20 62 65 69 6E 67 20 69  top ROMs being i
000120: 6E 69 74 69 61 6C 69 7A 65 64 20 28 4B 4C 20 52  nitialized (KL R
000130: 4F 4D 20 57 41 4C 4B 2F 49 4E 49 54 29 0D 0A 09  OM WALK/INIT)...
000140: 6C 64 20 28 26 42 43 43 45 29 2C 61 0D 0A 09 6C  ld (&BCCE),a...l
000150: 64 20 28 26 42 43 43 38 29 2C 61 09 3B 73 74 6F  d (&BCC8),a.;sto
000160: 70 20 73 79 73 74 65 6D 20 72 65 73 65 74 20 28  p system reset (
000170: 4B 4C 20 43 48 4F 4B 45 20 4F 46 46 29 0D 0A 09  KL CHOKE OFF)...
000180: 6C 64 20 28 26 42 44 33 37 29 2C 61 09 3B 73 74  ld (&BD37),a.;st
000190: 6F 70 20 66 69 72 6D 77 61 72 65 20 72 65 73 65  op firmware rese
0001A0: 74 0D 0A 09 61 64 64 20 26 32 30 09 09 3B 41 20  t...add &20..;A 
0001B0: 63 6F 6E 74 61 69 6E 73 20 6F 70 2D 63 6F 64 65  contains op-code
0001C0: 20 66 6F 72 20 4A 50 20 28 48 4C 29 0D 0A 09 6C   for JP (HL)...l
0001D0: 64 20 28 26 42 44 31 36 29 2C 61 09 3B 70 61 74  d (&BD16),a.;pat
0001E0: 63 68 20 4D 43 20 53 54 41 52 54 20 50 52 4F 47  ch MC START PROG
0001F0: 52 41 4D 0D 0A 09 6C 64 20 28 26 42 44 31 33 29  RAM...ld (&BD13)

Size : 512 (Real : 512)
000000: 0A 09 6C 64 20 61 2C 28 68 6C 29 0D 0A 09 6C 64  ..ld a,(hl)...ld
000010: 20 62 2C 61 0D 0A 09 69 6E 63 20 68 6C 0D 0A 09   b,a...inc hl...
000020: 6C 64 20 65 2C 28 68 6C 29 0D 0A 09 69 6E 63 20  ld e,(hl)...inc 
000030: 68 6C 0D 0A 09 6C 64 20 64 2C 28 68 6C 29 0D 0A  hl...ld d,(hl)..
000040: 09 65 78 20 68 6C 2C 64 65 0D 0A 09 6C 64 20 64  .ex hl,de...ld d
000050: 65 2C 26 63 30 30 30 09 09 3B 41 64 64 72 65 73  e,&c000..;Addres
000060: 73 20 74 6F 20 6F 70 65 6E 20 32 6B 20 62 75 66  s to open 2k buf
000070: 66 65 72 0D 0A 09 70 75 73 68 20 62 63 0D 0A 09  fer...push bc...
000080: 63 61 6C 6C 20 26 62 63 37 37 09 09 3B 6F 70 65  call &bc77..;ope
000090: 6E 20 66 69 6C 65 20 66 6F 72 20 69 6E 70 75 74  n file for input
0000A0: 0D 0A 09 70 6F 70 20 62 63 0D 0A 09 70 6F 70 20  ...pop bc...pop 
0000B0: 68 6C 0D 0A 09 6A 70 20 6E 63 2C 65 72 72 6F 72  hl...jp nc,error
0000C0: 0D 0A 09 6C 64 20 61 2C 63 0D 0A 09 6F 72 20 61  ...ld a,c...or a
0000D0: 0D 0A 09 6A 72 20 6E 7A 2C 69 6E 64 72 63 74 09  ...jr nz,indrct.
0000E0: 09 3B 64 6F 6E 27 74 20 62 6F 74 68 65 72 20 67  .;don't bother g
0000F0: 65 74 74 69 6E 67 20 6C 6F 61 64 20 61 64 64 72  etting load addr
000100: 65 73 73 20 69 66 20 73 75 70 70 6C 69 65 64 0D  ess if supplied.
000110: 0A 09 65 78 20 64 65 2C 68 6C 0D 0A 2E 69 6E 64  ..ex de,hl...ind
000120: 72 63 74 09 63 61 6C 6C 20 26 62 63 38 33 0D 0A  rct.call &bc83..
000130: 09 63 61 6C 6C 20 26 62 63 37 61 0D 0A 09 6C 64  .call &bc7a...ld
000140: 20 61 2C 31 30 3A 20 63 61 6C 6C 20 26 42 42 35   a,10: call &BB5
000150: 41 0D 0A 09 6C 64 20 61 2C 31 33 3A 20 63 61 6C  A...ld a,13: cal
000160: 6C 20 26 42 42 35 41 09 3B 43 52 2F 4C 46 0D 0A  l &BB5A.;CR/LF..
000170: 09 72 65 74 0D 0A 0D 0A 09 3B 3E 3E 3E 20 43 41  .ret.....;>>> CA
000180: 54 20 63 6F 6D 6D 61 6E 64 20 3C 6D 65 3E 0D 0A  T command <me>..
000190: 0D 0A 2E 63 61 74 09 63 61 6C 6C 20 66 64 62 75  ...cat.call fdbu
0001A0: 66 66 09 09 3B 66 69 6E 64 20 61 20 32 6B 20 62  ff..;find a 2k b
0001B0: 75 66 66 65 72 0D 0A 09 6C 64 20 63 2C 61 09 09  uffer...ld c,a..
0001C0: 09 3B 70 72 65 73 65 72 76 65 20 41 0D 0A 09 6C  .;preserve A...l
0001D0: 64 20 61 2C 64 3A 20 63 70 20 26 43 30 0D 0A 09  d a,d: cp &C0...
0001E0: 6A 70 20 7A 2C 65 72 72 6F 72 09 09 3B 65 72 72  jp z,error..;err
0001F0: 6F 72 20 69 66 20 6F 6E 6C 79 20 63 61 6E 20 62  or if only can b

Size : 512 (Real : 512)
000000: 2C 61 09 3B 70 61 74 63 68 20 4D 43 20 4C 4F 41  ,a.;patch MC LOA
000010: 44 20 50 52 4F 47 52 41 4D 0D 0A 0D 0A 2E 67 65  D PROGRAM.....ge
000020: 74 73 64 62 09 70 6F 70 20 69 78 09 09 3B 67 65  tsdb.pop ix..;ge
000030: 74 20 74 68 65 20 70 61 72 61 6D 65 74 65 72 20  t the parameter 
000040: 62 6C 6F 63 6B 20 61 64 64 72 65 73 73 20 66 72  block address fr
000050: 6F 6D 20 73 74 61 63 6B 0D 0A 09 6C 64 20 6C 2C  om stack...ld l,
000060: 28 69 78 2B 30 29 09 3B 61 6E 64 20 67 65 74 20  (ix+0).;and get 
000070: 74 68 65 20 6C 6F 20 62 79 74 65 20 6F 66 20 74  the lo byte of t
000080: 68 65 20 73 74 72 69 6E 67 20 64 65 73 63 72 69  he string descri
000090: 70 74 6F 72 0D 0A 09 6C 64 20 68 2C 28 69 78 2B  ptor...ld h,(ix+
0000A0: 31 29 09 3B 61 6E 64 20 67 65 74 20 74 68 65 20  1).;and get the 
0000B0: 68 69 20 62 79 74 65 20 6F 66 20 74 68 65 20 73  hi byte of the s
0000C0: 74 72 69 6E 67 20 64 65 73 63 72 69 70 74 6F 72  tring descriptor
0000D0: 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 09 3B 67 65  ...ld a,(hl).;ge
0000E0: 74 20 74 68 65 20 6C 65 6E 67 74 68 20 6F 66 20  t the length of 
0000F0: 74 68 65 20 73 74 72 69 6E 67 0D 0A 09 6C 64 20  the string...ld 
000100: 62 2C 61 09 09 3B 61 6E 64 20 70 6C 61 63 65 20  b,a..;and place 
000110: 69 74 20 69 6E 20 42 20 72 65 67 69 73 74 65 72  it in B register
000120: 20 66 6F 72 20 43 41 53 5F 49 4E 5F 4F 50 45 4E   for CAS_IN_OPEN
000130: 0D 0A 09 69 6E 63 20 68 6C 09 09 3B 48 4C 20 70  ...inc hl..;HL p
000140: 6F 69 6E 74 73 20 74 6F 20 61 64 64 72 65 73 73  oints to address
000150: 20 6F 66 20 46 49 4C 45 4E 41 4D 45 20 69 6E 20   of FILENAME in 
000160: 52 41 4D 0D 0A 09 6C 64 20 65 2C 28 68 6C 29 09  RAM...ld e,(hl).
000170: 3B 67 65 74 20 74 68 65 20 6C 6F 20 62 79 74 65  ;get the lo byte
000180: 20 6F 66 20 74 68 65 20 46 49 4C 45 4E 41 4D 45   of the FILENAME
000190: 20 61 64 64 72 65 73 73 0D 0A 09 69 6E 63 20 68   address...inc h
0001A0: 6C 09 09 3B 67 65 74 20 74 68 65 20 68 69 20 62  l..;get the hi b
0001B0: 79 74 65 20 6F 66 20 74 68 65 20 46 49 4C 45 4E  yte of the FILEN
0001C0: 41 4D 45 20 61 64 64 72 65 73 73 0D 0A 09 6C 64  AME address...ld
0001D0: 20 64 2C 28 68 6C 29 09 3B 61 6E 64 20 70 6C 61   d,(hl).;and pla
0001E0: 63 65 20 69 6E 20 44 20 72 65 67 69 73 74 65 72  ce in D register
0001F0: 0D 0A 09 65 78 20 68 6C 2C 64 65 09 3B 48 4C 20  ...ex hl,de.;HL

Size : 512 (Real : 512)
000000: 2C 26 30 35 0D 0A 09 6C 64 20 28 69 78 2B 32 29  ,&05...ld (ix+2)
000010: 2C 26 41 46 0D 0A 09 6C 64 20 68 6C 2C 66 74 65  ,&AF...ld hl,fte
000020: 78 74 09 3B 22 45 6E 74 65 72 20 66 69 6C 65 6E  xt.;"Enter filen
000030: 61 6D 65 22 0D 0A 09 63 61 6C 6C 20 73 74 72 69  ame"...call stri
000040: 6E 67 0D 0A 09 6C 64 20 68 6C 2C 26 41 46 30 35  ng...ld hl,&AF05
000050: 0D 0A 09 63 61 6C 6C 20 69 6E 70 75 74 66 09 3B  ...call inputf.;
000060: 49 6E 70 75 74 20 66 69 6C 65 6E 61 6D 65 20 40  Input filename @
000070: 20 26 41 46 30 35 0D 0A 09 6C 64 20 61 2C 26 41   &AF05...ld a,&A
000080: 3A 20 63 61 6C 6C 20 26 42 42 35 41 0D 0A 09 6C  : call &BB5A...l
000090: 64 20 61 2C 26 44 3A 20 63 61 6C 6C 20 26 42 42  d a,&D: call &BB
0000A0: 35 41 0D 0A 09 70 6F 70 20 68 6C 0D 0A 09 6C 64  5A...pop hl...ld
0000B0: 20 28 69 78 29 2C 62 09 3B 53 74 6F 72 65 20 73   (ix),b.;Store s
0000C0: 74 72 69 6E 67 20 6C 65 6E 67 74 68 0D 0A 09 64  tring length...d
0000D0: 65 63 20 69 78 3A 20 64 65 63 20 69 78 09 3B 49  ec ix: dec ix.;I
0000E0: 58 20 3D 20 70 61 72 61 6D 65 74 65 72 20 62 6C  X = parameter bl
0000F0: 6F 63 6B 20 28 26 41 46 30 30 29 0D 0A 09 6C 64  ock (&AF00)...ld
000100: 20 61 2C 30 09 09 3B 4E 6F 20 70 61 72 61 6D 65   a,0..;No parame
000110: 74 65 72 20 70 61 73 73 65 64 20 66 6F 72 20 62  ter passed for b
000120: 65 6C 6F 77 20 63 6F 6E 64 69 74 69 6F 6E 73 20  elow conditions 
000130: 28 45 53 43 2F 52 45 54 55 52 4E 29 0D 0A 09 72  (ESC/RETURN)...r
000140: 65 74 20 7A 09 09 3B 52 65 74 75 72 6E 20 69 66  et z..;Return if
000150: 20 45 53 43 20 70 72 65 73 73 65 64 0D 0A 09 6C   ESC pressed...l
000160: 64 20 61 2C 62 09 09 3B 41 20 69 73 20 6C 65 6E  d a,b..;A is len
000170: 67 74 68 20 6F 66 20 66 69 6C 65 6E 61 6D 65 0D  gth of filename.
000180: 0A 09 6F 72 20 61 09 09 3B 69 73 20 69 74 20 7A  ..or a..;is it z
000190: 65 72 6F 3F 0D 0A 09 72 65 74 20 7A 09 09 3B 72  ero?...ret z..;r
0001A0: 65 74 75 72 6E 20 69 66 20 73 6F 0D 0A 09 6C 64  eturn if so...ld
0001B0: 20 61 2C 31 09 09 3B 6F 74 68 65 72 77 69 73 65   a,1..;otherwise
0001C0: 20 2D 20 6F 6E 65 20 70 61 72 61 6D 65 74 65 72   - one parameter
0001D0: 0D 0A 09 72 65 74 09 09 3B 61 6E 64 20 72 65 74  ...ret..;and ret
0001E0: 75 72 6E 21 0D 0A 0D 0A 2E 74 62 74 68 65 78 09  urn!.....tbthex.
0001F0: 6C 64 20 61 2C 68 0D 0A 09 63 61 6C 6C 20 68 65  ld a,h...call he

Size : 512 (Real : 512)
000000: 09 63 70 20 31 33 3A 20 20 20 20 6A 72 20 7A 2C  .cp 13:    jr z,
000010: 65 78 68 69 6E 70 09 3B 52 45 54 55 52 4E 3F 0D  exhinp.;RETURN?.
000020: 0A 09 63 70 20 26 37 46 3A 20 20 20 6A 72 20 6E  ..cp &7F:   jr n
000030: 7A 2C 6E 6F 74 64 65 6C 09 3B 44 45 4C 3F 0D 0A  z,notdel.;DEL?..
000040: 0D 0A 09 6C 64 20 61 2C 62 3A 20 6F 72 20 61 0D  ...ld a,b: or a.
000050: 0A 09 6A 72 20 7A 2C 77 61 69 74 63 68 09 09 3B  ..jr z,waitch..;
000060: 64 6F 6E 27 74 20 64 65 6C 65 74 65 20 69 66 20  don't delete if 
000070: 6E 6F 20 69 6E 70 75 74 20 79 65 74 21 0D 0A 0D  no input yet!...
000080: 0A 09 64 65 63 20 68 6C 3A 20 64 65 63 20 62 09  ..dec hl: dec b.
000090: 09 3B 64 65 63 72 65 6D 65 6E 74 20 63 68 61 72  .;decrement char
0000A0: 20 63 6F 75 6E 74 20 61 6E 64 20 6C 6F 63 61 74   count and locat
0000B0: 69 6F 6E 0D 0A 09 6C 64 20 61 2C 38 3A 20 63 61  ion...ld a,8: ca
0000C0: 6C 6C 20 26 42 42 35 41 09 3B 62 61 63 6B 73 70  ll &BB5A.;backsp
0000D0: 61 63 65 2E 2E 2E 0D 0A 09 6C 64 20 61 2C 33 32  ace......ld a,32
0000E0: 3A 20 63 61 6C 6C 20 26 42 42 35 41 09 3B 53 50  : call &BB5A.;SP
0000F0: 41 43 45 20 6F 76 65 72 20 74 68 65 20 63 68 61  ACE over the cha
000100: 72 61 63 74 65 72 2E 2E 2E 0D 0A 09 6C 64 20 61  racter......ld a
000110: 2C 38 3A 20 63 61 6C 6C 20 26 42 42 35 41 09 3B  ,8: call &BB5A.;
000120: 61 6E 64 20 62 61 63 6B 73 70 61 63 65 20 61 67  and backspace ag
000130: 61 69 6E 0D 0A 09 6A 72 20 77 61 69 74 63 68 0D  ain...jr waitch.
000140: 0A 0D 0A 2E 6E 6F 74 64 65 6C 20 63 70 20 22 66  ....notdel cp "f
000150: 22 2B 31 3A 20 6A 72 20 6E 63 2C 77 61 69 74 63  "+1: jr nc,waitc
000160: 68 09 3B 67 65 74 20 61 6E 6F 74 68 65 72 20 63  h.;get another c
000170: 68 61 72 61 63 74 65 72 20 69 66 20 6F 76 65 72  haracter if over
000180: 20 22 66 22 0D 0A 09 63 70 20 22 61 22 3A 20 20   "f"...cp "a":  
000190: 6A 72 20 63 2C 6E 6F 6C 6F 77 09 3B 73 6B 69 70  jr c,nolow.;skip
0001A0: 20 74 68 69 73 20 6E 65 78 74 20 62 69 74 20 69   this next bit i
0001B0: 66 20 6E 6F 74 20 6C 6F 77 65 72 20 63 61 73 65  f not lower case
0001C0: 0D 0A 09 72 65 73 20 35 2C 61 09 09 09 3B 63 6F  ...res 5,a...;co
0001D0: 6E 76 65 72 74 20 74 6F 20 75 70 70 65 72 20 63  nvert to upper c
0001E0: 61 73 65 0D 0A 2E 6E 6F 6C 6F 77 09 63 70 20 22  ase...nolow.cp "
0001F0: 46 22 2B 31 3A 20 6A 72 20 6E 63 2C 77 61 69 74  F"+1: jr nc,wait

Size : 512 (Real : 512)
000000: 78 70 72 74 0D 0A 09 6C 64 20 61 2C 6C 0D 0A 09  xprt...ld a,l...
000010: 63 61 6C 6C 20 68 65 78 70 72 74 0D 0A 09 72 65  call hexprt...re
000020: 74 0D 0A 0D 0A 2E 68 65 78 70 72 74 20 6C 64 20  t.....hexprt ld 
000030: 62 2C 32 0D 0A 09 6C 64 20 63 2C 61 0D 0A 09 72  b,2...ld c,a...r
000040: 72 61 0D 0A 09 72 72 61 0D 0A 09 72 72 61 0D 0A  ra...rra...rra..
000050: 09 72 72 61 0D 0A 0D 0A 2E 68 65 78 6D 73 6B 20  .rra.....hexmsk 
000060: 61 6E 64 20 26 66 0D 0A 09 63 70 20 26 61 0D 0A  and &f...cp &a..
000070: 09 6A 72 20 6E 63 2C 68 65 78 67 72 74 0D 0A 09  .jr nc,hexgrt...
000080: 61 64 64 20 61 2C 26 33 30 0D 0A 09 63 61 6C 6C  add a,&30...call
000090: 20 26 62 62 35 61 0D 0A 09 6A 72 20 68 65 78 62   &bb5a...jr hexb
0000A0: 79 65 0D 0A 0D 0A 2E 68 65 78 67 72 74 20 61 64  ye.....hexgrt ad
0000B0: 64 20 61 2C 26 33 37 0D 0A 09 63 61 6C 6C 20 26  d a,&37...call &
0000C0: 62 62 35 61 0D 0A 0D 0A 2E 68 65 78 62 79 65 20  bb5a.....hexbye 
0000D0: 6C 64 20 61 2C 63 0D 0A 09 64 6A 6E 7A 20 68 65  ld a,c...djnz he
0000E0: 78 6D 73 6B 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 68  xmsk...ret.....h
0000F0: 65 6C 70 09 6C 64 20 68 6C 2C 68 74 78 74 0D 0A  elp.ld hl,htxt..
000100: 09 63 61 6C 6C 20 73 74 72 69 6E 67 0D 0A 09 72  .call string...r
000110: 65 74 0D 0A 0D 0A 09 3B 3E 3E 3E 20 46 69 6E 64  et.....;>>> Find
000120: 20 32 6B 20 62 75 66 66 65 72 20 3C 6D 65 3E 0D   2k buffer <me>.
000130: 0A 0D 0A 2E 66 64 62 75 66 66 09 6C 64 20 64 65  ....fdbuff.ld de
000140: 2C 26 32 30 30 09 3B 66 69 6E 64 20 32 6B 20 62  ,&200.;find 2k b
000150: 75 66 66 65 72 0D 0A 2E 66 62 75 66 66 70 20 70  uffer...fbuffp p
000160: 75 73 68 20 62 63 3A 20 70 75 73 68 20 61 66 0D  ush bc: push af.
000170: 0A 09 6C 64 20 62 63 2C 30 09 09 3B 7A 65 72 6F  ..ld bc,0..;zero
000180: 20 63 6F 75 6E 74 20 74 6F 20 30 0D 0A 0D 0A 2E   count to 0.....
000190: 62 66 6C 6F 6F 70 09 6C 64 20 61 2C 28 64 65 29  bfloop.ld a,(de)
0001A0: 09 3B 67 65 74 20 62 79 74 65 2C 0D 0A 09 69 6E  .;get byte,...in
0001B0: 63 20 64 65 09 09 3B 61 6E 64 20 69 6E 63 72 65  c de..;and incre
0001C0: 61 73 65 20 70 6F 69 6E 74 65 72 0D 0A 09 6F 72  ase pointer...or
0001D0: 20 61 09 09 3B 69 73 20 74 68 65 20 62 79 74 65   a..;is the byte
0001E0: 20 30 3F 0D 0A 09 6A 72 20 7A 2C 69 73 7A 65 72   0?...jr z,iszer
0001F0: 6F 09 3B 69 66 20 73 6F 2C 20 67 6F 20 74 6F 20  o.;if so, go to

Size : 512 (Real : 512)
000000: 63 68 09 3B 67 65 74 20 61 6E 6F 74 68 65 72 20  ch.;get another 
000010: 63 68 61 72 61 63 74 65 72 20 69 66 20 6F 76 65  character if ove
000020: 72 20 22 46 22 0D 0A 09 63 70 20 22 30 22 3A 20  r "F"...cp "0": 
000030: 20 20 6A 72 20 63 2C 77 61 69 74 63 68 09 3B 67    jr c,waitch.;g
000040: 65 74 20 61 6E 6F 74 68 65 72 20 63 68 61 72 61  et another chara
000050: 63 74 65 72 20 69 66 20 62 65 6C 6F 77 20 22 30  cter if below "0
000060: 22 0D 0A 09 63 70 20 22 41 22 3A 20 20 20 6A 72  "...cp "A":   jr
000070: 20 6E 63 2C 6F 6B 63 68 09 3B 6F 6B 20 69 66 20   nc,okch.;ok if 
000080: 22 41 22 20 6F 72 20 61 62 6F 76 65 0D 0A 09 63  "A" or above...c
000090: 70 20 22 39 22 2B 31 3A 20 6A 72 20 6E 63 2C 77  p "9"+1: jr nc,w
0000A0: 61 69 74 63 68 09 3B 67 65 74 20 61 6E 6F 74 68  aitch.;get anoth
0000B0: 65 72 20 63 68 61 72 61 63 74 65 72 20 69 66 20  er character if 
0000C0: 61 62 6F 76 65 20 22 39 22 0D 0A 2E 6F 6B 63 68  above "9"...okch
0000D0: 09 6C 64 20 28 68 6C 29 2C 61 0D 0A 09 69 6E 63  .ld (hl),a...inc
0000E0: 20 68 6C 0D 0A 09 69 6E 63 20 62 0D 0A 09 63 61   hl...inc b...ca
0000F0: 6C 6C 20 26 42 42 35 41 0D 0A 09 62 69 74 20 32  ll &BB5A...bit 2
000100: 2C 62 0D 0A 09 6A 72 20 7A 2C 77 61 69 74 63 68  ,b...jr z,waitch
000110: 0D 0A 0D 0A 2E 65 78 68 69 6E 70 20 63 61 6C 6C  .....exhinp call
000120: 20 26 42 42 38 34 09 09 3B 63 75 72 73 6F 72 20   &BB84..;cursor 
000130: 6F 66 66 0D 0A 09 6C 64 20 61 2C 62 0D 0A 09 6F  off...ld a,b...o
000140: 72 20 61 0D 0A 09 6A 72 20 7A 2C 6E 6F 68 69 6E  r a...jr z,nohin
000150: 70 09 09 3B 6E 6F 74 68 69 6E 67 20 69 6E 70 75  p..;nothing inpu
000160: 74 21 0D 0A 09 6C 64 20 64 65 2C 30 0D 0A 09 6C  t!...ld de,0...l
000170: 64 20 68 6C 2C 26 41 46 34 30 0D 0A 0D 0A 2E 68  d hl,&AF40.....h
000180: 63 6C 6F 6F 70 20 65 78 20 68 6C 2C 64 65 0D 0A  cloop ex hl,de..
000190: 09 61 64 64 20 68 6C 2C 68 6C 0D 0A 09 61 64 64  .add hl,hl...add
0001A0: 20 68 6C 2C 68 6C 0D 0A 09 61 64 64 20 68 6C 2C   hl,hl...add hl,
0001B0: 68 6C 0D 0A 09 61 64 64 20 68 6C 2C 68 6C 0D 0A  hl...add hl,hl..
0001C0: 09 65 78 20 68 6C 2C 64 65 0D 0A 09 6C 64 20 61  .ex hl,de...ld a
0001D0: 2C 28 68 6C 29 0D 0A 09 63 70 20 22 41 22 0D 0A  ,(hl)...cp "A"..
0001E0: 09 6A 72 20 6E 63 2C 6C 65 74 74 65 72 0D 0A 09  .jr nc,letter...
0001F0: 73 75 62 20 34 38 0D 0A 09 6A 72 20 61 64 64 32  sub 48...jr add2

Size : 512 (Real : 512)
000000: 69 6E 63 72 65 61 73 65 20 7A 65 72 6F 20 63 6F  increase zero co
000010: 75 6E 74 0D 0A 09 6C 64 20 62 63 2C 30 09 09 3B  unt...ld bc,0..;
000020: 65 6C 73 65 20 72 65 73 65 74 20 69 74 0D 0A 2E  else reset it...
000030: 72 70 6F 69 6E 74 09 6C 64 20 61 2C 64 0D 0A 09  rpoint.ld a,d...
000040: 63 70 20 26 41 30 09 09 3B 72 65 61 63 68 65 64  cp &A0..;reached
000050: 20 26 41 30 30 30 20 79 65 74 3F 0D 0A 09 6A 72   &A000 yet?...jr
000060: 20 6E 7A 2C 62 66 6C 6F 6F 70 09 3B 69 66 20 6E   nz,bfloop.;if n
000070: 6F 74 2C 20 6B 65 65 70 20 74 72 79 69 6E 67 2E  ot, keep trying.
000080: 2E 2E 21 0D 0A 09 6C 64 20 64 65 2C 26 43 30 30  ..!...ld de,&C00
000090: 30 09 3B 72 75 6E 20 6F 75 74 20 6F 66 20 6D 65  0.;run out of me
0000A0: 6D 6F 72 79 2C 20 73 6F 20 74 72 79 20 73 63 72  mory, so try scr
0000B0: 65 65 6E 20 6D 65 6D 6F 72 79 21 0D 0A 09 70 6F  een memory!...po
0000C0: 70 20 61 66 3A 20 70 6F 70 20 62 63 0D 0A 09 72  p af: pop bc...r
0000D0: 65 74 0D 0A 0D 0A 2E 69 73 7A 65 72 6F 09 69 6E  et.....iszero.in
0000E0: 63 20 62 63 09 09 3B 69 6E 63 72 65 61 73 65 20  c bc..;increase 
0000F0: 63 6F 75 6E 74 20 6F 66 20 7A 65 72 6F 73 0D 0A  count of zeros..
000100: 09 62 69 74 20 32 2C 62 09 09 3B 72 65 61 63 68  .bit 2,b..;reach
000110: 65 64 20 32 30 34 38 20 79 65 74 3F 0D 0A 09 6A  ed 2048 yet?...j
000120: 72 20 7A 2C 72 70 6F 69 6E 74 09 3B 69 66 20 6E  r z,rpoint.;if n
000130: 6F 74 2C 20 67 6F 20 62 61 63 6B 20 74 6F 20 63  ot, go back to c
000140: 68 65 63 6B 20 6E 65 78 74 20 62 79 74 65 0D 0A  heck next byte..
000150: 09 6F 72 20 61 09 09 3B 72 65 73 65 74 20 63 61  .or a..;reset ca
000160: 72 72 79 0D 0A 09 65 78 20 64 65 2C 68 6C 0D 0A  rry...ex de,hl..
000170: 09 73 62 63 20 68 6C 2C 62 63 09 3B 72 65 73 74  .sbc hl,bc.;rest
000180: 6F 72 65 20 44 45 20 74 6F 20 73 74 61 72 74 20  ore DE to start 
000190: 6F 66 20 7A 65 72 6F 73 0D 0A 09 65 78 20 64 65  of zeros...ex de
0001A0: 2C 68 6C 0D 0A 09 70 6F 70 20 61 66 3A 20 70 6F  ,hl...pop af: po
0001B0: 70 20 62 63 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B  p bc...ret.....;
0001C0: 3E 3E 3E 20 42 6C 61 6E 6B 20 32 6B 20 62 75 66  >>> Blank 2k buf
0001D0: 66 65 72 20 3C 6D 65 3E 0D 0A 0D 0A 2E 62 6B 62  fer <me>.....bkb
0001E0: 75 66 66 20 6C 64 20 61 2C 68 0D 0A 09 61 6E 64  uff ld a,h...and
0001F0: 20 26 43 30 0D 0A 09 63 70 20 26 43 30 09 09 3B   &C0...cp &C0..;

Size : 512 (Real : 512)
000000: 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 3E 3E 3E 20  ...ret.....;>>> 
000010: 53 48 45 41 44 45 52 20 63 6F 6D 6D 61 6E 64 20  SHEADER command 
000020: 3C 52 6F 62 3E 0D 0A 0D 0A 2E 68 65 61 64 65 72  <Rob>.....header
000030: 20 6F 72 20 61 0D 0A 09 63 61 6C 6C 20 7A 2C 6E   or a...call z,n
000040: 6F 6E 61 6D 0D 0A 09 63 70 20 31 0D 0A 09 72 65  onam...cp 1...re
000050: 74 20 6E 7A 0D 0A 0D 0A 2E 67 65 74 6E 61 6D 09  t nz.....getnam.
000060: 6C 64 20 6C 2C 28 69 78 2B 26 30 30 29 0D 0A 09  ld l,(ix+&00)...
000070: 6C 64 20 68 2C 28 69 78 2B 26 30 31 29 0D 0A 09  ld h,(ix+&01)...
000080: 6C 64 20 61 2C 28 68 6C 29 0D 0A 09 6C 64 20 62  ld a,(hl)...ld b
000090: 2C 61 0D 0A 09 69 6E 63 20 68 6C 0D 0A 09 6C 64  ,a...inc hl...ld
0000A0: 20 65 2C 28 68 6C 29 0D 0A 09 69 6E 63 20 68 6C   e,(hl)...inc hl
0000B0: 0D 0A 09 6C 64 20 64 2C 28 68 6C 29 0D 0A 09 65  ...ld d,(hl)...e
0000C0: 78 20 68 6C 2C 64 65 0D 0A 09 6C 64 20 64 65 2C  x hl,de...ld de,
0000D0: 26 63 30 30 30 09 09 3B 41 64 64 72 65 73 73 20  &c000..;Address 
0000E0: 74 6F 20 6F 70 65 6E 20 32 6B 20 62 75 66 66 65  to open 2k buffe
0000F0: 72 0D 0A 2E 72 68 65 61 64 09 63 61 6C 6C 20 26  r...rhead.call &
000100: 62 63 37 37 09 09 3B 6F 70 65 6E 20 66 69 6C 65  bc77..;open file
000110: 20 66 6F 72 20 69 6E 70 75 74 0D 0A 09 6A 70 20   for input...jp 
000120: 6E 63 2C 65 72 72 6F 72 0D 0A 0D 0A 09 6C 64 20  nc,error.....ld 
000130: 28 64 5F 6C 6F 63 29 2C 64 65 0D 0A 09 6C 64 20  (d_loc),de...ld 
000140: 28 64 5F 6C 65 6E 29 2C 62 63 0D 0A 09 6C 64 20  (d_len),bc...ld 
000150: 28 64 5F 74 79 70 29 2C 61 0D 0A 09 70 75 73 68  (d_typ),a...push
000160: 20 64 65 0D 0A 09 6C 64 20 64 65 2C 26 31 61 0D   de...ld de,&1a.
000170: 0A 09 61 64 64 20 68 6C 2C 64 65 0D 0A 09 6C 64  ..add hl,de...ld
000180: 20 65 2C 28 68 6C 29 0D 0A 09 69 6E 63 20 68 6C   e,(hl)...inc hl
000190: 0D 0A 09 6C 64 20 64 2C 28 68 6C 29 0D 0A 09 6C  ...ld d,(hl)...l
0001A0: 64 20 28 66 65 78 65 63 29 2C 64 65 0D 0A 09 70  d (fexec),de...p
0001B0: 6F 70 20 68 6C 0D 0A 09 61 64 64 20 68 6C 2C 62  op hl...add hl,b
0001C0: 63 0D 0A 09 64 65 63 20 68 6C 0D 0A 09 6C 64 20  c...dec hl...ld 
0001D0: 28 64 5F 65 6E 64 29 2C 68 6C 0D 0A 09 63 61 6C  (d_end),hl...cal
0001E0: 6C 20 26 62 63 37 61 0D 0A 09 0D 0A 2E 64 69 73  l &bc7a......dis
0001F0: 70 69 6E 20 6C 64 20 68 6C 2C 73 74 61 72 74 0D  pin ld hl,start.

Size : 512 (Real : 512)
000000: 69 73 20 69 74 20 69 6E 20 73 63 72 65 65 6E 20  is it in screen 
000010: 6D 65 6D 6F 72 79 3F 0D 0A 09 6A 72 20 7A 2C 63  memory?...jr z,c
000020: 6C 73 63 72 09 3B 69 66 20 73 6F 2C 20 67 6F 20  lscr.;if so, go 
000030: 74 6F 20 63 6C 65 61 72 20 73 63 72 65 65 6E 0D  to clear screen.
000040: 0A 09 6C 64 20 28 68 6C 29 2C 30 0D 0A 09 6C 64  ..ld (hl),0...ld
000050: 20 64 2C 68 3A 20 6C 64 20 65 2C 6C 0D 0A 09 69   d,h: ld e,l...i
000060: 6E 63 20 64 65 0D 0A 09 6C 64 20 62 63 2C 32 30  nc de...ld bc,20
000070: 34 37 0D 0A 09 6C 64 69 72 09 09 3B 65 6C 73 65  47...ldir..;else
000080: 20 62 6C 61 6E 6B 20 6F 75 74 20 32 6B 20 62 75   blank out 2k bu
000090: 66 66 65 72 0D 0A 09 72 65 74 0D 0A 2E 63 6C 73  ffer...ret...cls
0000A0: 63 72 09 63 61 6C 6C 20 26 42 43 31 31 0D 0A 09  cr.call &BC11...
0000B0: 63 61 6C 6C 20 26 42 43 30 45 09 3B 63 6C 65 61  call &BC0E.;clea
0000C0: 72 20 73 63 72 65 65 6E 0D 0A 09 72 65 74 0D 0A  r screen...ret..
0000D0: 0D 0A 09 3B 3E 3E 3E 20 50 72 69 6E 74 20 73 74  ...;>>> Print st
0000E0: 72 69 6E 67 0D 0A 0D 0A 2E 73 74 72 69 6E 67 20  ring.....string 
0000F0: 6C 64 20 61 2C 28 68 6C 29 0D 0A 09 6F 72 20 61  ld a,(hl)...or a
000100: 0D 0A 09 72 65 74 20 7A 0D 0A 09 63 61 6C 6C 20  ...ret z...call 
000110: 26 62 62 35 61 0D 0A 09 69 6E 63 20 68 6C 0D 0A  &bb5a...inc hl..
000120: 09 6A 72 20 73 74 72 69 6E 67 0D 0A 0D 0A 09 3B  .jr string.....;
000130: 3E 3E 3E 20 49 6E 70 75 74 20 72 6F 75 74 69 6E  >>> Input routin
000140: 65 20 28 31 36 20 63 68 61 72 61 63 74 65 72 73  e (16 characters
000150: 29 20 3C 6D 65 3E 0D 0A 0D 0A 2E 69 6E 70 75 74  ) <me>.....input
000160: 66 20 70 75 73 68 20 68 6C 3A 20 63 61 6C 6C 20  f push hl: call 
000170: 26 42 42 38 31 0D 0A 09 6C 64 20 62 2C 30 0D 0A  &BB81...ld b,0..
000180: 2E 67 69 6E 6B 65 79 20 63 61 6C 6C 20 26 42 42  .ginkey call &BB
000190: 31 38 0D 0A 09 63 70 20 26 46 43 3A 20 6A 72 20  18...cp &FC: jr 
0001A0: 7A 2C 65 69 6E 70 66 0D 0A 09 63 70 20 31 33 3A  z,einpf...cp 13:
0001B0: 20 6A 72 20 7A 2C 65 69 6E 70 66 0D 0A 09 63 70   jr z,einpf...cp
0001C0: 20 33 32 3A 20 6A 72 20 63 2C 67 69 6E 6B 65 79   32: jr c,ginkey
0001D0: 0D 0A 09 63 70 20 31 32 37 3A 20 6A 72 20 7A 2C  ...cp 127: jr z,
0001E0: 64 65 6C 65 74 65 3A 20 6A 72 20 6E 63 2C 67 69  delete: jr nc,gi
0001F0: 6E 6B 65 79 0D 0A 09 62 69 74 20 34 2C 62 3A 20  nkey...bit 4,b:

Size : 512 (Real : 512)
000000: 0A 09 63 61 6C 6C 20 73 74 72 69 6E 67 0D 0A 09  ..call string...
000010: 6C 64 20 68 6C 2C 28 64 5F 6C 6F 63 29 0D 0A 09  ld hl,(d_loc)...
000020: 63 61 6C 6C 20 74 62 74 68 65 78 0D 0A 09 6C 64  call tbthex...ld
000030: 20 68 6C 2C 6C 65 6E 67 74 68 0D 0A 09 63 61 6C   hl,length...cal
000040: 6C 20 73 74 72 69 6E 67 0D 0A 09 6C 64 20 68 6C  l string...ld hl
000050: 2C 28 64 5F 6C 65 6E 29 0D 0A 09 63 61 6C 6C 20  ,(d_len)...call 
000060: 74 62 74 68 65 78 0D 0A 09 6C 64 20 68 6C 2C 66  tbthex...ld hl,f
000070: 65 78 63 0D 0A 09 63 61 6C 6C 20 73 74 72 69 6E  exc...call strin
000080: 67 0D 0A 09 6C 64 20 68 6C 2C 28 66 65 78 65 63  g...ld hl,(fexec
000090: 29 0D 0A 09 63 61 6C 6C 20 74 62 74 68 65 78 0D  )...call tbthex.
0000A0: 0A 09 6C 64 20 68 6C 2C 64 61 74 65 6E 64 0D 0A  ..ld hl,datend..
0000B0: 09 63 61 6C 6C 20 73 74 72 69 6E 67 0D 0A 09 6C  .call string...l
0000C0: 64 20 68 6C 2C 28 64 5F 65 6E 64 29 0D 0A 09 63  d hl,(d_end)...c
0000D0: 61 6C 6C 20 74 62 74 68 65 78 0D 0A 09 6C 64 20  all tbthex...ld 
0000E0: 68 6C 2C 66 6C 74 79 70 65 0D 0A 09 63 61 6C 6C  hl,fltype...call
0000F0: 20 73 74 72 69 6E 67 0D 0A 09 6C 64 20 61 2C 28   string...ld a,(
000100: 64 5F 74 79 70 29 0D 0A 09 63 61 6C 6C 20 68 65  d_typ)...call he
000110: 78 70 72 74 0D 0A 09 6C 64 20 61 2C 26 30 61 3A  xprt...ld a,&0a:
000120: 63 61 6C 6C 20 26 62 62 35 61 0D 0A 09 6C 64 20  call &bb5a...ld 
000130: 61 2C 26 30 64 3A 63 61 6C 6C 20 26 62 62 35 61  a,&0d:call &bb5a
000140: 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 3E 3E 3E 20  ...ret.....;>>> 
000150: 46 69 6C 65 6E 61 6D 65 20 69 6E 70 75 74 20 72  Filename input r
000160: 6F 75 74 69 6E 65 20 3C 6D 65 3E 0D 0A 0D 0A 2E  outine <me>.....
000170: 6E 6F 6E 61 6D 09 70 75 73 68 20 68 6C 0D 0A 09  nonam.push hl...
000180: 6C 64 20 69 78 2C 26 41 46 30 30 0D 0A 09 6C 64  ld ix,&AF00...ld
000190: 20 28 69 78 29 2C 26 30 32 0D 0A 09 6C 64 20 28   (ix),&02...ld (
0001A0: 69 78 2B 31 29 2C 26 41 46 09 3B 50 61 72 61 6D  ix+1),&AF.;Param
0001B0: 65 74 65 72 20 62 6C 6F 63 6B 20 40 20 26 41 46  eter block @ &AF
0001C0: 30 30 0D 0A 09 69 6E 63 20 69 78 3A 20 69 6E 63  00...inc ix: inc
0001D0: 20 69 78 09 3B 53 74 72 69 6E 67 20 64 65 73 63   ix.;String desc
0001E0: 72 69 70 74 6F 72 20 62 6C 6F 63 6B 20 40 20 26  riptor block @ &
0001F0: 41 46 30 32 0D 0A 09 6C 64 20 28 69 78 2B 31 29  AF02...ld (ix+1)

Size : 512 (Real : 512)
000000: 6A 72 20 6E 7A 2C 67 69 6E 6B 65 79 0D 0A 09 63  jr nz,ginkey...c
000010: 61 6C 6C 20 26 42 42 35 41 3A 20 6C 64 20 28 68  all &BB5A: ld (h
000020: 6C 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A 09 69  l),a: inc hl...i
000030: 6E 63 20 62 3A 20 6A 72 20 67 69 6E 6B 65 79 0D  nc b: jr ginkey.
000040: 0A 2E 64 65 6C 65 74 65 20 6C 64 20 61 2C 62 3A  ..delete ld a,b:
000050: 20 6F 72 20 61 3A 20 6A 72 20 7A 2C 67 69 6E 6B   or a: jr z,gink
000060: 65 79 0D 0A 09 64 65 63 20 62 3A 20 64 65 63 20  ey...dec b: dec 
000070: 68 6C 3A 20 6C 64 20 28 68 6C 29 2C 30 0D 0A 09  hl: ld (hl),0...
000080: 6C 64 20 61 2C 38 3A 20 63 61 6C 6C 20 26 42 42  ld a,8: call &BB
000090: 35 41 3A 20 6C 64 20 61 2C 33 32 3A 20 63 61 6C  5A: ld a,32: cal
0000A0: 6C 20 26 42 42 35 41 0D 0A 09 6C 64 20 61 2C 38  l &BB5A...ld a,8
0000B0: 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 6A 72  : call &BB5A: jr
0000C0: 20 67 69 6E 6B 65 79 0D 0A 2E 65 69 6E 70 66 09   ginkey...einpf.
0000D0: 6C 64 20 28 68 6C 29 2C 30 3A 20 70 6F 70 20 68  ld (hl),0: pop h
0000E0: 6C 3A 20 70 75 73 68 20 61 66 3A 20 63 61 6C 6C  l: push af: call
0000F0: 20 26 42 42 38 34 3A 20 70 6F 70 20 61 66 3A 20   &BB84: pop af: 
000100: 63 70 20 26 46 43 3A 20 72 65 74 0D 0A 0D 0A 09  cp &FC: ret.....
000110: 3B 3E 3E 3E 20 48 65 78 20 69 6E 70 75 74 20 72  ;>>> Hex input r
000120: 6F 75 74 69 6E 65 20 28 34 2D 62 79 74 65 29 20  outine (4-byte) 
000130: 3C 6D 65 3E 0D 0A 0D 0A 2E 68 65 78 69 6E 70 20  <me>.....hexinp 
000140: 6C 64 20 68 6C 2C 26 41 46 34 30 09 09 3B 69 6E  ld hl,&AF40..;in
000150: 70 75 74 20 62 75 66 66 65 72 0D 0A 09 6C 64 20  put buffer...ld 
000160: 62 2C 30 09 09 09 3B 63 68 61 72 61 63 74 65 72  b,0...;character
000170: 73 20 74 79 70 65 64 20 69 6E 0D 0A 09 63 61 6C  s typed in...cal
000180: 6C 20 26 42 42 38 31 09 09 3B 63 75 72 73 6F 72  l &BB81..;cursor
000190: 20 6F 6E 0D 0A 0D 0A 2E 77 61 69 74 63 68 20 63   on.....waitch c
0001A0: 61 6C 6C 20 26 42 42 30 36 09 09 3B 77 61 69 74  all &BB06..;wait
0001B0: 20 66 6F 72 20 63 68 61 72 61 63 74 65 72 0D 0A   for character..
0001C0: 09 63 70 20 26 46 43 3A 20 20 20 6A 70 20 7A 2C  .cp &FC:   jp z,
0001D0: 26 42 42 38 34 09 3B 45 53 43 41 50 45 3F 20 73  &BB84.;ESCAPE? s
0001E0: 65 74 20 7A 65 72 6F 2C 20 69 6E 64 69 63 61 74  et zero, indicat
0001F0: 65 73 20 45 53 43 20 70 72 65 73 73 65 64 0D 0A  es ESC pressed..

Size : 512 (Real : 512)
000000: 44 0D 0A 09 64 62 22 7C 53 48 45 41 44 45 52 2C  D...db"|SHEADER,
000010: 22 2C 33 34 2C 22 3C 66 69 6C 65 6E 61 6D 65 2E  ",34,"<filename.
000020: 65 78 74 3E 22 2C 33 34 2C 22 20 3A 20 64 69 73  ext>",34," : dis
000030: 70 6C 61 79 73 20 65 78 74 65 6E 64 65 64 20 69  plays extended i
000040: 6E 66 6F 72 6D 61 74 69 6F 6E 20 61 62 6F 75 74  nformation about
000050: 20 66 69 6C 65 22 2C 26 30 61 2C 26 30 64 0D 0A   file",&0a,&0d..
000060: 09 64 62 22 7C 53 4C 4F 41 44 2C 22 2C 33 34 2C  .db"|SLOAD,",34,
000070: 22 3C 66 69 6C 65 6E 61 6D 65 2E 65 78 74 3E 22  "<filename.ext>"
000080: 2C 33 34 2C 22 20 20 20 3A 20 6C 6F 61 64 20 61  ,34,"   : load a
000090: 20 66 69 6C 65 20 69 6E 74 6F 20 61 6E 79 77 68   file into anywh
0000A0: 65 72 65 20 69 6E 20 6D 65 6D 6F 72 79 22 2C 26  ere in memory",&
0000B0: 30 41 2C 26 30 44 0D 0A 09 64 62 22 7C 53 50 4C  0A,&0D...db"|SPL
0000C0: 4F 41 44 2C 22 2C 33 34 2C 22 3C 66 69 6C 65 6E  OAD,",34,"<filen
0000D0: 61 6D 65 2E 65 78 74 3E 22 2C 33 34 2C 22 20 20  ame.ext>",34,"  
0000E0: 3A 20 6C 6F 61 64 20 61 20 70 72 6F 74 65 63 74  : load a protect
0000F0: 65 64 20 42 41 53 49 43 20 66 69 6C 65 22 2C 26  ed BASIC file",&
000100: 30 61 2C 26 30 64 0D 0A 09 64 62 22 7C 53 56 45  0a,&0d...db"|SVE
000110: 52 49 46 59 20 22 2C 33 32 2C 22 20 20 20 20 20  RIFY ",32,"     
000120: 20 20 20 20 20 20 20 20 20 22 2C 33 32 2C 22 20           ",32," 
000130: 3A 20 76 65 72 69 66 79 20 74 68 65 20 53 2D 44  : verify the S-D
000140: 4F 53 20 66 6F 72 6D 61 74 20 64 69 73 63 20 69  OS format disc i
000150: 6E 20 64 72 69 76 65 20 42 22 2C 26 30 61 2C 26  n drive B",&0a,&
000160: 30 64 0D 0A 09 64 62 20 26 30 61 2C 26 30 64 2C  0d...db &0a,&0d,
000170: 26 30 30 0D 0A 0D 0A 2E 73 74 61 72 74 09 64 62  &00.....start.db
000180: 20 26 30 61 2C 26 30 64 0D 0A 2E 73 74 61 72 74   &0a,&0d...start
000190: 31 09 64 62 22 53 74 61 72 74 20 61 64 64 72 65  1.db"Start addre
0001A0: 73 73 20 20 3A 20 26 22 2C 26 30 30 0D 0A 0D 0A  ss  : &",&00....
0001B0: 2E 6C 65 6E 67 74 68 09 64 62 20 26 30 61 2C 26  .length.db &0a,&
0001C0: 30 64 0D 0A 09 64 62 22 4C 65 6E 67 74 68 20 20  0d...db"Length  
0001D0: 20 20 20 20 20 20 20 3A 20 26 22 2C 26 30 30 0D         : &",&00.
0001E0: 0A 0D 0A 2E 66 65 78 63 09 64 62 20 26 30 61 2C  ....fexc.db &0a,
0001F0: 26 30 64 0D 0A 09 64 62 22 45 78 65 63 75 74 65  &0d...db"Execute

Size : 512 (Real : 512)
000000: 26 37 34 2C 32 0D 0A 09 64 62 20 30 2C 30 2C 26  &74,2...db 0,0,&
000010: 37 39 2C 32 0D 0A 09 64 62 20 30 2C 30 2C 26 37  79,2...db 0,0,&7
000020: 35 2C 32 0D 0A 09 64 62 20 30 2C 30 2C 26 37 61  5,2...db 0,0,&7a
000030: 2C 32 0D 0A 0D 0A 09 3B 3E 3E 3E 20 58 50 42 20  ,2.....;>>> XPB 
000040: 66 6F 72 20 53 2D 44 4F 53 20 66 6F 72 6D 61 74  for S-DOS format
000050: 0D 0A 0D 0A 2E 78 70 62 09 64 77 20 26 32 38 09  .....xpb.dw &28.
000060: 09 3B 72 65 63 6F 72 64 73 20 70 65 72 20 74 72  .;records per tr
000070: 61 63 6B 0D 0A 09 64 62 20 26 30 34 09 09 3B 62  ack...db &04..;b
000080: 6C 6F 63 6B 20 73 68 69 66 74 0D 0A 09 64 62 20  lock shift...db 
000090: 26 30 66 09 09 3B 62 6C 6F 63 6B 20 6D 61 73 6B  &0f..;block mask
0000A0: 0D 0A 09 64 62 20 26 30 30 09 09 3B 65 78 74 65  ...db &00..;exte
0000B0: 6E 74 20 6D 61 73 6B 0D 0A 09 64 77 20 26 63 37  nt mask...dw &c7
0000C0: 09 09 3B 6E 75 6D 62 65 72 20 6F 66 20 62 6C 6F  ..;number of blo
0000D0: 63 6B 73 20 2D 31 0D 0A 09 64 77 20 26 37 66 09  cks -1...dw &7f.
0000E0: 09 3B 4E 75 6D 62 65 72 20 6F 66 20 64 69 72 65  .;Number of dire
0000F0: 63 74 6F 72 79 20 65 6E 74 72 69 65 73 20 2D 31  ctory entries -1
000100: 0D 0A 09 64 77 20 26 63 30 09 09 3B 6E 75 6D 62  ...dw &c0..;numb
000110: 65 72 20 6F 66 20 64 69 72 65 63 74 6F 72 79 20  er of directory 
000120: 62 6C 6F 63 6B 73 2C 20 62 69 74 20 73 69 67 6E  blocks, bit sign
000130: 69 66 69 63 61 6E 74 20 28 26 38 30 3D 31 20 26  ificant (&80=1 &
000140: 63 30 3D 32 29 0D 0A 09 64 77 20 26 31 30 09 09  c0=2)...dw &10..
000150: 3B 62 69 74 20 73 69 67 6E 69 66 69 63 61 6E 74  ;bit significant
000160: 20 63 68 65 63 6B 73 75 6D 20 76 65 63 74 6F 72   checksum vector
000170: 20 28 64 69 72 20 65 6E 74 72 69 65 73 2F 34 2B   (dir entries/4+
000180: 31 29 0D 0A 09 64 77 20 26 30 30 09 09 3B 6E 75  1)...dw &00..;nu
000190: 6D 62 65 72 20 6F 66 20 72 65 73 65 72 76 65 64  mber of reserved
0001A0: 20 74 72 61 63 6B 73 0D 0A 09 64 62 20 26 37 31   tracks...db &71
0001B0: 09 09 3B 66 69 72 73 74 20 73 65 63 74 6F 72 20  ..;first sector 
0001C0: 6E 75 6D 62 65 72 0D 0A 09 64 62 20 26 30 61 09  number...db &0a.
0001D0: 09 3B 6E 75 6D 62 65 72 20 6F 66 20 73 65 63 74  .;number of sect
0001E0: 6F 72 73 20 70 65 72 20 74 72 61 63 6B 20 28 31  ors per track (1
0001F0: 30 29 0D 0A 09 64 62 20 26 30 39 09 09 3B 67 61  0)...db &09..;ga

Size : 512 (Real : 512)
000000: 20 61 64 64 72 65 73 73 3A 20 26 22 2C 26 30 30   address: &",&00
000010: 0D 0A 0D 0A 2E 64 61 74 65 6E 64 09 64 62 20 26  .....datend.db &
000020: 30 61 2C 26 30 64 0D 0A 09 64 62 22 45 6E 64 20  0a,&0d...db"End 
000030: 61 64 64 72 65 73 73 20 20 20 20 3A 20 26 22 2C  address    : &",
000040: 26 30 30 0D 0A 0D 0A 2E 66 6C 74 79 70 65 20 64  &00.....fltype d
000050: 62 20 26 30 61 2C 26 30 64 0D 0A 09 64 62 22 46  b &0a,&0d...db"F
000060: 69 6C 65 20 74 79 70 65 20 20 20 20 20 20 3A 20  ile type      : 
000070: 26 22 2C 26 30 30 0D 0A 0D 0A 0D 0A 2E 65 74 65  &",&00.......ete
000080: 78 74 09 64 62 20 22 44 69 73 63 20 65 72 72 6F  xt.db "Disc erro
000090: 72 21 22 2C 26 41 2C 26 44 2C 26 41 2C 30 0D 0A  r!",&A,&D,&A,0..
0000A0: 0D 0A 2E 66 74 65 78 74 09 64 62 20 22 45 6E 74  ...ftext.db "Ent
0000B0: 65 72 20 66 69 6C 65 6E 61 6D 65 3A 20 20 22 2C  er filename:  ",
0000C0: 30 0D 0A 0D 0A 2E 64 5F 6C 6F 63 09 65 71 75 20  0.....d_loc.equ 
0000D0: 26 61 66 30 30 0D 0A 2E 64 5F 6C 65 6E 09 65 71  &af00...d_len.eq
0000E0: 75 20 26 61 66 30 32 0D 0A 2E 64 5F 74 79 70 09  u &af02...d_typ.
0000F0: 65 71 75 20 26 61 66 30 34 0D 0A 2E 64 5F 65 6E  equ &af04...d_en
000100: 64 09 65 71 75 20 26 61 66 30 36 0D 0A 2E 66 65  d.equ &af06...fe
000110: 78 65 63 09 65 71 75 20 26 61 66 30 38 1A 2A 2A  xec.equ &af08.**
000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D  ***************.
000130: 0A 09 3B 2A 20 53 44 4F 53 20 76 65 72 73 69 6F  ..;* SDOS versio
000140: 6E 20 31 2E 30 20 72 65 76 20 32 33 20 20 20 20  n 1.0 rev 23    
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 0A               *..
000160: 09 3B 2A 20 57 72 69 74 74 65 6E 20 69 6E 20 5A  .;* Written in Z
000170: 38 30 20 41 53 53 45 4D 42 4C 45 52 20 6F 6E 20  80 ASSEMBLER on 
000180: 20 26 30 61 2C 26 30 64 0D 0A 2E 73 74 61 72 74   &0a,&0d...start
000190: 31 09 64 62 22 53 74 61 72 74 20 61 64 64 72 65  1.db"Start addre
0001A0: 73 73 20 20 3A 20 26 22 2C 26 30 30 0D 0A 0D 0A  ss  : &",&00....
0001B0: 2E 6C 65 6E 67 74 68 09 64 62 20 26 30 61 2C 26  .length.db &0a,&
0001C0: 30 64 0D 0A 09 64 62 22 4C 65 6E 67 74 68 20 20  0d...db"Length  
0001D0: 20 20 20 20 20 20 20 3A 20 26 22 2C 26 30 30 0D         : &",&00.
0001E0: 0A 0D 0A 2E 66 65 78 63 09 64 62 20 26 30 61 2C  ....fexc.db &0a,
0001F0: 26 30 64 0D 0A 09 64 62 22 45 78 65 63 75 74 65  &0d...db"Execute

Size : 512 (Real : 512)
000000: 70 20 6C 65 6E 67 74 68 20 28 72 65 61 64 2F 77  p length (read/w
000010: 72 69 74 65 29 0D 0A 09 64 62 20 26 31 30 09 09  rite)...db &10..
000020: 3B 67 61 70 20 6C 65 6E 67 74 68 20 28 66 6F 72  ;gap length (for
000030: 6D 61 74 29 0D 0A 09 64 62 20 26 65 35 09 09 3B  mat)...db &e5..;
000040: 66 69 6C 6C 65 72 20 62 79 74 65 20 66 6F 72 20  filler byte for 
000050: 66 6F 72 6D 61 74 74 69 6E 67 0D 0A 09 64 62 20  formatting...db 
000060: 26 30 32 09 09 3B 6C 6F 67 32 20 28 73 65 63 74  &02..;log2 (sect
000070: 6F 72 20 73 69 7A 65 29 20 2D 37 0D 0A 09 64 62  or size) -7...db
000080: 20 26 30 34 09 09 3B 73 65 63 74 6F 72 20 73 69   &04..;sector si
000090: 7A 65 2F 31 32 38 0D 0A 09 64 62 20 26 30 30 09  ze/128...db &00.
0000A0: 09 3B 5B 72 65 73 65 72 76 65 64 5D 20 63 75 72  .;[reserved] cur
0000B0: 72 65 6E 74 20 74 72 61 63 6B 0D 0A 09 64 62 20  rent track...db 
0000C0: 26 30 30 09 09 3B 5B 72 65 73 65 72 76 65 64 5D  &00..;[reserved]
0000D0: 20 61 6C 69 67 6E 65 64 3F 0D 0A 09 64 62 20 26   aligned?...db &
0000E0: 46 46 09 09 3B 64 6F 6E 27 74 20 61 75 74 6F 2D  FF..;don't auto-
0000F0: 73 65 6C 65 63 74 20 66 6F 72 6D 61 74 0D 0A 0D  select format...
000100: 0A 09 3B 3E 3E 3E 20 44 69 73 63 20 70 61 72 61  ..;>>> Disc para
000110: 6D 65 74 65 72 73 20 28 75 50 44 37 36 35 41 20  meters (uPD765A 
000120: 53 50 45 43 49 46 59 20 63 6F 6D 6D 61 6E 64 29  SPECIFY command)
000130: 0D 0A 0D 0A 2E 64 70 61 72 61 6D 09 64 77 20 35  .....dparam.dw 5
000140: 30 09 09 3B 6D 6F 74 6F 72 20 6F 6E 20 74 69 6D  0..;motor on tim
000150: 65 6F 75 74 0D 0A 09 64 77 20 32 35 30 09 09 3B  eout...dw 250..;
000160: 6D 6F 74 6F 72 20 6F 66 66 20 74 69 6D 65 6F 75  motor off timeou
000170: 74 0D 0A 09 64 62 20 31 37 35 09 09 3B 77 72 69  t...db 175..;wri
000180: 74 65 20 63 75 72 72 65 6E 74 20 6F 66 66 0D 0A  te current off..
000190: 09 64 62 20 31 35 09 09 3B 68 65 61 64 20 73 65  .db 15..;head se
0001A0: 74 74 6C 65 20 74 69 6D 65 0D 0A 09 64 62 20 31  ttle time...db 1
0001B0: 30 09 09 3B 28 66 61 73 74 65 72 29 20 73 74 65  0..;(faster) ste
0001C0: 70 20 72 61 74 65 20 74 69 6D 65 0D 0A 09 64 62  p rate time...db
0001D0: 20 31 09 09 3B 68 65 61 64 20 75 6E 6C 6F 61 64   1..;head unload
0001E0: 20 64 65 6C 61 79 0D 0A 09 64 62 20 33 09 09 3B   delay...db 3..;
0001F0: 68 65 61 64 20 6C 6F 61 64 20 64 65 6C 61 79 2C  head load delay,

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 53 54 53 20 4D 65 65 74 69 6E 67 20  ...;STS Meeting 
000010: 44 65 6D 6F 20 2F 20 42 54 4C 20 33 20 69 6E 74  Demo / BTL 3 int
000020: 72 6F 0D 0A 09 3B 73 74 61 72 72 69 6E 67 20 54  ro...;starring T
000030: 61 6D 73 69 6E 20 74 68 65 20 57 6F 6E 64 65 72  amsin the Wonder
000040: 20 43 61 74 0D 0A 0D 0A 09 6F 72 67 20 26 38 30   Cat.....org &80
000050: 30 30 0D 0A 09 77 72 69 74 65 20 22 64 69 73 63  00...write "disc
000060: 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69 73 74 0D 0A  .bin"...nolist..
000070: 0D 0A 09 3B 44 65 6D 6F 20 73 68 6F 72 74 2C 20  ...;Demo short, 
000080: 73 68 61 72 70 2C 20 63 68 61 6F 74 69 63 2C 20  sharp, chaotic, 
000090: 22 63 72 61 73 68 65 73 22 20 61 74 20 65 6E 64  "crashes" at end
0000A0: 20 6F 66 20 73 63 72 6F 6C 6C 74 65 78 74 2E 0D   of scrolltext..
0000B0: 0A 09 3B 4E 69 6E 65 20 41 63 72 65 20 44 75 73  ..;Nine Acre Dus
0000C0: 74 3F 20 53 74 61 74 65 6E 20 49 73 6C 61 6E 64  t? Staten Island
0000D0: 3F 20 48 65 79 20 44 75 64 65 3F 0D 0A 0D 0A 63  ? Hey Dude?....c
0000E0: 61 74 31 72 09 65 71 75 20 26 43 30 30 30 0D 0A  at1r.equ &C000..
0000F0: 63 61 74 32 72 09 65 71 75 20 26 43 31 32 43 0D  cat2r.equ &C12C.
000100: 0A 63 61 74 33 72 09 65 71 75 20 26 43 32 35 38  .cat3r.equ &C258
000110: 0D 0A 63 61 74 31 6C 09 65 71 75 20 26 43 33 38  ..cat1l.equ &C38
000120: 34 0D 0A 63 61 74 32 6C 09 65 71 75 20 26 43 34  4..cat2l.equ &C4
000130: 42 30 0D 0A 63 61 74 33 6C 09 65 71 75 20 26 43  B0..cat3l.equ &C
000140: 35 44 43 0D 0A 63 61 74 73 74 09 65 71 75 20 26  5DC..catst.equ &
000150: 43 37 30 38 0D 0A 6D 75 73 69 63 09 65 71 75 20  C708..music.equ 
000160: 26 44 30 30 30 0D 0A 0D 0A 74 6F 70 6C 6E 09 65  &D000....topln.e
000170: 71 75 20 26 34 30 30 30 09 09 09 09 3B 39 2A 39  qu &4000....;9*9
000180: 36 2B 26 38 30 2B 32 0D 0A 0D 0A 66 6F 6E 74 09  6+&80+2....font.
000190: 65 71 75 20 26 39 42 30 30 09 09 09 09 3B 48 49  equ &9B00....;HI
0001A0: 4D 45 4D 2D 26 31 30 30 30 20 74 68 65 6E 20 70  MEM-&1000 then p
0001B0: 61 67 65 2D 61 6C 69 67 6E 65 64 0D 0A 0D 0A 09  age-aligned.....
0001C0: 3B 2A 2A 2A 20 49 4E 49 54 09 49 6E 69 74 69 61  ;*** INIT.Initia
0001D0: 6C 69 73 61 74 69 6F 6E 0D 0A 0D 0A 09 6C 64 20  lisation.....ld 
0001E0: 61 2C 31 3A 20 63 61 6C 6C 20 26 42 43 30 45 0D  a,1: call &BC0E.
0001F0: 0A 0D 0A 09 6C 64 20 68 6C 2C 26 42 30 46 46 3A  ....ld hl,&B0FF:

Size : 512 (Real : 512)
000000: 20 6E 6F 6E 2D 44 4D 41 0D 0A 0D 0A 09 3B 3E 3E   non-DMA.....;>>
000010: 3E 20 54 65 78 74 20 61 6E 64 20 6D 69 73 63 65  > Text and misce
000020: 6C 6C 61 6E 65 6F 75 73 20 64 61 74 61 0D 0A 0D  llaneous data...
000030: 0A 2E 74 69 74 6C 65 09 64 62 20 22 20 53 2D 44  ..title.db " S-D
000040: 4F 53 20 22 2C 31 36 34 2C 22 31 39 39 32 20 53  OS ",164,"1992 S
000050: 54 53 20 53 6F 66 74 77 61 72 65 2E 22 2C 26 30  TS Software.",&0
000060: 41 2C 26 30 44 2C 26 30 41 2C 30 0D 0A 0D 0A 2E  A,&0D,&0A,0.....
000070: 62 74 78 74 09 64 62 22 53 79 73 74 65 6D 20 70  btxt.db"System p
000080: 61 74 63 68 65 64 2C 20 70 6C 65 61 73 65 20 72  atched, please r
000090: 75 6E 20 42 41 53 49 43 20 66 69 6C 65 2E 22 2C  un BASIC file.",
0000A0: 26 30 61 2C 26 30 64 2C 26 30 30 0D 0A 0D 0A 2E  &0a,&0d,&00.....
0000B0: 68 74 78 74 09 64 62 20 26 30 34 2C 26 30 32 0D  htxt.db &04,&02.
0000C0: 0A 09 64 62 22 53 2D 44 4F 53 20 76 65 72 73 69  ..db"S-DOS versi
0000D0: 6F 6E 20 31 2E 30 20 22 2C 31 36 34 2C 22 31 39  on 1.0 ",164,"19
0000E0: 39 32 20 52 69 63 68 61 72 64 20 46 61 69 72 68  92 Richard Fairh
0000F0: 75 72 73 74 20 61 6E 64 20 52 6F 62 20 53 63 6F  urst and Rob Sco
000100: 74 74 2C 20 53 54 53 20 53 6F 66 74 77 61 72 65  tt, STS Software
000110: 22 2C 26 30 61 2C 26 30 64 2C 26 30 61 2C 26 30  ",&0a,&0d,&0a,&0
000120: 64 0D 0A 09 64 62 22 43 6F 6D 6D 61 6E 64 73 20  d...db"Commands 
000130: 61 76 61 69 6C 61 62 6C 65 3A 22 2C 26 30 61 2C  available:",&0a,
000140: 26 30 64 2C 26 30 61 2C 26 30 64 0D 0A 09 64 62  &0d,&0a,&0d...db
000150: 22 7C 41 4D 53 44 4F 53 20 22 2C 33 32 2C 22 20  "|AMSDOS ",32," 
000160: 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 33 32              ",32
000170: 2C 22 20 20 20 3A 20 72 65 73 65 74 20 74 68 65  ,"   : reset the
000180: 20 42 20 64 72 69 76 65 20 74 6F 20 6E 6F 72 6D   B drive to norm
000190: 61 6C 20 41 4D 53 44 4F 53 20 66 6F 72 6D 61 74  al AMSDOS format
0001A0: 73 22 2C 26 30 61 2C 26 30 64 20 0D 0A 20 09 64  s",&0a,&0d .. .d
0001B0: 62 22 7C 42 52 55 4E 2C 22 2C 33 34 2C 22 3C 66  b"|BRUN,",34,"<f
0001C0: 69 6C 65 6E 61 6D 65 2E 65 78 74 3E 22 2C 33 34  ilename.ext>",34
0001D0: 2C 22 20 20 20 20 3A 20 52 55 4E 20 61 20 66 69  ,"    : RUN a fi
0001E0: 6C 65 20 66 72 6F 6D 20 61 20 62 69 67 20 66 6F  le from a big fo
0001F0: 72 6D 61 74 20 64 72 69 76 65 20 42 22 2C 26 30  rmat drive B",&0

Size : 512 (Real : 512)
000000: 20 6C 64 20 63 2C 37 0D 0A 09 6C 64 20 64 65 2C   ld c,7...ld de,
000010: 26 30 30 34 30 3A 20 63 61 6C 6C 20 26 42 43 43  &0040: call &BCC
000020: 45 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 73 6E 61 6D  E.....ld hl,snam
000030: 65 3A 20 6C 64 20 62 2C 31 32 0D 0A 09 6C 64 20  e: ld b,12...ld 
000040: 64 65 2C 26 43 30 30 30 3A 20 63 61 6C 6C 20 26  de,&C000: call &
000050: 42 43 37 37 0D 0A 09 6C 64 20 68 6C 2C 26 43 30  BC77...ld hl,&C0
000060: 30 30 3A 20 63 61 6C 6C 20 26 42 43 38 33 0D 0A  00: call &BC83..
000070: 09 63 61 6C 6C 20 26 42 43 37 41 0D 0A 0D 0A 09  .call &BC7A.....
000080: 6C 64 20 68 6C 2C 26 43 31 34 30 3A 20 6C 64 20  ld hl,&C140: ld 
000090: 64 65 2C 26 33 45 38 3A 20 63 61 6C 6C 20 63 73  de,&3E8: call cs
0000A0: 74 73 5F 72 0D 0A 09 6C 64 20 68 6C 2C 26 43 31  ts_r...ld hl,&C1
0000B0: 39 30 3A 20 6C 64 20 64 65 2C 26 34 34 38 3A 20  90: ld de,&448: 
0000C0: 63 61 6C 6C 20 63 73 74 73 5F 72 0D 0A 09 6C 64  call csts_r...ld
0000D0: 20 68 6C 2C 26 43 31 45 30 3A 20 6C 64 20 64 65   hl,&C1E0: ld de
0000E0: 2C 26 34 41 38 3A 20 63 61 6C 6C 20 63 73 74 73  ,&4A8: call csts
0000F0: 5F 72 0D 0A 09 6C 64 20 68 6C 2C 26 43 32 33 30  _r...ld hl,&C230
000100: 3A 20 6C 64 20 64 65 2C 26 35 30 38 3A 20 63 61  : ld de,&508: ca
000110: 6C 6C 20 63 73 74 73 5F 72 0D 0A 09 6C 64 20 68  ll csts_r...ld h
000120: 6C 2C 26 43 32 38 30 3A 20 6C 64 20 64 65 2C 26  l,&C280: ld de,&
000130: 35 36 38 3A 20 63 61 6C 6C 20 63 73 74 73 5F 72  568: call csts_r
000140: 0D 0A 09 6C 64 20 68 6C 2C 26 43 32 44 30 3A 20  ...ld hl,&C2D0: 
000150: 6C 64 20 64 65 2C 26 35 43 38 3A 20 63 61 6C 6C  ld de,&5C8: call
000160: 20 63 73 74 73 5F 72 0D 0A 09 6C 64 20 68 6C 2C   csts_r...ld hl,
000170: 26 43 33 32 30 3A 20 6C 64 20 64 65 2C 26 36 32  &C320: ld de,&62
000180: 38 3A 20 63 61 6C 6C 20 63 73 74 73 5F 72 0D 0A  8: call csts_r..
000190: 09 6C 64 20 68 6C 2C 26 43 33 37 30 3A 20 6C 64  .ld hl,&C370: ld
0001A0: 20 64 65 2C 26 36 38 38 3A 20 63 61 6C 6C 20 63   de,&688: call c
0001B0: 73 74 73 5F 72 0D 0A 09 6C 64 20 68 6C 2C 26 43  sts_r...ld hl,&C
0001C0: 33 43 30 3A 20 6C 64 20 64 65 2C 26 36 45 38 3A  3C0: ld de,&6E8:
0001D0: 20 63 61 6C 6C 20 63 73 74 73 5F 72 0D 0A 09 6C   call csts_r...l
0001E0: 64 20 68 6C 2C 26 43 34 31 30 3A 20 6C 64 20 64  d hl,&C410: ld d
0001F0: 65 2C 26 37 34 38 3A 20 63 61 6C 6C 20 63 73 74  e,&748: call cst

Size : 512 (Real : 512)
000000: 61 2C 26 30 64 0D 0A 09 64 62 22 7C 43 41 54 2C  a,&0d...db"|CAT,
000010: 30 2F 31 22 2C 33 32 2C 22 20 20 20 20 20 20 20  0/1",32,"       
000020: 20 20 20 20 20 20 20 22 2C 33 32 2C 22 20 20 3A         ",32,"  :
000030: 20 63 61 74 61 6C 6F 67 75 65 20 64 72 69 76 65   catalogue drive
000040: 20 41 20 6F 72 20 64 72 69 76 65 20 42 22 2C 26   A or drive B",&
000050: 30 41 2C 26 30 44 0D 0A 09 64 62 22 7C 43 4F 50  0A,&0D...db"|COP
000060: 59 41 42 2C 22 2C 33 34 2C 22 3C 66 69 6C 65 6E  YAB,",34,"<filen
000070: 61 6D 65 2E 65 78 74 3E 22 2C 33 34 2C 22 20 20  ame.ext>",34,"  
000080: 3A 20 63 6F 70 79 20 61 20 66 69 6C 65 20 66 72  : copy a file fr
000090: 6F 6D 20 64 72 69 76 65 20 41 20 74 6F 20 64 72  om drive A to dr
0000A0: 69 76 65 20 42 22 2C 26 30 61 2C 26 30 64 0D 0A  ive B",&0a,&0d..
0000B0: 09 64 62 22 7C 43 4F 50 59 42 41 2C 22 2C 33 34  .db"|COPYBA,",34
0000C0: 2C 22 3C 66 69 6C 65 6E 61 6D 65 2E 65 78 74 3E  ,"<filename.ext>
0000D0: 22 2C 33 34 2C 22 20 20 3A 20 63 6F 70 79 20 61  ",34,"  : copy a
0000E0: 20 66 69 6C 65 20 66 72 6F 6D 20 64 72 69 76 65   file from drive
0000F0: 20 42 20 74 6F 20 64 72 69 76 65 20 41 22 2C 26   B to drive A",&
000100: 30 61 2C 26 30 64 0D 0A 09 64 62 22 7C 53 46 4F  0a,&0d...db"|SFO
000110: 52 4D 41 54 20 22 2C 33 32 2C 22 20 20 20 20 20  RMAT ",32,"     
000120: 20 20 20 20 20 20 20 20 20 22 2C 33 32 2C 22 20           ",32," 
000130: 3A 20 66 6F 72 6D 61 74 20 74 68 65 20 64 69 73  : format the dis
000140: 63 20 69 6E 20 64 72 69 76 65 20 42 20 74 6F 20  c in drive B to 
000150: 53 2D 44 4F 53 20 66 6F 72 6D 61 74 22 2C 26 30  S-DOS format",&0
000160: 61 2C 26 30 64 0D 0A 09 64 62 22 20 20 20 20 20  a,&0d...db"     
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 28 33 39 36 6B 2C 20 31 32         (396k, 12
000190: 38 20 64 69 72 65 63 74 6F 72 79 20 65 6E 74 72  8 directory entr
0001A0: 69 65 73 29 22 2C 26 30 61 2C 26 30 64 0D 0A 09  ies)",&0a,&0d...
0001B0: 64 62 22 7C 53 46 4F 52 4D 41 54 2C 31 22 2C 33  db"|SFORMAT,1",3
0001C0: 32 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20  2,"             
0001D0: 22 2C 33 32 2C 22 20 3A 20 73 65 74 20 75 70 20  ",32," : set up 
0001E0: 53 2D 44 4F 53 20 66 6F 72 6D 61 74 20 66 6F 72  S-DOS format for
0001F0: 20 64 72 69 76 65 20 42 22 2C 26 30 41 2C 26 30   drive B",&0A,&0

Size : 512 (Real : 512)
000000: 64 65 0D 0A 2E 6C 65 74 74 65 72 20 73 75 62 20  de...letter sub 
000010: 35 35 0D 0A 2E 61 64 64 32 64 65 20 70 75 73 68  55...add2de push
000020: 20 62 63 0D 0A 09 6C 64 20 63 2C 61 3A 20 6C 64   bc...ld c,a: ld
000030: 20 62 2C 30 0D 0A 09 65 78 20 68 6C 2C 64 65 3A   b,0...ex hl,de:
000040: 20 61 64 64 20 68 6C 2C 62 63 3A 20 65 78 20 68   add hl,bc: ex h
000050: 6C 2C 64 65 0D 0A 09 70 6F 70 20 62 63 0D 0A 09  l,de...pop bc...
000060: 69 6E 63 20 68 6C 0D 0A 09 64 65 63 20 62 3A 20  inc hl...dec b: 
000070: 6A 72 20 6E 7A 2C 68 63 6C 6F 6F 70 0D 0A 0D 0A  jr nz,hcloop....
000080: 09 65 78 20 68 6C 2C 64 65 0D 0A 09 6C 64 20 61  .ex hl,de...ld a
000090: 2C 31 3A 20 6F 72 20 61 09 09 3B 72 65 73 65 74  ,1: or a..;reset
0000A0: 20 7A 65 72 6F 2C 20 72 65 73 65 74 20 63 61 72   zero, reset car
0000B0: 72 79 2C 20 69 6E 64 69 63 61 74 65 73 20 6E 75  ry, indicates nu
0000C0: 6D 62 65 72 20 69 6E 20 48 4C 0D 0A 09 72 65 74  mber in HL...ret
0000D0: 0D 0A 0D 0A 2E 6E 6F 68 69 6E 70 09 6C 64 20 61  .....nohinp.ld a
0000E0: 2C 31 3A 20 6F 72 20 61 3A 20 73 63 66 09 3B 72  ,1: or a: scf.;r
0000F0: 65 73 65 74 20 7A 65 72 6F 2C 20 73 65 74 20 63  eset zero, set c
000100: 61 72 72 79 2C 20 69 6E 64 69 63 61 74 65 73 20  arry, indicates 
000110: 6E 6F 20 69 6E 70 75 74 0D 0A 09 72 65 74 0D 0A  no input...ret..
000120: 0D 0A 09 3B 3E 3E 3E 20 44 69 73 63 20 52 4F 4D  ...;>>> Disc ROM
000130: 20 6A 75 6D 70 73 0D 0A 0D 0A 2E 72 65 61 64 09   jumps.....read.
000140: 64 77 20 26 43 30 33 43 2C 37 0D 0A 09 64 73 20  dw &C03C,7...ds 
000150: 32 0D 0A 0D 0A 2E 66 74 72 61 63 6B 09 64 77 20  2.....ftrack.dw 
000160: 26 43 30 34 32 2C 37 0D 0A 0D 0A 2E 73 65 74 75  &C042,7.....setu
000170: 70 09 64 77 20 26 43 30 33 36 2C 37 0D 0A 0D 0A  p.dw &C036,7....
000180: 09 3B 3E 3E 3E 20 46 6F 72 6D 61 74 20 76 65 63  .;>>> Format vec
000190: 74 6F 72 0D 0A 0D 0A 2E 73 65 63 62 75 66 20 64  tor.....secbuf d
0001A0: 62 20 30 2C 30 2C 26 37 31 2C 32 0D 0A 09 64 62  b 0,0,&71,2...db
0001B0: 20 30 2C 30 2C 26 37 36 2C 32 0D 0A 09 64 62 20   0,0,&76,2...db 
0001C0: 30 2C 30 2C 26 37 32 2C 32 0D 0A 09 64 62 20 30  0,0,&72,2...db 0
0001D0: 2C 30 2C 26 37 37 2C 32 0D 0A 09 64 62 20 30 2C  ,0,&77,2...db 0,
0001E0: 30 2C 26 37 33 2C 32 0D 0A 09 64 62 20 30 2C 30  0,&73,2...db 0,0
0001F0: 2C 26 37 38 2C 32 0D 0A 09 64 62 20 30 2C 30 2C  ,&78,2...db 0,0,

Size : 512 (Real : 512)
000000: 09 6C 64 20 62 63 2C 66 6F 6E 74 3A 20 61 64 64  .ld bc,font: add
000010: 20 68 6C 2C 62 63 3A 20 72 65 74 0D 0A 0D 0A 09   hl,bc: ret.....
000020: 3B 2D 2D 2D 20 73 75 62 72 09 50 72 69 6E 74 20  ;--- subr.Print 
000030: 38 20 72 6F 77 73 2F 31 20 63 6F 6C 75 6D 6E 20  8 rows/1 column 
000040: 6F 6E 20 73 63 72 65 65 6E 0D 0A 0D 0A 2E 72 6F  on screen.....ro
000050: 77 09 6C 64 20 62 63 2C 26 30 33 30 38 0D 0A 09  w.ld bc,&0308...
000060: 6C 64 69 3A 20 69 6E 63 20 63 3A 64 65 63 20 65  ldi: inc c:dec e
000070: 3A 20 6C 64 20 61 2C 6C 3A 61 64 64 20 62 3A 6C  : ld a,l:add b:l
000080: 64 20 6C 2C 61 3A 20 6C 64 20 61 2C 64 3A 61 64  d l,a: ld a,d:ad
000090: 64 20 63 3A 6C 64 20 64 2C 61 0D 0A 09 6C 64 69  d c:ld d,a...ldi
0000A0: 3A 20 69 6E 63 20 63 3A 64 65 63 20 65 3A 20 6C  : inc c:dec e: l
0000B0: 64 20 61 2C 6C 3A 61 64 64 20 62 3A 6C 64 20 6C  d a,l:add b:ld l
0000C0: 2C 61 3A 20 6C 64 20 61 2C 64 3A 61 64 64 20 63  ,a: ld a,d:add c
0000D0: 3A 6C 64 20 64 2C 61 0D 0A 09 6C 64 69 3A 20 69  :ld d,a...ldi: i
0000E0: 6E 63 20 63 3A 64 65 63 20 65 3A 20 6C 64 20 61  nc c:dec e: ld a
0000F0: 2C 6C 3A 61 64 64 20 62 3A 6C 64 20 6C 2C 61 3A  ,l:add b:ld l,a:
000100: 20 6C 64 20 61 2C 64 3A 61 64 64 20 63 3A 6C 64   ld a,d:add c:ld
000110: 20 64 2C 61 0D 0A 09 6C 64 69 3A 20 69 6E 63 20   d,a...ldi: inc 
000120: 63 3A 64 65 63 20 65 3A 20 6C 64 20 61 2C 6C 3A  c:dec e: ld a,l:
000130: 61 64 64 20 62 3A 6C 64 20 6C 2C 61 3A 20 6C 64  add b:ld l,a: ld
000140: 20 61 2C 64 3A 61 64 64 20 63 3A 6C 64 20 64 2C   a,d:add c:ld d,
000150: 61 0D 0A 09 6C 64 69 3A 20 69 6E 63 20 63 3A 64  a...ldi: inc c:d
000160: 65 63 20 65 3A 20 6C 64 20 61 2C 6C 3A 61 64 64  ec e: ld a,l:add
000170: 20 62 3A 6C 64 20 6C 2C 61 3A 20 6C 64 20 61 2C   b:ld l,a: ld a,
000180: 64 3A 61 64 64 20 63 3A 6C 64 20 64 2C 61 0D 0A  d:add c:ld d,a..
000190: 09 6C 64 69 3A 20 69 6E 63 20 63 3A 64 65 63 20  .ldi: inc c:dec 
0001A0: 65 3A 20 6C 64 20 61 2C 6C 3A 61 64 64 20 62 3A  e: ld a,l:add b:
0001B0: 6C 64 20 6C 2C 61 3A 20 6C 64 20 61 2C 64 3A 61  ld l,a: ld a,d:a
0001C0: 64 64 20 63 3A 6C 64 20 64 2C 61 0D 0A 09 6C 64  dd c:ld d,a...ld
0001D0: 69 3A 20 69 6E 63 20 63 3A 64 65 63 20 65 3A 20  i: inc c:dec e: 
0001E0: 6C 64 20 61 2C 6C 3A 61 64 64 20 62 3A 6C 64 20  ld a,l:add b:ld 
0001F0: 6C 2C 61 3A 20 6C 64 20 61 2C 64 3A 61 64 64 20  l,a: ld a,d:add

Size : 512 (Real : 512)
000000: 6C 2C 61 3A 20 6C 64 20 68 2C 30 3A 20 61 64 64  l,a: ld h,0: add
000010: 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68   hl,hl: add hl,h
000020: 6C 3A 20 70 75 73 68 20 68 6C 09 3B 20 7C 0D 0A  l: push hl.; |..
000030: 09 61 64 64 20 68 6C 2C 68 6C 3A 20 70 6F 70 20  .add hl,hl: pop 
000040: 64 65 3A 20 61 64 64 20 68 6C 2C 64 65 09 09 09  de: add hl,de...
000050: 3B 20 7C 0D 0A 0D 0A 09 6C 64 20 61 2C 63 3A 20  ; |.....ld a,c: 
000060: 61 6E 64 20 37 3A 20 61 64 64 20 61 3A 20 61 64  and 7: add a: ad
000070: 64 20 61 3A 20 61 64 64 20 61 09 09 3B 38 2A 28  d a: add a..;8*(
000080: 72 6F 77 20 4D 4F 44 20 38 29 20 2D 20 73 75 62  row MOD 8) - sub
000090: 72 6F 77 73 0D 0A 09 6C 64 20 64 2C 61 3A 20 6C  rows...ld d,a: l
0000A0: 64 20 65 2C 30 3A 20 61 64 64 20 68 6C 2C 64 65  d e,0: add hl,de
0000B0: 09 09 09 3B 20 7C 0D 0A 09 72 65 74 0D 0A 0D 0A  ...; |...ret....
0000C0: 09 3B 2A 2A 2A 20 52 4F 55 54 09 55 70 64 61 74  .;*** ROUT.Updat
0000D0: 65 20 70 6F 73 69 74 69 6F 6E 0D 0A 0D 0A 2E 75  e position.....u
0000E0: 70 64 61 74 65 09 6C 64 20 64 65 2C 28 61 6E 69  pdate.ld de,(ani
0000F0: 5F 63 29 3A 20 6C 64 20 61 2C 28 63 61 74 70 69  _c): ld a,(catpi
000100: 63 29 0D 0A 2E 75 70 64 5F 6C 70 09 6C 64 20 68  c)...upd_lp.ld h
000110: 6C 2C 32 35 36 3A 20 6F 72 20 61 3A 20 73 62 63  l,256: or a: sbc
000120: 20 68 6C 2C 64 65 3A 20 6A 72 20 7A 2C 75 70 64   hl,de: jr z,upd
000130: 5F 72 73 0D 0A 09 6C 64 20 68 6C 2C 32 30 37 3A  _rs...ld hl,207:
000140: 20 6F 72 20 61 3A 20 73 62 63 20 68 6C 2C 64 65   or a: sbc hl,de
000150: 3A 20 6A 72 20 63 2C 6C 69 66 74 5F 75 0D 0A 09  : jr c,lift_u...
000160: 6C 64 20 68 6C 2C 31 32 37 3A 20 6F 72 20 61 3A  ld hl,127: or a:
000170: 20 73 62 63 20 68 6C 2C 64 65 3A 20 6A 72 20 63   sbc hl,de: jr c
000180: 2C 77 61 6C 6B 5F 6C 0D 0A 09 6C 64 20 68 6C 2C  ,walk_l...ld hl,
000190: 37 39 20 3A 20 6F 72 20 61 3A 20 73 62 63 20 68  79 : or a: sbc h
0001A0: 6C 2C 64 65 3A 20 6A 72 20 63 2C 6C 69 66 74 5F  l,de: jr c,lift_
0001B0: 64 0D 0A 0D 0A 2E 77 61 6C 6B 5F 72 09 6C 64 20  d.....walk_r.ld 
0001C0: 68 6C 2C 61 6E 69 5F 78 3A 69 6E 63 20 28 68 6C  hl,ani_x:inc (hl
0001D0: 29 3A 20 69 6E 63 20 64 65 3A 6C 64 20 28 61 6E  ): inc de:ld (an
0001E0: 69 5F 63 29 2C 64 65 3A 20 69 6E 63 20 61 3A 61  i_c),de: inc a:a
0001F0: 6E 64 20 33 3A 20 20 20 20 20 6C 64 20 28 63 61  nd 3:     ld (ca

Size : 512 (Real : 512)
000000: 73 5F 72 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 66 6E  s_r.....ld hl,fn
000010: 61 6D 65 3A 20 6C 64 20 62 2C 31 32 3A 20 63 61  ame: ld b,12: ca
000020: 6C 6C 20 26 42 43 37 37 3A 20 6C 64 20 68 6C 2C  ll &BC77: ld hl,
000030: 26 43 30 30 30 3A 20 63 61 6C 6C 20 26 42 43 38  &C000: call &BC8
000040: 33 3A 20 63 61 6C 6C 20 26 42 43 37 41 0D 0A 09  3: call &BC7A...
000050: 6C 64 20 68 6C 2C 6C 6E 61 6D 65 3A 20 6C 64 20  ld hl,lname: ld 
000060: 62 2C 31 32 3A 20 63 61 6C 6C 20 26 42 43 37 37  b,12: call &BC77
000070: 3A 20 6C 64 20 68 6C 2C 66 6F 6E 74 20 3A 20 63  : ld hl,font : c
000080: 61 6C 6C 20 26 42 43 38 33 3A 20 63 61 6C 6C 20  all &BC83: call 
000090: 26 42 43 37 41 0D 0A 09 6C 64 20 68 6C 2C 6D 6E  &BC7A...ld hl,mn
0000A0: 61 6D 65 3A 20 6C 64 20 62 2C 31 32 3A 20 63 61  ame: ld b,12: ca
0000B0: 6C 6C 20 26 42 43 37 37 3A 20 6C 64 20 68 6C 2C  ll &BC77: ld hl,
0000C0: 6D 75 73 69 63 3A 20 63 61 6C 6C 20 26 42 43 38  music: call &BC8
0000D0: 33 3A 20 63 61 6C 6C 20 26 42 43 37 41 0D 0A 0D  3: call &BC7A...
0000E0: 0A 09 6C 64 20 62 63 2C 26 30 37 32 33 3A 20 63  ..ld bc,&0723: c
0000F0: 61 6C 6C 20 63 72 74 63 0D 0A 09 6C 64 20 62 63  all crtc...ld bc
000100: 2C 26 30 33 38 35 3A 20 63 61 6C 6C 20 63 72 74  ,&0385: call crt
000110: 63 0D 0A 09 6C 64 20 62 63 2C 26 30 32 33 32 3A  c...ld bc,&0232:
000120: 20 63 61 6C 6C 20 63 72 74 63 0D 0A 09 6C 64 20   call crtc...ld 
000130: 62 63 2C 26 30 36 32 31 3A 20 63 61 6C 6C 20 63  bc,&0621: call c
000140: 72 74 63 0D 0A 09 6C 64 20 62 63 2C 26 30 31 33  rtc...ld bc,&013
000150: 30 3A 20 63 61 6C 6C 20 63 72 74 63 0D 0A 09 6C  0: call crtc...l
000160: 64 20 62 63 2C 26 30 43 30 43 3A 20 63 61 6C 6C  d bc,&0C0C: call
000170: 20 63 72 74 63 0D 0A 09 6C 64 20 62 63 2C 26 30   crtc...ld bc,&0
000180: 44 34 30 3A 20 63 61 6C 6C 20 63 72 74 63 0D 0A  D40: call crtc..
000190: 0D 0A 09 6C 64 20 68 6C 2C 31 30 2A 39 36 2B 26  ...ld hl,10*96+&
0001A0: 38 30 3A 20 6C 64 20 64 2C 68 3A 20 6C 64 20 65  80: ld d,h: ld e
0001B0: 2C 6C 3A 20 69 6E 63 20 64 65 3A 20 3B 6C 64 20  ,l: inc de: ;ld 
0001C0: 28 68 6C 29 2C 32 35 35 3A 20 6C 64 20 62 63 2C  (hl),255: ld bc,
0001D0: 39 35 3A 20 3B 6C 64 69 72 0D 0A 09 6C 64 20 68  95: ;ldir...ld h
0001E0: 6C 2C 31 38 2A 39 36 2B 26 38 30 3A 20 6C 64 20  l,18*96+&80: ld 
0001F0: 64 2C 68 3A 20 6C 64 20 65 2C 6C 3A 20 69 6E 63  d,h: ld e,l: inc

Size : 512 (Real : 512)
000000: 74 70 69 63 29 2C 61 3A 20 6C 64 20 61 2C 34 3A  tpic),a: ld a,4:
000010: 20 72 65 74 0D 0A 2E 77 61 6C 6B 5F 6C 09 6C 64   ret...walk_l.ld
000020: 20 68 6C 2C 61 6E 69 5F 78 3A 64 65 63 20 28 68   hl,ani_x:dec (h
000030: 6C 29 3A 20 69 6E 63 20 64 65 3A 6C 64 20 28 61  l): inc de:ld (a
000040: 6E 69 5F 63 29 2C 64 65 3A 20 69 6E 63 20 61 3A  ni_c),de: inc a:
000050: 61 6E 64 20 33 3A 6F 72 20 34 3A 6C 64 20 28 63  and 3:or 4:ld (c
000060: 61 74 70 69 63 29 2C 61 3A 20 6C 64 20 61 2C 34  atpic),a: ld a,4
000070: 3A 20 72 65 74 0D 0A 2E 6C 69 66 74 5F 64 09 6C  : ret...lift_d.l
000080: 64 20 68 6C 2C 61 6E 69 5F 79 3A 69 6E 63 20 28  d hl,ani_y:inc (
000090: 68 6C 29 3A 20 69 6E 63 20 64 65 3A 6C 64 20 28  hl): inc de:ld (
0000A0: 61 6E 69 5F 63 29 2C 64 65 3A 20 6C 64 20 61 2C  ani_c),de: ld a,
0000B0: 38 3A 20 20 20 20 20 20 20 20 20 20 6C 64 20 28  8:          ld (
0000C0: 63 61 74 70 69 63 29 2C 61 3A 20 6C 64 20 61 2C  catpic),a: ld a,
0000D0: 31 3A 20 72 65 74 0D 0A 2E 6C 69 66 74 5F 75 09  1: ret...lift_u.
0000E0: 6C 64 20 68 6C 2C 61 6E 69 5F 79 3A 64 65 63 20  ld hl,ani_y:dec 
0000F0: 28 68 6C 29 3A 20 69 6E 63 20 64 65 3A 6C 64 20  (hl): inc de:ld 
000100: 28 61 6E 69 5F 63 29 2C 64 65 3A 20 6C 64 20 61  (ani_c),de: ld a
000110: 2C 38 3A 20 20 20 20 20 20 20 20 20 20 6C 64 20  ,8:          ld 
000120: 28 63 61 74 70 69 63 29 2C 61 3A 20 6C 64 20 61  (catpic),a: ld a
000130: 2C 31 3A 20 72 65 74 0D 0A 2E 75 70 64 5F 72 73  ,1: ret...upd_rs
000140: 09 09 09 20 20 20 20 20 6C 64 20 64 65 2C 30 3A  ...     ld de,0:
000150: 6C 64 20 28 61 6E 69 5F 63 29 2C 64 65 3A 20 6A  ld (ani_c),de: j
000160: 72 20 75 70 64 5F 6C 70 0D 0A 0D 0A 09 3B 2A 2A  r upd_lp.....;**
000170: 2A 20 53 55 42 52 09 53 70 72 69 74 65 2D 64 69  * SUBR.Sprite-di
000180: 73 70 6C 61 79 20 72 6F 75 74 69 6E 65 0D 0A 09  splay routine...
000190: 3B 09 09 41 20 3D 20 68 65 69 67 68 74 2C 20 48  ;..A = height, H
0001A0: 4C 20 3D 20 73 6F 75 72 63 65 2C 20 44 45 20 3D  L = source, DE =
0001B0: 20 64 65 73 74 69 6E 61 74 69 6F 6E 0D 0A 09 3B   destination...;
0001C0: 09 09 70 75 74 73 20 6F 6E 65 20 62 6C 61 6E 6B  ..puts one blank
0001D0: 20 62 79 74 65 20 65 69 74 68 65 72 20 73 69 64   byte either sid
0001E0: 65 0D 0A 0D 0A 2E 73 70 72 69 74 65 09 65 78 20  e.....sprite.ex 
0001F0: 64 65 2C 68 6C 3A 20 6C 64 20 28 68 6C 29 2C 30  de,hl: ld (hl),0

Size : 512 (Real : 512)
000000: 20 64 65 3A 20 3B 6C 64 20 28 68 6C 29 2C 32 35   de: ;ld (hl),25
000010: 35 3A 20 6C 64 20 62 63 2C 39 35 3A 20 3B 6C 64  5: ld bc,95: ;ld
000020: 69 72 0D 0A 0D 0A 09 3B 26 34 34 32 30 20 2D 20  ir.....;&4420 - 
000030: 73 74 61 72 74 20 6F 66 20 66 69 72 73 74 20 72  start of first r
000040: 6F 77 09 2D 20 26 34 34 37 46 0D 0A 09 3B 26 34  ow.- &447F...;&4
000050: 34 38 30 20 2D 20 73 74 61 72 74 20 6F 66 20 73  480 - start of s
000060: 65 63 6F 6E 64 20 72 6F 77 09 2D 20 26 34 34 44  econd row.- &44D
000070: 46 0D 0A 09 3B 26 34 34 45 30 20 2D 20 73 74 61  F...;&44E0 - sta
000080: 72 74 20 6F 66 20 66 72 65 65 20 6D 65 6D 6F 72  rt of free memor
000090: 79 0D 0A 0D 0A 09 64 69 3A 20 6C 64 20 68 6C 2C  y.....di: ld hl,
0000A0: 28 26 33 38 29 3A 20 6C 64 20 28 72 33 38 29 2C  (&38): ld (r38),
0000B0: 68 6C 0D 0A 09 20 20 20 20 6C 64 20 68 6C 2C 26  hl...    ld hl,&
0000C0: 43 39 46 42 3A 20 6C 64 20 28 26 33 38 29 2C 68  C9FB: ld (&38),h
0000D0: 6C 3A 20 65 69 0D 0A 0D 0A 09 6C 64 20 65 2C 31  l: ei.....ld e,1
0000E0: 3A 20 63 61 6C 6C 20 6D 75 73 69 63 0D 0A 0D 0A  : call music....
0000F0: 2E 74 65 73 74 6C 70 09 6C 64 20 62 2C 26 46 35  .testlp.ld b,&F5
000100: 0D 0A 09 69 6E 20 61 2C 28 63 29 3A 20 72 72 61  ...in a,(c): rra
000110: 3A 20 6A 72 20 6E 63 2C 74 65 73 74 6C 70 0D 0A  : jr nc,testlp..
000120: 09 6C 64 20 62 63 2C 26 37 46 30 30 3A 20 6C 64  .ld bc,&7F00: ld
000130: 20 61 2C 26 35 34 3A 20 6F 75 74 20 28 63 29 2C   a,&54: out (c),
000140: 63 3A 20 6F 75 74 20 28 63 29 2C 61 0D 0A 0D 0A  c: out (c),a....
000150: 09 63 61 6C 6C 20 73 63 72 6F 6C 6C 0D 0A 2E 63  .call scroll...c
000160: 6F 75 6E 74 72 09 6C 64 20 61 2C 31 3A 20 64 65  ountr.ld a,1: de
000170: 63 20 61 3A 20 6A 72 20 6E 7A 2C 6E 6F 61 6E 69  c a: jr nz,noani
000180: 6D 0D 0A 09 63 61 6C 6C 20 64 69 73 70 0D 0A 09  m...call disp...
000190: 63 61 6C 6C 20 75 70 64 61 74 65 0D 0A 2E 6E 6F  call update...no
0001A0: 61 6E 69 6D 09 6C 64 20 28 63 6F 75 6E 74 72 2B  anim.ld (countr+
0001B0: 31 29 2C 61 0D 0A 09 63 61 6C 6C 20 6D 77 63 61  1),a...call mwca
0001C0: 6C 63 0D 0A 09 63 61 6C 6C 20 6D 75 73 69 63 2B  lc...call music+
0001D0: 33 0D 0A 0D 0A 09 6C 64 20 62 63 2C 26 37 46 30  3.....ld bc,&7F0
0001E0: 30 3A 20 6C 64 20 61 2C 26 34 43 3A 20 6F 75 74  0: ld a,&4C: out
0001F0: 20 28 63 29 2C 63 3A 20 6F 75 74 20 28 63 29 2C   (c),c: out (c),

Size : 512 (Real : 512)
000000: 3A 20 69 6E 63 20 68 6C 3A 20 65 78 20 64 65 2C  : inc hl: ex de,
000010: 68 6C 0D 0A 09 6C 64 69 3A 6C 64 69 3A 6C 64 69  hl...ldi:ldi:ldi
000020: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000030: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000040: 3A 6C 64 69 0D 0A 09 65 78 20 64 65 2C 68 6C 3A  :ldi...ex de,hl:
000050: 20 6C 64 20 28 68 6C 29 2C 30 0D 0A 09 6C 64 20   ld (hl),0...ld 
000060: 62 63 2C 26 37 46 33 3A 20 61 64 64 20 68 6C 2C  bc,&7F3: add hl,
000070: 62 63 3A 20 62 69 74 20 37 2C 68 3A 20 6A 72 20  bc: bit 7,h: jr 
000080: 7A 2C 73 70 72 6E 6F 63 0D 0A 09 6C 64 20 62 63  z,sprnoc...ld bc
000090: 2C 26 43 30 36 30 3A 20 61 64 64 20 68 6C 2C 62  ,&C060: add hl,b
0000A0: 63 0D 0A 2E 73 70 72 6E 6F 63 09 65 78 20 64 65  c...sprnoc.ex de
0000B0: 2C 68 6C 3A 20 64 65 63 20 61 3A 20 6A 72 20 6E  ,hl: dec a: jr n
0000C0: 7A 2C 73 70 72 69 74 65 0D 0A 09 72 65 74 0D 0A  z,sprite...ret..
0000D0: 0D 0A 09 3B 2A 2A 2A 20 56 41 52 49 09 41 6E 69  ...;*** VARI.Ani
0000E0: 6D 61 74 69 6F 6E 20 76 61 72 69 61 62 6C 65 73  mation variables
0000F0: 0D 0A 0D 0A 2E 61 6E 69 5F 78 09 64 62 20 30 09  .....ani_x.db 0.
000100: 09 09 09 09 3B 50 6F 73 69 74 69 6F 6E 20 28 30  ....;Position (0
000110: 2D 37 39 29 0D 0A 2E 61 6E 69 5F 79 09 64 62 20  -79)...ani_y.db 
000120: 30 09 09 09 09 09 3B 52 6F 77 20 28 30 2C 20 31  0.....;Row (0, 1
000130: 2D 36 33 2C 20 36 34 29 0D 0A 2E 61 6E 69 5F 63  -63, 64)...ani_c
000140: 09 64 77 20 30 09 09 09 09 09 3B 43 6F 75 6E 74  .dw 0.....;Count
000150: 65 72 20 28 30 2D 32 38 37 29 0D 0A 2E 63 61 74  er (0-287)...cat
000160: 70 69 63 09 64 62 20 30 09 09 09 09 09 3B 43 75  pic.db 0.....;Cu
000170: 72 72 65 6E 74 20 66 72 61 6D 65 20 6F 66 20 70  rrent frame of p
000180: 69 63 74 75 72 65 0D 0A 0D 0A 09 3B 2D 2D 2D 2D  icture.....;----
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 73 63 72 6F 6C  ---------- scrol
0001B0: 6C 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  l --------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55  ---.....;*** ROU
0001E0: 54 09 53 63 72 6F 6C 6C 69 6E 67 20 6D 65 73 73  T.Scrolling mess
0001F0: 61 67 65 20 68 61 6E 64 6C 65 72 0D 0A 0D 0A 2E  age handler.....

Size : 512 (Real : 512)
000000: 61 0D 0A 2E 6E 6F 72 73 74 74 09 6A 70 20 74 65  a...norstt.jp te
000010: 73 74 6C 70 0D 0A 0D 0A 2E 72 33 38 09 64 77 20  stlp.....r38.dw 
000020: 30 0D 0A 0D 0A 09 63 61 6C 6C 20 26 42 44 31 39  0.....call &BD19
000030: 0D 0A 09 63 61 6C 6C 20 26 42 42 30 39 3A 20 6A  ...call &BB09: j
000040: 72 20 6E 63 2C 74 65 73 74 6C 70 0D 0A 0D 0A 09  r nc,testlp.....
000050: 63 61 6C 6C 20 6D 75 73 69 63 2B 36 0D 0A 09 6C  call music+6...l
000060: 64 20 62 63 2C 26 30 37 31 45 3A 20 63 61 6C 6C  d bc,&071E: call
000070: 20 63 72 74 63 0D 0A 09 6C 64 20 62 63 2C 26 30   crtc...ld bc,&0
000080: 36 31 39 3A 20 63 61 6C 6C 20 63 72 74 63 0D 0A  619: call crtc..
000090: 09 6C 64 20 62 63 2C 26 30 32 32 45 3A 20 63 61  .ld bc,&022E: ca
0000A0: 6C 6C 20 63 72 74 63 0D 0A 09 6C 64 20 62 63 2C  ll crtc...ld bc,
0000B0: 26 30 31 32 38 3A 20 63 61 6C 6C 20 63 72 74 63  &0128: call crtc
0000C0: 0D 0A 09 6C 64 20 62 63 2C 26 30 43 33 30 3A 20  ...ld bc,&0C30: 
0000D0: 63 61 6C 6C 20 63 72 74 63 0D 0A 09 6C 64 20 62  call crtc...ld b
0000E0: 63 2C 26 30 44 30 30 3A 20 63 61 6C 6C 20 63 72  c,&0D00: call cr
0000F0: 74 63 0D 0A 0D 0A 09 6C 64 20 61 2C 32 3A 20 6A  tc.....ld a,2: j
000100: 70 20 26 42 43 30 45 0D 0A 0D 0A 09 3B 2D 2D 2D  p &BC0E.....;---
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 61 6E  ------------- an
000130: 69 6D 61 74 69 6F 6E 20 2D 2D 2D 2D 2D 2D 2D 2D  imation --------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F  ----.....;*** RO
000160: 55 54 09 44 69 73 70 6C 61 79 20 73 70 72 69 74  UT.Display sprit
000170: 65 20 69 6E 20 63 6F 72 72 65 63 74 20 70 6F 73  e in correct pos
000180: 69 74 69 6F 6E 0D 0A 0D 0A 2E 64 69 73 70 09 6C  ition.....disp.l
000190: 64 20 61 2C 28 61 6E 69 5F 79 29 3A 20 63 61 6C  d a,(ani_y): cal
0001A0: 6C 20 73 63 72 61 64 64 09 09 09 3B 47 65 74 20  l scradd...;Get 
0001B0: 73 63 72 65 65 6E 20 61 64 64 72 65 73 73 0D 0A  screen address..
0001C0: 09 6C 64 20 61 2C 28 61 6E 69 5F 78 29 3A 20 6C  .ld a,(ani_x): l
0001D0: 64 20 65 2C 61 3A 20 6C 64 20 64 2C 30 3A 20 61  d e,a: ld d,0: a
0001E0: 64 64 20 68 6C 2C 64 65 09 09 3B 41 64 64 20 78  dd hl,de..;Add x
0001F0: 20 70 6F 73 69 74 69 6F 6E 0D 0A 09 6C 64 20 64   position...ld d

Size : 512 (Real : 512)
000000: 73 63 72 6F 6C 6C 09 6C 64 20 61 2C 28 74 65 78  scroll.ld a,(tex
000010: 74 70 74 29 3A 20 6F 72 20 61 3A 20 6A 72 20 7A  tpt): or a: jr z
000020: 2C 6E 65 77 0D 0A 09 6C 64 20 68 6C 2C 28 66 6F  ,new...ld hl,(fo
000030: 6E 74 61 64 29 3A 20 6A 72 20 73 63 72 6F 6C 63  ntad): jr scrolc
000040: 0D 0A 0D 0A 2E 6E 65 77 09 6C 64 20 68 6C 2C 28  .....new.ld hl,(
000050: 74 65 78 74 61 64 29 0D 0A 09 6C 64 20 61 2C 28  textad)...ld a,(
000060: 68 6C 29 3A 20 6F 72 20 61 3A 20 6A 72 20 6E 7A  hl): or a: jr nz
000070: 2C 6E 65 77 63 6F 6B 0D 0A 09 6C 64 20 68 6C 2C  ,newcok...ld hl,
000080: 74 65 78 74 3A 20 6C 64 20 61 2C 28 68 6C 29 0D  text: ld a,(hl).
000090: 0A 2E 6E 65 77 63 6F 6B 09 69 6E 63 20 68 6C 3A  ..newcok.inc hl:
0000A0: 20 6C 64 20 28 74 65 78 74 61 64 29 2C 68 6C 0D   ld (textad),hl.
0000B0: 0A 09 63 61 6C 6C 20 63 68 61 72 61 64 0D 0A 0D  ..call charad...
0000C0: 0A 2E 73 63 72 6F 6C 63 09 70 75 73 68 20 68 6C  ..scrolc.push hl
0000D0: 0D 0A 09 20 6C 64 20 64 65 2C 26 34 34 37 46 3A  ... ld de,&447F:
0000E0: 20 63 61 6C 6C 20 72 6F 77 0D 0A 09 20 6C 64 20   call row... ld 
0000F0: 64 65 2C 26 34 34 44 46 3A 20 63 61 6C 6C 20 72  de,&44DF: call r
000100: 6F 77 0D 0A 09 70 6F 70 20 68 6C 3A 20 69 6E 63  ow...pop hl: inc
000110: 20 68 6C 3A 20 6C 64 20 28 66 6F 6E 74 61 64 29   hl: ld (fontad)
000120: 2C 68 6C 0D 0A 09 63 61 6C 6C 20 64 73 63 72 6F  ,hl...call dscro
000130: 6C 0D 0A 09 6C 64 20 61 2C 28 74 65 78 74 70 74  l...ld a,(textpt
000140: 29 3A 20 69 6E 63 20 61 3A 20 61 6E 64 20 33 0D  ): inc a: and 3.
000150: 0A 09 6C 64 20 28 74 65 78 74 70 74 29 2C 61 3A  ..ld (textpt),a:
000160: 20 72 65 74 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75   ret.....;--- su
000170: 62 72 09 43 61 6C 63 75 6C 61 74 65 20 63 68 61  br.Calculate cha
000180: 72 61 63 74 65 72 20 61 64 64 72 65 73 73 20 28  racter address (
000190: 41 20 2D 3E 20 48 4C 29 0D 0A 0D 0A 2E 63 68 61  A -> HL).....cha
0001A0: 72 61 64 09 73 75 62 20 33 32 3A 20 6C 64 20 6C  rad.sub 32: ld l
0001B0: 2C 61 3A 20 6C 64 20 68 2C 30 0D 0A 09 61 64 64  ,a: ld h,0...add
0001C0: 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68   hl,hl: add hl,h
0001D0: 6C 3A 20 61 64 64 20 68 6C 2C 68 6C 0D 0A 09 61  l: add hl,hl...a
0001E0: 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C  dd hl,hl: add hl
0001F0: 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68 6C 0D 0A  ,hl: add hl,hl..

Size : 512 (Real : 512)
000000: 65 2C 74 6F 70 6C 6E 20 3A 20 61 64 64 20 68 6C  e,topln : add hl
000010: 2C 64 65 09 09 09 09 3B 41 64 64 20 62 61 73 65  ,de....;Add base
000020: 20 61 64 64 72 65 73 73 0D 0A 0D 0A 09 70 75 73   address.....pus
000030: 68 20 68 6C 09 09 09 09 09 09 3B 47 65 74 20 73  h hl......;Get s
000040: 70 72 69 74 65 20 61 64 64 72 65 73 73 0D 0A 09  prite address...
000050: 20 6C 64 20 68 6C 2C 28 63 61 74 70 69 63 29 3A   ld hl,(catpic):
000060: 20 6C 64 20 68 2C 30 09 09 09 09 3B 20 7C 0D 0A   ld h,0....; |..
000070: 09 20 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64  . add hl,hl: add
000080: 20 68 6C 2C 68 6C 09 09 09 09 3B 20 7C 0D 0A 09   hl,hl....; |...
000090: 20 6C 64 20 64 65 2C 70 69 63 74 62 6C 3A 20 61   ld de,pictbl: a
0000A0: 64 64 20 68 6C 2C 64 65 09 09 09 3B 20 7C 0D 0A  dd hl,de...; |..
0000B0: 09 20 6C 64 20 65 2C 28 68 6C 29 3A 20 69 6E 63  . ld e,(hl): inc
0000C0: 20 68 6C 09 09 09 09 3B 20 7C 0D 0A 09 20 6C 64   hl....; |... ld
0000D0: 20 64 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 09   d,(hl): inc hl.
0000E0: 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 61 2C 28  ...; |... ld a,(
0000F0: 68 6C 29 09 09 09 09 09 3B 20 7C 0D 0A 09 70 6F  hl).....; |...po
000100: 70 20 68 6C 3A 20 65 78 20 64 65 2C 68 6C 0D 0A  p hl: ex de,hl..
000110: 09 6A 70 20 73 70 72 69 74 65 0D 0A 0D 0A 2E 70  .jp sprite.....p
000120: 69 63 74 62 6C 09 64 77 20 63 61 74 31 72 2C 32  ictbl.dw cat1r,2
000130: 35 2C 63 61 74 32 72 2C 32 35 2C 63 61 74 33 72  5,cat2r,25,cat3r
000140: 2C 32 35 2C 63 61 74 32 72 2C 32 35 0D 0A 09 64  ,25,cat2r,25...d
000150: 77 20 63 61 74 31 6C 2C 32 35 2C 63 61 74 32 6C  w cat1l,25,cat2l
000160: 2C 32 35 2C 63 61 74 33 6C 2C 32 35 2C 63 61 74  ,25,cat3l,25,cat
000170: 32 6C 2C 32 35 0D 0A 09 64 77 20 63 61 74 73 74  2l,25...dw catst
000180: 2C 32 31 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62  ,21.....;--- sub
000190: 72 09 43 6F 6E 76 65 72 74 20 70 69 78 65 6C 20  r.Convert pixel 
0001A0: 6C 69 6E 65 20 6E 75 6D 62 65 72 20 41 20 74 6F  line number A to
0001B0: 20 73 63 72 65 65 6E 20 61 64 64 72 65 73 73 20   screen address 
0001C0: 48 4C 0D 0A 0D 0A 2E 73 63 72 61 64 64 09 6C 64  HL.....scradd.ld
0001D0: 20 63 2C 61 3A 20 61 6E 64 20 26 46 38 09 09 09   c,a: and &F8...
0001E0: 09 09 3B 31 32 2A 28 72 6F 77 5C 38 29 20 66 6F  ..;12*(row\8) fo
0001F0: 72 20 63 68 61 72 72 6F 77 73 0D 0A 09 6C 64 20  r charrows...ld

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 43  .....;*** SUBR.C
000010: 6F 70 79 20 66 72 6F 6D 20 26 43 30 30 30 20 73  opy from &C000 s
000020: 63 72 65 65 6E 20 28 48 4C 29 20 74 6F 20 6F 76  creen (HL) to ov
000030: 65 72 73 63 61 6E 20 73 63 72 65 65 6E 20 28 44  erscan screen (D
000040: 45 29 0D 0A 0D 0A 2E 63 73 74 73 5F 72 09 6C 64  E).....csts_r.ld
000050: 20 61 2C 38 0D 0A 2E 63 73 74 73 5F 6C 09 6C 64   a,8...csts_l.ld
000060: 20 62 63 2C 38 30 3A 20 6C 64 69 72 0D 0A 09 6C   bc,80: ldir...l
000070: 64 20 62 63 2C 26 37 42 30 3A 20 61 64 64 20 68  d bc,&7B0: add h
000080: 6C 2C 62 63 3A 20 65 78 20 64 65 2C 68 6C 0D 0A  l,bc: ex de,hl..
000090: 09 6C 64 20 62 63 2C 26 37 42 30 3A 20 61 64 64  .ld bc,&7B0: add
0000A0: 20 68 6C 2C 62 63 3A 20 65 78 20 64 65 2C 68 6C   hl,bc: ex de,hl
0000B0: 0D 0A 09 64 65 63 20 61 3A 20 6A 72 20 6E 7A 2C  ...dec a: jr nz,
0000C0: 63 73 74 73 5F 6C 3A 20 72 65 74 0D 0A 0D 0A 09  csts_l: ret.....
0000D0: 3B 2A 2A 2A 20 53 55 42 52 09 43 52 54 43 20 72  ;*** SUBR.CRTC r
0000E0: 65 67 69 73 74 65 72 20 73 65 74 0D 0A 0D 0A 2E  egister set.....
0000F0: 63 72 74 63 09 6C 64 20 61 2C 62 0D 0A 09 6C 64  crtc.ld a,b...ld
000100: 20 62 2C 26 42 43 3A 20 6F 75 74 20 28 63 29 2C   b,&BC: out (c),
000110: 61 0D 0A 09 6C 64 20 62 2C 26 42 44 3A 20 6F 75  a...ld b,&BD: ou
000120: 74 20 28 63 29 2C 63 0D 0A 09 72 65 74 0D 0A 0D  t (c),c...ret...
000130: 0A 09 3B 2A 2A 2A 20 56 41 52 49 09 53 63 72 6F  ..;*** VARI.Scro
000140: 6C 6C 69 6E 67 20 6D 65 73 73 61 67 65 0D 0A 0D  lling message...
000150: 0A 2E 74 65 78 74 61 64 09 64 77 20 74 65 78 74  ..textad.dw text
000160: 0D 0A 2E 66 6F 6E 74 61 64 09 64 77 20 30 0D 0A  ...fontad.dw 0..
000170: 2E 74 65 78 74 70 74 09 64 62 20 30 0D 0A 0D 0A  .textpt.db 0....
000180: 09 3B 2A 2A 2A 20 44 41 54 41 09 4D 69 73 63 65  .;*** DATA.Misce
000190: 6C 6C 61 6E 65 6F 75 73 0D 0A 0D 0A 2E 66 6E 61  llaneous.....fna
0001A0: 6D 65 09 64 62 20 22 43 41 54 53 20 20 20 20 2E  me.db "CATS    .
0001B0: 42 49 4E 22 0D 0A 2E 73 6E 61 6D 65 09 64 62 20  BIN"...sname.db 
0001C0: 22 53 54 53 20 20 20 20 20 2E 53 43 52 22 0D 0A  "STS     .SCR"..
0001D0: 2E 6C 6E 61 6D 65 09 64 62 20 22 4E 45 57 46 4F  .lname.db "NEWFO
0001E0: 4E 54 20 2E 42 49 4E 22 0D 0A 2E 6D 6E 61 6D 65  NT .BIN"...mname
0001F0: 09 64 62 20 22 4F 42 4C 41 44 49 20 20 2E 42 49  .db "OBLADI  .BI

Size : 512 (Real : 512)
000000: 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64 20 68 6C  ...; |.....ld hl
000010: 2C 28 6D 74 70 6F 73 29 3A 20 6C 64 20 61 2C 28  ,(mtpos): ld a,(
000020: 68 6C 29 09 09 3B 59 65 73 2C 20 73 6F 20 67 65  hl)..;Yes, so ge
000030: 74 20 6E 65 77 20 63 68 61 72 61 63 74 65 72 0D  t new character.
000040: 0A 09 3A 20 6F 72 20 61 3A 20 6A 72 20 6E 7A 2C  ..: or a: jr nz,
000050: 6D 77 6E 77 6F 6B 09 09 09 3B 20 7C 0D 0A 09 3A  mwnwok...; |...:
000060: 20 6C 64 20 68 6C 2C 6D 74 65 78 74 20 20 3A 20   ld hl,mtext  : 
000070: 6C 64 20 61 2C 28 68 6C 29 09 09 3B 20 7C 0D 0A  ld a,(hl)..; |..
000080: 0D 0A 2E 6D 77 6E 77 6F 6B 09 65 78 20 64 65 2C  ...mwnwok.ex de,
000090: 68 6C 3A 20 63 61 6C 6C 20 63 68 61 72 61 64 3A  hl: call charad:
0000A0: 20 6C 64 20 28 6C 73 70 72 29 2C 68 6C 3A 20 65   ld (lspr),hl: e
0000B0: 78 20 64 65 2C 68 6C 3A 20 69 6E 63 20 68 6C 3A  x de,hl: inc hl:
0000C0: 20 6C 64 20 61 2C 28 68 6C 29 0D 0A 09 65 78 20   ld a,(hl)...ex 
0000D0: 64 65 2C 68 6C 3A 20 63 61 6C 6C 20 63 68 61 72  de,hl: call char
0000E0: 61 64 3A 20 6C 64 20 28 72 73 70 72 29 2C 68 6C  ad: ld (rspr),hl
0000F0: 3A 20 65 78 20 64 65 2C 68 6C 3A 20 69 6E 63 20  : ex de,hl: inc 
000100: 68 6C 3A 20 6C 64 20 28 6D 74 70 6F 73 29 2C 68  hl: ld (mtpos),h
000110: 6C 0D 0A 0D 0A 09 6C 64 20 61 2C 26 46 46 3A 20  l.....ld a,&FF: 
000120: 6C 64 20 28 62 6F 75 6E 63 78 29 2C 61 09 09 09  ld (bouncx),a...
000130: 3B 52 65 73 65 74 20 78 20 70 6F 73 69 74 69 6F  ;Reset x positio
000140: 6E 0D 0A 09 6C 64 20 68 6C 2C 28 73 6E 70 6F 73  n...ld hl,(snpos
000150: 29 3A 20 69 6E 63 20 68 6C 09 09 09 3B 53 74 61  ): inc hl...;Sta
000160: 72 74 20 6E 65 77 20 70 61 74 68 0D 0A 09 6C 64  rt new path...ld
000170: 20 61 2C 28 68 6C 29 3A 20 6F 72 20 61 3A 20 6A   a,(hl): or a: j
000180: 72 20 6E 7A 2C 73 6E 65 78 69 74 09 09 3B 20 7C  r nz,snexit..; |
000190: 0D 0A 09 20 20 20 20 6C 64 20 68 6C 2C 73 69 6E  ...    ld hl,sin
0001A0: 65 73 3A 20 6A 72 20 20 20 20 73 6E 65 78 69 74  es: jr    snexit
0001B0: 09 09 3B 20 7C 0D 0A 0D 0A 2E 73 6E 65 78 69 73  ..; |.....snexis
0001C0: 09 63 61 6C 6C 20 73 74 61 67 65 32 3A 20 6C 64  .call stage2: ld
0001D0: 20 68 6C 2C 28 73 6E 70 6F 73 29 09 09 3B 52 65   hl,(snpos)..;Re
0001E0: 6D 6F 76 65 20 73 70 72 69 74 65 73 20 69 66 20  move sprites if 
0001F0: 6E 6F 74 20 6C 61 73 74 0D 0A 2E 73 6E 65 78 69  not last...snexi

Size : 512 (Real : 512)
000000: 4E 22 0D 0A 0D 0A 09 3B 2D 2D 2D 2D 2D 2D 2D 2D  N".....;--------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 2D 2D 2D 2D 20 6D 65 73 73 61 67 65 20 77 72  ----- message wr
000030: 69 74 65 72 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  iter -----------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D  ---------------.
000050: 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41 09 53 69  ....;*** DATA.Si
000060: 6E 65 20 74 61 62 6C 65 73 0D 0A 0D 0A 09 64 62  ne tables.....db
000070: 20 30 0D 0A 2E 73 69 6E 65 73 09 64 62 20 34 38   0...sines.db 48
000080: 2C 34 30 2C 33 32 2C 32 35 2C 31 39 2C 31 33 2C  ,40,32,25,19,13,
000090: 38 2C 34 2C 32 2C 31 2C 31 2C 32 2C 34 2C 38 2C  8,4,2,1,1,2,4,8,
0000A0: 31 33 2C 31 39 2C 32 35 2C 33 32 2C 34 30 2C 34  13,19,25,32,40,4
0000B0: 38 2C 34 30 2C 33 32 2C 32 35 2C 31 39 2C 31 33  8,40,32,25,19,13
0000C0: 2C 38 2C 34 2C 32 2C 31 2C 31 2C 32 2C 34 2C 38  ,8,4,2,1,1,2,4,8
0000D0: 2C 31 33 2C 31 39 2C 32 35 2C 33 32 2C 34 30 2C  ,13,19,25,32,40,
0000E0: 34 38 2C 34 30 2C 33 32 2C 32 35 2C 31 39 2C 31  48,40,32,25,19,1
0000F0: 33 2C 38 2C 34 2C 32 2C 31 2C 31 2C 32 2C 34 2C  3,8,4,2,1,1,2,4,
000100: 38 2C 31 33 2C 31 39 2C 32 35 2C 33 32 2C 34 30  8,13,19,25,32,40
000110: 2C 34 38 2C 34 30 2C 33 32 2C 32 35 2C 31 39 2C  ,48,40,32,25,19,
000120: 31 33 2C 38 2C 34 2C 32 2C 31 2C 31 2C 32 2C 34  13,8,4,2,1,1,2,4
000130: 2C 38 2C 31 33 2C 31 39 2C 32 35 2C 33 32 2C 34  ,8,13,19,25,32,4
000140: 30 2C 34 38 2C 30 0D 0A 09 64 62 20 34 38 2C 33  0,48,0...db 48,3
000150: 39 2C 33 31 2C 32 34 2C 31 37 2C 31 31 2C 37 2C  9,31,24,17,11,7,
000160: 33 2C 31 2C 31 2C 31 2C 33 2C 37 2C 31 31 2C 31  3,1,1,1,3,7,11,1
000170: 37 2C 32 34 2C 33 31 2C 33 39 2C 34 38 2C 33 39  7,24,31,39,48,39
000180: 2C 33 31 2C 32 34 2C 31 37 2C 31 31 2C 37 2C 33  ,31,24,17,11,7,3
000190: 2C 31 2C 31 2C 31 2C 33 2C 37 2C 31 31 2C 31 37  ,1,1,1,3,7,11,17
0001A0: 2C 32 34 2C 33 31 2C 33 39 2C 34 38 2C 33 39 2C  ,24,31,39,48,39,
0001B0: 33 31 2C 32 34 2C 31 37 2C 31 31 2C 37 2C 33 2C  31,24,17,11,7,3,
0001C0: 31 2C 31 2C 31 2C 33 2C 37 2C 31 31 2C 31 37 2C  1,1,1,3,7,11,17,
0001D0: 32 34 2C 33 31 2C 33 39 2C 34 38 2C 33 39 2C 33  24,31,39,48,39,3
0001E0: 31 2C 32 34 2C 31 37 2C 31 31 2C 37 2C 33 2C 31  1,24,17,11,7,3,1
0001F0: 2C 31 2C 31 2C 33 2C 37 2C 31 31 2C 31 37 2C 32  ,1,1,3,7,11,17,2

Size : 512 (Real : 512)
000000: 74 09 6C 64 20 61 2C 28 68 6C 29 3A 20 69 6E 63  t.ld a,(hl): inc
000010: 20 68 6C 3A 20 6C 64 20 28 73 6E 70 6F 73 29 2C   hl: ld (snpos),
000020: 68 6C 09 3B 53 74 6F 72 65 20 70 6F 73 69 74 69  hl.;Store positi
000030: 6F 6E 20 69 6E 20 70 61 74 68 20 61 6E 64 2E 2E  on in path and..
000040: 2E 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09  ......;*** ROUT.
000050: 4D 65 73 73 61 67 65 20 77 72 69 74 65 72 20 73  Message writer s
000060: 74 61 67 65 20 31 20 2D 20 64 72 61 77 20 73 70  tage 1 - draw sp
000070: 72 69 74 65 73 0D 0A 0D 0A 2E 73 74 61 67 65 31  rites.....stage1
000080: 09 63 61 6C 6C 20 73 63 72 61 64 64 09 09 09 09  .call scradd....
000090: 3B 43 61 6C 63 75 6C 61 74 65 20 62 61 73 65 20  ;Calculate base 
0000A0: 61 64 64 72 65 73 73 0D 0A 09 6C 64 20 62 63 2C  address...ld bc,
0000B0: 26 38 30 3A 20 61 64 64 20 68 6C 2C 62 63 09 09  &80: add hl,bc..
0000C0: 09 3B 20 7C 0D 0A 09 70 75 73 68 20 68 6C 09 09  .; |...push hl..
0000D0: 09 09 09 3B 2E 2E 2E 66 6F 72 20 74 68 65 20 6C  ...;...for the l
0000E0: 65 66 74 2D 68 61 6E 64 20 73 70 72 69 74 65 0D  eft-hand sprite.
0000F0: 0A 09 20 6C 64 20 61 2C 28 62 6F 75 6E 63 78 29  .. ld a,(bouncx)
000100: 3A 20 69 6E 63 20 61 09 09 09 3B 20 7C 0D 0A 09  : inc a...; |...
000110: 20 6C 64 20 28 62 6F 75 6E 63 78 29 2C 61 3A 20   ld (bouncx),a: 
000120: 6C 64 20 65 2C 61 3A 20 6C 64 20 64 2C 30 09 09  ld e,a: ld d,0..
000130: 3B 20 7C 0D 0A 09 20 61 64 64 20 68 6C 2C 64 65  ; |... add hl,de
000140: 3A 20 6C 64 20 28 6C 65 66 74 78 29 2C 68 6C 09  : ld (leftx),hl.
000150: 09 3B 20 7C 0D 0A 09 70 6F 70 20 68 6C 3A 20 6C  .; |...pop hl: l
000160: 64 20 62 63 2C 39 32 09 09 09 3B 2E 2E 2E 61 6E  d bc,92...;...an
000170: 64 20 74 68 65 20 72 69 67 68 74 2D 68 61 6E 64  d the right-hand
000180: 20 6F 6E 65 0D 0A 09 61 64 64 20 68 6C 2C 62 63   one...add hl,bc
000190: 3A 20 6F 72 20 61 09 09 09 09 3B 20 7C 0D 0A 09  : or a....; |...
0001A0: 73 62 63 20 68 6C 2C 64 65 3A 20 6C 64 20 28 72  sbc hl,de: ld (r
0001B0: 69 67 68 74 78 29 2C 68 6C 09 09 3B 20 7C 0D 0A  ightx),hl..; |..
0001C0: 0D 0A 09 6C 64 20 68 6C 2C 28 6C 65 66 74 78 20  ...ld hl,(leftx 
0001D0: 29 3A 20 6C 64 20 64 65 2C 73 70 72 73 74 31 3A  ): ld de,sprst1:
0001E0: 20 63 61 6C 6C 20 73 61 76 65 09 3B 53 74 6F 72   call save.;Stor
0001F0: 65 20 63 75 72 72 65 6E 74 20 73 63 72 65 65 6E  e current screen

Size : 512 (Real : 512)
000000: 34 2C 33 31 2C 33 39 2C 34 38 2C 30 0D 0A 09 64  4,31,39,48,0...d
000010: 62 20 34 38 2C 33 39 2C 33 31 2C 32 33 2C 31 36  b 48,39,31,23,16
000020: 2C 31 30 2C 35 2C 32 2C 31 2C 31 2C 32 2C 35 2C  ,10,5,2,1,1,2,5,
000030: 31 30 2C 31 36 2C 32 33 2C 33 31 2C 33 39 2C 34  10,16,23,31,39,4
000040: 38 2C 33 39 2C 33 31 2C 32 33 2C 31 36 2C 31 30  8,39,31,23,16,10
000050: 2C 35 2C 32 2C 31 2C 31 2C 32 2C 35 2C 31 30 2C  ,5,2,1,1,2,5,10,
000060: 31 36 2C 32 33 2C 33 31 2C 33 39 2C 34 38 2C 33  16,23,31,39,48,3
000070: 39 2C 33 31 2C 32 33 2C 31 36 2C 31 30 2C 35 2C  9,31,23,16,10,5,
000080: 32 2C 31 2C 31 2C 32 2C 35 2C 31 30 2C 31 36 2C  2,1,1,2,5,10,16,
000090: 32 33 2C 33 31 2C 33 39 2C 34 38 2C 33 39 2C 33  23,31,39,48,39,3
0000A0: 31 2C 32 33 2C 31 36 2C 31 30 2C 35 2C 32 2C 31  1,23,16,10,5,2,1
0000B0: 2C 31 2C 32 2C 35 2C 31 30 2C 31 36 2C 32 33 2C  ,1,2,5,10,16,23,
0000C0: 33 31 2C 33 39 2C 34 38 2C 30 0D 0A 09 64 62 20  31,39,48,0...db 
0000D0: 34 38 2C 33 38 2C 33 30 2C 32 31 2C 31 34 2C 38  48,38,30,21,14,8
0000E0: 2C 34 2C 31 2C 31 2C 31 2C 34 2C 38 2C 31 34 2C  ,4,1,1,1,4,8,14,
0000F0: 32 31 2C 33 30 2C 33 38 2C 34 38 2C 33 38 2C 33  21,30,38,48,38,3
000100: 30 2C 32 31 2C 31 34 2C 38 2C 34 2C 31 2C 31 2C  0,21,14,8,4,1,1,
000110: 31 2C 34 2C 38 2C 31 34 2C 32 31 2C 33 30 2C 33  1,4,8,14,21,30,3
000120: 38 2C 34 38 2C 33 38 2C 33 30 2C 32 31 2C 31 34  8,48,38,30,21,14
000130: 2C 38 2C 34 2C 31 2C 31 2C 31 2C 34 2C 38 2C 31  ,8,4,1,1,1,4,8,1
000140: 34 2C 32 31 2C 33 30 2C 33 38 2C 34 38 2C 33 38  4,21,30,38,48,38
000150: 2C 33 30 2C 32 31 2C 31 34 2C 38 2C 34 2C 31 2C  ,30,21,14,8,4,1,
000160: 31 2C 31 2C 34 2C 38 2C 31 34 2C 32 31 2C 33 30  1,1,4,8,14,21,30
000170: 2C 33 38 2C 34 38 2C 30 0D 0A 09 64 62 20 34 38  ,38,48,0...db 48
000180: 2C 33 38 2C 32 38 2C 32 30 2C 31 33 2C 37 2C 33  ,38,28,20,13,7,3
000190: 2C 31 2C 31 2C 33 2C 37 2C 31 33 2C 32 30 2C 32  ,1,1,3,7,13,20,2
0001A0: 38 2C 33 38 2C 34 38 2C 33 38 2C 32 38 2C 32 30  8,38,48,38,28,20
0001B0: 2C 31 33 2C 37 2C 33 2C 31 2C 31 2C 33 2C 37 2C  ,13,7,3,1,1,3,7,
0001C0: 31 33 2C 32 30 2C 32 38 2C 33 38 2C 34 38 2C 33  13,20,28,38,48,3
0001D0: 38 2C 32 38 2C 32 30 2C 31 33 2C 37 2C 33 2C 31  8,28,20,13,7,3,1
0001E0: 2C 31 2C 33 2C 37 2C 31 33 2C 32 30 2C 32 38 2C  ,1,3,7,13,20,28,
0001F0: 33 38 2C 34 38 2C 33 38 2C 32 38 2C 32 30 2C 31  38,48,38,28,20,1

Size : 512 (Real : 512)
000000: 63 3A 6C 64 20 64 2C 61 0D 0A 09 6C 64 69 3A 09  c:ld d,a...ldi:.
000010: 09 20 20 6C 64 20 61 2C 6C 3A 61 64 64 20 62 3A  .  ld a,l:add b:
000020: 6C 64 20 6C 2C 61 3A 20 72 65 74 0D 0A 0D 0A 09  ld l,a: ret.....
000030: 3B 2D 2D 2D 20 73 75 62 72 09 53 63 72 6F 6C 6C  ;--- subr.Scroll
000040: 20 61 6C 6C 20 6C 69 6E 65 73 0D 0A 0D 0A 2E 64   all lines.....d
000050: 73 63 72 6F 6C 09 6C 64 20 64 65 2C 26 34 34 32  scrol.ld de,&442
000060: 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72 3A 20  0: call scrolr: 
000070: 6C 64 20 64 65 2C 26 34 43 32 30 3A 20 63 61 6C  ld de,&4C20: cal
000080: 6C 20 73 63 72 6F 6C 72 0D 0A 09 6C 64 20 64 65  l scrolr...ld de
000090: 2C 26 35 34 32 30 3A 20 63 61 6C 6C 20 73 63 72  ,&5420: call scr
0000A0: 6F 6C 72 3A 20 6C 64 20 64 65 2C 26 35 43 32 30  olr: ld de,&5C20
0000B0: 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72 0D 0A 09  : call scrolr...
0000C0: 6C 64 20 64 65 2C 26 36 34 32 30 3A 20 63 61 6C  ld de,&6420: cal
0000D0: 6C 20 73 63 72 6F 6C 72 3A 20 6C 64 20 64 65 2C  l scrolr: ld de,
0000E0: 26 36 43 32 30 3A 20 63 61 6C 6C 20 73 63 72 6F  &6C20: call scro
0000F0: 6C 72 0D 0A 09 6C 64 20 64 65 2C 26 37 34 32 30  lr...ld de,&7420
000100: 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72 3A 20 6C  : call scrolr: l
000110: 64 20 64 65 2C 26 37 43 32 30 3A 20 63 61 6C 6C  d de,&7C20: call
000120: 20 73 63 72 6F 6C 72 0D 0A 0D 0A 09 6C 64 20 64   scrolr.....ld d
000130: 65 2C 26 34 34 38 30 3A 20 63 61 6C 6C 20 73 63  e,&4480: call sc
000140: 72 6F 6C 72 3A 20 6C 64 20 64 65 2C 26 34 43 38  rolr: ld de,&4C8
000150: 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72 0D 0A  0: call scrolr..
000160: 09 6C 64 20 64 65 2C 26 35 34 38 30 3A 20 63 61  .ld de,&5480: ca
000170: 6C 6C 20 73 63 72 6F 6C 72 3A 20 6C 64 20 64 65  ll scrolr: ld de
000180: 2C 26 35 43 38 30 3A 20 63 61 6C 6C 20 73 63 72  ,&5C80: call scr
000190: 6F 6C 72 0D 0A 09 6C 64 20 64 65 2C 26 36 34 38  olr...ld de,&648
0001A0: 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72 3A 20  0: call scrolr: 
0001B0: 6C 64 20 64 65 2C 26 36 43 38 30 3A 20 63 61 6C  ld de,&6C80: cal
0001C0: 6C 20 73 63 72 6F 6C 72 0D 0A 09 6C 64 20 64 65  l scrolr...ld de
0001D0: 2C 26 37 34 38 30 3A 20 63 61 6C 6C 20 73 63 72  ,&7480: call scr
0001E0: 6F 6C 72 3A 20 6C 64 20 64 65 2C 26 37 43 38 30  olr: ld de,&7C80
0001F0: 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72 0D 0A 09  : call scrolr...

Size : 512 (Real : 512)
000000: 33 2C 37 2C 33 2C 31 2C 31 2C 33 2C 37 2C 31 33  3,7,3,1,1,3,7,13
000010: 2C 32 30 2C 32 38 2C 33 38 2C 34 38 2C 30 0D 0A  ,20,28,38,48,0..
000020: 09 64 62 20 34 38 2C 33 37 2C 32 37 2C 31 38 2C  .db 48,37,27,18,
000030: 31 31 2C 35 2C 32 2C 31 2C 32 2C 35 2C 31 31 2C  11,5,2,1,2,5,11,
000040: 31 38 2C 32 37 2C 33 37 2C 34 38 2C 33 37 2C 32  18,27,37,48,37,2
000050: 37 2C 31 38 2C 31 31 2C 35 2C 32 2C 31 2C 32 2C  7,18,11,5,2,1,2,
000060: 35 2C 31 31 2C 31 38 2C 32 37 2C 33 37 2C 34 38  5,11,18,27,37,48
000070: 2C 33 37 2C 32 37 2C 31 38 2C 31 31 2C 35 2C 32  ,37,27,18,11,5,2
000080: 2C 31 2C 32 2C 35 2C 31 31 2C 31 38 2C 32 37 2C  ,1,2,5,11,18,27,
000090: 33 37 2C 34 38 2C 33 37 2C 32 37 2C 31 38 2C 31  37,48,37,27,18,1
0000A0: 31 2C 35 2C 32 2C 31 2C 32 2C 35 2C 31 31 2C 31  1,5,2,1,2,5,11,1
0000B0: 38 2C 32 37 2C 33 37 2C 34 38 2C 30 0D 0A 09 64  8,27,37,48,0...d
0000C0: 62 20 34 38 2C 33 36 2C 32 36 2C 31 36 2C 39 2C  b 48,36,26,16,9,
0000D0: 34 2C 31 2C 31 2C 34 2C 39 2C 31 36 2C 32 36 2C  4,1,1,4,9,16,26,
0000E0: 33 36 2C 34 38 2C 33 36 2C 32 36 2C 31 36 2C 39  36,48,36,26,16,9
0000F0: 2C 34 2C 31 2C 31 2C 34 2C 39 2C 31 36 2C 32 36  ,4,1,1,4,9,16,26
000100: 2C 33 36 2C 34 38 2C 33 36 2C 32 36 2C 31 36 2C  ,36,48,36,26,16,
000110: 39 2C 34 2C 31 2C 31 2C 34 2C 39 2C 31 36 2C 32  9,4,1,1,4,9,16,2
000120: 36 2C 33 36 2C 34 38 2C 33 36 2C 32 36 2C 31 36  6,36,48,36,26,16
000130: 2C 39 2C 34 2C 31 2C 31 2C 34 2C 39 2C 31 36 2C  ,9,4,1,1,4,9,16,
000140: 32 36 2C 33 36 2C 34 38 2C 30 0D 0A 09 64 62 20  26,36,48,0...db 
000150: 34 38 2C 33 35 2C 32 34 2C 31 34 2C 37 2C 32 2C  48,35,24,14,7,2,
000160: 31 2C 32 2C 37 2C 31 34 2C 32 34 2C 33 35 2C 34  1,2,7,14,24,35,4
000170: 38 2C 33 35 2C 32 34 2C 31 34 2C 37 2C 32 2C 31  8,35,24,14,7,2,1
000180: 2C 32 2C 37 2C 31 34 2C 32 34 2C 33 35 2C 34 38  ,2,7,14,24,35,48
000190: 2C 33 35 2C 32 34 2C 31 34 2C 37 2C 32 2C 31 2C  ,35,24,14,7,2,1,
0001A0: 32 2C 37 2C 31 34 2C 32 34 2C 33 35 2C 34 38 2C  2,7,14,24,35,48,
0001B0: 33 35 2C 32 34 2C 31 34 2C 37 2C 32 2C 31 2C 32  35,24,14,7,2,1,2
0001C0: 2C 37 2C 31 34 2C 32 34 2C 33 35 2C 34 38 2C 30  ,7,14,24,35,48,0
0001D0: 0D 0A 09 64 62 20 30 0D 0A 0D 0A 09 3B 2A 2A 2A  ...db 0.....;***
0001E0: 20 56 41 52 49 09 4D 65 73 73 61 67 65 20 77 72   VARI.Message wr
0001F0: 69 74 65 72 20 76 61 72 69 61 62 6C 65 73 0D 0A  iter variables..

Size : 512 (Real : 512)
000000: 72 65 74 0D 0A 0D 0A 2E 73 63 72 6F 6C 72 09 6C  ret.....scrolr.l
000010: 64 20 68 2C 64 3A 20 6C 64 20 6C 2C 65 3A 20 69  d h,d: ld l,e: i
000020: 6E 63 20 68 6C 0D 0A 09 6C 64 69 3A 6C 64 69 3A  nc hl...ldi:ldi:
000030: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
000040: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
000050: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
000060: 6C 64 69 3A 6C 64 69 0D 0A 09 6C 64 69 3A 6C 64  ldi:ldi...ldi:ld
000070: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
000080: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
000090: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
0000A0: 69 3A 6C 64 69 3A 6C 64 69 0D 0A 09 6C 64 69 3A  i:ldi:ldi...ldi:
0000B0: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
0000C0: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
0000D0: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
0000E0: 6C 64 69 3A 6C 64 69 3A 6C 64 69 0D 0A 09 6C 64  ldi:ldi:ldi...ld
0000F0: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
000100: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
000110: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
000120: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 0D 0A 09  i:ldi:ldi:ldi...
000130: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
000140: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
000150: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
000160: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 0D  ldi:ldi:ldi:ldi.
000170: 0A 09 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  ..ldi:ldi:ldi:ld
000180: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
000190: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64  i:ldi:ldi:ldi:ld
0001A0: 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 72 65  i:ldi:ldi:ldi:re
0001B0: 74 0D 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 2D 2D 2D 2D  t.......;-------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 20 6D 69 73 63 65 6C 6C 61 6E 65 6F  ---- miscellaneo
0001E0: 75 73 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  us -------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------

Size : 512 (Real : 512)
000000: 0D 0A 2E 73 70 72 73 74 31 09 64 73 20 36 34 09  ...sprst1.ds 64.
000010: 09 09 09 09 3B 44 6F 6E 27 74 20 77 69 70 65 20  ....;Don't wipe 
000020: 62 61 63 6B 67 72 6F 75 6E 64 0D 0A 2E 73 70 72  background...spr
000030: 73 74 32 09 64 73 20 36 34 09 09 09 09 09 3B 20  st2.ds 64.....; 
000040: 7C 0D 0A 0D 0A 2E 62 6F 75 6E 63 78 09 64 62 20  |.....bouncx.db 
000050: 26 46 46 09 09 09 09 09 3B 43 75 72 72 65 6E 74  &FF.....;Current
000060: 20 58 20 70 6F 73 69 74 69 6F 6E 0D 0A 2E 6C 65   X position...le
000070: 66 74 78 09 64 77 20 30 09 09 09 09 09 3B 53 63  ftx.dw 0.....;Sc
000080: 72 65 65 6E 20 61 64 64 72 65 73 73 20 6F 66 20  reen address of 
000090: 4C 48 20 73 70 72 69 74 65 0D 0A 2E 72 69 67 68  LH sprite...righ
0000A0: 74 78 09 64 77 20 30 09 09 09 09 09 3B 53 63 72  tx.dw 0.....;Scr
0000B0: 65 65 6E 20 61 64 64 72 65 73 73 20 6F 66 20 52  een address of R
0000C0: 48 20 73 70 72 69 74 65 0D 0A 2E 6C 73 70 72 09  H sprite...lspr.
0000D0: 64 77 20 66 6F 6E 74 2B 26 38 34 30 09 09 09 09  dw font+&840....
0000E0: 3B 43 6F 6E 74 65 6E 74 20 61 64 64 72 65 73 73  ;Content address
0000F0: 20 6F 66 20 4C 48 20 73 70 72 69 74 65 0D 0A 2E   of LH sprite...
000100: 72 73 70 72 09 64 77 20 66 6F 6E 74 2B 26 38 38  rspr.dw font+&88
000110: 30 09 09 09 09 3B 43 6F 6E 74 65 6E 74 20 61 64  0....;Content ad
000120: 64 72 65 73 73 20 6F 66 20 52 48 20 73 70 72 69  dress of RH spri
000130: 74 65 0D 0A 2E 6D 74 70 6F 73 09 64 77 20 6D 74  te...mtpos.dw mt
000140: 65 78 74 09 09 09 09 3B 50 6F 73 69 74 69 6F 6E  ext....;Position
000150: 20 69 6E 20 6D 65 73 73 61 67 65 20 74 65 78 74   in message text
000160: 0D 0A 2E 73 6E 70 6F 73 09 64 77 20 73 69 6E 65  ...snpos.dw sine
000170: 73 2D 31 09 09 09 09 3B 50 6F 73 69 74 69 6F 6E  s-1....;Position
000180: 20 69 6E 20 73 69 6E 65 20 74 61 62 6C 65 0D 0A   in sine table..
000190: 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09 4D 65 73  ...;*** ROUT.Mes
0001A0: 73 61 67 65 20 77 72 69 74 65 72 20 74 65 78 74  sage writer text
0001B0: 20 68 61 6E 64 6C 65 72 0D 0A 0D 0A 2E 6D 77 63   handler.....mwc
0001C0: 61 6C 63 09 6C 64 20 68 6C 2C 28 73 6E 70 6F 73  alc.ld hl,(snpos
0001D0: 29 3A 20 6C 64 20 61 2C 28 68 6C 29 09 09 3B 45  ): ld a,(hl)..;E
0001E0: 6E 64 20 6F 66 20 70 61 74 68 3F 0D 0A 09 6F 72  nd of path?...or
0001F0: 20 61 3A 20 6A 72 20 6E 7A 2C 73 6E 65 78 69 73   a: jr nz,snexis

Size : 512 (Real : 512)
000000: 41 4E 44 20 22 0D 0A 09 64 62 20 22 54 41 53 54  AND "...db "TAST
000010: 45 29 20 4C 49 4B 45 20 55 4E 57 41 53 48 45 44  E) LIKE UNWASHED
000020: 20 47 45 4E 49 54 41 4C 49 41 2E 20 20 54 48 49   GENITALIA.  THI
000030: 53 20 44 45 4D 4F 20 49 53 20 44 45 44 49 43 41  S DEMO IS DEDICA
000040: 54 45 44 20 54 4F 20 54 41 4D 53 49 4E 20 54 48  TED TO TAMSIN TH
000050: 45 20 22 0D 0A 09 64 62 20 22 57 4F 4E 44 52 4F  E "...db "WONDRO
000060: 55 53 20 43 41 54 2E 20 20 20 20 4E 4F 57 20 49  US CAT.    NOW I
000070: 54 20 49 5A 20 44 41 20 43 52 45 44 49 54 5A 20  T IZ DA CREDITZ 
000080: 49 4E 20 57 48 49 43 48 20 46 4F 52 20 57 48 4F  IN WHICH FOR WHO
000090: 20 57 45 20 41 52 45 20 59 4F 55 20 57 45 4C 43   WE ARE YOU WELC
0000A0: 4F 4D 49 4E 47 20 22 0D 0A 09 64 62 20 22 59 45  OMING "...db "YE
0000B0: 53 20 50 4C 45 41 53 45 20 4D 41 54 52 4F 4E 2E  S PLEASE MATRON.
0000C0: 20 20 20 20 20 20 48 49 47 48 2D 46 52 45 51 55        HIGH-FREQU
0000D0: 45 4E 43 59 20 53 4F 55 4E 44 53 20 54 48 41 4E  ENCY SOUNDS THAN
0000E0: 58 20 54 4F 20 54 4F 4D 20 44 45 41 4E 20 4F 46  X TO TOM DEAN OF
0000F0: 20 53 51 55 45 41 4B 59 20 22 0D 0A 09 64 62 20   SQUEAKY "...db 
000100: 22 53 59 53 54 45 4D 21 20 20 20 20 52 41 44 49  "SYSTEM!    RADI
000110: 4B 41 4C 20 47 46 58 5A 58 5A 5A 5A 58 20 42 59  KAL GFXZXZZZX BY
000120: 20 47 4F 4E 4F 52 52 48 4F 45 41 20 4F 46 20 53   GONORRHOEA OF S
000130: 59 50 48 49 4C 49 53 2E 20 41 4C 53 4F 20 47 46  YPHILIS. ALSO GF
000140: 58 5A 5A 58 5A 58 58 5A 51 20 22 0D 0A 09 64 62  XZZXZXXZQ "...db
000150: 20 22 49 53 20 53 43 4F 52 49 4E 47 20 35 31 37   "IS SCORING 517
000160: 20 50 4F 49 4E 54 53 20 41 54 20 53 43 52 41 42   POINTS AT SCRAB
000170: 42 4C 45 20 49 46 20 59 4F 55 20 47 45 54 20 49  BLE IF YOU GET I
000180: 54 20 4F 4E 20 41 20 54 52 49 50 4C 45 2D 57 4F  T ON A TRIPLE-WO
000190: 52 22 0D 0A 6C 69 73 74 0D 0A 09 64 62 20 30 0D  R"..list...db 0.
0001A0: 0A 1A 0D 0A 09 3B 73 74 61 72 72 69 6E 67 20 54  .....;starring T
0001B0: 61 6D 73 69 6E 20 74 68 65 20 57 6F 6E 64 65 72  amsin the Wonder
0001C0: 20 43 61 74 0D 0A 0D 0A 09 6F 72 67 20 26 38 30   Cat.....org &80
0001D0: 30 30 0D 0A 09 77 72 69 74 65 20 22 64 69 73 63  00...write "disc
0001E0: 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69 73 74 0D 0A  .bin"...nolist..
0001F0: 0D 0A 09 3B 44 65 6D 6F 20 73 68 6F 72 74 2C 20  ...;Demo short,

Size : 512 (Real : 512)
000000: 61 76 65 6C 70 3A 20 72 65 74 0D 0A 0D 0A 09 3B  avelp: ret.....;
000010: 2A 2A 2A 20 53 55 42 52 09 44 72 61 77 20 73 70  *** SUBR.Draw sp
000020: 72 69 74 65 20 66 72 6F 6D 20 48 4C 20 28 64 61  rite from HL (da
000030: 74 61 29 20 61 74 20 44 45 20 28 73 63 72 65 65  ta) at DE (scree
000040: 6E 29 0D 0A 0D 0A 2E 64 72 61 77 09 6C 64 20 61  n).....draw.ld a
000050: 2C 31 36 0D 0A 2E 64 72 61 77 6C 70 09 6C 64 69  ,16...drawlp.ldi
000060: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 20 65 78  :ldi:ldi:ldi: ex
000070: 20 64 65 2C 68 6C 0D 0A 09 6C 64 20 62 63 2C 26   de,hl...ld bc,&
000080: 30 37 46 43 3A 20 61 64 64 20 68 6C 2C 62 63 3A  07FC: add hl,bc:
000090: 20 62 69 74 20 36 2C 68 3A 20 6A 70 20 7A 2C 64   bit 6,h: jp z,d
0000A0: 6E 65 78 74 0D 0A 09 6C 64 20 62 63 2C 26 43 30  next...ld bc,&C0
0000B0: 36 30 3A 20 61 64 64 20 68 6C 2C 62 63 0D 0A 2E  60: add hl,bc...
0000C0: 64 6E 65 78 74 09 65 78 20 64 65 2C 68 6C 3A 20  dnext.ex de,hl: 
0000D0: 64 65 63 20 61 3A 20 6A 70 20 6E 7A 2C 64 72 61  dec a: jp nz,dra
0000E0: 77 6C 70 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A  wlp: ret.....;**
0000F0: 2A 20 44 41 54 41 09 4D 65 73 73 61 67 65 20 77  * DATA.Message w
000100: 72 69 74 65 72 20 74 65 78 74 0D 0A 0D 0A 2E 6D  riter text.....m
000110: 74 65 78 74 09 64 62 20 22 2E 2E 2E 2E 4E 49 49  text.db "....NII
000120: 54 53 27 4D 53 41 2E 54 2E 22 09 09 3B 22 20 20  TS'MSA.T."..;"  
000130: 49 54 27 53 20 20 54 41 4D 53 49 4E 20 20 22 0D  IT'S  TAMSIN  ".
000140: 0A 09 64 62 20 22 2E 2E 54 54 41 48 43 45 2E 2E  ..db "..TTAHCE..
000150: 52 57 45 4F 44 4E 22 09 09 3B 22 20 54 48 45 20  RWEODN"..;" THE 
000160: 57 4F 4E 44 45 52 20 43 41 54 20 22 0D 0A 09 64  WONDER CAT "...d
000170: 62 20 22 47 45 4E 4E 49 47 4F 41 44 47 2E 45 4E  b "GENNIGOADG.EN
000180: 44 49 2E 22 09 09 3B 22 45 4E 47 41 47 45 44 20  DI."..;"ENGAGED 
000190: 49 4E 20 44 4F 49 4E 47 22 0D 0A 09 64 62 20 22  IN DOING"...db "
0001A0: 21 57 53 4F 47 4E 4E 44 49 52 48 4F 54 55 2E 53  !WSOGNNDIRHOTU.S
0001B0: 22 09 09 3B 22 57 4F 4E 44 52 4F 55 53 20 54 48  "..;"WONDROUS TH
0001C0: 49 4E 47 53 21 22 0D 0A 09 64 62 20 30 0D 0A 0D  INGS!"...db 0...
0001D0: 0A 09 3B 2A 2A 2A 20 44 41 54 41 09 53 63 72 6F  ..;*** DATA.Scro
0001E0: 6C 6C 74 65 78 74 0D 0A 0D 0A 2E 74 65 78 74 09  lltext.....text.
0001F0: 64 62 20 22 20 20 20 20 20 20 20 20 20 20 20 20  db "

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 38 2D 62 69 74 20 70 72 69 6E 74 65  ...;8-bit printe
000010: 72 20 70 6F 72 74 20 66 6F 72 20 43 50 43 20 50  r port for CPC P
000020: 6C 75 73 0D 0A 09 3B 28 63 29 31 39 39 37 20 43  lus...;(c)1997 C
000030: 52 54 43 2F 53 79 73 74 65 6D 65 20 44 0D 0A 0D  RTC/Systeme D...
000040: 0A 09 6F 72 67 20 26 41 30 30 30 09 09 3B 52 65  ..org &A000..;Re
000050: 6C 6F 63 61 74 65 20 69 66 20 79 6F 75 20 68 61  locate if you ha
000060: 76 65 20 61 20 73 74 75 70 69 64 20 6E 75 6D 62  ve a stupid numb
000070: 65 72 20 6F 66 20 52 4F 4D 73 0D 0A 09 77 72 69  er of ROMs...wri
000080: 74 65 20 22 70 6C 75 73 38 62 69 74 2E 62 69 6E  te "plus8bit.bin
000090: 22 0D 0A 09 6E 6F 6C 69 73 74 0D 0A 0D 0A 09 6C  "...nolist.....l
0000A0: 64 20 68 6C 2C 74 61 62 6C 65 3A 20 63 61 6C 6C  d hl,table: call
0000B0: 20 26 42 44 35 38 0D 0A 09 6C 64 20 68 6C 2C 26   &BD58...ld hl,&
0000C0: 42 44 32 42 3A 20 6C 64 20 64 65 2C 6D 63 5F 70  BD2B: ld de,mc_p
0000D0: 63 3A 20 6C 64 20 62 63 2C 6D 63 5F 70 63 6F 3A  c: ld bc,mc_pco:
0000E0: 20 63 61 6C 6C 20 70 61 74 63 68 0D 0A 09 6C 64   call patch...ld
0000F0: 20 68 6C 2C 26 42 44 33 31 3A 20 6C 64 20 64 65   hl,&BD31: ld de
000100: 2C 6D 63 5F 73 70 3A 20 6C 64 20 62 63 2C 6D 63  ,mc_sp: ld bc,mc
000110: 5F 73 70 6F 3A 20 63 61 6C 6C 20 70 61 74 63 68  _spo: call patch
000120: 0D 0A 09 6C 64 20 68 6C 2C 26 42 44 46 31 3A 20  ...ld hl,&BDF1: 
000130: 6C 64 20 64 65 2C 6D 63 5F 77 70 3A 20 6C 64 20  ld de,mc_wp: ld 
000140: 62 63 2C 6D 63 5F 77 70 6F 3A 20 6A 70 20 20 20  bc,mc_wpo: jp   
000150: 70 61 74 63 68 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52  patch.....;*** R
000160: 4F 55 54 09 4D 43 20 50 52 49 4E 54 20 43 48 41  OUT.MC PRINT CHA
000170: 52 0D 0A 0D 0A 2E 6D 63 5F 70 63 09 63 61 6C 6C  R.....mc_pc.call
000180: 20 62 69 74 38 0D 0A 2E 6D 63 5F 70 63 6F 09 64   bit8...mc_pco.d
000190: 73 20 33 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55  s 3.....;*** ROU
0001A0: 54 09 4D 43 20 53 45 4E 44 20 50 52 49 4E 54 45  T.MC SEND PRINTE
0001B0: 52 0D 0A 0D 0A 2E 6D 63 5F 73 70 09 63 61 6C 6C  R.....mc_sp.call
0001C0: 20 62 69 74 38 0D 0A 2E 6D 63 5F 73 70 6F 09 64   bit8...mc_spo.d
0001D0: 73 20 33 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55  s 3.....;*** ROU
0001E0: 54 09 4D 43 20 57 41 49 54 20 50 52 49 4E 54 45  T.MC WAIT PRINTE
0001F0: 52 20 69 6E 64 69 72 65 63 74 69 6F 6E 0D 0A 0D  R indirection...

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 47 52 45 45 54 49 4E 58 53 53 53 47 47 47 53   GREETINXSSSGGGS
000020: 53 20 57 45 4C 43 4F 4D 45 20 49 4E 20 54 48 49  S WELCOME IN THI
000030: 53 20 44 45 4D 4F 20 4F 46 20 54 4F 20 42 59 20  S DEMO OF TO BY 
000040: 57 48 45 4E 20 48 4F 57 20 5A 45 20 45 51 56 41  WHEN HOW ZE EQVA
000050: 4C 49 5A 4F 52 2E 20 22 0D 0A 09 64 62 20 22 20  LIZOR. "...db " 
000060: 20 20 20 20 20 20 20 20 20 20 54 48 49 53 20 49            THIS I
000070: 53 20 44 41 20 46 55 43 4B 49 4E 20 53 5A 45 4E  S DA FUCKIN SZEN
000080: 45 20 4D 4F 42 20 53 54 53 20 57 49 54 48 20 44  E MOB STS WITH D
000090: 41 20 4C 41 54 45 53 54 20 57 41 52 45 5A 20 46  A LATEST WAREZ F
0000A0: 52 4F 4D 20 5A 45 20 53 5A 45 4E 45 2E 20 22 0D  ROM ZE SZENE. ".
0000B0: 0A 09 64 62 20 22 41 4C 4C 20 43 4F 44 49 4E 47  ..db "ALL CODING
0000C0: 20 42 59 20 43 52 4F 57 4E 20 4F 46 20 53 54 53   BY CROWN OF STS
0000D0: 2E 20 47 52 41 46 49 58 20 42 59 20 4B 4E 55 55  . GRAFIX BY KNUU
0000E0: 55 55 54 53 43 48 46 4C 45 43 4B 20 4F 46 20 49  UUTSCHFLECK OF I
0000F0: 46 57 20 22 0D 0A 09 64 62 20 22 28 49 4E 43 4F  FW "...db "(INCO
000100: 4D 50 45 54 45 4E 54 20 46 55 43 4B 57 49 54 53  MPETENT FUCKWITS
000110: 29 2E 20 4D 55 53 49 58 58 20 42 59 20 4B 41 4E  ). MUSIXX BY KAN
000120: 47 41 52 4F 4F 20 4F 46 20 41 52 53 45 42 41 4E  GAROO OF ARSEBAN
000130: 44 49 54 20 50 52 4F 44 55 43 54 49 4F 4E 53 20  DIT PRODUCTIONS 
000140: 22 0D 0A 09 64 62 20 22 47 4D 42 48 2E 20 4A 4F  "...db "GMBH. JO
000150: 42 42 49 4E 47 20 49 4E 54 4F 20 41 20 57 41 4C  BBING INTO A WAL
000160: 4C 20 49 4E 20 4D 4F 4E 41 43 4F 20 42 59 20 4D  L IN MONACO BY M
000170: 49 43 48 41 45 4C 20 53 43 48 55 4D 41 43 48 45  ICHAEL SCHUMACHE
000180: 52 2E 20 46 52 49 44 47 45 20 22 0D 0A 09 64 62  R. FRIDGE "...db
000190: 20 22 4D 41 47 4E 45 54 2E 20 47 52 45 45 54 49   "MAGNET. GREETI
0001A0: 4E 47 20 46 52 4F 4D 20 4E 49 50 50 4C 45 20 43  NG FROM NIPPLE C
0001B0: 4C 41 4D 50 20 4F 46 20 53 54 53 2E 20 48 49 20  LAMP OF STS. HI 
0001C0: 54 48 45 52 45 2C 20 57 45 4C 43 4F 4D 45 20 49  THERE, WELCOME I
0001D0: 4E 20 54 48 49 53 20 22 0D 0A 09 64 62 20 22 44  N THIS "...db "D
0001E0: 45 4D 4F 2C 20 49 4E 20 57 48 49 43 48 20 49 20  EMO, IN WHICH I 
0001F0: 41 4D 20 57 45 4C 43 4F 4D 49 4E 47 20 59 4F 55  AM WELCOMING YOU

Size : 512 (Real : 512)
000000: 0A 2E 6D 63 5F 77 70 09 63 61 6C 6C 20 62 69 74  ..mc_wp.call bit
000010: 38 0D 0A 2E 6D 63 5F 77 70 6F 09 64 73 20 33 0D  8...mc_wpo.ds 3.
000020: 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 53 65  ....;*** SUBR.Se
000030: 6E 64 20 65 69 67 68 74 68 20 62 69 74 20 74 6F  nd eighth bit to
000040: 20 43 52 54 43 20 72 65 67 69 73 74 65 72 20 31   CRTC register 1
000050: 32 2C 20 62 69 74 20 33 0D 0A 0D 0A 2E 62 69 74  2, bit 3.....bit
000060: 38 09 70 75 73 68 20 61 66 3A 20 70 75 73 68 20  8.push af: push 
000070: 62 63 0D 0A 09 20 6C 64 20 62 63 2C 26 42 43 30  bc... ld bc,&BC0
000080: 43 3A 20 6F 75 74 20 28 63 29 2C 63 3A 20 6C 64  C: out (c),c: ld
000090: 20 63 2C 61 0D 0A 09 20 6C 64 20 62 20 2C 26 42   c,a... ld b ,&B
0000A0: 46 20 20 3A 20 69 6E 20 61 2C 28 63 29 20 3A 20  F  : in a,(c) : 
0000B0: 61 6E 64 20 32 34 37 0D 0A 09 20 62 69 74 20 37  and 247... bit 7
0000C0: 2C 63 3A 20 6A 72 20 7A 2C 62 69 74 38 5F 30 20  ,c: jr z,bit8_0 
0000D0: 20 3A 20 6F 72 20 20 38 0D 0A 2E 62 69 74 38 5F   : or  8...bit8_
0000E0: 30 09 20 6C 64 20 62 63 2C 26 42 43 30 43 3A 20  0. ld bc,&BC0C: 
0000F0: 6F 75 74 20 28 63 29 2C 63 0D 0A 09 20 69 6E 63  out (c),c... inc
000100: 20 62 20 20 20 20 20 20 3A 20 6F 75 74 20 28 63   b      : out (c
000110: 29 2C 61 0D 0A 09 70 6F 70 20 62 63 3A 20 70 6F  ),a...pop bc: po
000120: 70 20 61 66 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2A  p af: ret.....;*
000130: 2A 2A 20 53 55 42 52 09 47 65 6E 65 72 61 6C 2D  ** SUBR.General-
000140: 70 75 72 70 6F 73 65 20 70 61 74 63 68 20 72 6F  purpose patch ro
000150: 75 74 69 6E 65 0D 0A 09 3B 09 09 50 61 74 63 68  utine...;..Patch
000160: 65 73 20 48 4C 20 74 6F 20 6A 75 6D 70 20 74 6F  es HL to jump to
000170: 20 44 45 2C 20 70 6C 61 63 69 6E 67 20 6F 72 69   DE, placing ori
000180: 67 69 6E 61 6C 20 62 79 74 65 73 20 61 74 20 42  ginal bytes at B
000190: 43 0D 0A 0D 0A 2E 70 61 74 63 68 09 6C 64 20 61  C.....patch.ld a
0001A0: 2C 28 68 6C 29 3A 20 6C 64 20 28 62 63 29 2C 61  ,(hl): ld (bc),a
0001B0: 3A 20 69 6E 63 20 62 63 3A 20 69 6E 63 20 68 6C  : inc bc: inc hl
0001C0: 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64  ...ld a,(hl): ld
0001D0: 20 28 62 63 29 2C 61 3A 20 69 6E 63 20 62 63 3A   (bc),a: inc bc:
0001E0: 20 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 61 2C 28   inc hl...ld a,(
0001F0: 68 6C 29 3A 20 6C 64 20 28 62 63 29 2C 61 3A 20  hl): ld (bc),a:

Size : 512 (Real : 512)
000000: 20 49 4E 2E 20 41 47 41 49 4E 2E 20 54 48 49 53   IN. AGAIN. THIS
000010: 20 49 53 20 4E 49 50 50 4C 45 20 43 4C 41 4D 50   IS NIPPLE CLAMP
000020: 20 22 0D 0A 09 64 62 20 22 53 50 45 41 4B 49 4E   "...db "SPEAKIN
000030: 47 2C 20 4F 52 20 52 41 54 48 45 52 2C 20 57 52  G, OR RATHER, WR
000040: 49 54 49 4E 47 20 48 41 21 20 48 41 21 20 49 4E  ITING HA! HA! IN
000050: 20 54 48 49 53 20 44 45 4D 4F 20 49 4E 20 57 48   THIS DEMO IN WH
000060: 49 43 48 20 59 4F 55 20 41 52 45 20 22 0D 0A 09  ICH YOU ARE "...
000070: 64 62 20 22 42 45 49 4E 47 20 57 45 4C 43 4F 4D  db "BEING WELCOM
000080: 45 44 2E 20 47 52 45 45 54 49 4E 58 53 20 54 4F  ED. GREETINXS TO
000090: 20 54 48 45 20 45 55 52 4F 50 45 41 4E 20 4D 45   THE EUROPEAN ME
0000A0: 4D 42 45 52 53 20 4F 46 20 53 54 53 2E 20 54 48  MBERS OF STS. TH
0000B0: 45 53 45 20 41 52 45 20 22 0D 0A 09 64 62 20 22  ESE ARE "...db "
0000C0: 54 48 45 20 4D 45 4E 20 57 48 4F 4D 20 49 20 41  THE MEN WHOM I A
0000D0: 4D 20 4E 4F 57 20 57 45 4C 43 4F 4D 49 4E 47 2E  M NOW WELCOMING.
0000E0: 20 42 45 41 52 44 45 44 20 43 4C 41 4D 20 2D 20   BEARDED CLAM - 
0000F0: 4E 49 43 45 20 54 49 4E 42 41 42 55 4C 41 54 49  NICE TINBABULATI
000100: 4F 4E 20 49 4E 20 22 0D 0A 09 64 62 20 22 59 4F  ON IN "...db "YO
000110: 55 52 20 43 4C 49 54 4F 52 49 53 20 44 45 4D 4F  UR CLITORIS DEMO
000120: 2E 20 43 48 45 45 53 59 20 48 45 4C 4D 45 54 20  . CHEESY HELMET 
000130: 46 4C 41 4B 45 53 20 2D 20 4C 4F 4F 4B 20 46 4F  FLAKES - LOOK FO
000140: 52 57 41 52 44 20 54 4F 20 53 45 45 49 4E 47 20  RWARD TO SEEING 
000150: 22 0D 0A 09 64 62 20 22 59 4F 55 52 20 4C 41 54  "...db "YOUR LAT
000160: 45 53 54 20 55 54 49 4C 49 54 59 2C 20 43 48 45  EST UTILITY, CHE
000170: 45 53 45 20 43 4C 4F 4E 45 52 2E 20 50 49 53 53  ESE CLONER. PISS
000180: 46 4C 41 50 53 20 2D 20 47 52 45 41 54 20 50 45  FLAPS - GREAT PE
000190: 52 53 49 53 54 49 4E 41 54 49 4F 4E 20 22 0D 0A  RSISTINATION "..
0001A0: 09 64 62 20 22 4D 41 54 45 2C 20 4B 45 45 50 20  .db "MATE, KEEP 
0001B0: 55 50 20 54 48 45 20 46 52 59 49 4E 47 20 50 41  UP THE FRYING PA
0001C0: 4E 2E 20 20 20 47 41 4C 4C 4F 50 49 4E 47 20 4E  N.   GALLOPING N
0001D0: 4F 42 20 52 4F 54 20 2D 20 4E 49 43 45 20 53 41  OB ROT - NICE SA
0001E0: 4C 53 41 20 49 4E 20 59 4F 55 52 20 22 0D 0A 09  LSA IN YOUR "...
0001F0: 64 62 20 22 50 52 45 54 5A 45 4C 53 21 20 57 45  db "PRETZELS! WE

Size : 512 (Real : 512)
000000: 64 65 63 20 68 6C 3A 20 64 65 63 20 68 6C 0D 0A  dec hl: dec hl..
000010: 0D 0A 09 6C 64 20 28 68 6C 29 2C 26 43 33 3A 20  ...ld (hl),&C3: 
000020: 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 28 68 6C 29  inc hl...ld (hl)
000030: 2C 65 20 20 3A 20 69 6E 63 20 68 6C 0D 0A 09 6C  ,e  : inc hl...l
000040: 64 20 28 68 6C 29 2C 64 20 20 3A 20 72 65 74 0D  d (hl),d  : ret.
000050: 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41 09 50 72  ....;*** DATA.Pr
000060: 69 6E 74 65 72 20 74 72 61 6E 73 6C 61 74 69 6F  inter translatio
000070: 6E 20 74 61 62 6C 65 0D 0A 0D 0A 2E 74 61 62 6C  n table.....tabl
000080: 65 09 6E 6F 70 0D 0A 1A 49 54 24 24 24 FF 00 FF  e.nop...IT$$$...
000090: 72 20 70 6F 72 74 20 66 6F 72 20 43 50 43 20 50  r port for CPC P
0000A0: 6C 75 73 0D 0A 09 3B 28 63 29 31 39 39 37 20 53  lus...;(c)1997 S
0000B0: 79 73 74 65 6D 65 20 44 0D 0A 0D 0A 09 6F 72 67  ysteme D.....org
0000C0: 20 26 41 30 30 30 0D 0A 09 77 72 69 74 65 20 22   &A000...write "
0000D0: 70 6C 75 73 38 62 69 74 2E 62 69 6E 22 0D 0A 09  plus8bit.bin"...
0000E0: 6E 6F 6C 69 73 74 0D 0A 0D 0A 09 6C 64 20 68 6C  nolist.....ld hl
0000F0: 2C 74 61 62 6C 65 3A 20 63 61 6C 6C 20 26 42 44  ,table: call &BD
000100: 20 62 20 20 20 20 20 20 3A 20 6F 75 74 20 28 63   b      : out (c
000110: 29 2C 61 0D 0A 09 70 6F 70 20 62 63 3A 20 70 6F  ),a...pop bc: po
000120: 70 20 61 66 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2A  p af: ret.....;*
000130: 2A 2A 20 53 55 42 52 09 47 65 6E 65 72 61 6C 2D  ** SUBR.General-
000140: 70 75 72 70 6F 73 65 20 70 61 74 63 68 20 72 6F  purpose patch ro
000150: 75 74 69 6E 65 0D 0A 09 3B 09 09 50 61 74 63 68  utine...;..Patch
000160: 65 73 20 48 4C 20 74 6F 20 6A 75 6D 70 20 74 6F  es HL to jump to
000170: 20 44 45 2C 20 70 6C 61 63 69 6E 67 20 6F 72 69   DE, placing ori
000180: 67 69 6E 61 6C 20 62 79 74 65 73 20 61 74 20 42  ginal bytes at B
000190: 43 0D 0A 0D 0A 2E 70 61 74 63 68 09 6C 64 20 61  C.....patch.ld a
0001A0: 2C 28 68 6C 29 3A 20 6C 64 20 28 62 63 29 2C 61  ,(hl): ld (bc),a
0001B0: 3A 20 69 6E 63 20 62 63 3A 20 69 6E 63 20 68 6C  : inc bc: inc hl
0001C0: 0D 0A 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6C 64  ...ld a,(hl): ld
0001D0: 20 28 62 63 29 2C 61 3A 20 69 6E 63 20 62 63 3A   (bc),a: inc bc:
0001E0: 20 69 6E 63 20 68 6C 0D 0A 09 6C 64 20 61 2C 28   inc hl...ld a,(
0001F0: 68 6C 29 3A 20 6C 64 20 28 62 63 29 2C 61 3A 20  hl): ld (bc),a:

Size : 512 (Real : 512)
000000: 20 41 4C 53 4F 20 48 41 56 45 20 56 41 4C 55 41   ALSO HAVE VALUA
000010: 42 4C 45 20 49 4E 50 55 54 20 46 52 4F 4D 20 45  BLE INPUT FROM E
000020: 57 41 52 57 4F 4F 57 4F 4F 20 57 48 4F 53 45 20  WARWOOWOO WHOSE 
000030: 4F 4E 4C 59 20 22 0D 0A 09 64 62 20 22 50 55 52  ONLY "...db "PUR
000040: 50 4F 53 45 20 49 4E 20 48 49 53 20 56 45 52 59  POSE IN HIS VERY
000050: 20 53 41 44 2C 20 44 41 52 4B 20 45 58 49 53 54   SAD, DARK EXIST
000060: 45 4E 43 45 20 49 53 20 54 4F 20 43 4F 4D 50 4C  ENCE IS TO COMPL
000070: 45 54 45 20 48 49 53 20 4E 4F 56 45 4C 20 22 0D  ETE HIS NOVEL ".
000080: 0A 09 64 62 20 22 45 4E 54 49 54 4C 45 44 20 31  ..db "ENTITLED 1
000090: 30 30 31 20 54 48 49 4E 47 53 20 54 4F 20 44 4F  001 THINGS TO DO
0000A0: 20 57 49 54 48 20 59 4F 55 52 20 47 45 52 42 49   WITH YOUR GERBI
0000B0: 4C 20 44 52 4F 50 50 49 4E 47 53 2E 20 20 20 20  L DROPPINGS.    
0000C0: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 0D 0A 09            ".....
0000D0: 64 62 20 22 4E 4F 57 20 59 4F 55 20 48 41 56 45  db "NOW YOU HAVE
0000E0: 20 42 45 45 4E 20 4F 46 46 49 43 49 41 4C 4C 59   BEEN OFFICIALLY
0000F0: 20 57 45 4C 43 4F 4D 45 44 20 49 4E 54 4F 20 54   WELCOMED INTO T
000100: 48 49 53 20 44 45 4D 4F 2C 20 53 4F 20 59 4F 55  HIS DEMO, SO YOU
000110: 20 57 49 4C 4C 20 4E 4F 57 20 22 0D 0A 09 64 62   WILL NOW "...db
000120: 20 22 42 45 20 55 4E 4F 46 46 49 43 49 41 4C 4C   "BE UNOFFICIALL
000130: 59 20 57 45 4C 43 4F 4D 45 44 20 49 4E 54 4F 20  Y WELCOMED INTO 
000140: 54 48 49 53 20 44 45 4D 4F 2C 20 53 4F 20 48 45  THIS DEMO, SO HE
000150: 52 45 20 47 4F 45 53 20 20 20 20 20 20 20 57 45  RE GOES       WE
000160: 4C 43 4F 4D 45 20 49 4E 20 22 0D 0A 09 64 62 20  LCOME IN "...db 
000170: 22 4F 55 52 20 57 4F 4E 44 45 52 46 55 4C 20 57  "OUR WONDERFUL W
000180: 4F 52 4C 44 20 4F 46 20 44 45 4D 4F 2E 20 53 4F  ORLD OF DEMO. SO
000190: 20 57 45 4C 43 4F 4D 45 20 41 47 41 49 4E 2C 20   WELCOME AGAIN, 
0001A0: 43 41 54 45 52 49 4E 47 20 49 53 20 42 59 20 45  CATERING IS BY E
0001B0: 57 41 52 57 4F 4F 57 4F 4F 20 22 0D 0A 09 64 62  WARWOOWOO "...db
0001C0: 20 22 43 41 54 45 52 49 4E 47 20 43 4F 52 50 4F   "CATERING CORPO
0001D0: 52 41 54 49 4F 4E 20 41 4E 44 20 4F 4E 4C 59 20  RATION AND ONLY 
0001E0: 43 4F 4E 53 49 53 54 53 20 4F 46 20 43 52 49 53  CONSISTS OF CRIS
0001F0: 50 53 20 57 48 49 43 48 20 53 4D 45 4C 4C 20 28  PS WHICH SMELL (

Size : 512 (Real : 512)
000000: 20 63 6F 6E 74 65 6E 74 73 0D 0A 09 6C 64 20 68   contents...ld h
000010: 6C 2C 28 72 69 67 68 74 78 29 3A 20 6C 64 20 64  l,(rightx): ld d
000020: 65 2C 73 70 72 73 74 32 3A 20 63 61 6C 6C 20 73  e,sprst2: call s
000030: 61 76 65 09 3B 20 7C 0D 0A 09 6C 64 20 64 65 2C  ave.; |...ld de,
000040: 28 6C 65 66 74 78 20 29 3A 20 6C 64 20 68 6C 2C  (leftx ): ld hl,
000050: 28 6C 73 70 72 29 3A 20 63 61 6C 6C 20 64 72 61  (lspr): call dra
000060: 77 09 3B 44 72 61 77 20 6E 65 77 20 73 70 72 69  w.;Draw new spri
000070: 74 65 0D 0A 09 6C 64 20 64 65 2C 28 72 69 67 68  te...ld de,(righ
000080: 74 78 29 3A 20 6C 64 20 68 6C 2C 28 72 73 70 72  tx): ld hl,(rspr
000090: 29 3A 20 63 61 6C 6C 20 64 72 61 77 09 3B 20 7C  ): call draw.; |
0000A0: 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20  ...ret.....;*** 
0000B0: 52 4F 55 54 09 4D 65 73 73 61 67 65 20 77 72 69  ROUT.Message wri
0000C0: 74 65 72 20 73 74 61 67 65 20 32 20 2D 20 72 65  ter stage 2 - re
0000D0: 6D 6F 76 65 20 73 70 72 69 74 65 73 0D 0A 0D 0A  move sprites....
0000E0: 2E 73 74 61 67 65 32 09 6C 64 20 64 65 2C 28 72  .stage2.ld de,(r
0000F0: 69 67 68 74 78 29 3A 20 6C 64 20 68 6C 2C 73 70  ightx): ld hl,sp
000100: 72 73 74 32 3A 20 63 61 6C 6C 20 64 72 61 77 0D  rst2: call draw.
000110: 0A 09 6C 64 20 64 65 2C 28 6C 65 66 74 78 20 29  ..ld de,(leftx )
000120: 3A 20 6C 64 20 68 6C 2C 73 70 72 73 74 31 3A 20  : ld hl,sprst1: 
000130: 63 61 6C 6C 20 64 72 61 77 0D 0A 09 72 65 74 0D  call draw...ret.
000140: 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 53 74  ....;*** SUBR.St
000150: 6F 72 65 20 73 70 72 69 74 65 20 66 72 6F 6D 20  ore sprite from 
000160: 48 4C 20 28 73 63 72 65 65 6E 29 20 69 6E 20 44  HL (screen) in D
000170: 45 20 28 64 61 74 61 29 0D 0A 0D 0A 2E 73 61 76  E (data).....sav
000180: 65 09 6C 64 20 61 2C 31 36 0D 0A 2E 73 61 76 65  e.ld a,16...save
000190: 6C 70 09 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  lp.ldi:ldi:ldi:l
0001A0: 64 69 0D 0A 09 6C 64 20 62 63 2C 26 30 37 46 43  di...ld bc,&07FC
0001B0: 3A 20 61 64 64 20 68 6C 2C 62 63 3A 20 62 69 74  : add hl,bc: bit
0001C0: 20 36 2C 68 3A 20 6A 70 20 7A 2C 73 6E 65 78 74   6,h: jp z,snext
0001D0: 0D 0A 09 6C 64 20 62 63 2C 26 43 30 36 30 3A 20  ...ld bc,&C060: 
0001E0: 61 64 64 20 68 6C 2C 62 63 0D 0A 2E 73 6E 65 78  add hl,bc...snex
0001F0: 74 09 64 65 63 20 61 3A 20 6A 70 20 6E 7A 2C 73  t.dec a: jp nz,s

Size : 512 (Real : 512)
000000: 31 37 2C 32 31 37 2C 32 30 37 2C 32 32 39 2C 33  17,217,207,229,3
000010: 38 2C 30 2C 32 33 30 2C 35 34 2C 35 34 2C 35 31  8,0,230,54,54,51
000020: 2C 32 32 34 2C 33 0D 0A 09 64 62 20 32 32 39 2C  ,224,3...db 229,
000030: 34 2C 30 2C 31 32 36 2C 32 32 39 2C 36 2C 32 34  4,0,126,229,6,24
000040: 2C 32 32 39 2C 36 38 2C 30 2C 32 35 35 2C 32 35  ,229,68,0,255,25
000050: 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32 39 2C 31  5,229,19,0,229,1
000060: 32 2C 32 35 35 2C 31 39 32 2C 33 31 0D 0A 09 64  2,255,192,31...d
000070: 62 20 31 32 37 2C 32 32 39 2C 31 30 2C 32 35 35  b 127,229,10,255
000080: 2C 31 32 37 2C 31 32 37 2C 31 32 37 2C 33 31 2C  ,127,127,127,31,
000090: 31 39 32 2C 32 35 35 2C 31 34 38 2C 31 37 30 2C  192,255,148,170,
0000A0: 31 38 32 2C 37 33 2C 31 34 38 2C 36 36 2C 32 32  182,73,148,66,22
0000B0: 39 0D 0A 09 64 62 20 34 2C 32 35 35 2C 32 32 39  9...db 4,255,229
0000C0: 2C 38 2C 30 2C 31 32 38 2C 31 32 38 2C 31 37 37  ,8,0,128,128,177
0000D0: 2C 31 37 37 2C 31 35 35 2C 31 34 32 2C 31 33 32  ,177,155,142,132
0000E0: 2C 32 32 39 2C 33 38 2C 30 2C 39 36 2C 39 36 2C  ,229,38,0,96,96,
0000F0: 39 36 2C 32 32 34 0D 0A 09 64 62 20 39 36 2C 31  96,224...db 96,1
000100: 32 38 2C 32 32 39 2C 36 2C 30 2C 32 31 37 2C 32  28,229,6,0,217,2
000110: 32 37 2C 31 39 35 2C 31 39 35 2C 31 39 33 2C 32  27,195,195,193,2
000120: 32 39 2C 36 38 2C 30 2C 32 35 35 2C 32 35 35 2C  29,68,0,255,255,
000130: 32 32 39 2C 31 39 2C 30 2C 32 32 39 0D 0A 09 64  229,19,0,229...d
000140: 62 20 31 32 2C 32 35 35 2C 31 32 37 2C 33 31 2C  b 12,255,127,31,
000150: 31 39 39 2C 31 39 35 2C 31 39 33 2C 32 32 35 2C  199,195,193,225,
000160: 32 32 39 2C 36 2C 32 32 34 2C 32 32 35 2C 32 32  229,6,224,225,22
000170: 35 2C 32 32 37 2C 31 39 39 2C 33 31 2C 31 32 37  5,227,199,31,127
000180: 0D 0A 09 64 62 20 32 35 35 2C 31 37 30 2C 31 36  ...db 255,170,16
000190: 35 2C 34 32 2C 35 2C 37 34 2C 31 36 35 2C 32 32  5,42,5,74,165,22
0001A0: 39 2C 34 2C 32 35 35 2C 32 32 39 2C 31 30 2C 30  9,4,255,229,10,0
0001B0: 2C 31 35 38 2C 31 33 31 2C 33 31 2C 35 31 2C 33  ,158,131,31,51,3
0001C0: 31 2C 32 32 39 0D 0A 09 64 62 20 33 36 2C 30 2C  1,229...db 36,0,
0001D0: 31 35 2C 31 32 2C 31 32 2C 31 35 2C 31 35 2C 31  15,12,12,15,15,1
0001E0: 33 2C 31 32 2C 32 32 39 2C 37 2C 30 2C 32 33 31  3,12,229,7,0,231
0001F0: 2C 35 34 2C 32 34 36 2C 36 2C 32 33 30 2C 32 32  ,54,246,6,230,22

Size : 512 (Real : 512)
000000: 70 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A  p...ret.....;***
000010: 20 53 55 42 52 09 50 6C 61 63 65 20 68 69 67 68   SUBR.Place high
000020: 6C 69 67 68 74 20 62 61 72 20 61 74 20 48 4C 0D  light bar at HL.
000030: 0A 0D 0A 2E 68 6C 69 67 68 74 09 6C 64 20 63 2C  ....hlight.ld c,
000040: 31 32 0D 0A 2E 68 6C 6C 6F 6F 70 09 70 75 73 68  12...hlloop.push
000050: 20 68 6C 3A 20 6C 64 20 62 2C 33 33 0D 0A 2E 68   hl: ld b,33...h
000060: 6C 6C 6F 70 69 09 20 6C 64 20 61 2C 28 68 6C 29  llopi. ld a,(hl)
000070: 3A 20 6C 64 20 64 2C 61 3A 20 72 6C 63 20 64 0D  : ld d,a: rlc d.
000080: 0A 09 20 09 20 20 20 20 6F 72 20 64 3A 20 78 6F  .. .    or d: xo
000090: 72 20 32 35 35 0D 0A 09 20 6C 64 20 28 68 6C 29  r 255... ld (hl)
0000A0: 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A 09 20 64 6A  ,a: inc hl... dj
0000B0: 6E 7A 20 68 6C 6C 6F 70 69 0D 0A 09 70 6F 70 20  nz hllopi...pop 
0000C0: 68 6C 0D 0A 09 63 61 6C 6C 20 26 42 43 32 36 0D  hl...call &BC26.
0000D0: 0A 09 64 65 63 20 63 3A 20 6A 72 20 6E 7A 2C 68  ..dec c: jr nz,h
0000E0: 6C 6C 6F 6F 70 0D 0A 09 72 65 74 0D 0A 0D 0A 09  lloop...ret.....
0000F0: 3B 2A 2A 2A 20 53 55 42 52 09 52 65 6D 6F 76 65  ;*** SUBR.Remove
000100: 20 68 69 67 68 6C 69 67 68 74 20 62 61 72 20 66   highlight bar f
000110: 72 6F 6D 20 48 4C 0D 0A 0D 0A 2E 72 65 6D 76 68  rom HL.....remvh
000120: 6C 09 6C 64 20 63 2C 31 32 0D 0A 2E 72 6D 6C 6F  l.ld c,12...rmlo
000130: 6F 70 09 70 75 73 68 20 68 6C 3A 20 6C 64 20 62  op.push hl: ld b
000140: 2C 33 33 0D 0A 2E 72 6D 6C 6F 70 69 09 20 6C 64  ,33...rmlopi. ld
000150: 20 61 2C 28 68 6C 29 3A 20 78 6F 72 20 32 35 35   a,(hl): xor 255
000160: 3A 20 61 6E 64 20 38 35 0D 0A 09 20 6C 64 20 28  : and 85... ld (
000170: 68 6C 29 2C 61 3A 20 69 6E 63 20 68 6C 0D 0A 09  hl),a: inc hl...
000180: 20 64 6A 6E 7A 20 72 6D 6C 6F 70 69 0D 0A 09 70   djnz rmlopi...p
000190: 6F 70 20 68 6C 0D 0A 09 63 61 6C 6C 20 26 42 43  op hl...call &BC
0001A0: 32 36 0D 0A 09 64 65 63 20 63 3A 20 6A 72 20 6E  26...dec c: jr n
0001B0: 7A 2C 72 6D 6C 6F 6F 70 0D 0A 09 72 65 74 0D 0A  z,rmloop...ret..
0001C0: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 44  .....;*** SUBR.D
0001D0: 69 73 70 6C 61 79 20 74 69 74 6C 65 20 73 63 72  isplay title scr
0001E0: 65 65 6E 0D 0A 0D 0A 2E 73 63 72 65 65 6E 09 64  een.....screen.d
0001F0: 62 20 32 30 35 2C 35 39 2C 30 2C 35 39 2C 35 39  b 205,59,0,59,59

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 32 32 35 2C 31 37 2C 36 32 2C 30 2C 32 35 2C  ,225,17,62,0,25,
000010: 31 37 2C 30 2C 31 39 32 2C 32 33 35 2C 31 2C 32  17,0,192,235,1,2
000020: 35 2C 30 2C 32 34 2C 32 39 2C 35 2C 32 34 38 2C  5,0,24,29,5,248,
000030: 36 32 0D 0A 09 64 62 20 32 32 39 2C 34 2C 32 31  62...db 229,4,21
000040: 33 2C 31 31 39 2C 31 37 2C 30 2C 38 2C 32 35 2C  3,119,17,0,8,25,
000050: 34 38 2C 31 33 2C 31 37 2C 38 30 2C 31 39 32 2C  48,13,17,80,192,
000060: 32 35 2C 31 33 2C 33 32 2C 36 2C 31 34 2C 32 35  25,13,32,6,14,25
000070: 2C 31 37 2C 34 39 0D 0A 09 64 62 20 32 34 38 2C  ,17,49...db 248,
000080: 32 35 2C 31 36 2C 32 33 34 2C 32 30 39 2C 32 36  25,16,234,209,26
000090: 2C 31 39 2C 32 35 34 2C 32 32 39 2C 33 32 2C 32  ,19,254,229,32,2
0000A0: 32 35 2C 32 36 2C 31 39 2C 37 31 2C 32 35 34 2C  25,26,19,71,254,
0000B0: 34 2C 35 36 2C 32 31 34 2C 32 36 0D 0A 09 64 62  4,56,214,26...db
0000C0: 20 31 39 2C 32 34 2C 32 31 35 2C 32 35 35 2C 32   19,24,215,255,2
0000D0: 32 39 2C 31 39 38 2C 31 39 32 2C 32 35 35 2C 32  29,198,192,255,2
0000E0: 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C 32 35 35  55,229,198,0,255
0000F0: 2C 32 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C 32  ,255,229,198,0,2
000100: 35 35 0D 0A 09 64 62 20 32 35 35 2C 32 32 39 2C  55...db 255,229,
000110: 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32  198,0,255,255,22
000120: 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C  9,198,0,255,255,
000130: 32 32 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35  229,198,0,255,25
000140: 35 2C 32 32 39 2C 31 39 38 0D 0A 09 64 62 20 30  5,229,198...db 0
000150: 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 38  ,255,255,229,198
000160: 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31  ,0,255,255,229,1
000170: 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39  98,0,255,255,229
000180: 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 0D 0A  ,198,0,255,255..
000190: 09 64 62 20 32 32 39 2C 31 39 38 2C 30 2C 32 35  .db 229,198,0,25
0001A0: 35 2C 32 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C  5,255,229,198,0,
0001B0: 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 38 2C  255,255,229,198,
0001C0: 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39  0,255,255,229,19
0001D0: 38 2C 30 0D 0A 09 64 62 20 32 35 35 2C 32 35 35  8,0...db 255,255
0001E0: 2C 32 32 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32  ,229,198,0,255,2
0001F0: 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C 32 35 35  55,229,198,0,255

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 50 6F 77 65 72 53 70 65 6C 6C 0D 0A  ...;PowerSpell..
000010: 09 3B 28 63 29 20 31 39 39 34 20 52 69 63 68 61  .;(c) 1994 Richa
000020: 72 64 20 46 61 69 72 68 75 72 73 74 0D 0A 0D 0A  rd Fairhurst....
000030: 09 6F 72 67 20 26 37 38 30 30 0D 0A 09 77 72 69  .org &7800...wri
000040: 74 65 20 22 73 70 65 6C 6C 2E 62 69 6E 22 0D 0A  te "spell.bin"..
000050: 09 6E 6F 6C 69 73 74 0D 0A 0D 0A 69 6E 62 75 66  .nolist....inbuf
000060: 66 09 65 71 75 20 26 31 30 30 30 0D 0A 6F 74 62  f.equ &1000..otb
000070: 75 66 66 09 65 71 75 20 26 31 38 30 30 0D 0A 0D  uff.equ &1800...
000080: 0A 09 3B 2A 2A 2A 20 49 4E 49 54 09 49 6E 69 74  ..;*** INIT.Init
000090: 69 61 6C 69 73 61 74 69 6F 6E 0D 0A 0D 0A 09 63  ialisation.....c
0000A0: 61 6C 6C 20 6C 6F 61 64 0D 0A 09 6C 64 20 61 2C  all load...ld a,
0000B0: 32 3A 20 63 61 6C 6C 20 26 42 43 30 45 09 09 09  2: call &BC0E...
0000C0: 09 3B 54 69 74 6C 65 20 73 63 72 65 65 6E 0D 0A  .;Title screen..
0000D0: 09 6C 64 20 62 63 2C 26 30 44 30 44 3A 20 20 20  .ld bc,&0D0D:   
0000E0: 20 20 20 20 20 20 63 61 6C 6C 20 26 42 43 33 38        call &BC38
0000F0: 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 62 63 2C 26  ...; |...ld bc,&
000100: 31 41 31 41 3A 20 78 6F 72 20 61 20 3A 20 63 61  1A1A: xor a : ca
000110: 6C 6C 20 26 42 43 33 32 09 09 09 3B 20 7C 0D 0A  ll &BC32...; |..
000120: 09 6C 64 20 62 63 2C 26 30 30 30 30 3A 20 6C 64  .ld bc,&0000: ld
000130: 20 61 2C 31 3A 20 63 61 6C 6C 20 26 42 43 33 32   a,1: call &BC32
000140: 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 62 63 2C 31  ...; |...ld bc,1
000150: 3A 20 63 61 6C 6C 20 26 42 42 42 37 3A 20 6C 64  : call &BBB7: ld
000160: 20 64 65 2C 26 30 32 30 43 3A 20 6C 64 20 68 6C   de,&020C: ld hl
000170: 2C 26 34 44 31 33 3A 20 63 61 6C 6C 20 26 42 42  ,&4D13: call &BB
000180: 36 36 3A 20 6C 64 20 62 63 2C 31 3A 20 63 61 6C  66: ld bc,1: cal
000190: 6C 20 26 42 42 42 37 0D 0A 09 6C 64 20 62 63 2C  l &BBB7...ld bc,
0001A0: 32 3A 20 63 61 6C 6C 20 26 42 42 42 37 3A 20 6C  2: call &BBB7: l
0001B0: 64 20 64 65 2C 26 30 32 31 35 3A 20 6C 64 20 68  d de,&0215: ld h
0001C0: 6C 2C 26 34 44 31 37 3A 20 63 61 6C 6C 20 26 42  l,&4D17: call &B
0001D0: 42 36 36 3A 20 6C 64 20 62 63 2C 32 3A 20 63 61  B66: ld bc,2: ca
0001E0: 6C 6C 20 26 42 42 42 37 0D 0A 2E 6F 75 74 65 72  ll &BBB7...outer
0001F0: 09 63 61 6C 6C 20 73 63 72 65 65 6E 09 09 09 09  .call screen....

Size : 512 (Real : 512)
000000: 2C 32 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C 32  ,255,229,198,0,2
000010: 35 35 2C 32 35 35 2C 32 32 39 0D 0A 09 64 62 20  55,255,229...db 
000020: 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32  198,0,255,255,22
000030: 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C  9,198,0,255,255,
000040: 32 32 39 2C 31 32 33 2C 30 2C 32 32 39 2C 37 2C  229,123,0,229,7,
000050: 33 2C 32 32 39 2C 36 38 2C 30 2C 32 35 35 0D 0A  3,229,68,0,255..
000060: 09 64 62 20 32 35 35 2C 32 32 39 2C 31 32 33 2C  .db 255,229,123,
000070: 30 2C 32 32 34 2C 34 38 2C 35 31 2C 32 33 30 2C  0,224,48,51,230,
000080: 31 39 38 2C 31 30 32 2C 35 31 2C 32 32 39 2C 36  198,102,51,229,6
000090: 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C  8,0,255,255,229,
0000A0: 31 32 33 0D 0A 09 64 62 20 30 2C 31 32 2C 31 32  123...db 0,12,12
0000B0: 2C 32 30 37 2C 31 30 38 2C 31 30 38 2C 31 30 38  ,207,108,108,108
0000C0: 2C 32 30 37 2C 32 32 39 2C 36 38 2C 30 2C 32 35  ,207,229,68,0,25
0000D0: 35 2C 32 35 35 2C 32 32 39 2C 31 32 35 2C 30 2C  5,255,229,125,0,
0000E0: 31 34 33 2C 32 31 37 0D 0A 09 64 62 20 32 31 37  143,217...db 217
0000F0: 2C 32 31 37 2C 31 34 33 2C 32 32 39 2C 36 38 2C  ,217,143,229,68,
000100: 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 32  0,255,255,229,12
000110: 33 2C 30 2C 32 34 2C 32 34 2C 36 30 2C 31 35 32  3,0,24,24,60,152
000120: 2C 31 35 32 2C 31 35 32 2C 31 32 0D 0A 09 64 62  ,152,152,12...db
000130: 20 32 32 39 2C 36 38 2C 30 2C 32 35 35 2C 32 35   229,68,0,255,25
000140: 35 2C 32 32 39 2C 31 32 33 2C 30 2C 32 32 39 2C  5,229,123,0,229,
000150: 37 2C 31 2C 32 32 39 2C 36 38 2C 30 2C 32 35 35  7,1,229,68,0,255
000160: 2C 32 35 35 2C 32 32 39 2C 31 32 33 2C 30 2C 32  ,255,229,123,0,2
000170: 34 33 0D 0A 09 64 62 20 31 35 35 2C 31 35 35 2C  43...db 155,155,
000180: 32 34 33 2C 31 33 31 2C 31 33 31 2C 31 33 31 2C  243,131,131,131,
000190: 32 32 39 2C 36 38 2C 30 2C 32 35 35 2C 32 35 35  229,68,0,255,255
0001A0: 2C 32 32 39 2C 31 39 2C 30 2C 32 32 39 2C 34 31  ,229,19,0,229,41
0001B0: 2C 36 33 2C 32 32 39 0D 0A 09 64 62 20 36 33 2C  ,63,229...db 63,
0001C0: 30 2C 32 32 34 2C 32 32 39 2C 34 2C 34 38 2C 35  0,224,229,4,48,5
0001D0: 31 2C 32 32 37 2C 36 2C 32 32 39 2C 36 37 2C 30  1,227,6,229,67,0
0001E0: 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 2C  ,255,255,229,19,
0001F0: 30 2C 32 32 39 2C 34 2C 32 35 35 0D 0A 09 64 62  0,229,4,255...db

Size : 512 (Real : 512)
000000: 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20 26 42 42 30  .; |...call &BB0
000010: 36 09 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 3B 2A  6.....; |.....;*
000020: 2A 2A 20 53 45 43 54 09 4D 61 69 6E 20 6D 65 6E  ** SECT.Main men
000030: 75 0D 0A 0D 0A 2E 6D 61 69 6E 09 63 61 6C 6C 20  u.....main.call 
000040: 26 42 43 37 44 3A 20 63 61 6C 6C 20 26 42 43 39  &BC7D: call &BC9
000050: 32 09 09 09 09 3B 41 62 61 6E 64 6F 6E 20 61 6E  2....;Abandon an
000060: 79 20 66 69 6C 65 73 0D 0A 09 63 61 6C 6C 20 63  y files...call c
000070: 6C 65 61 72 09 09 09 09 09 3B 43 6C 65 61 72 20  lear.....;Clear 
000080: 6D 65 6E 75 20 61 72 65 61 0D 0A 09 63 61 6C 6C  menu area...call
000090: 20 73 70 72 69 74 65 09 09 09 09 09 3B 50 72 69   sprite.....;Pri
0000A0: 6E 74 20 6D 65 6E 75 0D 0A 09 63 61 6C 6C 20 6D  nt menu...call m
0000B0: 65 6E 75 09 09 09 09 09 3B 47 65 74 20 72 65 73  enu.....;Get res
0000C0: 70 6F 6E 73 65 0D 0A 0D 0A 09 6F 72 20 61 3A 20  ponse.....or a: 
0000D0: 6A 70 20 7A 2C 6F 75 74 65 72 0D 0A 09 63 70 20  jp z,outer...cp 
0000E0: 31 3A 20 6A 70 20 7A 2C 73 70 65 6C 6C 0D 0A 09  1: jp z,spell...
0000F0: 63 70 20 32 3A 20 6A 70 20 7A 2C 75 5F 65 64 69  cp 2: jp z,u_edi
000100: 74 0D 0A 09 63 70 20 33 3A 20 6A 70 20 7A 2C 75  t...cp 3: jp z,u
000110: 5F 6C 6F 61 64 0D 0A 09 63 70 20 34 3A 20 6A 70  _load...cp 4: jp
000120: 20 7A 2C 75 5F 73 61 76 65 0D 0A 09 63 70 20 35   z,u_save...cp 5
000130: 3A 20 6A 70 20 7A 2C 68 65 6C 70 0D 0A 09 72 65  : jp z,help...re
000140: 74 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55  t.......;*** ROU
000150: 54 09 4D 65 6E 75 20 68 61 6E 64 6C 65 72 0D 0A  T.Menu handler..
000160: 0D 0A 2E 6D 65 6E 75 09 6C 64 20 68 6C 2C 26 45  ...menu.ld hl,&E
000170: 33 44 37 3A 20 6C 64 20 65 2C 31 0D 0A 2E 6D 65  3D7: ld e,1...me
000180: 6E 75 6C 09 70 75 73 68 20 68 6C 0D 0A 09 20 63  nul.push hl... c
000190: 61 6C 6C 20 68 6C 69 67 68 74 0D 0A 09 70 6F 70  all hlight...pop
0001A0: 20 68 6C 0D 0A 2E 6D 6B 65 79 70 09 63 61 6C 6C   hl...mkeyp.call
0001B0: 20 26 42 42 31 38 0D 0A 09 63 70 20 32 32 34 3A   &BB18...cp 224:
0001C0: 20 6A 72 20 7A 2C 73 65 6C 65 63 74 0D 0A 09 63   jr z,select...c
0001D0: 70 20 31 33 20 3A 20 6A 72 20 7A 2C 73 65 6C 65  p 13 : jr z,sele
0001E0: 63 74 0D 0A 09 63 70 20 32 35 32 3A 20 6A 72 20  ct...cp 252: jr 
0001F0: 7A 2C 65 73 63 61 70 65 0D 0A 09 63 70 20 32 34  z,escape...cp 24

Size : 512 (Real : 512)
000000: 20 31 39 32 2C 32 32 34 2C 32 32 39 2C 32 32 2C   192,224,229,22,
000010: 32 34 30 2C 32 32 34 2C 31 39 32 2C 32 35 35 2C  240,224,192,255,
000020: 32 32 39 2C 36 2C 31 39 32 2C 32 32 39 2C 34 2C  229,6,192,229,4,
000030: 32 35 35 2C 32 32 39 2C 31 33 38 2C 30 2C 32 35  255,229,138,0,25
000040: 35 0D 0A 09 64 62 20 32 35 35 2C 32 32 39 2C 31  5...db 255,229,1
000050: 39 2C 30 2C 32 32 39 2C 34 2C 32 35 35 2C 30 2C  9,0,229,4,255,0,
000060: 30 2C 32 32 39 2C 31 31 2C 36 33 2C 30 2C 30 2C  0,229,11,63,0,0,
000070: 32 32 39 2C 39 2C 36 33 2C 33 31 2C 31 35 2C 32  229,9,63,31,15,2
000080: 35 35 2C 32 32 39 0D 0A 09 64 62 20 36 2C 30 2C  55,229...db 6,0,
000090: 32 32 39 2C 34 2C 32 35 35 2C 32 32 39 2C 36 33  229,4,255,229,63
0000A0: 2C 30 2C 36 32 2C 39 39 2C 33 2C 31 34 2C 32 34  ,0,62,99,3,14,24
0000B0: 2C 34 38 2C 31 32 37 2C 32 32 39 2C 36 38 2C 30  ,48,127,229,68,0
0000C0: 2C 32 35 35 2C 32 35 35 2C 32 32 39 0D 0A 09 64  ,255,255,229...d
0000D0: 62 20 31 39 2C 30 2C 32 32 39 2C 34 2C 32 35 35  b 19,0,229,4,255
0000E0: 2C 33 2C 30 2C 31 32 38 2C 32 32 34 2C 32 32 39  ,3,0,128,224,229
0000F0: 2C 37 2C 32 34 30 2C 32 32 34 2C 31 32 38 2C 30  ,7,240,224,128,0
000100: 2C 37 2C 32 32 39 2C 31 32 2C 32 35 35 2C 30 2C  ,7,229,12,255,0,
000110: 38 0D 0A 09 64 62 20 30 2C 30 2C 32 2C 30 2C 32  8...db 0,0,2,0,2
000120: 32 39 2C 34 2C 32 35 35 2C 32 32 39 2C 38 2C 30  29,4,255,229,8,0
000130: 2C 37 2C 31 32 2C 31 32 2C 31 35 2C 31 32 2C 31  ,7,12,12,15,12,1
000140: 32 2C 31 32 2C 32 32 39 2C 33 36 2C 30 2C 32 32  2,12,229,36,0,22
000150: 39 2C 37 2C 33 0D 0A 09 64 62 20 32 32 39 2C 38  9,7,3...db 229,8
000160: 30 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C  0,0,255,255,229,
000170: 31 39 2C 30 2C 32 32 39 2C 36 2C 32 35 35 2C 31  19,0,229,6,255,1
000180: 32 37 2C 31 32 37 2C 32 32 39 2C 36 2C 36 33 2C  27,127,229,6,63,
000190: 36 30 2C 31 32 30 2C 31 31 32 0D 0A 09 64 62 20  60,120,112...db 
0001A0: 32 34 30 2C 32 32 39 2C 36 2C 32 32 34 2C 32 34  240,229,6,224,24
0001B0: 30 2C 32 34 30 2C 32 34 38 2C 32 35 32 2C 32 35  0,240,248,252,25
0001C0: 35 2C 32 35 35 2C 32 35 35 2C 38 2C 31 2C 36 38  5,255,255,8,1,68
0001D0: 2C 31 2C 31 38 2C 30 2C 32 32 39 2C 34 2C 32 35  ,1,18,0,229,4,25
0001E0: 35 0D 0A 09 64 62 20 32 32 39 2C 38 2C 30 2C 31  5...db 229,8,0,1
0001F0: 32 39 2C 31 39 33 2C 32 30 37 2C 32 31 37 2C 32  29,193,207,217,2

Size : 512 (Real : 512)
000000: 31 3A 20 6A 72 20 7A 2C 63 64 6F 77 6E 0D 0A 09  1: jr z,cdown...
000010: 63 70 20 33 32 20 3A 20 6A 72 20 7A 2C 63 64 6F  cp 32 : jr z,cdo
000020: 77 6E 0D 0A 09 63 70 20 32 34 30 3A 20 6A 72 20  wn...cp 240: jr 
000030: 7A 2C 63 75 70 0D 0A 09 6A 72 20 6D 6B 65 79 70  z,cup...jr mkeyp
000040: 0D 0A 0D 0A 2E 63 64 6F 77 6E 09 6C 64 20 61 2C  .....cdown.ld a,
000050: 65 3A 20 63 70 20 35 3A 20 6A 72 20 7A 2C 6D 6B  e: cp 5: jr z,mk
000060: 65 79 70 0D 0A 09 70 75 73 68 20 68 6C 0D 0A 09  eyp...push hl...
000070: 20 63 61 6C 6C 20 72 65 6D 76 68 6C 0D 0A 09 70   call remvhl...p
000080: 6F 70 20 68 6C 0D 0A 09 6C 64 20 62 63 2C 31 36  op hl...ld bc,16
000090: 30 3A 20 61 64 64 20 68 6C 2C 62 63 0D 0A 09 69  0: add hl,bc...i
0000A0: 6E 63 20 65 3A 20 6A 72 20 6D 65 6E 75 6C 0D 0A  nc e: jr menul..
0000B0: 0D 0A 2E 63 75 70 09 6C 64 20 61 2C 65 3A 20 63  ...cup.ld a,e: c
0000C0: 70 20 31 3A 20 6A 72 20 7A 2C 6D 6B 65 79 70 0D  p 1: jr z,mkeyp.
0000D0: 0A 09 70 75 73 68 20 68 6C 0D 0A 09 20 63 61 6C  ..push hl... cal
0000E0: 6C 20 72 65 6D 76 68 6C 0D 0A 09 70 6F 70 20 68  l remvhl...pop h
0000F0: 6C 0D 0A 09 6C 64 20 62 63 2C 26 46 46 36 30 3A  l...ld bc,&FF60:
000100: 20 61 64 64 20 68 6C 2C 62 63 0D 0A 09 64 65 63   add hl,bc...dec
000110: 20 65 3A 20 6A 72 20 6D 65 6E 75 6C 0D 0A 0D 0A   e: jr menul....
000120: 2E 65 73 63 61 70 65 09 6C 64 20 65 2C 30 0D 0A  .escape.ld e,0..
000130: 2E 73 65 6C 65 63 74 09 6C 64 20 61 2C 65 3A 20  .select.ld a,e: 
000140: 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42  ret.....;*** SUB
000150: 52 09 50 72 69 6E 74 20 6D 65 6E 75 20 73 70 72  R.Print menu spr
000160: 69 74 65 0D 0A 0D 0A 2E 73 70 72 69 74 65 09 6C  ite.....sprite.l
000170: 64 20 64 65 2C 26 46 33 44 37 3A 20 6C 64 20 62  d de,&F3D7: ld b
000180: 2C 37 31 0D 0A 09 6C 64 20 68 6C 2C 6D 65 6E 75  ,71...ld hl,menu
000190: 73 70 0D 0A 2E 73 70 6C 6F 6F 70 09 70 75 73 68  sp...sploop.push
0001A0: 20 62 63 3A 20 70 75 73 68 20 64 65 0D 0A 09 20   bc: push de... 
0001B0: 6C 64 20 62 63 2C 33 33 3A 20 6C 64 69 72 0D 0A  ld bc,33: ldir..
0001C0: 09 70 6F 70 20 64 65 3A 20 70 6F 70 20 62 63 0D  .pop de: pop bc.
0001D0: 0A 09 65 78 20 64 65 2C 68 6C 0D 0A 09 20 63 61  ..ex de,hl... ca
0001E0: 6C 6C 20 26 42 43 32 36 0D 0A 09 65 78 20 64 65  ll &BC26...ex de
0001F0: 2C 68 6C 0D 0A 09 64 6A 6E 7A 20 73 70 6C 6F 6F  ,hl...djnz sploo

Size : 512 (Real : 512)
000000: 2C 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32  ,255,229,19,0,22
000010: 39 2C 31 33 2C 32 35 35 2C 32 35 32 0D 0A 09 64  9,13,255,252...d
000020: 62 20 32 34 31 2C 32 32 37 2C 31 39 35 2C 31 39  b 241,227,195,19
000030: 35 2C 31 32 38 2C 32 32 39 2C 36 2C 31 33 31 2C  5,128,229,6,131,
000040: 31 39 33 2C 31 39 32 2C 32 34 30 2C 32 34 38 2C  193,192,240,248,
000050: 32 35 35 2C 32 35 35 2C 32 32 33 2C 31 37 31 2C  255,255,223,171,
000060: 39 33 0D 0A 09 64 62 20 31 31 31 2C 31 38 33 2C  93...db 111,183,
000070: 32 31 38 2C 32 32 39 2C 34 2C 32 35 35 2C 32 32  218,229,4,255,22
000080: 39 2C 38 2C 30 2C 33 2C 36 2C 33 2C 31 2C 30 2C  9,8,0,3,6,3,1,0,
000090: 36 2C 33 2C 32 32 39 2C 33 36 2C 30 2C 36 2C 36  6,3,229,36,0,6,6
0000A0: 2C 36 32 2C 31 30 32 0D 0A 09 64 62 20 31 30 32  ,62,102...db 102
0000B0: 2C 31 30 32 2C 36 32 2C 32 32 39 2C 37 2C 30 2C  ,102,62,229,7,0,
0000C0: 32 34 31 2C 32 37 2C 32 35 31 2C 31 35 35 2C 32  241,27,251,155,2
0000D0: 34 39 2C 32 32 39 2C 34 36 2C 30 2C 32 34 33 2C  49,229,46,0,243,
0000E0: 36 2C 32 32 37 2C 34 38 2C 32 33 31 0D 0A 09 64  6,227,48,231...d
0000F0: 62 20 32 32 39 2C 31 37 2C 30 2C 32 35 35 2C 32  b 229,17,0,255,2
000100: 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32 39 2C  55,229,19,0,229,
000110: 31 32 2C 32 35 35 2C 33 2C 32 34 30 2C 32 35 32  12,255,3,240,252
000120: 2C 32 35 34 2C 32 35 34 2C 32 35 34 2C 30 2C 32  ,254,254,254,0,2
000130: 32 39 0D 0A 09 64 62 20 38 2C 32 35 35 2C 30 2C  29...db 8,255,0,
000140: 30 2C 33 2C 32 35 35 2C 32 31 39 2C 31 32 37 2C  0,3,255,219,127,
000150: 32 34 37 2C 31 39 31 2C 32 35 31 2C 32 33 38 2C  247,191,251,238,
000160: 32 32 39 2C 34 2C 32 35 35 2C 32 32 39 2C 38 2C  229,4,255,229,8,
000170: 30 2C 31 39 32 2C 39 36 0D 0A 09 64 62 20 31 35  0,192,96...db 15
000180: 2C 31 34 30 2C 32 30 34 2C 31 31 31 2C 32 30 34  ,140,204,111,204
000190: 2C 31 32 2C 32 32 39 2C 34 37 2C 30 2C 34 38 2C  ,12,229,47,0,48,
0001A0: 34 38 2C 32 34 30 2C 34 38 2C 34 38 2C 35 31 2C  48,240,48,48,51,
0001B0: 32 34 33 2C 36 2C 32 32 39 2C 34 35 0D 0A 09 64  243,6,229,45...d
0001C0: 62 20 30 2C 32 32 34 2C 30 2C 31 39 32 2C 39 36  b 0,224,0,192,96
0001D0: 2C 31 39 32 2C 32 32 39 2C 31 37 2C 30 2C 32 35  ,192,229,17,0,25
0001E0: 35 2C 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32  5,255,229,19,0,2
0001F0: 32 39 2C 31 33 2C 32 35 35 2C 31 32 30 2C 36 32  29,13,255,120,62

Size : 512 (Real : 512)
000000: 32 34 38 2C 32 30 34 2C 32 30 35 2C 32 34 39 2C  248,204,205,249,
000010: 32 34 31 2C 32 31 37 2C 32 30 34 0D 0A 09 64 62  241,217,204...db
000020: 20 32 32 39 2C 36 38 2C 30 2C 32 35 35 2C 32 35   229,68,0,255,25
000030: 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32 39 2C 31  5,229,19,0,229,1
000040: 32 2C 32 35 35 2C 32 34 38 2C 32 33 31 2C 31 34  2,255,248,231,14
000050: 33 2C 33 31 2C 33 31 2C 33 31 2C 30 2C 32 32 39  3,31,31,31,0,229
000060: 0D 0A 09 64 62 20 36 2C 33 31 2C 31 35 2C 37 2C  ...db 6,31,15,7,
000070: 31 32 38 2C 31 39 32 2C 32 34 38 2C 32 32 39 2C  128,192,248,229,
000080: 31 31 2C 32 35 35 2C 32 32 39 2C 38 2C 30 2C 31  11,255,229,8,0,1
000090: 32 38 2C 31 32 38 2C 31 35 33 2C 31 37 39 2C 32  28,128,153,179,2
0000A0: 32 37 2C 31 37 39 0D 0A 09 64 62 20 31 35 33 2C  27,179...db 153,
0000B0: 32 32 39 2C 33 36 2C 30 2C 33 31 2C 31 37 37 2C  229,36,0,31,177,
0000C0: 31 37 37 2C 31 35 39 2C 31 32 39 2C 33 2C 33 30  177,159,129,3,30
0000D0: 2C 32 32 39 2C 35 2C 30 2C 31 2C 31 2C 31 35 35  ,229,5,0,1,1,155
0000E0: 2C 31 35 33 2C 31 35 33 2C 31 35 33 0D 0A 09 64  ,153,153,153...d
0000F0: 62 20 32 34 38 2C 32 32 39 2C 36 38 2C 30 2C 32  b 248,229,68,0,2
000100: 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C  55,255,229,19,0,
000110: 32 32 39 2C 31 32 2C 32 35 35 2C 33 31 2C 31 33  229,12,255,31,13
000120: 31 2C 32 32 35 2C 32 34 30 2C 32 34 30 2C 32 34  1,225,240,240,24
000130: 30 0D 0A 09 64 62 20 30 2C 32 32 39 2C 36 2C 32  0...db 0,229,6,2
000140: 35 35 2C 32 35 34 2C 32 34 38 2C 31 2C 37 2C 33  55,254,248,1,7,3
000150: 31 2C 32 32 39 2C 31 31 2C 32 35 35 2C 32 32 39  1,229,11,255,229
000160: 2C 31 30 2C 30 2C 32 33 30 2C 35 35 2C 32 34 36  ,10,0,230,55,246
000170: 2C 36 2C 32 33 30 0D 0A 09 64 62 20 32 32 39 2C  ,6,230...db 229,
000180: 33 36 2C 30 2C 37 2C 31 34 33 2C 31 35 35 2C 31  36,0,7,143,155,1
000190: 37 39 2C 31 39 31 2C 33 2C 33 2C 32 32 39 2C 35  79,191,3,3,229,5
0001A0: 2C 30 2C 31 35 36 2C 31 34 30 2C 32 30 34 2C 31  ,0,156,140,204,1
0001B0: 34 30 2C 31 34 30 2C 31 34 31 0D 0A 09 64 62 20  40,140,141...db 
0001C0: 32 30 34 2C 32 32 39 2C 36 38 2C 30 2C 32 35 35  204,229,68,0,255
0001D0: 2C 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32  ,255,229,19,0,22
0001E0: 39 2C 34 2C 32 35 35 2C 32 35 32 2C 31 39 32 2C  9,4,255,252,192,
0001F0: 32 32 39 2C 31 30 2C 32 34 30 2C 31 31 32 0D 0A  229,10,240,112..

Size : 512 (Real : 512)
000000: 0D 0A 09 64 62 20 33 30 2C 31 34 2C 31 34 2C 31  ...db 30,14,14,1
000010: 34 2C 32 32 39 2C 34 2C 32 35 34 2C 32 33 38 2C  4,229,4,254,238,
000020: 32 33 38 2C 32 30 36 2C 33 30 2C 36 32 2C 32 35  238,206,30,62,25
000030: 32 2C 32 34 38 2C 32 35 35 2C 32 34 37 2C 31 32  2,248,255,247,12
000040: 35 2C 32 33 39 0D 0A 09 64 62 20 31 31 38 2C 32  5,239...db 118,2
000050: 32 33 2C 32 33 37 2C 32 32 39 2C 34 2C 32 35 35  23,237,229,4,255
000060: 2C 32 32 39 2C 31 30 2C 30 2C 31 34 33 2C 32 31  ,229,10,0,143,21
000070: 37 2C 32 32 33 2C 31 35 32 2C 31 35 2C 32 32 39  7,223,152,15,229
000080: 2C 33 36 2C 30 2C 32 34 38 0D 0A 09 64 62 20 31  ,36,0,248...db 1
000090: 39 32 2C 31 39 33 2C 32 34 30 2C 31 39 33 2C 31  92,193,240,193,1
0000A0: 39 35 2C 31 39 33 2C 32 32 39 2C 35 38 2C 30 2C  95,193,229,58,0,
0000B0: 37 2C 30 2C 37 2C 31 32 2C 37 2C 32 32 39 2C 31  7,0,7,12,7,229,1
0000C0: 37 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 0D  7,0,255,255,229.
0000D0: 0A 09 64 62 20 31 39 2C 30 2C 32 32 39 2C 31 32  ..db 19,0,229,12
0000E0: 2C 32 35 35 2C 31 34 2C 38 2C 33 2C 37 2C 32 32  ,255,14,8,3,7,22
0000F0: 39 2C 31 32 2C 31 35 2C 37 2C 33 2C 32 35 35 2C  9,12,15,7,3,255,
000100: 31 32 36 2C 32 33 39 2C 31 38 39 2C 32 33 39 2C  126,239,189,239,
000110: 31 39 30 0D 0A 09 64 62 20 32 34 37 2C 32 32 39  190...db 247,229
000120: 2C 34 2C 32 35 35 2C 32 32 39 2C 38 2C 30 2C 35  ,4,255,229,8,0,5
000130: 39 2C 32 35 2C 32 35 2C 31 35 33 2C 31 35 33 2C  9,25,25,153,153,
000140: 32 35 2C 32 35 2C 32 32 39 2C 33 36 2C 30 2C 36  25,25,229,36,0,6
000150: 2C 30 2C 32 33 30 2C 35 34 0D 0A 09 64 62 20 32  ,0,230,54...db 2
000160: 34 36 2C 35 34 2C 32 34 36 2C 32 32 39 2C 35 2C  46,54,246,229,5,
000170: 30 2C 36 30 2C 32 32 39 2C 35 2C 31 30 32 2C 36  0,60,229,5,102,6
000180: 30 2C 32 32 39 2C 34 36 2C 30 2C 31 35 39 2C 32  0,229,46,0,159,2
000190: 32 39 2C 34 2C 32 31 37 2C 32 32 39 2C 31 37 0D  29,4,217,229,17.
0001A0: 0A 09 64 62 20 30 2C 32 35 35 2C 32 35 35 2C 32  ..db 0,255,255,2
0001B0: 32 39 2C 31 39 2C 30 2C 32 32 39 2C 35 2C 32 35  29,19,0,229,5,25
0001C0: 35 2C 32 35 34 2C 32 35 32 2C 32 35 32 2C 32 32  5,254,252,252,22
0001D0: 39 2C 34 2C 32 34 38 2C 32 34 2C 38 2C 31 34 30  9,4,248,24,8,140
0001E0: 2C 32 35 32 0D 0A 09 64 62 20 32 35 34 2C 32 32  ,252...db 254,22
0001F0: 39 2C 34 2C 32 35 35 2C 32 35 31 2C 32 34 39 2C  9,4,255,251,249,

Size : 512 (Real : 512)
000000: 09 64 62 20 31 31 32 2C 31 31 32 2C 32 32 39 2C  .db 112,112,229,
000010: 34 2C 32 34 30 2C 31 31 32 2C 31 31 32 2C 31 31  4,240,112,112,11
000020: 32 2C 32 34 30 2C 32 34 30 2C 32 32 34 2C 31 39  2,240,240,224,19
000030: 32 2C 32 32 39 2C 31 31 2C 32 35 35 2C 32 32 39  2,229,11,255,229
000040: 2C 31 30 0D 0A 09 64 62 20 30 2C 31 39 32 2C 32  ,10...db 0,192,2
000050: 32 39 2C 34 34 2C 30 2C 31 32 38 2C 32 32 39 2C  29,44,0,128,229,
000060: 39 2C 30 2C 32 34 33 2C 32 37 2C 32 35 31 2C 31  9,0,243,27,251,1
000070: 35 35 2C 32 35 31 2C 32 32 39 2C 36 38 2C 30 2C  55,251,229,68,0,
000080: 32 35 35 2C 32 35 35 0D 0A 09 64 62 20 32 32 39  255,255...db 229
000090: 2C 31 39 2C 30 2C 32 32 39 2C 34 2C 32 35 35 2C  ,19,0,229,4,255,
0000A0: 31 32 37 2C 31 31 32 2C 32 32 39 2C 32 32 2C 31  127,112,229,22,1
0000B0: 32 34 2C 35 36 2C 31 36 2C 32 32 39 2C 31 31 2C  24,56,16,229,11,
0000C0: 32 35 35 2C 32 32 39 2C 36 35 2C 30 0D 0A 09 64  255,229,65,0...d
0000D0: 62 20 32 32 37 2C 35 34 2C 35 34 2C 35 34 2C 35  b 227,54,54,54,5
0000E0: 31 2C 32 32 39 2C 36 38 2C 30 2C 32 35 35 2C 32  1,229,68,0,255,2
0000F0: 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32 39 2C  55,229,19,0,229,
000100: 34 2C 32 35 35 2C 32 32 39 2C 32 34 2C 33 31 2C  4,255,229,24,31,
000110: 31 35 0D 0A 09 64 62 20 37 2C 32 32 39 2C 31 31  15...db 7,229,11
000120: 2C 32 35 35 2C 32 32 39 2C 36 33 2C 30 2C 39 36  ,255,229,63,0,96
000130: 2C 39 36 2C 32 32 34 2C 39 36 2C 39 36 2C 39 36  ,96,224,96,96,96
000140: 2C 32 32 34 2C 32 32 39 2C 36 38 2C 30 2C 32 35  ,224,229,68,0,25
000150: 35 2C 32 35 35 2C 32 32 39 0D 0A 09 64 62 20 31  5,255,229...db 1
000160: 39 2C 30 2C 32 32 39 2C 34 31 2C 32 34 38 2C 32  9,0,229,41,248,2
000170: 32 39 2C 36 33 2C 30 2C 32 32 39 2C 36 2C 31 32  29,63,0,229,6,12
000180: 2C 31 35 2C 32 32 39 2C 36 38 2C 30 2C 32 35 35  ,15,229,68,0,255
000190: 2C 32 35 35 2C 32 32 39 2C 31 32 33 2C 30 0D 0A  ,255,229,123,0..
0001A0: 09 64 62 20 36 32 2C 34 38 2C 34 38 2C 36 30 2C  .db 62,48,48,60,
0001B0: 34 38 2C 34 38 2C 31 39 30 2C 32 32 39 2C 36 38  48,48,190,229,68
0001C0: 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31  ,0,255,255,229,1
0001D0: 32 33 2C 30 2C 31 31 31 2C 32 33 36 2C 31 31 31  23,0,111,236,111
0001E0: 2C 31 31 30 0D 0A 09 64 62 20 39 36 2C 31 30 38  ,110...db 96,108
0001F0: 2C 31 30 33 2C 32 32 39 2C 36 38 2C 30 2C 32 35  ,103,229,68,0,25

Size : 512 (Real : 512)
000000: 32 34 39 2C 32 32 39 2C 34 2C 32 34 38 2C 32 34  249,229,4,248,24
000010: 39 2C 32 35 31 2C 32 35 35 2C 31 39 30 2C 32 33  9,251,255,190,23
000020: 39 2C 31 38 39 2C 32 34 37 0D 0A 09 64 62 20 32  9,189,247...db 2
000030: 35 35 2C 32 32 33 2C 32 32 39 2C 34 2C 32 35 35  55,223,229,4,255
000040: 2C 32 32 39 2C 38 2C 30 2C 31 37 36 2C 31 32 38  ,229,8,0,176,128
000050: 2C 31 38 33 2C 32 32 39 2C 34 2C 31 38 32 2C 32  ,183,229,4,182,2
000060: 32 39 2C 33 36 2C 30 2C 33 2C 33 2C 32 31 39 0D  29,36,0,3,3,219.
000070: 0A 09 64 62 20 32 32 37 2C 31 39 35 2C 31 39 35  ..db 227,195,195
000080: 2C 31 39 35 2C 32 32 39 2C 35 2C 30 2C 31 2C 31  ,195,229,5,0,1,1
000090: 2C 31 32 31 2C 31 33 2C 31 32 35 2C 32 30 35 2C  ,121,13,125,205,
0000A0: 31 32 35 2C 32 32 39 2C 34 36 2C 30 2C 35 31 2C  125,229,46,0,51,
0000B0: 31 37 39 0D 0A 09 64 62 20 31 37 39 2C 31 35 39  179...db 179,159
0000C0: 2C 31 33 31 2C 32 38 2C 32 32 39 2C 31 36 2C 30  ,131,28,229,16,0
0000D0: 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 2C  ,255,255,229,19,
0000E0: 30 2C 32 32 39 2C 34 2C 32 35 35 2C 31 32 38 2C  0,229,4,255,128,
0000F0: 30 2C 37 2C 33 31 2C 32 32 39 0D 0A 09 64 62 20  0,7,31,229...db 
000100: 34 2C 36 33 2C 33 31 2C 37 2C 30 2C 30 2C 30 2C  4,63,31,7,0,0,0,
000110: 31 32 38 2C 32 34 38 2C 32 32 39 2C 36 2C 32 35  128,248,229,6,25
000120: 35 2C 31 32 37 2C 36 33 2C 31 33 35 2C 31 39 32  5,127,63,135,192
000130: 2C 32 34 38 2C 32 35 35 2C 32 35 31 2C 32 32 33  ,248,255,251,223
000140: 0D 0A 09 64 62 20 32 35 34 2C 31 32 37 2C 32 34  ...db 254,127,24
000150: 37 2C 31 39 31 2C 32 32 39 2C 34 2C 32 35 35 2C  7,191,229,4,255,
000160: 32 32 39 2C 31 30 2C 30 2C 31 39 39 2C 31 30 38  229,10,0,199,108
000170: 2C 31 30 38 2C 31 30 33 2C 39 36 2C 37 2C 32 32  ,108,103,96,7,22
000180: 39 2C 33 37 0D 0A 09 64 62 20 30 2C 32 33 30 2C  9,37...db 0,230,
000190: 35 34 2C 35 34 2C 35 34 2C 35 31 2C 32 32 39 2C  54,54,54,51,229,
0001A0: 35 2C 30 2C 31 33 31 2C 31 33 31 2C 31 35 35 2C  5,0,131,131,155,
0001B0: 31 37 39 2C 32 32 37 2C 31 37 39 2C 31 35 35 2C  179,227,179,155,
0001C0: 32 32 39 2C 36 38 2C 30 0D 0A 09 64 62 20 32 35  229,68,0...db 25
0001D0: 35 2C 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32  5,255,229,19,0,2
0001E0: 32 39 2C 34 2C 32 35 35 2C 37 2C 30 2C 32 34 38  29,4,255,7,0,248
0001F0: 2C 32 32 39 2C 37 2C 32 35 35 2C 31 32 37 2C 37  ,229,7,255,127,7

Size : 512 (Real : 512)
000000: 39 2C 36 38 2C 30 2C 32 35 35 0D 0A 09 64 62 20  9,68,0,255...db 
000010: 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32 39  255,229,19,0,229
000020: 2C 31 32 2C 32 35 35 2C 31 32 38 2C 31 39 32 2C  ,12,255,128,192,
000030: 32 32 34 2C 32 32 34 2C 32 34 30 2C 32 34 30 2C  224,224,240,240,
000040: 32 34 38 2C 32 34 38 2C 32 35 32 2C 32 35 32 0D  248,248,252,252.
000050: 0A 09 64 62 20 32 35 34 2C 32 35 34 2C 32 32 39  ..db 254,254,229
000060: 2C 37 2C 32 35 35 2C 31 37 30 2C 38 35 2C 31 37  ,7,255,170,85,17
000070: 30 2C 38 35 2C 31 37 30 2C 38 35 2C 32 32 39 2C  0,85,170,85,229,
000080: 34 2C 32 35 35 2C 32 32 39 2C 31 30 2C 30 2C 31  4,255,229,10,0,1
000090: 32 34 2C 32 32 39 0D 0A 09 64 62 20 34 2C 31 30  24,229...db 4,10
0000A0: 32 2C 32 32 39 2C 33 36 2C 30 2C 31 35 32 2C 31  2,229,36,0,152,1
0000B0: 39 32 2C 32 31 37 2C 31 35 35 2C 32 37 2C 31 35  92,217,155,27,15
0000C0: 35 2C 32 31 37 2C 32 32 39 2C 35 2C 30 2C 36 2C  5,217,229,5,0,6,
0000D0: 36 2C 32 30 37 2C 31 30 32 2C 31 30 32 0D 0A 09  6,207,102,102...
0000E0: 64 62 20 31 30 32 2C 39 39 2C 32 32 39 2C 36 38  db 102,99,229,68
0000F0: 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31  ,0,255,255,229,1
000100: 39 2C 30 2C 32 32 39 2C 31 32 2C 32 35 35 2C 31  9,0,229,12,255,1
000110: 31 32 2C 32 34 38 2C 32 35 32 2C 32 35 32 2C 31  12,248,252,252,1
000120: 32 36 0D 0A 09 64 62 20 31 32 36 2C 36 32 2C 36  26...db 126,62,6
000130: 32 2C 32 38 2C 32 38 2C 39 2C 39 2C 33 2C 33 2C  2,28,28,9,9,3,3,
000140: 31 33 35 2C 31 33 35 2C 32 30 37 2C 32 30 37 2C  135,135,207,207,
000150: 32 35 35 2C 31 37 30 2C 38 35 2C 31 37 30 2C 38  255,170,85,170,8
000160: 35 2C 31 37 30 2C 38 35 0D 0A 09 64 62 20 32 32  5,170,85...db 22
000170: 39 2C 34 2C 32 35 35 2C 32 32 39 2C 31 30 2C 30  9,4,255,229,10,0
000180: 2C 31 32 30 2C 32 30 35 2C 31 39 33 2C 32 30 35  ,120,205,193,205
000190: 2C 31 32 30 2C 32 32 39 2C 33 36 2C 30 2C 36 2C  ,120,229,36,0,6,
0001A0: 36 2C 32 33 31 2C 35 34 2C 36 2C 35 34 0D 0A 09  6,231,54,6,54...
0001B0: 64 62 20 32 33 30 2C 32 32 39 2C 35 36 2C 30 2C  db 230,229,56,0,
0001C0: 36 32 2C 35 31 2C 35 31 2C 36 32 2C 34 38 2C 34  62,51,51,62,48,4
0001D0: 38 2C 34 38 2C 32 32 39 2C 31 37 2C 30 2C 32 35  8,48,229,17,0,25
0001E0: 35 2C 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C 32  5,255,229,19,0,2
0001F0: 32 39 0D 0A 09 64 62 20 31 32 2C 32 35 35 2C 31  29...db 12,255,1

Size : 512 (Real : 512)
000000: 2C 30 2C 30 2C 30 2C 31 32 38 2C 32 34 38 0D 0A  ,0,0,0,128,248..
000010: 09 64 62 20 32 35 34 2C 32 32 39 2C 34 2C 32 35  .db 254,229,4,25
000020: 35 2C 32 35 34 2C 32 34 38 2C 30 2C 30 2C 32 35  5,254,248,0,0,25
000030: 35 2C 31 39 31 2C 32 35 35 2C 32 35 35 2C 32 33  5,191,255,255,23
000040: 39 2C 32 35 35 2C 32 32 33 2C 32 32 39 2C 34 2C  9,255,223,229,4,
000050: 32 35 35 0D 0A 09 64 62 20 32 32 39 2C 31 30 2C  255...db 229,10,
000060: 30 2C 32 32 39 2C 35 2C 31 39 32 2C 31 32 38 2C  0,229,5,192,128,
000070: 32 32 39 2C 33 37 2C 30 2C 31 30 39 2C 31 31 30  229,37,0,109,110
000080: 2C 31 30 38 2C 31 30 38 2C 32 33 36 2C 32 32 39  ,108,108,236,229
000090: 2C 37 2C 30 2C 32 32 37 0D 0A 09 64 62 20 34 38  ,7,0,227...db 48
0000A0: 2C 35 31 2C 35 34 2C 35 31 2C 32 32 39 2C 34 34  ,51,54,51,229,44
0000B0: 2C 30 2C 39 36 2C 39 36 2C 31 30 32 2C 31 30 38  ,0,96,96,102,108
0000C0: 2C 31 32 30 2C 31 30 38 2C 31 30 32 2C 32 32 39  ,120,108,102,229
0000D0: 2C 31 37 2C 30 2C 32 35 35 2C 32 35 35 0D 0A 09  ,17,0,255,255...
0000E0: 64 62 20 32 32 39 2C 31 39 2C 30 2C 32 32 39 2C  db 229,19,0,229,
0000F0: 34 2C 32 35 35 2C 32 34 37 2C 32 33 31 2C 37 31  4,255,247,231,71
000100: 2C 37 2C 31 33 35 2C 31 39 39 2C 32 33 31 2C 32  ,7,135,199,231,2
000110: 33 31 2C 32 34 37 2C 32 35 32 2C 32 35 35 2C 32  31,247,252,255,2
000120: 35 35 0D 0A 09 64 62 20 32 35 35 2C 33 31 2C 31  55...db 255,31,1
000130: 35 2C 31 35 2C 32 32 39 2C 36 2C 37 2C 31 35 2C  5,15,229,6,7,15,
000140: 31 35 2C 33 31 2C 31 32 37 2C 32 32 39 2C 36 2C  15,31,127,229,6,
000150: 32 35 35 2C 32 35 32 2C 32 32 39 2C 34 2C 32 35  255,252,229,4,25
000160: 35 2C 32 32 39 2C 38 0D 0A 09 64 62 20 30 2C 31  5,229,8...db 0,1
000170: 35 2C 32 35 2C 32 34 2C 32 34 2C 32 34 2C 32 35  5,25,24,24,24,25
000180: 2C 31 35 2C 32 32 39 2C 33 38 2C 30 2C 31 35 39  ,15,229,38,0,159
000190: 2C 34 38 2C 33 30 2C 33 2C 36 32 2C 32 32 39 2C  ,48,30,3,62,229,
0001A0: 37 2C 30 2C 31 39 38 2C 31 31 31 0D 0A 09 64 62  7,0,198,111...db
0001B0: 20 32 33 37 2C 31 30 38 2C 32 33 36 2C 32 32 39   237,108,236,229
0001C0: 2C 34 36 2C 30 2C 31 32 31 2C 32 30 35 2C 32 35  ,46,0,121,205,25
0001D0: 33 2C 31 39 32 2C 31 32 30 2C 32 32 39 2C 31 37  3,192,120,229,17
0001E0: 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31  ,0,255,255,229,1
0001F0: 39 0D 0A 09 64 62 20 30 2C 32 32 39 2C 31 32 2C  9...db 0,229,12,

Size : 512 (Real : 512)
000000: 35 2C 33 31 2C 33 31 2C 33 31 2C 31 35 2C 31 35  5,31,31,31,15,15
000010: 2C 37 2C 37 2C 31 33 31 2C 31 33 31 2C 31 39 33  ,7,7,131,131,193
000020: 2C 31 39 33 2C 32 32 34 2C 32 32 34 2C 32 34 30  ,193,224,224,240
000030: 2C 32 34 30 2C 32 34 39 0D 0A 09 64 62 20 32 34  ,240,249...db 24
000040: 39 2C 32 35 35 2C 31 37 31 2C 38 35 2C 31 37 30  9,255,171,85,170
000050: 2C 38 35 2C 31 37 30 2C 38 36 2C 32 32 39 2C 34  ,85,170,86,229,4
000060: 2C 32 35 35 2C 32 32 39 2C 31 30 2C 30 2C 32 34  ,255,229,10,0,24
000070: 31 2C 31 35 35 2C 32 35 31 2C 31 33 31 0D 0A 09  1,155,251,131...
000080: 64 62 20 32 34 31 2C 32 32 39 2C 33 38 2C 30 2C  db 241,229,38,0,
000090: 31 39 39 2C 39 36 2C 31 30 33 2C 31 30 38 2C 31  199,96,103,108,1
0000A0: 30 33 2C 32 32 39 2C 35 2C 30 2C 31 32 34 2C 31  03,229,5,0,124,1
0000B0: 30 32 2C 31 30 32 2C 31 32 34 2C 31 32 30 2C 31  02,102,124,120,1
0000C0: 30 38 0D 0A 09 64 62 20 31 30 32 2C 32 32 39 2C  08...db 102,229,
0000D0: 34 36 2C 30 2C 31 30 38 2C 31 31 33 2C 39 37 2C  46,0,108,113,97,
0000E0: 39 37 2C 39 36 2C 32 32 39 2C 31 37 2C 30 2C 32  97,96,229,17,0,2
0000F0: 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 2C 30 2C  55,255,229,19,0,
000100: 32 32 39 2C 31 32 0D 0A 09 64 62 20 32 35 35 2C  229,12...db 255,
000110: 32 32 34 2C 32 34 31 2C 32 34 33 2C 32 34 33 2C  224,241,243,243,
000120: 32 33 31 2C 32 33 31 2C 32 30 37 2C 32 30 37 2C  231,231,207,207,
000130: 31 35 39 2C 31 35 39 2C 36 33 2C 36 33 2C 31 32  159,159,63,63,12
000140: 37 2C 31 32 37 2C 32 32 39 2C 35 0D 0A 09 64 62  7,127,229,5...db
000150: 20 32 35 35 2C 31 38 31 2C 38 36 2C 32 33 35 2C   255,181,86,235,
000160: 38 35 2C 32 33 37 2C 31 38 36 2C 32 32 39 2C 34  85,237,186,229,4
000170: 2C 32 35 35 2C 32 32 39 2C 38 2C 30 2C 34 38 2C  ,255,229,8,0,48,
000180: 34 38 2C 32 34 30 2C 34 38 2C 34 38 2C 34 38 0D  48,240,48,48,48.
000190: 0A 09 64 62 20 32 34 30 2C 32 32 39 2C 33 38 2C  ..db 240,229,38,
0001A0: 30 2C 31 35 35 2C 32 32 30 2C 32 31 36 2C 32 31  0,155,220,216,21
0001B0: 36 2C 32 31 36 2C 32 32 39 2C 37 2C 30 2C 31 32  6,216,229,7,0,12
0001C0: 30 2C 32 30 34 2C 32 30 34 2C 32 30 35 2C 31 32  0,204,204,205,12
0001D0: 30 2C 32 32 39 0D 0A 09 64 62 20 34 36 2C 30 2C  0,229...db 46,0,
0001E0: 32 34 31 2C 31 35 35 2C 32 34 39 2C 31 32 38 2C  241,155,249,128,
0001F0: 32 34 33 2C 32 32 39 2C 31 37 2C 30 2C 32 35 35  243,229,17,0,255

Size : 512 (Real : 512)
000000: 32 35 35 2C 31 33 35 2C 34 2C 31 2C 32 32 39 2C  255,135,4,1,229,
000010: 31 31 2C 37 2C 33 2C 31 2C 34 2C 32 32 39 2C 37  11,7,3,1,4,229,7
000020: 2C 37 2C 31 2C 32 32 39 2C 34 2C 32 35 35 2C 32  ,7,1,229,4,255,2
000030: 32 39 2C 38 2C 30 0D 0A 09 64 62 20 34 38 2C 31  29,8,0...db 48,1
000040: 37 36 2C 36 32 2C 35 31 2C 35 31 2C 31 37 39 2C  76,62,51,51,179,
000050: 35 31 2C 32 32 39 2C 33 36 2C 30 2C 34 38 2C 34  51,229,36,0,48,4
000060: 38 2C 31 32 30 2C 34 38 2C 34 38 2C 34 38 2C 32  8,120,48,48,48,2
000070: 34 2C 32 32 39 2C 37 2C 30 2C 31 39 32 0D 0A 09  4,229,7,0,192...
000080: 64 62 20 32 32 34 2C 39 36 2C 31 30 32 2C 31 30  db 224,96,102,10
000090: 32 2C 31 32 2C 32 32 39 2C 34 35 2C 30 2C 31 35  2,12,229,45,0,15
0000A0: 32 2C 31 35 32 2C 31 35 32 2C 32 34 38 2C 32 34  2,152,152,248,24
0000B0: 2C 32 32 34 2C 32 32 39 2C 31 36 2C 30 2C 32 35  ,224,229,16,0,25
0000C0: 35 0D 0A 09 64 62 20 32 35 35 2C 32 32 39 2C 31  5...db 255,229,1
0000D0: 39 2C 30 2C 32 32 39 2C 31 32 2C 32 35 35 2C 31  9,0,229,12,255,1
0000E0: 33 31 2C 30 2C 31 39 32 2C 32 34 38 2C 32 35 34  31,0,192,248,254
0000F0: 2C 32 35 34 2C 32 32 39 2C 38 2C 32 35 35 2C 32  ,254,229,8,255,2
000100: 35 34 2C 32 35 34 0D 0A 09 64 62 20 31 32 30 2C  54,254...db 120,
000110: 31 2C 32 32 39 2C 31 31 2C 32 35 35 2C 32 32 39  1,229,11,255,229
000120: 2C 31 30 2C 30 2C 36 30 2C 31 30 32 2C 31 32 36  ,10,0,60,102,126
000130: 2C 39 36 2C 36 30 2C 32 32 39 2C 33 36 2C 30 2C  ,96,60,229,36,0,
000140: 31 2C 33 2C 32 32 39 2C 35 2C 31 0D 0A 09 64 62  1,3,229,5,1...db
000150: 20 32 32 39 2C 38 30 2C 30 2C 32 35 35 2C 32 35   229,80,0,255,25
000160: 35 2C 32 32 39 2C 31 39 2C 30 2C 32 32 39 2C 31  5,229,19,0,229,1
000170: 33 2C 32 35 35 2C 31 32 37 2C 36 33 2C 33 31 2C  3,255,127,63,31,
000180: 31 34 2C 31 34 2C 32 32 39 2C 36 2C 34 2C 31 32  14,14,229,6,4,12
000190: 0D 0A 09 64 62 20 31 34 2C 33 30 2C 36 33 2C 31  ...db 14,30,63,1
0001A0: 32 37 2C 32 32 39 2C 31 32 2C 32 35 35 2C 32 32  27,229,12,255,22
0001B0: 39 2C 38 2C 30 2C 31 2C 31 2C 31 32 31 2C 32 30  9,8,0,1,1,121,20
0001C0: 35 2C 31 39 33 2C 32 30 35 2C 31 32 31 2C 32 32  5,193,205,121,22
0001D0: 39 2C 33 36 0D 0A 09 64 62 20 30 2C 31 35 39 2C  9,36...db 0,159,
0001E0: 31 37 37 2C 31 37 37 2C 31 35 39 2C 31 32 39 2C  177,177,159,129,
0001F0: 31 33 31 2C 31 35 38 2C 32 32 39 2C 35 2C 30 2C  131,158,229,5,0,

Size : 512 (Real : 512)
000000: 2C 38 30 2C 38 31 2C 36 35 2C 36 39 2C 35 2C 32  ,80,81,65,69,5,2
000010: 30 2C 30 2C 38 35 2C 36 34 0D 0A 09 64 62 20 30  0,0,85,64...db 0
000020: 2C 38 35 2C 36 35 2C 38 34 2C 35 2C 38 34 2C 32  ,85,65,84,5,84,2
000030: 31 2C 38 30 2C 30 2C 31 2C 38 35 2C 32 31 2C 38  1,80,0,1,85,21,8
000040: 30 2C 32 31 2C 36 35 2C 36 34 2C 30 2C 30 2C 38  0,21,65,64,0,0,8
000050: 35 2C 36 39 2C 35 2C 38 30 2C 35 2C 32 30 2C 32  5,69,5,80,5,20,2
000060: 31 2C 36 35 2C 36 35 2C 36 35 2C 38 35 2C 32 30  1,65,65,65,85,20
000070: 2C 30 2C 31 2C 36 34 0D 0A 09 64 62 20 30 2C 30  ,0,1,64...db 0,0
000080: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000090: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000A0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 38 35 2C 30 0D  ,0,0,0,0,0,85,0.
0000C0: 0A 09 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20  ..ds 33: ds 33: 
0000D0: 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20 64 73  ds 33: ds 33: ds
0000E0: 20 33 33 3A 20 64 73 20 33 33 3A 20 64 73 20 33   33: ds 33: ds 3
0000F0: 33 3A 20 64 73 20 33 33 0D 0A 09 64 62 20 30 2C  3: ds 33...db 0,
000100: 38 35 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  85,0,0,0,0,0,0,0
000110: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000120: 2C 30 2C 30 2C 38 31 2C 36 34 2C 30 2C 35 2C 35  ,0,0,81,64,0,5,5
000130: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000140: 2C 30 0D 0A 09 64 62 20 31 2C 36 35 2C 36 34 2C  ,0...db 1,65,64,
000150: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000160: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000170: 38 30 2C 30 2C 30 2C 35 2C 30 2C 30 2C 30 2C 30  80,0,0,5,0,0,0,0
000180: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64  ,0,0,0,0,0,0...d
000190: 62 20 30 2C 38 30 2C 31 2C 38 34 2C 32 30 2C 35  b 0,80,1,84,20,5
0001A0: 2C 35 2C 38 30 2C 30 2C 31 2C 36 35 2C 36 35 2C  ,5,80,0,1,65,65,
0001B0: 38 35 2C 35 2C 38 30 2C 38 31 2C 36 34 2C 30 2C  85,5,80,81,64,0,
0001C0: 32 31 2C 38 31 2C 36 35 2C 38 34 2C 32 31 2C 36  21,81,65,84,21,6
0001D0: 39 2C 35 2C 38 30 2C 38 35 2C 36 34 2C 38 35 2C  9,5,80,85,64,85,
0001E0: 35 2C 32 30 2C 38 30 2C 38 30 0D 0A 09 64 62 20  5,20,80,80...db 
0001F0: 30 2C 32 30 2C 30 2C 35 2C 32 30 2C 35 2C 32 30  0,20,0,5,20,5,20

Size : 512 (Real : 512)
000000: 35 2C 32 32 39 2C 31 39 38 2C 30 2C 32 35 35 0D  5,229,198,0,255.
000010: 0A 09 64 62 20 32 35 35 2C 32 32 39 2C 31 39 38  ..db 255,229,198
000020: 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31  ,0,255,255,229,1
000030: 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39  98,0,255,255,229
000040: 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32  ,198,0,255,255,2
000050: 32 39 2C 31 39 38 0D 0A 09 64 62 20 33 2C 32 35  29,198...db 3,25
000060: 35 2C 32 32 39 2C 30 2C 30 2C 30 2C 30 2C 30 2C  5,229,0,0,0,0,0,
000070: 30 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41 09  0.....;*** DATA.
000080: 4D 65 6E 75 20 73 70 72 69 74 65 0D 0A 0D 0A 2E  Menu sprite.....
000090: 6D 65 6E 75 73 70 09 64 62 20 30 2C 30 2C 30 2C  menusp.db 0,0,0,
0000A0: 30 2C 30 2C 38 35 2C 35 2C 30 2C 30 2C 30 2C 30  0,0,85,5,0,0,0,0
0000B0: 2C 31 2C 36 34 2C 30 2C 30 2C 30 2C 38 30 2C 30  ,1,64,0,0,0,80,0
0000C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000D0: 2C 30 2C 31 2C 36 34 2C 30 2C 30 2C 30 2C 30 0D  ,0,1,64,0,0,0,0.
0000E0: 0A 09 64 62 20 30 2C 30 2C 30 2C 30 2C 31 2C 36  ..db 0,0,0,0,1,6
0000F0: 35 2C 36 39 2C 30 2C 30 2C 30 2C 30 2C 31 2C 36  5,69,0,0,0,0,1,6
000100: 34 2C 30 2C 30 2C 30 2C 38 30 2C 30 2C 30 2C 30  4,0,0,0,80,0,0,0
000110: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31  ,0,0,0,0,0,0,0,1
000120: 2C 36 34 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64 62  ,64,0,0,0,0...db
000130: 20 30 2C 30 2C 30 2C 30 2C 31 2C 36 34 2C 35 2C   0,0,0,0,1,64,5,
000140: 38 34 2C 35 2C 38 30 2C 32 31 2C 36 35 2C 36 35  84,5,80,21,65,65
000150: 2C 36 34 2C 30 2C 32 31 2C 38 30 2C 38 35 2C 31  ,64,0,21,80,85,1
000160: 2C 38 34 2C 32 30 2C 32 30 2C 32 30 2C 38 30 2C  ,84,20,20,20,80,
000170: 32 31 2C 36 35 2C 38 35 2C 35 2C 38 30 2C 30 2C  21,65,85,5,80,0,
000180: 30 2C 30 2C 30 0D 0A 09 64 62 20 30 2C 30 2C 30  0,0,0...db 0,0,0
000190: 2C 30 2C 31 2C 36 34 2C 35 2C 35 2C 32 30 2C 32  ,0,1,64,5,5,20,2
0001A0: 30 2C 38 30 2C 38 31 2C 36 39 2C 30 2C 30 2C 38  0,80,81,69,0,0,8
0001B0: 30 2C 38 31 2C 36 35 2C 36 39 2C 35 2C 32 30 2C  0,81,65,69,5,20,
0001C0: 32 30 2C 38 35 2C 38 34 2C 38 30 2C 38 31 2C 36  20,85,84,80,81,6
0001D0: 35 2C 36 35 2C 36 34 2C 30 2C 30 2C 30 2C 30 0D  5,65,64,0,0,0,0.
0001E0: 0A 09 64 62 20 30 2C 30 2C 30 2C 30 2C 31 2C 36  ..db 0,0,0,0,1,6
0001F0: 34 2C 35 2C 35 2C 32 31 2C 38 34 2C 38 30 2C 31  4,5,5,21,84,80,1

Size : 512 (Real : 512)
000000: 2C 32 30 2C 30 2C 31 2C 36 35 2C 36 39 2C 30 2C  ,20,0,1,65,69,0,
000010: 32 30 2C 32 30 2C 38 34 2C 30 2C 30 2C 38 30 2C  20,20,84,0,0,80,
000020: 38 31 2C 36 39 2C 35 2C 35 2C 35 2C 32 30 2C 32  81,69,5,5,5,20,2
000030: 30 2C 38 30 2C 38 30 2C 31 2C 36 39 2C 36 34 2C  0,80,80,1,69,64,
000040: 38 30 2C 38 30 0D 0A 09 64 62 20 30 2C 35 2C 31  80,80...db 0,5,1
000050: 2C 38 35 2C 35 2C 32 30 2C 32 31 2C 38 34 2C 30  ,85,5,20,21,84,0
000060: 2C 31 2C 36 35 2C 36 35 2C 38 34 2C 32 31 2C 38  ,1,65,65,84,21,8
000070: 34 2C 38 30 2C 30 2C 30 2C 38 30 2C 38 31 2C 36  4,80,0,0,80,81,6
000080: 39 2C 30 2C 35 2C 35 2C 32 30 2C 32 30 2C 38 30  9,0,5,5,20,20,80
000090: 2C 38 30 2C 38 35 2C 36 39 2C 30 2C 38 30 2C 38  ,80,85,69,0,80,8
0000A0: 30 0D 0A 09 64 62 20 31 2C 36 35 2C 36 39 2C 35  0...db 1,65,69,5
0000B0: 2C 31 2C 38 30 2C 32 30 2C 30 2C 30 2C 31 2C 36  ,1,80,20,0,0,1,6
0000C0: 35 2C 36 34 2C 35 2C 32 30 2C 30 2C 38 30 2C 30  5,64,5,20,0,80,0
0000D0: 2C 30 2C 38 30 2C 38 31 2C 36 39 2C 35 2C 35 2C  ,0,80,81,69,5,5,
0000E0: 35 2C 32 30 2C 32 30 2C 38 30 2C 38 31 2C 36 35  5,20,20,80,81,65
0000F0: 2C 36 39 2C 30 2C 32 31 2C 38 30 0D 0A 09 64 62  ,69,0,21,80...db
000100: 20 30 2C 38 35 2C 31 2C 38 35 2C 30 2C 36 34 2C   0,85,1,85,0,64,
000110: 35 2C 38 30 2C 30 2C 30 2C 38 35 2C 36 39 2C 38  5,80,0,0,85,69,8
000120: 34 2C 35 2C 38 30 2C 38 30 2C 30 2C 30 2C 32 31  4,5,80,80,0,0,21
000130: 2C 38 31 2C 36 35 2C 38 34 2C 31 2C 36 39 2C 35  ,81,65,84,1,69,5
000140: 2C 38 30 2C 38 30 2C 38 30 2C 38 35 2C 36 39 2C  ,80,80,80,85,69,
000150: 30 2C 30 2C 38 30 0D 0A 09 64 62 20 30 2C 30 2C  0,0,80...db 0,0,
000160: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000170: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000180: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000190: 30 2C 30 2C 30 2C 30 2C 30 2C 32 31 2C 36 34 0D  0,0,0,0,0,21,64.
0001A0: 0A 09 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20  ..ds 33: ds 33: 
0001B0: 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20 64 73  ds 33: ds 33: ds
0001C0: 20 33 33 3A 20 64 73 20 33 33 3A 20 64 73 20 33   33: ds 33: ds 3
0001D0: 33 3A 20 64 73 20 33 33 0D 0A 09 64 62 20 30 2C  3: ds 33...db 0,
0001E0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 38 34  0,0,0,0,0,0,1,84
0001F0: 2C 30 2C 30 2C 30 2C 31 2C 36 34 2C 30 2C 30 2C  ,0,0,0,1,64,0,0,

Size : 512 (Real : 512)
000000: 2C 38 34 2C 30 2C 30 2C 38 30 2C 38 31 2C 36 35  ,84,0,0,80,81,65
000010: 2C 36 39 2C 30 2C 32 30 2C 32 30 2C 38 31 2C 32  ,69,0,20,20,81,2
000020: 30 2C 38 35 2C 38 31 2C 36 35 2C 36 35 2C 36 34  0,85,81,65,65,64
000030: 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64 62 20 30 2C  ,0,0,0,0...db 0,
000040: 30 2C 30 2C 30 2C 31 2C 36 35 2C 36 39 2C 35 2C  0,0,0,1,65,69,5,
000050: 32 30 2C 30 2C 38 30 2C 38 31 2C 36 39 2C 30 2C  20,0,80,81,69,0,
000060: 30 2C 38 30 2C 38 31 2C 36 35 2C 36 39 2C 35 2C  0,80,81,65,69,5,
000070: 32 30 2C 32 30 2C 38 30 2C 32 30 2C 38 30 2C 31  20,20,80,20,80,1
000080: 2C 36 35 2C 36 35 2C 36 34 2C 30 2C 30 2C 30 2C  ,65,65,64,0,0,0,
000090: 30 0D 0A 09 64 62 20 30 2C 30 2C 30 2C 30 2C 30  0...db 0,0,0,0,0
0000A0: 2C 38 35 2C 35 2C 35 2C 35 2C 38 30 2C 32 31 2C  ,85,5,5,5,80,21,
0000B0: 36 35 2C 36 35 2C 36 34 2C 30 2C 32 31 2C 38 30  65,65,64,0,21,80
0000C0: 2C 38 35 2C 31 2C 38 34 2C 35 2C 38 34 2C 38 30  ,85,1,84,5,84,80
0000D0: 2C 32 30 2C 32 31 2C 36 35 2C 36 35 2C 36 34 2C  ,20,21,65,65,64,
0000E0: 38 30 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64 73 20  80,0,0,0,0...ds 
0000F0: 33 33 3A 20 64 73 20 33 33 3A 20 64 73 20 33 33  33: ds 33: ds 33
000100: 3A 20 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20  : ds 33: ds 33: 
000110: 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20 64 73  ds 33: ds 33: ds
000120: 20 33 33 3A 20 64 73 20 33 33 0D 0A 09 64 62 20   33: ds 33...db 
000130: 30 2C 31 2C 38 35 2C 30 2C 32 30 2C 38 30 2C 38  0,1,85,0,20,80,8
000140: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000150: 30 2C 30 2C 30 2C 30 2C 38 31 2C 36 34 2C 30 2C  0,0,0,0,81,64,0,
000160: 35 2C 35 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  5,5,0,0,0,0,0,0,
000170: 30 2C 30 2C 30 2C 30 0D 0A 09 64 62 20 30 2C 31  0,0,0,0...db 0,1
000180: 2C 36 34 2C 30 2C 32 30 2C 30 2C 38 30 2C 30 2C  ,64,0,20,0,80,0,
000190: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001A0: 30 2C 30 2C 38 30 2C 30 2C 30 2C 35 2C 30 2C 30  0,0,80,0,0,5,0,0
0001B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001C0: 2C 30 0D 0A 09 64 62 20 30 2C 31 2C 36 34 2C 35  ,0...db 0,1,64,5
0001D0: 2C 38 34 2C 38 31 2C 38 34 2C 30 2C 31 2C 36 35  ,84,81,84,0,1,65
0001E0: 2C 36 35 2C 38 35 2C 35 2C 38 30 2C 38 31 2C 36  ,65,85,5,80,81,6
0001F0: 34 2C 30 2C 32 31 2C 38 31 2C 36 35 2C 38 34 2C  4,0,21,81,65,84,

Size : 512 (Real : 512)
000000: 30 2C 30 2C 30 2C 38 30 2C 38 30 2C 30 2C 30 2C  0,0,0,80,80,0,0,
000010: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000020: 30 2C 30 0D 0A 09 64 62 20 30 2C 30 2C 30 2C 30  0,0...db 0,0,0,0
000030: 2C 30 2C 30 2C 30 2C 30 2C 38 30 2C 30 2C 30 2C  ,0,0,0,0,80,0,0,
000040: 30 2C 31 2C 36 34 2C 30 2C 30 2C 30 2C 30 2C 30  0,1,64,0,0,0,0,0
000050: 2C 38 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  ,80,0,0,0,0,0,0,
000060: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 09  0,0,0,0,0,0,0...
000070: 64 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  db 0,0,0,0,0,0,0
000080: 2C 30 2C 38 30 2C 38 35 2C 36 34 2C 38 35 2C 36  ,0,80,85,64,85,6
000090: 39 2C 38 31 2C 36 39 2C 32 30 2C 32 30 2C 32 31  9,81,69,20,20,21
0000A0: 2C 36 35 2C 38 34 2C 38 30 2C 38 35 2C 35 2C 38  ,65,84,80,85,5,8
0000B0: 34 2C 35 2C 38 34 2C 30 2C 30 2C 30 2C 30 2C 30  4,5,84,0,0,0,0,0
0000C0: 2C 30 2C 30 0D 0A 09 64 62 20 30 2C 30 2C 30 2C  ,0,0...db 0,0,0,
0000D0: 30 2C 30 2C 30 2C 30 2C 30 2C 38 30 2C 38 30 2C  0,0,0,0,0,80,80,
0000E0: 38 31 2C 36 34 2C 31 2C 36 35 2C 38 30 2C 32 30  81,64,1,65,80,20
0000F0: 2C 32 30 2C 38 30 2C 38 30 2C 38 30 2C 38 31 2C  ,20,80,80,80,81,
000100: 36 35 2C 36 39 2C 35 2C 32 30 2C 30 2C 30 2C 30  65,69,5,20,0,0,0
000110: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64 62 20  ,0,0,0,0,0...db 
000120: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000130: 38 30 2C 38 30 2C 38 30 2C 38 35 2C 31 2C 36 35  80,80,80,85,1,65
000140: 2C 36 34 2C 32 30 2C 32 30 2C 38 30 2C 30 2C 38  ,64,20,20,80,0,8
000150: 30 2C 38 31 2C 36 35 2C 36 39 2C 35 2C 35 2C 38  0,81,65,69,5,5,8
000160: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D  0,0,0,0,0,0,0,0.
000170: 0A 09 64 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30  ..db 0,0,0,0,0,0
000180: 2C 30 2C 30 2C 38 30 2C 38 30 2C 38 30 2C 31 2C  ,0,0,80,80,80,1,
000190: 36 35 2C 36 35 2C 36 34 2C 32 30 2C 32 30 2C 38  65,65,64,20,20,8
0001A0: 30 2C 38 30 2C 38 30 2C 38 31 2C 36 35 2C 36 39  0,80,80,81,65,69
0001B0: 2C 35 2C 30 2C 32 30 2C 30 2C 30 2C 30 2C 30 2C  ,5,0,20,0,0,0,0,
0001C0: 30 2C 30 2C 30 0D 0A 09 64 62 20 30 2C 30 2C 30  0,0,0...db 0,0,0
0001D0: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 38 34 2C 38 30  ,0,0,0,0,1,84,80
0001E0: 2C 38 31 2C 38 35 2C 30 2C 38 31 2C 36 34 2C 35  ,81,85,0,81,64,5
0001F0: 2C 38 34 2C 32 31 2C 36 34 2C 32 30 2C 38 30 2C  ,84,21,64,20,80,

Size : 512 (Real : 512)
000000: 32 31 2C 36 39 2C 35 2C 38 30 2C 38 35 2C 36 34  21,69,5,80,85,64
000010: 2C 38 35 2C 35 2C 32 30 2C 38 30 2C 38 30 2C 30  ,85,5,20,80,80,0
000020: 0D 0A 09 64 62 20 30 2C 31 2C 38 34 2C 32 30 2C  ...db 0,1,84,20,
000030: 32 30 2C 38 30 2C 38 30 2C 30 2C 31 2C 36 35 2C  20,80,80,0,1,65,
000040: 36 39 2C 30 2C 32 30 2C 32 30 2C 38 34 2C 30 2C  69,0,20,20,84,0,
000050: 30 2C 38 30 2C 38 31 2C 36 39 2C 35 2C 35 2C 35  0,80,81,69,5,5,5
000060: 2C 32 30 2C 32 30 2C 38 30 2C 38 30 2C 31 2C 36  ,20,20,80,80,1,6
000070: 39 2C 36 34 2C 38 30 2C 38 30 2C 30 0D 0A 09 64  9,64,80,80,0...d
000080: 62 20 30 2C 31 2C 36 34 2C 32 30 2C 32 30 2C 38  b 0,1,64,20,20,8
000090: 30 2C 38 30 2C 30 2C 31 2C 36 35 2C 36 35 2C 38  0,80,0,1,65,65,8
0000A0: 34 2C 32 31 2C 38 34 2C 38 30 2C 30 2C 30 2C 38  4,21,84,80,0,0,8
0000B0: 30 2C 38 31 2C 36 39 2C 30 2C 35 2C 35 2C 32 30  0,81,69,0,5,5,20
0000C0: 2C 32 30 2C 38 30 2C 38 30 2C 38 35 2C 36 39 2C  ,20,80,80,85,69,
0000D0: 30 2C 38 30 2C 38 30 2C 30 0D 0A 09 64 62 20 30  0,80,80,0...db 0
0000E0: 2C 31 2C 36 34 2C 32 30 2C 32 30 2C 38 30 2C 38  ,1,64,20,20,80,8
0000F0: 30 2C 30 2C 31 2C 36 35 2C 36 34 2C 35 2C 32 30  0,0,1,65,64,5,20
000100: 2C 30 2C 38 30 2C 30 2C 30 2C 38 30 2C 38 31 2C  ,0,80,0,0,80,81,
000110: 36 39 2C 35 2C 35 2C 35 2C 32 30 2C 32 30 2C 38  69,5,5,5,20,20,8
000120: 30 2C 38 31 2C 36 35 2C 36 39 2C 30 2C 32 31 2C  0,81,65,69,0,21,
000130: 38 30 2C 30 0D 0A 09 64 62 20 30 2C 31 2C 38 35  80,0...db 0,1,85
000140: 2C 35 2C 38 34 2C 38 30 2C 32 30 2C 30 2C 30 2C  ,5,84,80,20,0,0,
000150: 38 35 2C 36 39 2C 38 34 2C 35 2C 38 30 2C 38 30  85,69,84,5,80,80
000160: 2C 30 2C 30 2C 32 31 2C 38 31 2C 36 35 2C 38 34  ,0,0,21,81,65,84
000170: 2C 31 2C 36 39 2C 35 2C 38 30 2C 38 30 2C 38 30  ,1,69,5,80,80,80
000180: 2C 38 35 2C 36 39 2C 30 2C 30 2C 38 30 2C 30 0D  ,85,69,0,0,80,0.
000190: 0A 09 64 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30  ..db 0,0,0,0,0,0
0001A0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001D0: 2C 32 31 2C 36 34 2C 30 0D 0A 09 64 73 20 33 33  ,21,64,0...ds 33
0001E0: 3A 20 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20  : ds 33: ds 33: 
0001F0: 64 73 20 33 33 3A 20 64 73 20 33 33 3A 20 64 73  ds 33: ds 33: ds

Size : 512 (Real : 512)
000000: 38 35 2C 35 2C 35 2C 32 31 2C 38 30 2C 30 2C 30  85,5,5,21,80,0,0
000010: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 0D 0A 0D 0A  ,0,0,0,0,0......
000020: 09 3B 2A 2A 2A 20 52 4F 55 54 09 43 68 65 63 6B  .;*** ROUT.Check
000030: 20 64 6F 63 75 6D 65 6E 74 0D 0A 0D 0A 2E 73 70   document.....sp
000040: 65 6C 6C 09 63 61 6C 6C 20 63 6C 65 61 72 3A 20  ell.call clear: 
000050: 63 61 6C 6C 20 63 6C 73 32 0D 0A 09 6C 64 20 68  call cls2...ld h
000060: 6C 2C 73 66 6E 5F 74 78 3A 20 63 61 6C 6C 20 73  l,sfn_tx: call s
000070: 74 72 69 6E 67 3A 20 6C 64 20 69 78 2C 73 66 6E  tring: ld ix,sfn
000080: 20 20 20 3A 20 63 61 6C 6C 20 69 6E 70 75 74 3A     : call input:
000090: 20 6A 70 20 63 20 2C 6D 61 69 6E 0D 0A 09 09 09   jp c ,main.....
0000A0: 09 20 20 20 6C 64 20 64 65 2C 69 6E 62 75 66 66  .   ld de,inbuff
0000B0: 3A 20 63 61 6C 6C 20 26 42 43 37 37 3A 20 6A 70  : call &BC77: jp
0000C0: 20 6E 63 2C 70 61 75 73 65 0D 0A 09 09 09 09 20   nc,pause...... 
0000D0: 20 20 6C 64 20 28 66 74 79 70 65 29 2C 61 3A 20    ld (ftype),a: 
0000E0: 6C 64 20 28 68 65 61 64 65 72 29 2C 68 6C 0D 0A  ld (header),hl..
0000F0: 09 6C 64 20 68 6C 2C 64 66 6E 5F 74 78 3A 20 63  .ld hl,dfn_tx: c
000100: 61 6C 6C 20 73 74 72 69 6E 67 3A 20 6C 64 20 69  all string: ld i
000110: 78 2C 64 66 6E 20 20 20 3A 20 63 61 6C 6C 20 69  x,dfn   : call i
000120: 6E 70 75 74 3A 20 6A 70 20 63 20 2C 6D 61 69 6E  nput: jp c ,main
000130: 0D 0A 09 09 09 09 20 20 20 6C 64 20 64 65 2C 6F  ......   ld de,o
000140: 74 62 75 66 66 3A 20 63 61 6C 6C 20 26 42 43 38  tbuff: call &BC8
000150: 43 3A 20 6A 70 20 6E 63 2C 70 61 75 73 65 0D 0A  C: jp nc,pause..
000160: 09 6C 64 20 61 2C 28 66 74 79 70 65 29 3A 20 63  .ld a,(ftype): c
000170: 70 20 26 32 32 3A 20 63 61 6C 6C 20 6E 7A 2C 72  p &22: call nz,r
000180: 65 74 79 70 65 0D 0A 0D 0A 09 6C 64 20 68 6C 2C  etype.....ld hl,
000190: 30 20 20 20 20 3A 20 6C 64 20 28 77 6F 72 64 73  0    : ld (words
0001A0: 20 29 2C 68 6C 09 09 3B 5A 65 72 6F 20 77 6F 72   ),hl..;Zero wor
0001B0: 64 20 63 6F 75 6E 74 0D 0A 09 6C 64 20 68 6C 2C  d count...ld hl,
0001C0: 26 34 30 30 30 3A 20 6C 64 20 28 69 67 5F 74 6F  &4000: ld (ig_to
0001D0: 70 29 2C 68 6C 09 09 3B 5A 65 72 6F 20 22 69 67  p),hl..;Zero "ig
0001E0: 6E 6F 72 65 22 20 64 69 63 74 69 6F 6E 61 72 79  nore" dictionary
0001F0: 0D 0A 09 63 61 6C 6C 20 63 6C 73 31 09 09 09 09  ...call cls1....

Size : 512 (Real : 512)
000000: 20 33 33 3A 20 64 73 20 33 33 3A 20 64 73 20 33   33: ds 33: ds 3
000010: 33 0D 0A 09 64 62 20 30 2C 38 30 2C 30 2C 30 2C  3...db 0,80,0,0,
000020: 30 2C 30 2C 30 2C 38 30 2C 30 2C 30 2C 30 2C 30  0,0,0,80,0,0,0,0
000030: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 36  ,0,0,0,0,0,0,1,6
000040: 39 2C 30 2C 30 2C 32 30 2C 32 30 2C 30 2C 30 2C  9,0,0,20,20,0,0,
000050: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 09  0,0,0,0,0,0,0...
000060: 64 62 20 30 2C 38 30 2C 30 2C 30 2C 30 2C 30 2C  db 0,80,0,0,0,0,
000070: 30 2C 38 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  0,80,0,0,0,0,0,0
000080: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 36 34 2C 30 2C  ,0,0,0,0,1,64,0,
000090: 30 2C 32 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  0,20,0,0,0,0,0,0
0000A0: 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64 62 20 30 2C  ,0,0,0,0...db 0,
0000B0: 38 30 2C 31 2C 38 34 2C 35 2C 38 30 2C 32 31 2C  80,1,84,5,80,21,
0000C0: 38 30 2C 30 2C 35 2C 35 2C 35 2C 38 34 2C 32 31  80,0,5,5,5,84,21
0000D0: 2C 36 35 2C 36 39 2C 30 2C 30 2C 38 35 2C 36 39  ,65,69,0,0,85,69
0000E0: 2C 35 2C 38 30 2C 38 35 2C 32 30 2C 32 31 2C 36  ,5,80,85,20,21,6
0000F0: 35 2C 38 35 2C 31 2C 38 34 2C 32 30 2C 38 31 2C  5,85,1,84,20,81,
000100: 36 35 2C 36 34 0D 0A 09 64 62 20 30 2C 38 30 2C  65,64...db 0,80,
000110: 35 2C 35 2C 30 2C 32 30 2C 38 30 2C 38 30 2C 30  5,5,0,20,80,80,0
000120: 2C 35 2C 35 2C 32 30 2C 30 2C 38 30 2C 38 31 2C  ,5,5,20,0,80,81,
000130: 38 30 2C 30 2C 31 2C 36 35 2C 36 39 2C 32 30 2C  80,0,1,65,69,20,
000140: 32 30 2C 32 30 2C 32 30 2C 38 30 2C 38 31 2C 36  20,20,20,80,81,6
000150: 35 2C 36 34 2C 35 2C 32 31 2C 31 2C 36 35 2C 36  5,64,5,21,1,65,6
000160: 34 0D 0A 09 64 62 20 30 2C 38 30 2C 35 2C 35 2C  4...db 0,80,5,5,
000170: 35 2C 38 34 2C 38 30 2C 38 30 2C 30 2C 35 2C 35  5,84,80,80,0,5,5
000180: 2C 35 2C 38 30 2C 38 35 2C 38 31 2C 36 34 2C 30  ,5,80,85,81,64,0
000190: 2C 31 2C 36 35 2C 36 39 2C 32 30 2C 30 2C 32 30  ,1,65,69,20,0,20
0001A0: 2C 32 30 2C 38 30 2C 38 31 2C 36 35 2C 36 35 2C  ,20,80,81,65,65,
0001B0: 38 35 2C 32 30 2C 31 2C 36 35 2C 36 34 0D 0A 09  85,20,1,65,64...
0001C0: 64 62 20 30 2C 38 30 2C 35 2C 35 2C 32 30 2C 32  db 0,80,5,5,20,2
0001D0: 30 2C 38 30 2C 38 30 2C 30 2C 35 2C 35 2C 30 2C  0,80,80,0,5,5,0,
0001E0: 32 30 2C 38 30 2C 31 2C 36 34 2C 30 2C 31 2C 36  20,80,1,64,0,1,6
0001F0: 35 2C 36 39 2C 32 30 2C 32 30 2C 32 30 2C 32 30  5,69,20,20,20,20

Size : 512 (Real : 512)
000000: 35 2C 32 35 35 2C 32 32 39 2C 31 32 33 2C 30 2C  5,255,229,123,0,
000010: 32 32 34 2C 30 2C 31 39 32 2C 39 36 2C 39 36 2C  224,0,192,96,96,
000020: 39 36 2C 31 39 32 2C 32 32 39 0D 0A 09 64 62 20  96,192,229...db 
000030: 36 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39  68,0,255,255,229
000040: 2C 31 32 33 2C 30 2C 33 2C 36 2C 31 32 2C 31 35  ,123,0,3,6,12,15
000050: 2C 31 32 2C 31 32 2C 37 2C 32 32 39 2C 36 38 2C  ,12,12,7,229,68,
000060: 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 32  0,255,255,229,12
000070: 33 0D 0A 09 64 62 20 30 2C 32 30 34 2C 31 32 2C  3...db 0,204,12,
000080: 31 32 2C 32 30 37 2C 31 30 38 2C 31 30 38 2C 32  12,207,108,108,2
000090: 30 34 2C 32 32 39 2C 36 38 2C 30 2C 32 35 35 2C  04,229,68,0,255,
0000A0: 32 35 35 2C 32 32 39 2C 31 32 33 2C 30 2C 32 32  255,229,123,0,22
0000B0: 33 2C 32 31 36 0D 0A 09 64 62 20 32 31 36 2C 32  3,216...db 216,2
0000C0: 32 32 2C 32 31 36 2C 32 31 36 2C 32 31 36 2C 32  22,216,216,216,2
0000D0: 32 39 2C 36 38 2C 30 2C 32 35 35 2C 32 35 35 2C  29,68,0,255,255,
0000E0: 32 32 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35  229,198,0,255,25
0000F0: 35 2C 32 32 39 2C 31 39 38 0D 0A 09 64 62 20 30  5,229,198...db 0
000100: 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 38  ,255,255,229,198
000110: 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31  ,0,255,255,229,1
000120: 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32 39  98,0,255,255,229
000130: 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 0D 0A  ,198,0,255,255..
000140: 09 64 62 20 32 32 39 2C 31 39 38 2C 30 2C 32 35  .db 229,198,0,25
000150: 35 2C 32 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C  5,255,229,198,0,
000160: 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39 38 2C  255,255,229,198,
000170: 30 2C 32 35 35 2C 32 35 35 2C 32 32 39 2C 31 39  0,255,255,229,19
000180: 38 2C 30 0D 0A 09 64 62 20 32 35 35 2C 32 35 35  8,0...db 255,255
000190: 2C 32 32 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32  ,229,198,0,255,2
0001A0: 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C 32 35 35  55,229,198,0,255
0001B0: 2C 32 35 35 2C 32 32 39 2C 31 39 38 2C 30 2C 32  ,255,229,198,0,2
0001C0: 35 35 2C 32 35 35 2C 32 32 39 0D 0A 09 64 62 20  55,255,229...db 
0001D0: 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C 32 32  198,0,255,255,22
0001E0: 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35 35 2C  9,198,0,255,255,
0001F0: 32 32 39 2C 31 39 38 2C 30 2C 32 35 35 2C 32 35  229,198,0,255,25

Size : 512 (Real : 512)
000000: 65 61 64 79 20 61 74 20 30 3F 0D 0A 2E 63 6F 6E  eady at 0?...con
000010: 70 6C 09 64 65 63 20 68 6C 3A 20 63 61 6C 6C 20  pl.dec hl: call 
000020: 6C 64 61 68 6C 3A 20 61 6E 64 20 31 32 38 3A 20  ldahl: and 128: 
000030: 6A 72 20 7A 2C 63 6F 6E 70 6C 09 3B 4C 61 73 74  jr z,conpl.;Last
000040: 20 63 68 61 72 61 63 74 65 72 20 30 3F 0D 0A 2E   character 0?...
000050: 63 6F 6E 70 32 09 64 65 63 20 68 6C 3A 20 63 61  conp2.dec hl: ca
000060: 6C 6C 20 6C 64 61 68 6C 3A 20 61 6E 64 20 31 32  ll ldahl: and 12
000070: 38 3A 20 6A 72 20 7A 2C 63 6F 6E 70 32 09 3B 52  8: jr z,conp2.;R
000080: 65 77 69 6E 64 20 75 6E 74 69 6C 20 22 65 6E 64  ewind until "end
000090: 20 6F 66 20 77 6F 72 64 22 0D 0A 2E 63 6F 6E 70   of word"...conp
0000A0: 33 09 69 6E 63 20 68 6C 3A 20 63 61 6C 6C 20 6C  3.inc hl: call l
0000B0: 64 61 68 6C 3A 20 6F 72 20 61 20 20 20 3A 20 6A  dahl: or a   : j
0000C0: 72 20 7A 2C 63 6F 6E 70 33 09 3B 2E 2E 2E 6A 75  r z,conp3.;...ju
0000D0: 73 74 20 69 6E 20 63 61 73 65 20 69 74 27 73 20  st in case it's 
0000E0: 30 2E 2E 2E 0D 0A 09 6A 70 20 63 6F 6E 70 72 74  0......jp conprt
0000F0: 0D 0A 0D 0A 2E 63 6F 6E 71 74 09 63 61 6C 6C 20  .....conqt.call 
000100: 26 42 42 36 43 3A 20 6A 70 20 6F 70 74 69 6F 6E  &BB6C: jp option
000110: 0D 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72  .......;--- subr
000120: 09 46 69 6E 64 20 61 64 64 72 65 73 73 20 6F 66  .Find address of
000130: 20 63 6C 6F 73 65 73 74 20 77 6F 72 64 20 69 6E   closest word in
000140: 20 64 69 63 74 69 6F 6E 61 72 79 0D 0A 0D 0A 2E   dictionary.....
000150: 63 6F 6E 5F 66 64 09 6C 64 20 61 2C 28 77 6F 72  con_fd.ld a,(wor
000160: 64 29 3A 20 63 61 6C 6C 20 73 74 61 72 74 09 09  d): call start..
000170: 09 3B 47 65 74 20 73 74 61 72 74 20 61 64 64 72  .;Get start addr
000180: 65 73 73 20 6F 66 20 6C 65 74 74 65 72 0D 0A 09  ess of letter...
000190: 78 6F 72 20 61 3A 20 6C 64 20 28 62 65 73 74 29  xor a: ld (best)
0001A0: 2C 61 09 09 09 3B 42 65 73 74 20 6E 75 6D 62 65  ,a...;Best numbe
0001B0: 72 20 6F 66 20 6C 65 74 74 65 72 73 20 73 6F 20  r of letters so 
0001C0: 66 61 72 0D 0A 0D 0A 2E 63 6F 6E 5F 6F 6C 09 6C  far.....con_ol.l
0001D0: 64 20 64 65 2C 77 6F 72 64 2B 31 3A 20 6C 64 20  d de,word+1: ld 
0001E0: 62 2C 31 09 09 09 3B 53 74 61 72 74 20 66 72 6F  b,1...;Start fro
0001F0: 6D 20 73 65 63 6F 6E 64 20 6C 65 74 74 65 72 0D  m second letter.

Size : 512 (Real : 512)
000000: 34 3A 20 6A 72 20 7A 2C 70 75 74 77 73 6B 09 3B  4: jr z,putwsk.;
000010: 43 6F 6E 74 69 6E 75 65 20 77 69 74 68 20 6E 6F  Continue with no
000020: 6E 2D 41 53 43 49 49 20 63 68 61 72 0D 0A 09 3A  n-ASCII char...:
000030: 20 6C 64 20 63 2C 61 3A 20 63 61 6C 6C 20 70 75   ld c,a: call pu
000040: 74 63 68 72 3A 20 6A 70 20 6E 63 2C 70 61 75 73  tchr: jp nc,paus
000050: 65 09 3B 20 7C 20 77 72 69 74 65 20 63 68 61 72  e.; | write char
000060: 61 63 74 65 72 0D 0A 09 3A 20 6C 64 20 61 2C 63  acter...: ld a,c
000070: 3A 20 63 61 6C 6C 20 64 69 73 70 09 09 09 3B 20  : call disp...; 
000080: 7C 0D 0A 2E 70 75 74 77 73 6B 09 6A 70 20 73 70  |...putwsk.jp sp
000090: 6C 5F 6C 70 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75  l_lp.....;--- su
0000A0: 62 72 09 50 61 74 63 68 20 69 66 20 77 6F 72 64  br.Patch if word
0000B0: 20 65 6E 64 73 20 69 6E 20 61 70 6F 73 74 72 6F   ends in apostro
0000C0: 70 68 65 0D 0A 0D 0A 2E 61 70 6F 61 64 6A 09 6C  phe.....apoadj.l
0000D0: 64 20 61 2C 28 69 79 2D 31 29 3A 20 63 70 20 22  d a,(iy-1): cp "
0000E0: 27 22 3A 20 6A 72 20 20 20 6E 7A 2C 61 70 6F 61  '": jr   nz,apoa
0000F0: 64 73 0D 0A 09 6C 64 20 61 2C 28 63 68 61 72 29  ds...ld a,(char)
000100: 3A 20 63 70 20 32 35 34 3A 20 63 61 6C 6C 20 6E  : cp 254: call n
000110: 7A 2C 26 42 43 38 36 09 3B 52 65 74 75 72 6E 20  z,&BC86.;Return 
000120: 6C 61 73 74 20 63 68 61 72 61 63 74 65 72 0D 0A  last character..
000130: 09 6C 64 20 61 2C 22 27 22 3A 20 6C 64 20 28 63  .ld a,"'": ld (c
000140: 68 61 72 29 2C 61 09 09 09 3B 4E 6F 6E 2D 41 53  har),a...;Non-AS
000150: 43 49 49 20 63 68 61 72 20 77 61 73 20 61 70 6F  CII char was apo
000160: 73 74 72 6F 70 68 65 0D 0A 09 64 65 63 20 69 79  strophe...dec iy
000170: 3A 20 64 65 63 20 62 3A 20 72 65 74 09 09 09 3B  : dec b: ret...;
000180: 53 68 6F 72 74 65 6E 20 77 6F 72 64 20 62 79 20  Shorten word by 
000190: 6F 6E 65 20 6C 65 74 74 65 72 0D 0A 0D 0A 09 3B  one letter.....;
0001A0: 09 09 50 61 74 63 68 20 69 66 20 77 6F 72 64 20  ..Patch if word 
0001B0: 65 6E 64 73 20 69 6E 20 22 27 73 22 0D 0A 0D 0A  ends in "'s"....
0001C0: 2E 61 70 6F 61 64 73 09 6C 64 20 61 2C 62 3A 20  .apoads.ld a,b: 
0001D0: 63 70 20 33 3A 20 72 65 74 20 63 0D 0A 09 6C 64  cp 3: ret c...ld
0001E0: 20 61 2C 28 69 79 2D 31 29 3A 20 63 61 6C 6C 20   a,(iy-1): call 
0001F0: 75 63 61 73 65 3A 20 63 70 20 22 53 22 3A 20 72  ucase: cp "S": r

Size : 512 (Real : 512)
000000: 3B 43 6C 65 61 72 20 23 31 0D 0A 0D 0A 2E 73 70  ;Clear #1.....sp
000010: 6C 5F 6C 70 09 63 61 6C 6C 20 26 42 43 38 30 3A  l_lp.call &BC80:
000020: 20 6A 70 20 6E 63 2C 73 70 6C 65 6F 66 3A 20 6C   jp nc,spleof: l
000030: 64 20 63 2C 61 09 3B 47 65 74 20 63 68 61 72 61  d c,a.;Get chara
000040: 63 74 65 72 2C 20 65 78 69 74 20 69 66 20 45 4F  cter, exit if EO
000050: 46 0D 0A 09 63 61 6C 6C 20 61 73 63 20 20 3A 20  F...call asc  : 
000060: 6A 70 20 63 20 2C 69 73 77 6F 72 64 09 09 3B 20  jp c ,isword..; 
000070: 7C 20 69 66 20 41 53 43 49 49 2C 20 67 6F 20 74  | if ASCII, go t
000080: 6F 20 77 6F 72 64 20 72 6F 75 74 69 6E 65 0D 0A  o word routine..
000090: 09 63 61 6C 6C 20 26 42 43 39 35 3A 20 6A 70 20  .call &BC95: jp 
0000A0: 6E 63 2C 70 61 75 73 65 09 3A 20 6C 64 20 61 2C  nc,pause.: ld a,
0000B0: 63 09 3B 57 72 69 74 65 20 63 68 61 72 61 63 74  c.;Write charact
0000C0: 65 72 0D 0A 09 63 61 6C 6C 20 64 69 73 70 20 3A  er...call disp :
0000D0: 20 6A 70 20 20 20 20 73 70 6C 5F 6C 70 09 09 3B   jp    spl_lp..;
0000E0: 44 69 73 70 6C 61 79 20 6F 6E 2D 73 63 72 65 65  Display on-scree
0000F0: 6E 20 61 6E 64 20 6C 6F 6F 70 0D 0A 0D 0A 09 3B  n and loop.....;
000100: 2B 2B 2B 20 53 45 43 54 09 57 6F 72 64 20 65 6E  +++ SECT.Word en
000110: 63 6F 75 6E 74 65 72 65 64 0D 0A 0D 0A 2E 69 73  countered.....is
000120: 77 6F 72 64 09 6C 64 20 68 6C 2C 28 77 6F 72 64  word.ld hl,(word
000130: 73 29 3A 20 69 6E 63 20 68 6C 3A 20 6C 64 20 28  s): inc hl: ld (
000140: 77 6F 72 64 73 29 2C 68 6C 09 3B 49 6E 63 72 65  words),hl.;Incre
000150: 61 73 65 20 77 6F 72 64 20 63 6F 75 6E 74 0D 0A  ase word count..
000160: 09 6C 64 20 69 79 2C 77 6F 72 64 09 09 09 09 3B  .ld iy,word....;
000170: 53 74 6F 72 65 20 66 69 72 73 74 20 63 68 61 72  Store first char
000180: 61 63 74 65 72 0D 0A 09 6C 64 20 28 69 79 29 2C  acter...ld (iy),
000190: 61 3A 20 6C 64 20 62 2C 31 3A 20 69 6E 63 20 69  a: ld b,1: inc i
0001A0: 79 09 09 3B 20 7C 0D 0A 0D 0A 2E 69 73 77 5F 6C  y..; |.....isw_l
0001B0: 70 09 63 61 6C 6C 20 26 42 43 38 30 3A 20 6A 70  p.call &BC80: jp
0001C0: 20 6E 63 2C 69 73 6E 61 73 63 09 09 3B 43 6F 70   nc,isnasc..;Cop
0001D0: 79 20 6F 75 74 20 77 6F 72 64 0D 0A 09 63 61 6C  y out word...cal
0001E0: 6C 20 61 73 63 61 20 3A 20 6A 72 20 6E 63 2C 69  l asca : jr nc,i
0001F0: 73 6E 61 73 63 09 09 3B 20 7C 0D 0A 09 6C 64 20  snasc..; |...ld

Size : 512 (Real : 512)
000000: 65 74 20 6E 7A 0D 0A 09 6C 64 20 61 2C 28 69 79  et nz...ld a,(iy
000010: 2D 32 29 3A 20 09 09 20 63 70 20 22 27 22 3A 20  -2): .. cp "'": 
000020: 72 65 74 20 6E 7A 0D 0A 09 63 61 6C 6C 20 26 42  ret nz...call &B
000030: 43 38 36 09 09 09 09 3B 52 65 74 75 72 6E 20 6C  C86....;Return l
000040: 61 73 74 20 63 68 61 72 61 63 74 65 72 0D 0A 09  ast character...
000050: 6C 64 20 61 2C 32 35 33 20 20 20 3A 20 6C 64 20  ld a,253   : ld 
000060: 28 63 68 61 72 20 29 2C 61 09 09 3B 4E 6F 6E 2D  (char ),a..;Non-
000070: 41 53 43 49 49 20 63 68 61 72 20 69 73 20 22 27  ASCII char is "'
000080: 73 22 0D 0A 09 6C 64 20 61 2C 28 69 79 2D 31 29  s"...ld a,(iy-1)
000090: 3A 20 6C 64 20 28 63 68 61 72 73 29 2C 61 09 09  : ld (chars),a..
0000A0: 3B 20 7C 20 73 74 6F 72 65 20 74 79 70 65 20 6F  ; | store type o
0000B0: 66 20 53 0D 0A 09 64 65 63 20 69 79 3A 20 64 65  f S...dec iy: de
0000C0: 63 20 62 09 09 09 09 3B 53 68 6F 72 74 65 6E 20  c b....;Shorten 
0000D0: 77 6F 72 64 20 62 79 20 74 77 6F 20 6C 65 74 74  word by two lett
0000E0: 65 72 73 0D 0A 09 64 65 63 20 69 79 3A 20 64 65  ers...dec iy: de
0000F0: 63 20 62 3A 20 72 65 74 09 09 09 3B 20 7C 0D 0A  c b: ret...; |..
000100: 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 50 75 74  ...;--- subr.Put
000110: 20 6E 6F 6E 2D 41 53 43 49 49 20 63 68 61 72 61   non-ASCII chara
000120: 63 74 65 72 20 74 6F 20 66 69 6C 65 2C 20 70 61  cter to file, pa
000130: 74 63 68 69 6E 67 20 69 66 20 22 27 73 22 0D 0A  tching if "'s"..
000140: 0D 0A 2E 70 75 74 63 68 72 09 63 70 20 32 35 33  ...putchr.cp 253
000150: 09 3A 20 6A 70 20 6E 7A 2C 26 42 43 39 35 0D 0A  .: jp nz,&BC95..
000160: 09 6C 64 20 61 2C 22 27 22 3A 20 63 61 6C 6C 20  .ld a,"'": call 
000170: 64 69 73 70 0D 0A 09 6C 64 20 61 2C 22 27 22 3A  disp...ld a,"'":
000180: 20 63 61 6C 6C 20 26 42 43 39 35 0D 0A 09 6C 64   call &BC95...ld
000190: 20 61 2C 28 63 68 61 72 73 29 3A 20 6C 64 20 63   a,(chars): ld c
0001A0: 2C 61 3A 20 6A 70 20 26 42 43 39 35 0D 0A 0D 0A  ,a: jp &BC95....
0001B0: 0D 0A 09 3B 2B 2B 2B 20 53 45 43 54 09 51 75 69  ...;+++ SECT.Qui
0001C0: 74 20 73 70 65 6C 6C 2D 63 68 65 63 6B 69 6E 67  t spell-checking
0001D0: 0D 0A 0D 0A 2E 71 75 69 74 09 63 61 6C 6C 20 26  .....quit.call &
0001E0: 42 43 37 44 3A 20 6A 70 20 72 65 73 75 6D 65 0D  BC7D: jp resume.
0001F0: 0A 0D 0A 0D 0A 09 3B 2B 2B 2B 20 53 45 43 54 09  ......;+++ SECT.

Size : 512 (Real : 512)
000000: 28 69 79 29 2C 61 3A 20 69 6E 63 20 62 3A 20 69  (iy),a: inc b: i
000010: 6E 63 20 69 79 09 09 3B 20 7C 0D 0A 09 6C 64 20  nc iy..; |...ld 
000020: 61 2C 62 3A 20 63 70 20 33 32 3A 20 6A 72 20 6E  a,b: cp 32: jr n
000030: 7A 2C 69 73 77 5F 6C 70 09 09 3B 20 7C 20 6D 61  z,isw_lp..; | ma
000040: 78 69 6D 75 6D 20 33 32 20 63 68 61 72 61 63 74  ximum 32 charact
000050: 65 72 73 0D 0A 09 6C 64 20 61 2C 32 35 34 09 09  ers...ld a,254..
000060: 09 09 3B 20 7C 20 20 7C 20 32 35 34 20 28 69 67  ..; |  | 254 (ig
000070: 6E 6F 72 65 64 29 20 69 66 20 6F 76 65 72 66 6C  nored) if overfl
000080: 6F 77 0D 0A 0D 0A 2E 69 73 6E 61 73 63 09 6C 64  ow.....isnasc.ld
000090: 20 28 63 68 61 72 29 2C 61 09 09 09 09 3B 53 74   (char),a....;St
0000A0: 6F 72 65 20 6E 6F 6E 2D 41 53 43 49 49 20 63 68  ore non-ASCII ch
0000B0: 61 72 61 63 74 65 72 0D 0A 09 63 61 6C 6C 20 61  aracter...call a
0000C0: 70 6F 61 64 6A 09 09 09 09 3B 49 66 20 6C 61 73  poadj....;If las
0000D0: 74 20 61 70 6F 73 74 72 6F 70 68 65 2C 20 70 61  t apostrophe, pa
0000E0: 74 63 68 0D 0A 09 6C 64 20 61 2C 28 69 79 2D 31  tch...ld a,(iy-1
0000F0: 29 3A 20 6F 72 20 31 32 38 3A 20 6C 64 20 28 69  ): or 128: ld (i
000100: 79 2D 31 29 2C 61 09 3B 53 65 74 20 68 69 67 68  y-1),a.;Set high
000110: 20 62 69 74 20 6F 66 20 6C 61 73 74 20 6C 65 74   bit of last let
000120: 74 65 72 0D 0A 09 6C 64 20 61 2C 62 3A 20 63 70  ter...ld a,b: cp
000130: 20 31 20 3A 20 6A 70 20 7A 2C 70 75 74 77 72 64   1 : jp z,putwrd
000140: 09 09 3B 49 66 20 6F 6E 65 20 6C 65 74 74 65 72  ..;If one letter
000150: 20 6C 6F 6E 67 2C 20 66 6F 72 67 65 74 20 69 74   long, forget it
000160: 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 65 63 74 09 43  .....;--- sect.C
000170: 68 65 63 6B 20 77 6F 72 64 0D 0A 0D 0A 2E 64 6F  heck word.....do
000180: 5F 63 68 6B 09 63 61 6C 6C 20 63 68 65 63 6B 09  _chk.call check.
000190: 09 20 20 3A 20 6A 70 20 63 2C 70 75 74 77 72 64  .  : jp c,putwrd
0001A0: 09 3B 49 73 20 69 74 20 69 6E 20 74 68 65 20 64  .;Is it in the d
0001B0: 69 63 74 69 6F 6E 61 72 79 3F 0D 0A 09 3A 3A 20  ictionary?...:: 
0001C0: 6C 64 20 62 63 2C 26 37 46 43 37 3A 20 6F 75 74  ld bc,&7FC7: out
0001D0: 20 28 63 29 2C 63 09 09 3B 49 73 20 69 74 20 69   (c),c..;Is it i
0001E0: 6E 20 74 68 65 20 75 73 65 72 20 64 69 63 74 69  n the user dicti
0001F0: 6F 6E 61 72 79 3F 0D 0A 09 6C 64 20 69 78 2C 28  onary?...ld ix,(

Size : 512 (Real : 512)
000000: 43 6F 6E 73 75 6C 74 20 77 6F 72 64 0D 0A 0D 0A  Consult word....
000010: 2E 63 6F 6E 73 6C 74 09 63 61 6C 6C 20 26 42 42  .conslt.call &BB
000020: 36 43 09 09 09 09 3B 53 63 72 65 65 6E 20 64 69  6C....;Screen di
000030: 73 70 6C 61 79 0D 0A 09 6C 64 20 68 6C 2C 63 6F  splay...ld hl,co
000040: 6E 5F 74 78 3A 20 63 61 6C 6C 20 73 74 72 69 6E  n_tx: call strin
000050: 67 09 09 3B 20 7C 0D 0A 0D 0A 09 63 61 6C 6C 20  g..; |.....call 
000060: 63 6F 6E 5F 66 64 09 09 09 09 3B 48 4C 20 3D 20  con_fd....;HL = 
000070: 63 6C 6F 73 65 73 74 20 77 6F 72 64 20 69 6E 20  closest word in 
000080: 64 69 63 74 69 6F 6E 61 72 79 0D 0A 2E 63 6F 6E  dictionary...con
000090: 70 72 74 09 70 75 73 68 20 68 6C 3A 20 6C 64 20  prt.push hl: ld 
0000A0: 68 6C 2C 26 30 46 30 31 3A 20 63 61 6C 6C 20 26  hl,&0F01: call &
0000B0: 42 42 37 35 3A 20 70 6F 70 20 68 6C 3B 50 72 69  BB75: pop hl;Pri
0000C0: 6E 74 20 69 74 0D 0A 09 70 75 73 68 20 68 6C 09  nt it...push hl.
0000D0: 09 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 61 2C  ....; |... ld a,
0000E0: 32 34 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20  24: call &BB5A: 
0000F0: 63 61 6C 6C 20 6E 65 77 09 09 3B 20 7C 0D 0A 09  call new..; |...
000100: 20 6C 64 20 61 2C 32 34 3A 20 63 61 6C 6C 20 26   ld a,24: call &
000110: 42 42 35 41 09 09 09 3B 20 7C 0D 0A 09 20 6C 64  BB5A...; |... ld
000120: 20 61 2C 31 38 3A 20 63 61 6C 6C 20 26 42 42 35   a,18: call &BB5
000130: 41 09 09 09 3B 20 7C 0D 0A 09 70 6F 70 20 68 6C  A...; |...pop hl
000140: 09 09 09 09 09 3B 20 7C 0D 0A 0D 0A 2E 63 6F 6E  .....; |.....con
000150: 6B 65 79 09 63 61 6C 6C 20 26 42 42 30 36 3A 20  key.call &BB06: 
000160: 63 61 6C 6C 20 75 63 61 73 65 09 09 09 3B 47 65  call ucase...;Ge
000170: 74 20 6B 65 79 70 72 65 73 73 0D 0A 09 63 70 20  t keypress...cp 
000180: 22 55 22 3A 20 6A 72 20 7A 2C 75 73 65 20 20 3A  "U": jr z,use  :
000190: 20 63 70 20 31 33 20 3A 20 6A 72 20 7A 2C 75 73   cp 13 : jr z,us
0001A0: 65 09 3B 20 7C 20 75 73 65 3F 0D 0A 09 63 70 20  e.; | use?...cp 
0001B0: 22 51 22 3A 20 6A 72 20 7A 2C 63 6F 6E 71 74 3A  "Q": jr z,conqt:
0001C0: 20 63 70 20 32 35 32 3A 20 6A 72 20 7A 2C 63 6F   cp 252: jr z,co
0001D0: 6E 71 74 09 3B 20 7C 20 71 75 69 74 3F 0D 0A 09  nqt.; | quit?...
0001E0: 63 70 20 22 4E 22 3A 20 6A 72 20 7A 2C 63 6F 6E  cp "N": jr z,con
0001F0: 6E 78 3A 20 63 70 20 32 34 31 3A 20 6A 72 20 7A  nx: cp 241: jr z

Size : 512 (Real : 512)
000000: 75 73 5F 74 6F 70 29 3A 20 63 61 6C 6C 20 63 64  us_top): call cd
000010: 69 63 74 09 09 3B 20 7C 0D 0A 09 3A 3A 20 6C 64  ict..; |...:: ld
000020: 20 62 63 2C 26 37 46 43 30 3A 20 6F 75 74 20 28   bc,&7FC0: out (
000030: 63 29 2C 63 20 3A 20 6A 70 20 63 2C 70 75 74 77  c),c : jp c,putw
000040: 72 64 09 3B 20 7C 0D 0A 09 6C 64 20 69 78 2C 28  rd.; |...ld ix,(
000050: 69 67 5F 74 6F 70 29 3A 20 63 61 6C 6C 20 63 64  ig_top): call cd
000060: 69 63 74 3A 20 6A 70 20 63 2C 70 75 74 77 72 64  ict: jp c,putwrd
000070: 09 3B 49 73 20 69 74 20 69 6E 20 74 68 65 20 69  .;Is it in the i
000080: 67 6E 6F 72 65 20 64 69 63 74 69 6F 6E 61 72 79  gnore dictionary
000090: 3F 0D 0A 09 6C 64 20 62 63 2C 32 3A 20 63 61 6C  ?...ld bc,2: cal
0000A0: 6C 20 26 42 42 42 37 09 09 09 3B 53 65 6C 65 63  l &BBB7...;Selec
0000B0: 74 20 73 74 72 65 61 6D 20 32 0D 0A 2E 6F 70 74  t stream 2...opt
0000C0: 69 6F 6E 09 63 61 6C 6C 20 26 42 42 39 43 3A 20  ion.call &BB9C: 
0000D0: 6C 64 20 68 6C 2C 77 6F 72 64 20 20 3A 20 63 61  ld hl,word  : ca
0000E0: 6C 6C 20 73 74 72 37 09 3B 50 72 69 6E 74 20 77  ll str7.;Print w
0000F0: 6F 72 64 20 69 6E 20 69 6E 76 65 72 73 65 0D 0A  ord in inverse..
000100: 09 63 61 6C 6C 20 26 42 42 39 43 3A 20 6C 64 20  .call &BB9C: ld 
000110: 68 6C 2C 6E 6F 74 66 74 78 3A 20 63 61 6C 6C 20  hl,notftx: call 
000120: 73 74 72 69 6E 67 09 3B 20 7C 0D 0A 09 6C 64 20  string.; |...ld 
000130: 68 6C 2C 6F 70 74 5F 74 78 3A 20 63 61 6C 6C 20  hl,opt_tx: call 
000140: 73 74 72 69 6E 67 09 09 3B 50 72 69 6E 74 20 22  string..;Print "
000150: 6F 70 74 69 6F 6E 73 22 2E 2E 2E 0D 0A 2E 6F 70  options"......op
000160: 6B 65 79 70 09 63 61 6C 6C 20 26 42 42 30 36 3A  keyp.call &BB06:
000170: 20 63 61 6C 6C 20 75 63 61 73 65 09 09 09 3B 47   call ucase...;G
000180: 65 74 20 6B 65 79 70 72 65 73 73 0D 0A 09 3A 20  et keypress...: 
000190: 63 70 20 22 45 22 3A 20 6A 70 20 7A 20 2C 65 64  cp "E": jp z ,ed
0001A0: 69 74 09 09 09 3B 20 7C 20 65 64 69 74 20 77 6F  it...; | edit wo
0001B0: 72 64 3F 0D 0A 09 3A 20 63 70 20 22 41 22 3A 20  rd?...: cp "A": 
0001C0: 6A 70 20 7A 20 2C 69 67 6E 61 6C 6C 09 09 09 3B  jp z ,ignall...;
0001D0: 20 7C 20 69 67 6E 6F 72 65 20 61 6C 6C 3F 0D 0A   | ignore all?..
0001E0: 09 3A 20 63 70 20 22 4C 22 3A 20 6A 70 20 7A 20  .: cp "L": jp z 
0001F0: 2C 6C 65 61 72 6E 09 09 09 3B 20 7C 20 6C 65 61  ,learn...; | lea

Size : 512 (Real : 512)
000000: 2C 63 6F 6E 6E 78 09 3B 20 7C 20 6E 65 78 74 3F  ,connx.; | next?
000010: 0D 0A 09 63 70 20 22 50 22 3A 20 6A 72 20 7A 2C  ...cp "P": jr z,
000020: 63 6F 6E 70 72 3A 20 63 70 20 32 34 30 3A 20 6A  conpr: cp 240: j
000030: 72 20 7A 2C 63 6F 6E 70 72 09 3B 20 7C 20 70 72  r z,conpr.; | pr
000040: 65 76 69 6F 75 73 3F 0D 0A 09 6A 72 20 63 6F 6E  evious?...jr con
000050: 6B 65 79 0D 0A 0D 0A 2E 75 73 65 09 6C 64 20 68  key.....use.ld h
000060: 6C 2C 6E 65 77 77 72 64 3A 20 6C 64 20 62 63 2C  l,newwrd: ld bc,
000070: 33 33 09 09 09 3B 43 6F 70 79 20 69 66 20 74 6F  33...;Copy if to
000080: 20 62 65 20 75 73 65 64 0D 0A 09 6C 64 20 64 65   be used...ld de
000090: 2C 77 6F 72 64 20 20 3A 20 6C 64 69 72 3A 20 6A  ,word  : ldir: j
0000A0: 70 20 72 65 73 75 6D 65 09 09 3B 20 7C 0D 0A 0D  p resume..; |...
0000B0: 0A 2E 63 6F 6E 6E 78 09 6C 64 20 64 2C 68 3A 20  ..connx.ld d,h: 
0000C0: 6C 64 20 65 2C 6C 0D 0A 2E 63 6F 6E 6E 31 09 63  ld e,l...conn1.c
0000D0: 61 6C 6C 20 6C 64 61 68 6C 69 3A 20 61 6E 64 20  all ldahli: and 
0000E0: 31 32 38 3A 20 6A 72 20 7A 2C 63 6F 6E 6E 31 09  128: jr z,conn1.
0000F0: 3B 46 61 73 74 20 66 6F 72 77 61 72 64 20 74 6F  ;Fast forward to
000100: 20 65 6E 64 20 6F 66 20 77 6F 72 64 0D 0A 2E 63   end of word...c
000110: 6F 6E 6E 32 09 63 61 6C 6C 20 6C 64 61 68 6C 69  onn2.call ldahli
000120: 3A 20 63 70 20 20 32 36 20 3A 20 6A 72 20 7A 2C  : cp  26 : jr z,
000130: 63 6F 6E 65 6F 66 09 3B 45 6E 64 20 6F 66 20 66  coneof.;End of f
000140: 69 6C 65 3F 0D 0A 09 09 20 20 20 20 20 6F 72 20  ile?....     or 
000150: 20 61 20 20 3A 20 6A 72 20 7A 2C 63 6F 6E 6E 32   a  : jr z,conn2
000160: 09 3B 45 6E 64 20 6F 66 20 6C 65 74 74 65 72 3F  .;End of letter?
000170: 0D 0A 09 64 65 63 20 68 6C 3A 20 6A 70 20 63 6F  ...dec hl: jp co
000180: 6E 70 72 74 09 09 09 3B 4E 6F 2C 20 73 6F 20 64  nprt...;No, so d
000190: 6F 20 74 68 65 20 6C 65 74 74 65 72 0D 0A 2E 63  o the letter...c
0001A0: 6F 6E 65 6F 66 09 6C 64 20 68 2C 64 3A 20 6C 64  oneof.ld h,d: ld
0001B0: 20 6C 2C 65 3A 20 6A 70 20 63 6F 6E 6B 65 79 09   l,e: jp conkey.
0001C0: 09 3B 45 6E 64 20 6F 66 20 66 69 6C 65 20 2D 20  .;End of file - 
0001D0: 70 61 6E 69 63 21 0D 0A 0D 0A 2E 63 6F 6E 70 72  panic!.....conpr
0001E0: 09 6C 64 20 61 2C 68 3A 20 6F 72 20 6C 3A 20 6A  .ld a,h: or l: j
0001F0: 72 20 7A 2C 63 6F 6E 6B 65 79 09 09 3B 41 6C 72  r z,conkey..;Alr

Size : 512 (Real : 512)
000000: 72 6E 3F 0D 0A 09 3A 20 63 70 20 22 51 22 3A 20  rn?...: cp "Q": 
000010: 6A 70 20 7A 20 2C 71 75 69 74 09 09 09 3B 20 7C  jp z ,quit...; |
000020: 20 71 75 69 74 3F 0D 0A 09 3A 20 63 70 20 22 43   quit?...: cp "C
000030: 22 3A 20 6A 70 20 7A 20 2C 63 6F 6E 73 6C 74 09  ": jp z ,conslt.
000040: 09 09 3B 20 7C 20 63 6F 6E 73 75 6C 74 3F 0D 0A  ..; | consult?..
000050: 09 3A 20 63 70 20 22 49 22 3A 20 6A 70 20 6E 7A  .: cp "I": jp nz
000060: 2C 6F 70 6B 65 79 70 09 09 09 3B 20 7C 20 69 67  ,opkeyp...; | ig
000070: 6E 6F 72 65 3F 0D 0A 2E 72 65 73 75 6D 65 09 63  nore?...resume.c
000080: 61 6C 6C 20 26 42 42 36 43 09 09 09 09 3B 43 6C  all &BB6C....;Cl
000090: 65 61 72 20 73 63 72 65 65 6E 0D 0A 09 6C 64 20  ear screen...ld 
0000A0: 62 63 2C 32 3A 20 63 61 6C 6C 20 26 42 42 42 37  bc,2: call &BBB7
0000B0: 09 09 09 3B 44 65 73 65 6C 65 63 74 20 73 74 72  ...;Deselect str
0000C0: 65 61 6D 20 32 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73  eam 2.....;--- s
0000D0: 65 63 74 09 53 65 6E 64 20 77 6F 72 64 20 74 6F  ect.Send word to
0000E0: 20 66 69 6C 65 0D 0A 0D 0A 2E 70 75 74 77 72 64   file.....putwrd
0000F0: 09 6C 64 20 69 79 2C 77 6F 72 64 09 09 09 09 3B  .ld iy,word....;
000100: 4F 75 74 70 75 74 20 77 6F 72 64 20 74 6F 20 64  Output word to d
000110: 69 73 63 0D 0A 2E 70 75 74 77 6C 70 09 6C 64 20  isc...putwlp.ld 
000120: 61 2C 28 69 79 29 3A 20 61 6E 64 20 31 32 37 09  a,(iy): and 127.
000130: 09 09 3B 57 72 69 74 65 20 65 6E 74 69 72 65 20  ..;Write entire 
000140: 77 6F 72 64 20 75 6E 74 69 6C 20 62 69 74 20 37  word until bit 7
000150: 0D 0A 09 3A 20 6C 64 20 63 2C 61 3A 20 63 61 6C  ...: ld c,a: cal
000160: 6C 20 26 42 43 39 35 20 3A 20 6A 70 20 6E 63 2C  l &BC95 : jp nc,
000170: 70 61 75 73 65 09 3B 20 7C 20 77 72 69 74 65 20  pause.; | write 
000180: 63 68 61 72 61 63 74 65 72 0D 0A 09 3A 20 6C 64  character...: ld
000190: 20 61 2C 63 3A 20 63 61 6C 6C 20 64 69 73 70 20   a,c: call disp 
0001A0: 20 3A 20 6C 64 20 61 2C 28 69 79 29 09 3B 20 7C   : ld a,(iy).; |
0001B0: 20 64 69 73 70 6C 61 79 20 6F 6E 20 73 63 72 65   display on scre
0001C0: 65 6E 0D 0A 09 3A 20 69 6E 63 20 69 79 3A 20 61  en...: inc iy: a
0001D0: 6E 64 20 31 32 38 20 20 20 20 3A 20 6A 72 20 7A  nd 128    : jr z
0001E0: 2C 70 75 74 77 6C 70 09 3B 20 7C 0D 0A 09 6C 64  ,putwlp.; |...ld
0001F0: 20 61 2C 28 63 68 61 72 29 3A 20 63 70 20 32 35   a,(char): cp 25

Size : 512 (Real : 512)
000000: 77 5F 6C 63 09 09 09 09 09 3B 20 7C 0D 0A 2E 6E  w_lc.....; |...n
000010: 65 77 5F 75 63 09 63 61 6C 6C 20 6C 64 61 68 6C  ew_uc.call ldahl
000020: 20 3A 20 61 6E 64 20 31 32 37 20 20 20 3A 20 63   : and 127   : c
000030: 61 6C 6C 20 26 42 42 35 41 20 3A 20 6C 64 20 28  all &BB5A : ld (
000040: 69 78 29 2C 61 3A 20 69 6E 63 20 69 78 09 3B 59  ix),a: inc ix.;Y
000050: 65 73 0D 0A 09 63 61 6C 6C 20 6C 64 61 68 6C 69  es...call ldahli
000060: 3A 20 61 6E 64 20 31 32 38 20 20 20 3A 20 6A 72  : and 128   : jr
000070: 20 7A 2C 6E 65 77 5F 75 63 3A 20 6A 72 20 6E 65   z,new_uc: jr ne
000080: 77 5F 66 6E 09 09 3B 20 7C 0D 0A 2E 6E 65 77 5F  w_fn..; |...new_
000090: 6C 63 09 63 61 6C 6C 20 6C 64 61 68 6C 20 3A 20  lc.call ldahl : 
0000A0: 63 61 6C 6C 20 6C 63 61 73 65 3A 20 63 61 6C 6C  call lcase: call
0000B0: 20 26 42 42 35 41 20 3A 20 6C 64 20 28 69 78 29   &BB5A : ld (ix)
0000C0: 2C 61 3A 20 69 6E 63 20 69 78 09 3B 4E 6F 0D 0A  ,a: inc ix.;No..
0000D0: 09 63 61 6C 6C 20 6C 64 61 68 6C 69 3A 20 61 6E  .call ldahli: an
0000E0: 64 20 31 32 38 20 20 20 3A 20 6A 72 20 7A 2C 6E  d 128   : jr z,n
0000F0: 65 77 5F 6C 63 3A 20 6A 72 20 6E 65 77 5F 66 6E  ew_lc: jr new_fn
000100: 09 09 3B 20 7C 0D 0A 2E 6E 65 77 5F 66 6E 09 6C  ..; |...new_fn.l
000110: 64 20 61 2C 28 69 78 2D 31 29 3A 20 6F 72 20 20  d a,(ix-1): or  
000120: 31 32 38 09 09 09 09 09 3B 53 65 74 20 62 69 74  128.....;Set bit
000130: 20 37 0D 0A 09 6C 64 20 28 69 78 2D 31 29 2C 61   7...ld (ix-1),a
000140: 3A 20 72 65 74 09 09 09 09 09 3B 20 7C 0D 0A 0D  : ret.....; |...
000150: 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 46 69 6E 64  ..;--- subr.Find
000160: 20 69 6E 69 74 69 61 6C 20 6C 65 74 74 65 72 20   initial letter 
000170: 66 6F 72 20 48 4C 0D 0A 0D 0A 2E 69 6E 69 74 09  for HL.....init.
000180: 6C 64 20 69 79 2C 6C 65 74 74 65 72 3A 20 6C 64  ld iy,letter: ld
000190: 20 61 2C 36 34 0D 0A 2E 69 6E 69 74 6C 70 09 6C   a,64...initlp.l
0001A0: 64 20 65 2C 28 69 79 29 3A 20 69 6E 63 20 69 79  d e,(iy): inc iy
0001B0: 0D 0A 09 6C 64 20 64 2C 28 69 79 29 3A 20 69 6E  ...ld d,(iy): in
0001C0: 63 20 69 79 0D 0A 09 70 75 73 68 20 68 6C 3A 20  c iy...push hl: 
0001D0: 6F 72 20 61 3A 20 73 62 63 20 68 6C 2C 64 65 3A  or a: sbc hl,de:
0001E0: 20 70 6F 70 20 68 6C 0D 0A 09 72 65 74 20 63 3A   pop hl...ret c:
0001F0: 20 69 6E 63 20 61 3A 20 6A 72 20 69 6E 69 74 6C   inc a: jr initl

Size : 512 (Real : 512)
000000: 30 3A 20 72 65 74 0D 0A 2E 64 69 73 70 73 70 09  0: ret...dispsp.
000010: 6C 64 20 61 2C 33 32 3A 20 72 65 74 0D 0A 0D 0A  ld a,32: ret....
000020: 09 3B 2D 2D 2D 20 73 75 62 73 09 43 68 65 63 6B  .;--- subs.Check
000030: 20 64 6F 63 75 6D 65 6E 74 20 73 75 62 72 6F 75   document subrou
000040: 74 69 6E 65 73 0D 0A 0D 0A 2E 72 65 74 79 70 65  tines.....retype
000050: 09 6C 64 20 68 6C 2C 28 68 65 61 64 65 72 29 3A  .ld hl,(header):
000060: 20 6C 64 20 62 2C 31 32 38 09 09 09 09 3B 47 65   ld b,128....;Ge
000070: 6E 65 72 61 74 65 20 68 65 61 64 65 72 0D 0A 2E  nerate header...
000080: 72 65 74 6C 70 09 6C 64 20 61 2C 28 68 6C 29 3A  retlp.ld a,(hl):
000090: 20 63 61 6C 6C 20 26 42 43 39 35 3A 20 6A 72 20   call &BC95: jr 
0000A0: 6E 63 2C 72 65 74 65 72 72 09 09 09 3B 20 7C 0D  nc,reterr...; |.
0000B0: 0A 09 69 6E 63 20 68 6C 3A 20 64 6A 6E 7A 20 72  ..inc hl: djnz r
0000C0: 65 74 6C 70 3A 20 72 65 74 09 09 09 09 09 3B 20  etlp: ret.....; 
0000D0: 7C 0D 0A 2E 72 65 74 65 72 72 09 70 6F 70 20 68  |...reterr.pop h
0000E0: 6C 3A 20 6A 72 20 70 61 75 73 65 09 09 09 09 09  l: jr pause.....
0000F0: 3B 20 7C 0D 0A 2E 63 6C 73 31 09 6C 64 20 62 63  ; |...cls1.ld bc
000100: 2C 31 3A 20 63 61 6C 6C 20 26 42 42 42 37 3A 20  ,1: call &BBB7: 
000110: 63 61 6C 6C 20 26 42 42 36 43 3A 20 6C 64 20 62  call &BB6C: ld b
000120: 63 2C 31 3A 20 6A 70 20 26 42 42 42 37 09 3B 43  c,1: jp &BBB7.;C
000130: 4C 53 20 23 31 0D 0A 2E 63 6C 73 32 09 6C 64 20  LS #1...cls2.ld 
000140: 62 63 2C 32 3A 20 63 61 6C 6C 20 26 42 42 42 37  bc,2: call &BBB7
000150: 3A 20 63 61 6C 6C 20 26 42 42 36 43 3A 20 6C 64  : call &BB6C: ld
000160: 20 62 63 2C 32 3A 20 6A 70 20 26 42 42 42 37 09   bc,2: jp &BBB7.
000170: 3B 43 4C 53 20 23 32 0D 0A 2E 70 61 75 73 65 09  ;CLS #2...pause.
000180: 63 61 6C 6C 20 26 42 42 30 36 3A 20 6A 70 20 6F  call &BB06: jp o
000190: 75 74 65 72 09 09 09 09 09 3B 50 61 75 73 65 2C  uter.....;Pause,
0001A0: 20 72 65 73 74 61 72 74 0D 0A 0D 0A 09 3B 2A 2A   restart.....;**
0001B0: 2A 20 52 4F 55 54 09 45 64 69 74 20 75 73 65 72  * ROUT.Edit user
0001C0: 20 64 69 63 74 69 6F 6E 61 72 79 0D 0A 0D 0A 2E   dictionary.....
0001D0: 75 5F 65 64 69 74 09 6C 64 20 68 6C 2C 28 75 73  u_edit.ld hl,(us
0001E0: 5F 74 6F 70 29 20 3A 20 6C 64 20 64 65 2C 26 34  _top) : ld de,&4
0001F0: 30 30 30 09 09 09 3B 44 6F 6E 27 74 20 65 64 69  000...;Don't edi

Size : 512 (Real : 512)
000000: 70 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2B 2B 2B 20 53  p.........;+++ S
000010: 45 43 54 09 45 64 69 74 20 77 6F 72 64 0D 0A 0D  ECT.Edit word...
000020: 0A 2E 65 64 69 74 09 63 61 6C 6C 20 26 42 42 36  ..edit.call &BB6
000030: 43 09 09 09 09 3B 43 6C 65 61 72 20 73 63 72 65  C....;Clear scre
000040: 65 6E 0D 0A 09 6C 64 20 68 6C 2C 65 64 69 74 74  en...ld hl,editt
000050: 78 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67 09 09  x: call string..
000060: 3B 50 72 6F 6D 70 74 0D 0A 09 6C 64 20 69 78 2C  ;Prompt...ld ix,
000070: 69 6E 70 62 75 66 3A 20 63 61 6C 6C 20 69 6E 70  inpbuf: call inp
000080: 75 74 09 09 3B 49 6E 70 75 74 0D 0A 09 70 75 73  ut..;Input...pus
000090: 68 20 61 66 3A 20 70 75 73 68 20 62 63 3A 20 63  h af: push bc: c
0000A0: 61 6C 6C 20 26 42 42 36 43 09 09 3B 43 6C 65 61  all &BB6C..;Clea
0000B0: 72 20 73 63 72 65 65 6E 0D 0A 09 70 6F 70 20 62  r screen...pop b
0000C0: 63 3A 20 70 6F 70 20 61 66 09 09 09 09 3B 20 7C  c: pop af....; |
0000D0: 0D 0A 09 6A 70 20 63 2C 6F 70 74 69 6F 6E 3A 20  ...jp c,option: 
0000E0: 6C 64 20 61 2C 62 3A 20 6F 72 20 61 09 09 3B 49  ld a,b: or a..;I
0000F0: 66 20 45 53 43 2C 20 71 75 69 74 0D 0A 09 6A 70  f ESC, quit...jp
000100: 20 7A 2C 6F 70 74 69 6F 6E 09 09 09 09 3B 49 66   z,option....;If
000110: 20 73 74 72 69 6E 67 20 65 6D 70 74 79 2C 20 71   string empty, q
000120: 75 69 74 0D 0A 0D 0A 09 6C 64 20 69 78 2C 69 6E  uit.....ld ix,in
000130: 70 62 75 66 3A 20 6C 64 20 68 6C 2C 77 6F 72 64  pbuf: ld hl,word
000140: 09 09 3B 43 6F 70 79 20 77 6F 72 64 20 66 72 6F  ..;Copy word fro
000150: 6D 20 69 6E 70 75 74 20 62 75 66 66 65 72 0D 0A  m input buffer..
000160: 2E 65 64 69 74 74 72 09 6C 64 20 61 2C 28 69 78  .edittr.ld a,(ix
000170: 29 3A 20 69 6E 63 20 69 78 09 09 09 3B 20 7C 0D  ): inc ix...; |.
000180: 0A 09 6C 64 20 28 68 6C 29 2C 61 3A 20 69 6E 63  ..ld (hl),a: inc
000190: 20 68 6C 3A 20 64 6A 6E 7A 20 65 64 69 74 74 72   hl: djnz edittr
0001A0: 09 09 3B 20 7C 0D 0A 09 64 65 63 20 68 6C 3A 20  ..; |...dec hl: 
0001B0: 73 65 74 20 37 2C 28 68 6C 29 09 09 09 3B 20 7C  set 7,(hl)...; |
0001C0: 20 73 65 74 20 68 69 67 68 20 62 69 74 0D 0A 09   set high bit...
0001D0: 6C 64 20 62 63 2C 32 3A 20 63 61 6C 6C 20 26 42  ld bc,2: call &B
0001E0: 42 42 37 3A 20 6A 70 20 64 6F 5F 63 68 6B 09 09  BB7: jp do_chk..
0001F0: 3B 54 72 79 20 63 68 65 63 6B 69 6E 67 20 74 68  ;Try checking th

Size : 512 (Real : 512)
000000: 74 20 69 66 20 6E 6F 74 20 74 68 65 72 65 0D 0A  t if not there..
000010: 09 6F 72 20 61 3A 20 73 62 63 20 68 6C 2C 64 65  .or a: sbc hl,de
000020: 3A 20 6A 70 20 7A 2C 6D 61 69 6E 09 09 09 3B 20  : jp z,main...; 
000030: 7C 0D 0A 09 6C 64 20 62 63 2C 26 37 46 43 37 3A  |...ld bc,&7FC7:
000040: 20 6F 75 74 20 28 63 29 2C 63 09 09 09 09 3B 42   out (c),c....;B
000050: 61 6E 6B 20 73 77 69 74 63 68 0D 0A 09 63 61 6C  ank switch...cal
000060: 6C 20 63 6C 65 61 72 0D 0A 0D 0A 09 6C 64 20 68  l clear.....ld h
000070: 6C 2C 26 34 30 30 30 0D 0A 2E 65 64 5F 64 6F 73  l,&4000...ed_dos
000080: 09 63 61 6C 6C 20 65 64 5F 73 63 72 0D 0A 09 70  .call ed_scr...p
000090: 75 73 68 20 68 6C 0D 0A 09 20 6C 64 20 62 63 2C  ush hl... ld bc,
0000A0: 32 3A 20 63 61 6C 6C 20 26 42 42 42 37 3A 20 63  2: call &BBB7: c
0000B0: 61 6C 6C 20 26 42 42 36 43 0D 0A 09 20 6C 64 20  all &BB6C... ld 
0000C0: 68 6C 2C 65 64 69 5F 74 78 3A 20 63 61 6C 6C 20  hl,edi_tx: call 
0000D0: 73 74 72 69 6E 67 0D 0A 09 20 6C 64 20 69 78 2C  string... ld ix,
0000E0: 65 64 5F 74 61 62 3A 20 6C 64 20 68 6C 2C 26 31  ed_tab: ld hl,&1
0000F0: 31 30 31 0D 0A 2E 65 64 5F 6B 6C 70 09 20 63 61  101...ed_klp. ca
000100: 6C 6C 20 65 64 5F 6B 65 79 0D 0A 09 20 63 70 20  ll ed_key... cp 
000110: 22 41 22 3A 20 6A 70 20 7A 20 2C 65 64 5F 61 64  "A": jp z ,ed_ad
000120: 64 3A 20 63 70 20 31 32 37 3A 20 6A 70 20 7A 2C  d: cp 127: jp z,
000130: 65 64 5F 64 65 6C 0D 0A 09 20 63 70 20 22 4E 22  ed_del... cp "N"
000140: 3A 20 6A 70 20 7A 20 2C 65 64 5F 6E 78 74 3A 20  : jp z ,ed_nxt: 
000150: 63 70 20 22 50 22 3A 20 6A 70 20 7A 2C 65 64 5F  cp "P": jp z,ed_
000160: 70 72 76 0D 0A 09 20 63 70 20 22 51 22 3A 20 6A  prv... cp "Q": j
000170: 72 20 6E 7A 2C 65 64 5F 6B 6C 70 0D 0A 09 20 6C  r nz,ed_klp... l
000180: 64 20 62 63 2C 32 3A 20 63 61 6C 6C 20 26 42 42  d bc,2: call &BB
000190: 42 37 0D 0A 09 70 6F 70 20 68 6C 0D 0A 0D 0A 09  B7...pop hl.....
0001A0: 6C 64 20 62 63 2C 26 37 46 43 30 3A 20 6F 75 74  ld bc,&7FC0: out
0001B0: 20 28 63 29 2C 63 3A 20 6A 70 20 6F 75 74 65 72   (c),c: jp outer
0001C0: 09 3B 51 75 69 74 2C 20 62 61 6E 6B 20 73 77 69  .;Quit, bank swi
0001D0: 74 63 68 0D 0A 0D 0A 09 3B 2D 2D 2D 20 72 6F 75  tch.....;--- rou
0001E0: 74 09 4E 65 78 74 20 73 63 72 65 65 6E 0D 0A 0D  t.Next screen...
0001F0: 0A 2E 65 64 5F 6E 78 74 09 6C 64 20 64 65 2C 28  ..ed_nxt.ld de,(

Size : 512 (Real : 512)
000000: 69 73 20 6F 6E 65 2E 2E 2E 21 0D 0A 0D 0A 0D 0A  is one...!......
000010: 09 3B 2B 2B 2B 20 53 45 43 54 09 49 67 6E 6F 72  .;+++ SECT.Ignor
000020: 65 20 61 6C 6C 20 6F 63 63 75 72 72 65 6E 63 65  e all occurrence
000030: 73 20 6F 66 20 77 6F 72 64 0D 0A 0D 0A 2E 69 67  s of word.....ig
000040: 6E 61 6C 6C 09 6C 64 20 68 6C 2C 28 69 67 5F 74  nall.ld hl,(ig_t
000050: 6F 70 29 09 09 09 09 3B 46 69 6E 64 20 77 68 65  op)....;Find whe
000060: 72 65 20 74 6F 20 61 64 64 0D 0A 09 6C 64 20 61  re to add...ld a
000070: 2C 68 3A 20 63 70 20 26 37 37 3A 20 6A 70 20 7A  ,h: cp &77: jp z
000080: 2C 64 63 66 75 6C 6C 09 09 3B 20 7C 0D 0A 09 63  ,dcfull..; |...c
000090: 61 6C 6C 20 61 64 64 77 72 64 3A 20 6C 64 20 28  all addwrd: ld (
0000A0: 69 67 5F 74 6F 70 29 2C 68 6C 09 09 3B 41 64 64  ig_top),hl..;Add
0000B0: 20 61 6E 64 20 75 70 64 61 74 65 20 70 6F 69 6E   and update poin
0000C0: 74 65 72 0D 0A 09 6A 70 20 72 65 73 75 6D 65 0D  ter...jp resume.
0000D0: 0A 0D 0A 09 3B 2B 2B 2B 20 53 45 43 54 09 4C 65  ....;+++ SECT.Le
0000E0: 61 72 6E 20 77 6F 72 64 0D 0A 0D 0A 2E 6C 65 61  arn word.....lea
0000F0: 72 6E 09 6C 64 20 68 6C 2C 28 75 73 5F 74 6F 70  rn.ld hl,(us_top
000100: 29 09 09 09 09 3B 46 69 6E 64 20 77 68 65 72 65  )....;Find where
000110: 20 74 6F 20 61 64 64 0D 0A 09 6C 64 20 61 2C 68   to add...ld a,h
000120: 3A 20 63 70 20 26 37 46 3A 20 6A 70 20 7A 2C 64  : cp &7F: jp z,d
000130: 63 66 75 6C 6C 09 09 3B 20 7C 0D 0A 09 6C 64 20  cfull..; |...ld 
000140: 62 63 2C 26 37 46 43 37 3A 20 6F 75 74 20 28 63  bc,&7FC7: out (c
000150: 29 2C 63 3A 20 63 61 6C 6C 20 61 64 64 77 72 64  ),c: call addwrd
000160: 09 3B 41 64 64 20 69 6E 20 62 61 6E 6B 73 2C 20  .;Add in banks, 
000170: 75 70 64 61 74 65 20 70 6F 69 6E 74 65 72 0D 0A  update pointer..
000180: 09 6C 64 20 62 63 2C 26 37 46 43 30 3A 20 6F 75  .ld bc,&7FC0: ou
000190: 74 20 28 63 29 2C 63 3A 20 6C 64 20 28 75 73 5F  t (c),c: ld (us_
0001A0: 74 6F 70 29 2C 68 6C 09 3B 20 7C 0D 0A 09 6A 70  top),hl.; |...jp
0001B0: 20 72 65 73 75 6D 65 09 09 09 09 3B 20 7C 0D 0A   resume....; |..
0001C0: 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 41 64 64  ...;--- subr.Add
0001D0: 20 77 6F 72 64 20 74 6F 20 64 69 63 74 69 6F 6E   word to diction
0001E0: 61 72 79 0D 0A 0D 0A 2E 61 64 64 77 72 64 09 6C  ary.....addwrd.l
0001F0: 64 20 69 78 2C 77 6F 72 64 0D 0A 2E 61 64 64 77  d ix,word...addw

Size : 512 (Real : 512)
000000: 0A 2E 63 6F 6E 5F 6C 70 09 6C 64 20 61 2C 28 64  ..con_lp.ld a,(d
000010: 65 29 3A 20 63 61 6C 6C 20 75 63 61 73 65 3A 20  e): call ucase: 
000020: 6C 64 20 63 2C 61 09 09 3B 49 73 20 69 74 20 74  ld c,a..;Is it t
000030: 68 65 20 73 61 6D 65 3F 0D 0A 09 63 61 6C 6C 20  he same?...call 
000040: 6C 64 61 68 6C 3A 20 63 70 20 63 3A 20 6A 72 20  ldahl: cp c: jr 
000050: 6E 7A 2C 63 6F 6E 5F 66 66 09 09 3B 20 7C 0D 0A  nz,con_ff..; |..
000060: 09 69 6E 63 20 62 3A 20 69 6E 63 20 68 6C 3A 20  .inc b: inc hl: 
000070: 69 6E 63 20 64 65 09 09 09 3B 49 66 20 73 6F 2C  inc de...;If so,
000080: 20 69 6E 63 72 65 61 73 65 20 63 6F 75 6E 74 20   increase count 
000090: 61 6E 64 20 6C 6F 6F 70 0D 0A 09 61 6E 64 20 31  and loop...and 1
0000A0: 32 38 3A 20 6A 72 20 7A 2C 63 6F 6E 5F 6C 70 3A  28: jr z,con_lp:
0000B0: 20 6A 72 20 63 6F 6E 5F 72 77 09 09 3B 20 7C 0D   jr con_rw..; |.
0000C0: 0A 0D 0A 2E 63 6F 6E 5F 66 66 09 63 61 6C 6C 20  ....con_ff.call 
0000D0: 6C 64 61 68 6C 69 3A 20 6F 72 20 61 3A 20 6A 72  ldahli: or a: jr
0000E0: 20 7A 2C 63 6F 6E 5F 72 32 09 09 3B 46 61 73 74   z,con_r2..;Fast
0000F0: 20 66 6F 72 77 61 72 64 20 74 6F 20 65 6E 64 20   forward to end 
000100: 6F 66 20 77 6F 72 64 0D 0A 09 09 20 20 62 69 74  of word....  bit
000110: 20 37 2C 61 3A 20 6A 72 20 7A 2C 63 6F 6E 5F 66   7,a: jr z,con_f
000120: 66 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 28 62  f..; |...ld a,(b
000130: 65 73 74 29 3A 20 63 70 20 62 20 20 3A 20 6A 72  est): cp b  : jr
000140: 20 7A 20 2C 63 6F 6E 5F 6F 6C 09 3B 4C 6F 6F 70   z ,con_ol.;Loop
000150: 20 69 66 20 62 65 73 74 20 74 68 65 20 73 61 6D   if best the sam
000160: 65 0D 0A 09 09 09 20 20 20 20 20 6A 72 20 6E 63  e.....     jr nc
000170: 2C 63 6F 6E 5F 72 77 09 3B 49 66 20 74 68 65 72  ,con_rw.;If ther
000180: 65 20 77 61 73 20 61 20 62 65 74 74 65 72 2C 20  e was a better, 
000190: 72 65 77 69 6E 64 0D 0A 09 6C 64 20 61 2C 62 3A  rewind...ld a,b:
0001A0: 20 6C 64 20 28 62 65 73 74 29 2C 61 3A 20 6A 72   ld (best),a: jr
0001B0: 20 20 20 20 63 6F 6E 5F 6F 6C 09 3B 45 6C 73 65      con_ol.;Else
0001C0: 20 73 74 6F 72 65 20 61 73 20 62 65 73 74 20 61   store as best a
0001D0: 6E 64 20 63 6F 6E 74 69 6E 75 65 0D 0A 0D 0A 2E  nd continue.....
0001E0: 63 6F 6E 5F 72 32 09 64 65 63 20 68 6C 09 09 09  con_r2.dec hl...
0001F0: 09 09 3B 50 61 73 74 20 30 20 69 66 20 65 6E 64  ..;Past 0 if end

Size : 512 (Real : 512)
000000: 6C 70 09 6C 64 20 61 2C 28 69 78 29 3A 20 69 6E  lp.ld a,(ix): in
000010: 63 20 69 78 3A 20 63 61 6C 6C 20 75 63 61 73 65  c ix: call ucase
000020: 0D 0A 09 6C 64 20 28 68 6C 29 2C 61 3A 20 69 6E  ...ld (hl),a: in
000030: 63 20 68 6C 0D 0A 09 61 6E 64 20 31 32 38 3A 20  c hl...and 128: 
000040: 6A 72 20 7A 2C 61 64 64 77 6C 70 3A 20 72 65 74  jr z,addwlp: ret
000050: 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 43  .....;--- subr.C
000060: 6F 6D 70 6C 61 69 6E 20 74 68 61 74 20 64 69 63  omplain that dic
000070: 74 69 6F 6E 61 72 79 20 69 73 20 66 75 6C 6C 0D  tionary is full.
000080: 0A 0D 0A 2E 64 63 66 75 6C 6C 09 63 61 6C 6C 20  ....dcfull.call 
000090: 26 42 42 36 43 3A 20 6C 64 20 68 6C 2C 66 75 6C  &BB6C: ld hl,ful
0000A0: 6C 74 78 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67  ltx: call string
0000B0: 0D 0A 09 63 61 6C 6C 20 26 42 42 30 36 3A 20 63  ...call &BB06: c
0000C0: 61 6C 6C 20 26 42 42 36 43 3A 20 6A 70 20 6F 70  all &BB6C: jp op
0000D0: 74 69 6F 6E 0D 0A 0D 0A 0D 0A 09 3B 2B 2B 2B 20  tion.......;+++ 
0000E0: 53 45 43 54 09 45 6E 64 20 6F 66 20 73 70 65 6C  SECT.End of spel
0000F0: 6C 69 6E 67 0D 0A 0D 0A 2E 73 70 6C 65 6F 66 09  ling.....spleof.
000100: 63 61 6C 6C 20 26 42 43 37 41 09 09 09 09 3B 43  call &BC7A....;C
000110: 6C 6F 73 65 20 69 6E 70 75 74 20 66 69 6C 65 0D  lose input file.
000120: 0A 09 63 61 6C 6C 20 26 42 43 38 46 09 09 09 09  ..call &BC8F....
000130: 3B 43 6C 6F 73 65 20 6F 75 74 70 75 74 20 66 69  ;Close output fi
000140: 6C 65 0D 0A 09 6C 64 20 62 63 2C 32 3A 20 63 61  le...ld bc,2: ca
000150: 6C 6C 20 26 42 42 42 37 09 09 09 3B 50 72 69 6E  ll &BBB7...;Prin
000160: 74 20 22 66 69 6E 69 73 68 65 64 22 20 6D 65 73  t "finished" mes
000170: 73 61 67 65 0D 0A 09 3A 20 63 61 6C 6C 20 26 42  sage...: call &B
000180: 42 36 43 09 09 09 09 3B 20 7C 0D 0A 09 3A 20 6C  B6C....; |...: l
000190: 64 20 68 6C 2C 66 69 6E 31 74 78 20 3A 20 63 61  d hl,fin1tx : ca
0001A0: 6C 6C 20 73 74 72 69 6E 67 09 09 3B 20 7C 0D 0A  ll string..; |..
0001B0: 09 3A 20 6C 64 20 68 6C 2C 28 77 6F 72 64 73 29  .: ld hl,(words)
0001C0: 3A 20 63 61 6C 6C 20 70 72 5F 68 6C 09 09 3B 20  : call pr_hl..; 
0001D0: 7C 0D 0A 09 3A 20 6C 64 20 68 6C 2C 66 69 6E 32  |...: ld hl,fin2
0001E0: 74 78 20 3A 20 63 61 6C 6C 20 73 74 72 69 6E 67  tx : call string
0001F0: 09 09 3B 20 7C 0D 0A 09 6C 64 20 62 63 2C 32 3A  ..; |...ld bc,2:

Size : 512 (Real : 512)
000000: 20 6F 66 20 6C 65 74 74 65 72 0D 0A 2E 63 6F 6E   of letter...con
000010: 5F 72 77 09 64 65 63 20 68 6C 09 09 09 09 09 3B  _rw.dec hl.....;
000020: 4D 6F 76 65 20 62 61 63 6B 20 70 61 73 74 20 68  Move back past h
000030: 69 67 68 20 62 79 74 65 0D 0A 2E 63 6F 6E 5F 72  igh byte...con_r
000040: 6C 09 64 65 63 20 68 6C 3A 20 63 61 6C 6C 20 6C  l.dec hl: call l
000050: 64 61 68 6C 09 09 09 3B 46 69 6E 64 20 73 74 61  dahl...;Find sta
000060: 72 74 20 6F 66 20 77 6F 72 64 0D 0A 09 62 69 74  rt of word...bit
000070: 20 37 2C 61 3A 20 6A 72 20 7A 2C 63 6F 6E 5F 72   7,a: jr z,con_r
000080: 6C 3A 20 69 6E 63 20 68 6C 3A 20 72 65 74 09 3B  l: inc hl: ret.;
000090: 20 7C 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72   |.....;--- subr
0000A0: 09 4D 6F 76 65 20 28 70 72 69 6E 74 69 6E 67 29  .Move (printing)
0000B0: 20 66 72 6F 6D 20 48 4C 20 74 6F 20 2E 6E 65 77   from HL to .new
0000C0: 77 72 64 2C 20 70 72 65 73 65 72 76 69 6E 67 20  wrd, preserving 
0000D0: 63 61 73 65 0D 0A 0D 0A 2E 6E 65 77 09 6C 64 20  case.....new.ld 
0000E0: 69 78 2C 6E 65 77 77 72 64 0D 0A 09 6C 64 20 61  ix,newwrd...ld a
0000F0: 2C 28 77 6F 72 64 29 3A 20 6C 64 20 63 2C 61 09  ,(word): ld c,a.
000100: 09 09 09 09 3B 49 6E 69 74 69 61 6C 20 75 2F 63  ....;Initial u/c
000110: 3F 0D 0A 09 63 61 6C 6C 20 75 63 61 73 65 20 3A  ?...call ucase :
000120: 20 63 70 20 63 3A 20 6A 72 20 6E 7A 2C 69 6E 69   cp c: jr nz,ini
000130: 5F 6C 63 09 09 09 09 3B 20 7C 0D 0A 09 63 61 6C  _lc....; |...cal
000140: 6C 20 69 6E 69 74 20 20 3A 20 6A 72 20 69 6E 69  l init  : jr ini
000150: 5F 72 73 09 09 09 09 09 3B 59 65 73 0D 0A 2E 69  _rs.....;Yes...i
000160: 6E 69 5F 6C 63 09 63 61 6C 6C 20 69 6E 69 74 20  ni_lc.call init 
000170: 20 3A 20 63 61 6C 6C 20 6C 63 61 73 65 09 09 09   : call lcase...
000180: 09 09 3B 4E 6F 0D 0A 2E 69 6E 69 5F 72 73 09 6C  ..;No...ini_rs.l
000190: 64 20 28 69 78 29 2C 61 20 20 3A 20 63 61 6C 6C  d (ix),a  : call
0001A0: 20 26 42 42 35 41 3A 20 69 6E 63 20 69 78 09 09   &BB5A: inc ix..
0001B0: 09 09 3B 50 6C 61 63 65 2F 70 72 69 6E 74 0D 0A  ..;Place/print..
0001C0: 0D 0A 09 6C 64 20 61 2C 28 77 6F 72 64 2B 31 29  ...ld a,(word+1)
0001D0: 3A 20 63 61 6C 6C 20 75 63 61 73 65 09 09 09 09  : call ucase....
0001E0: 3B 52 65 73 74 20 75 2F 63 3F 0D 0A 09 63 70 20  ;Rest u/c?...cp 
0001F0: 28 69 78 29 20 20 3A 20 6A 72 20 6E 7A 2C 6E 65  (ix)  : jr nz,ne

Size : 512 (Real : 512)
000000: 20 63 61 6C 6C 20 26 42 42 42 37 09 09 09 3B 20   call &BBB7...; 
000010: 7C 0D 0A 09 6A 70 20 70 61 75 73 65 0D 0A 0D 0A  |...jp pause....
000020: 09 3B 2D 2D 2D 20 73 75 62 73 09 49 73 20 61 20  .;--- subs.Is a 
000030: 63 68 61 72 61 63 74 65 72 20 41 53 43 49 49 3F  character ASCII?
000040: 20 28 43 20 69 66 20 79 65 73 2C 20 4E 43 20 69   (C if yes, NC i
000050: 66 20 6E 6F 74 29 0D 0A 0D 0A 2E 61 73 63 61 09  f not).....asca.
000060: 63 70 20 22 27 22 3A 20 63 63 66 3A 20 72 65 74  cp "'": ccf: ret
000070: 20 7A 0D 0A 2E 61 73 63 09 63 70 20 22 41 22 3A   z...asc.cp "A":
000080: 20 6A 72 20 63 2C 6E 6F 74 61 73 63 3A 20 63 70   jr c,notasc: cp
000090: 20 22 5B 22 3A 20 72 65 74 20 63 0D 0A 09 63 70   "[": ret c...cp
0000A0: 20 22 61 22 3A 20 6A 72 20 63 2C 6E 6F 74 61 73   "a": jr c,notas
0000B0: 63 3A 20 63 70 20 22 7B 22 3A 20 72 65 74 20 63  c: cp "{": ret c
0000C0: 0D 0A 2E 6E 6F 74 61 73 63 09 6F 72 20 61 3A 20  ...notasc.or a: 
0000D0: 72 65 74 0D 0A 0D 0A 09 3B 2D 2D 2D 20 73 75 62  ret.....;--- sub
0000E0: 73 09 44 69 73 70 6C 61 79 20 63 68 61 72 61 63  s.Display charac
0000F0: 74 65 72 20 6F 6E 20 73 63 72 65 65 6E 0D 0A 0D  ter on screen...
000100: 0A 2E 64 69 73 70 09 70 75 73 68 20 61 66 3A 20  ..disp.push af: 
000110: 6C 64 20 62 63 2C 31 3A 20 63 61 6C 6C 20 26 42  ld bc,1: call &B
000120: 42 42 37 3A 20 70 6F 70 20 61 66 0D 0A 09 63 70  BB7: pop af...cp
000130: 20 26 38 41 20 3A 20 63 61 6C 6C 20 7A 2C 64 69   &8A : call z,di
000140: 73 70 6C 66 0D 0A 09 63 70 20 26 39 30 20 3A 20  splf...cp &90 : 
000150: 63 61 6C 6C 20 7A 2C 64 69 73 70 73 70 0D 0A 09  call z,dispsp...
000160: 63 70 20 31 30 20 20 3A 20 6A 72 20 20 20 7A 2C  cp 10  : jr   z,
000170: 64 69 73 70 64 6F 0D 0A 09 63 70 20 31 33 20 20  dispdo...cp 13  
000180: 3A 20 6A 72 20 20 20 7A 2C 64 69 73 70 64 6F 0D  : jr   z,dispdo.
000190: 0A 09 63 70 20 33 32 20 20 3A 20 6A 72 20 20 20  ..cp 32  : jr   
0001A0: 63 2C 64 69 73 70 71 74 0D 0A 09 63 70 20 31 32  c,dispqt...cp 12
0001B0: 37 20 3A 20 6A 72 20 20 6E 63 2C 64 69 73 70 71  7 : jr  nc,dispq
0001C0: 74 0D 0A 2E 64 69 73 70 64 6F 09 63 61 6C 6C 20  t...dispdo.call 
0001D0: 26 42 42 35 41 0D 0A 2E 64 69 73 70 71 74 09 6C  &BB5A...dispqt.l
0001E0: 64 20 62 63 2C 31 3A 20 6A 70 20 26 42 42 42 37  d bc,1: jp &BBB7
0001F0: 0D 0A 2E 64 69 73 70 6C 66 09 6C 64 20 61 2C 31  ...displf.ld a,1

Size : 512 (Real : 512)
000000: 64 5F 6B 65 6E 0D 0A 09 6C 64 20 61 2C 68 3A 20  d_ken...ld a,h: 
000010: 61 64 64 20 31 39 3A 20 6C 64 20 68 2C 61 3A 20  add 19: ld h,a: 
000020: 69 6E 63 20 69 78 3A 20 69 6E 63 20 69 78 3A 20  inc ix: inc ix: 
000030: 6A 72 20 65 64 5F 6B 65 6E 0D 0A 0D 0A 0D 0A 09  jr ed_ken.......
000040: 3B 2B 2B 2B 20 53 55 42 52 09 50 72 69 6E 74 20  ;+++ SUBR.Print 
000050: 73 63 72 65 65 6E 20 28 73 74 61 72 74 69 6E 67  screen (starting
000060: 20 61 74 20 48 4C 29 0D 0A 0D 0A 2E 65 64 5F 73   at HL).....ed_s
000070: 63 72 09 70 75 73 68 20 68 6C 09 09 09 09 09 09  cr.push hl......
000080: 3B 43 6C 65 61 72 20 74 61 62 6C 65 0D 0A 09 20  ;Clear table... 
000090: 6C 64 20 68 6C 2C 65 64 5F 74 61 62 20 20 3A 20  ld hl,ed_tab  : 
0000A0: 6C 64 20 28 68 6C 29 2C 30 09 09 09 3B 20 7C 0D  ld (hl),0...; |.
0000B0: 0A 09 20 6C 64 20 64 65 2C 65 64 5F 74 61 62 2B  .. ld de,ed_tab+
0000C0: 31 3A 20 6C 64 20 62 63 2C 35 35 3A 20 6C 64 69  1: ld bc,55: ldi
0000D0: 72 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 62 63  r...; |... ld bc
0000E0: 2C 31 3A 20 63 61 6C 6C 20 26 42 42 42 37 3A 20  ,1: call &BBB7: 
0000F0: 63 61 6C 6C 20 26 42 42 36 43 09 09 3B 20 7C 20  call &BB6C..; | 
000100: 73 65 6C 65 63 74 20 77 69 6E 64 6F 77 20 23 31  select window #1
000110: 0D 0A 09 70 6F 70 20 68 6C 09 09 09 09 09 09 3B  ...pop hl......;
000120: 20 7C 0D 0A 09 6C 64 20 69 78 2C 65 64 5F 74 61   |...ld ix,ed_ta
000130: 62 3A 20 6C 64 20 62 2C 32 38 0D 0A 0D 0A 2E 65  b: ld b,28.....e
000140: 64 5F 73 6C 70 09 6C 64 20 64 65 2C 28 75 73 5F  d_slp.ld de,(us_
000150: 74 6F 70 29 09 09 09 09 09 3B 41 72 65 20 77 65  top).....;Are we
000160: 20 61 74 20 74 68 65 20 65 6E 64 3F 0D 0A 09 70   at the end?...p
000170: 75 73 68 20 68 6C 3A 20 6F 72 20 61 3A 20 73 62  ush hl: or a: sb
000180: 63 20 68 6C 2C 64 65 3A 20 70 6F 70 20 68 6C 3A  c hl,de: pop hl:
000190: 20 6A 72 20 7A 2C 65 64 5F 72 65 74 09 3B 20 7C   jr z,ed_ret.; |
0001A0: 20 72 65 74 75 72 6E 20 69 66 20 73 6F 0D 0A 09   return if so...
0001B0: 6C 64 20 28 69 78 29 2C 6C 3A 20 69 6E 63 20 69  ld (ix),l: inc i
0001C0: 78 09 09 09 09 3B 45 6C 73 65 20 73 74 6F 72 65  x....;Else store
0001D0: 20 69 6E 20 74 61 62 6C 65 0D 0A 09 6C 64 20 28   in table...ld (
0001E0: 69 78 29 2C 68 3A 20 69 6E 63 20 69 78 09 09 09  ix),h: inc ix...
0001F0: 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20 73 74 72 37  .; |...call str7

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 09 09 3B 44 6F 20 66 6F          ..;Do fo
000010: 72 20 32 37 20 77 6F 72 64 73 0D 0A 0D 0A 2E 65  r 27 words.....e
000020: 64 5F 72 64 09 70 75 73 68 20 68 6C 3A 20 6C 64  d_rd.push hl: ld
000030: 20 62 63 2C 32 3A 20 63 61 6C 6C 20 26 42 42 42   bc,2: call &BBB
000040: 37 3A 20 70 6F 70 20 68 6C 3A 20 6A 70 20 65 64  7: pop hl: jp ed
000050: 5F 64 6F 73 09 3B 52 65 64 6F 20 6C 69 73 74 0D  _dos.;Redo list.
000060: 0A 0D 0A 09 3B 2D 2D 2D 20 72 6F 75 74 09 41 64  ....;--- rout.Ad
000070: 64 20 77 6F 72 64 0D 0A 0D 0A 2E 65 64 5F 61 64  d word.....ed_ad
000080: 64 09 6C 64 20 61 2C 28 75 73 5F 74 6F 70 2B 31  d.ld a,(us_top+1
000090: 29 3A 20 63 70 20 26 37 46 3A 20 6A 70 20 7A 2C  ): cp &7F: jp z,
0000A0: 65 64 5F 6B 6C 70 09 3B 44 6F 6E 27 74 20 64 6F  ed_klp.;Don't do
0000B0: 20 69 74 20 69 66 20 64 69 63 74 69 6F 6E 61 72   it if dictionar
0000C0: 79 20 66 75 6C 6C 0D 0A 09 70 6F 70 20 68 6C 3A  y full...pop hl:
0000D0: 20 63 61 6C 6C 20 26 42 42 36 43 0D 0A 09 6C 64   call &BB6C...ld
0000E0: 20 68 6C 2C 61 64 64 5F 74 78 3A 20 63 61 6C 6C   hl,add_tx: call
0000F0: 20 73 74 72 69 6E 67 0D 0A 09 6C 64 20 69 78 2C   string...ld ix,
000100: 69 6E 70 62 75 66 3A 20 63 61 6C 6C 20 69 6E 70  inpbuf: call inp
000110: 75 74 09 09 3B 49 6E 70 75 74 0D 0A 09 6A 70 20  ut..;Input...jp 
000120: 63 2C 65 64 5F 61 65 78 20 3A 20 6C 64 20 61 2C  c,ed_aex : ld a,
000130: 62 3A 20 6F 72 20 61 09 09 3B 49 66 20 45 53 43  b: or a..;If ESC
000140: 2C 20 71 75 69 74 0D 0A 09 6A 70 20 7A 2C 65 64  , quit...jp z,ed
000150: 5F 61 65 78 09 09 09 09 3B 49 66 20 73 74 72 69  _aex....;If stri
000160: 6E 67 20 65 6D 70 74 79 2C 20 71 75 69 74 0D 0A  ng empty, quit..
000170: 0D 0A 09 6C 64 20 69 78 2C 69 6E 70 62 75 66 3A  ...ld ix,inpbuf:
000180: 20 6C 64 20 68 6C 2C 77 6F 72 64 09 09 3B 43 6F   ld hl,word..;Co
000190: 70 79 20 77 6F 72 64 20 66 72 6F 6D 20 69 6E 70  py word from inp
0001A0: 75 74 20 62 75 66 66 65 72 0D 0A 2E 65 64 5F 74  ut buffer...ed_t
0001B0: 74 72 09 6C 64 20 61 2C 28 69 78 29 3A 20 69 6E  tr.ld a,(ix): in
0001C0: 63 20 69 78 09 09 09 3B 20 7C 0D 0A 09 6C 64 20  c ix...; |...ld 
0001D0: 28 68 6C 29 2C 61 3A 20 69 6E 63 20 68 6C 3A 20  (hl),a: inc hl: 
0001E0: 64 6A 6E 7A 20 65 64 5F 74 74 72 09 09 3B 20 7C  djnz ed_ttr..; |
0001F0: 0D 0A 09 64 65 63 20 68 6C 3A 20 73 65 74 20 37  ...dec hl: set 7

Size : 512 (Real : 512)
000000: 31 36 3A 20 63 61 6C 6C 20 65 64 74 61 62 75 09  16: call edtabu.
000010: 09 09 3B 50 72 69 6E 74 0D 0A 09 64 6A 6E 7A 20  ..;Print...djnz 
000020: 65 64 5F 73 6C 70 09 09 09 09 09 3B 2E 2E 2E 61  ed_slp.....;...a
000030: 6E 64 20 6C 6F 6F 70 0D 0A 2E 65 64 5F 72 65 74  nd loop...ed_ret
000040: 09 6C 64 20 62 63 2C 31 3A 20 6A 70 20 26 42 42  .ld bc,1: jp &BB
000050: 42 37 09 09 09 09 3B 44 65 73 65 6C 65 63 74 20  B7....;Deselect 
000060: 23 31 20 61 6E 64 20 72 65 74 75 72 6E 0D 0A 0D  #1 and return...
000070: 0A 2E 65 64 5F 74 61 62 09 64 73 20 35 36 09 09  ..ed_tab.ds 56..
000080: 09 09 09 09 3B 51 75 69 63 6B 20 72 65 66 65 72  ....;Quick refer
000090: 65 6E 63 65 20 74 61 62 6C 65 0D 0A 0D 0A 2E 65  ence table.....e
0000A0: 64 74 61 62 75 09 70 75 73 68 20 68 6C 3A 20 63  dtabu.push hl: c
0000B0: 61 6C 6C 20 26 42 42 37 38 3A 20 6C 64 20 63 2C  all &BB78: ld c,
0000C0: 68 3A 20 70 6F 70 20 68 6C 09 09 3B 54 61 62 75  h: pop hl..;Tabu
0000D0: 6C 61 74 65 20 74 6F 20 6E 65 78 74 20 70 6C 61  late to next pla
0000E0: 63 65 0D 0A 09 6C 64 20 61 2C 31 39 3A 20 63 70  ce...ld a,19: cp
0000F0: 20 63 3A 20 6A 72 20 6E 63 2C 65 64 74 61 62 64   c: jr nc,edtabd
000100: 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 33 38  ...; |...ld a,38
000110: 3A 20 63 70 20 63 3A 20 6A 72 20 6E 63 2C 65 64  : cp c: jr nc,ed
000120: 74 61 62 64 09 09 09 3B 20 7C 0D 0A 09 6C 64 20  tabd...; |...ld 
000130: 61 2C 35 37 3A 20 63 70 20 63 3A 20 6A 72 20 6E  a,57: cp c: jr n
000140: 63 2C 65 64 74 61 62 64 09 09 09 3B 20 7C 0D 0A  c,edtabd...; |..
000150: 09 6C 64 20 61 2C 31 30 3A 20 63 61 6C 6C 20 26  .ld a,10: call &
000160: 42 42 35 41 09 09 09 09 3B 4E 65 78 74 20 72 6F  BB5A....;Next ro
000170: 77 20 69 66 20 61 74 20 65 6E 64 0D 0A 09 6C 64  w if at end...ld
000180: 20 61 2C 31 33 3A 20 6A 70 20 20 20 26 42 42 35   a,13: jp   &BB5
000190: 41 09 09 09 09 3B 20 7C 0D 0A 0D 0A 2E 65 64 74  A....; |.....edt
0001A0: 61 62 64 09 70 75 73 68 20 61 66 3A 20 6C 64 20  abd.push af: ld 
0001B0: 61 2C 39 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A  a,9: call &BB5A:
0001C0: 20 70 6F 70 20 61 66 09 09 3B 41 63 74 75 61 6C   pop af..;Actual
0001D0: 20 74 61 62 20 72 6F 75 74 69 6E 65 0D 0A 09 69   tab routine...i
0001E0: 6E 63 20 63 3A 20 63 70 20 63 3A 20 6A 72 20 6E  nc c: cp c: jr n
0001F0: 7A 2C 65 64 74 61 62 64 3A 20 72 65 74 09 09 09  z,edtabd: ret...

Size : 512 (Real : 512)
000000: 2C 28 68 6C 29 09 09 09 3B 20 7C 20 73 65 74 20  ,(hl)...; | set 
000010: 68 69 67 68 20 62 69 74 0D 0A 09 63 61 6C 6C 20  high bit...call 
000020: 63 68 65 63 6B 3A 20 6C 64 20 62 63 2C 26 37 46  check: ld bc,&7F
000030: 43 37 3A 20 6F 75 74 20 28 63 29 2C 63 09 3B 41  C7: out (c),c.;A
000040: 6C 72 65 61 64 79 20 69 6E 20 74 68 65 20 64 69  lready in the di
000050: 63 74 69 6F 6E 61 72 79 3F 0D 0A 09 6A 70 20 63  ctionary?...jp c
000060: 2C 65 64 5F 61 65 78 3A 20 6C 64 20 69 78 2C 28  ,ed_aex: ld ix,(
000070: 75 73 5F 74 6F 70 29 3A 20 63 61 6C 6C 20 63 64  us_top): call cd
000080: 69 63 74 09 3B 41 6C 72 65 61 64 79 20 69 6E 20  ict.;Already in 
000090: 75 73 65 72 20 64 69 63 74 69 6F 6E 61 72 79 3F  user dictionary?
0000A0: 0D 0A 09 6A 70 20 63 2C 65 64 5F 61 65 78 3A 20  ...jp c,ed_aex: 
0000B0: 6C 64 20 68 6C 2C 28 75 73 5F 74 6F 70 29 3A 20  ld hl,(us_top): 
0000C0: 63 61 6C 6C 20 61 64 64 77 72 64 3B 4E 6F 2C 20  call addwrd;No, 
0000D0: 73 6F 20 61 64 64 20 77 6F 72 64 0D 0A 09 6C 64  so add word...ld
0000E0: 20 28 75 73 5F 74 6F 70 29 2C 68 6C 09 09 09 09   (us_top),hl....
0000F0: 3B 20 7C 0D 0A 2E 65 64 5F 61 65 78 09 6C 64 20  ; |...ed_aex.ld 
000100: 68 6C 2C 28 65 64 5F 74 61 62 29 3A 20 6A 70 20  hl,(ed_tab): jp 
000110: 65 64 5F 72 64 0D 0A 0D 0A 09 3B 2D 2D 2D 20 72  ed_rd.....;--- r
000120: 6F 75 74 09 44 65 6C 65 74 65 20 77 6F 72 64 0D  out.Delete word.
000130: 0A 0D 0A 2E 65 64 5F 64 65 6C 09 6C 64 20 61 2C  ....ed_del.ld a,
000140: 28 69 78 29 3A 20 6F 72 20 28 69 78 2B 31 29 3A  (ix): or (ix+1):
000150: 20 6A 70 20 7A 2C 65 64 5F 6B 6C 70 09 3B 44 6F   jp z,ed_klp.;Do
000160: 6E 27 74 20 64 6F 20 69 74 20 69 66 20 6E 6F 74  n't do it if not
000170: 20 6F 6E 20 77 6F 72 64 0D 0A 09 70 6F 70 20 68   on word...pop h
000180: 6C 3A 20 6C 64 20 6C 2C 28 69 78 29 3A 20 6C 64  l: ld l,(ix): ld
000190: 20 68 2C 28 69 78 2B 31 29 09 09 3B 46 69 6E 64   h,(ix+1)..;Find
0001A0: 20 61 64 64 72 65 73 73 20 6F 66 20 77 6F 72 64   address of word
0001B0: 0D 0A 09 6C 64 20 65 2C 6C 3A 20 6C 64 20 64 2C  ...ld e,l: ld d,
0001C0: 68 0D 0A 2E 65 64 5F 64 6C 74 09 6C 64 20 61 2C  h...ed_dlt.ld a,
0001D0: 28 64 65 29 3A 20 69 6E 63 20 64 65 3A 20 61 6E  (de): inc de: an
0001E0: 64 20 31 32 38 3A 20 6A 72 20 7A 2C 65 64 5F 64  d 128: jr z,ed_d
0001F0: 6C 74 09 3B 46 69 6E 64 20 61 64 64 72 65 73 73  lt.;Find address

Size : 512 (Real : 512)
000000: 3B 20 7C 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D  ; |.............
000010: 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09 4C 6F  ....;*** ROUT.Lo
000020: 61 64 20 75 73 65 72 20 64 69 63 74 69 6F 6E 61  ad user dictiona
000030: 72 79 0D 0A 0D 0A 2E 75 5F 6C 6F 61 64 09 63 61  ry.....u_load.ca
000040: 6C 6C 20 63 6C 65 61 72 0D 0A 09 6C 64 20 68 6C  ll clear...ld hl
000050: 2C 63 66 6E 5F 74 78 3A 20 63 61 6C 6C 20 73 74  ,cfn_tx: call st
000060: 72 69 6E 67 3A 20 6C 64 20 69 78 2C 73 66 6E 20  ring: ld ix,sfn 
000070: 20 20 3A 20 63 61 6C 6C 20 69 6E 70 75 74 3A 20    : call input: 
000080: 6A 70 20 63 20 2C 6D 61 69 6E 0D 0A 09 09 09 09  jp c ,main......
000090: 20 20 20 6C 64 20 64 65 2C 69 6E 62 75 66 66 3A     ld de,inbuff:
0000A0: 20 63 61 6C 6C 20 26 42 43 37 37 3A 20 6A 70 20   call &BC77: jp 
0000B0: 6E 63 2C 70 61 75 73 65 0D 0A 09 63 70 20 33 3A  nc,pause...cp 3:
0000C0: 20 6A 70 20 6E 7A 2C 6E 74 64 69 63 74 09 09 09   jp nz,ntdict...
0000D0: 09 3B 44 69 63 74 69 6F 6E 61 72 79 20 66 69 6C  .;Dictionary fil
0000E0: 65 3F 0D 0A 09 73 65 74 20 36 2C 62 3A 20 6C 64  e?...set 6,b: ld
0000F0: 20 28 75 73 5F 74 6F 70 29 2C 62 63 09 09 09 09   (us_top),bc....
000100: 3B 53 65 74 20 6C 65 6E 67 74 68 0D 0A 09 6C 64  ;Set length...ld
000110: 20 62 63 2C 26 37 46 43 37 3A 20 6F 75 74 20 28   bc,&7FC7: out (
000120: 63 29 2C 63 09 09 09 09 3B 52 65 61 64 20 66 69  c),c....;Read fi
000130: 6C 65 20 69 6E 0D 0A 09 6C 64 20 68 6C 2C 26 34  le in...ld hl,&4
000140: 30 30 30 3A 20 63 61 6C 6C 20 26 42 43 38 33 09  000: call &BC83.
000150: 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 62 63 2C 26  ...; |...ld bc,&
000160: 37 46 43 30 3A 20 6F 75 74 20 28 63 29 2C 63 09  7FC0: out (c),c.
000170: 09 09 09 3B 20 7C 0D 0A 09 70 75 73 68 20 61 66  ...; |...push af
000180: 3A 20 63 61 6C 6C 20 26 42 43 37 41 3A 20 70 6F  : call &BC7A: po
000190: 70 20 61 66 09 09 09 3B 20 7C 0D 0A 09 6A 70 20  p af...; |...jp 
0001A0: 6E 63 2C 70 61 75 73 65 3A 20 6A 70 20 6D 61 69  nc,pause: jp mai
0001B0: 6E 0D 0A 0D 0A 2E 6E 74 64 69 63 74 09 63 61 6C  n.....ntdict.cal
0001C0: 6C 20 63 6C 65 61 72 20 3A 20 6C 64 20 68 6C 2C  l clear : ld hl,
0001D0: 6E 74 64 5F 74 78 09 09 09 3B 22 57 72 6F 6E 67  ntd_tx...;"Wrong
0001E0: 20 66 69 6C 65 74 79 70 65 22 20 65 72 72 6F 72   filetype" error
0001F0: 0D 0A 09 63 61 6C 6C 20 73 74 72 69 6E 67 3A 20  ...call string:

Size : 512 (Real : 512)
000000: 20 6F 66 20 6E 65 78 74 20 77 6F 72 64 0D 0A 09   of next word...
000010: 6C 64 20 62 63 2C 28 75 73 5F 74 6F 70 29 0D 0A  ld bc,(us_top)..
000020: 0D 0A 2E 65 64 5F 6C 70 09 6C 64 20 61 2C 64 3A  ...ed_lp.ld a,d:
000030: 20 63 70 20 62 3A 20 6A 72 20 6E 7A 2C 65 64 64   cp b: jr nz,edd
000040: 6E 6F 74 09 09 3B 41 72 65 20 77 65 20 61 74 20  not..;Are we at 
000050: 74 68 65 20 65 6E 64 20 79 65 74 3F 0D 0A 09 6C  the end yet?...l
000060: 64 20 61 2C 65 3A 20 63 70 20 63 3A 20 6A 72 20  d a,e: cp c: jr 
000070: 7A 20 2C 65 64 64 65 6E 64 09 09 3B 20 7C 0D 0A  z ,eddend..; |..
000080: 2E 65 64 64 6E 6F 74 09 6C 64 20 61 2C 28 64 65  .eddnot.ld a,(de
000090: 29 3A 20 69 6E 63 20 64 65 09 09 09 3B 4E 6F 2C  ): inc de...;No,
0000A0: 20 73 6F 20 63 6F 70 79 20 62 79 74 65 20 61 6E   so copy byte an
0000B0: 64 20 6C 6F 6F 70 0D 0A 09 6C 64 20 28 68 6C 29  d loop...ld (hl)
0000C0: 2C 61 3A 20 69 6E 63 20 68 6C 3A 20 6A 72 20 65  ,a: inc hl: jr e
0000D0: 64 5F 6C 70 09 09 3B 20 7C 0D 0A 2E 65 64 64 65  d_lp..; |...edde
0000E0: 6E 64 09 6C 64 20 28 75 73 5F 74 6F 70 29 2C 68  nd.ld (us_top),h
0000F0: 6C 3A 20 6A 70 20 65 64 5F 61 65 78 09 09 3B 53  l: jp ed_aex..;S
000100: 65 74 20 6E 65 77 20 22 74 6F 70 22 20 61 6E 64  et new "top" and
000110: 20 72 65 73 74 61 72 74 0D 0A 0D 0A 0D 0A 09 3B   restart.......;
000120: 2B 2B 2B 20 53 55 42 52 09 47 65 74 20 6B 65 79  +++ SUBR.Get key
000130: 2C 20 63 6F 6E 74 72 6F 6C 20 63 75 72 73 6F 72  , control cursor
000140: 20 6D 6F 76 65 6D 65 6E 74 0D 0A 0D 0A 2E 65 64   movement.....ed
000150: 5F 6B 65 79 09 70 75 73 68 20 68 6C 3A 20 6C 64  _key.push hl: ld
000160: 20 62 63 2C 31 3A 20 63 61 6C 6C 20 26 42 42 42   bc,1: call &BBB
000170: 37 3A 20 70 6F 70 20 68 6C 0D 0A 2E 65 64 5F 6B  7: pop hl...ed_k
000180: 65 6E 09 70 75 73 68 20 68 6C 3A 20 63 61 6C 6C  en.push hl: call
000190: 20 26 42 42 37 35 3A 20 70 6F 70 20 68 6C 3A 20   &BB75: pop hl: 
0001A0: 6C 64 20 61 2C 32 34 32 3A 20 63 61 6C 6C 20 26  ld a,242: call &
0001B0: 42 42 35 41 3A 20 63 61 6C 6C 20 26 42 42 30 36  BB5A: call &BB06
0001C0: 3A 20 70 75 73 68 20 61 66 0D 0A 09 70 75 73 68  : push af...push
0001D0: 20 68 6C 3A 20 63 61 6C 6C 20 26 42 42 37 35 3A   hl: call &BB75:
0001E0: 20 70 6F 70 20 68 6C 3A 20 6C 64 20 61 2C 33 32   pop hl: ld a,32
0001F0: 20 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 09   : call &BB5A: .

Size : 512 (Real : 512)
000000: 6A 70 20 70 61 75 73 65 09 09 09 09 3B 20 7C 0D  jp pause....; |.
000010: 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09  ......;*** ROUT.
000020: 53 61 76 65 20 75 73 65 72 20 64 69 63 74 69 6F  Save user dictio
000030: 6E 61 72 79 0D 0A 0D 0A 2E 75 5F 73 61 76 65 09  nary.....u_save.
000040: 6C 64 20 68 6C 2C 28 75 73 5F 74 6F 70 29 20 3A  ld hl,(us_top) :
000050: 20 6C 64 20 64 65 2C 26 34 30 30 30 09 09 09 3B   ld de,&4000...;
000060: 44 6F 6E 27 74 20 73 61 76 65 20 69 66 20 6E 6F  Don't save if no
000070: 74 20 74 68 65 72 65 0D 0A 09 6F 72 20 61 3A 20  t there...or a: 
000080: 73 62 63 20 68 6C 2C 64 65 3A 20 6A 70 20 7A 2C  sbc hl,de: jp z,
000090: 6D 61 69 6E 09 09 09 3B 20 7C 0D 0A 0D 0A 09 63  main...; |.....c
0000A0: 61 6C 6C 20 63 6C 65 61 72 0D 0A 09 6C 64 20 68  all clear...ld h
0000B0: 6C 2C 63 66 6E 5F 74 78 3A 20 63 61 6C 6C 20 73  l,cfn_tx: call s
0000C0: 74 72 69 6E 67 3A 20 6C 64 20 69 78 2C 73 66 6E  tring: ld ix,sfn
0000D0: 20 20 20 3A 20 63 61 6C 6C 20 69 6E 70 75 74 3A     : call input:
0000E0: 20 6A 70 20 63 20 2C 6D 61 69 6E 0D 0A 09 09 09   jp c ,main.....
0000F0: 09 20 20 20 6C 64 20 64 65 2C 69 6E 62 75 66 66  .   ld de,inbuff
000100: 3A 20 63 61 6C 6C 20 26 42 43 38 43 3A 20 6A 70  : call &BC8C: jp
000110: 20 6E 63 2C 70 61 75 73 65 0D 0A 09 6C 64 20 62   nc,pause...ld b
000120: 63 2C 26 37 46 43 37 3A 20 6F 75 74 20 28 63 29  c,&7FC7: out (c)
000130: 2C 63 0D 0A 09 6C 64 20 68 6C 2C 26 34 30 30 30  ,c...ld hl,&4000
000140: 20 20 20 3A 20 6C 64 20 20 61 2C 33 09 09 09 09     : ld  a,3....
000150: 3B 57 72 69 74 65 20 66 69 6C 65 0D 0A 09 6C 64  ;Write file...ld
000160: 20 64 65 2C 28 75 73 5F 74 6F 70 29 3A 20 72 65   de,(us_top): re
000170: 73 20 36 2C 64 3A 20 63 61 6C 6C 20 26 42 43 39  s 6,d: call &BC9
000180: 38 09 09 3B 20 7C 0D 0A 09 6C 64 20 62 63 2C 26  8..; |...ld bc,&
000190: 37 46 43 30 3A 20 6F 75 74 20 28 63 29 2C 63 09  7FC0: out (c),c.
0001A0: 09 09 09 3B 20 7C 0D 0A 09 70 75 73 68 20 61 66  ...; |...push af
0001B0: 3A 20 63 61 6C 6C 20 26 42 43 38 46 3A 20 70 6F  : call &BC8F: po
0001C0: 70 20 61 66 09 09 09 3B 20 7C 0D 0A 09 6A 70 20  p af...; |...jp 
0001D0: 6E 63 2C 70 61 75 73 65 3A 20 6A 70 20 6D 61 69  nc,pause: jp mai
0001E0: 6E 0D 0A 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52  n.........;*** R
0001F0: 4F 55 54 09 49 6E 73 74 72 75 63 74 69 6F 6E 73  OUT.Instructions

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 70 6F 70 20 20 61 66 0D 0A         pop  af..
000010: 09 63 70 20 32 34 30 3A 20 6A 72 20 7A 2C 65 64  .cp 240: jr z,ed
000020: 6B 5F 75 70 3A 20 63 70 20 32 34 31 3A 20 6A 72  k_up: cp 241: jr
000030: 20 7A 2C 65 64 6B 5F 64 6E 0D 0A 09 63 70 20 32   z,edk_dn...cp 2
000040: 34 32 3A 20 6A 72 20 7A 2C 65 64 6B 5F 6C 74 3A  42: jr z,edk_lt:
000050: 20 63 70 20 32 34 33 3A 20 6A 72 20 7A 2C 65 64   cp 243: jr z,ed
000060: 6B 5F 72 74 0D 0A 09 63 61 6C 6C 20 75 63 61 73  k_rt...call ucas
000070: 65 3A 20 70 75 73 68 20 61 66 0D 0A 09 70 75 73  e: push af...pus
000080: 68 20 68 6C 3A 20 6C 64 20 62 63 2C 31 3A 20 63  h hl: ld bc,1: c
000090: 61 6C 6C 20 26 42 42 42 37 3A 20 70 6F 70 20 68  all &BBB7: pop h
0000A0: 6C 0D 0A 09 70 6F 70 20 61 66 3A 20 72 65 74 0D  l...pop af: ret.
0000B0: 0A 0D 0A 2E 65 64 6B 5F 75 70 09 6C 64 20 61 2C  ....edk_up.ld a,
0000C0: 6C 3A 20 63 70 20 31 3A 20 6A 72 20 7A 2C 65 64  l: cp 1: jr z,ed
0000D0: 5F 6B 65 6E 0D 0A 09 64 65 63 20 6C 3A 20 6C 64  _ken...dec l: ld
0000E0: 20 64 65 2C 2D 38 3A 20 61 64 64 20 69 78 2C 64   de,-8: add ix,d
0000F0: 65 3A 20 6A 72 20 65 64 5F 6B 65 6E 0D 0A 2E 65  e: jr ed_ken...e
000100: 64 6B 5F 6C 74 09 6C 64 20 61 2C 68 3A 20 63 70  dk_lt.ld a,h: cp
000110: 20 31 37 3A 20 6A 72 20 7A 2C 65 64 5F 6B 65 6E   17: jr z,ed_ken
000120: 0D 0A 09 73 75 62 20 31 39 3A 20 6C 64 20 68 2C  ...sub 19: ld h,
000130: 61 3A 20 64 65 63 20 69 78 3A 20 64 65 63 20 69  a: dec ix: dec i
000140: 78 3A 20 6A 72 20 65 64 5F 6B 65 6E 0D 0A 2E 65  x: jr ed_ken...e
000150: 64 6B 5F 64 6E 09 6C 64 20 61 2C 6C 3A 20 63 70  dk_dn.ld a,l: cp
000160: 20 37 20 3A 20 6A 72 20 7A 2C 65 64 5F 6B 65 6E   7 : jr z,ed_ken
000170: 3A 20 6C 64 20 61 2C 28 69 78 2B 38 29 3A 20 6F  : ld a,(ix+8): o
000180: 72 20 28 69 78 2B 39 29 3A 20 6A 72 20 7A 2C 65  r (ix+9): jr z,e
000190: 64 5F 6B 65 6E 0D 0A 09 69 6E 63 20 6C 3A 20 6C  d_ken...inc l: l
0001A0: 64 20 64 65 2C 38 3A 20 61 64 64 20 69 78 2C 64  d de,8: add ix,d
0001B0: 65 3A 20 6A 72 20 65 64 5F 6B 65 6E 0D 0A 2E 65  e: jr ed_ken...e
0001C0: 64 6B 5F 72 74 09 6C 64 20 61 2C 68 3A 20 63 70  dk_rt.ld a,h: cp
0001D0: 20 37 34 3A 20 6A 72 20 7A 2C 65 64 5F 6B 65 6E   74: jr z,ed_ken
0001E0: 3A 20 6C 64 20 61 2C 28 69 78 2B 32 29 3A 20 6F  : ld a,(ix+2): o
0001F0: 72 20 28 69 78 2B 33 29 3A 20 6A 72 20 7A 2C 65  r (ix+3): jr z,e

Size : 512 (Real : 512)
000000: 65 64 5F 74 61 62 2B 35 34 29 09 09 09 3B 49 73  ed_tab+54)...;Is
000010: 20 74 68 65 72 65 20 61 20 6E 65 78 74 20 73 63   there a next sc
000020: 72 65 65 6E 3F 0D 0A 09 6C 64 20 61 2C 64 3A 20  reen?...ld a,d: 
000030: 6F 72 20 65 3A 20 6A 70 20 7A 2C 65 64 5F 6B 6C  or e: jp z,ed_kl
000040: 70 09 09 3B 20 7C 0D 0A 09 70 6F 70 20 68 6C 3A  p..; |...pop hl:
000050: 20 65 78 20 64 65 2C 68 6C 3A 20 6A 70 20 65 64   ex de,hl: jp ed
000060: 5F 72 64 09 09 3B 59 65 73 2C 20 73 6F 20 64 6F  _rd..;Yes, so do
000070: 20 69 74 0D 0A 0D 0A 09 3B 2D 2D 2D 20 72 6F 75   it.....;--- rou
000080: 74 09 50 72 65 76 69 6F 75 73 20 73 63 72 65 65  t.Previous scree
000090: 6E 0D 0A 0D 0A 2E 65 64 5F 70 72 76 09 6C 64 20  n.....ed_prv.ld 
0000A0: 61 2C 28 69 78 29 3A 20 6F 72 20 28 69 78 2B 31  a,(ix): or (ix+1
0000B0: 29 3A 20 6A 70 20 7A 2C 65 64 5F 6B 6C 70 09 3B  ): jp z,ed_klp.;
0000C0: 44 6F 6E 27 74 20 64 6F 20 69 74 20 69 66 20 6E  Don't do it if n
0000D0: 6F 74 20 6F 6E 20 77 6F 72 64 0D 0A 09 70 6F 70  ot on word...pop
0000E0: 20 68 6C 3A 20 6C 64 20 68 6C 2C 28 65 64 5F 74   hl: ld hl,(ed_t
0000F0: 61 62 29 3A 20 6C 64 20 62 2C 32 37 09 09 3B 47  ab): ld b,27..;G
000100: 65 74 20 66 69 72 73 74 20 77 6F 72 64 20 61 64  et first word ad
000110: 64 72 65 73 73 0D 0A 2E 65 64 5F 70 6C 70 09 6C  dress...ed_plp.l
000120: 64 20 61 2C 68 3A 20 63 70 20 26 34 30 3A 20 6A  d a,h: cp &40: j
000130: 72 20 6E 7A 2C 65 70 6E 6F 74 73 09 09 3B 49 73  r nz,epnots..;Is
000140: 20 69 74 20 26 34 30 30 30 3F 0D 0A 09 6C 64 20   it &4000?...ld 
000150: 61 2C 6C 3A 20 6F 72 20 61 20 20 3A 20 6A 70 20  a,l: or a  : jp 
000160: 7A 20 2C 65 64 5F 72 64 09 09 3B 20 7C 20 69 66  z ,ed_rd..; | if
000170: 20 73 6F 2C 20 72 65 64 6F 20 70 61 67 65 0D 0A   so, redo page..
000180: 2E 65 70 6E 6F 74 73 09 64 65 63 20 68 6C 09 09  .epnots.dec hl..
000190: 09 09 09 3B 53 6B 69 70 20 6C 61 73 74 20 68 69  ...;Skip last hi
0001A0: 67 68 20 62 79 74 65 0D 0A 2E 65 64 5F 70 73 6B  gh byte...ed_psk
0001B0: 09 64 65 63 20 68 6C 3A 20 6C 64 20 61 2C 28 68  .dec hl: ld a,(h
0001C0: 6C 29 3A 20 61 6E 64 20 31 32 38 3A 20 6A 72 20  l): and 128: jr 
0001D0: 7A 2C 65 64 5F 70 73 6B 09 3B 53 6B 69 70 20 6C  z,ed_psk.;Skip l
0001E0: 61 73 74 20 77 6F 72 64 0D 0A 09 69 6E 63 20 68  ast word...inc h
0001F0: 6C 3A 20 64 6A 6E 7A 20 65 64 5F 70 6C 70 20 20  l: djnz ed_plp

Size : 512 (Real : 512)
000000: 70 64 65 6C 09 20 6C 64 20 61 2C 62 3A 20 6F 72  pdel. ld a,b: or
000010: 20 61 3A 20 6A 72 20 7A 2C 69 6E 70 6B 65 79 3A   a: jr z,inpkey:
000020: 20 64 65 63 20 69 78 3A 20 6C 64 20 28 69 78 29   dec ix: ld (ix)
000030: 2C 30 0D 0A 09 20 6C 64 20 61 2C 38 3A 20 63 61  ,0... ld a,8: ca
000040: 6C 6C 20 26 42 42 35 41 3A 20 6C 64 20 61 2C 31  ll &BB5A: ld a,1
000050: 36 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 64  6: call &BB5A: d
000060: 65 63 20 62 3A 20 6A 72 20 69 6E 70 6B 65 79 0D  ec b: jr inpkey.
000070: 0A 2E 69 6E 70 65 73 63 09 70 6F 70 20 68 6C 3A  ..inpesc.pop hl:
000080: 20 6C 64 20 28 68 6C 29 2C 30 3A 20 6C 64 20 62   ld (hl),0: ld b
000090: 2C 30 3A 20 73 63 66 20 3A 20 72 65 74 0D 0A 2E  ,0: scf : ret...
0000A0: 69 6E 70 65 6E 74 09 70 6F 70 20 68 6C 3A 20 09  inpent.pop hl: .
0000B0: 09 20 20 20 6F 72 20 61 3A 20 72 65 74 0D 0A 0D  .   or a: ret...
0000C0: 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41 09  ......;*** DATA.
0000D0: 53 74 72 69 6E 67 73 0D 0A 0D 0A 2E 73 66 6E 5F  Strings.....sfn_
0000E0: 74 78 09 64 62 20 33 31 2C 32 34 2C 31 34 2C 22  tx.db 31,24,14,"
0000F0: 53 6F 75 72 63 65 20 66 69 6C 65 6E 61 6D 65 20  Source filename 
000100: 20 20 3A 20 22 2C 30 0D 0A 2E 64 66 6E 5F 74 78    : ",0...dfn_tx
000110: 09 64 62 20 33 31 2C 32 34 2C 31 36 2C 22 43 6F  .db 31,24,16,"Co
000120: 72 72 65 63 74 65 64 20 66 69 6C 65 6E 61 6D 65  rrected filename
000130: 3A 20 22 2C 30 0D 0A 2E 63 66 6E 5F 74 78 09 64  : ",0...cfn_tx.d
000140: 62 20 33 31 2C 32 34 2C 31 35 2C 22 44 69 63 74  b 31,24,15,"Dict
000150: 69 6F 6E 61 72 79 20 66 69 6C 65 6E 61 6D 65 3A  ionary filename:
000160: 20 22 2C 30 0D 0A 2E 66 69 6E 31 74 78 09 64 62   ",0...fin1tx.db
000170: 20 22 46 69 6E 69 73 68 65 64 20 63 68 65 63 6B   "Finished check
000180: 69 6E 67 20 64 6F 63 75 6D 65 6E 74 20 28 22 2C  ing document (",
000190: 30 0D 0A 2E 66 69 6E 32 74 78 09 64 62 20 22 20  0...fin2tx.db " 
0001A0: 77 6F 72 64 73 29 2E 20 50 72 65 73 73 20 61 6E  words). Press an
0001B0: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75  y key to continu
0001C0: 65 2E 22 2C 30 0D 0A 2E 6E 6F 74 66 74 78 09 64  e.",0...notftx.d
0001D0: 62 20 22 20 6E 6F 74 20 66 6F 75 6E 64 20 69 6E  b " not found in
0001E0: 20 64 69 63 74 69 6F 6E 61 72 79 2E 22 2C 30 0D   dictionary.",0.
0001F0: 0A 2E 6F 70 74 5F 74 78 09 64 62 20 33 31 2C 31  ..opt_tx.db 31,1

Size : 512 (Real : 512)
000000: 6C 64 20 6C 2C 61 3A 20 6C 64 20 68 2C 30 0D 0A  ld l,a: ld h,0..
000010: 09 6C 64 20 64 65 2C 6C 65 74 74 65 72 2D 32 3A  .ld de,letter-2:
000020: 20 61 64 64 20 68 6C 2C 64 65 0D 0A 09 6C 64 20   add hl,de...ld 
000030: 65 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 0D 0A  e,(hl): inc hl..
000040: 09 6C 64 20 64 2C 28 68 6C 29 3A 20 65 78 20 64  .ld d,(hl): ex d
000050: 65 2C 68 6C 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 09  e,hl: ret.......
000060: 3B 2A 2A 2A 20 53 55 42 52 09 43 6C 65 61 72 20  ;*** SUBR.Clear 
000070: 6C 6F 77 65 72 20 73 63 72 65 65 6E 20 61 72 65  lower screen are
000080: 61 0D 0A 0D 0A 2E 63 6C 65 61 72 09 6C 64 20 68  a.....clear.ld h
000090: 6C 2C 26 30 31 30 42 3A 20 78 6F 72 20 61 0D 0A  l,&010B: xor a..
0000A0: 09 6C 64 20 64 65 2C 26 34 45 31 37 3A 20 6A 70  .ld de,&4E17: jp
0000B0: 20 26 42 43 34 34 0D 0A 0D 0A 0D 0A 09 3B 2A 2A   &BC44.......;**
0000C0: 2A 20 53 55 42 52 09 4C 44 20 41 2C 28 48 4C 29  * SUBR.LD A,(HL)
0000D0: 20 2D 20 65 78 74 72 61 20 62 61 6E 6B 73 0D 0A   - extra banks..
0000E0: 0D 0A 2E 6C 64 61 68 6C 09 70 75 73 68 20 62 63  ...ldahl.push bc
0000F0: 3A 20 70 75 73 68 20 68 6C 0D 0A 09 20 6C 64 20  : push hl... ld 
000100: 62 2C 61 3A 20 6C 64 20 61 2C 68 3A 20 61 6E 64  b,a: ld a,h: and
000110: 20 26 43 30 0D 0A 09 20 72 6C 63 61 3A 20 72 6C   &C0... rlca: rl
000120: 63 61 3A 20 61 64 64 20 26 43 34 0D 0A 09 20 6C  ca: add &C4... l
000130: 64 20 63 2C 61 0D 0A 09 20 6C 64 20 61 2C 68 3A  d c,a... ld a,h:
000140: 20 61 6E 64 20 26 33 46 3A 20 6F 72 20 26 34 30   and &3F: or &40
000150: 3A 20 6C 64 20 68 2C 61 0D 0A 09 20 6C 64 20 61  : ld h,a... ld a
000160: 2C 62 3A 20 6C 64 20 62 2C 26 37 46 0D 0A 09 20  ,b: ld b,&7F... 
000170: 6F 75 74 20 28 63 29 2C 63 3A 20 6C 64 20 61 2C  out (c),c: ld a,
000180: 28 68 6C 29 0D 0A 09 20 6C 64 20 63 2C 26 43 30  (hl)... ld c,&C0
000190: 3A 20 6F 75 74 20 28 63 29 2C 63 0D 0A 09 70 6F  : out (c),c...po
0001A0: 70 20 68 6C 3A 20 70 6F 70 20 62 63 0D 0A 09 72  p hl: pop bc...r
0001B0: 65 74 0D 0A 0D 0A 2E 6C 64 61 68 6C 69 09 63 61  et.....ldahli.ca
0001C0: 6C 6C 20 6C 64 61 68 6C 0D 0A 09 69 6E 63 20 68  ll ldahl...inc h
0001D0: 6C 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 09 3B 2A 2A  l: ret.......;**
0001E0: 2A 20 53 55 42 52 09 4C 44 20 28 48 4C 29 2C 41  * SUBR.LD (HL),A
0001F0: 20 2D 20 65 78 74 72 61 20 62 61 6E 6B 73 0D 0A   - extra banks..

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 2E 68 65 6C 70 09 63 61 6C 6C 20 63  .....help.call c
000010: 6C 65 61 72 0D 0A 09 6C 64 20 62 63 2C 32 3A 20  lear...ld bc,2: 
000020: 63 61 6C 6C 20 26 42 42 42 37 09 09 09 09 3B 23  call &BBB7....;#
000030: 32 20 70 72 6F 6D 70 74 73 0D 0A 09 6C 64 20 68  2 prompts...ld h
000040: 6C 2C 68 65 6C 70 74 78 3A 20 63 61 6C 6C 20 73  l,helptx: call s
000050: 74 72 69 6E 67 09 09 09 3B 20 7C 0D 0A 09 6C 64  tring...; |...ld
000060: 20 62 63 2C 32 3A 20 63 61 6C 6C 20 26 42 42 42   bc,2: call &BBB
000070: 37 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64 20  7....; |.....ld 
000080: 62 63 2C 31 3A 20 63 61 6C 6C 20 26 42 42 42 37  bc,1: call &BBB7
000090: 09 09 09 09 3B 23 31 0D 0A 09 6C 64 20 64 65 2C  ....;#1...ld de,
0000A0: 26 30 32 30 43 3A 20 6C 64 20 68 6C 2C 26 34 44  &020C: ld hl,&4D
0000B0: 31 34 3A 20 63 61 6C 6C 20 26 42 42 36 36 09 09  14: call &BB66..
0000C0: 3B 20 7C 20 65 6E 6C 61 72 67 65 20 69 74 0D 0A  ; | enlarge it..
0000D0: 09 6C 64 20 68 6C 2C 26 34 30 3A 20 6C 64 20 62  .ld hl,&40: ld b
0000E0: 2C 30 0D 0A 2E 68 65 6C 70 70 64 09 6C 64 20 61  ,0...helppd.ld a
0000F0: 2C 62 3A 20 63 70 20 36 3A 20 6A 72 20 7A 2C 68  ,b: cp 6: jr z,h
000100: 65 6C 70 6B 79 09 09 09 3B 4F 6E 20 6C 61 73 74  elpky...;On last
000110: 20 73 63 72 65 65 6E 3F 0D 0A 09 70 75 73 68 20   screen?...push 
000120: 62 63 3A 20 70 75 73 68 20 68 6C 3A 20 63 61 6C  bc: push hl: cal
000130: 6C 20 26 42 42 36 43 3A 20 70 6F 70 20 68 6C 3A  l &BB6C: pop hl:
000140: 20 70 6F 70 20 62 63 09 3B 43 4C 53 0D 0A 2E 68   pop bc.;CLS...h
000150: 65 6C 70 70 72 09 6C 64 20 61 2C 28 68 6C 29 3A  elppr.ld a,(hl):
000160: 20 6F 72 20 61 3A 20 6A 72 20 7A 2C 68 65 6C 70   or a: jr z,help
000170: 70 73 09 09 09 3B 50 72 69 6E 74 20 61 20 73 63  ps...;Print a sc
000180: 72 65 65 6E 0D 0A 09 63 61 6C 6C 20 73 74 72 37  reen...call str7
000190: 09 09 09 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C  .....; |...ld a,
0001A0: 31 30 3A 20 63 61 6C 6C 20 26 42 42 35 41 09 09  10: call &BB5A..
0001B0: 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 31 33 3A  ..; |...ld a,13:
0001C0: 20 63 61 6C 6C 20 26 42 42 35 41 3A 20 6A 72 20   call &BB5A: jr 
0001D0: 68 65 6C 70 70 72 09 09 09 3B 20 7C 0D 0A 2E 68  helppr...; |...h
0001E0: 65 6C 70 70 73 09 69 6E 63 20 62 3A 20 69 6E 63  elpps.inc b: inc
0001F0: 20 68 6C 09 09 09 09 09 3B 53 6B 69 70 20 30 0D   hl.....;Skip 0.

Size : 512 (Real : 512)
000000: 0D 0A 2E 6C 64 68 6C 61 09 70 75 73 68 20 62 63  ...ldhla.push bc
000010: 3A 20 70 75 73 68 20 68 6C 0D 0A 09 20 6C 64 20  : push hl... ld 
000020: 62 2C 61 3A 20 6C 64 20 61 2C 68 3A 20 61 6E 64  b,a: ld a,h: and
000030: 20 26 43 30 0D 0A 09 20 72 6C 63 61 3A 20 72 6C   &C0... rlca: rl
000040: 63 61 3A 20 61 64 64 20 26 43 34 0D 0A 09 20 6C  ca: add &C4... l
000050: 64 20 63 2C 61 0D 0A 09 20 6C 64 20 61 2C 68 3A  d c,a... ld a,h:
000060: 20 61 6E 64 20 26 33 46 3A 20 6F 72 20 26 34 30   and &3F: or &40
000070: 3A 20 6C 64 20 68 2C 61 0D 0A 09 20 6C 64 20 61  : ld h,a... ld a
000080: 2C 62 3A 20 6C 64 20 62 2C 26 37 46 0D 0A 09 20  ,b: ld b,&7F... 
000090: 6F 75 74 20 28 63 29 2C 63 3A 20 6C 64 20 28 68  out (c),c: ld (h
0000A0: 6C 29 2C 61 0D 0A 09 20 6C 64 20 63 2C 26 43 30  l),a... ld c,&C0
0000B0: 3A 20 6F 75 74 20 28 63 29 2C 63 0D 0A 09 70 6F  : out (c),c...po
0000C0: 70 20 68 6C 3A 20 70 6F 70 20 62 63 0D 0A 09 72  p hl: pop bc...r
0000D0: 65 74 0D 0A 0D 0A 2E 6C 64 68 6C 61 69 09 63 61  et.....ldhlai.ca
0000E0: 6C 6C 20 6C 64 68 6C 61 0D 0A 09 69 6E 63 20 68  ll ldhla...inc h
0000F0: 6C 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 09 3B 2A 2A  l: ret.......;**
000100: 2A 20 53 55 42 52 09 55 70 70 65 72 2F 6C 6F 77  * SUBR.Upper/low
000110: 65 72 20 63 61 73 65 20 63 6F 6E 76 65 72 73 69  er case conversi
000120: 6F 6E 0D 0A 0D 0A 2E 75 63 61 73 65 09 62 69 74  on.....ucase.bit
000130: 20 37 2C 61 3A 20 6A 70 20 6E 7A 2C 75 63 61 73   7,a: jp nz,ucas
000140: 65 37 0D 0A 09 09 20 63 70 20 26 36 31 3A 20 72  e7.... cp &61: r
000150: 65 74 20 63 3A 20 63 70 20 26 37 42 3A 20 72 65  et c: cp &7B: re
000160: 74 20 6E 63 3A 09 61 64 64 20 26 45 30 3A 20 72  t nc:.add &E0: r
000170: 65 74 0D 0A 2E 75 63 61 73 65 37 09 09 20 63 70  et...ucase7.. cp
000180: 20 26 45 31 3A 20 72 65 74 20 63 3A 20 63 70 20   &E1: ret c: cp 
000190: 26 46 42 3A 20 72 65 74 20 6E 63 3A 20 61 64 64  &FB: ret nc: add
0001A0: 20 26 45 30 3A 20 72 65 74 0D 0A 2E 6C 63 61 73   &E0: ret...lcas
0001B0: 65 09 61 6E 64 20 31 32 37 3A 20 63 70 20 26 34  e.and 127: cp &4
0001C0: 31 3A 20 72 65 74 20 63 3A 20 63 70 20 26 35 42  1: ret c: cp &5B
0001D0: 3A 20 72 65 74 20 6E 63 3A 20 61 64 64 20 26 32  : ret nc: add &2
0001E0: 30 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20  0: ret.....;*** 
0001F0: 53 55 42 52 09 50 72 69 6E 74 20 73 74 72 69 6E  SUBR.Print strin

Size : 512 (Real : 512)
000000: 0A 2E 68 65 6C 70 6B 79 09 63 61 6C 6C 20 26 42  ..helpky.call &B
000010: 42 30 36 3A 20 63 61 6C 6C 20 75 63 61 73 65 09  B06: call ucase.
000020: 09 09 09 3B 47 65 74 20 6B 65 79 70 72 65 73 73  ...;Get keypress
000030: 0D 0A 09 63 70 20 22 51 22 3A 20 6A 72 20 7A 2C  ...cp "Q": jr z,
000040: 68 65 6C 70 71 74 3A 20 63 70 20 32 35 32 3A 20  helpqt: cp 252: 
000050: 6A 72 20 7A 2C 68 65 6C 70 71 74 09 3B 20 7C 20  jr z,helpqt.; | 
000060: 71 75 69 74 3F 0D 0A 09 63 70 20 22 43 22 3A 20  quit?...cp "C": 
000070: 6A 72 20 7A 2C 68 65 6C 70 70 64 3A 20 63 70 20  jr z,helppd: cp 
000080: 33 32 20 3A 20 6A 72 20 7A 2C 68 65 6C 70 70 64  32 : jr z,helppd
000090: 09 3B 20 7C 20 63 6F 6E 74 69 6E 75 65 3F 0D 0A  .; | continue?..
0000A0: 09 6A 72 20 68 65 6C 70 6B 79 0D 0A 2E 68 65 6C  .jr helpky...hel
0000B0: 70 71 74 09 6C 64 20 64 65 2C 26 30 32 30 43 3A  pqt.ld de,&020C:
0000C0: 20 6C 64 20 68 6C 2C 26 34 44 31 33 3A 20 63 61   ld hl,&4D13: ca
0000D0: 6C 6C 20 26 42 42 36 36 09 09 3B 52 65 74 75 72  ll &BB66..;Retur
0000E0: 6E 20 77 69 6E 64 6F 77 20 74 6F 20 6E 6F 72 6D  n window to norm
0000F0: 61 6C 0D 0A 09 6C 64 20 62 63 2C 31 3A 20 63 61  al...ld bc,1: ca
000100: 6C 6C 20 26 42 42 42 37 3A 20 63 61 6C 6C 20 63  ll &BBB7: call c
000110: 6C 65 61 72 3A 20 6A 70 20 6D 61 69 6E 09 3B 51  lear: jp main.;Q
000120: 75 69 74 0D 0A 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53  uit.......;*** S
000130: 55 42 52 09 43 68 65 63 6B 20 77 6F 72 64 20 61  UBR.Check word a
000140: 74 20 2E 77 6F 72 64 0D 0A 09 3B 09 09 52 65 74  t .word...;..Ret
000150: 75 72 6E 73 20 43 20 69 66 20 66 6F 75 6E 64 2C  urns C if found,
000160: 20 4E 43 20 69 66 20 6E 6F 74 20 66 6F 75 6E 64   NC if not found
000170: 0D 0A 0D 0A 2E 63 68 65 63 6B 09 6C 64 20 61 2C  .....check.ld a,
000180: 28 77 6F 72 64 29 3A 20 63 61 6C 6C 20 73 74 61  (word): call sta
000190: 72 74 09 09 09 3B 47 65 74 20 73 74 61 72 74 20  rt...;Get start 
0001A0: 61 64 64 72 65 73 73 20 6F 66 20 6C 65 74 74 65  address of lette
0001B0: 72 0D 0A 0D 0A 2E 63 68 6B 5F 6F 6C 09 6C 64 20  r.....chk_ol.ld 
0001C0: 64 65 2C 77 6F 72 64 2B 31 09 09 09 09 3B 53 74  de,word+1....;St
0001D0: 61 72 74 20 66 72 6F 6D 20 73 65 63 6F 6E 64 20  art from second 
0001E0: 6C 65 74 74 65 72 0D 0A 2E 63 68 6B 5F 6C 70 09  letter...chk_lp.
0001F0: 6C 64 20 61 2C 28 64 65 29 3A 20 63 61 6C 6C 20  ld a,(de): call

Size : 512 (Real : 512)
000000: 67 0D 0A 0D 0A 2E 73 74 72 69 6E 67 09 6C 64 20  g.....string.ld 
000010: 61 2C 28 68 6C 29 3A 20 6F 72 20 61 3A 20 72 65  a,(hl): or a: re
000020: 74 20 7A 3A 20 63 61 6C 6C 20 26 42 42 35 41 3A  t z: call &BB5A:
000030: 20 69 6E 63 20 68 6C 3A 20 6A 72 20 73 74 72 69   inc hl: jr stri
000040: 6E 67 0D 0A 2E 73 74 72 37 09 6C 64 20 61 2C 28  ng...str7.ld a,(
000050: 68 6C 29 3A 20 09 20 20 20 61 6E 64 20 31 32 37  hl): .   and 127
000060: 3A 20 63 61 6C 6C 20 26 42 42 35 41 0D 0A 09 6C  : call &BB5A...l
000070: 64 20 61 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C  d a,(hl): inc hl
000080: 3A 20 61 6E 64 20 31 32 38 3A 20 6A 72 20 7A 2C  : and 128: jr z,
000090: 73 74 72 37 3A 20 72 65 74 0D 0A 2E 73 74 72 37  str7: ret...str7
0000A0: 31 36 09 6C 64 20 63 2C 30 0D 0A 2E 73 37 31 36  16.ld c,0...s716
0000B0: 6C 09 6C 64 20 61 2C 28 68 6C 29 3A 09 20 20 20  l.ld a,(hl):.   
0000C0: 61 6E 64 20 31 32 37 3A 20 63 61 6C 6C 20 26 42  and 127: call &B
0000D0: 42 35 41 3A 20 69 6E 63 20 63 3A 20 62 69 74 20  B5A: inc c: bit 
0000E0: 34 2C 63 3A 20 72 65 74 20 6E 7A 0D 0A 09 6C 64  4,c: ret nz...ld
0000F0: 20 61 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 3A   a,(hl): inc hl:
000100: 20 61 6E 64 20 31 32 38 3A 20 6A 72 20 7A 2C 73   and 128: jr z,s
000110: 37 31 36 6C 3A 20 09 09 72 65 74 0D 0A 0D 0A 09  716l: ..ret.....
000120: 3B 2A 2A 2A 20 53 55 42 52 09 50 72 69 6E 74 20  ;*** SUBR.Print 
000130: 48 4C 20 61 73 20 28 75 70 20 74 6F 29 20 35 2D  HL as (up to) 5-
000140: 64 69 67 69 74 20 64 65 63 69 6D 61 6C 0D 0A 0D  digit decimal...
000150: 0A 2E 70 72 5F 68 6C 09 6C 64 20 63 2C 30 0D 0A  ..pr_hl.ld c,0..
000160: 09 6C 64 20 64 65 2C 31 30 30 30 30 3A 09 63 61  .ld de,10000:.ca
000170: 6C 6C 20 70 72 68 6C 72 0D 0A 09 6C 64 20 64 65  ll prhlr...ld de
000180: 2C 31 30 30 30 3A 09 63 61 6C 6C 20 70 72 68 6C  ,1000:.call prhl
000190: 72 0D 0A 09 6C 64 20 64 65 2C 31 30 30 3A 09 63  r...ld de,100:.c
0001A0: 61 6C 6C 20 70 72 68 6C 72 0D 0A 09 6C 64 20 64  all prhlr...ld d
0001B0: 65 2C 31 30 3A 09 63 61 6C 6C 20 70 72 68 6C 72  e,10:.call prhlr
0001C0: 0D 0A 09 6C 64 20 64 65 2C 31 3A 09 6C 64 20 63  ...ld de,1:.ld c
0001D0: 2C 31 0D 0A 2E 70 72 68 6C 72 09 78 6F 72 20 61  ,1...prhlr.xor a
0001E0: 0D 0A 2E 70 72 68 6C 6C 70 09 73 63 66 3A 20 63  ...prhllp.scf: c
0001F0: 63 66 3A 20 73 62 63 20 68 6C 2C 64 65 3A 20 6A  cf: sbc hl,de: j

Size : 512 (Real : 512)
000000: 75 63 61 73 65 3A 20 6C 64 20 63 2C 61 09 09 3B  ucase: ld c,a..;
000010: 43 6F 6E 76 65 72 74 20 74 6F 20 75 70 70 65 72  Convert to upper
000020: 20 63 61 73 65 0D 0A 09 63 61 6C 6C 20 6C 64 61   case...call lda
000030: 68 6C 3A 20 63 70 20 63 3A 20 6A 72 20 6E 7A 2C  hl: cp c: jr nz,
000040: 63 68 6B 5F 66 66 09 09 3B 49 73 20 69 74 20 74  chk_ff..;Is it t
000050: 68 65 20 73 61 6D 65 3F 0D 0A 09 69 6E 63 20 68  he same?...inc h
000060: 6C 3A 20 69 6E 63 20 64 65 3A 20 61 6E 64 20 31  l: inc de: and 1
000070: 32 38 3A 20 6A 72 20 7A 2C 63 68 6B 5F 6C 70 09  28: jr z,chk_lp.
000080: 3B 43 6F 6E 74 69 6E 75 65 20 69 66 20 6E 6F 74  ;Continue if not
000090: 20 65 6E 64 20 6F 66 20 77 6F 72 64 0D 0A 09 73   end of word...s
0000A0: 63 66 3A 20 72 65 74 09 09 09 09 3B 20 7C 20 69  cf: ret....; | i
0000B0: 66 20 65 6E 64 2C 20 72 65 74 75 72 6E 20 22 66  f end, return "f
0000C0: 6F 75 6E 64 22 0D 0A 0D 0A 2E 63 68 6B 5F 66 66  ound".....chk_ff
0000D0: 09 63 61 6C 6C 20 6C 64 61 68 6C 69 3A 20 6F 72  .call ldahli: or
0000E0: 20 61 3A 20 72 65 74 20 7A 09 09 3B 46 61 73 74   a: ret z..;Fast
0000F0: 20 66 6F 72 77 61 72 64 20 74 6F 20 65 6E 64 20   forward to end 
000100: 6F 66 20 77 6F 72 64 0D 0A 09 62 69 74 20 37 2C  of word...bit 7,
000110: 61 3A 20 6A 72 20 7A 2C 63 68 6B 5F 66 66 09 09  a: jr z,chk_ff..
000120: 09 3B 20 7C 0D 0A 09 6A 70 20 63 68 6B 5F 6F 6C  .; |...jp chk_ol
000130: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 43  .....;*** SUBR.C
000140: 68 65 63 6B 20 77 6F 72 64 20 61 74 20 2E 77 6F  heck word at .wo
000150: 72 64 20 69 6E 20 64 69 63 74 69 6F 6E 61 72 79  rd in dictionary
000160: 20 61 74 20 26 34 30 30 30 0D 0A 09 3B 09 09 45   at &4000...;..E
000170: 6E 64 20 6F 66 20 64 69 63 74 69 6F 6E 61 72 79  nd of dictionary
000180: 20 61 74 20 49 58 0D 0A 09 3B 09 09 52 65 74 75   at IX...;..Retu
000190: 72 6E 73 20 43 20 69 66 20 66 6F 75 6E 64 2C 20  rns C if found, 
0001A0: 4E 43 20 69 66 20 6E 6F 74 20 66 6F 75 6E 64 0D  NC if not found.
0001B0: 0A 0D 0A 2E 63 64 69 63 74 09 6C 64 20 68 6C 2C  ....cdict.ld hl,
0001C0: 26 34 30 30 30 09 09 09 09 3B 44 69 63 74 69 6F  &4000....;Dictio
0001D0: 6E 61 72 79 20 61 64 64 72 65 73 73 0D 0A 2E 63  nary address...c
0001E0: 64 5F 6F 6C 09 70 75 73 68 20 68 6C 09 09 09 09  d_ol.push hl....
0001F0: 09 3B 45 6E 64 20 6F 66 20 64 69 63 74 69 6F 6E  .;End of diction

Size : 512 (Real : 512)
000000: 72 20 63 2C 70 72 68 6C 6F 0D 0A 09 69 6E 63 20  r c,prhlo...inc 
000010: 61 3A 20 6A 72 20 70 72 68 6C 6C 70 0D 0A 2E 70  a: jr prhllp...p
000020: 72 68 6C 6F 09 61 64 64 20 68 6C 2C 64 65 3A 20  rhlo.add hl,de: 
000030: 6F 72 20 61 3A 20 6A 72 20 6E 7A 2C 70 72 68 6C  or a: jr nz,prhl
000040: 79 3A 20 63 70 20 63 3A 20 72 65 74 20 7A 0D 0A  y: cp c: ret z..
000050: 2E 70 72 68 6C 79 09 6C 64 20 63 2C 31 3A 20 61  .prhly.ld c,1: a
000060: 64 64 20 26 33 30 3A 20 63 61 6C 6C 20 26 42 42  dd &30: call &BB
000070: 35 41 3A 20 72 65 74 0D 0A 0D 0A 0D 0A 09 3B 2A  5A: ret.......;*
000080: 2A 2A 20 53 55 42 52 09 49 6E 70 75 74 20 73 74  ** SUBR.Input st
000090: 72 69 6E 67 20 28 6D 61 78 69 6D 75 6D 20 31 36  ring (maximum 16
0000A0: 20 63 68 61 72 61 63 74 65 72 73 29 0D 0A 09 3B   characters)...;
0000B0: 09 09 4F 6E 20 65 6E 74 72 79 2C 20 61 64 64 72  ..On entry, addr
0000C0: 65 73 73 20 49 58 0D 0A 09 3B 09 09 4F 6E 20 65  ess IX...;..On e
0000D0: 78 69 74 20 2C 20 61 64 64 72 65 73 73 20 48 4C  xit , address HL
0000E0: 2C 20 6C 65 6E 67 74 68 20 42 0D 0A 0D 0A 2E 69  , length B.....i
0000F0: 6E 70 75 74 09 70 75 73 68 20 69 78 3A 20 6C 64  nput.push ix: ld
000100: 20 62 2C 30 0D 0A 2E 69 6E 70 6B 65 79 09 20 63   b,0...inpkey. c
000110: 61 6C 6C 20 26 42 42 38 41 0D 0A 09 20 63 61 6C  all &BB8A... cal
000120: 6C 20 26 42 42 30 36 3A 20 70 75 73 68 20 61 66  l &BB06: push af
000130: 0D 0A 09 20 63 61 6C 6C 20 26 42 42 38 41 3A 20  ... call &BB8A: 
000140: 70 6F 70 20 20 61 66 0D 0A 09 20 63 70 20 31 33  pop  af... cp 13
000150: 20 3A 20 6A 72 20 7A 2C 69 6E 70 65 6E 74 0D 0A   : jr z,inpent..
000160: 09 20 63 70 20 32 35 32 3A 20 6A 72 20 7A 2C 69  . cp 252: jr z,i
000170: 6E 70 65 73 63 0D 0A 09 20 63 70 20 31 32 37 3A  npesc... cp 127:
000180: 20 6A 72 20 7A 2C 69 6E 70 64 65 6C 3A 20 6A 72   jr z,inpdel: jr
000190: 20 6E 63 2C 69 6E 70 6B 65 79 0D 0A 09 20 63 70   nc,inpkey... cp
0001A0: 20 33 32 20 3A 20 6A 72 20 63 2C 69 6E 70 6B 65   32 : jr c,inpke
0001B0: 79 0D 0A 09 20 62 69 74 20 34 2C 62 3A 20 6A 72  y... bit 4,b: jr
0001C0: 20 6E 7A 2C 69 6E 70 6B 65 79 3A 20 6C 64 20 28   nz,inpkey: ld (
0001D0: 69 78 29 2C 61 3A 20 63 61 6C 6C 20 26 42 42 35  ix),a: call &BB5
0001E0: 41 3A 20 69 6E 63 20 69 78 3A 20 69 6E 63 20 62  A: inc ix: inc b
0001F0: 3A 20 6A 72 20 69 6E 70 6B 65 79 0D 0A 2E 69 6E  : jr inpkey...in

Size : 512 (Real : 512)
000000: 61 72 79 20 79 65 74 3F 0D 0A 09 20 65 78 20 64  ary yet?... ex d
000010: 65 2C 68 6C 3A 20 70 75 73 68 20 69 78 3A 20 70  e,hl: push ix: p
000020: 6F 70 20 68 6C 09 09 3B 20 7C 0D 0A 09 20 6F 72  op hl..; |... or
000030: 20 61 3A 20 73 62 63 20 68 6C 2C 64 65 09 09 09   a: sbc hl,de...
000040: 3B 20 7C 0D 0A 09 70 6F 70 20 68 6C 3A 20 72 65  ; |...pop hl: re
000050: 74 20 7A 3A 20 63 63 66 3A 20 72 65 74 20 6E 63  t z: ccf: ret nc
000060: 09 09 3B 20 7C 0D 0A 0D 0A 2E 63 64 5F 6E 6F 74  ..; |.....cd_not
000070: 09 6C 64 20 64 65 2C 77 6F 72 64 09 09 09 09 3B  .ld de,word....;
000080: 53 74 61 72 74 20 66 72 6F 6D 20 66 69 72 73 74  Start from first
000090: 20 6C 65 74 74 65 72 0D 0A 2E 63 64 5F 6C 70 09   letter...cd_lp.
0000A0: 6C 64 20 61 2C 28 64 65 29 3A 20 63 61 6C 6C 20  ld a,(de): call 
0000B0: 75 63 61 73 65 09 09 09 3B 43 6F 6E 76 65 72 74  ucase...;Convert
0000C0: 20 74 6F 20 75 70 70 65 72 20 63 61 73 65 0D 0A   to upper case..
0000D0: 09 63 70 20 28 68 6C 29 3A 20 6A 72 20 6E 7A 2C  .cp (hl): jr nz,
0000E0: 63 64 5F 66 66 3A 20 69 6E 63 20 68 6C 09 09 3B  cd_ff: inc hl..;
0000F0: 49 73 20 69 74 20 74 68 65 20 73 61 6D 65 3F 0D  Is it the same?.
000100: 0A 09 69 6E 63 20 64 65 3A 20 61 6E 64 20 31 32  ..inc de: and 12
000110: 38 3A 20 6A 72 20 7A 2C 63 64 5F 6C 70 09 09 3B  8: jr z,cd_lp..;
000120: 43 6F 6E 74 69 6E 75 65 20 69 66 20 6E 6F 74 20  Continue if not 
000130: 65 6E 64 20 6F 66 20 77 6F 72 64 0D 0A 09 73 63  end of word...sc
000140: 66 3A 20 72 65 74 09 09 09 09 3B 20 7C 20 69 66  f: ret....; | if
000150: 20 65 6E 64 2C 20 72 65 74 75 72 6E 20 22 66 6F   end, return "fo
000160: 75 6E 64 22 0D 0A 0D 0A 2E 63 64 5F 66 66 09 62  und".....cd_ff.b
000170: 69 74 20 37 2C 28 68 6C 29 3A 20 69 6E 63 20 68  it 7,(hl): inc h
000180: 6C 3A 20 6A 72 20 7A 2C 63 64 5F 66 66 09 09 3B  l: jr z,cd_ff..;
000190: 46 61 73 74 20 66 6F 72 77 61 72 64 20 74 6F 20  Fast forward to 
0001A0: 65 6E 64 20 6F 66 20 77 6F 72 64 0D 0A 09 6A 72  end of word...jr
0001B0: 20 63 64 5F 6F 6C 0D 0A 0D 0A 0D 0A 09 3B 2A 2A   cd_ol.......;**
0001C0: 2A 20 53 55 42 52 09 46 69 6E 64 20 73 74 61 72  * SUBR.Find star
0001D0: 74 20 61 64 64 72 65 73 73 20 6F 66 20 6C 65 74  t address of let
0001E0: 74 65 72 20 41 0D 0A 0D 0A 2E 73 74 61 72 74 09  ter A.....start.
0001F0: 61 6E 64 20 26 31 46 3A 20 61 64 64 20 61 3A 20  and &1F: add a:

Size : 512 (Real : 512)
000000: 34 36 36 09 3B 51 52 53 54 0D 0A 09 64 77 09 34  466.;QRST...dw.4
000010: 35 38 33 39 2C 09 34 37 30 37 32 2C 09 34 37 36  5839,.47072,.476
000020: 36 39 2C 09 34 38 37 38 31 09 3B 55 56 57 58 0D  69,.48781.;UVWX.
000030: 0A 09 64 77 09 34 38 37 38 35 2C 09 34 38 38 37  ..dw.48785,.4887
000040: 39 2C 09 34 38 39 34 39 09 09 3B 59 5A 09 65 6E  9,.48949..;YZ.en
000050: 64 20 6F 66 20 64 61 74 61 0D 0A 0D 0A 0D 0A 09  d of data.......
000060: 3B 2A 2A 2A 20 44 41 54 41 09 4D 69 73 63 65 6C  ;*** DATA.Miscel
000070: 6C 61 6E 65 6F 75 73 0D 0A 0D 0A 2E 68 6C 6E 61  laneous.....hlna
000080: 6D 65 09 64 62 20 22 53 50 45 4C 4C 2E 48 4C 50  me.db "SPELL.HLP
000090: 22 09 09 09 09 3B 48 65 6C 70 20 66 69 6C 65 6E  "....;Help filen
0000A0: 61 6D 65 0D 0A 2E 6D 64 6E 61 6D 65 09 64 62 20  ame...mdname.db 
0000B0: 22 4D 41 53 54 45 52 2E 34 38 4B 22 09 09 09 09  "MASTER.48K"....
0000C0: 3B 4D 61 73 74 65 72 20 64 69 63 74 69 6F 6E 61  ;Master dictiona
0000D0: 72 79 20 66 69 6C 65 6E 61 6D 65 0D 0A 0D 0A 09  ry filename.....
0000E0: 3B 2A 2A 2A 20 56 41 52 49 09 44 69 63 74 69 6F  ;*** VARI.Dictio
0000F0: 6E 61 72 79 20 63 6F 6E 74 72 6F 6C 0D 0A 0D 0A  nary control....
000100: 2E 69 67 5F 74 6F 70 09 64 77 20 26 34 30 30 30  .ig_top.dw &4000
000110: 09 09 09 09 3B 46 69 72 73 74 20 66 72 65 65 20  ....;First free 
000120: 61 64 64 72 65 73 73 20 69 6E 20 22 69 67 6E 6F  address in "igno
000130: 72 65 22 0D 0A 2E 75 73 5F 74 6F 70 09 64 77 20  re"...us_top.dw 
000140: 26 34 30 30 30 09 09 09 09 3B 46 69 72 73 74 20  &4000....;First 
000150: 66 72 65 65 20 61 64 64 72 65 73 73 20 69 6E 20  free address in 
000160: 75 73 65 72 20 64 69 63 74 0D 0A 0D 0A 09 3B 2A  user dict.....;*
000170: 2A 2A 20 56 41 52 49 09 46 69 6C 65 20 76 61 72  ** VARI.File var
000180: 69 61 62 6C 65 73 0D 0A 0D 0A 2E 66 74 79 70 65  iables.....ftype
000190: 09 64 62 20 30 09 09 09 09 09 3B 53 6F 75 72 63  .db 0.....;Sourc
0001A0: 65 20 66 69 6C 65 20 74 79 70 65 0D 0A 2E 68 65  e file type...he
0001B0: 61 64 65 72 09 64 77 20 30 09 09 09 09 09 3B 41  ader.dw 0.....;A
0001C0: 64 64 72 65 73 73 20 6F 66 20 73 6F 75 72 63 65  ddress of source
0001D0: 20 68 65 61 64 65 72 0D 0A 2E 73 66 6E 09 64 73   header...sfn.ds
0001E0: 20 31 36 09 09 09 09 09 3B 53 6F 75 72 63 65 20   16.....;Source 
0001F0: 66 69 6C 65 6E 61 6D 65 0D 0A 2E 64 66 6E 09 64  filename...dfn.d

Size : 512 (Real : 512)
000000: 33 0D 0A 09 63 61 6C 6C 20 26 42 43 37 41 0D 0A  3...call &BC7A..
000010: 0D 0A 09 6C 64 20 68 6C 2C 26 43 31 34 30 3A 20  ...ld hl,&C140: 
000020: 6C 64 20 64 65 2C 26 33 45 38 3A 20 63 61 6C 6C  ld de,&3E8: call
000030: 20 63 73 74 73 5F 72 0D 0A 09 6C 64 20 68 6C 2C   csts_r...ld hl,
000040: 26 43 31 39 30 3A 20 6C 64 20 64 65 2C 26 34 34  &C190: ld de,&44
000050: 38 3A 20 63 61 6C 6C 20 63 73 74 73 5F 72 0D 0A  8: call csts_r..
000060: 09 6C 64 20 68 6C 2C 26 43 31 45 30 3A 20 6C 64  .ld hl,&C1E0: ld
000070: 20 64 65 2C 26 34 41 38 3A 20 63 61 6C 6C 20 63   de,&4A8: call c
000080: 73 74 73 5F 72 0D 0A 09 6C 64 20 68 6C 2C 26 43  sts_r...ld hl,&C
000090: 32 33 30 3A 20 6C 64 20 64 65 2C 26 35 30 38 3A  230: ld de,&508:
0000A0: 20 63 61 6C 6C 20 63 73 74 73 5F 72 0D 0A 09 6C   call csts_r...l
0000B0: 64 20 68 6C 2C 26 43 32 38 30 3A 20 6C 64 20 64  d hl,&C280: ld d
0000C0: 65 2C 26 35 36 38 3A 20 63 61 6C 6C 20 63 73 74  e,&568: call cst
0000D0: 73 5F 72 0D 0A 09 6C 64 20 68 6C 2C 26 43 32 44  s_r...ld hl,&C2D
0000E0: 30 3A 20 6C 64 20 64 65 2C 26 35 43 38 3A 20 63  0: ld de,&5C8: c
0000F0: 61 6C 6C 20 63 73 74 73 5F 72 0D 0A 09 6C 64 20  all csts_r...ld 
000100: 68 6C 2C 26 43 33 32 30 3A 20 6C 64 20 64 65 2C  hl,&C320: ld de,
000110: 26 36 32 38 3A 20 63 61 6C 6C 20 63 73 74 73 5F  &628: call csts_
000120: 72 0D 0A 09 6C 64 20 68 6C 2C 26 43 33 37 30 3A  r...ld hl,&C370:
000130: 20 6C 64 20 64 65 2C 26 36 38 38 3A 20 63 61 6C   ld de,&688: cal
000140: 6C 20 63 73 74 73 5F 72 0D 0A 09 6C 64 20 68 6C  l csts_r...ld hl
000150: 2C 26 43 33 43 30 3A 20 6C 64 20 64 65 2C 26 36  ,&C3C0: ld de,&6
000160: 45 38 3A 20 63 61 6C 6C 20 63 73 74 73 5F 72 0D  E8: call csts_r.
000170: 0A 09 6C 64 20 68 6C 2C 26 43 34 31 30 3A 20 6C  ..ld hl,&C410: l
000180: 64 20 64 65 2C 26 37 34 38 3A 20 63 61 6C 6C 20  d de,&748: call 
000190: 63 73 74 73 5F 72 0D 0A 0D 0A 09 6C 64 20 68 6C  csts_r.....ld hl
0001A0: 2C 66 6E 61 6D 65 3A 20 6C 64 20 62 2C 31 32 3A  ,fname: ld b,12:
0001B0: 20 63 61 6C 6C 20 26 42 43 37 37 3A 20 6C 64 20   call &BC77: ld 
0001C0: 68 6C 2C 26 43 30 30 30 3A 20 63 61 6C 6C 20 26  hl,&C000: call &
0001D0: 42 43 38 33 3A 20 63 61 6C 6C 20 26 42 43 37 41  BC83: call &BC7A
0001E0: 0D 0A 09 6C 64 20 68 6C 2C 6C 6E 61 6D 65 3A 20  ...ld hl,lname: 
0001F0: 6C 64 20 62 2C 31 32 3A 20 63 61 6C 6C 20 26 42  ld b,12: call &B

Size : 512 (Real : 512)
000000: 73 20 31 36 09 09 09 09 09 3B 44 65 73 74 69 6E  s 16.....;Destin
000010: 61 74 69 6F 6E 20 66 69 6C 65 6E 61 6D 65 0D 0A  ation filename..
000020: 0D 0A 09 3B 2A 2A 2A 20 56 41 52 49 09 53 70 65  ...;*** VARI.Spe
000030: 6C 6C 2D 63 68 65 63 6B 69 6E 67 0D 0A 0D 0A 2E  ll-checking.....
000040: 77 6F 72 64 73 09 64 77 20 30 09 09 09 09 09 3B  words.dw 0.....;
000050: 4E 75 6D 62 65 72 20 6F 66 20 77 6F 72 64 73 20  Number of words 
000060: 63 68 65 63 6B 65 64 0D 0A 2E 63 68 61 72 09 64  checked...char.d
000070: 62 20 30 09 09 09 09 09 3B 4E 6F 6E 2D 41 53 43  b 0.....;Non-ASC
000080: 49 49 20 63 68 61 72 61 63 74 65 72 0D 0A 2E 63  II character...c
000090: 68 61 72 73 09 64 62 20 30 09 09 09 09 09 3B 54  hars.db 0.....;T
0000A0: 79 70 65 20 6F 66 20 73 20 69 6E 20 22 27 73 22  ype of s in "'s"
0000B0: 0D 0A 2E 77 6F 72 64 09 64 73 20 33 33 09 09 09  ...word.ds 33...
0000C0: 09 09 3B 57 6F 72 64 20 72 65 61 64 20 69 6E 0D  ..;Word read in.
0000D0: 0A 2E 6E 65 77 77 72 64 09 64 73 20 33 33 09 09  ..newwrd.ds 33..
0000E0: 09 09 09 3B 52 65 70 6C 61 63 65 6D 65 6E 74 20  ...;Replacement 
0000F0: 77 6F 72 64 20 28 43 6F 6E 73 75 6C 74 29 0D 0A  word (Consult)..
000100: 2E 69 6E 70 62 75 66 09 64 73 20 31 36 09 09 09  .inpbuf.ds 16...
000110: 09 09 3B 42 75 66 66 65 72 20 66 6F 72 20 63 6F  ..;Buffer for co
000120: 72 72 65 63 74 65 64 20 77 6F 72 64 0D 0A 2E 62  rrected word...b
000130: 65 73 74 09 64 62 20 30 09 09 09 09 09 3B 4E 65  est.db 0.....;Ne
000140: 61 72 65 73 74 20 77 6F 72 64 20 73 6F 20 66 61  arest word so fa
000150: 72 20 28 43 6F 6E 73 75 6C 74 29 0D 0A 0D 0A 0D  r (Consult).....
000160: 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 4C 6F 61 64  ..;*** SUBR.Load
000170: 20 64 69 63 74 69 6F 6E 61 72 79 0D 0A 0D 0A 2E   dictionary.....
000180: 6C 6F 61 64 09 6C 64 20 64 65 2C 26 30 30 34 30  load.ld de,&0040
000190: 3A 20 6C 64 20 63 2C 37 09 09 09 3B 41 4D 53 44  : ld c,7...;AMSD
0001A0: 4F 53 20 6F 6E 0D 0A 09 6C 64 20 68 6C 2C 26 42  OS on...ld hl,&B
0001B0: 30 46 46 3A 20 63 61 6C 6C 20 26 42 43 43 45 09  0FF: call &BCCE.
0001C0: 09 09 3B 20 7C 0D 0A 09 6C 64 20 61 2C 31 3A 20  ..; |...ld a,1: 
0001D0: 63 61 6C 6C 20 26 42 43 36 42 09 09 09 3B 54 61  call &BC6B...;Ta
0001E0: 70 65 20 70 72 6F 6D 70 74 73 20 6F 66 66 0D 0A  pe prompts off..
0001F0: 0D 0A 09 6C 64 20 68 6C 2C 26 33 46 46 46 3A 20  ...ld hl,&3FFF:

Size : 512 (Real : 512)
000000: 43 37 37 3A 20 6C 64 20 68 6C 2C 66 6F 6E 74 20  C77: ld hl,font 
000010: 3A 20 63 61 6C 6C 20 26 42 43 38 33 3A 20 63 61  : call &BC83: ca
000020: 6C 6C 20 26 42 43 37 41 0D 0A 09 6C 64 20 68 6C  ll &BC7A...ld hl
000030: 2C 6D 6E 61 6D 65 3A 20 6C 64 20 62 2C 31 32 3A  ,mname: ld b,12:
000040: 20 63 61 6C 6C 20 26 42 43 37 37 3A 20 6C 64 20   call &BC77: ld 
000050: 68 6C 2C 6D 75 73 69 63 3A 20 63 61 6C 6C 20 26  hl,music: call &
000060: 42 43 38 33 3A 20 63 61 6C 6C 20 26 42 43 37 41  BC83: call &BC7A
000070: 0D 0A 0D 0A 09 6C 64 20 62 63 2C 26 30 37 32 33  .....ld bc,&0723
000080: 3A 20 63 61 6C 6C 20 63 72 74 63 0D 0A 09 6C 64  : call crtc...ld
000090: 20 62 63 2C 26 30 33 38 35 3A 20 63 61 6C 6C 20   bc,&0385: call 
0000A0: 63 72 74 63 0D 0A 09 6C 64 20 62 63 2C 26 30 32  crtc...ld bc,&02
0000B0: 33 32 3A 20 63 61 6C 6C 20 63 72 74 63 0D 0A 09  32: call crtc...
0000C0: 6C 64 20 62 63 2C 26 30 36 32 31 3A 20 63 61 6C  ld bc,&0621: cal
0000D0: 6C 20 63 72 74 63 0D 0A 09 6C 64 20 62 63 2C 26  l crtc...ld bc,&
0000E0: 30 31 33 30 3A 20 63 61 6C 6C 20 63 72 74 63 0D  0130: call crtc.
0000F0: 0A 09 6C 64 20 62 63 2C 26 30 43 30 43 3A 20 63  ..ld bc,&0C0C: c
000100: 61 6C 6C 20 63 72 74 63 0D 0A 09 6C 64 20 62 63  all crtc...ld bc
000110: 2C 26 30 44 34 30 3A 20 63 61 6C 6C 20 63 72 74  ,&0D40: call crt
000120: 63 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 31 30 2A 39  c.....ld hl,10*9
000130: 36 2B 26 38 30 3A 20 6C 64 20 64 2C 68 3A 20 6C  6+&80: ld d,h: l
000140: 64 20 65 2C 6C 3A 20 69 6E 63 20 64 65 3A 20 3B  d e,l: inc de: ;
000150: 6C 64 20 28 68 6C 29 2C 32 35 35 3A 20 6C 64 20  ld (hl),255: ld 
000160: 62 63 2C 39 35 3A 20 3B 6C 64 69 72 0D 0A 09 6C  bc,95: ;ldir...l
000170: 64 20 68 6C 2C 31 38 2A 39 36 2B 26 38 30 3A 20  d hl,18*96+&80: 
000180: 6C 64 20 64 2C 68 3A 20 6C 64 20 65 2C 6C 3A 20  ld d,h: ld e,l: 
000190: 69 6E 63 20 64 65 3A 20 3B 6C 64 20 28 68 6C 29  inc de: ;ld (hl)
0001A0: 2C 32 35 35 3A 20 6C 64 20 62 63 2C 39 35 3A 20  ,255: ld bc,95: 
0001B0: 3B 6C 64 69 72 0D 0A 0D 0A 09 3B 26 34 34 32 30  ;ldir.....;&4420
0001C0: 20 2D 20 73 74 61 72 74 20 6F 66 20 66 69 72 73   - start of firs
0001D0: 74 20 72 6F 77 09 2D 20 26 34 34 37 46 0D 0A 09  t row.- &447F...
0001E0: 3B 26 34 34 38 30 20 2D 20 73 74 61 72 74 20 6F  ;&4480 - start o
0001F0: 66 20 73 65 63 6F 6E 64 20 72 6F 77 09 2D 20 26  f second row.- &

Size : 512 (Real : 512)
000000: 6C 64 20 28 68 6C 29 2C 6C 09 09 09 3B 4E 65 65  ld (hl),l...;Nee
000010: 64 65 64 20 66 6F 72 20 22 70 72 65 76 22 20 69  ded for "prev" i
000020: 6E 20 45 64 69 74 20 55 73 65 72 0D 0A 0D 0A 09  n Edit User.....
000030: 6C 64 20 68 6C 2C 68 6C 6E 61 6D 65 3A 20 6C 64  ld hl,hlname: ld
000040: 20 62 2C 39 09 09 09 3B 4C 6F 61 64 20 68 65 6C   b,9...;Load hel
000050: 70 20 66 69 6C 65 0D 0A 09 6C 64 20 64 65 2C 69  p file...ld de,i
000060: 6E 62 75 66 66 3A 20 63 61 6C 6C 20 26 42 43 37  nbuff: call &BC7
000070: 37 09 09 3B 20 7C 0D 0A 09 6C 64 20 68 6C 2C 26  7..; |...ld hl,&
000080: 34 30 20 20 20 3A 20 63 61 6C 6C 20 26 42 43 38  40   : call &BC8
000090: 33 09 09 3B 20 7C 0D 0A 09 63 61 6C 6C 20 26 42  3..; |...call &B
0000A0: 43 37 41 09 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C  C7A....; |.....l
0000B0: 64 20 68 6C 2C 6D 64 6E 61 6D 65 3A 20 6C 64 20  d hl,mdname: ld 
0000C0: 62 2C 31 30 09 09 09 3B 4F 70 65 6E 20 64 69 63  b,10...;Open dic
0000D0: 74 69 6F 6E 61 72 79 0D 0A 09 6C 64 20 64 65 2C  tionary...ld de,
0000E0: 69 6E 62 75 66 66 3A 20 63 61 6C 6C 20 26 42 43  inbuff: call &BC
0000F0: 37 37 09 09 3B 20 7C 0D 0A 09 70 75 73 68 20 68  77..; |...push h
000100: 6C 3A 20 70 6F 70 20 69 78 09 09 09 09 3B 20 7C  l: pop ix....; |
000110: 0D 0A 09 6C 64 20 62 63 2C 26 37 46 43 34 09 09  ...ld bc,&7FC4..
000120: 09 09 3B 20 7C 0D 0A 0D 0A 2E 6C 6F 61 64 31 36  ..; |.....load16
000130: 09 6C 64 20 61 2C 28 26 42 43 38 33 29 3A 20 63  .ld a,(&BC83): c
000140: 70 20 26 43 46 3A 20 6A 72 20 7A 2C 74 61 70 65  p &CF: jr z,tape
000150: 31 36 09 3B 4C 6F 61 64 20 31 36 6B 20 62 6C 6F  16.;Load 16k blo
000160: 63 6B 73 0D 0A 09 6C 64 20 28 69 78 2B 36 34 29  cks...ld (ix+64)
000170: 2C 30 3A 20 6C 64 20 28 69 78 2B 36 35 29 2C 26  ,0: ld (ix+65),&
000180: 34 30 09 09 3B 66 72 6F 6D 20 64 69 73 63 0D 0A  40..;from disc..
000190: 09 6C 64 20 28 69 78 2B 36 36 29 2C 30 3A 20 6F  .ld (ix+66),0: o
0001A0: 75 74 20 28 63 29 2C 63 09 09 09 3B 20 7C 0D 0A  ut (c),c...; |..
0001B0: 09 70 75 73 68 20 62 63 3A 20 70 75 73 68 20 69  .push bc: push i
0001C0: 78 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 68 6C  x...; |... ld hl
0001D0: 2C 26 34 30 30 30 3A 20 63 61 6C 6C 20 26 42 43  ,&4000: call &BC
0001E0: 38 33 09 09 3B 20 7C 0D 0A 09 70 6F 70 20 69 78  83..; |...pop ix
0001F0: 3A 20 70 6F 70 20 62 63 3A 20 6A 72 20 6C 6F 61  : pop bc: jr loa

Size : 512 (Real : 512)
000000: 2C 33 2C 22 50 6C 65 61 73 65 20 73 65 6C 65 63  ,3,"Please selec
000010: 74 3A 20 20 20 22 2C 32 34 2C 22 45 22 2C 32 34  t:   ",24,"E",24
000020: 2C 22 64 69 74 20 20 20 22 2C 32 34 2C 22 43 22  ,"dit   ",24,"C"
000030: 2C 32 34 2C 22 6F 6E 73 75 6C 74 20 20 20 22 0D  ,24,"onsult   ".
000040: 0A 09 64 62 20 32 34 2C 22 4C 22 2C 32 34 2C 22  ..db 24,"L",24,"
000050: 65 61 72 6E 20 20 20 22 2C 32 34 2C 22 49 22 2C  earn   ",24,"I",
000060: 32 34 2C 22 67 6E 6F 72 65 20 20 20 49 67 6E 6F  24,"gnore   Igno
000070: 72 65 20 22 0D 0A 09 64 62 20 32 34 2C 22 61 22  re "...db 24,"a"
000080: 2C 32 34 2C 22 6C 6C 20 20 20 22 2C 32 34 2C 22  ,24,"ll   ",24,"
000090: 51 22 2C 32 34 2C 22 75 69 74 22 2C 30 0D 0A 2E  Q",24,"uit",0...
0000A0: 66 75 6C 6C 74 78 09 64 62 20 22 53 6F 72 72 79  fulltx.db "Sorry
0000B0: 2C 20 74 68 65 72 65 20 69 73 20 6E 6F 20 6D 65  , there is no me
0000C0: 6D 6F 72 79 20 6C 65 66 74 20 74 6F 20 61 64 64  mory left to add
0000D0: 20 77 6F 72 64 73 2E 20 50 72 65 73 73 20 61 6E   words. Press an
0000E0: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75  y key to continu
0000F0: 65 2E 22 2C 30 0D 0A 2E 65 64 69 74 74 78 09 64  e.",0...edittx.d
000100: 62 20 22 49 6E 70 75 74 20 63 6F 72 72 65 63 74  b "Input correct
000110: 65 64 20 77 6F 72 64 3A 20 22 2C 30 0D 0A 2E 61  ed word: ",0...a
000120: 64 64 5F 74 78 09 64 62 20 22 49 6E 70 75 74 20  dd_tx.db "Input 
000130: 77 6F 72 64 20 74 6F 20 61 64 64 3A 20 22 2C 30  word to add: ",0
000140: 0D 0A 2E 6E 74 64 5F 74 78 09 64 62 20 33 31 2C  ...ntd_tx.db 31,
000150: 32 37 2C 31 34 2C 22 4E 6F 74 20 61 20 75 73 65  27,14,"Not a use
000160: 72 20 64 69 63 74 69 6F 6E 61 72 79 20 66 69 6C  r dictionary fil
000170: 65 2E 22 0D 0A 09 64 62 20 33 31 2C 33 34 2C 31  e."...db 31,34,1
000180: 36 2C 22 20 20 20 20 20 20 20 50 72 65 73 73 20  6,"       Press 
000190: 61 6E 79 20 6B 65 79 22 2C 30 0D 0A 2E 65 64 69  any key",0...edi
0001A0: 5F 74 78 09 64 62 20 33 31 2C 31 2C 33 2C 22 50  _tx.db 31,1,3,"P
0001B0: 6C 65 61 73 65 20 73 65 6C 65 63 74 3A 20 20 20  lease select:   
0001C0: 22 2C 32 34 2C 22 41 22 2C 32 34 2C 22 64 64 20  ",24,"A",24,"dd 
0001D0: 20 20 22 2C 32 34 2C 22 44 65 6C 22 2C 32 34 2C    ",24,"Del",24,
0001E0: 22 65 74 65 20 20 20 22 0D 0A 09 64 62 20 32 34  "ete   "...db 24
0001F0: 2C 22 4E 22 2C 32 34 2C 22 65 78 74 20 70 61 67  ,"N",24,"ext pag

Size : 512 (Real : 512)
000000: 64 6C 70 09 09 3B 20 7C 0D 0A 2E 74 61 70 65 31  dlp..; |...tape1
000010: 36 09 6F 75 74 20 28 63 29 2C 63 3A 20 6C 64 20  6.out (c),c: ld 
000020: 68 6C 2C 26 34 30 30 30 09 09 09 3B 66 72 6F 6D  hl,&4000...;from
000030: 20 74 61 70 65 0D 0A 2E 74 61 70 65 6C 70 09 63   tape...tapelp.c
000040: 61 6C 6C 20 26 42 43 38 30 3A 20 6C 64 20 28 68  all &BC80: ld (h
000050: 6C 29 2C 61 3A 20 69 6E 63 20 68 6C 09 09 3B 20  l),a: inc hl..; 
000060: 7C 0D 0A 09 6C 64 20 61 2C 68 3A 20 63 70 20 26  |...ld a,h: cp &
000070: 38 30 3A 20 6A 72 20 6E 7A 2C 74 61 70 65 6C 70  80: jr nz,tapelp
000080: 09 09 3B 20 7C 0D 0A 0D 0A 2E 6C 6F 61 64 6C 70  ..; |.....loadlp
000090: 09 69 6E 63 20 63 3A 20 6C 64 20 61 2C 63 3A 20  .inc c: ld a,c: 
0000A0: 63 70 20 26 43 37 3A 20 6A 72 20 6E 7A 2C 6C 6F  cp &C7: jr nz,lo
0000B0: 61 64 31 36 09 3B 4C 6F 6F 70 0D 0A 09 6C 64 20  ad16.;Loop...ld 
0000C0: 63 2C 26 43 30 3A 20 6F 75 74 20 28 63 29 2C 63  c,&C0: out (c),c
0000D0: 09 09 09 3B 20 7C 0D 0A 0D 0A 09 63 61 6C 6C 20  ...; |.....call 
0000E0: 26 42 43 37 41 09 09 09 09 3B 43 6C 6F 73 65 20  &BC7A....;Close 
0000F0: 64 69 63 74 69 6F 6E 61 72 79 0D 0A 09 72 65 74  dictionary...ret
000100: 0D 0A 1A 50 45 4C 4C 20 20 20 24 24 24 FF 00 FF  ...PELL   $$$...
000110: 09 3B 28 63 29 20 31 39 39 34 20 52 69 63 68 61  .;(c) 1994 Richa
000120: 72 64 20 46 61 69 72 68 75 72 73 74 0D 0A 0D 0A  rd Fairhurst....
000130: 09 6F 72 67 20 26 37 38 30 30 0D 0A 09 77 72 69  .org &7800...wri
000140: 74 65 20 22 73 70 65 6C 6C 2E 62 69 6E 22 0D 0A  te "spell.bin"..
000150: 09 6E 6F 6C 69 73 74 0D 0A 0D 0A 69 6E 62 75 66  .nolist....inbuf
000160: 66 09 65 71 75 20 26 31 30 30 30 0D 0A 6F 74 62  f.equ &1000..otb
000170: 75 66 66 09 65 71 75 20 26 31 38 30 30 0D 0A 0D  uff.equ &1800...
000180: 34 30 09 09 3B 66 72 6F 6D 20 64 69 73 63 0D 0A  40..;from disc..
000190: 09 6C 64 20 28 69 78 2B 36 36 29 2C 30 3A 20 6F  .ld (ix+66),0: o
0001A0: 75 74 20 28 63 29 2C 63 09 09 09 3B 20 7C 0D 0A  ut (c),c...; |..
0001B0: 09 70 75 73 68 20 62 63 3A 20 70 75 73 68 20 69  .push bc: push i
0001C0: 78 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20 68 6C  x...; |... ld hl
0001D0: 2C 26 34 30 30 30 3A 20 63 61 6C 6C 20 26 42 43  ,&4000: call &BC
0001E0: 38 33 09 09 3B 20 7C 0D 0A 09 70 6F 70 20 69 78  83..; |...pop ix
0001F0: 3A 20 70 6F 70 20 62 63 3A 20 6A 72 20 6C 6F 61  : pop bc: jr loa

Size : 512 (Real : 512)
000000: 65 20 20 20 22 2C 32 34 2C 22 50 22 2C 32 34 2C  e   ",24,"P",24,
000010: 22 72 65 76 69 6F 75 73 20 70 61 67 65 20 20 20  "revious page   
000020: 22 2C 32 34 2C 22 51 22 2C 32 34 2C 22 75 69 74  ",24,"Q",24,"uit
000030: 22 2C 30 0D 0A 2E 63 6F 6E 5F 74 78 09 64 62 20  ",0...con_tx.db 
000040: 33 31 2C 31 2C 31 2C 22 43 75 72 72 65 6E 74 20  31,1,1,"Current 
000050: 77 6F 72 64 3A 20 22 0D 0A 09 64 62 20 33 31 2C  word: "...db 31,
000060: 31 2C 33 2C 22 50 6C 65 61 73 65 20 73 65 6C 65  1,3,"Please sele
000070: 63 74 3A 20 20 20 22 2C 32 34 2C 22 55 22 2C 32  ct:   ",24,"U",2
000080: 34 2C 22 73 65 20 20 20 22 2C 32 34 2C 22 4E 22  4,"se   ",24,"N"
000090: 2C 32 34 2C 22 65 78 74 20 77 6F 72 64 20 20 20  ,24,"ext word   
0000A0: 22 0D 0A 09 64 62 20 32 34 2C 22 50 22 2C 32 34  "...db 24,"P",24
0000B0: 2C 22 72 65 76 69 6F 75 73 20 77 6F 72 64 20 20  ,"revious word  
0000C0: 20 22 2C 32 34 2C 22 51 22 2C 32 34 2C 22 75 69   ",24,"Q",24,"ui
0000D0: 74 22 2C 30 0D 0A 2E 68 65 6C 70 74 78 09 64 62  t",0...helptx.db
0000E0: 20 33 31 2C 31 2C 32 2C 22 50 6C 65 61 73 65 20   31,1,2,"Please 
0000F0: 73 65 6C 65 63 74 3A 20 20 20 22 2C 32 34 2C 22  select:   ",24,"
000100: 43 22 2C 32 34 2C 22 6F 6E 74 69 6E 75 65 20 20  C",24,"ontinue  
000110: 20 22 2C 32 34 2C 22 51 22 2C 32 34 2C 22 75 69   ",24,"Q",24,"ui
000120: 74 22 2C 30 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44 41  t",0.....;*** DA
000130: 54 41 09 41 53 43 49 49 20 72 65 66 65 72 65 6E  TA.ASCII referen
000140: 63 65 20 74 61 62 6C 65 0D 0A 0D 0A 2E 6C 65 74  ce table.....let
000150: 74 65 72 09 64 77 09 30 2C 09 33 35 31 37 2C 09  ter.dw.0,.3517,.
000160: 35 34 30 31 2C 09 31 30 35 39 36 09 3B 41 42 43  5401,.10596.;ABC
000170: 44 0D 0A 09 64 77 09 31 33 39 35 38 2C 09 31 36  D...dw.13958,.16
000180: 36 38 37 2C 09 31 39 30 36 30 2C 09 32 30 32 32  687,.19060,.2022
000190: 34 09 3B 45 46 47 48 0D 0A 09 64 77 09 32 31 33  4.;EFGH...dw.213
0001A0: 39 32 2C 09 32 34 31 33 33 2C 09 32 34 34 30 39  92,.24133,.24409
0001B0: 2C 09 32 34 36 31 30 09 3B 49 4A 4B 4C 0D 0A 09  ,.24610.;IJKL...
0001C0: 64 77 09 32 35 38 33 39 2C 09 32 37 38 32 31 2C  dw.25839,.27821,
0001D0: 09 32 38 36 36 31 2C 09 33 30 36 32 32 09 3B 4D  .28661,.30622.;M
0001E0: 4E 4F 50 0D 0A 09 64 77 09 33 35 30 37 34 2C 09  NOP...dw.35074,.
0001F0: 33 35 32 39 38 2C 09 33 38 36 32 36 2C 09 34 33  35298,.38626,.43

Size : 512 (Real : 512)
000000: 0D 0A 09 3B 53 54 53 20 4D 65 65 74 69 6E 67 20  ...;STS Meeting 
000010: 44 65 6D 6F 20 2F 20 42 54 4C 20 33 20 69 6E 74  Demo / BTL 3 int
000020: 72 6F 0D 0A 09 3B 73 74 61 72 72 69 6E 67 20 54  ro...;starring T
000030: 61 6D 73 69 6E 20 74 68 65 20 57 6F 6E 64 65 72  amsin the Wonder
000040: 20 43 61 74 0D 0A 0D 0A 09 6F 72 67 20 26 38 30   Cat.....org &80
000050: 30 30 0D 0A 09 77 72 69 74 65 20 22 64 69 73 63  00...write "disc
000060: 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69 73 74 0D 0A  .bin"...nolist..
000070: 0D 0A 63 61 74 31 72 09 65 71 75 20 26 43 30 30  ..cat1r.equ &C00
000080: 30 0D 0A 63 61 74 32 72 09 65 71 75 20 26 43 31  0..cat2r.equ &C1
000090: 32 43 0D 0A 63 61 74 33 72 09 65 71 75 20 26 43  2C..cat3r.equ &C
0000A0: 32 35 38 0D 0A 63 61 74 31 6C 09 65 71 75 20 26  258..cat1l.equ &
0000B0: 43 33 38 34 0D 0A 63 61 74 32 6C 09 65 71 75 20  C384..cat2l.equ 
0000C0: 26 43 34 42 30 0D 0A 63 61 74 33 6C 09 65 71 75  &C4B0..cat3l.equ
0000D0: 20 26 43 35 44 43 0D 0A 63 61 74 73 74 09 65 71   &C5DC..catst.eq
0000E0: 75 20 26 43 37 30 38 0D 0A 6D 75 73 69 63 09 65  u &C708..music.e
0000F0: 71 75 20 26 44 30 30 30 0D 0A 0D 0A 74 6F 70 6C  qu &D000....topl
000100: 6E 09 65 71 75 20 26 34 30 30 30 09 09 09 09 3B  n.equ &4000....;
000110: 39 2A 39 36 2B 26 38 30 2B 32 0D 0A 0D 0A 66 6F  9*96+&80+2....fo
000120: 6E 74 09 65 71 75 20 26 39 42 30 30 09 09 09 09  nt.equ &9B00....
000130: 3B 48 49 4D 45 4D 2D 26 31 30 30 30 20 74 68 65  ;HIMEM-&1000 the
000140: 6E 20 70 61 67 65 2D 61 6C 69 67 6E 65 64 0D 0A  n page-aligned..
000150: 0D 0A 09 3B 2A 2A 2A 20 49 4E 49 54 09 49 6E 69  ...;*** INIT.Ini
000160: 74 69 61 6C 69 73 61 74 69 6F 6E 0D 0A 0D 0A 09  tialisation.....
000170: 6C 64 20 61 2C 31 3A 20 63 61 6C 6C 20 26 42 43  ld a,1: call &BC
000180: 30 45 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 26 42 30  0E.....ld hl,&B0
000190: 46 46 3A 20 6C 64 20 63 2C 37 0D 0A 09 6C 64 20  FF: ld c,7...ld 
0001A0: 64 65 2C 26 30 30 34 30 3A 20 63 61 6C 6C 20 26  de,&0040: call &
0001B0: 42 43 43 45 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 73  BCCE.....ld hl,s
0001C0: 6E 61 6D 65 3A 20 6C 64 20 62 2C 31 32 0D 0A 09  name: ld b,12...
0001D0: 6C 64 20 64 65 2C 26 43 30 30 30 3A 20 63 61 6C  ld de,&C000: cal
0001E0: 6C 20 26 42 43 37 37 0D 0A 09 6C 64 20 68 6C 2C  l &BC77...ld hl,
0001F0: 26 43 30 30 30 3A 20 63 61 6C 6C 20 26 42 43 38  &C000: call &BC8

Size : 512 (Real : 512)
000000: 3B 43 68 61 52 6C 65 79 54 72 6F 6E 69 43 20 4D  ;ChaRleyTroniC M
000010: 61 63 42 75 67 73 20 64 65 6D 6F 0D 0A 3B 28 63  acBugs demo..;(c
000020: 29 31 39 39 35 20 43 52 54 43 2F 53 79 73 74 65  )1995 CRTC/Syste
000030: 6D 65 20 44 0D 0A 0D 0A 6F 72 67 20 26 35 30 30  me D....org &500
000040: 30 0D 0A 6E 6F 6C 69 73 74 0D 0A 6C 69 6D 69 74  0..nolist..limit
000050: 20 26 36 37 30 30 0D 0A 0D 0A 20 20 20 20 20 20   &6700....      
000060: 20 20 3B 53 63 72 65 65 6E 20 73 65 74 75 70 0D    ;Screen setup.
000070: 0A 0D 0A 20 20 20 20 20 20 20 20 6C 64 20 61 2C  ...        ld a,
000080: 32 3A 20 63 61 6C 6C 20 26 42 43 30 45 0D 0A 20  2: call &BC0E.. 
000090: 20 20 20 20 20 20 20 6C 64 20 68 6C 2C 6D 61 63         ld hl,mac
0000A0: 73 70 72 3A 20 6C 64 20 64 65 2C 26 43 30 30 30  spr: ld de,&C000
0000B0: 3A 20 6C 64 20 61 2C 38 0D 0A 2E 6D 61 63 73 6C  : ld a,8...macsl
0000C0: 70 20 6C 64 20 62 63 2C 31 36 30 20 20 3A 20 6C  p ld bc,160  : l
0000D0: 64 69 72 0D 0A 20 20 20 20 20 20 20 20 6C 64 20  dir..        ld 
0000E0: 62 63 2C 26 37 36 30 20 3A 20 65 78 20 64 65 2C  bc,&760 : ex de,
0000F0: 68 6C 0D 0A 20 20 20 20 20 20 20 20 61 64 64 20  hl..        add 
000100: 68 6C 2C 62 63 20 20 3A 20 65 78 20 64 65 2C 68  hl,bc  : ex de,h
000110: 6C 0D 0A 20 20 20 20 20 20 20 20 64 65 63 20 61  l..        dec a
000120: 3A 20 6A 72 20 6E 7A 2C 6D 61 63 73 6C 70 0D 0A  : jr nz,macslp..
000130: 0D 0A 20 20 20 20 20 20 20 20 64 69 3A 20 6C 64  ..        di: ld
000140: 20 68 6C 2C 28 26 33 38 29 3A 20 6C 64 20 28 73   hl,(&38): ld (s
000150: 74 33 38 29 2C 68 6C 0D 0A 20 20 20 20 20 20 20  t38),hl..       
000160: 20 20 20 20 20 6C 64 20 68 6C 2C 26 43 39 46 42       ld hl,&C9FB
000170: 3A 20 6C 64 20 28 26 33 38 20 29 2C 68 6C 3A 20  : ld (&38 ),hl: 
000180: 65 69 0D 0A 0D 0A 20 20 20 20 20 20 20 20 6C 64  ei....        ld
000190: 20 62 63 2C 26 37 46 31 30 3A 20 6C 64 20 61 2C   bc,&7F10: ld a,
0001A0: 26 35 34 3A 20 6F 75 74 20 28 63 29 2C 63 3A 20  &54: out (c),c: 
0001B0: 6F 75 74 20 28 63 29 2C 61 0D 0A 0D 0A 20 20 20  out (c),a....   
0001C0: 20 20 20 20 20 6C 64 20 64 65 2C 36 31 30 0D 0A       ld de,610..
0001D0: 20 20 20 20 20 20 20 20 6C 64 20 68 6C 2C 26 43          ld hl,&C
0001E0: 35 41 30 3A 20 6C 64 20 28 68 6C 29 2C 32 35 35  5A0: ld (hl),255
0001F0: 0D 0A 0D 0A 2E 70 6F 73 74 64 6F 20 3B 4D 61 69  .....postdo ;Mai

Size : 512 (Real : 512)
000000: 61 6C 6C 20 63 72 74 63 0D 0A 09 6C 64 20 62 63  all crtc...ld bc
000010: 2C 26 30 36 31 39 3A 20 63 61 6C 6C 20 63 72 74  ,&0619: call crt
000020: 63 0D 0A 09 6C 64 20 62 63 2C 26 30 32 32 45 3A  c...ld bc,&022E:
000030: 20 63 61 6C 6C 20 63 72 74 63 0D 0A 09 6C 64 20   call crtc...ld 
000040: 62 63 2C 26 30 31 32 38 3A 20 63 61 6C 6C 20 63  bc,&0128: call c
000050: 72 74 63 0D 0A 09 6C 64 20 62 63 2C 26 30 43 33  rtc...ld bc,&0C3
000060: 30 3A 20 63 61 6C 6C 20 63 72 74 63 0D 0A 09 6C  0: call crtc...l
000070: 64 20 62 63 2C 26 30 44 30 30 3A 20 63 61 6C 6C  d bc,&0D00: call
000080: 20 63 72 74 63 0D 0A 0D 0A 09 6C 64 20 61 2C 32   crtc.....ld a,2
000090: 3A 20 6A 70 20 26 42 43 30 45 0D 0A 0D 0A 09 3B  : jp &BC0E.....;
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 20 61 6E 69 6D 61 74 69 6F 6E 20 2D 2D 2D 2D 2D   animation -----
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 09 3B 2A 2A 2A  -------.....;***
0000F0: 20 52 4F 55 54 09 44 69 73 70 6C 61 79 20 73 70   ROUT.Display sp
000100: 72 69 74 65 20 69 6E 20 63 6F 72 72 65 63 74 20  rite in correct 
000110: 70 6F 73 69 74 69 6F 6E 0D 0A 0D 0A 2E 64 69 73  position.....dis
000120: 70 09 6C 64 20 61 2C 28 61 6E 69 5F 79 29 3A 20  p.ld a,(ani_y): 
000130: 63 61 6C 6C 20 73 63 72 61 64 64 09 09 09 3B 47  call scradd...;G
000140: 65 74 20 73 63 72 65 65 6E 20 61 64 64 72 65 73  et screen addres
000150: 73 0D 0A 09 6C 64 20 61 2C 28 61 6E 69 5F 78 29  s...ld a,(ani_x)
000160: 3A 20 6C 64 20 65 2C 61 3A 20 6C 64 20 64 2C 30  : ld e,a: ld d,0
000170: 3A 20 61 64 64 20 68 6C 2C 64 65 09 09 3B 41 64  : add hl,de..;Ad
000180: 64 20 78 20 70 6F 73 69 74 69 6F 6E 0D 0A 09 6C  d x position...l
000190: 64 20 64 65 2C 74 6F 70 6C 6E 20 3A 20 61 64 64  d de,topln : add
0001A0: 20 68 6C 2C 64 65 09 09 09 09 3B 41 64 64 20 62   hl,de....;Add b
0001B0: 61 73 65 20 61 64 64 72 65 73 73 0D 0A 0D 0A 09  ase address.....
0001C0: 70 75 73 68 20 68 6C 09 09 09 09 09 09 3B 47 65  push hl......;Ge
0001D0: 74 20 73 70 72 69 74 65 20 61 64 64 72 65 73 73  t sprite address
0001E0: 0D 0A 09 20 6C 64 20 68 6C 2C 28 63 61 74 70 69  ... ld hl,(catpi
0001F0: 63 29 3A 20 6C 64 20 68 2C 30 09 09 09 09 3B 20  c): ld h,0....;

Size : 512 (Real : 512)
000000: 6E 20 63 6F 64 65 0D 0A 0D 0A 2E 66 66 20 20 20  n code.....ff   
000010: 20 20 6C 64 20 62 2C 26 46 35 0D 0A 2E 66 66 6C    ld b,&F5...ffl
000020: 6F 6F 70 20 69 6E 20 61 2C 28 63 29 3A 20 72 72  oop in a,(c): rr
000030: 61 0D 0A 20 20 20 20 20 20 20 20 6A 72 20 6E 63  a..        jr nc
000040: 2C 66 66 6C 6F 6F 70 0D 0A 0D 0A 20 20 20 20 20  ,ffloop....     
000050: 20 20 20 70 75 73 68 20 64 65 0D 0A 20 20 20 20     push de..    
000060: 20 20 20 20 6C 64 20 62 63 2C 26 37 46 38 45 3A      ld bc,&7F8E:
000070: 20 6F 75 74 20 28 63 29 2C 63 0D 0A 20 20 20 20   out (c),c..    
000080: 20 20 20 20 6C 64 20 20 63 2C 20 20 26 30 31 3A      ld  c,  &01:
000090: 20 6F 75 74 20 28 63 29 2C 63 3A 20 6C 64 20 61   out (c),c: ld a
0000A0: 2C 26 35 34 3A 20 6F 75 74 20 28 63 29 2C 61 0D  ,&54: out (c),a.
0000B0: 0A 20 20 20 20 20 20 20 20 64 65 63 20 63 20 20  .        dec c  
0000C0: 20 20 20 20 3A 20 6F 75 74 20 28 63 29 2C 63 3A      : out (c),c:
0000D0: 20 6C 64 20 61 2C 26 34 42 3A 20 6F 75 74 20 28   ld a,&4B: out (
0000E0: 63 29 2C 61 0D 0A 0D 0A 20 20 20 20 20 20 20 20  c),a....        
0000F0: 3B 41 70 70 6C 65 20 72 61 73 74 65 72 73 0D 0A  ;Apple rasters..
000100: 0D 0A 20 20 20 20 20 20 20 20 6C 64 20 65 2C 26  ..        ld e,&
000110: 35 34 3A 20 68 61 6C 74 0D 0A 20 20 20 20 20 20  54: halt..      
000120: 20 20 6C 64 20 62 63 2C 26 32 38 43 0D 0A 2E 74    ld bc,&28C...t
000130: 69 6D 69 6E 67 20 64 65 63 20 62 63 3A 20 6C 64  iming dec bc: ld
000140: 20 61 2C 62 3A 20 6F 72 20 63 3A 20 6A 72 20 6E   a,b: or c: jr n
000150: 7A 2C 74 69 6D 69 6E 67 0D 0A 0D 0A 20 20 20 20  z,timing....    
000160: 20 20 20 20 64 73 20 31 35 0D 0A 20 20 20 20 20      ds 15..     
000170: 20 20 20 6C 64 20 62 63 2C 26 37 46 30 31 3A 20     ld bc,&7F01: 
000180: 6F 75 74 20 28 63 29 2C 63 0D 0A 20 20 20 20 20  out (c),c..     
000190: 20 20 20 6C 64 20 61 2C 26 35 32 3A 20 6F 75 74     ld a,&52: out
0001A0: 20 28 63 29 2C 61 3A 20 6F 75 74 20 28 63 29 2C   (c),a: out (c),
0001B0: 65 3A 20 64 73 20 35 34 0D 0A 20 20 20 20 20 20  e: ds 54..      
0001C0: 20 20 6C 64 20 61 2C 26 35 32 3A 20 6F 75 74 20    ld a,&52: out 
0001D0: 28 63 29 2C 61 3A 20 6F 75 74 20 28 63 29 2C 65  (c),a: out (c),e
0001E0: 3A 20 64 73 20 35 34 0D 0A 20 20 20 20 20 20 20  : ds 54..       
0001F0: 20 6C 64 20 61 2C 26 34 39 3A 20 6F 75 74 20 28   ld a,&49: out (

Size : 512 (Real : 512)
000000: 7C 0D 0A 09 20 61 64 64 20 68 6C 2C 68 6C 3A 20  |... add hl,hl: 
000010: 61 64 64 20 68 6C 2C 68 6C 09 09 09 09 3B 20 7C  add hl,hl....; |
000020: 0D 0A 09 20 6C 64 20 64 65 2C 70 69 63 74 62 6C  ... ld de,pictbl
000030: 3A 20 61 64 64 20 68 6C 2C 64 65 09 09 09 3B 20  : add hl,de...; 
000040: 7C 0D 0A 09 20 6C 64 20 65 2C 28 68 6C 29 3A 20  |... ld e,(hl): 
000050: 69 6E 63 20 68 6C 09 09 09 09 3B 20 7C 0D 0A 09  inc hl....; |...
000060: 20 6C 64 20 64 2C 28 68 6C 29 3A 20 69 6E 63 20   ld d,(hl): inc 
000070: 68 6C 09 09 09 09 3B 20 7C 0D 0A 09 20 6C 64 20  hl....; |... ld 
000080: 61 2C 28 68 6C 29 09 09 09 09 09 3B 20 7C 0D 0A  a,(hl).....; |..
000090: 09 70 6F 70 20 68 6C 3A 20 65 78 20 64 65 2C 68  .pop hl: ex de,h
0000A0: 6C 0D 0A 09 6A 70 20 73 70 72 69 74 65 0D 0A 0D  l...jp sprite...
0000B0: 0A 2E 70 69 63 74 62 6C 09 64 77 20 63 61 74 31  ..pictbl.dw cat1
0000C0: 72 2C 32 35 2C 63 61 74 32 72 2C 32 35 2C 63 61  r,25,cat2r,25,ca
0000D0: 74 33 72 2C 32 35 2C 63 61 74 32 72 2C 32 35 0D  t3r,25,cat2r,25.
0000E0: 0A 09 64 77 20 63 61 74 31 6C 2C 32 35 2C 63 61  ..dw cat1l,25,ca
0000F0: 74 32 6C 2C 32 35 2C 63 61 74 33 6C 2C 32 35 2C  t2l,25,cat3l,25,
000100: 63 61 74 32 6C 2C 32 35 0D 0A 09 64 77 20 63 61  cat2l,25...dw ca
000110: 74 73 74 2C 32 31 0D 0A 0D 0A 09 3B 2D 2D 2D 20  tst,21.....;--- 
000120: 73 75 62 72 09 43 6F 6E 76 65 72 74 20 70 69 78  subr.Convert pix
000130: 65 6C 20 6C 69 6E 65 20 6E 75 6D 62 65 72 20 41  el line number A
000140: 20 74 6F 20 73 63 72 65 65 6E 20 61 64 64 72 65   to screen addre
000150: 73 73 20 48 4C 0D 0A 0D 0A 2E 73 63 72 61 64 64  ss HL.....scradd
000160: 09 6C 64 20 63 2C 61 3A 20 61 6E 64 20 26 46 38  .ld c,a: and &F8
000170: 09 09 09 09 09 3B 31 32 2A 28 72 6F 77 5C 38 29  .....;12*(row\8)
000180: 20 66 6F 72 20 63 68 61 72 72 6F 77 73 0D 0A 09   for charrows...
000190: 6C 64 20 6C 2C 61 3A 20 6C 64 20 68 2C 30 3A 20  ld l,a: ld h,0: 
0001A0: 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68  add hl,hl: add h
0001B0: 6C 2C 68 6C 3A 20 70 75 73 68 20 68 6C 09 3B 20  l,hl: push hl.; 
0001C0: 7C 0D 0A 09 61 64 64 20 68 6C 2C 68 6C 3A 20 70  |...add hl,hl: p
0001D0: 6F 70 20 64 65 3A 20 61 64 64 20 68 6C 2C 64 65  op de: add hl,de
0001E0: 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64 20 61 2C  ...; |.....ld a,
0001F0: 63 3A 20 61 6E 64 20 37 3A 20 61 64 64 20 61 3A  c: and 7: add a:

Size : 512 (Real : 512)
000000: 63 29 2C 61 3A 20 6F 75 74 20 28 63 29 2C 65 3A  c),a: out (c),e:
000010: 20 64 73 20 35 34 0D 0A 20 20 20 20 20 20 20 20   ds 54..        
000020: 6C 64 20 61 2C 26 34 39 3A 20 6F 75 74 20 28 63  ld a,&49: out (c
000030: 29 2C 61 3A 20 6F 75 74 20 28 63 29 2C 65 3A 20  ),a: out (c),e: 
000040: 64 73 20 35 34 0D 0A 20 20 20 20 20 20 20 20 6C  ds 54..        l
000050: 64 20 61 2C 26 34 45 3A 20 6F 75 74 20 28 63 29  d a,&4E: out (c)
000060: 2C 61 3A 20 6F 75 74 20 28 63 29 2C 65 3A 20 64  ,a: out (c),e: d
000070: 73 20 35 34 0D 0A 20 20 20 20 20 20 20 20 6C 64  s 54..        ld
000080: 20 61 2C 26 34 43 3A 20 6F 75 74 20 28 63 29 2C   a,&4C: out (c),
000090: 61 3A 20 6F 75 74 20 28 63 29 2C 65 3A 20 64 73  a: out (c),e: ds
0000A0: 20 35 34 0D 0A 20 20 20 20 20 20 20 20 6C 64 20   54..        ld 
0000B0: 61 2C 26 34 46 3A 20 6F 75 74 20 28 63 29 2C 61  a,&4F: out (c),a
0000C0: 3A 20 6F 75 74 20 28 63 29 2C 65 3A 20 64 73 20  : out (c),e: ds 
0000D0: 35 34 0D 0A 20 20 20 20 20 20 20 20 6C 64 20 61  54..        ld a
0000E0: 2C 26 35 35 3A 20 6F 75 74 20 28 63 29 2C 61 3A  ,&55: out (c),a:
0000F0: 20 6F 75 74 20 28 63 29 2C 65 0D 0A 0D 0A 20 20   out (c),e....  
000100: 20 20 20 20 20 20 6C 64 20 62 63 2C 26 31 36 0D        ld bc,&16.
000110: 0A 2E 74 69 6D 32 20 20 20 64 65 63 20 62 63 3A  ..tim2   dec bc:
000120: 20 6C 64 20 61 2C 62 3A 20 6F 72 20 63 3A 20 6A   ld a,b: or c: j
000130: 72 20 6E 7A 2C 74 69 6D 32 0D 0A 20 20 20 20 20  r nz,tim2..     
000140: 20 20 20 6C 64 20 62 63 2C 26 37 46 30 30 3A 20     ld bc,&7F00: 
000150: 6F 75 74 20 28 63 29 2C 63 0D 0A 20 20 20 20 20  out (c),c..     
000160: 20 20 20 6C 64 20 61 20 2C 26 35 35 20 20 3A 20     ld a ,&55  : 
000170: 6F 75 74 20 28 63 29 2C 61 0D 0A 0D 0A 20 20 20  out (c),a....   
000180: 20 20 20 20 20 3B 52 61 73 74 65 72 20 64 69 73       ;Raster dis
000190: 70 6C 61 79 0D 0A 0D 0A 20 20 20 20 20 20 20 20  play....        
0001A0: 6C 64 20 68 6C 2C 63 6F 6C 73 70 63 0D 0A 20 20  ld hl,colspc..  
0001B0: 20 20 20 20 20 20 6C 64 20 62 63 2C 26 36 0D 0A        ld bc,&6..
0001C0: 2E 74 69 6D 33 20 20 20 64 65 63 20 62 63 3A 20  .tim3   dec bc: 
0001D0: 6C 64 20 61 2C 62 3A 20 6F 72 20 63 3A 20 6A 72  ld a,b: or c: jr
0001E0: 20 6E 7A 2C 74 69 6D 33 0D 0A 0D 0A 20 20 20 20   nz,tim3....    
0001F0: 20 20 20 20 6C 64 20 62 63 2C 26 37 46 38 44 3A      ld bc,&7F8D:

Size : 512 (Real : 512)
000000: 43 52 54 43 20 53 6F 75 72 63 65 20 43 6F 64 65  CRTC Source Code
000010: 20 43 6F 6C 6C 65 63 74 69 6F 6E 20 20 76 6F 6C   Collection  vol
000020: 75 6D 65 20 31 0D 0A 7E 7E 7E 7E 7E 7E 7E 7E 7E  ume 1..~~~~~~~~~
000030: 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E  ~~~~~~~~~~~~~~~~
000040: 7E 7E 0D 0A 54 68 69 73 20 64 69 73 63 20 63 6F  ~~..This disc co
000050: 6E 74 61 69 6E 73 20 5A 38 30 20 73 6F 75 72 63  ntains Z80 sourc
000060: 65 20 63 6F 64 65 20 66 6F 72 20 61 20 6E 75 6D  e code for a num
000070: 62 65 72 20 6F 66 20 77 65 6C 6C 2D 6B 6E 6F 77  ber of well-know
000080: 6E 20 0D 8A 70 72 6F 67 72 61 6D 73 2C 20 66 6F  n ..programs, fo
000090: 72 20 61 70 70 72 65 6E 74 69 63 65 20 70 72 6F  r apprentice pro
0000A0: 67 72 61 6D 6D 65 72 73 20 74 6F 20 73 74 75 64  grammers to stud
0000B0: 79 20 61 6E 64 20 6C 65 61 72 6E 20 66 72 6F 6D  y and learn from
0000C0: 2E 0D 0A 0D 0A 41 6C 6C 20 6F 66 20 74 68 65 20  .....All of the 
0000D0: 66 69 6C 65 73 20 61 72 65 20 69 6E 20 50 72 6F  files are in Pro
0000E0: 74 65 78 74 20 66 6F 72 6D 61 74 20 61 6E 64 20  text format and 
0000F0: 77 65 72 65 20 77 72 69 74 74 65 6E 20 66 6F 72  were written for
000100: 20 41 72 6E 6F 72 27 73 20 0D 8A 65 78 63 65 6C   Arnor's ..excel
000110: 6C 65 6E 74 20 4D 61 78 61 6D 20 31 2E 35 20 61  lent Maxam 1.5 a
000120: 73 73 65 6D 62 6C 65 72 2E 20 59 6F 75 20 77 6F  ssembler. You wo
000130: 6E 27 74 20 62 65 20 61 62 6C 65 20 74 6F 20 75  n't be able to u
000140: 73 65 20 74 68 65 6D 20 77 69 74 68 20 0D 8A 54  se them with ..T
000150: 75 72 62 6F 20 41 73 73 65 6D 62 6C 65 72 20 28  urbo Assembler (
000160: 61 74 20 6C 65 61 73 74 2C 20 6E 6F 74 20 74 68  at least, not th
000170: 65 20 63 75 72 72 65 6E 74 20 76 65 72 73 69 6F  e current versio
000180: 6E 29 2C 20 73 6F 20 64 6F 6E 27 74 20 62 6F 74  n), so don't bot
000190: 68 65 72 20 0D 8A 74 72 79 69 6E 67 2E 0D 0A 0D  her ..trying....
0001A0: 0A 41 6C 74 68 6F 75 67 68 20 74 68 65 20 73 6F  .Although the so
0001B0: 75 72 63 65 20 63 6F 64 65 20 69 73 20 6E 6F 74  urce code is not
0001C0: 20 69 6E 74 65 6E 64 65 64 20 74 6F 20 62 65 20   intended to be 
0001D0: 72 65 75 73 65 64 20 76 65 72 62 61 74 69 6D 20  reused verbatim 
0001E0: 6F 72 20 0D 8A 72 65 61 73 73 65 6D 62 6C 65 64  or ..reassembled
0001F0: 20 2D 20 69 6E 64 65 65 64 2C 20 73 6F 6D 65 20   - indeed, some

Size : 512 (Real : 512)
000000: 20 6F 75 74 20 28 63 29 2C 63 0D 0A 20 20 20 20   out (c),c..    
000010: 20 20 20 20 6C 64 20 20 63 2C 20 20 26 30 30 3A      ld  c,  &00:
000020: 20 6F 75 74 20 28 63 29 2C 63 0D 0A 20 20 20 20   out (c),c..    
000030: 20 20 20 20 64 65 63 20 63 3A 20 64 69 0D 0A 20      dec c: di.. 
000040: 20 20 20 20 20 20 20 64 73 20 31 32 3A 20 6C 64         ds 12: ld
000050: 20 61 2C 31 32 38 0D 0A 2E 72 6C 69 6E 65 6C 20   a,128...rlinel 
000060: 6F 75 74 69 3A 6F 75 74 69 3A 6F 75 74 69 3A 6F  outi:outi:outi:o
000070: 75 74 69 3A 20 6F 75 74 69 3A 6F 75 74 69 3A 6F  uti: outi:outi:o
000080: 75 74 69 3A 6F 75 74 69 3A 20 6C 64 20 62 63 2C  uti:outi: ld bc,
000090: 26 37 46 46 46 3A 20 64 73 20 31 37 3A 20 64 65  &7FFF: ds 17: de
0000A0: 63 20 61 3A 20 6A 70 20 6E 7A 2C 72 6C 69 6E 65  c a: jp nz,rline
0000B0: 6C 0D 0A 0D 0A 20 20 20 20 20 20 20 20 3B 6F 75  l....        ;ou
0000C0: 74 69 20 20 20 20 20 3D 20 35 2A 6E 6F 70 0D 0A  ti     = 5*nop..
0000D0: 20 20 20 20 20 20 20 20 3B 6C 64 20 63 2C 26 46          ;ld c,&F
0000E0: 46 20 3D 20 32 0D 0A 0D 0A 20 20 20 20 20 20 20  F = 2....       
0000F0: 20 6C 64 20 61 2C 26 35 35 3A 20 6F 75 74 20 28   ld a,&55: out (
000100: 63 29 2C 61 3A 20 65 69 0D 0A 0D 0A 20 20 20 20  c),a: ei....    
000110: 20 20 20 20 3B 52 61 73 74 65 72 20 6D 6F 76 65      ;Raster move
000120: 6D 65 6E 74 0D 0A 0D 0A 20 20 20 20 20 20 20 20  ment....        
000130: 20 6C 64 20 61 2C 28 73 74 61 67 65 29 0D 0A 20   ld a,(stage).. 
000140: 20 20 20 20 20 20 20 20 64 65 63 20 61 3A 20 6A          dec a: j
000150: 72 20 7A 2C 73 74 61 67 65 31 0D 0A 20 20 20 20  r z,stage1..    
000160: 20 20 20 20 20 64 65 63 20 61 3A 20 6A 72 20 7A       dec a: jr z
000170: 2C 73 74 61 67 65 32 0D 0A 20 20 20 20 20 20 20  ,stage2..       
000180: 20 20 64 65 63 20 61 3A 20 6A 72 20 7A 2C 73 74    dec a: jr z,st
000190: 61 67 65 33 0D 0A 20 20 20 20 20 20 20 20 20 64  age3..         d
0001A0: 65 63 20 61 3A 20 6A 72 20 7A 2C 73 74 61 67 65  ec a: jr z,stage
0001B0: 34 0D 0A 20 20 20 20 20 20 20 20 20 6A 70 20 71  4..         jp q
0001C0: 75 69 74 69 74 0D 0A 0D 0A 2E 73 74 61 67 65 31  uitit.....stage1
0001D0: 20 20 6C 64 20 69 78 2C 66 69 6E 61 6C 31 2B 32    ld ix,final1+2
0001E0: 30 3A 20 6C 64 20 62 2C 36 3A 20 6C 64 20 69 79  0: ld b,6: ld iy
0001F0: 2C 72 72 65 64 20 20 3A 20 6A 72 20 72 6D 6C 6F  ,rred  : jr rmlo

Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 73 20 28 73 75 63 68 20 61  programs (such a
000010: 73 20 74 68 65 20 42 54 4C 20 33 20 69 6E 74 72  s the BTL 3 intr
000020: 6F 20 61 6E 64 20 0D 8A 50 6F 77 65 72 53 70 65  o and ..PowerSpe
000030: 6C 6C 29 20 72 65 71 75 69 72 65 20 61 64 64 69  ll) require addi
000040: 74 69 6F 6E 61 6C 20 72 65 73 6F 75 72 63 65 73  tional resources
000050: 20 62 65 66 6F 72 65 20 74 68 65 79 20 77 69 6C   before they wil
000060: 6C 20 77 6F 72 6B 20 0D 8A 70 72 6F 70 65 72 6C  l work ..properl
000070: 79 20 2D 20 79 6F 75 20 61 72 65 20 77 65 6C 63  y - you are welc
000080: 6F 6D 65 20 74 6F 20 77 72 69 74 65 20 66 6F 72  ome to write for
000090: 20 70 65 72 6D 69 73 73 69 6F 6E 20 73 68 6F 75   permission shou
0000A0: 6C 64 20 79 6F 75 20 66 69 6E 64 20 61 20 0D 8A  ld you find a ..
0000B0: 72 6F 75 74 69 6E 65 20 79 6F 75 20 63 61 6E 27  routine you can'
0000C0: 74 20 6C 69 76 65 20 77 69 74 68 6F 75 74 2E 20  t live without. 
0000D0: 53 69 64 65 20 42 20 6F 66 20 74 68 65 20 64 69  Side B of the di
0000E0: 73 63 20 61 6C 73 6F 20 63 6F 6E 74 61 69 6E 73  sc also contains
0000F0: 20 0D 8A 73 65 76 65 72 61 6C 20 73 75 62 72 6F   ..several subro
000100: 75 74 69 6E 65 73 20 74 68 61 74 20 79 6F 75 20  utines that you 
000110: 61 72 65 20 66 72 65 65 20 74 6F 20 75 73 65 20  are free to use 
000120: 69 6E 20 79 6F 75 72 20 6F 77 6E 20 70 72 6F 67  in your own prog
000130: 72 61 6D 73 2E 0D 0A 0D 0A 53 74 61 6E 64 61 72  rams.....Standar
000140: 64 20 22 41 6C 6D 6F 73 74 20 50 44 22 20 63 6F  d "Almost PD" co
000150: 6E 64 69 74 69 6F 6E 73 20 61 70 70 6C 79 20 74  nditions apply t
000160: 6F 20 61 6C 6C 20 73 6F 66 74 77 61 72 65 20 6F  o all software o
000170: 6E 20 74 68 69 73 20 64 69 73 63 3A 20 69 74 20  n this disc: it 
000180: 0D 8A 6D 61 79 20 6E 6F 74 20 62 65 20 64 69 73  ..may not be dis
000190: 74 72 69 62 75 74 65 64 20 63 6F 6D 6D 65 72 63  tributed commerc
0001A0: 69 61 6C 6C 79 20 6F 72 20 73 65 6D 69 2D 63 6F  ially or semi-co
0001B0: 6D 6D 65 72 63 69 61 6C 6C 79 20 77 69 74 68 6F  mmercially witho
0001C0: 75 74 20 0D 8A 77 72 69 74 74 65 6E 20 70 65 72  ut ..written per
0001D0: 6D 69 73 73 69 6F 6E 20 66 72 6F 6D 20 74 68 65  mission from the
0001E0: 20 61 75 74 68 6F 72 2C 20 61 6E 64 20 61 6C 74   author, and alt
0001F0: 68 6F 75 67 68 20 79 6F 75 20 61 72 65 20 77 65  hough you are we

Size : 512 (Real : 512)
000000: 34 34 44 46 0D 0A 09 3B 26 34 34 45 30 20 2D 20  44DF...;&44E0 - 
000010: 73 74 61 72 74 20 6F 66 20 66 72 65 65 20 6D 65  start of free me
000020: 6D 6F 72 79 0D 0A 0D 0A 09 64 69 3A 20 6C 64 20  mory.....di: ld 
000030: 68 6C 2C 28 26 33 38 29 3A 20 6C 64 20 28 72 33  hl,(&38): ld (r3
000040: 38 29 2C 68 6C 0D 0A 09 20 20 20 20 6C 64 20 68  8),hl...    ld h
000050: 6C 2C 26 43 39 46 42 3A 20 6C 64 20 28 26 33 38  l,&C9FB: ld (&38
000060: 29 2C 68 6C 3A 20 65 69 0D 0A 0D 0A 09 6C 64 20  ),hl: ei.....ld 
000070: 65 2C 31 3A 20 63 61 6C 6C 20 6D 75 73 69 63 0D  e,1: call music.
000080: 0A 0D 0A 2E 74 65 73 74 6C 70 09 6C 64 20 62 2C  ....testlp.ld b,
000090: 26 46 35 0D 0A 09 69 6E 20 61 2C 28 63 29 3A 20  &F5...in a,(c): 
0000A0: 72 72 61 3A 20 6A 72 20 6E 63 2C 74 65 73 74 6C  rra: jr nc,testl
0000B0: 70 0D 0A 09 6C 64 20 62 63 2C 26 37 46 30 30 3A  p...ld bc,&7F00:
0000C0: 20 6C 64 20 61 2C 26 35 34 3A 20 6F 75 74 20 28   ld a,&54: out (
0000D0: 63 29 2C 63 3A 20 6F 75 74 20 28 63 29 2C 61 0D  c),c: out (c),a.
0000E0: 0A 0D 0A 09 63 61 6C 6C 20 73 63 72 6F 6C 6C 0D  ....call scroll.
0000F0: 0A 2E 63 6F 75 6E 74 72 09 6C 64 20 61 2C 31 3A  ..countr.ld a,1:
000100: 20 64 65 63 20 61 3A 20 6A 72 20 6E 7A 2C 6E 6F   dec a: jr nz,no
000110: 61 6E 69 6D 0D 0A 09 63 61 6C 6C 20 64 69 73 70  anim...call disp
000120: 0D 0A 09 63 61 6C 6C 20 75 70 64 61 74 65 0D 0A  ...call update..
000130: 2E 6E 6F 61 6E 69 6D 09 6C 64 20 28 63 6F 75 6E  .noanim.ld (coun
000140: 74 72 2B 31 29 2C 61 0D 0A 09 63 61 6C 6C 20 6D  tr+1),a...call m
000150: 77 63 61 6C 63 0D 0A 09 63 61 6C 6C 20 6D 75 73  wcalc...call mus
000160: 69 63 2B 33 0D 0A 0D 0A 09 6C 64 20 62 63 2C 26  ic+3.....ld bc,&
000170: 37 46 30 30 3A 20 6C 64 20 61 2C 26 34 43 3A 20  7F00: ld a,&4C: 
000180: 6F 75 74 20 28 63 29 2C 63 3A 20 6F 75 74 20 28  out (c),c: out (
000190: 63 29 2C 61 0D 0A 2E 6E 6F 72 73 74 74 09 6A 70  c),a...norstt.jp
0001A0: 20 74 65 73 74 6C 70 0D 0A 0D 0A 2E 72 33 38 09   testlp.....r38.
0001B0: 64 77 20 30 0D 0A 0D 0A 09 63 61 6C 6C 20 26 42  dw 0.....call &B
0001C0: 44 31 39 0D 0A 09 63 61 6C 6C 20 26 42 42 30 39  D19...call &BB09
0001D0: 3A 20 6A 72 20 6E 63 2C 74 65 73 74 6C 70 0D 0A  : jr nc,testlp..
0001E0: 0D 0A 09 63 61 6C 6C 20 6D 75 73 69 63 2B 36 0D  ...call music+6.
0001F0: 0A 09 6C 64 20 62 63 2C 26 30 37 31 45 3A 20 63  ..ld bc,&071E: c

Size : 512 (Real : 512)
000000: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000010: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000020: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000030: 0D 0A 20 20 20 20 20 20 20 20 64 62 20 30 2C 30  ..        db 0,0
000040: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000050: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000060: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000070: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000080: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 32 35 35 0D 0A  ,0,0,0,0,1,255..
000090: 20 20 20 20 20 20 20 20 64 62 20 30 2C 30 2C 37          db 0,0,7
0000A0: 2C 32 35 35 2C 30 2C 30 2C 31 2C 31 39 32 2C 32  ,255,0,0,1,192,2
0000B0: 33 38 2C 31 32 36 2C 30 2C 30 2C 30 2C 31 32 37  38,126,0,0,0,127
0000C0: 2C 31 35 39 2C 32 32 30 2C 31 32 30 2C 30 2C 30  ,159,220,120,0,0
0000D0: 2C 30 2C 36 30 2C 31 31 35 2C 32 34 39 2C 32 33  ,0,60,115,249,23
0000E0: 31 2C 31 32 38 2C 30 2C 30 2C 33 31 2C 32 30 37  1,128,0,0,31,207
0000F0: 2C 32 33 39 2C 32 32 37 2C 32 34 39 2C 31 39 32  ,239,227,249,192
000100: 2C 30 2C 30 2C 32 35 34 2C 31 32 37 2C 33 31 2C  ,0,0,254,127,31,
000110: 31 39 39 2C 32 33 31 0D 0A 20 20 20 20 20 20 20  199,231..       
000120: 20 64 62 20 36 33 2C 31 38 34 2C 30 2C 30 2C 30   db 63,184,0,0,0
000130: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000140: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000150: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000160: 2C 30 2C 30 2C 37 2C 30 2C 36 2C 30 2C 31 2C 31  ,0,0,7,0,6,0,1,1
000170: 36 31 2C 32 33 36 2C 30 2C 30 0D 0A 20 20 20 20  61,236,0,0..    
000180: 20 20 20 20 64 62 20 32 32 34 2C 30 2C 30 2C 34      db 224,0,0,4
000190: 38 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  8,0,0,0,0,0,0,0,
0001A0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001B0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001C0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001D0: 30 2C 30 2C 30 2C 30 2C 30 0D 0A 20 20 20 20 20  0,0,0,0,0..     
0001E0: 20 20 20 64 62 20 30 2C 30 2C 30 2C 30 2C 30 2C     db 0,0,0,0,0,
0001F0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,

Size : 512 (Real : 512)
000000: 6C 64 20 28 68 6C 29 2C 63 20 20 3A 20 61 64 64  ld (hl),c  : add
000010: 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C   hl,de: ld (hl),
000020: 63 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A  c  : add hl,de..
000030: 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C          ld (hl),
000040: 26 35 35 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20  &55: add hl,de: 
000050: 6C 64 20 28 68 6C 29 2C 26 35 35 3A 20 61 64 64  ld (hl),&55: add
000060: 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20   hl,de..        
000070: 6C 64 20 28 68 6C 29 2C 61 20 20 3A 20 61 64 64  ld (hl),a  : add
000080: 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C   hl,de: ld (hl),
000090: 26 35 34 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A  &54: add hl,de..
0000A0: 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C          ld (hl),
0000B0: 61 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20  a  : add hl,de: 
0000C0: 6C 64 20 28 68 6C 29 2C 26 35 36 3A 20 61 64 64  ld (hl),&56: add
0000D0: 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20   hl,de..        
0000E0: 6C 64 20 28 68 6C 29 2C 26 35 32 3A 20 61 64 64  ld (hl),&52: add
0000F0: 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C   hl,de: ld (hl),
000100: 26 35 38 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A  &58: add hl,de..
000110: 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C          ld (hl),
000120: 26 35 31 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20  &51: add hl,de: 
000130: 6C 64 20 28 68 6C 29 2C 26 34 42 3A 20 61 64 64  ld (hl),&4B: add
000140: 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20   hl,de..        
000150: 6C 64 20 28 68 6C 29 2C 26 34 42 3A 20 61 64 64  ld (hl),&4B: add
000160: 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C   hl,de: ld (hl),
000170: 26 35 31 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A  &51: add hl,de..
000180: 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C          ld (hl),
000190: 26 35 38 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20  &58: add hl,de: 
0001A0: 6C 64 20 28 68 6C 29 2C 26 35 32 3A 20 61 64 64  ld (hl),&52: add
0001B0: 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20   hl,de..        
0001C0: 6C 64 20 28 68 6C 29 2C 26 35 36 3A 20 61 64 64  ld (hl),&56: add
0001D0: 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C   hl,de: ld (hl),
0001E0: 61 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A  a  : add hl,de..
0001F0: 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C          ld (hl),

Size : 512 (Real : 512)
000000: 6F 70 0D 0A 2E 73 74 61 67 65 32 20 20 6C 64 20  op...stage2  ld 
000010: 69 78 2C 66 69 6E 61 6C 32 2B 31 36 3A 20 6C 64  ix,final2+16: ld
000020: 20 62 2C 35 3A 20 6C 64 20 69 79 2C 72 67 72 65   b,5: ld iy,rgre
000030: 65 6E 3A 20 6A 72 20 72 6D 6C 6F 6F 70 0D 0A 2E  en: jr rmloop...
000040: 73 74 61 67 65 33 20 20 6C 64 20 69 78 2C 66 69  stage3  ld ix,fi
000050: 6E 61 6C 33 2B 32 30 3A 20 6C 64 20 62 2C 36 3A  nal3+20: ld b,6:
000060: 20 6C 64 20 69 79 2C 72 62 6C 75 65 20 3A 20 6A   ld iy,rblue : j
000070: 72 20 72 6D 6C 6F 6F 70 0D 0A 2E 73 74 61 67 65  r rmloop...stage
000080: 34 20 20 6C 64 20 69 78 2C 66 69 6E 61 6C 34 2B  4  ld ix,final4+
000090: 32 30 3A 20 6C 64 20 62 2C 36 3A 20 6C 64 20 69  20: ld b,6: ld i
0000A0: 79 2C 72 72 65 64 0D 0A 0D 0A 2E 72 6D 6C 6F 6F  y,rred.....rmloo
0000B0: 70 20 20 6C 64 20 6C 2C 28 69 78 2B 32 29 3A 20  p  ld l,(ix+2): 
0000C0: 6C 64 20 68 2C 28 69 78 2B 33 29 20 20 3B 47 65  ld h,(ix+3)  ;Ge
0000D0: 74 20 61 64 64 72 65 73 73 20 69 6E 20 74 61 62  t address in tab
0000E0: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 6C 64 20  le..         ld 
0000F0: 65 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 3A 20  e,(hl): inc hl: 
000100: 6C 64 20 61 2C 65 20 3B 43 6F 6E 76 65 72 74 20  ld a,e ;Convert 
000110: 69 6E 74 6F 20 73 69 6E 65 20 70 6F 73 69 74 69  into sine positi
000120: 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 6C 64 20  on..         ld 
000130: 64 2C 28 68 6C 29 3A 20 69 6E 63 20 68 6C 3A 20  d,(hl): inc hl: 
000140: 6F 72 20 64 3A 20 6A 70 20 7A 2C 64 6F 6E 74 69  or d: jp z,donti
000150: 6E 0D 0A 20 20 20 20 20 20 20 20 20 6C 64 20 28  n..         ld (
000160: 69 78 2B 32 29 2C 6C 3A 20 6C 64 20 28 69 78 2B  ix+2),l: ld (ix+
000170: 33 29 2C 68 20 20 3B 53 74 6F 72 65 20 6E 65 77  3),h  ;Store new
000180: 20 61 64 64 72 65 73 73 20 69 66 20 6E 6F 74 20   address if not 
000190: 30 0D 0A 0D 0A 2E 64 6F 6E 74 69 6E 20 20 6C 64  0.....dontin  ld
0001A0: 20 61 2C 64 3A 20 63 70 20 34 3A 20 6A 72 20 7A   a,d: cp 4: jr z
0001B0: 2C 64 6F 6E 74 64 72 0D 0A 20 20 20 20 20 20 20  ,dontdr..       
0001C0: 20 20 6C 64 20 6C 2C 28 69 78 2B 30 29 3A 20 6C    ld l,(ix+0): l
0001D0: 64 20 68 2C 28 69 78 2B 31 29 20 20 3B 47 65 74  d h,(ix+1)  ;Get
0001E0: 20 62 61 73 65 20 61 64 64 72 65 73 73 20 61 6E   base address an
0001F0: 64 20 73 75 62 74 72 61 63 74 20 0D 0A 20 20 20  d subtract ..

Size : 512 (Real : 512)
000000: 26 35 34 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20  &54: add hl,de: 
000010: 6C 64 20 28 68 6C 29 2C 61 20 20 3A 20 72 65 74  ld (hl),a  : ret
000020: 0D 0A 0D 0A 2E 72 72 65 64 20 20 20 6C 64 20 64  .....rred   ld d
000030: 65 2C 38 3A 20 6C 64 20 61 2C 26 35 43 3A 20 6C  e,8: ld a,&5C: l
000040: 64 20 63 2C 26 35 35 0D 0A 20 20 20 20 20 20 20  d c,&55..       
000050: 20 6C 64 20 28 68 6C 29 2C 63 20 20 3A 20 61 64   ld (hl),c  : ad
000060: 64 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29  d hl,de: ld (hl)
000070: 2C 63 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 0D  ,c  : add hl,de.
000080: 0A 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29  .        ld (hl)
000090: 2C 63 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 3A  ,c  : add hl,de:
0000A0: 20 6C 64 20 28 68 6C 29 2C 63 20 20 3A 20 61 64   ld (hl),c  : ad
0000B0: 64 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20  d hl,de..       
0000C0: 20 6C 64 20 28 68 6C 29 2C 63 20 20 3A 20 61 64   ld (hl),c  : ad
0000D0: 64 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29  d hl,de: ld (hl)
0000E0: 2C 63 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 0D  ,c  : add hl,de.
0000F0: 0A 2E 72 72 65 64 6E 20 20 6C 64 20 28 68 6C 29  ..rredn  ld (hl)
000100: 2C 61 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 3A  ,a  : add hl,de:
000110: 20 6C 64 20 28 68 6C 29 2C 26 35 34 3A 20 61 64   ld (hl),&54: ad
000120: 64 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20  d hl,de..       
000130: 20 6C 64 20 28 68 6C 29 2C 61 20 20 3A 20 61 64   ld (hl),a  : ad
000140: 64 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29  d hl,de: ld (hl)
000150: 2C 26 34 43 3A 20 61 64 64 20 68 6C 2C 64 65 0D  ,&4C: add hl,de.
000160: 0A 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29  .        ld (hl)
000170: 2C 26 34 45 3A 20 61 64 64 20 68 6C 2C 64 65 3A  ,&4E: add hl,de:
000180: 20 6C 64 20 28 68 6C 29 2C 26 34 41 3A 20 61 64   ld (hl),&4A: ad
000190: 64 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20  d hl,de..       
0001A0: 20 6C 64 20 28 68 6C 29 2C 26 34 39 3A 20 61 64   ld (hl),&49: ad
0001B0: 64 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29  d hl,de: ld (hl)
0001C0: 2C 26 34 42 3A 20 61 64 64 20 68 6C 2C 64 65 0D  ,&4B: add hl,de.
0001D0: 0A 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29  .        ld (hl)
0001E0: 2C 26 34 42 3A 20 61 64 64 20 68 6C 2C 64 65 3A  ,&4B: add hl,de:
0001F0: 20 6C 64 20 28 68 6C 29 2C 26 34 39 3A 20 61 64   ld (hl),&49: ad

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 6F 72 20 61 3A 20 73 62 63 20        or a: sbc 
000010: 68 6C 2C 64 65 3A 20 6A 72 20 63 2C 64 6F 6E 74  hl,de: jr c,dont
000020: 64 72 0D 0A 20 20 20 20 20 20 20 20 20 6C 64 20  dr..         ld 
000030: 64 65 2C 63 6F 6C 73 65 72 3A 20 61 64 64 20 68  de,colser: add h
000040: 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20 20 63  l,de..         c
000050: 61 6C 6C 20 73 75 62 72 20 20 20 20 20 20 20 20  all subr        
000060: 20 20 20 20 20 20 20 20 20 3B 44 72 61 77 20 72           ;Draw r
000070: 61 73 74 65 72 0D 0A 2E 64 6F 6E 74 64 72 20 20  aster...dontdr  
000080: 6C 64 20 64 65 2C 2D 34 3A 20 61 64 64 20 69 78  ld de,-4: add ix
000090: 2C 64 65 0D 0A 20 20 20 20 20 20 20 20 20 64 6A  ,de..         dj
0000A0: 6E 7A 20 72 6D 6C 6F 6F 70 20 20 20 20 20 20 20  nz rmloop       
0000B0: 20 20 20 20 20 20 20 20 3B 41 6E 64 20 72 65 70          ;And rep
0000C0: 65 61 74 20 66 6F 72 20 61 6C 6C 20 6F 66 20 74  eat for all of t
0000D0: 68 65 6D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20  hem....         
0000E0: 6C 64 20 61 2C 28 73 74 61 67 65 29 3A 20 63 70  ld a,(stage): cp
0000F0: 20 32 3A 20 6A 72 20 6E 7A 2C 6E 6F 74 32 20 20   2: jr nz,not2  
000100: 20 20 3B 46 69 78 20 66 6F 72 20 32 2F 33 20 6F    ;Fix for 2/3 o
000110: 76 65 72 6C 61 70 0D 0A 20 20 20 20 20 20 20 20  verlap..        
000120: 20 6C 64 20 64 65 2C 38 3A 20 6C 64 20 61 2C 26   ld de,8: ld a,&
000130: 35 43 3A 20 6C 64 20 63 2C 26 35 35 0D 0A 20 20  5C: ld c,&55..  
000140: 20 20 20 20 20 20 20 6C 64 20 68 6C 2C 63 6F 6C         ld hl,col
000150: 73 65 72 2B 34 38 2B 26 33 38 31 3A 20 63 61 6C  ser+48+&381: cal
000160: 6C 20 72 72 65 64 6E 0D 0A 20 20 20 20 20 20 20  l rredn..       
000170: 20 20 6C 64 20 68 6C 2C 63 6F 6C 73 65 72 2B 34    ld hl,colser+4
000180: 38 2B 26 32 30 31 3A 20 63 61 6C 6C 20 72 72 65  8+&201: call rre
000190: 64 6E 0D 0A 0D 0A 2E 6E 6F 74 32 20 20 20 20 6C  dn.....not2    l
0001A0: 64 20 61 2C 28 74 6F 67 6F 29 3A 20 64 65 63 20  d a,(togo): dec 
0001B0: 61 3A 20 6A 72 20 6E 7A 2C 6F 6C 64 67 6F 0D 0A  a: jr nz,oldgo..
0001C0: 20 20 20 20 20 20 20 20 20 6C 64 20 68 6C 2C 73           ld hl,s
0001D0: 74 61 67 65 3A 20 69 6E 63 20 28 68 6C 29 3A 20  tage: inc (hl): 
0001E0: 6C 64 20 61 2C 31 35 30 0D 0A 2E 6F 6C 64 67 6F  ld a,150...oldgo
0001F0: 20 20 20 6C 64 20 28 74 6F 67 6F 29 2C 61 0D 0A     ld (togo),a..

Size : 512 (Real : 512)
000000: 64 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20  d hl,de..       
000010: 20 6C 64 20 28 68 6C 29 2C 26 34 41 3A 20 61 64   ld (hl),&4A: ad
000020: 64 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29  d hl,de: ld (hl)
000030: 2C 26 34 45 3A 20 61 64 64 20 68 6C 2C 64 65 0D  ,&4E: add hl,de.
000040: 0A 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29  .        ld (hl)
000050: 2C 26 34 43 3A 20 61 64 64 20 68 6C 2C 64 65 3A  ,&4C: add hl,de:
000060: 20 6C 64 20 28 68 6C 29 2C 61 20 20 3A 20 61 64   ld (hl),a  : ad
000070: 64 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20  d hl,de..       
000080: 20 6C 64 20 28 68 6C 29 2C 26 35 34 3A 20 61 64   ld (hl),&54: ad
000090: 64 20 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29  d hl,de: ld (hl)
0000A0: 2C 61 20 20 3A 20 72 65 74 0D 0A 0D 0A 20 20 20  ,a  : ret....   
0000B0: 20 20 20 20 20 3B 2A 2A 2A 20 56 41 52 49 20 20       ;*** VARI  
0000C0: 20 20 20 20 20 20 20 46 69 6E 61 6C 20 70 6F 73         Final pos
0000D0: 69 74 69 6F 6E 20 6F 66 20 72 61 73 74 65 72 73  ition of rasters
0000E0: 0D 0A 0D 0A 2E 66 69 6E 61 6C 31 20 64 77 20 26  .....final1 dw &
0000F0: 32 30 30 2C 73 69 6E 65 65 72 2B 30 20 20 2C 20  200,sineer+0  , 
000100: 26 32 30 31 2C 73 69 6E 65 65 72 2B 30 20 20 0D  &201,sineer+0  .
000110: 0A 20 20 20 20 20 20 20 20 64 77 20 26 32 38 30  .        dw &280
000120: 2C 73 69 6E 65 65 72 2B 33 30 0D 0A 20 20 20 20  ,sineer+30..    
000130: 20 20 20 20 64 77 20 26 33 30 30 2C 73 69 6E 65      dw &300,sine
000140: 65 72 2B 36 30 0D 0A 20 20 20 20 20 20 20 20 64  er+60..        d
000150: 77 20 26 33 38 30 2C 73 69 6E 65 65 72 2B 39 30  w &380,sineer+90
000160: 20 2C 20 26 33 38 31 2C 73 69 6E 65 65 72 2B 39   , &381,sineer+9
000170: 30 0D 0A 0D 0A 2E 66 69 6E 61 6C 32 20 64 77 20  0.....final2 dw 
000180: 26 32 38 31 2C 73 69 6E 65 65 72 2B 33 30 20 2C  &281,sineer+30 ,
000190: 20 26 32 38 32 2C 73 69 6E 65 65 72 2B 33 30 20   &282,sineer+30 
0001A0: 2C 20 26 32 38 33 2C 73 69 6E 65 65 72 2B 33 30  , &283,sineer+30
0001B0: 0D 0A 20 20 20 20 20 20 20 20 64 77 20 26 33 30  ..        dw &30
0001C0: 31 2C 73 69 6E 65 65 72 2B 36 30 0D 0A 20 20 20  1,sineer+60..   
0001D0: 20 20 20 20 20 64 77 20 26 33 38 31 2C 73 69 6E       dw &381,sin
0001E0: 65 65 72 2B 39 30 0D 0A 0D 0A 2E 66 69 6E 61 6C  eer+90.....final
0001F0: 33 20 64 77 20 26 32 30 33 2C 73 69 6E 65 65 72  3 dw &203,sineer

Size : 512 (Real : 512)
000000: 2E 71 75 69 74 69 74 20 70 6F 70 20 64 65 0D 0A  .quitit pop de..
000010: 0D 0A 20 20 20 20 20 20 20 20 3B 4C 6F 6F 70 20  ..        ;Loop 
000020: 61 6E 64 20 72 65 73 65 74 0D 0A 0D 0A 20 20 20  and reset....   
000030: 20 20 20 20 20 64 65 63 20 64 65 3A 20 6C 64 20       dec de: ld 
000040: 61 2C 64 3A 20 6F 72 20 65 3A 20 6A 70 20 6E 7A  a,d: or e: jp nz
000050: 2C 66 66 0D 0A 0D 0A 20 20 20 20 20 20 20 20 64  ,ff....        d
000060: 69 3A 20 6C 64 20 68 6C 2C 28 73 74 33 38 29 3A  i: ld hl,(st38):
000070: 20 6C 64 20 28 26 33 38 29 2C 68 6C 0D 0A 20 20   ld (&38),hl..  
000080: 20 20 20 20 20 20 65 69 3A 20 63 61 6C 6C 20 26        ei: call &
000090: 42 42 30 36 3A 20 72 65 74 0D 0A 0D 0A 20 20 20  BB06: ret....   
0000A0: 20 20 20 20 20 3B 2A 2A 2A 20 53 55 42 52 20 20       ;*** SUBR  
0000B0: 20 20 20 20 20 20 20 43 41 4C 4C 20 49 59 0D 0A         CALL IY..
0000C0: 0D 0A 2E 73 75 62 72 20 20 20 70 75 73 68 20 69  ...subr   push i
0000D0: 79 3A 20 72 65 74 0D 0A 0D 0A 20 20 20 20 20 20  y: ret....      
0000E0: 20 20 3B 2A 2A 2A 20 53 55 42 52 20 20 20 20 20    ;*** SUBR     
0000F0: 20 20 20 20 50 6F 6B 65 20 72 61 73 74 65 72 73      Poke rasters
000100: 20 69 6E 74 6F 20 70 6F 73 69 74 69 6F 6E 0D 0A   into position..
000110: 0D 0A 2E 72 62 6C 75 65 20 20 6C 64 20 64 65 2C  ...rblue  ld de,
000120: 38 3A 20 6C 64 20 61 2C 26 34 34 3A 20 6C 64 20  8: ld a,&44: ld 
000130: 63 2C 26 35 35 0D 0A 20 20 20 20 20 20 20 20 6C  c,&55..        l
000140: 64 20 28 68 6C 29 2C 63 20 20 3A 20 61 64 64 20  d (hl),c  : add 
000150: 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C 63  hl,de: ld (hl),c
000160: 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A 20    : add hl,de.. 
000170: 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C 63         ld (hl),c
000180: 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20 6C    : add hl,de: l
000190: 64 20 28 68 6C 29 2C 63 20 20 3A 20 61 64 64 20  d (hl),c  : add 
0001A0: 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20 6C  hl,de..        l
0001B0: 64 20 28 68 6C 29 2C 26 35 35 3A 20 61 64 64 20  d (hl),&55: add 
0001C0: 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C 26  hl,de: ld (hl),&
0001D0: 35 35 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A 20  55: add hl,de.. 
0001E0: 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C 61         ld (hl),a
0001F0: 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20 6C    : add hl,de: l

Size : 512 (Real : 512)
000000: 2B 30 20 20 2C 20 26 32 30 34 2C 73 69 6E 65 65  +0  , &204,sinee
000010: 72 2B 30 20 20 2C 20 26 32 30 35 2C 73 69 6E 65  r+0  , &205,sine
000020: 65 72 2B 30 20 20 0D 0A 20 20 20 20 20 20 20 20  er+0  ..        
000030: 64 77 20 20 20 20 20 20 20 20 20 20 20 20 20 20  dw              
000040: 20 20 20 20 26 32 38 34 2C 73 69 6E 65 65 72 2B      &284,sineer+
000050: 33 30 0D 0A 20 20 20 20 20 20 20 20 64 77 20 20  30..        dw  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 26 33 30 34 2C 73 69 6E 65 65 72 2B 36 30 0D 0A  &304,sineer+60..
000080: 20 20 20 20 20 20 20 20 64 77 20 20 20 20 20 20          dw      
000090: 20 20 20 20 20 20 20 20 20 20 20 20 26 33 38 34              &384
0000A0: 2C 73 69 6E 65 65 72 2B 39 30 0D 0A 0D 0A 2E 66  ,sineer+90.....f
0000B0: 69 6E 61 6C 34 20 64 77 20 26 32 30 36 2C 73 69  inal4 dw &206,si
0000C0: 6E 65 65 72 2B 30 20 20 2C 20 26 32 30 37 2C 73  neer+0  , &207,s
0000D0: 69 6E 65 65 72 2B 30 20 20 0D 0A 20 20 20 20 20  ineer+0  ..     
0000E0: 20 20 20 64 77 20 26 32 38 36 2C 73 69 6E 65 65     dw &286,sinee
0000F0: 72 2B 33 30 0D 0A 20 20 20 20 20 20 20 20 64 77  r+30..        dw
000100: 20 26 33 30 36 2C 73 69 6E 65 65 72 2B 36 30 0D   &306,sineer+60.
000110: 0A 20 20 20 20 20 20 20 20 64 77 20 26 33 38 36  .        dw &386
000120: 2C 73 69 6E 65 65 72 2B 39 30 20 2C 20 26 33 38  ,sineer+90 , &38
000130: 37 2C 73 69 6E 65 65 72 2B 39 30 0D 0A 0D 0A 20  7,sineer+90.... 
000140: 20 20 20 20 20 20 20 3B 2A 2A 2A 20 56 41 52 49         ;*** VARI
000150: 20 20 20 20 20 20 20 20 20 43 6F 6C 6F 75 72 73           Colours
000160: 20 66 6F 72 20 72 61 73 74 65 72 73 0D 0A 0D 0A   for rasters....
000170: 20 20 20 20 20 20 20 20 64 73 20 31 32 38 0D 0A          ds 128..
000180: 2E 63 6F 6C 73 65 72 20 64 73 20 34 38 0D 0A 2E  .colser ds 48...
000190: 63 6F 6C 73 70 63 20 64 73 20 31 30 32 34 2C 26  colspc ds 1024,&
0001A0: 35 35 0D 0A 0D 0A 20 20 20 20 20 20 20 20 3B 2A  55....        ;*
0001B0: 2A 2A 20 44 41 54 41 20 20 20 20 20 20 20 20 20  ** DATA         
0001C0: 4D 61 63 69 6E 74 6F 73 68 20 73 70 72 69 74 65  Macintosh sprite
0001D0: 0D 0A 0D 0A 2E 6D 61 63 73 70 72 20 64 62 20 32  .....macspr db 2
0001E0: 35 35 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  55,0,0,0,0,0,0,0
0001F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0

Size : 512 (Real : 512)
000000: 64 20 28 68 6C 29 2C 26 35 34 3A 20 61 64 64 20  d (hl),&54: add 
000010: 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20 6C  hl,de..        l
000020: 64 20 28 68 6C 29 2C 61 20 20 3A 20 61 64 64 20  d (hl),a  : add 
000030: 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C 26  hl,de: ld (hl),&
000040: 35 35 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A 20  55: add hl,de.. 
000050: 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C 26         ld (hl),&
000060: 35 37 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20 6C  57: add hl,de: l
000070: 64 20 28 68 6C 29 2C 26 35 33 3A 20 61 64 64 20  d (hl),&53: add 
000080: 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20 6C  hl,de..        l
000090: 64 20 28 68 6C 29 2C 26 35 33 3A 20 61 64 64 20  d (hl),&53: add 
0000A0: 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C 26  hl,de: ld (hl),&
0000B0: 34 42 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A 20  4B: add hl,de.. 
0000C0: 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C 26         ld (hl),&
0000D0: 34 42 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20 6C  4B: add hl,de: l
0000E0: 64 20 28 68 6C 29 2C 26 35 33 3A 20 61 64 64 20  d (hl),&53: add 
0000F0: 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20 6C  hl,de..        l
000100: 64 20 28 68 6C 29 2C 26 35 33 3A 20 61 64 64 20  d (hl),&53: add 
000110: 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C 26  hl,de: ld (hl),&
000120: 35 37 3A 20 61 64 64 20 68 6C 2C 64 65 0D 0A 20  57: add hl,de.. 
000130: 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C 26         ld (hl),&
000140: 35 35 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20 6C  55: add hl,de: l
000150: 64 20 28 68 6C 29 2C 61 20 20 3A 20 61 64 64 20  d (hl),a  : add 
000160: 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20 6C  hl,de..        l
000170: 64 20 28 68 6C 29 2C 26 35 34 3A 20 61 64 64 20  d (hl),&54: add 
000180: 68 6C 2C 64 65 3A 20 6C 64 20 28 68 6C 29 2C 61  hl,de: ld (hl),a
000190: 20 20 3A 20 72 65 74 0D 0A 0D 0A 2E 72 67 72 65    : ret.....rgre
0001A0: 65 6E 20 6C 64 20 64 65 2C 38 3A 20 6C 64 20 61  en ld de,8: ld a
0001B0: 2C 26 34 30 3A 20 6C 64 20 63 2C 26 35 35 0D 0A  ,&40: ld c,&55..
0001C0: 20 20 20 20 20 20 20 20 6C 64 20 28 68 6C 29 2C          ld (hl),
0001D0: 63 20 20 3A 20 61 64 64 20 68 6C 2C 64 65 3A 20  c  : add hl,de: 
0001E0: 6C 64 20 28 68 6C 29 2C 63 20 20 3A 20 61 64 64  ld (hl),c  : add
0001F0: 20 68 6C 2C 64 65 0D 0A 20 20 20 20 20 20 20 20   hl,de..

Size : 512 (Real : 512)
000000: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000010: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000020: 2C 30 0D 0A 20 20 20 20 20 20 20 20 64 62 20 30  ,0..        db 0
000030: 2C 30 2C 37 2C 32 35 35 2C 30 2C 30 2C 31 2C 31  ,0,7,255,0,0,1,1
000040: 39 32 2C 32 33 38 2C 31 32 36 2C 30 2C 30 2C 30  92,238,126,0,0,0
000050: 2C 31 31 32 2C 33 31 2C 32 32 31 2C 32 34 30 2C  ,112,31,221,240,
000060: 30 2C 30 2C 30 2C 32 33 31 2C 31 31 35 2C 32 34  0,0,0,231,115,24
000070: 39 2C 31 39 35 2C 31 32 38 2C 30 2C 30 2C 32 38  9,195,128,0,0,28
000080: 2C 31 35 2C 32 30 37 2C 32 32 37 2C 32 34 39 2C  ,15,207,227,249,
000090: 31 39 32 2C 30 2C 31 2C 31 39 32 2C 31 32 37 2C  192,0,1,192,127,
0000A0: 33 31 2C 31 39 39 2C 32 33 31 0D 0A 20 20 20 20  31,199,231..    
0000B0: 20 20 20 20 64 62 20 36 33 2C 35 36 2C 30 2C 30      db 63,56,0,0
0000C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000E0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000F0: 2C 30 2C 30 2C 30 2C 31 32 2C 34 38 2C 31 39 35  ,0,0,0,12,48,195
000100: 2C 30 2C 31 2C 31 37 30 2C 31 37 32 2C 30 2C 31  ,0,1,170,172,0,1
000110: 0D 0A 20 20 20 20 20 20 20 20 64 62 20 32 35 35  ..        db 255
000120: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000130: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000140: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000150: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000160: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000170: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000180: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000190: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
0001A0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
0001B0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 0D 0A 20 20  ,255,255,255..  
0001C0: 20 20 20 20 20 20 64 62 20 32 35 35 2C 32 35 35        db 255,255
0001D0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
0001E0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
0001F0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255

Size : 512 (Real : 512)
000000: 6C 63 6F 6D 65 20 74 6F 20 0D 8A 63 6F 70 79 20  lcome to ..copy 
000010: 69 74 20 6F 6E 20 61 6E 20 69 6E 64 69 76 69 64  it on an individ
000020: 75 61 6C 20 62 61 73 69 73 2C 20 79 6F 75 20 73  ual basis, you s
000030: 68 6F 75 6C 64 20 63 6F 70 79 20 74 68 65 20 77  hould copy the w
000040: 68 6F 6C 65 20 64 69 73 63 20 72 61 74 68 65 72  hole disc rather
000050: 20 0D 8A 74 68 61 6E 20 6A 75 73 74 20 69 6E 64   ..than just ind
000060: 69 76 69 64 75 61 6C 20 66 69 6C 65 73 2E 0D 0A  ividual files...
000070: 0D 0A 48 61 70 70 79 20 68 61 63 6B 69 6E 67 21  ..Happy hacking!
000080: 0D 0A 0D 0A 52 69 63 68 61 72 64 20 46 61 69 72  ....Richard Fair
000090: 68 75 72 73 74 0D 0A 4F 63 74 6F 62 65 72 20 31  hurst..October 1
0000A0: 39 39 37 0D 0A 0D 0A 43 52 54 43 2F 53 79 73 74  997....CRTC/Syst
0000B0: 65 6D 65 20 44 2C 20 54 65 61 20 43 6F 74 74 61  eme D, Tea Cotta
0000C0: 67 65 2C 20 42 6F 74 74 6F 6D 20 4C 61 6E 65 2C  ge, Bottom Lane,
0000D0: 20 42 69 73 62 72 6F 6F 6B 65 2C 20 52 75 74 6C   Bisbrooke, Rutl
0000E0: 61 6E 64 20 4C 45 31 35 20 39 45 4A 0D 0A 0D 0A  and LE15 9EJ....
0000F0: 0D 0A 0D 0A 53 6F 75 72 63 65 20 63 6F 64 65 20  ....Source code 
000100: 66 69 6C 65 73 20 6F 6E 20 73 69 64 65 20 41 0D  files on side A.
000110: 0A 0D 0A 49 4D 41 47 45 20 20 20 2E 53 52 43 09  ...IMAGE   .SRC.
000120: 49 6D 61 67 65 50 72 69 6E 74 20 2D 20 70 72 69  ImagePrint - pri
000130: 6E 74 65 72 20 6F 75 74 70 75 74 20 65 6E 68 61  nter output enha
000140: 6E 63 65 72 0D 0A 4D 41 43 42 55 47 53 20 2E 53  ncer..MACBUGS .S
000150: 52 43 09 4D 61 63 42 75 67 73 20 2D 20 6D 65 65  RC.MacBugs - mee
000160: 74 69 6E 67 20 64 65 6D 6F 0D 0A 4F 52 47 41 4E  ting demo..ORGAN
000170: 49 53 45 2E 53 52 43 09 44 65 73 6B 74 6F 70 20  ISE.SRC.Desktop 
000180: 4F 72 67 61 6E 69 73 65 20 2D 20 64 69 73 63 20  Organise - disc 
000190: 63 61 74 61 6C 6F 67 75 69 6E 67 20 73 79 73 74  cataloguing syst
0001A0: 65 6D 20 66 6F 72 20 44 45 53 0D 0A 50 4C 55 53  em for DES..PLUS
0001B0: 38 42 49 54 2E 53 52 43 09 50 61 74 63 68 20 74  8BIT.SRC.Patch t
0001C0: 6F 20 65 6E 61 62 6C 65 20 43 50 43 20 50 6C 75  o enable CPC Plu
0001D0: 73 20 38 2D 62 69 74 20 70 72 69 6E 74 65 72 20  s 8-bit printer 
0001E0: 70 6F 72 74 0D 0A 53 44 4F 53 31 20 20 20 2E 53  port..SDOS1   .S
0001F0: 52 43 09 53 2D 44 4F 53 20 76 31 20 2D 20 73 69  RC.S-DOS v1 - si

Size : 512 (Real : 512)
000000: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000010: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000020: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000030: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000040: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000050: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35  ,255,255,255,255
000060: 2C 32 35 35 2C 32 35 35 0D 0A 20 20 20 20 20 20  ,255,255..      
000070: 20 20 64 62 20 30 2C 30 2C 31 35 2C 32 35 32 2C    db 0,0,15,252,
000080: 30 2C 30 2C 31 2C 32 34 38 2C 32 33 38 2C 32 33  0,0,1,248,238,23
000090: 31 2C 30 2C 30 2C 30 2C 31 32 36 2C 35 37 2C 32  1,0,0,0,126,57,2
0000A0: 32 30 2C 32 32 34 2C 30 2C 30 2C 30 2C 32 33 31  20,224,0,0,0,231
0000B0: 2C 31 31 39 2C 32 39 2C 31 39 35 2C 31 32 38 2C  ,119,29,195,128,
0000C0: 30 2C 30 2C 32 38 2C 30 2C 32 33 38 2C 31 31 39  0,0,28,0,238,119
0000D0: 2C 32 39 2C 31 39 32 2C 30 2C 30 2C 32 35 34 2C  ,29,192,0,0,254,
0000E0: 31 31 35 2C 31 38 34 2C 32 33 38 2C 31 31 39 0D  115,184,238,119.
0000F0: 0A 20 20 20 20 20 20 20 20 64 62 20 33 2C 31 38  .        db 3,18
000100: 34 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  4,0,0,0,0,0,0,0,
000110: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000120: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000130: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 32 2C 37  0,0,0,0,0,0,12,7
000140: 2C 31 33 31 2C 30 2C 31 2C 31 34 39 2C 37 36 2C  ,131,0,1,149,76,
000150: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 64 62 20  0,0..        db 
000160: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000170: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000180: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000190: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001A0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D  0,0,0,0,0,0,0,0.
0001B0: 0A 20 20 20 20 20 20 20 20 64 62 20 30 2C 30 2C  .        db 0,0,
0001C0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001D0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001E0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001F0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,

Size : 512 (Real : 512)
000000: 6D 70 6C 65 20 44 4F 53 20 28 63 6F 2D 77 72 69  mple DOS (co-wri
000010: 74 74 65 6E 20 62 79 20 52 6F 62 20 53 63 6F 74  tten by Rob Scot
000020: 74 29 0D 0A 53 50 45 4C 4C 20 20 20 2E 53 52 43  t)..SPELL   .SRC
000030: 09 50 6F 77 65 72 53 70 65 6C 6C 20 2D 20 75 73  .PowerSpell - us
000040: 65 72 2D 66 72 69 65 6E 64 6C 79 20 73 70 65 6C  er-friendly spel
000050: 6C 2D 63 68 65 63 6B 65 72 0D 0A 54 41 4D 53 49  l-checker..TAMSI
000060: 4E 20 20 2E 53 52 43 09 42 54 4C 20 33 20 69 6E  N  .SRC.BTL 3 in
000070: 74 72 6F 20 2D 20 74 68 65 20 6F 6E 65 20 77 69  tro - the one wi
000080: 74 68 20 54 61 6D 73 69 6E 20 74 68 65 20 57 6F  th Tamsin the Wo
000090: 6E 64 65 72 20 43 61 74 0D 0A 54 45 58 54 52 45  nder Cat..TEXTRE
0000A0: 41 44 2E 53 52 43 09 45 75 72 6F 57 41 43 43 49  AD.SRC.EuroWACCI
0000B0: 20 74 65 78 74 20 72 65 61 64 65 72 20 28 73 65   text reader (se
0000C0: 65 20 2E 44 4F 43 20 66 69 6C 65 29 0D 0A 54 4F  e .DOC file)..TO
0000D0: 4F 4C 4B 49 54 20 2E 53 52 43 09 41 41 20 54 6F  OLKIT .SRC.AA To
0000E0: 6F 6C 6B 69 74 20 2D 20 63 6F 6C 6C 65 63 74 69  olkit - collecti
0000F0: 6F 6E 20 6F 66 20 52 53 58 73 0D 0A 0D 0A 53 6F  on of RSXs....So
000100: 75 72 63 65 20 63 6F 64 65 20 66 69 6C 65 73 20  urce code files 
000110: 6F 6E 20 73 69 64 65 20 42 2C 20 75 73 65 72 20  on side B, user 
000120: 61 72 65 61 20 31 0D 0A 0D 0A 50 52 4F 2D 45 58  area 1....PRO-EX
000130: 54 20 2E 53 52 43 09 50 72 6F 2D 45 78 74 20 76  T .SRC.Pro-Ext v
000140: 31 2E 35 20 20 20 20 20 20 20 20 2D 20 6D 61 69  1.5        - mai
000150: 6E 20 70 72 6F 67 72 61 6D 0D 0A 45 44 49 54 20  n program..EDIT 
000160: 20 20 20 2E 53 52 43 09 09 09 20 20 20 20 20 20     .SRC...      
000170: 66 6F 6E 74 20 65 64 69 74 6F 72 20 52 53 58 73  font editor RSXs
000180: 0D 0A 47 52 41 50 48 49 43 53 2E 53 52 43 09 09  ..GRAPHICS.SRC..
000190: 09 20 20 20 20 20 20 67 72 61 70 68 69 63 20 63  .      graphic c
0001A0: 6F 6E 76 65 72 73 69 6F 6E 20 52 53 58 73 0D 0A  onversion RSXs..
0001B0: 0D 0A 43 4F 4D 4D 53 20 20 20 2E 53 52 43 09 43  ..COMMS   .SRC.C
0001C0: 68 61 72 6C 65 79 27 73 20 43 6F 6D 6D 73 20 52  harley's Comms R
0001D0: 4F 4D 20 2D 20 6D 61 69 6E 20 70 72 6F 67 72 61  OM - main progra
0001E0: 6D 0D 0A 42 42 53 20 20 20 20 20 2E 4D 4F 44 09  m..BBS     .MOD.
0001F0: 09 09 20 20 20 20 20 20 62 75 6C 6C 65 74 69 6E  ..      bulletin

Size : 512 (Real : 512)
000000: 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 20 20 20  0,0,0,0,0,0..   
000010: 20 20 20 20 20 64 62 20 30 2C 30 2C 31 35 2C 32       db 0,0,15,2
000020: 35 32 2C 30 2C 30 2C 31 2C 31 39 32 2C 32 33 38  52,0,0,1,192,238
000030: 2C 32 35 35 2C 30 2C 30 2C 30 2C 31 31 32 2C 35  ,255,0,0,0,112,5
000040: 37 2C 32 32 30 2C 32 32 34 2C 30 2C 30 2C 30 2C  7,220,224,0,0,0,
000050: 32 33 31 2C 31 31 39 2C 32 35 33 2C 32 31 39 2C  231,119,253,219,
000060: 31 32 38 2C 30 2C 30 2C 32 38 2C 31 35 2C 32 33  128,0,0,28,15,23
000070: 38 2C 31 31 39 2C 32 35 33 2C 31 39 32 2C 30 2C  8,119,253,192,0,
000080: 30 2C 37 2C 31 31 35 2C 31 39 31 2C 32 33 38 2C  0,7,115,191,238,
000090: 37 0D 0A 20 20 20 20 20 20 20 20 64 62 20 36 33  7..        db 63
0000A0: 2C 31 38 34 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,184,0,0,0,0,0,0
0000B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31  ,0,0,0,0,0,0,0,1
0000E0: 32 2C 30 2C 33 2C 30 2C 31 2C 31 37 30 2C 31 37  2,0,3,0,1,170,17
0000F0: 32 2C 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 64  2,0,0..        d
000100: 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  b 0,0,0,0,0,0,0,
000110: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000120: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000130: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000140: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000150: 30 0D 0A 20 20 20 20 20 20 20 20 64 62 20 30 2C  0..        db 0,
000160: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000170: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000180: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000190: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001A0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 20  0,0,0,0,0,0,0.. 
0001B0: 20 20 20 20 20 20 20 64 62 20 30 2C 30 2C 31 35         db 0,0,15
0001C0: 2C 32 35 35 2C 30 2C 30 2C 31 2C 31 39 32 2C 32  ,255,0,0,1,192,2
0001D0: 33 38 2C 32 32 34 2C 30 2C 30 2C 30 2C 31 31 32  38,224,0,0,0,112
0001E0: 2C 35 37 2C 32 32 30 2C 32 32 34 2C 30 2C 30 2C  ,57,220,224,0,0,
0001F0: 30 2C 31 32 36 2C 31 31 39 2C 31 2C 32 35 35 2C  0,126,119,1,255,

Size : 512 (Real : 512)
000000: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000010: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000020: 30 2C 30 2C 31 2C 32 35 35 2C 32 34 38 2C 30 2C  0,0,1,255,248,0,
000030: 31 2C 32 35 35 2C 32 35 32 2C 30 2C 33 31 0D 0A  1,255,252,0,31..
000040: 20 20 20 20 20 20 20 20 64 62 20 30 2C 30 2C 31          db 0,0,1
000050: 2C 32 30 34 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,204,0,0,0,0,0,0
000060: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000070: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000080: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000090: 2C 30 2C 30 2C 31 31 32 2C 30 2C 30 2C 30 0D 0A  ,0,0,112,0,0,0..
0000A0: 20 20 20 20 20 20 20 20 64 62 20 30 2C 30 2C 30          db 0,0,0
0000B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000E0: 2C 30 2C 30 2C 30 2C 30 2C 31 2C 32 35 30 2C 32  ,0,0,0,0,1,250,2
0000F0: 35 32 2C 30 2C 31 2C 31 32 38 2C 31 32 2C 30 2C  52,0,1,128,12,0,
000100: 30 0D 0A 20 20 20 20 20 20 20 20 64 62 20 31 32  0..        db 12
000110: 38 2C 30 2C 30 2C 39 36 2C 30 2C 30 2C 31 2C 32  8,0,0,96,0,0,1,2
000120: 35 34 2C 32 33 38 2C 30 2C 30 2C 30 2C 30 2C 31  54,238,0,0,0,0,1
000130: 32 37 2C 31 32 39 2C 32 32 30 2C 32 32 34 2C 30  27,129,220,224,0
000140: 2C 30 2C 30 2C 32 33 31 2C 31 31 32 2C 30 2C 30  ,0,0,231,112,0,0
000150: 2C 30 2C 30 2C 30 2C 32 38 2C 30 2C 31 34 2C 30  ,0,0,0,28,0,14,0
000160: 2C 31 2C 31 39 32 2C 30 2C 30 2C 32 35 34 2C 30  ,1,192,0,0,254,0
000170: 2C 30 2C 30 2C 37 0D 0A 20 20 20 20 20 20 20 20  ,0,0,7..        
000180: 64 62 20 30 2C 35 36 2C 30 2C 30 2C 30 2C 30 2C  db 0,56,0,0,0,0,
000190: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001A0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001B0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
0001C0: 30 2C 37 2C 30 2C 31 34 2C 30 2C 31 2C 31 32 38  0,7,0,14,0,1,128
0001D0: 2C 31 32 2C 30 2C 37 0D 0A 20 20 20 20 20 20 20  ,12,0,7..       
0001E0: 20 64 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C   db 0,0,0,0,0,0,
0001F0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,

Size : 512 (Real : 512)
000000: 31 32 38 2C 30 2C 30 2C 32 38 2C 32 38 2C 32 33  128,0,0,28,28,23
000010: 38 2C 31 31 39 2C 31 2C 31 39 32 2C 30 2C 30 2C  8,119,1,192,0,0,
000020: 37 2C 31 31 35 2C 31 38 34 2C 31 34 2C 31 31 39  7,115,184,14,119
000030: 0D 0A 20 20 20 20 20 20 20 20 64 62 20 31 31 35  ..        db 115
000040: 2C 31 38 34 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,184,0,0,0,0,0,0
000050: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000060: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000070: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31  ,0,0,0,0,0,0,0,1
000080: 32 2C 36 2C 33 2C 30 2C 31 2C 31 32 38 2C 31 32  2,6,3,0,1,128,12
000090: 2C 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 64 62  ,0,0..        db
0000A0: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30   0,0,0,0,0,0,0,0
0000B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000E0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0000F0: 0D 0A 20 20 20 20 20 20 20 20 64 62 20 30 2C 30  ..        db 0,0
000100: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000110: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000120: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000130: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000140: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 0D 0A  ,0,0,0,0,0,0....
000150: 20 20 20 20 20 20 20 20 3B 2A 2A 2A 20 44 41 54          ;*** DAT
000160: 41 20 20 20 20 20 20 20 20 20 53 69 6E 65 20 6D  A         Sine m
000170: 6F 74 69 6F 6E 0D 0A 0D 0A 2E 73 69 6E 65 65 72  otion.....sineer
000180: 20 64 73 20 31 34 34 2C 34 0D 0A 2E 73 69 6E 65   ds 144,4...sine
000190: 74 62 20 64 77 20 31 30 30 30 2C 31 30 30 30 2C  tb dw 1000,1000,
0001A0: 31 30 30 30 2C 31 30 30 30 2C 39 39 32 2C 39 39  1000,1000,992,99
0001B0: 32 2C 39 38 34 2C 39 37 36 2C 39 36 38 2C 39 35  2,984,976,968,95
0001C0: 32 2C 39 34 34 2C 39 32 38 2C 39 32 30 2C 39 30  2,944,928,920,90
0001D0: 34 2C 38 38 38 2C 38 37 32 0D 0A 20 20 20 20 20  4,888,872..     
0001E0: 20 20 20 64 77 20 38 34 38 2C 38 33 32 2C 38 30     dw 848,832,80
0001F0: 38 2C 37 39 32 2C 37 36 38 2C 37 34 34 2C 37 32  8,792,768,744,72

Size : 512 (Real : 512)
000000: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000010: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000020: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 31 32 2C  0,0,0,0,0,0,112,
000030: 30 2C 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 64  0,0,0..        d
000040: 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  b 0,0,0,0,0,0,0,
000050: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000060: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000070: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000080: 30 2C 37 2C 30 2C 30 2C 30 2C 31 32 37 2C 32 34  0,7,0,0,0,127,24
000090: 30 2C 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 64  0,0,0..        d
0000A0: 62 20 31 32 38 2C 30 2C 33 2C 31 34 32 2C 30 2C  b 128,0,3,142,0,
0000B0: 30 2C 31 2C 31 39 32 2C 31 34 2C 30 2C 30 2C 30  0,1,192,14,0,0,0
0000C0: 2C 30 2C 31 31 32 2C 31 2C 31 39 32 2C 32 32 34  ,0,112,1,192,224
0000D0: 2C 30 2C 30 2C 30 2C 32 33 31 2C 30 2C 30 2C 30  ,0,0,0,231,0,0,0
0000E0: 2C 30 2C 30 2C 30 2C 32 38 2C 30 2C 31 34 2C 30  ,0,0,0,28,0,14,0
0000F0: 2C 31 2C 31 39 32 2C 30 2C 31 2C 31 39 32 2C 30  ,1,192,0,1,192,0
000100: 2C 30 2C 30 2C 30 0D 0A 20 20 20 20 20 20 20 20  ,0,0,0..        
000110: 64 62 20 30 2C 35 36 2C 30 2C 30 2C 30 2C 30 2C  db 0,56,0,0,0,0,
000120: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000130: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000140: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C  0,0,0,0,0,0,0,0,
000150: 30 2C 31 32 2C 33 31 2C 31 33 31 2C 30 2C 31 2C  0,12,31,131,0,1,
000160: 31 34 39 2C 37 36 2C 30 2C 31 0D 0A 20 20 20 20  149,76,0,1..    
000170: 20 20 20 20 64 62 20 30 2C 30 2C 30 2C 30 2C 30      db 0,0,0,0,0
000180: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
000190: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001A0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001C0: 2C 30 2C 30 2C 30 0D 0A 20 20 20 20 20 20 20 20  ,0,0,0..        
0001D0: 64 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  db 0,0,0,0,0,0,0
0001E0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0
0001F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30  ,0,0,0,0,0,0,0,0

Size : 512 (Real : 512)
000000: 30 2C 36 39 36 2C 36 37 32 2C 36 34 30 2C 36 31  0,696,672,640,61
000010: 36 2C 35 39 32 2C 35 36 30 2C 35 32 38 2C 35 30  6,592,560,528,50
000020: 34 2C 34 37 32 2C 34 34 30 0D 0A 20 20 20 20 20  4,472,440..     
000030: 20 20 20 64 77 20 34 30 38 2C 33 37 36 2C 33 34     dw 408,376,34
000040: 34 2C 33 30 34 2C 32 37 32 2C 32 34 30 2C 32 30  4,304,272,240,20
000050: 38 2C 31 36 38 2C 31 33 36 2C 31 30 34 2C 36 34  8,168,136,104,64
000060: 2C 33 32 2C 30 2C 30 0D 0A 0D 0A 20 20 20 20 20  ,32,0,0....     
000070: 20 20 20 3B 2A 2A 2A 20 56 41 52 49 20 20 20 20     ;*** VARI    
000080: 20 20 20 20 20 4D 69 73 63 65 6C 6C 61 6E 65 6F       Miscellaneo
000090: 75 73 0D 0A 0D 0A 2E 73 74 61 67 65 20 20 64 62  us.....stage  db
0000A0: 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20   1              
0000B0: 3B 4C 65 74 74 65 72 20 28 31 2D 34 29 0D 0A 2E  ;Letter (1-4)...
0000C0: 74 6F 67 6F 20 20 20 64 62 20 31 35 30 20 20 20  togo   db 150   
0000D0: 20 20 20 20 20 20 20 20 20 3B 4E 75 6D 62 65 72           ;Number
0000E0: 20 6F 66 20 70 6F 73 69 74 69 6F 6E 73 20 74 6F   of positions to
0000F0: 20 67 6F 0D 0A 2E 73 74 33 38 20 20 20 64 77 20   go...st38   dw 
000100: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B  0              ;
000110: 53 74 6F 72 65 20 66 6F 72 20 52 53 54 20 33 38  Store for RST 38
000120: 0D 0A 1A 31 39 39 35 20 43 52 54 43 2F 53 79 73  ...1995 CRTC/Sys
000130: 74 65 6D 65 20 44 0D 0A 0D 0A 6F 72 67 20 26 35  teme D....org &5
000140: 30 30 30 0D 0A 6E 6F 6C 69 73 74 0D 0A 6C 69 6D  000..nolist..lim
000150: 69 74 20 26 36 37 30 30 0D 0A 0D 0A 20 20 20 20  it &6700....    
000160: 20 20 20 20 3B 53 63 72 65 65 6E 20 73 65 74 75      ;Screen setu
000170: 70 0D 0A 0D 0A 20 20 20 20 20 20 20 20 6C 64 20  p....        ld 
000180: 20 64 73 20 31 34 34 2C 34 0D 0A 2E 73 69 6E 65   ds 144,4...sine
000190: 74 62 20 64 77 20 31 30 30 30 2C 31 30 30 30 2C  tb dw 1000,1000,
0001A0: 31 30 30 30 2C 31 30 30 30 2C 39 39 32 2C 39 39  1000,1000,992,99
0001B0: 32 2C 39 38 34 2C 39 37 36 2C 39 36 38 2C 39 35  2,984,976,968,95
0001C0: 32 2C 39 34 34 2C 39 32 38 2C 39 32 30 2C 39 30  2,944,928,920,90
0001D0: 34 2C 38 38 38 2C 38 37 32 0D 0A 20 20 20 20 20  4,888,872..     
0001E0: 20 20 20 64 77 20 38 34 38 2C 38 33 32 2C 38 30     dw 848,832,80
0001F0: 38 2C 37 39 32 2C 37 36 38 2C 37 34 34 2C 37 32  8,792,768,744,72

Size : 512 (Real : 512)
000000: 20 6E 7A 2C 6E 65 77 63 6F 6B 0D 0A 09 6C 64 20   nz,newcok...ld 
000010: 68 6C 2C 74 65 78 74 3A 20 6C 64 20 61 2C 28 68  hl,text: ld a,(h
000020: 6C 29 0D 0A 2E 6E 65 77 63 6F 6B 09 69 6E 63 20  l)...newcok.inc 
000030: 68 6C 3A 20 6C 64 20 28 74 65 78 74 61 64 29 2C  hl: ld (textad),
000040: 68 6C 0D 0A 09 63 61 6C 6C 20 63 68 61 72 61 64  hl...call charad
000050: 0D 0A 0D 0A 2E 73 63 72 6F 6C 63 09 70 75 73 68  .....scrolc.push
000060: 20 68 6C 0D 0A 09 20 6C 64 20 64 65 2C 26 34 34   hl... ld de,&44
000070: 37 46 3A 20 63 61 6C 6C 20 72 6F 77 0D 0A 09 20  7F: call row... 
000080: 6C 64 20 64 65 2C 26 34 34 44 46 3A 20 63 61 6C  ld de,&44DF: cal
000090: 6C 20 72 6F 77 0D 0A 09 70 6F 70 20 68 6C 3A 20  l row...pop hl: 
0000A0: 69 6E 63 20 68 6C 3A 20 6C 64 20 28 66 6F 6E 74  inc hl: ld (font
0000B0: 61 64 29 2C 68 6C 0D 0A 09 63 61 6C 6C 20 64 73  ad),hl...call ds
0000C0: 63 72 6F 6C 0D 0A 09 6C 64 20 61 2C 28 74 65 78  crol...ld a,(tex
0000D0: 74 70 74 29 3A 20 69 6E 63 20 61 3A 20 61 6E 64  tpt): inc a: and
0000E0: 20 33 0D 0A 09 6C 64 20 28 74 65 78 74 70 74 29   3...ld (textpt)
0000F0: 2C 61 3A 20 72 65 74 0D 0A 0D 0A 09 3B 2D 2D 2D  ,a: ret.....;---
000100: 20 73 75 62 72 09 43 61 6C 63 75 6C 61 74 65 20   subr.Calculate 
000110: 63 68 61 72 61 63 74 65 72 20 61 64 64 72 65 73  character addres
000120: 73 20 28 41 20 2D 3E 20 48 4C 29 0D 0A 0D 0A 2E  s (A -> HL).....
000130: 63 68 61 72 61 64 09 73 75 62 20 33 32 3A 20 6C  charad.sub 32: l
000140: 64 20 6C 2C 61 3A 20 6C 64 20 68 2C 30 0D 0A 09  d l,a: ld h,0...
000150: 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68  add hl,hl: add h
000160: 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68 6C 0D  l,hl: add hl,hl.
000170: 0A 09 61 64 64 20 68 6C 2C 68 6C 3A 20 61 64 64  ..add hl,hl: add
000180: 20 68 6C 2C 68 6C 3A 20 61 64 64 20 68 6C 2C 68   hl,hl: add hl,h
000190: 6C 0D 0A 09 6C 64 20 62 63 2C 66 6F 6E 74 3A 20  l...ld bc,font: 
0001A0: 61 64 64 20 68 6C 2C 62 63 3A 20 72 65 74 0D 0A  add hl,bc: ret..
0001B0: 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 50 72 69  ...;--- subr.Pri
0001C0: 6E 74 20 38 20 72 6F 77 73 2F 31 20 63 6F 6C 75  nt 8 rows/1 colu
0001D0: 6D 6E 20 6F 6E 20 73 63 72 65 65 6E 0D 0A 0D 0A  mn on screen....
0001E0: 2E 72 6F 77 09 6C 64 20 62 63 2C 26 30 33 30 38  .row.ld bc,&0308
0001F0: 0D 0A 09 6C 64 69 3A 20 69 6E 63 20 63 3A 64 65  ...ldi: inc c:de

Size : 512 (Real : 512)
000000: 20 70 72 69 6E 74 65 72 20 70 6F 72 74 0D 0A 53   printer port..S
000010: 44 4F 53 31 20 20 20 2E 53 52 43 09 53 2D 44 4F  DOS1   .SRC.S-DO
000020: 53 20 76 31 20 2D 20 73 69 6D 70 6C 65 20 44 4F  S v1 - simple DO
000030: 53 20 28 63 6F 2D 77 72 69 74 74 65 6E 20 62 79  S (co-written by
000040: 20 52 6F 62 20 53 63 6F 74 74 29 0D 0A 53 50 45   Rob Scott)..SPE
000050: 4C 4C 20 20 20 2E 53 52 43 09 50 6F 77 65 72 53  LL   .SRC.PowerS
000060: 70 65 6C 6C 20 2D 20 75 73 65 72 2D 66 72 69 65  pell - user-frie
000070: 6E 64 6C 79 20 73 70 65 6C 6C 2D 63 68 65 63 6B  ndly spell-check
000080: 65 72 0D 0A 54 41 4D 53 49 4E 20 20 2E 53 52 43  er..TAMSIN  .SRC
000090: 09 42 54 4C 20 33 20 69 6E 74 72 6F 20 2D 20 74  .BTL 3 intro - t
0000A0: 68 65 20 6F 6E 65 20 77 69 74 68 20 54 61 6D 73  he one with Tams
0000B0: 69 6E 20 74 68 65 20 57 6F 6E 64 65 72 20 43 61  in the Wonder Ca
0000C0: 74 0D 0A 54 45 58 54 52 45 41 44 2E 53 52 43 09  t..TEXTREAD.SRC.
0000D0: 45 75 72 6F 57 41 43 43 49 20 74 65 78 74 20 72  EuroWACCI text r
0000E0: 65 61 64 65 72 20 28 73 65 65 20 2E 44 4F 43 20  eader (see .DOC 
0000F0: 66 69 6C 65 29 0D 0A 54 4F 4F 4C 4B 49 54 20 2E  file)..TOOLKIT .
000100: 53 52 43 09 41 41 20 54 6F 6F 6C 6B 69 74 20 2D  SRC.AA Toolkit -
000110: 20 63 6F 6C 6C 65 63 74 69 6F 6E 20 6F 66 20 52   collection of R
000120: 53 58 73 0D 0A 23 45 44 49 54 20 20 20 2E 53 52  SXs..#EDIT   .SR
000130: 43 09 50 72 6F 2D 45 78 74 20 76 31 2E 35 20 66  C.Pro-Ext v1.5 f
000140: 6F 6E 74 20 65 64 69 74 6F 72 20 2D 20 42 41 53  ont editor - BAS
000150: 49 43 20 70 72 6F 67 72 61 6D 20 72 65 73 6F 75  IC program resou
000160: 72 63 65 73 0D 0A 23 47 52 41 50 48 49 43 2E 53  rces..#GRAPHIC.S
000170: 52 43 09 50 72 6F 2D 45 78 74 20 76 31 2E 35 20  RC.Pro-Ext v1.5 
000180: 67 72 61 70 68 69 63 20 63 6F 6E 76 65 72 73 69  graphic conversi
000190: 6F 6E 20 2D 20 42 41 53 49 43 20 70 72 6F 67 72  on - BASIC progr
0001A0: 61 6D 20 72 65 73 6F 75 72 63 65 73 0D 0A 23 50  am resources..#P
0001B0: 52 4F 2D 45 58 54 2E 53 52 43 09 50 72 6F 2D 45  RO-EXT.SRC.Pro-E
0001C0: 78 74 20 76 31 2E 35 20 6D 61 69 6E 20 70 72 6F  xt v1.5 main pro
0001D0: 67 72 61 6D 20 2D 20 50 72 6F 74 65 78 74 20 65  gram - Protext e
0001E0: 78 74 65 6E 73 69 6F 6E 73 0D 0A 1A 20 6E 75 6D  xtensions... num
0001F0: 62 65 72 20 6F 66 20 77 65 6C 6C 2D 6B 6E 6F 77  ber of well-know

Size : 512 (Real : 512)
000000: 63 20 65 3A 20 6C 64 20 61 2C 6C 3A 61 64 64 20  c e: ld a,l:add 
000010: 62 3A 6C 64 20 6C 2C 61 3A 20 6C 64 20 61 2C 64  b:ld l,a: ld a,d
000020: 3A 61 64 64 20 63 3A 6C 64 20 64 2C 61 0D 0A 09  :add c:ld d,a...
000030: 6C 64 69 3A 20 69 6E 63 20 63 3A 64 65 63 20 65  ldi: inc c:dec e
000040: 3A 20 6C 64 20 61 2C 6C 3A 61 64 64 20 62 3A 6C  : ld a,l:add b:l
000050: 64 20 6C 2C 61 3A 20 6C 64 20 61 2C 64 3A 61 64  d l,a: ld a,d:ad
000060: 64 20 63 3A 6C 64 20 64 2C 61 0D 0A 09 6C 64 69  d c:ld d,a...ldi
000070: 3A 20 69 6E 63 20 63 3A 64 65 63 20 65 3A 20 6C  : inc c:dec e: l
000080: 64 20 61 2C 6C 3A 61 64 64 20 62 3A 6C 64 20 6C  d a,l:add b:ld l
000090: 2C 61 3A 20 6C 64 20 61 2C 64 3A 61 64 64 20 63  ,a: ld a,d:add c
0000A0: 3A 6C 64 20 64 2C 61 0D 0A 09 6C 64 69 3A 20 69  :ld d,a...ldi: i
0000B0: 6E 63 20 63 3A 64 65 63 20 65 3A 20 6C 64 20 61  nc c:dec e: ld a
0000C0: 2C 6C 3A 61 64 64 20 62 3A 6C 64 20 6C 2C 61 3A  ,l:add b:ld l,a:
0000D0: 20 6C 64 20 61 2C 64 3A 61 64 64 20 63 3A 6C 64   ld a,d:add c:ld
0000E0: 20 64 2C 61 0D 0A 09 6C 64 69 3A 20 69 6E 63 20   d,a...ldi: inc 
0000F0: 63 3A 64 65 63 20 65 3A 20 6C 64 20 61 2C 6C 3A  c:dec e: ld a,l:
000100: 61 64 64 20 62 3A 6C 64 20 6C 2C 61 3A 20 6C 64  add b:ld l,a: ld
000110: 20 61 2C 64 3A 61 64 64 20 63 3A 6C 64 20 64 2C   a,d:add c:ld d,
000120: 61 0D 0A 09 6C 64 69 3A 20 69 6E 63 20 63 3A 64  a...ldi: inc c:d
000130: 65 63 20 65 3A 20 6C 64 20 61 2C 6C 3A 61 64 64  ec e: ld a,l:add
000140: 20 62 3A 6C 64 20 6C 2C 61 3A 20 6C 64 20 61 2C   b:ld l,a: ld a,
000150: 64 3A 61 64 64 20 63 3A 6C 64 20 64 2C 61 0D 0A  d:add c:ld d,a..
000160: 09 6C 64 69 3A 20 69 6E 63 20 63 3A 64 65 63 20  .ldi: inc c:dec 
000170: 65 3A 20 6C 64 20 61 2C 6C 3A 61 64 64 20 62 3A  e: ld a,l:add b:
000180: 6C 64 20 6C 2C 61 3A 20 6C 64 20 61 2C 64 3A 61  ld l,a: ld a,d:a
000190: 64 64 20 63 3A 6C 64 20 64 2C 61 0D 0A 09 6C 64  dd c:ld d,a...ld
0001A0: 69 3A 09 09 20 20 6C 64 20 61 2C 6C 3A 61 64 64  i:..  ld a,l:add
0001B0: 20 62 3A 6C 64 20 6C 2C 61 3A 20 72 65 74 0D 0A   b:ld l,a: ret..
0001C0: 0D 0A 09 3B 2D 2D 2D 20 73 75 62 72 09 53 63 72  ...;--- subr.Scr
0001D0: 6F 6C 6C 20 61 6C 6C 20 6C 69 6E 65 73 0D 0A 0D  oll all lines...
0001E0: 0A 2E 64 73 63 72 6F 6C 09 6C 64 20 64 65 2C 26  ..dscrol.ld de,&
0001F0: 34 34 32 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C  4420: call scrol

Size : 512 (Real : 512)
000000: 20 61 64 64 20 61 3A 20 61 64 64 20 61 09 09 3B   add a: add a..;
000010: 38 2A 28 72 6F 77 20 4D 4F 44 20 38 29 20 2D 20  8*(row MOD 8) - 
000020: 73 75 62 72 6F 77 73 0D 0A 09 6C 64 20 64 2C 61  subrows...ld d,a
000030: 3A 20 6C 64 20 65 2C 30 3A 20 61 64 64 20 68 6C  : ld e,0: add hl
000040: 2C 64 65 09 09 09 3B 20 7C 0D 0A 09 72 65 74 0D  ,de...; |...ret.
000050: 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09 55 70  ....;*** ROUT.Up
000060: 64 61 74 65 20 70 6F 73 69 74 69 6F 6E 0D 0A 0D  date position...
000070: 0A 2E 75 70 64 61 74 65 09 6C 64 20 64 65 2C 28  ..update.ld de,(
000080: 61 6E 69 5F 63 29 3A 20 6C 64 20 61 2C 28 63 61  ani_c): ld a,(ca
000090: 74 70 69 63 29 0D 0A 2E 75 70 64 5F 6C 70 09 6C  tpic)...upd_lp.l
0000A0: 64 20 68 6C 2C 32 35 36 3A 20 6F 72 20 61 3A 20  d hl,256: or a: 
0000B0: 73 62 63 20 68 6C 2C 64 65 3A 20 6A 72 20 7A 2C  sbc hl,de: jr z,
0000C0: 75 70 64 5F 72 73 0D 0A 09 6C 64 20 68 6C 2C 32  upd_rs...ld hl,2
0000D0: 30 37 3A 20 6F 72 20 61 3A 20 73 62 63 20 68 6C  07: or a: sbc hl
0000E0: 2C 64 65 3A 20 6A 72 20 63 2C 6C 69 66 74 5F 75  ,de: jr c,lift_u
0000F0: 0D 0A 09 6C 64 20 68 6C 2C 31 32 37 3A 20 6F 72  ...ld hl,127: or
000100: 20 61 3A 20 73 62 63 20 68 6C 2C 64 65 3A 20 6A   a: sbc hl,de: j
000110: 72 20 63 2C 77 61 6C 6B 5F 6C 0D 0A 09 6C 64 20  r c,walk_l...ld 
000120: 68 6C 2C 37 39 20 3A 20 6F 72 20 61 3A 20 73 62  hl,79 : or a: sb
000130: 63 20 68 6C 2C 64 65 3A 20 6A 72 20 63 2C 6C 69  c hl,de: jr c,li
000140: 66 74 5F 64 0D 0A 0D 0A 2E 77 61 6C 6B 5F 72 09  ft_d.....walk_r.
000150: 6C 64 20 68 6C 2C 61 6E 69 5F 78 3A 69 6E 63 20  ld hl,ani_x:inc 
000160: 28 68 6C 29 3A 20 69 6E 63 20 64 65 3A 6C 64 20  (hl): inc de:ld 
000170: 28 61 6E 69 5F 63 29 2C 64 65 3A 20 69 6E 63 20  (ani_c),de: inc 
000180: 61 3A 61 6E 64 20 33 3A 20 20 20 20 20 6C 64 20  a:and 3:     ld 
000190: 28 63 61 74 70 69 63 29 2C 61 3A 20 6C 64 20 61  (catpic),a: ld a
0001A0: 2C 34 3A 20 72 65 74 0D 0A 2E 77 61 6C 6B 5F 6C  ,4: ret...walk_l
0001B0: 09 6C 64 20 68 6C 2C 61 6E 69 5F 78 3A 64 65 63  .ld hl,ani_x:dec
0001C0: 20 28 68 6C 29 3A 20 69 6E 63 20 64 65 3A 6C 64   (hl): inc de:ld
0001D0: 20 28 61 6E 69 5F 63 29 2C 64 65 3A 20 69 6E 63   (ani_c),de: inc
0001E0: 20 61 3A 61 6E 64 20 33 3A 6F 72 20 34 3A 6C 64   a:and 3:or 4:ld
0001F0: 20 28 63 61 74 70 69 63 29 2C 61 3A 20 6C 64 20   (catpic),a: ld

Size : 512 (Real : 512)
000000: 72 3A 20 6C 64 20 64 65 2C 26 34 43 32 30 3A 20  r: ld de,&4C20: 
000010: 63 61 6C 6C 20 73 63 72 6F 6C 72 0D 0A 09 6C 64  call scrolr...ld
000020: 20 64 65 2C 26 35 34 32 30 3A 20 63 61 6C 6C 20   de,&5420: call 
000030: 73 63 72 6F 6C 72 3A 20 6C 64 20 64 65 2C 26 35  scrolr: ld de,&5
000040: 43 32 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72  C20: call scrolr
000050: 0D 0A 09 6C 64 20 64 65 2C 26 36 34 32 30 3A 20  ...ld de,&6420: 
000060: 63 61 6C 6C 20 73 63 72 6F 6C 72 3A 20 6C 64 20  call scrolr: ld 
000070: 64 65 2C 26 36 43 32 30 3A 20 63 61 6C 6C 20 73  de,&6C20: call s
000080: 63 72 6F 6C 72 0D 0A 09 6C 64 20 64 65 2C 26 37  crolr...ld de,&7
000090: 34 32 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72  420: call scrolr
0000A0: 3A 20 6C 64 20 64 65 2C 26 37 43 32 30 3A 20 63  : ld de,&7C20: c
0000B0: 61 6C 6C 20 73 63 72 6F 6C 72 0D 0A 0D 0A 09 6C  all scrolr.....l
0000C0: 64 20 64 65 2C 26 34 34 38 30 3A 20 63 61 6C 6C  d de,&4480: call
0000D0: 20 73 63 72 6F 6C 72 3A 20 6C 64 20 64 65 2C 26   scrolr: ld de,&
0000E0: 34 43 38 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C  4C80: call scrol
0000F0: 72 0D 0A 09 6C 64 20 64 65 2C 26 35 34 38 30 3A  r...ld de,&5480:
000100: 20 63 61 6C 6C 20 73 63 72 6F 6C 72 3A 20 6C 64   call scrolr: ld
000110: 20 64 65 2C 26 35 43 38 30 3A 20 63 61 6C 6C 20   de,&5C80: call 
000120: 73 63 72 6F 6C 72 0D 0A 09 6C 64 20 64 65 2C 26  scrolr...ld de,&
000130: 36 34 38 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C  6480: call scrol
000140: 72 3A 20 6C 64 20 64 65 2C 26 36 43 38 30 3A 20  r: ld de,&6C80: 
000150: 63 61 6C 6C 20 73 63 72 6F 6C 72 0D 0A 09 6C 64  call scrolr...ld
000160: 20 64 65 2C 26 37 34 38 30 3A 20 63 61 6C 6C 20   de,&7480: call 
000170: 73 63 72 6F 6C 72 3A 20 6C 64 20 64 65 2C 26 37  scrolr: ld de,&7
000180: 43 38 30 3A 20 63 61 6C 6C 20 73 63 72 6F 6C 72  C80: call scrolr
000190: 0D 0A 09 72 65 74 0D 0A 0D 0A 2E 73 63 72 6F 6C  ...ret.....scrol
0001A0: 72 09 6C 64 20 68 2C 64 3A 20 6C 64 20 6C 2C 65  r.ld h,d: ld l,e
0001B0: 3A 20 69 6E 63 20 68 6C 0D 0A 09 6C 64 69 3A 6C  : inc hl...ldi:l
0001C0: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
0001D0: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
0001E0: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
0001F0: 64 69 3A 6C 64 69 3A 6C 64 69 0D 0A 09 6C 64 69  di:ldi:ldi...ldi

Size : 512 (Real : 512)
000000: 61 2C 34 3A 20 72 65 74 0D 0A 2E 6C 69 66 74 5F  a,4: ret...lift_
000010: 64 09 6C 64 20 68 6C 2C 61 6E 69 5F 79 3A 69 6E  d.ld hl,ani_y:in
000020: 63 20 28 68 6C 29 3A 20 69 6E 63 20 64 65 3A 6C  c (hl): inc de:l
000030: 64 20 28 61 6E 69 5F 63 29 2C 64 65 3A 20 6C 64  d (ani_c),de: ld
000040: 20 61 2C 38 3A 20 20 20 20 20 20 20 20 20 20 6C   a,8:          l
000050: 64 20 28 63 61 74 70 69 63 29 2C 61 3A 20 6C 64  d (catpic),a: ld
000060: 20 61 2C 31 3A 20 72 65 74 0D 0A 2E 6C 69 66 74   a,1: ret...lift
000070: 5F 75 09 6C 64 20 68 6C 2C 61 6E 69 5F 79 3A 64  _u.ld hl,ani_y:d
000080: 65 63 20 28 68 6C 29 3A 20 69 6E 63 20 64 65 3A  ec (hl): inc de:
000090: 6C 64 20 28 61 6E 69 5F 63 29 2C 64 65 3A 20 6C  ld (ani_c),de: l
0000A0: 64 20 61 2C 38 3A 20 20 20 20 20 20 20 20 20 20  d a,8:          
0000B0: 6C 64 20 28 63 61 74 70 69 63 29 2C 61 3A 20 6C  ld (catpic),a: l
0000C0: 64 20 61 2C 31 3A 20 72 65 74 0D 0A 2E 75 70 64  d a,1: ret...upd
0000D0: 5F 72 73 09 09 09 20 20 20 20 20 6C 64 20 64 65  _rs...     ld de
0000E0: 2C 30 3A 6C 64 20 28 61 6E 69 5F 63 29 2C 64 65  ,0:ld (ani_c),de
0000F0: 3A 20 6A 72 20 75 70 64 5F 6C 70 0D 0A 0D 0A 09  : jr upd_lp.....
000100: 3B 2A 2A 2A 20 53 55 42 52 09 53 70 72 69 74 65  ;*** SUBR.Sprite
000110: 2D 64 69 73 70 6C 61 79 20 72 6F 75 74 69 6E 65  -display routine
000120: 0D 0A 09 3B 09 09 41 20 3D 20 68 65 69 67 68 74  ...;..A = height
000130: 2C 20 48 4C 20 3D 20 73 6F 75 72 63 65 2C 20 44  , HL = source, D
000140: 45 20 3D 20 64 65 73 74 69 6E 61 74 69 6F 6E 0D  E = destination.
000150: 0A 09 3B 09 09 70 75 74 73 20 6F 6E 65 20 62 6C  ..;..puts one bl
000160: 61 6E 6B 20 62 79 74 65 20 65 69 74 68 65 72 20  ank byte either 
000170: 73 69 64 65 0D 0A 0D 0A 2E 73 70 72 69 74 65 09  side.....sprite.
000180: 65 78 20 64 65 2C 68 6C 3A 20 6C 64 20 28 68 6C  ex de,hl: ld (hl
000190: 29 2C 30 3A 20 69 6E 63 20 68 6C 3A 20 65 78 20  ),0: inc hl: ex 
0001A0: 64 65 2C 68 6C 0D 0A 09 6C 64 69 3A 6C 64 69 3A  de,hl...ldi:ldi:
0001B0: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
0001C0: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:
0001D0: 6C 64 69 3A 6C 64 69 0D 0A 09 65 78 20 64 65 2C  ldi:ldi...ex de,
0001E0: 68 6C 3A 20 6C 64 20 28 68 6C 29 2C 30 0D 0A 09  hl: ld (hl),0...
0001F0: 6C 64 20 62 63 2C 26 37 46 33 3A 20 61 64 64 20  ld bc,&7F3: add

Size : 512 (Real : 512)
000000: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000010: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000020: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000030: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 0D 0A 09 6C  :ldi:ldi:ldi...l
000040: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
000050: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
000060: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
000070: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 0D 0A  di:ldi:ldi:ldi..
000080: 09 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  .ldi:ldi:ldi:ldi
000090: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
0000A0: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
0000B0: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
0000C0: 0D 0A 09 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  ...ldi:ldi:ldi:l
0000D0: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
0000E0: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
0000F0: 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C  di:ldi:ldi:ldi:l
000100: 64 69 0D 0A 09 6C 64 69 3A 6C 64 69 3A 6C 64 69  di...ldi:ldi:ldi
000110: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000120: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000130: 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69  :ldi:ldi:ldi:ldi
000140: 3A 72 65 74 0D 0A 0D 0A 0D 0A 09 3B 2D 2D 2D 2D  :ret.......;----
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 20 6D 69 73 63 65 6C 6C 61  ------- miscella
000170: 6E 65 6F 75 73 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  neous ----------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 2D 2D 2D 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42  ---.....;*** SUB
0001A0: 52 09 43 6F 70 79 20 66 72 6F 6D 20 26 43 30 30  R.Copy from &C00
0001B0: 30 20 73 63 72 65 65 6E 20 28 48 4C 29 20 74 6F  0 screen (HL) to
0001C0: 20 6F 76 65 72 73 63 61 6E 20 73 63 72 65 65 6E   overscan screen
0001D0: 20 28 44 45 29 0D 0A 0D 0A 2E 63 73 74 73 5F 72   (DE).....csts_r
0001E0: 09 6C 64 20 61 2C 38 0D 0A 2E 63 73 74 73 5F 6C  .ld a,8...csts_l
0001F0: 09 6C 64 20 62 63 2C 38 30 3A 20 6C 64 69 72 0D  .ld bc,80: ldir.

Size : 512 (Real : 512)
000000: 68 6C 2C 62 63 3A 20 62 69 74 20 37 2C 68 3A 20  hl,bc: bit 7,h: 
000010: 6A 72 20 7A 2C 73 70 72 6E 6F 63 0D 0A 09 6C 64  jr z,sprnoc...ld
000020: 20 62 63 2C 26 43 30 36 30 3A 20 61 64 64 20 68   bc,&C060: add h
000030: 6C 2C 62 63 0D 0A 2E 73 70 72 6E 6F 63 09 65 78  l,bc...sprnoc.ex
000040: 20 64 65 2C 68 6C 3A 20 64 65 63 20 61 3A 20 6A   de,hl: dec a: j
000050: 72 20 6E 7A 2C 73 70 72 69 74 65 0D 0A 09 72 65  r nz,sprite...re
000060: 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 56 41 52 49 09  t.....;*** VARI.
000070: 41 6E 69 6D 61 74 69 6F 6E 20 76 61 72 69 61 62  Animation variab
000080: 6C 65 73 0D 0A 0D 0A 2E 61 6E 69 5F 78 09 64 62  les.....ani_x.db
000090: 20 30 09 09 09 09 09 3B 50 6F 73 69 74 69 6F 6E   0.....;Position
0000A0: 20 28 30 2D 37 39 29 0D 0A 2E 61 6E 69 5F 79 09   (0-79)...ani_y.
0000B0: 64 62 20 30 09 09 09 09 09 3B 52 6F 77 20 28 30  db 0.....;Row (0
0000C0: 2C 20 31 2D 36 33 2C 20 36 34 29 0D 0A 2E 61 6E  , 1-63, 64)...an
0000D0: 69 5F 63 09 64 77 20 30 09 09 09 09 09 3B 43 6F  i_c.dw 0.....;Co
0000E0: 75 6E 74 65 72 20 28 30 2D 32 38 37 29 0D 0A 2E  unter (0-287)...
0000F0: 63 61 74 70 69 63 09 64 62 20 30 09 09 09 09 09  catpic.db 0.....
000100: 3B 43 75 72 72 65 6E 74 20 66 72 61 6D 65 20 6F  ;Current frame o
000110: 66 20 70 69 63 74 75 72 65 0D 0A 0D 0A 09 3B 2D  f picture.....;-
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 73 63  ------------- sc
000140: 72 6F 6C 6C 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  roll -----------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 09 3B 2A 2A 2A 20  ------.....;*** 
000170: 52 4F 55 54 09 53 63 72 6F 6C 6C 69 6E 67 20 6D  ROUT.Scrolling m
000180: 65 73 73 61 67 65 20 68 61 6E 64 6C 65 72 0D 0A  essage handler..
000190: 0D 0A 2E 73 63 72 6F 6C 6C 09 6C 64 20 61 2C 28  ...scroll.ld a,(
0001A0: 74 65 78 74 70 74 29 3A 20 6F 72 20 61 3A 20 6A  textpt): or a: j
0001B0: 72 20 7A 2C 6E 65 77 0D 0A 09 6C 64 20 68 6C 2C  r z,new...ld hl,
0001C0: 28 66 6F 6E 74 61 64 29 3A 20 6A 72 20 73 63 72  (fontad): jr scr
0001D0: 6F 6C 63 0D 0A 0D 0A 2E 6E 65 77 09 6C 64 20 68  olc.....new.ld h
0001E0: 6C 2C 28 74 65 78 74 61 64 29 0D 0A 09 6C 64 20  l,(textad)...ld 
0001F0: 61 2C 28 68 6C 29 3A 20 6F 72 20 61 3A 20 6A 72  a,(hl): or a: jr

Size : 512 (Real : 512)
000000: 20 62 6F 61 72 64 20 63 6F 6D 6D 61 6E 64 73 0D   board commands.
000010: 0A 43 4F 4E 54 52 4F 4C 20 2E 4D 4F 44 09 09 09  .CONTROL .MOD...
000020: 20 20 20 20 20 20 73 65 72 69 61 6C 20 69 6E 74        serial int
000030: 65 72 66 61 63 65 20 63 6F 6E 74 72 6F 6C 0D 0A  erface control..
000040: 46 49 4C 45 20 20 20 20 2E 4D 4F 44 09 09 09 20  FILE    .MOD... 
000050: 20 20 20 20 20 66 69 6C 65 20 75 70 6C 6F 61 64       file upload
000060: 2F 64 6F 77 6E 6C 6F 61 64 0D 0A 4C 49 42 52 41  /download..LIBRA
000070: 52 59 20 2E 4D 4F 44 09 09 09 20 20 20 20 20 20  RY .MOD...      
000080: 4C 42 52 20 66 69 6C 65 20 6D 61 6E 69 70 75 6C  LBR file manipul
000090: 61 74 69 6F 6E 0D 0A 53 49 4F 20 20 20 20 20 2E  ation..SIO     .
0000A0: 4D 4F 44 09 09 09 20 20 20 20 20 20 73 65 72 69  MOD...      seri
0000B0: 61 6C 20 69 6E 70 75 74 2F 6F 75 74 70 75 74 0D  al input/output.
0000C0: 0A 53 55 42 52 4F 55 54 20 2E 4D 4F 44 09 09 09  .SUBROUT .MOD...
0000D0: 20 20 20 20 20 20 63 6F 6D 6D 6F 6E 20 73 75 62        common sub
0000E0: 72 6F 75 74 69 6E 65 73 0D 0A 54 45 52 4D 49 4E  routines..TERMIN
0000F0: 41 4C 2E 4D 4F 44 09 09 09 20 20 20 20 20 20 74  AL.MOD...      t
000100: 65 72 6D 69 6E 61 6C 20 65 6D 75 6C 61 74 6F 72  erminal emulator
000110: 0D 0A 1A 6C 6C 65 63 74 69 6F 6E 20 20 76 6F 6C  ...llection  vol
000120: 75 6D 65 20 31 0D 0A 7E 7E 7E 7E 7E 7E 7E 7E 7E  ume 1..~~~~~~~~~
000130: 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E  ~~~~~~~~~~~~~~~~
000140: 7E 7E 0D 0A 54 68 69 73 20 64 69 73 63 20 63 6F  ~~..This disc co
000150: 6E 74 61 69 6E 73 20 5A 38 30 20 73 6F 75 72 63  ntains Z80 sourc
000160: 65 20 63 6F 64 65 20 66 6F 72 20 61 20 6E 75 6D  e code for a num
000170: 62 65 72 20 6F 66 20 77 65 6C 6C 2D 6B 6E 6F 77  ber of well-know
000180: 0D 0A 47 52 41 50 48 49 43 53 2E 53 52 43 09 09  ..GRAPHICS.SRC..
000190: 09 20 20 20 20 20 20 67 72 61 70 68 69 63 20 63  .      graphic c
0001A0: 6F 6E 76 65 72 73 69 6F 6E 20 52 53 58 73 0D 0A  onversion RSXs..
0001B0: 0D 0A 43 4F 4D 4D 53 20 20 20 2E 53 52 43 09 43  ..COMMS   .SRC.C
0001C0: 68 61 72 6C 65 79 27 73 20 43 6F 6D 6D 73 20 52  harley's Comms R
0001D0: 4F 4D 20 2D 20 6D 61 69 6E 20 70 72 6F 67 72 61  OM - main progra
0001E0: 6D 0D 0A 42 42 53 20 20 20 20 20 2E 4D 4F 44 09  m..BBS     .MOD.
0001F0: 09 09 20 20 20 20 20 20 62 75 6C 6C 65 74 69 6E  ..      bulletin

Size : 512 (Real : 512)
000000: 20 65 78 20 64 65 2C 68 6C 0D 0A 09 6C 64 20 62   ex de,hl...ld b
000010: 63 2C 26 30 37 46 43 3A 20 61 64 64 20 68 6C 2C  c,&07FC: add hl,
000020: 62 63 3A 20 62 69 74 20 36 2C 68 3A 20 6A 70 20  bc: bit 6,h: jp 
000030: 7A 2C 64 6E 65 78 74 0D 0A 09 6C 64 20 62 63 2C  z,dnext...ld bc,
000040: 26 43 30 36 30 3A 20 61 64 64 20 68 6C 2C 62 63  &C060: add hl,bc
000050: 0D 0A 2E 64 6E 65 78 74 09 65 78 20 64 65 2C 68  ...dnext.ex de,h
000060: 6C 3A 20 64 65 63 20 61 3A 20 6A 70 20 6E 7A 2C  l: dec a: jp nz,
000070: 64 72 61 77 6C 70 3A 20 72 65 74 0D 0A 0D 0A 09  drawlp: ret.....
000080: 3B 2A 2A 2A 20 44 41 54 41 09 4D 65 73 73 61 67  ;*** DATA.Messag
000090: 65 20 77 72 69 74 65 72 20 74 65 78 74 0D 0A 0D  e writer text...
0000A0: 0A 2E 6D 74 65 78 74 09 64 62 20 22 2E 2E 2E 2E  ..mtext.db "....
0000B0: 4E 49 49 54 53 27 4D 53 41 2E 54 2E 22 09 09 3B  NIITS'MSA.T."..;
0000C0: 22 20 20 49 54 27 53 20 20 54 41 4D 53 49 4E 20  "  IT'S  TAMSIN 
0000D0: 20 22 0D 0A 09 64 62 20 22 2E 2E 54 54 41 48 43   "...db "..TTAHC
0000E0: 45 2E 2E 52 57 45 4F 44 4E 22 09 09 3B 22 20 54  E..RWEODN"..;" T
0000F0: 48 45 20 57 4F 4E 44 45 52 20 43 41 54 20 22 0D  HE WONDER CAT ".
000100: 0A 09 64 62 20 22 47 45 4E 4E 49 47 4F 41 44 47  ..db "GENNIGOADG
000110: 2E 45 4E 44 49 2E 22 09 09 3B 22 45 4E 47 41 47  .ENDI."..;"ENGAG
000120: 45 44 20 49 4E 20 44 4F 49 4E 47 22 0D 0A 09 64  ED IN DOING"...d
000130: 62 20 22 21 57 53 4F 47 4E 4E 44 49 52 48 4F 54  b "!WSOGNNDIRHOT
000140: 55 2E 53 22 09 09 3B 22 57 4F 4E 44 52 4F 55 53  U.S"..;"WONDROUS
000150: 20 54 48 49 4E 47 53 21 22 0D 0A 09 64 62 20 30   THINGS!"...db 0
000160: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41 09 53  .....;*** DATA.S
000170: 63 72 6F 6C 6C 74 65 78 74 0D 0A 0D 0A 2E 74 65  crolltext.....te
000180: 78 74 09 64 62 20 22 20 20 20 20 20 20 20 20 20  xt.db "         
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 47 52 45 45 54 49 4E 58 53 53 53 47      GREETINXSSSG
0001B0: 47 47 53 53 20 57 45 4C 43 4F 4D 45 20 49 4E 20  GGSS WELCOME IN 
0001C0: 54 48 49 53 20 44 45 4D 4F 20 4F 46 20 54 4F 20  THIS DEMO OF TO 
0001D0: 42 59 20 57 48 45 4E 20 48 4F 57 20 5A 45 20 45  BY WHEN HOW ZE E
0001E0: 51 56 41 4C 49 5A 4F 52 2E 20 22 0D 0A 09 64 62  QVALIZOR. "...db
0001F0: 20 22 20 20 20 20 20 20 20 20 20 20 20 54 48 49   "           THI

Size : 512 (Real : 512)
000000: 2E 6C 65 66 74 78 09 64 77 20 30 09 09 09 09 09  .leftx.dw 0.....
000010: 3B 53 63 72 65 65 6E 20 61 64 64 72 65 73 73 20  ;Screen address 
000020: 6F 66 20 4C 48 20 73 70 72 69 74 65 0D 0A 2E 72  of LH sprite...r
000030: 69 67 68 74 78 09 64 77 20 30 09 09 09 09 09 3B  ightx.dw 0.....;
000040: 53 63 72 65 65 6E 20 61 64 64 72 65 73 73 20 6F  Screen address o
000050: 66 20 52 48 20 73 70 72 69 74 65 0D 0A 2E 6C 73  f RH sprite...ls
000060: 70 72 09 64 77 20 66 6F 6E 74 2B 26 38 34 30 09  pr.dw font+&840.
000070: 09 09 09 3B 43 6F 6E 74 65 6E 74 20 61 64 64 72  ...;Content addr
000080: 65 73 73 20 6F 66 20 4C 48 20 73 70 72 69 74 65  ess of LH sprite
000090: 0D 0A 2E 72 73 70 72 09 64 77 20 66 6F 6E 74 2B  ...rspr.dw font+
0000A0: 26 38 38 30 09 09 09 09 3B 43 6F 6E 74 65 6E 74  &880....;Content
0000B0: 20 61 64 64 72 65 73 73 20 6F 66 20 52 48 20 73   address of RH s
0000C0: 70 72 69 74 65 0D 0A 2E 6D 74 70 6F 73 09 64 77  prite...mtpos.dw
0000D0: 20 6D 74 65 78 74 09 09 09 09 3B 50 6F 73 69 74   mtext....;Posit
0000E0: 69 6F 6E 20 69 6E 20 6D 65 73 73 61 67 65 20 74  ion in message t
0000F0: 65 78 74 0D 0A 2E 73 6E 70 6F 73 09 64 77 20 73  ext...snpos.dw s
000100: 69 6E 65 73 2D 31 09 09 09 09 3B 50 6F 73 69 74  ines-1....;Posit
000110: 69 6F 6E 20 69 6E 20 73 69 6E 65 20 74 61 62 6C  ion in sine tabl
000120: 65 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F 55 54 09  e.....;*** ROUT.
000130: 4D 65 73 73 61 67 65 20 77 72 69 74 65 72 20 74  Message writer t
000140: 65 78 74 20 68 61 6E 64 6C 65 72 0D 0A 0D 0A 2E  ext handler.....
000150: 6D 77 63 61 6C 63 09 6C 64 20 68 6C 2C 28 73 6E  mwcalc.ld hl,(sn
000160: 70 6F 73 29 3A 20 6C 64 20 61 2C 28 68 6C 29 09  pos): ld a,(hl).
000170: 09 3B 45 6E 64 20 6F 66 20 70 61 74 68 3F 0D 0A  .;End of path?..
000180: 09 6F 72 20 61 3A 20 6A 72 20 6E 7A 2C 73 6E 65  .or a: jr nz,sne
000190: 78 69 73 09 09 09 3B 20 7C 0D 0A 0D 0A 09 6C 64  xis...; |.....ld
0001A0: 20 68 6C 2C 28 6D 74 70 6F 73 29 3A 20 6C 64 20   hl,(mtpos): ld 
0001B0: 61 2C 28 68 6C 29 09 09 3B 59 65 73 2C 20 73 6F  a,(hl)..;Yes, so
0001C0: 20 67 65 74 20 6E 65 77 20 63 68 61 72 61 63 74   get new charact
0001D0: 65 72 0D 0A 09 3A 20 6F 72 20 61 3A 20 6A 72 20  er...: or a: jr 
0001E0: 6E 7A 2C 6D 77 6E 77 6F 6B 09 09 09 3B 20 7C 0D  nz,mwnwok...; |.
0001F0: 0A 09 3A 20 6C 64 20 68 6C 2C 6D 74 65 78 74 20  ..: ld hl,mtext

Size : 512 (Real : 512)
000000: 0A 09 6C 64 20 62 63 2C 26 37 42 30 3A 20 61 64  ..ld bc,&7B0: ad
000010: 64 20 68 6C 2C 62 63 3A 20 65 78 20 64 65 2C 68  d hl,bc: ex de,h
000020: 6C 0D 0A 09 6C 64 20 62 63 2C 26 37 42 30 3A 20  l...ld bc,&7B0: 
000030: 61 64 64 20 68 6C 2C 62 63 3A 20 65 78 20 64 65  add hl,bc: ex de
000040: 2C 68 6C 0D 0A 09 64 65 63 20 61 3A 20 6A 72 20  ,hl...dec a: jr 
000050: 6E 7A 2C 63 73 74 73 5F 6C 3A 20 72 65 74 0D 0A  nz,csts_l: ret..
000060: 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 43 52 54  ...;*** SUBR.CRT
000070: 43 20 72 65 67 69 73 74 65 72 20 73 65 74 0D 0A  C register set..
000080: 0D 0A 2E 63 72 74 63 09 6C 64 20 61 2C 62 0D 0A  ...crtc.ld a,b..
000090: 09 6C 64 20 62 2C 26 42 43 3A 20 6F 75 74 20 28  .ld b,&BC: out (
0000A0: 63 29 2C 61 0D 0A 09 6C 64 20 62 2C 26 42 44 3A  c),a...ld b,&BD:
0000B0: 20 6F 75 74 20 28 63 29 2C 63 0D 0A 09 72 65 74   out (c),c...ret
0000C0: 0D 0A 0D 0A 09 3B 2A 2A 2A 20 56 41 52 49 09 53  .....;*** VARI.S
0000D0: 63 72 6F 6C 6C 69 6E 67 20 6D 65 73 73 61 67 65  crolling message
0000E0: 0D 0A 0D 0A 2E 74 65 78 74 61 64 09 64 77 20 74  .....textad.dw t
0000F0: 65 78 74 0D 0A 2E 66 6F 6E 74 61 64 09 64 77 20  ext...fontad.dw 
000100: 30 0D 0A 2E 74 65 78 74 70 74 09 64 62 20 30 0D  0...textpt.db 0.
000110: 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41 09 4D 69  ....;*** DATA.Mi
000120: 73 63 65 6C 6C 61 6E 65 6F 75 73 0D 0A 0D 0A 2E  scellaneous.....
000130: 66 6E 61 6D 65 09 64 62 20 22 43 41 54 53 20 20  fname.db "CATS  
000140: 20 20 2E 42 49 4E 22 0D 0A 2E 73 6E 61 6D 65 09    .BIN"...sname.
000150: 64 62 20 22 53 54 53 20 20 20 20 20 2E 53 43 52  db "STS     .SCR
000160: 22 0D 0A 2E 6C 6E 61 6D 65 09 64 62 20 22 4E 45  "...lname.db "NE
000170: 57 46 4F 4E 54 20 2E 42 49 4E 22 0D 0A 2E 6D 6E  WFONT .BIN"...mn
000180: 61 6D 65 09 64 62 20 22 4F 42 4C 41 44 49 20 20  ame.db "OBLADI  
000190: 2E 42 49 4E 22 0D 0A 0D 0A 09 3B 2D 2D 2D 2D 2D  .BIN".....;-----
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 20 6D 65 73 73 61 67 65  -------- message
0001C0: 20 77 72 69 74 65 72 20 2D 2D 2D 2D 2D 2D 2D 2D   writer --------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 0D 0A 0D 0A 09 3B 2A 2A 2A 20 44 41 54 41  --.....;*** DATA
0001F0: 09 53 69 6E 65 20 74 61 62 6C 65 73 0D 0A 0D 0A  .Sine tables....

Size : 512 (Real : 512)
000000: 20 3A 20 6C 64 20 61 2C 28 68 6C 29 09 09 3B 20   : ld a,(hl)..; 
000010: 7C 0D 0A 0D 0A 2E 6D 77 6E 77 6F 6B 09 65 78 20  |.....mwnwok.ex 
000020: 64 65 2C 68 6C 3A 20 63 61 6C 6C 20 63 68 61 72  de,hl: call char
000030: 61 64 3A 20 6C 64 20 28 6C 73 70 72 29 2C 68 6C  ad: ld (lspr),hl
000040: 3A 20 65 78 20 64 65 2C 68 6C 3A 20 69 6E 63 20  : ex de,hl: inc 
000050: 68 6C 3A 20 6C 64 20 61 2C 28 68 6C 29 0D 0A 09  hl: ld a,(hl)...
000060: 65 78 20 64 65 2C 68 6C 3A 20 63 61 6C 6C 20 63  ex de,hl: call c
000070: 68 61 72 61 64 3A 20 6C 64 20 28 72 73 70 72 29  harad: ld (rspr)
000080: 2C 68 6C 3A 20 65 78 20 64 65 2C 68 6C 3A 20 69  ,hl: ex de,hl: i
000090: 6E 63 20 68 6C 3A 20 6C 64 20 28 6D 74 70 6F 73  nc hl: ld (mtpos
0000A0: 29 2C 68 6C 0D 0A 0D 0A 09 6C 64 20 61 2C 26 46  ),hl.....ld a,&F
0000B0: 46 3A 20 6C 64 20 28 62 6F 75 6E 63 78 29 2C 61  F: ld (bouncx),a
0000C0: 09 09 09 3B 52 65 73 65 74 20 78 20 70 6F 73 69  ...;Reset x posi
0000D0: 74 69 6F 6E 0D 0A 09 6C 64 20 68 6C 2C 28 73 6E  tion...ld hl,(sn
0000E0: 70 6F 73 29 3A 20 69 6E 63 20 68 6C 09 09 09 3B  pos): inc hl...;
0000F0: 53 74 61 72 74 20 6E 65 77 20 70 61 74 68 0D 0A  Start new path..
000100: 09 6C 64 20 61 2C 28 68 6C 29 3A 20 6F 72 20 61  .ld a,(hl): or a
000110: 3A 20 6A 72 20 6E 7A 2C 73 6E 65 78 69 74 09 09  : jr nz,snexit..
000120: 3B 20 7C 0D 0A 09 20 20 20 20 6C 64 20 68 6C 2C  ; |...    ld hl,
000130: 73 69 6E 65 73 3A 20 6A 72 20 20 20 20 73 6E 65  sines: jr    sne
000140: 78 69 74 09 09 3B 20 7C 0D 0A 0D 0A 2E 73 6E 65  xit..; |.....sne
000150: 78 69 73 09 63 61 6C 6C 20 73 74 61 67 65 32 3A  xis.call stage2:
000160: 20 6C 64 20 68 6C 2C 28 73 6E 70 6F 73 29 09 09   ld hl,(snpos)..
000170: 3B 52 65 6D 6F 76 65 20 73 70 72 69 74 65 73 20  ;Remove sprites 
000180: 69 66 20 6E 6F 74 20 6C 61 73 74 0D 0A 2E 73 6E  if not last...sn
000190: 65 78 69 74 09 6C 64 20 61 2C 28 68 6C 29 3A 20  exit.ld a,(hl): 
0001A0: 69 6E 63 20 68 6C 3A 20 6C 64 20 28 73 6E 70 6F  inc hl: ld (snpo
0001B0: 73 29 2C 68 6C 09 3B 53 74 6F 72 65 20 70 6F 73  s),hl.;Store pos
0001C0: 69 74 69 6F 6E 20 69 6E 20 70 61 74 68 20 61 6E  ition in path an
0001D0: 64 2E 2E 2E 0D 0A 0D 0A 09 3B 2A 2A 2A 20 52 4F  d........;*** RO
0001E0: 55 54 09 4D 65 73 73 61 67 65 20 77 72 69 74 65  UT.Message write
0001F0: 72 20 73 74 61 67 65 20 31 20 2D 20 64 72 61 77  r stage 1 - draw

Size : 512 (Real : 512)
000000: 09 64 62 20 30 0D 0A 2E 73 69 6E 65 73 09 64 62  .db 0...sines.db
000010: 20 34 38 2C 34 30 2C 33 32 2C 32 35 2C 31 39 2C   48,40,32,25,19,
000020: 31 33 2C 38 2C 34 2C 32 2C 31 2C 31 2C 32 2C 34  13,8,4,2,1,1,2,4
000030: 2C 38 2C 31 33 2C 31 39 2C 32 35 2C 33 32 2C 34  ,8,13,19,25,32,4
000040: 30 2C 34 38 2C 34 30 2C 33 32 2C 32 35 2C 31 39  0,48,40,32,25,19
000050: 2C 31 33 2C 38 2C 34 2C 32 2C 31 2C 31 2C 32 2C  ,13,8,4,2,1,1,2,
000060: 34 2C 38 2C 31 33 2C 31 39 2C 32 35 2C 33 32 2C  4,8,13,19,25,32,
000070: 34 30 2C 34 38 2C 34 30 2C 33 32 2C 32 35 2C 31  40,48,40,32,25,1
000080: 39 2C 31 33 2C 38 2C 34 2C 32 2C 31 2C 31 2C 32  9,13,8,4,2,1,1,2
000090: 2C 34 2C 38 2C 31 33 2C 31 39 2C 32 35 2C 33 32  ,4,8,13,19,25,32
0000A0: 2C 34 30 2C 34 38 2C 34 30 2C 33 32 2C 32 35 2C  ,40,48,40,32,25,
0000B0: 31 39 2C 31 33 2C 38 2C 34 2C 32 2C 31 2C 31 2C  19,13,8,4,2,1,1,
0000C0: 32 2C 34 2C 38 2C 31 33 2C 31 39 2C 32 35 2C 33  2,4,8,13,19,25,3
0000D0: 32 2C 34 30 2C 34 38 2C 30 0D 0A 09 64 62 20 34  2,40,48,0...db 4
0000E0: 38 2C 33 39 2C 33 31 2C 32 34 2C 31 37 2C 31 31  8,39,31,24,17,11
0000F0: 2C 37 2C 33 2C 31 2C 31 2C 31 2C 33 2C 37 2C 31  ,7,3,1,1,1,3,7,1
000100: 31 2C 31 37 2C 32 34 2C 33 31 2C 33 39 2C 34 38  1,17,24,31,39,48
000110: 2C 33 39 2C 33 31 2C 32 34 2C 31 37 2C 31 31 2C  ,39,31,24,17,11,
000120: 37 2C 33 2C 31 2C 31 2C 31 2C 33 2C 37 2C 31 31  7,3,1,1,1,3,7,11
000130: 2C 31 37 2C 32 34 2C 33 31 2C 33 39 2C 34 38 2C  ,17,24,31,39,48,
000140: 33 39 2C 33 31 2C 32 34 2C 31 37 2C 31 31 2C 37  39,31,24,17,11,7
000150: 2C 33 2C 31 2C 31 2C 31 2C 33 2C 37 2C 31 31 2C  ,3,1,1,1,3,7,11,
000160: 31 37 2C 32 34 2C 33 31 2C 33 39 2C 34 38 2C 33  17,24,31,39,48,3
000170: 39 2C 33 31 2C 32 34 2C 31 37 2C 31 31 2C 37 2C  9,31,24,17,11,7,
000180: 33 2C 31 2C 31 2C 31 2C 33 2C 37 2C 31 31 2C 31  3,1,1,1,3,7,11,1
000190: 37 2C 32 34 2C 33 31 2C 33 39 2C 34 38 2C 30 0D  7,24,31,39,48,0.
0001A0: 0A 09 64 62 20 34 38 2C 33 39 2C 33 31 2C 32 33  ..db 48,39,31,23
0001B0: 2C 31 36 2C 31 30 2C 35 2C 32 2C 31 2C 31 2C 32  ,16,10,5,2,1,1,2
0001C0: 2C 35 2C 31 30 2C 31 36 2C 32 33 2C 33 31 2C 33  ,5,10,16,23,31,3
0001D0: 39 2C 34 38 2C 33 39 2C 33 31 2C 32 33 2C 31 36  9,48,39,31,23,16
0001E0: 2C 31 30 2C 35 2C 32 2C 31 2C 31 2C 32 2C 35 2C  ,10,5,2,1,1,2,5,
0001F0: 31 30 2C 31 36 2C 32 33 2C 33 31 2C 33 39 2C 34  10,16,23,31,39,4

Size : 512 (Real : 512)
000000: 20 73 70 72 69 74 65 73 0D 0A 0D 0A 2E 73 74 61   sprites.....sta
000010: 67 65 31 09 63 61 6C 6C 20 73 63 72 61 64 64 09  ge1.call scradd.
000020: 09 09 09 3B 43 61 6C 63 75 6C 61 74 65 20 62 61  ...;Calculate ba
000030: 73 65 20 61 64 64 72 65 73 73 0D 0A 09 6C 64 20  se address...ld 
000040: 62 63 2C 26 38 30 3A 20 61 64 64 20 68 6C 2C 62  bc,&80: add hl,b
000050: 63 09 09 09 3B 20 7C 0D 0A 09 70 75 73 68 20 68  c...; |...push h
000060: 6C 09 09 09 09 09 3B 2E 2E 2E 66 6F 72 20 74 68  l.....;...for th
000070: 65 20 6C 65 66 74 2D 68 61 6E 64 20 73 70 72 69  e left-hand spri
000080: 74 65 0D 0A 09 20 6C 64 20 61 2C 28 62 6F 75 6E  te... ld a,(boun
000090: 63 78 29 3A 20 69 6E 63 20 61 09 09 09 3B 20 7C  cx): inc a...; |
0000A0: 0D 0A 09 20 6C 64 20 28 62 6F 75 6E 63 78 29 2C  ... ld (bouncx),
0000B0: 61 3A 20 6C 64 20 65 2C 61 3A 20 6C 64 20 64 2C  a: ld e,a: ld d,
0000C0: 30 09 09 3B 20 7C 0D 0A 09 20 61 64 64 20 68 6C  0..; |... add hl
0000D0: 2C 64 65 3A 20 6C 64 20 28 6C 65 66 74 78 29 2C  ,de: ld (leftx),
0000E0: 68 6C 09 09 3B 20 7C 0D 0A 09 70 6F 70 20 68 6C  hl..; |...pop hl
0000F0: 3A 20 6C 64 20 62 63 2C 39 32 09 09 09 3B 2E 2E  : ld bc,92...;..
000100: 2E 61 6E 64 20 74 68 65 20 72 69 67 68 74 2D 68  .and the right-h
000110: 61 6E 64 20 6F 6E 65 0D 0A 09 61 64 64 20 68 6C  and one...add hl
000120: 2C 62 63 3A 20 6F 72 20 61 09 09 09 09 3B 20 7C  ,bc: or a....; |
000130: 0D 0A 09 73 62 63 20 68 6C 2C 64 65 3A 20 6C 64  ...sbc hl,de: ld
000140: 20 28 72 69 67 68 74 78 29 2C 68 6C 09 09 3B 20   (rightx),hl..; 
000150: 7C 0D 0A 0D 0A 09 6C 64 20 68 6C 2C 28 6C 65 66  |.....ld hl,(lef
000160: 74 78 20 29 3A 20 6C 64 20 64 65 2C 73 70 72 73  tx ): ld de,sprs
000170: 74 31 3A 20 63 61 6C 6C 20 73 61 76 65 09 3B 53  t1: call save.;S
000180: 74 6F 72 65 20 63 75 72 72 65 6E 74 20 73 63 72  tore current scr
000190: 65 65 6E 20 63 6F 6E 74 65 6E 74 73 0D 0A 09 6C  een contents...l
0001A0: 64 20 68 6C 2C 28 72 69 67 68 74 78 29 3A 20 6C  d hl,(rightx): l
0001B0: 64 20 64 65 2C 73 70 72 73 74 32 3A 20 63 61 6C  d de,sprst2: cal
0001C0: 6C 20 73 61 76 65 09 3B 20 7C 0D 0A 09 6C 64 20  l save.; |...ld 
0001D0: 64 65 2C 28 6C 65 66 74 78 20 29 3A 20 6C 64 20  de,(leftx ): ld 
0001E0: 68 6C 2C 28 6C 73 70 72 29 3A 20 63 61 6C 6C 20  hl,(lspr): call 
0001F0: 64 72 61 77 09 3B 44 72 61 77 20 6E 65 77 20 73  draw.;Draw new s

Size : 512 (Real : 512)
000000: 38 2C 33 39 2C 33 31 2C 32 33 2C 31 36 2C 31 30  8,39,31,23,16,10
000010: 2C 35 2C 32 2C 31 2C 31 2C 32 2C 35 2C 31 30 2C  ,5,2,1,1,2,5,10,
000020: 31 36 2C 32 33 2C 33 31 2C 33 39 2C 34 38 2C 33  16,23,31,39,48,3
000030: 39 2C 33 31 2C 32 33 2C 31 36 2C 31 30 2C 35 2C  9,31,23,16,10,5,
000040: 32 2C 31 2C 31 2C 32 2C 35 2C 31 30 2C 31 36 2C  2,1,1,2,5,10,16,
000050: 32 33 2C 33 31 2C 33 39 2C 34 38 2C 30 0D 0A 09  23,31,39,48,0...
000060: 64 62 20 34 38 2C 33 38 2C 33 30 2C 32 31 2C 31  db 48,38,30,21,1
000070: 34 2C 38 2C 34 2C 31 2C 31 2C 31 2C 34 2C 38 2C  4,8,4,1,1,1,4,8,
000080: 31 34 2C 32 31 2C 33 30 2C 33 38 2C 34 38 2C 33  14,21,30,38,48,3
000090: 38 2C 33 30 2C 32 31 2C 31 34 2C 38 2C 34 2C 31  8,30,21,14,8,4,1
0000A0: 2C 31 2C 31 2C 34 2C 38 2C 31 34 2C 32 31 2C 33  ,1,1,4,8,14,21,3
0000B0: 30 2C 33 38 2C 34 38 2C 33 38 2C 33 30 2C 32 31  0,38,48,38,30,21
0000C0: 2C 31 34 2C 38 2C 34 2C 31 2C 31 2C 31 2C 34 2C  ,14,8,4,1,1,1,4,
0000D0: 38 2C 31 34 2C 32 31 2C 33 30 2C 33 38 2C 34 38  8,14,21,30,38,48
0000E0: 2C 33 38 2C 33 30 2C 32 31 2C 31 34 2C 38 2C 34  ,38,30,21,14,8,4
0000F0: 2C 31 2C 31 2C 31 2C 34 2C 38 2C 31 34 2C 32 31  ,1,1,1,4,8,14,21
000100: 2C 33 30 2C 33 38 2C 34 38 2C 30 0D 0A 09 64 62  ,30,38,48,0...db
000110: 20 34 38 2C 33 38 2C 32 38 2C 32 30 2C 31 33 2C   48,38,28,20,13,
000120: 37 2C 33 2C 31 2C 31 2C 33 2C 37 2C 31 33 2C 32  7,3,1,1,3,7,13,2
000130: 30 2C 32 38 2C 33 38 2C 34 38 2C 33 38 2C 32 38  0,28,38,48,38,28
000140: 2C 32 30 2C 31 33 2C 37 2C 33 2C 31 2C 31 2C 33  ,20,13,7,3,1,1,3
000150: 2C 37 2C 31 33 2C 32 30 2C 32 38 2C 33 38 2C 34  ,7,13,20,28,38,4
000160: 38 2C 33 38 2C 32 38 2C 32 30 2C 31 33 2C 37 2C  8,38,28,20,13,7,
000170: 33 2C 31 2C 31 2C 33 2C 37 2C 31 33 2C 32 30 2C  3,1,1,3,7,13,20,
000180: 32 38 2C 33 38 2C 34 38 2C 33 38 2C 32 38 2C 32  28,38,48,38,28,2
000190: 30 2C 31 33 2C 37 2C 33 2C 31 2C 31 2C 33 2C 37  0,13,7,3,1,1,3,7
0001A0: 2C 31 33 2C 32 30 2C 32 38 2C 33 38 2C 34 38 2C  ,13,20,28,38,48,
0001B0: 30 0D 0A 09 64 62 20 34 38 2C 33 37 2C 32 37 2C  0...db 48,37,27,
0001C0: 31 38 2C 31 31 2C 35 2C 32 2C 31 2C 32 2C 35 2C  18,11,5,2,1,2,5,
0001D0: 31 31 2C 31 38 2C 32 37 2C 33 37 2C 34 38 2C 33  11,18,27,37,48,3
0001E0: 37 2C 32 37 2C 31 38 2C 31 31 2C 35 2C 32 2C 31  7,27,18,11,5,2,1
0001F0: 2C 32 2C 35 2C 31 31 2C 31 38 2C 32 37 2C 33 37  ,2,5,11,18,27,37

Size : 512 (Real : 512)
000000: 70 72 69 74 65 0D 0A 09 6C 64 20 64 65 2C 28 72  prite...ld de,(r
000010: 69 67 68 74 78 29 3A 20 6C 64 20 68 6C 2C 28 72  ightx): ld hl,(r
000020: 73 70 72 29 3A 20 63 61 6C 6C 20 64 72 61 77 09  spr): call draw.
000030: 3B 20 7C 0D 0A 09 72 65 74 0D 0A 0D 0A 09 3B 2A  ; |...ret.....;*
000040: 2A 2A 20 52 4F 55 54 09 4D 65 73 73 61 67 65 20  ** ROUT.Message 
000050: 77 72 69 74 65 72 20 73 74 61 67 65 20 32 20 2D  writer stage 2 -
000060: 20 72 65 6D 6F 76 65 20 73 70 72 69 74 65 73 0D   remove sprites.
000070: 0A 0D 0A 2E 73 74 61 67 65 32 09 6C 64 20 64 65  ....stage2.ld de
000080: 2C 28 72 69 67 68 74 78 29 3A 20 6C 64 20 68 6C  ,(rightx): ld hl
000090: 2C 73 70 72 73 74 32 3A 20 63 61 6C 6C 20 64 72  ,sprst2: call dr
0000A0: 61 77 0D 0A 09 6C 64 20 64 65 2C 28 6C 65 66 74  aw...ld de,(left
0000B0: 78 20 29 3A 20 6C 64 20 68 6C 2C 73 70 72 73 74  x ): ld hl,sprst
0000C0: 31 3A 20 63 61 6C 6C 20 64 72 61 77 0D 0A 09 72  1: call draw...r
0000D0: 65 74 0D 0A 0D 0A 09 3B 2A 2A 2A 20 53 55 42 52  et.....;*** SUBR
0000E0: 09 53 74 6F 72 65 20 73 70 72 69 74 65 20 66 72  .Store sprite fr
0000F0: 6F 6D 20 48 4C 20 28 73 63 72 65 65 6E 29 20 69  om HL (screen) i
000100: 6E 20 44 45 20 28 64 61 74 61 29 0D 0A 0D 0A 2E  n DE (data).....
000110: 73 61 76 65 09 6C 64 20 61 2C 31 36 0D 0A 2E 73  save.ld a,16...s
000120: 61 76 65 6C 70 09 6C 64 69 3A 6C 64 69 3A 6C 64  avelp.ldi:ldi:ld
000130: 69 3A 6C 64 69 0D 0A 09 6C 64 20 62 63 2C 26 30  i:ldi...ld bc,&0
000140: 37 46 43 3A 20 61 64 64 20 68 6C 2C 62 63 3A 20  7FC: add hl,bc: 
000150: 62 69 74 20 36 2C 68 3A 20 6A 70 20 7A 2C 73 6E  bit 6,h: jp z,sn
000160: 65 78 74 0D 0A 09 6C 64 20 62 63 2C 26 43 30 36  ext...ld bc,&C06
000170: 30 3A 20 61 64 64 20 68 6C 2C 62 63 0D 0A 2E 73  0: add hl,bc...s
000180: 6E 65 78 74 09 64 65 63 20 61 3A 20 6A 70 20 6E  next.dec a: jp n
000190: 7A 2C 73 61 76 65 6C 70 3A 20 72 65 74 0D 0A 0D  z,savelp: ret...
0001A0: 0A 09 3B 2A 2A 2A 20 53 55 42 52 09 44 72 61 77  ..;*** SUBR.Draw
0001B0: 20 73 70 72 69 74 65 20 66 72 6F 6D 20 48 4C 20   sprite from HL 
0001C0: 28 64 61 74 61 29 20 61 74 20 44 45 20 28 73 63  (data) at DE (sc
0001D0: 72 65 65 6E 29 0D 0A 0D 0A 2E 64 72 61 77 09 6C  reen).....draw.l
0001E0: 64 20 61 2C 31 36 0D 0A 2E 64 72 61 77 6C 70 09  d a,16...drawlp.
0001F0: 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A 6C 64 69 3A  ldi:ldi:ldi:ldi:

Size : 512 (Real : 512)
000000: 2C 34 38 2C 33 37 2C 32 37 2C 31 38 2C 31 31 2C  ,48,37,27,18,11,
000010: 35 2C 32 2C 31 2C 32 2C 35 2C 31 31 2C 31 38 2C  5,2,1,2,5,11,18,
000020: 32 37 2C 33 37 2C 34 38 2C 33 37 2C 32 37 2C 31  27,37,48,37,27,1
000030: 38 2C 31 31 2C 35 2C 32 2C 31 2C 32 2C 35 2C 31  8,11,5,2,1,2,5,1
000040: 31 2C 31 38 2C 32 37 2C 33 37 2C 34 38 2C 30 0D  1,18,27,37,48,0.
000050: 0A 09 64 62 20 34 38 2C 33 36 2C 32 36 2C 31 36  ..db 48,36,26,16
000060: 2C 39 2C 34 2C 31 2C 31 2C 34 2C 39 2C 31 36 2C  ,9,4,1,1,4,9,16,
000070: 32 36 2C 33 36 2C 34 38 2C 33 36 2C 32 36 2C 31  26,36,48,36,26,1
000080: 36 2C 39 2C 34 2C 31 2C 31 2C 34 2C 39 2C 31 36  6,9,4,1,1,4,9,16
000090: 2C 32 36 2C 33 36 2C 34 38 2C 33 36 2C 32 36 2C  ,26,36,48,36,26,
0000A0: 31 36 2C 39 2C 34 2C 31 2C 31 2C 34 2C 39 2C 31  16,9,4,1,1,4,9,1
0000B0: 36 2C 32 36 2C 33 36 2C 34 38 2C 33 36 2C 32 36  6,26,36,48,36,26
0000C0: 2C 31 36 2C 39 2C 34 2C 31 2C 31 2C 34 2C 39 2C  ,16,9,4,1,1,4,9,
0000D0: 31 36 2C 32 36 2C 33 36 2C 34 38 2C 30 0D 0A 09  16,26,36,48,0...
0000E0: 64 62 20 34 38 2C 33 35 2C 32 34 2C 31 34 2C 37  db 48,35,24,14,7
0000F0: 2C 32 2C 31 2C 32 2C 37 2C 31 34 2C 32 34 2C 33  ,2,1,2,7,14,24,3
000100: 35 2C 34 38 2C 33 35 2C 32 34 2C 31 34 2C 37 2C  5,48,35,24,14,7,
000110: 32 2C 31 2C 32 2C 37 2C 31 34 2C 32 34 2C 33 35  2,1,2,7,14,24,35
000120: 2C 34 38 2C 33 35 2C 32 34 2C 31 34 2C 37 2C 32  ,48,35,24,14,7,2
000130: 2C 31 2C 32 2C 37 2C 31 34 2C 32 34 2C 33 35 2C  ,1,2,7,14,24,35,
000140: 34 38 2C 33 35 2C 32 34 2C 31 34 2C 37 2C 32 2C  48,35,24,14,7,2,
000150: 31 2C 32 2C 37 2C 31 34 2C 32 34 2C 33 35 2C 34  1,2,7,14,24,35,4
000160: 38 2C 30 0D 0A 09 64 62 20 30 0D 0A 0D 0A 09 3B  8,0...db 0.....;
000170: 2A 2A 2A 20 56 41 52 49 09 4D 65 73 73 61 67 65  *** VARI.Message
000180: 20 77 72 69 74 65 72 20 76 61 72 69 61 62 6C 65   writer variable
000190: 73 0D 0A 0D 0A 2E 73 70 72 73 74 31 09 64 73 20  s.....sprst1.ds 
0001A0: 36 34 09 09 09 09 09 3B 44 6F 6E 27 74 20 77 69  64.....;Don't wi
0001B0: 70 65 20 62 61 63 6B 67 72 6F 75 6E 64 0D 0A 2E  pe background...
0001C0: 73 70 72 73 74 32 09 64 73 20 36 34 09 09 09 09  sprst2.ds 64....
0001D0: 09 3B 20 7C 0D 0A 0D 0A 2E 62 6F 75 6E 63 78 09  .; |.....bouncx.
0001E0: 64 62 20 26 46 46 09 09 09 09 09 3B 43 75 72 72  db &FF.....;Curr
0001F0: 65 6E 74 20 58 20 70 6F 73 69 74 69 6F 6E 0D 0A  ent X position..

Size : 512 (Real : 512)
000000: 4D 50 4C 45 54 45 20 48 49 53 20 4E 4F 56 45 4C  MPLETE HIS NOVEL
000010: 20 22 0D 0A 09 64 62 20 22 45 4E 54 49 54 4C 45   "...db "ENTITLE
000020: 44 20 31 30 30 31 20 54 48 49 4E 47 53 20 54 4F  D 1001 THINGS TO
000030: 20 44 4F 20 57 49 54 48 20 59 4F 55 52 20 47 45   DO WITH YOUR GE
000040: 52 42 49 4C 20 44 52 4F 50 50 49 4E 47 53 2E 20  RBIL DROPPINGS. 
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A               "..
000060: 0D 0A 09 64 62 20 22 4E 4F 57 20 59 4F 55 20 48  ...db "NOW YOU H
000070: 41 56 45 20 42 45 45 4E 20 4F 46 46 49 43 49 41  AVE BEEN OFFICIA
000080: 4C 4C 59 20 57 45 4C 43 4F 4D 45 44 20 49 4E 54  LLY WELCOMED INT
000090: 4F 20 54 48 49 53 20 44 45 4D 4F 2C 20 53 4F 20  O THIS DEMO, SO 
0000A0: 59 4F 55 20 57 49 4C 4C 20 4E 4F 57 20 22 0D 0A  YOU WILL NOW "..
0000B0: 09 64 62 20 22 42 45 20 55 4E 4F 46 46 49 43 49  .db "BE UNOFFICI
0000C0: 41 4C 4C 59 20 57 45 4C 43 4F 4D 45 44 20 49 4E  ALLY WELCOMED IN
0000D0: 54 4F 20 54 48 49 53 20 44 45 4D 4F 2C 20 53 4F  TO THIS DEMO, SO
0000E0: 20 48 45 52 45 20 47 4F 45 53 20 20 20 20 20 20   HERE GOES      
0000F0: 20 57 45 4C 43 4F 4D 45 20 49 4E 20 22 0D 0A 09   WELCOME IN "...
000100: 64 62 20 22 4F 55 52 20 57 4F 4E 44 45 52 46 55  db "OUR WONDERFU
000110: 4C 20 57 4F 52 4C 44 20 4F 46 20 44 45 4D 4F 2E  L WORLD OF DEMO.
000120: 20 53 4F 20 57 45 4C 43 4F 4D 45 20 41 47 41 49   SO WELCOME AGAI
000130: 4E 2C 20 43 41 54 45 52 49 4E 47 20 49 53 20 42  N, CATERING IS B
000140: 59 20 45 57 41 52 57 4F 4F 57 4F 4F 20 22 0D 0A  Y EWARWOOWOO "..
000150: 09 64 62 20 22 43 41 54 45 52 49 4E 47 20 43 4F  .db "CATERING CO
000160: 52 50 4F 52 41 54 49 4F 4E 20 41 4E 44 20 4F 4E  RPORATION AND ON
000170: 4C 59 20 43 4F 4E 53 49 53 54 53 20 4F 46 20 43  LY CONSISTS OF C
000180: 52 49 53 50 53 20 57 48 49 43 48 20 53 4D 45 4C  RISPS WHICH SMEL
000190: 4C 20 28 41 4E 44 20 22 0D 0A 09 64 62 20 22 54  L (AND "...db "T
0001A0: 41 53 54 45 29 20 4C 49 4B 45 20 55 4E 57 41 53  ASTE) LIKE UNWAS
0001B0: 48 45 44 20 47 45 4E 49 54 41 4C 49 41 2E 20 20  HED GENITALIA.  
0001C0: 54 48 49 53 20 44 45 4D 4F 20 49 53 20 44 45 44  THIS DEMO IS DED
0001D0: 49 43 41 54 45 44 20 54 4F 20 54 41 4D 53 49 4E  ICATED TO TAMSIN
0001E0: 20 54 48 45 20 22 0D 0A 09 64 62 20 22 57 4F 4E   THE "...db "WON
0001F0: 44 52 4F 55 53 20 43 41 54 2E 20 20 20 20 4E 4F  DROUS CAT.    NO

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: 57 20 49 54 20 49 5A 20 44 41 20 43 52 45 44 49  W IT IZ DA CREDI
000010: 54 5A 20 49 4E 20 57 48 49 43 48 20 46 4F 52 20  TZ IN WHICH FOR 
000020: 57 48 4F 20 57 45 20 41 52 45 20 59 4F 55 20 57  WHO WE ARE YOU W
000030: 45 4C 43 4F 4D 49 4E 47 20 22 0D 0A 09 64 62 20  ELCOMING "...db 
000040: 22 59 45 53 20 50 4C 45 41 53 45 20 4D 41 54 52  "YES PLEASE MATR
000050: 4F 4E 2E 20 20 20 20 20 20 48 49 47 48 2D 46 52  ON.      HIGH-FR
000060: 45 51 55 45 4E 43 59 20 53 4F 55 4E 44 53 20 54  EQUENCY SOUNDS T
000070: 48 41 4E 58 20 54 4F 20 54 4F 4D 20 44 45 41 4E  HANX TO TOM DEAN
000080: 20 4F 46 20 53 51 55 45 41 4B 59 20 22 0D 0A 09   OF SQUEAKY "...
000090: 64 62 20 22 53 59 53 54 45 4D 21 20 20 20 20 52  db "SYSTEM!    R
0000A0: 41 44 49 4B 41 4C 20 47 46 58 5A 58 5A 5A 5A 58  ADIKAL GFXZXZZZX
0000B0: 20 42 59 20 47 4F 4E 4F 52 52 48 4F 45 41 20 4F   BY GONORRHOEA O
0000C0: 46 20 53 59 50 48 49 4C 49 53 2E 20 41 4C 53 4F  F SYPHILIS. ALSO
0000D0: 20 47 46 58 5A 5A 58 5A 58 58 5A 51 20 22 0D 0A   GFXZZXZXXZQ "..
0000E0: 09 64 62 20 22 49 53 20 53 43 4F 52 49 4E 47 20  .db "IS SCORING 
0000F0: 35 31 37 20 50 4F 49 4E 54 53 20 41 54 20 53 43  517 POINTS AT SC
000100: 52 41 42 42 4C 45 20 49 46 20 59 4F 55 20 47 45  RABBLE IF YOU GE
000110: 54 20 49 54 20 4F 4E 20 41 20 54 52 49 50 4C 45  T IT ON A TRIPLE
000120: 2D 57 4F 52 22 0D 0A 6C 69 73 74 0D 0A 09 64 62  -WOR"..list...db
000130: 20 30 0D 0A 1A 20 74 68 65 20 57 6F 6E 64 65 72   0... the Wonder
000140: 20 43 61 74 0D 0A 0D 0A 09 6F 72 67 20 26 38 30   Cat.....org &80
000150: 30 30 0D 0A 09 77 72 69 74 65 20 22 64 69 73 63  00...write "disc
000160: 2E 62 69 6E 22 0D 0A 09 6E 6F 6C 69 73 74 0D 0A  .bin"...nolist..
000170: 0D 0A 09 3B 44 65 6D 6F 20 73 68 6F 72 74 2C 20  ...;Demo short, 
000180: 52 49 53 50 53 20 57 48 49 43 48 20 53 4D 45 4C  RISPS WHICH SMEL
000190: 4C 20 28 41 4E 44 20 22 0D 0A 09 64 62 20 22 54  L (AND "...db "T
0001A0: 41 53 54 45 29 20 4C 49 4B 45 20 55 4E 57 41 53  ASTE) LIKE UNWAS
0001B0: 48 45 44 20 47 45 4E 49 54 41 4C 49 41 2E 20 20  HED GENITALIA.  
0001C0: 54 48 49 53 20 44 45 4D 4F 20 49 53 20 44 45 44  THIS DEMO IS DED
0001D0: 49 43 41 54 45 44 20 54 4F 20 54 41 4D 53 49 4E  ICATED TO TAMSIN
0001E0: 20 54 48 45 20 22 0D 0A 09 64 62 20 22 57 4F 4E   THE "...db "WON
0001F0: 44 52 4F 55 53 20 43 41 54 2E 20 20 20 20 4E 4F  DROUS CAT.    NO

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: 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: 53 20 49 53 20 44 41 20 46 55 43 4B 49 4E 20 53  S IS DA FUCKIN S
000010: 5A 45 4E 45 20 4D 4F 42 20 53 54 53 20 57 49 54  ZENE MOB STS WIT
000020: 48 20 44 41 20 4C 41 54 45 53 54 20 57 41 52 45  H DA LATEST WARE
000030: 5A 20 46 52 4F 4D 20 5A 45 20 53 5A 45 4E 45 2E  Z FROM ZE SZENE.
000040: 20 22 0D 0A 09 64 62 20 22 41 4C 4C 20 43 4F 44   "...db "ALL COD
000050: 49 4E 47 20 42 59 20 43 52 4F 57 4E 20 4F 46 20  ING BY CROWN OF 
000060: 53 54 53 2E 20 47 52 41 46 49 58 20 42 59 20 4B  STS. GRAFIX BY K
000070: 4E 55 55 55 55 54 53 43 48 46 4C 45 43 4B 20 4F  NUUUUTSCHFLECK O
000080: 46 20 49 46 57 20 22 0D 0A 09 64 62 20 22 28 49  F IFW "...db "(I
000090: 4E 43 4F 4D 50 45 54 45 4E 54 20 46 55 43 4B 57  NCOMPETENT FUCKW
0000A0: 49 54 53 29 2E 20 4D 55 53 49 58 58 20 42 59 20  ITS). MUSIXX BY 
0000B0: 4B 41 4E 47 41 52 4F 4F 20 4F 46 20 41 52 53 45  KANGAROO OF ARSE
0000C0: 42 41 4E 44 49 54 20 50 52 4F 44 55 43 54 49 4F  BANDIT PRODUCTIO
0000D0: 4E 53 20 22 0D 0A 09 64 62 20 22 47 4D 42 48 2E  NS "...db "GMBH.
0000E0: 20 4A 4F 42 42 49 4E 47 20 49 4E 54 4F 20 41 20   JOBBING INTO A 
0000F0: 57 41 4C 4C 20 49 4E 20 4D 4F 4E 41 43 4F 20 42  WALL IN MONACO B
000100: 59 20 4D 49 43 48 41 45 4C 20 53 43 48 55 4D 41  Y MICHAEL SCHUMA
000110: 43 48 45 52 2E 20 46 52 49 44 47 45 20 22 0D 0A  CHER. FRIDGE "..
000120: 09 64 62 20 22 4D 41 47 4E 45 54 2E 20 47 52 45  .db "MAGNET. GRE
000130: 45 54 49 4E 47 20 46 52 4F 4D 20 4E 49 50 50 4C  ETING FROM NIPPL
000140: 45 20 43 4C 41 4D 50 20 4F 46 20 53 54 53 2E 20  E CLAMP OF STS. 
000150: 48 49 20 54 48 45 52 45 2C 20 57 45 4C 43 4F 4D  HI THERE, WELCOM
000160: 45 20 49 4E 20 54 48 49 53 20 22 0D 0A 09 64 62  E IN THIS "...db
000170: 20 22 44 45 4D 4F 2C 20 49 4E 20 57 48 49 43 48   "DEMO, IN WHICH
000180: 20 49 20 41 4D 20 57 45 4C 43 4F 4D 49 4E 47 20   I AM WELCOMING 
000190: 59 4F 55 20 49 4E 2E 20 41 47 41 49 4E 2E 20 54  YOU IN. AGAIN. T
0001A0: 48 49 53 20 49 53 20 4E 49 50 50 4C 45 20 43 4C  HIS IS NIPPLE CL
0001B0: 41 4D 50 20 22 0D 0A 09 64 62 20 22 53 50 45 41  AMP "...db "SPEA
0001C0: 4B 49 4E 47 2C 20 4F 52 20 52 41 54 48 45 52 2C  KING, OR RATHER,
0001D0: 20 57 52 49 54 49 4E 47 20 48 41 21 20 48 41 21   WRITING HA! HA!
0001E0: 20 49 4E 20 54 48 49 53 20 44 45 4D 4F 20 49 4E   IN THIS DEMO IN
0001F0: 20 57 48 49 43 48 20 59 4F 55 20 41 52 45 20 22   WHICH YOU ARE "

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 64 62 20 22 42 45 49 4E 47 20 57 45 4C  ...db "BEING WEL
000010: 43 4F 4D 45 44 2E 20 47 52 45 45 54 49 4E 58 53  COMED. GREETINXS
000020: 20 54 4F 20 54 48 45 20 45 55 52 4F 50 45 41 4E   TO THE EUROPEAN
000030: 20 4D 45 4D 42 45 52 53 20 4F 46 20 53 54 53 2E   MEMBERS OF STS.
000040: 20 54 48 45 53 45 20 41 52 45 20 22 0D 0A 09 64   THESE ARE "...d
000050: 62 20 22 54 48 45 20 4D 45 4E 20 57 48 4F 4D 20  b "THE MEN WHOM 
000060: 49 20 41 4D 20 4E 4F 57 20 57 45 4C 43 4F 4D 49  I AM NOW WELCOMI
000070: 4E 47 2E 20 42 45 41 52 44 45 44 20 43 4C 41 4D  NG. BEARDED CLAM
000080: 20 2D 20 4E 49 43 45 20 54 49 4E 42 41 42 55 4C   - NICE TINBABUL
000090: 41 54 49 4F 4E 20 49 4E 20 22 0D 0A 09 64 62 20  ATION IN "...db 
0000A0: 22 59 4F 55 52 20 43 4C 49 54 4F 52 49 53 20 44  "YOUR CLITORIS D
0000B0: 45 4D 4F 2E 20 43 48 45 45 53 59 20 48 45 4C 4D  EMO. CHEESY HELM
0000C0: 45 54 20 46 4C 41 4B 45 53 20 2D 20 4C 4F 4F 4B  ET FLAKES - LOOK
0000D0: 20 46 4F 52 57 41 52 44 20 54 4F 20 53 45 45 49   FORWARD TO SEEI
0000E0: 4E 47 20 22 0D 0A 09 64 62 20 22 59 4F 55 52 20  NG "...db "YOUR 
0000F0: 4C 41 54 45 53 54 20 55 54 49 4C 49 54 59 2C 20  LATEST UTILITY, 
000100: 43 48 45 45 53 45 20 43 4C 4F 4E 45 52 2E 20 50  CHEESE CLONER. P
000110: 49 53 53 46 4C 41 50 53 20 2D 20 47 52 45 41 54  ISSFLAPS - GREAT
000120: 20 50 45 52 53 49 53 54 49 4E 41 54 49 4F 4E 20   PERSISTINATION 
000130: 22 0D 0A 09 64 62 20 22 4D 41 54 45 2C 20 4B 45  "...db "MATE, KE
000140: 45 50 20 55 50 20 54 48 45 20 46 52 59 49 4E 47  EP UP THE FRYING
000150: 20 50 41 4E 2E 20 20 20 47 41 4C 4C 4F 50 49 4E   PAN.   GALLOPIN
000160: 47 20 4E 4F 42 20 52 4F 54 20 2D 20 4E 49 43 45  G NOB ROT - NICE
000170: 20 53 41 4C 53 41 20 49 4E 20 59 4F 55 52 20 22   SALSA IN YOUR "
000180: 0D 0A 09 64 62 20 22 50 52 45 54 5A 45 4C 53 21  ...db "PRETZELS!
000190: 20 57 45 20 41 4C 53 4F 20 48 41 56 45 20 56 41   WE ALSO HAVE VA
0001A0: 4C 55 41 42 4C 45 20 49 4E 50 55 54 20 46 52 4F  LUABLE INPUT FRO
0001B0: 4D 20 45 57 41 52 57 4F 4F 57 4F 4F 20 57 48 4F  M EWARWOOWOO WHO
0001C0: 53 45 20 4F 4E 4C 59 20 22 0D 0A 09 64 62 20 22  SE ONLY "...db "
0001D0: 50 55 52 50 4F 53 45 20 49 4E 20 48 49 53 20 56  PURPOSE IN HIS V
0001E0: 45 52 59 20 53 41 44 2C 20 44 41 52 4B 20 45 58  ERY SAD, DARK EX
0001F0: 49 53 54 45 4E 43 45 20 49 53 20 54 4F 20 43 4F  ISTENCE IS TO CO

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: 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: 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: 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: 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: 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: 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: 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: 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: 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: 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: 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: C3 3F 22 F3 E1 31 00 C0 E5 01 8C 7F ED 49 DD 21  .?"..1.......I.!
000010: DE B2 CD FD B2 01 C0 7F ED 49 3E 14 C3 51 B3 C0  .........I>..Q..
000020: 01 00 5F B3 C0 20 01 00 C0 C0 5D 09 00 06 C0 01  .._.. ....].....
000030: 28 BF B2 C4 20 14 00 40 C1 20 05 00 C0 FF 06 7F  (... ..@. ......
000040: DD 4E 00 DD 23 ED 49 DD 46 00 DD 23 DD 5E 00 DD  .N..#.I.F..#.^..
000050: 23 DD 6E 00 DD 23 DD 66 00 DD 23 16 01 F5 C5 D5  #.n..#.f..#.....
000060: E5 DD E5 FD E5 7A CD 51 B3 7B CD C2 89 FD E1 DD  .....z.Q.{......
000070: E1 E1 D1 14 14 7A FE 0B 20 02 16 02 FE 0A 20 03  .....z.. ..... .
000080: 1C 16 01 01 00 02 09 C1 F1 10 D2 DD 7E 00 3C 20  ............~.< 
000090: AD C9 F5 C5 01 10 7F ED 49 F6 40 ED 79 C1 F1 C9  ........I.@.y...
0000A0: F3 31 00 01 21 00 80 CD D8 02 01 8C 7F ED 49 11  .1..!.........I.
0000B0: 0C 30 CD 5E 01 1C 16 00 CD 5E 01 21 20 FE 22 00  .0.^.....^.! .".
0000C0: 03 DD 21 44 01 CD 66 01 21 D0 FF CD D8 02 DD 21  ..!D..f.!......!
0000D0: 58 01 CD 66 01 DD 21 4A 01 CD 66 01 01 C0 7F ED  X..f..!J..f.....
0000E0: 49 C3 00 03 C0 20 01 00 C0 FF C1 5D 09 00 06 20  I.... .....]... 
0000F0: 05 00 C0 01 28 00 03 FF C4 20 14 00 40 FF 06 BC  ....(.... ..@...
000100: ED 59 04 ED 51 C9 06 7F DD 4E 00 DD 23 ED 49 DD  .Y..Q....N..#.I.
000110: 46 00 DD 23 DD 5E 00 DD 23 DD 6E 00 DD 23 DD 66  F..#.^..#.n..#.f
000120: 00 DD 23 16 01 F5 C5 D5 E5 DD E5 7B CD B2 01 DD  ..#........{....
000130: E1 E1 D1 14 14 7A FE 0B 20 02 16 02 FE 0A 20 03  .....z.. ..... .
000140: 1C 16 01 01 00 02 09 C1 F1 10 DA DD CB 00 7E 28  ..............~(
000150: BE C9 32 CC 02 3D 32 B7 02 7A 32 55 02 22 CA 02  ..2..=2..z2U."..
000160: 01 7E FA 3E 01 ED 79 FD 21 CE 02 DD 21 BA 02 CD  .~.>..y.!...!...
000170: 6D 02 FD 21 CE 02 FD 7E 00 B7 20 EF 3A CD 02 B7  m..!...~.. .:...
000180: 20 20 3C 32 CD 02 DD 21 C7 02 CD 6D 02 FD 21 CE    <2...!...m..!.
000190: 02 DD 21 B8 02 CD 6D 02 FD 21 CE 02 FD CB 00 6E  ..!...m..!.....n
0001A0: 28 EF FD 21 CE 02 DD 21 B4 02 DD 34 03 CD 6D 02  (..!...!...4..m.
0001B0: FD 21 CE 02 DD 21 B8 02 CD 6D 02 FD 21 CE 02 FD  .!...!...m..!...
0001C0: CB 00 6E 28 EF DD 21 BA 02 CD 6D 02 DD 21 B4 02  ..n(..!...m..!..
0001D0: FD 21 CE 02 FD 7E 03 DD BE 03 20 D1 DD 21 BD 02  .!...~.... ..!..
0001E0: FD 6E 03 FD 66 04 DD 75 03 DD 74 04 FD 66 06 FD  .n..f..u..t..f..
0001F0: 7E 05 E6 F0 F6 00 DD 77 05 DD 74 06 DD 77 07 FD  ~......w..t..w..

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: 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: 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: 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: 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: 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  ................