* ZIP0:S
*
* Zeros memory from 0000H to BFFFH
*
* Used to Initialize memory for System Test
*
START EQU 0C900H    Program Starting Address
BOOTLOAD EQU 0C004H
*
  ORG START
  XEQ START
*
  LXI H,0000H       Starting Addresss Of Memory
  MVI A,0C0H        Ending Address of Memory <High Byte>
*
LOOP EQU $
 MVI M,00H          Write a Zero Byte to memory
 INX H              Increment Memory pointer
 CMP H              Check if Last Address
 JNZ LOOP           Loop If not done
*                   Else Boot Backup
*
* BOOTLOAD SOURCE CODE
*
SBOOT EQU $
 MVI  A,0CFH
 OUT 0F7H
 OUT 0F5H
 MVI  A,0FFH
 OUT 0F1H
*   
SBOT1 EQU $
 IN  0F0H
 ANI 040H
 JNZ SBOT1
 MVI  A,0DFH
 OUT 0F7H
SBOT2 EQU $
 IN  0F0H
 RLC
 JC  SBOT2
 LXI  B,01290H
SBOT3 EQU $
 DCX  B
 MOV  A,B
 ORA  C
 JNZ SBOT3
SBOT4 EQU $
 IN  0F0H
 RLC
 JC  SBOT4
SBOT5 EQU $
 IN  0F0H
 ANI  02H
 JZ  SBOT5
 XRA  A
 OUT 0F5H
 OUT 0F6H
 LXI  H,00340H
 MOV  A,L
 OUT 0F3H
 MOV  A,H
 OUT 0F4H
 MVI  A,003H
 OUT 0F1H
SBOT6 EQU $
 IN  0F0H
 ANI 01BH
 JZ  SBOT6
 ANI 008H
 JNZ SBOOT
 IN  0F0H
 ANI 003H
 JZ  SBOT6
 RST  00H
 HLT .