EZBOOTS.ASM

From TheRetroWagon
Revision as of 22:51, 31 July 2018 by Jeffa (talk | contribs) (Initial creation)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
;EZEOOTS.ASM VERSION 1.0 10/27/75 JR!

)AUTONATIC SOOTSTRAP SIMULATOR FOR STARTING CP/M
5 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.

SBASE EQU DOOM gYOU MAY CHANGE THIS TO ANY VALUE
iGREATER TNAT 7FH.IF BELOW DOOM
5PROGRAM MUST BE RELOADED EACM
5TIME YOU WANT TO BOOT CPIM.

EXIT EOO O. ;HHERE TMIS PROGRAM EXITS TO

DISK EOU OPDM )FLOPPY DISK COMMAND OUTPUT PORT
ORG DEASE pTHIS IS ALSO START ADDRESS

;SET DISK INTERFACE STRING POINTER
MVI A,IOM ;"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 -

1READ SECTOR. ONE TRY ONLY.
LXI H,DSTAT POINT 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