;EZEOOTS.ASM VERSION 1.0 10/27/75 JR!

;AUTONATIC SOOTSTRAP SIMULATOR FOR STARTING CP/M
; IN SYSTEMS IN NMICM AUTOMATIC BOOTSTRAP DISK
; INTERFACE FIRMNARE HAS NOT YET BEEN INSTALLED.

;NOT NEEDED ONCE NEN PROM'S ARE INSTALLED IN PIP.

;THIS IS THE SHORT VERSION, SUITABLE FOR TOGGLINC IN.
;A SEPERATE VERSION, NITM ERROR RETRIES, IS
; RECOMMENDED IF YOU HAVE A HAY OP KEEPING IT RESIDENT.

BSBASE EQU 4000H    ;YOU MAY CHANGE THIS TO ANY VALUE
                    ;GREATER TNAT 7FH.‘IF BELOW “DOOM
                    ;PROGRAM MUST BE RELOADED EACM
                    ;TIME YOU WANT TO BOOT CPIM.

EXIT EQU O          ;HHERE TMIS PROGRAM EXITS TO
DISK    EQU 0FDH    ;FLOPPY DISK COMMAND OUTPUT PORT

        ORG BBASE           ;THIS IS ALSO START ADDRESS

;SET DISK INTERFACE STRING POINTER
    MVI A,10H       ;"SET STRING POINTER 0" COMMAND
    OUT DISK ;SEND COMMAND TD DISK INTERFACE
    MVI A.DCND AND OPFM 5L0 ORDER OF STRING LOC
    OUT DISK ;SEND TO DISK
    MVI A,ECMD SNR 8 AND OFFM 5MI ORDER MALE OF SAME
    OUT DISK -

;READ SECTOR. ONE TRY ONLY.
LXI H,DSTAT fiPOINT AT STATUS BYTE OF STRING

an A ;¢ET ZERO IN A

an M,A ;ZERO STATUS arr:

;u. 3. Ana IS ALSO Dts: COMMAND TO Do sraxuc 0

our 01:: ;oo :1:
war: ADD n 5LO0K no: now-o STATUS

J2 uAIr ;KEEP LOOKING TILL IT cones ‘
,ALL THAT IS ABSOLUTELY ESSENTIAL AT THIS POINT ts to 4MP 0.
HAND: ca! 1 ,rnxs cooE CAUSES A HAND HERE IF

JNZ HANG ;..DISK READ FAILED.

JMP ext? ;IEAD w»: on, Do To aourxn: READ IN.
:PRE-INITIALIZED COMMAND STRING POR DISK (nusr DE IN RAM)
acno: 03 21M ;CONMAND aer: READ, UNIT 1
BSTAT: on o ;STATUS BYTE, 5:? av DISK when DONE

on o :TRACK o (2 arrss) ‘

Do 1 ;secroa 1

on o ;eDuEFEA ADDuEss: READ TO LOCATION 0

END DBASE