Difference between revisions of "EZBOOTS.ASM"
(Initial creation) |
(No difference)
|
Revision as of 22:51, 31 July 2018
;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 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