Loading 4K & 8K BASIC from Cassette

** Set sense switch A12 ON (2SIO Terminal) **
** Set sens switch A9 & A8 ON (ACR Load) **

This is the program to cassette load via the front panel switches either 4K Basic 4.0 or 8K basic 4.0.  
The first instruction (LXI H,C2xx) is changed, depending on which Basic to load.

Don't forget to set the switches as indicated at the top after loading the program, 
but before hitting RUN.  Also don't forget to put the two DW bytes in after the program itself.

Address          Octal    ; Instruction/Data   Binary
000 000    041   LXI H
000 001    302   Low value to L
000 002    017   High value goes to H (017 for 4K BASIC 4.0, 037 for 8K BASIC 4.0)
000 003    061   LXI SP
000 004    022   low part of stack pointer (MUST point to last two bytes below)
000 005    000   High part of stack pointer       ''
000 006    333   INP    input from port
000 007    006   Cassette in status port
000 010    017   RRC (rotate right through carry)
000 011    330   RC (return if carry flag set)
000 012    333   INP    input from port
000 013    007   Cassette in DATA port
000 014    275   CMP L  compare with L register
000 015    310   RZ    Return if Zero flag set
000 016    055   DCR L    decrement L register
000 017    167   MOV M,A    save data in memory
000 020    300   RNZ    return if register L not zero
000 021    351   PCHL    exchange Program Counter with HL register pair
000  022   003   Low half of pointer back to address 000 003
000 023    000   High half of pointer back to address 000 003