ABOOTSIM.ASM - Revision history

Jeffa: Add Category:Imsai

2018-08-03T02:34:47Z

Add Category:Imsai

Jeffa: Add Category:Code

2018-08-03T02:32:14Z

Add Category:Code

Jeffa: This gives a clean assembly.

2018-08-01T21:35:08Z

This gives a clean assembly.

Jeffa: Major pass at syntax cleansing and formatting

2018-08-01T21:00:15Z

Major pass at syntax cleansing and formatting

Jeffa: 1st Corections

2018-08-01T20:42:24Z

1st Corections

Jeffa: Add syntaxhighlight

2018-08-01T20:32:39Z

Add syntaxhighlight

Jeffa: Initial creation

2018-08-01T20:31:39Z

Initial creation

New page

;ABOOTSIM.ASM VERSION 1.0 10/27/76 JRB
3 IMSAI CP/M SIMULATOR FOR AUTOMATIC BOOTSTRAP

;THIS PROGRAM IS ONLY NEEDED TO START CP/M COLD
; IF YOU DO NOT YET HAVE THE NEW AUTOMATIC BOOTSTRAP
; FIRMWARE INSTALLED IN YOUR DISC INTERFACE.

;THE FUNCTION OF THIS PROGRAM IS TO READ DRIVE 0,
3 TRACK a, SECTOR I INTO RAM LOCATIONS
; a To 7FH THEN JMP To 0.

;THIS IS THE FANCY VERSION,
; SUITABLE FOR USE IN ROM AND WITH ERROR RECOVERY.

BBASE EQU ROOOH ;ORIGIN AND STARTING ADDRESS
EXIT EQU o ;wHERE THIS PROGRAM EXITS To
DISK EQU OFDH ;COMMAND PORT FOR FLOPPY DISC
BCMD EQU 80H ;BEGINNING OF DISC COMMAND STRING
;AND COMMAND BYTE THEREOF
BSTAT EQU BCMD+1 ;STATUS BYTE... I
BTRK EQU BCMD+2 ;TRACK (2 BYTES)
IBSECT EQU GCMD+4 ;SECTOR
BBUFAD EQU BCMD+5 ;BUFFER ADDRESS
ORG BBASE

3
; START HERE
3

3 SET FLOPPY DISC INTERFACE STRING POINTER

MVI A,IOH ;COMMAND TO SET STRING POINTER 0
our DISK ;SEND IT ‘
LXI H,BCMD ;POINT H AT COMMAND STRING

Mov A,L 5L0 ORDER STRING ADDRESS

OUT DISK

Mov A,H ;HI ORDER STRING ADDRESS

OUT DISK

; ABOOTSIM.ASM CONTINUED

;SET UP STRING IN RAM

5

MVI M,21H
INX H

;COMMAND TO READ SECTOR, UNIT 0
,POINT AT STATUS BYTE
5(3TATUS BYTE WILL BE ZEROED LATER)

INX H ,POINT AT HI ORDER TRACK

XRA A ;CET 0 IN A

Mov M,A 3ZERO HIGH ORDER TRACK

INX H

MOv M,A ;ZERO LO ORDER TRACK

INX H

MVI M,1 ;SECTOR 1

INX H

Mov M,A ;2ERO LO ORDER BUFFER ADDRESS
INX H

Mov M,A ;ZERO HIGH ORDER BUF ADDRESS

; INITIALIZATION COMPLETE. NOW READ SECTOR.

REPEAT: LXI

WAIT:

H,BSTAT
XRA A .
MOV M,A ;STATus MUST BE 0 BEFORE COMMAND
;N. B. A=o IS DISK COMMAND TO EXECUTE STRING 0

OUT DISK 3TELL DISK TO GO!

ADD M ;LOOK FOR NON-0 STATUS

JZ WAIT ;KEEP LOOKING TILL IT COMES

CPI I ;ONLY CORRECT RETURN VALUE IS 1
J2 EXIT ;ON SUCCESS, TRANSFER CONTROL

;CP/M BOOTSTRAP ROUTINE READ IN FROM DISK

; DISK ERROR HAS OCCURED. -

3 DISPLAY ERROR CODE IN LIGHTS AND KEEP TRYING.

V. 50 5.

THUS IF DISK IS NOT READY,
CP/M WILL BOOT AS SOON AS IT COMES READY.

CMA 5LIGHTS DISPLAL COMPLEMENT

OUT OFFH 5OUTPUT A TO "PROG OUTPUT" LIGHTS
MVI A,21H ;RESTORE DRIVE 1 - IT HELPS!

OUT DISK ;SEND RESTORE COMMAND TO DISK

JMP REPEAT 3TRY AGAIN (AND AGAIN, AND ...)

END BBASE

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

← Older revision		Revision as of 02:32, 3 August 2018
Line 90:		Line 90:

	</syntaxhighlight>		</syntaxhighlight>
		+	[[Category:Code]]

@@ Line 2: / Line 2: @@
 ; JHA 8/1/2018
 ; OCR'ed from IMSAI_CPM_System_Users_Guide_Version_1.31_Rev_2_Mar77.pdf
 ;ABOOTSIM.ASM VERSION 1.0 10/27/76 JRB
 ; IMSAI CP/M SIMULATOR FOR AUTOMATIC BOOTSTRAP
@@ Line 17: / Line 16: @@
 ; SUITABLE FOR USE IN ROM AND WITH ERROR RECOVERY.
-BBASEE  QU 4OOOH ;ORIGIN AND STARTING ADDRESS
+BBASE  EQU 4000H    ;ORIGIN AND STARTING ADDRESS
-EXIT    EQU 0 ;wHERE THIS PROGRAM EXITS To
+EXIT    EQU 0       ;wHERE THIS PROGRAM EXITS To
-DISK    EQU OFDH ;COMMAND PORT FOR FLOPPY DISC
+DISK    EQU 0FDH    ;COMMAND PORT FOR FLOPPY DISC
-BCMD    EQU 80H ;BEGINNING OF DISC COMMAND STRING
+BCMD    EQU 80H     ;BEGINNING OF DISC COMMAND STRING
 ;AND COMMAND BYTE THEREOF
-BSTAT   EQU BCMD+1 ;STATUS BYTE... I
+BSTAT   EQU BCMD+1  ;STATUS BYTE... I
-BTRK    EQU BCMD+2 ;TRACK (2 BYTES)
+BTRK    EQU BCMD+2  ;TRACK (2 BYTES)
-IBSECT  EQU GCMD+4 ;SECTOR
+IBSECT  EQU BCMD+4  ;SECTOR
-BBUFAD  EQU BCMD+5 ;BUFFER ADDRESS
+BBUFAD  EQU BCMD+5  ;BUFFER ADDRESS
 ORG BBASE
@@ Line 54: / Line 53: @@
          MOV M,A     ;ZERO HIGH ORDER TRACK
          INX H
-         MOv M,A     ;ZERO LO ORDER TRACK
+         MOV M,A     ;ZERO LO ORDER TRACK
          INX H
          MVI M,1     ;SECTOR 1
@@ Line 71: / Line 70: @@
 WAIT:   ADD M       ;LOOK FOR NON-0 STATUS
          JZ WAIT     ;KEEP LOOKING TILL IT COMES
-         CPI I       ;ONLY CORRECT RETURN VALUE IS 1
+         CPI 1       ;ONLY CORRECT RETURN VALUE IS 1
          JZ EXIT     ;ON SUCCESS, TRANSFER CONTROL
              ;CP/M BOOTSTRAP ROUTINE READ IN FROM DISK
@@ Line 82: / Line 81: @@
+;
          CMA         ;LIGHTS DISPLAL COMPLEMENT
-         OUT OFFH    ;OUTPUT A TO "PROG OUTPUT" LIGHTS
+         OUT 0FFH    ;OUTPUT A TO "PROG OUTPUT" LIGHTS
          MVI A,21H   ;RESTORE DRIVE 1 - IT HELPS!
          OUT DISK    ;SEND RESTORE COMMAND TO DISK
@@ Line 88: / Line 87: @@
          END BBASE
 </syntaxhighlight>

@@ Line 1: / Line 1: @@
 <syntaxhighlight lang="asm">
-<syntaxhighlight lang="asm">
+; JHA 8/1/2018
 ;ABOOTSIM.ASM VERSION 1.0 10/27/76 JRB
 ; IMSAI CP/M SIMULATOR FOR AUTOMATIC BOOTSTRAP
@@ Line 32: / Line 34: @@
 ; SET FLOPPY DISC INTERFACE STRING POINTER
-MVI A,10H ;COMMAND TO SET STRING POINTER 0
+        MVI A,10H   ;COMMAND TO SET STRING POINTER 0
-OUT DISK ;SEND IT ‘
+        OUT DISK    ;SEND IT ‘
-LXI H,BCMD ;POINT H AT COMMAND STRING
+        LXI H,BCMD  ;POINT H AT COMMAND STRING
-MOV A,L ;LO ORDER STRING ADDRESS
+        MOV A,L     ;LO ORDER STRING ADDRESS
-OUT DISK
+        OUT DISK
-Mov A,H ;HI ORDER STRING ADDRESS
+        MOV A,H     ;HI ORDER STRING ADDRESS
-OUT DISK
+        OUT DISK
-MVI M,1 ;SECTOR 1
+        ; ABOOTSIM.ASM CONTINUED
-INX H
+        ;SET UP STRING IN RAM
-Mov M,A ;2ERO LO ORDER BUFFER ADDRESS
+        MVI M,21H   ;COMMAND TO READ SECTOR, UNIT 0
-INX H
+        INX H       ;POINT AT STATUS BYTE
-Mov M,A ;ZERO HIGH ORDER BUF ADDRESS
+        INX H       ;POINT AT HI ORDER TRACK
 ; INITIALIZATION COMPLETE. NOW READ SECTOR.
-REPEAT: LXI
+REPEAT: LXI H,BSTAT
-WAIT:
 ; DISK ERROR HAS OCCURED.
-H,BSTAT
+; DISPLAY ERROR CODE IN LIGHTS AND KEEP TRYING.
-XRA A .
+;THUS IF DISK IS NOT READY,
-MOV M,A ;STATus MUST BE 0 BEFORE COMMAND
+;CP/M WILL BOOT AS SOON AS IT COMES READY.
-;N. B. A=o IS DISK COMMAND TO EXECUTE STRING 0
+        CMA         ;LIGHTS DISPLAL COMPLEMENT
-OUT DISK 3TELL DISK TO GO!
+        OUT OFFH    ;OUTPUT A TO "PROG OUTPUT" LIGHTS
+        MVI A,21H   ;RESTORE DRIVE 1 - IT HELPS!
-ADD M ;LOOK FOR NON-0 STATUS
+        OUT DISK    ;SEND RESTORE COMMAND TO DISK
+        JMP REPEAT  ;TRY AGAIN (AND AGAIN, AND ...)
 </syntaxhighlight>