1               /TOGGLE-IN (OR RIM/BIN IN) BOOTLOADER
   2               /LOAD AT 0017
   3               /START SERVER ON PC
   4               /CLEAR/CONTINUE AT 0020
   5               
   6               BASER=6400
   7               BASET=6410
   8               /BASER=6030
   9               /BASET=6040
  10               
  11               SKSF=BASER+1
  12               SKCC=BASER+2
  13               SKRS=BASER+4
  14               SKRB=BASER+6
  15               
  16               STSF=BASET+1
  17               /STCF=BASET+2
  18               /STPC=BASET+4
  19               STLS=BASET+6
  20               
  21               BOOT=0000
  22               
  23               ADDR=   17
  24                       *20
  25 000020  7240          CLA CMA         /AC=7777
  26 000021  3017          DCA ADDR        /SET UP ADDRESS
  27 000022  1044          TAD BOOTMS      /SEND BOOT MESSAGE TO SERVER
  28 000023  6416          STLS
  29 000024  6411          STSF
  30 000025  5024          JMP .-1
  31 000026  6402  RDLP,   SKCC            /CLEAR AC AND FLAG
  32 000027  6401          SKSF            /SKIP IF FLAG SET
  33 000030  5027          JMP .-1
  34 000031  6406          SKRB            /READ BUFFER
  35 000032  7106          CLL RTL         /ROTATE 6 LEFT
  36 000033  7006          RTL
  37 000034  7510          SPA             /CHANNEL 8 PUNCHED?
  38 000035  5000          JMP BOOT        /YES, CONTINUE BOOTING
  39 000036  7006          RTL
  40 000037  6401          SKSF            /SKIP IF FLAG SET
  41 000040  5037          JMP .-1
  42 000041  6404          SKRS            /OR BUFFER WITH AC
  43 000042  3417          DCA I ADDR      /STORE CONTENTS
  44 000043  5026          JMP RDLP        /KEEP LOOPING
  45 000044  0100  BOOTMS, 100             /"@" COMMAND TO SERVER
  46               $

ADDR    0017
BASER   6400
BASET   6410
BOOT    0000
BOOTMS  0044
RDLP    0026
SKCC    6402
SKRB    6406
SKRS    6404
SKSF    6401
STLS    6416
STSF    6411