EZBOOTS.ASM - Revision history

Jeffa: Add Category:Imsai

2018-08-03T02:35:48Z

Add Category:Imsai

Jeffa: Add Category:Code

2018-08-03T02:30:43Z

Add Category:Code

Jeffa: Correcting comment typos

2018-08-01T16:41:50Z

Correcting comment typos

Jeffa: Correct ; from : for comment line

2018-07-31T22:55:11Z

Correct ; from : for comment line

Jeffa: 3rd entry

2018-07-31T22:53:53Z

3rd entry

Jeffa: 2nd entry

2018-07-31T22:52:26Z

2nd entry

Jeffa: Initial creation

2018-07-31T22:51:43Z

Initial creation

New page

<syntaxhighlight lang="asm">
;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

</syntaxhighlight>

← Older revision		Revision as of 02:35, 3 August 2018
Line 53:		Line 53:
	</syntaxhighlight>		</syntaxhighlight>
	[[Category:Code]]		[[Category:Code]]
		+	[[Category:Imsai]]

← Older revision		Revision as of 02:30, 3 August 2018
Line 52:		Line 52:
	END DBASE		END DBASE
	</syntaxhighlight>		</syntaxhighlight>
		+	[[Category:Code]]

@@ Line 2: / Line 2: @@
 ; JHA 7/29/2018
 ; ocr'ED an IMAGE of this, then cleaned it up a bunch
 ;EZEOOTS.ASM VERSION 1.0 10/27/75 JRB
-;AUTONATIC SOOTSTRAP SIMULATOR FOR STARTING CP/M
+;AUTOMATIC BOOTSTRAP SIMULATOR FOR STARTING CP/M
-; IN SYSTEMS IN NMICM AUTOMATIC BOOTSTRAP DISK
+; IN SYSTEMS IN WHICH AUTOMATIC BOOTSTRAP DISK
 ; INTERFACE FIRMNARE HAS NOT YET BEEN INSTALLED.
-;NOT NEEDED ONCE NEN PROM'S ARE INSTALLED IN PIP.
+;NOT NEEDED ONCE NEW PROM'S ARE INSTALLED IN FIF.
 ;THIS IS THE SHORT VERSION, SUITABLE FOR TOGGLINC IN.
-;A SEPERATE VERSION, NITM ERROR RETRIES, IS
+;A SEPERATE VERSION, WITH ERROR RETRIES, IS
-; RECOMMENDED IF YOU HAVE A HAY OP KEEPING IT RESIDENT.
+; RECOMMENDED IF YOU HAVE A WAY OP KEEPING IT RESIDENT.
 BSBASE  EQU 4000H    ;YOU MAY CHANGE THIS TO ANY VALUE
-                     ;GREATER TNAT 7FH.‘IF BELOW “DOOM
+                     ;GREATER THAT 7FH.IF BELOW 4000H
                      ;PROGRAM MUST BE RELOADED EACM
                      ;TIME YOU WANT TO BOOT CP/M.
@@ Line 28: / Line 29: @@
          MVI A.BCMD AND 0FFH     ;LO ORDER OF STRING LOC
          OUT DISK    ;SEND TO DISK
-         MVI A,BCMD SHR 8 AND 0FFM   ;HI ORDER MALE OF SAME
+         MVI A,BCMD SHR 8 AND 0FFM   ;HI ORDER HALF OF SAME
          OUT DISK
 ;READ SECTOR. ONE TRY ONLY.
          LXI H,BSTAT ;POINT AT STATUS BYTE OF STRING
          XRA A       ; SET ZERO IN A
-         MOV M,A     ;ZERO STATUS arr:
+         MOV M,A     ;ZERO STATUS BYTE
          ; N. B. A=0 IS ALSO Disk COMMAND TO DO STRING 0
          OUT DISK    ;DO IT!
@@ Line 42: / Line 43: @@
          JNZ HANG    ;..DISK READ FAILED.
          JMP EXIT    ;READ WAS ok, GO TO ROUTINE READ IN.
-;PRE-INITIALIZED COMMAND STRING POR DISK (MUST BE IN RAM)
+;PRE-INITIALIZED COMMAND STRING FOR DISK (MUST BE IN RAM)
 BCMD:   DB  21H     ;CONMAND BYTE: READ, UNIT 1
-BSTAT:  DB  0       ;STATUS BYTE, SET BY DISK when DONE
+BSTAT:  DB  0       ;STATUS BYTE, SET BY DISK WHEN DONE
          DW  0       :TRACK 0 (2 BYTES)
          DB  1       ;SECTOR 1

@@ Line 42: / Line 42: @@
          JNZ HANG    ;..DISK READ FAILED.
          JMP EXIT    ;READ WAS ok, GO TO ROUTINE READ IN.
-:PRE-INITIALIZED COMMAND STRING POR DISK (MUST BE IN RAM)
+;PRE-INITIALIZED COMMAND STRING POR DISK (MUST BE IN RAM)
 BCMD:   DB  21H     ;CONMAND BYTE: READ, UNIT 1
 BSTAT:  DB  0       ;STATUS BYTE, SET BY DISK when DONE

@@ Line 1: / Line 1: @@
-<syntaxhighlight lang="asm">;EZEOOTS.ASM VERSION 1.0 10/27/75 JR!
+<syntaxhighlight lang="asm">
-)AUTONATIC SOOTSTRAP SIMULATOR FOR STARTING CP/M
+;EZEOOTS.ASM VERSION 1.0 10/27/75 JRB
-IN SYSTEMS IN NMICM AUTOMATIC BOOTSTRAP DISK
 ; INTERFACE FIRMNARE HAS NOT YET BEEN INSTALLED.
@@ Line 11: / Line 15: @@
 ; RECOMMENDED IF YOU HAVE A HAY OP KEEPING IT RESIDENT.
-SBASE EQU “DOOM gYOU MAY CHANGE THIS TO ANY VALUE
+BSBASE  EQU 4000H    ;YOU MAY CHANGE THIS TO ANY VALUE
-iGREATER TNAT 7FH.‘IF BELOW “DOOM
+                    ;GREATER TNAT 7FH.‘IF BELOW “DOOM
-PROGRAM MUST BE RELOADED EACM
+                    ;PROGRAM MUST BE RELOADED EACM
-TIME YOU WANT TO BOOT CPIM.
+                    ;TIME YOU WANT TO BOOT CP/M.
+EXIT    EQU O       ;WHERE TMIS PROGRAM EXITS TO
-EXIT EOO O. ;HHERE TMIS PROGRAM EXITS TO
+DISK    EQU 0FDH    ;FLOPPY DISK COMMAND OUTPUT PORT
 ;SET DISK INTERFACE STRING POINTER
-MVI A,IOM ;"SET STRING POINTER 0" COMMAND
+        MVI A,10H   ;"SET STRING POINTER 0" COMMAND
-OUT DISK ;SEND COMMAND TD DISK INTERFACE
+        OUT DISK    ;SEND COMMAND TD DISK INTERFACE
-MVI A.DCND AND OPFM 5L0 ORDER OF STRING LOC
+        MVI A.BCMD AND 0FFH     ;LO ORDER OF STRING LOC
-OUT DISK ;SEND TO DISK
+        OUT DISK    ;SEND TO DISK
-MVI A,ECMD SNR 8 AND OFFM 5MI ORDER MALE OF SAME
+        MVI A,BCMD SHR 8 AND 0FFM   ;HI ORDER MALE OF SAME
-OUT DISK -
+        OUT DISK
+;READ SECTOR. ONE TRY ONLY.
-READ SECTOR. ONE TRY ONLY.
+        LXI H,BSTAT ;POINT AT STATUS BYTE OF STRING
-LXI H,DSTAT ﬁPOINT AT STATUS BYTE OF STRING
+        XRA A       ; SET ZERO IN A
+        MOV M,A     ;ZERO STATUS arr:
-an A ;¢ET ZERO IN A
+        ; N. B. A=0 IS ALSO Disk COMMAND TO DO STRING 0
+        OUT DISK    ;DO IT!
-an M,A ;ZERO STATUS arr:
+WAIT:   ADD M       ;LOOK FOR NON-0 STATUS
+        JZ  WAIT    ;KEEP LOOKING TILL IT COMES
-;u. 3. Ana IS ALSO Dts: COMMAND TO Do sraxuc 0
+;ALL THAT IS ABSOLUTELY ESSENTIAL AT THIS POINT IS TO JMP 0.
+HANG:   CPI 1       ; THIS CODE CAUSES A HAND HERE IF
-our 01:: ;oo :1:
+        JNZ HANG    ;..DISK READ FAILED.
-war: ADD n 5LO0K no: now-o STATUS
+        JMP EXIT    ;READ WAS ok, GO TO ROUTINE READ IN.
+:PRE-INITIALIZED COMMAND STRING POR DISK (MUST BE IN RAM)
-J2 uAIr ;KEEP LOOKING TILL IT cones ‘
+BCMD:   DB  21H     ;CONMAND BYTE: READ, UNIT 1
-,ALL THAT IS ABSOLUTELY ESSENTIAL AT THIS POINT ts to 4MP 0.
+BSTAT:  DB  0       ;STATUS BYTE, SET BY DISK when DONE
-HAND: ca! 1 ,rnxs cooE CAUSES A HAND HERE IF
+        DW  0       :TRACK 0 (2 BYTES)
+        DB  1       ;SECTOR 1
-JNZ HANG ;..DISK READ FAILED.
+        DW  0       ;BBUFFER ADDRESS: READ TO LOCATION 0
 END DBASE
 </syntaxhighlight>