Third string

               Output String (passed to the output device)
                    This is the Second string

.pa
Š
     Control Character Translation

          Controì Codeó includå alì characteró froí ° tï 1Fè iî thå Ascié �
     Characteò set® Beforå thå systeí outputó controì codeó iô lookó iî thå �
     controì codå characteò tablå tï seå iæ thå codå needó translation® Iæ thå �
     controì codå ió iî thå tablå theî thå controì codå vectoò tablå ió �
     accesseä tï geô á pointeò tï thå starô oæ thå substitutå string® Thå �
     substitutå strinç ió theî outpuô insteaä oæ thå controì code.

          Thå controì codå characteò tablå ió terminateä witè aî 0FFè bytå anä �
     ió positionallù linkeä tï thå controì codå vectoò table® Iî otheò words¬ �
     thå datá structureó associateä witè controì codå translationó arå �
     identical to those used for escape sequence translations.


     Example:  Input Code (to bios character output routine)
                    control-Z

               Control Characteò Tablå       Control Vectoò Tablå
                    control-X                     Vector to control-X String
                    control-Y                     Vector to control-Y String
                    control-Z                     Vector to control-Z String
                    FF

               Potential Substitute Strings (in free space pool)
                    control-X String -> This is the First Control string
                    control-Y String -> This is the Second Control string
                    control-Z String -> This is the Third Control string

               Output String (passed to the output device)
                    This is the Thrid Control string
.pa
Š
     Direct Cursor Addressing

          Direct cursor addresses are transmitted in the for Escape = row col.
     


	Output Character Translation Pointer Block

		Escape Character Table
		Escape Vector Table

		Control Character Table
		Control Vector Table

		Direct Cursor Address Table
		Output Strings

..
-----!----!----!-------------------------------------------------------------
    ÿ                                                                                                                                                                                                                                                                                                                             ÊAª„˜ž†—Z¨i)É+1�aœ†œ¨žª©iÈiꪉ+1…¬†¦¨¦’³ þ¨‰((æ1Îß슜ˆ„˜—•¨È*ˆ)‘À
œ’œ¨¨¦©f‰¨ªhñ†á¼žª¨„²©«Ê	ŠiªŠQƒÑœ¤‚š†�—  ÊIé¨i	q€ 
¦ b’�èÊj)ꪑ€ ¦ b¦¨§ªjI)Ñ€A¬¦ džª©üÊjJjŠq€ 
¦ f’�  Êjiꪑ€ ¦ f¦¨§KËÊHˆ*“€  ž                               ÊAª„˜ž†—Z¨i)É+1�aœ†œ¨žª©iÈiꪉ+1…¬†¦¨¦’³ þ¨‰((æ1Îßì                                                                                                                                                                                                                                                                
; Non Printing Ascii Character Equates
;-------------------------------------
;
CntrlC	equ	3		;Control C Code (Warm Boot)
bell	equ	7		;Bell Code
tab	equ	9		;Tab
lf	equ	0Ah		;Line Feed
cr	equ	0Dh		;Carriage Return
PCr	equ	8Dh		;Pause carriage return (see PutIMS)
ClrScr	equ	1Ah		;Clear Screen
Esc	equ	1Bh		;Escape
Bright	equ	'('		;Start High Lighting
Dim	equ	')'		;Start Low Lighting
	page

;----------------------------------------------------------------------
; MAIN - Main Line (14_Feb_84)
;-----------------------------
;
Main:	ld	hl,(PIDadd)	;HL:= Contents of the ID word location
	ld	de,PID		;DE:= Program ID word
	or	a		;(Clear carry)
	sbc	hl,de		;If (ID hasn't been written)
	jr	z,MSkp1

	call	CclChk		;	Check CP/M rev and compatibility level
	or	a		;	If (Rev levels aren't high enough)
	jr	nz,Mdone	;		Quit

	ld	de,Prmpt1
	ld	c,Print
	call	Bdos		;	Print the initial prompt

	call	GetRsp		;	Get the user response
	or	a		;	If (Response eq Stop)
	jr	nz,MDone	;		Quit

	ld	de,PID
	ld	(PIDadd),de	;	Write the ID
	ld	a,0
	ld	(LodOff),a	;	Reset the Load Offset
	ld	(ErrFlag),a	;	Reset the Error flag
	ld	a,(LodLen)
	ld	(LodMax),a	;	Set the Maximum number of load files

MSkp1:	ld	a,(ErrFlag)	;see if previous copy O.K.
	or	a
	jr	z,CopyOk

	ld	a,(LodOff)	;decrement Load Offset if Error
	dec	a
	ld	(LodOff),a

CopyOk:	ld	c,SetEM		;C:= Bdos Set Error Mode (funct 45)
	ld	e,0FEh		;E:= Return and Display Mode
	call	Bdos		;Set the Error Return Mode

	call	GetDsk		;Get the user to load the next disk
	or	a		;If (the user wants to stop)
	jr	nz,MDone	;	Quit

	call	PutIms		;Install the Ims String
	or	a		;If (There wasn't room for the Ims String)
	jp	nz,MDone	;	Quit

	ld	a,(LodOff)
	inc	a
	ld	(LodOff),a	;Load Offset:= Load Offset + 1

	ld	b,a
	ld	a,(LodMax)	;(A:= Last Load File Number)
	cp	b		;If (this is the last file)
	jr	nz,MSkp4

MDone:	ld	de,0
	ld	(PIDadd),de	;	Reset the ID word

MSkp4:	ld	a,1		;set flag
	ld	(ErrFlag),a
	jp	Wboot		;Goto the Bios Warm Boot Entry
	page

;----------------------------------------------------------------------
; CCLCHK - Check the Cbios Compatibility Level (4_Jan_84)
;--------------------------------------------------------
;
	;Check the Cpm Version Number
CclChk:	ld	c,GetRev	;C:= Bdos get cpm version number
	call	Bdos		;Get version number in L
	ld	a,l		;A:= Cpm Version 14, 22 or 31
	and	0F0h		;Mask off the minor revision number
	cp	CpmVer		;If (version doesn't match expected version)
	jr	nz,CclErr	;	Goto Error return

	;Check the Cbios Compatibility Level
	ld	a,6		;A:= Function_6 (Return Character table)
	ld	de,LocBuf	;DE:= Pointer to the local buffer
	call	DoCold		;Move the character table into the local buffer

	ld	hl,CclOff	;HL:= offset to Cbios compatiblity level
	add	hl,de		;HL:= Pointer to Cbios compatibility level
	ld	a,(hl)		;If (current compatibility levle ne Cbios Ccl)
	cp	Ccl
	jp	nz,CclErr	;	Goto Error return

Cclok:	ld	a,0		;A:= Successful Completion return status
	ret			;Return

CclErr:	ld	de,Err1		;	DE:= revision error message
	ld	c,Print		;	C:= Print string function number
	call	Bdos		;	Print the Input Drive number string
	ld	a,0FFh		;	A:= error return status
	ret
	page

;----------------------------------------------------------------------
; GETDSK - Prompt for Key file then Check search for it (7_Feb_84)
;-----------------------------------------------------------------
;	1) This routine checks for the existance of a particular file on
;	   a particular disk.
;	2) If the File Name String is Null (0) then the file check is
;	   NOT preformed.
;
GetDsk:	ld	bc,KeyOff	;Loop	BC:= Offset to the Prompt string
	call	GetBas		;	HL:= Pointer to base of Prompt string table
	ld	a,(hl)		;	If (The File Name string is Null)
	cp	Null
	ld	a,0
	ret	z		;		Return (No Error)

	inc	hl		;	HL:= Source (Start of FCB)
	ld	de,Fcb		;	DE:= Destination (Local FCB)
	ld	bc,13		;	BC:= Length of Transfer
	ldir			;	Transfer the FCB for the Key File

	push	hl		;	(save pointer to prompt string start)
	ld	de,Prmpt2
	ld	c,Print
	call	Bdos		;	Print 'please insert the diskette...
	pop	de		;	DE:= Pointer to prompt string start

	ld	c,Print
	call	Bdos		;	Print title of diskette

	ld	de,Prmpt3
	ld	c,Print
	call	Bdos		;	Print remainder of prompt

	call	GetRsp		;	Get response from console (Continue/Stop)
	or	a		;	If (response eq Stop)
	ret	nz		;		Return

	ld	c,setdma
	ld	de,LocBuf
	call	bdos		;	Set the DMA Address

	ld	c,SFirst
	ld	de,Fcb
	call	Bdos		;	Find the Key File On the Selected Drive
	cp 	0FFh		;	If (the key file was found)
	ld	a,0
	ret	nz		;		Return (NO Error)

	ld	de,Err2
	ld	c,Print
	call	Bdos		;	Print Error Message
	jr	GetDsk
	page

;----------------------------------------------------------------------
; PUTIMS - Put the Ims string into the IMS buffer (5_Feb_84)
;-----------------------------------------------------------
;	1) This routine puts the current iteration's ims string into the
;	   ims buffer.
;
PutIMS:	ld	bc,ImsOff	;BC:= Offset to IMS sting
	call	GetBas		;HL:= Pointer to the ims string
	push	hl		;(save pointer on stack)

	;Translate special characters in the Ims String
ImsLp2:	inc	hl		;Repeat (move HL past the length byte)
	ld	a,';'		;	If (char eq Standard_Cr)
	cp	(hl)
	jr	nz,ImsSk2
	ld	(hl),Cr		;		substitute Cr
	jr	ImsSk3

ImsSk2:	ld	a,'|'		;	Else If (char eq Pause_Cr)
	cp	(hl)
	jr	nz,ImsSk3
	ld	(hl),PCr	;		substitute pause Cr

ImsSk3:	djnz	ImsLp2		;Until (all of buffer is processed)

	pop	de		;DE:= pointer to start of processed buffer

	;Inject the Ims string into the Ims buffer
	ld	a,InjIMS	;A:= extended function call: inject ims
	call	DoCold		;do extended function
	ld	a,0		;If (the ims string was accepted)
	ret	nc		;	Return (no error)

	ld	de,Err3		;Else
	ld	c,Print
	call	Bdos		;	Print error (ims string won't fit)
	ld	a,0FFh
	ret			;	Return (ERROR)
	page

;----------------------------------------------------------------------
; GETBAS - Return a Pointer to the Desired Entry (5_Feb_84)
;----------------------------------------------------------
;	1) This routine uses the LodOff Value along with the Entry offset
;	   (passed in the BC pair) to form a pointer into the Load List.
;	2) The Load List is a two dimensional (n by 2 word) array. The First
;	   dimension of the array is the set by the current iteration number
;	   of the Loader Program (LodOff). The second dimension of the array
;	   allows access to the current Key file (and it prompt string) and
;	   the Ims Stings pointers.
;	3) Pointer offsets (passed in the BC pair):
;		0 = Key File Name
;		2 = Ims String Text
;	4) Register Usage:
;		A  -> General Purpose
;		BC -> Pointer Offset or second dimension (0=Prompt,2=Key,4=Ims)
;		DE -> used as Offset in calculating the first dimension
;		HL -> Pointer to Desired Entry's Pointer
;
GetBas:	ld	a,(LodOff)
	sla	a
	sla	a

	ld	e,a
	ld	d,0		;DE:= Offset - LodOff * 4
	ld	hl,LodLst	;HL:= Base of Load List

	add	hl,de		;HL:= Pointer to Base of First Dimenstion
	add	hl,bc		;HL:= Pointer to Second Dimension

	ld	e,(hl)
	inc	hl
	ld	d,(hl)		;(retrieve the pointer from the table)
	ex	de,hl		;HL:= Pointer to base of desired string
	ret 			;Return
	page

;----------------------------------------------------------------------
; GETRSP - Get the User's Response (7_Feb_84)
;--------------------------------------------
;	1) This routine prints a prompt string and then waits for a valid
;	   response from the console device.
;	2) A valid response is a C (or c) for continue and S (or s) or
;	   control_C for stop.
;	3) Register Usage:
;		AF -> Returned 0 for continue or 0FFh for Stop
;		BC -> Bdos function number in the C register
;		DE -> On Entry Points to the string to print
;
GetRsp:	ld	de,Prmpt4
	ld	c,Print
	call	bdos		;print the response prompt

AskLpº	lä	c,DirIO		;Loop
	ld	e,InWait	;	(Set funct to wait for input)
	call	Bdos		;	Get a character from the console

	and	5Fh		;	(force to upper case)
	cp	'C'		;	If (Response eq Continue)
	jr	nz,AskSk1
	ld	e,a		;		(Save the character for echo)
	ld	a,0		;		(Continue code)
	jr	AskSk3		;		Return (Continue)

AskSk1:	cp	'S'		;	Else If (Response eq Stop)
	jr	nz,AskSk2	;		Break
	ld	e,a		;		(Save the character for echo)
	ld	a,0FFh		;		(Stop code)
	jr	AskSk3

AskSk2:	cp	CntrlC		;	Else IF (Response eq Control_C)
	jr	z,AskSk4	;		Break
	jr	AskLp

AskSk3:	push	af		;Print the Final Carriage Return Line Feed
	ld	c,ConOut	;C:= Console Output Funct (char in E already)
	call	Bdos		;Print the Response

AskSk4:	ld	de,CrLf
	ld	c,Print
	call	Bdos
	pop	af
	ret			;Return
	page

;----------------------------------------------------------------------
; GETBUF - Move system memory into the local buffer (4_Jan_84)
;-------------------------------------------------------------
;	1) This routine forces the destination to be the local buffer, calls
;	   the cold start (extended bios functions) entry point, and then saves
;	   the registers after swapping hl and de.
;
GetBuf:	ld	de,LocBuf	;DE:= Pointer to Local Buffer
	call	DoCold		;Move System Memory into the local buffer

	ld	(saveBC),bc	;Save the returned registers
	ex	de,hl		;HL:= Pointer to first xlt
	ld	(saveDE),de
	ld	(saveHL),hl
	ret			;Return

;----------------------------------------------------------------------
; PUTBUF - Put the Local Buffer into System Memory (4_Jan_84)
;------------------------------------------------------------
;	1) This is the inverse of GetBuf; It replaces the system's memory
;	   with the contents of the local buffer.
;	2) GetBuf MUST be called before entering this routine.
;
PutBuf:	ld	a,1		;Function_1:= Write to system memory
	ld	bc,(SaveBC)
	ld	de,(SaveDE)
	ld	hl,(SaveHL)	;Restore the Returned Registers
	call	DoCold		;Write the Mtabs back into system memory
	ret

;----------------------------------------------------------------------
; DOCOLD - Call the Bios Cold Boot Entry Point (4_Jan_84)
;--------------------------------------------------------
;	1) The Cold Boot Entry point to the bios (1st entry in the bios
;	   jump table) is located by looking at locations 1 & 2 which
;	   point to the warm boot address (the desired address + 3).
;
DoCold:	push	hl		;Save the HL Register Pair
	ld	hl,(Wboot+1)	;HL:= Warm Boot Address
	ld	l,0		;HL:= Cold Boot Address
	ex	(sp),hl		;Restore the HL Register Pair
	ret			;Goto The Cold Boot entry
	page

;----------------------------------------------------------------------
; Program Load List (14_Feb_84)
;------------------------------
;
LodLen:	db	(LodEnd - LodLst)/4
LodLst:	dw	Key1, Ims1
	dw	Key2, Ims2
	dw	Key3, Ims3
	dw	Key4, Ims4
	dw	Key5, Ims5
	dw	Key6, Ims6
	dw	Key7, Ims7
	dw	Key8, Ims8
	dw	Key9, Ims9
	dw	Key10, Ims10
	dw	Key11, Ims11
LodEnd:
	page

; Key file Names and Prompt Strings (14_Feb_84)
;----------------------------------------------
;	1) Entry Format:
;		-FCB filespec for validation file followed by a prompt string.
;		-or a Null (0FFh) for No File Check
;
Key1:	db	Null

Key2:	db	Null

Key3:	db	Null

Key4:	db	NOT Null
	db	B_Drive,'HELP    HLP',0
	db	'CP/M 3 Distribution Diskette Master II$'

Key5:	db	NOT Null
	db	B_Drive,'CORRECT COM',0
	db	'Software Distribution Diskette - 1 (Correct-It)$'

Key6:	db	NOT Null
	db	B_Drive,'MBASIC  COM',0
	db	'Software Distribution Diskette - 2 (MBasic)$'

Key7:	db	NOT Null
	db	B_Drive,'SC      COM',0
	db	'SuperCalc Distribution Diskette$'

Key8:	db	NOT Null
	db	B_Drive,'PEARLED COM',0
	db	'Personal Pearl Distribution Diskette (Disk 1 of 2)$'

Key9:	db	NOT Null
	db	B_Drive,'PEARLI  LIB',0
	db	'Personal Pearl Distribution Diskette (Disk 2 of 2)$'

Key10:	db	NOT Null
	db	B_Drive,'NWU     COM',0
	db	'New Word Distribution Diskette$'

Key11:	db	NOT Null
	db	B_Drive,'FB      COM',0
	db	'Backfield Distribution Diskette$'
	page

; Ims Strings (14_Feb_84)
;------------------------
;	Entry Format:
;		-Valid Ims Sting in the same format as the IMS command
;			carriage return = ;
;			warm boot pause = |
;
Ims1:	db	(Ims2 - Ims1) - 1
	db	'format b;CONTINUE|'
	db	'copysys sysldr.com b:;n;'
	db	'hdlpip;;'
	db	'hdl;'

Ims2:	db	(Ims3 - Ims2) - 1
	db	'hdlpip b:=*.*;'
	db	'hdl;'

Ims3:	db	(Ims4 - Ims3) - 1
	db	'hdlpip;;'
	db	'ren b:profile.sub=b:prof1.sub;'
	db	'hdboot;'

Ims4:	db	(Ims5 - Ims4) - 1
	db	'hdlpip A:=B:*.*;'
	db	'hdl;'

Ims5:	db	(Ims6 - Ims5) - 1
	db	'hdlpip A:=B:*.*;'
	db	'hdl;'

Ims6:	db	(Ims7 - Ims6) - 1
	db	'hdlpip A:=B:*.*;'
	db	'hdl;'

Ims7:	db	(Ims8 - Ims7) - 1
	db	'hdlpip A:=B:*.*;'
	db	'hdl;'

Ims8:	db	(Ims9 - Ims8) - 1
	db	'hdlpip A:=B:*.*;'
	db	'hdl;'

Ims9:	db	(Ims10 - Ims9) - 1
	db	'hdlpip A:=B:*.*;'
	db	'hdl;'


Ims10:	db	(Ims11- Ims10) - 1
	db	'hdlpip A:=B:*.*;'
	db	'hdl;'

Ims11:	db	(ImsN - Ims11) - 1
	db	'hdlpip A:=B:*.*;'
	db	'era profile.sub;'
	db	'ren profile.sub=prof2.sub;'
	db	'pilot init;'
ImsN:
	page

;----------------------------------------------------------------------
; Prompt Strings (14_Feb_84)
;---------------------------
;
Prmpt1:	db	ClrScr,Esc,Bright,'MD-11 Master Disk Program Loader Rev '
	db	((PRev and 0F0h) shr 4) + '0', '.', (PRev and 0Fh) + '0'
	db	Tab,Tab,Tab,'  Copyright 1984'
	db	cr,lf,'Morrow Designs, Inc.'
	db	Tab,Tab,Tab,Tab,Tab,Tab,'San Leandro, Ca'
	db	cr,lf, cr,lf, cr,lf, cr,lf
	db	cr,lf,'		     CP/M  Master Distribution Disk'
	db	cr,lf
	db	cr,lf,'			******* CAUTION ********'
	db	cr,lf
	db	cr,lf,tab,'This Program automatically formats your hard disk and then'
	db	cr,lf,tab,'reloads it with the original distribution programs. This means'
	db	cr,lf,tab,'that all of the data currently existing on your hard disk will'
	db	cr,lf,tab,'be ERASED. If you have already stored data on the hard disk'
	db	cr,lf,tab,'then you may wish to stop now and back up that data.'
	db	cr,lf,'$'

Prmpt2:	db	Esc, Dim, cr,lf
	db	'Please insert the diskette labeled:'
	db	Esc, Bright, cr,lf,'$'

Prmpt3:	db	Esc, Dim, cr,lf
	db	'into your floppy disk drive. $'

Prmpt4:	db	Esc, Dim, Bell, cr,lf, cr,lf, 'Press '
	db	Esc, Bright,'C'
	db	Esc, Dim, ' to continue or '
	db	Esc, Bright,'S'
	db	Esc, Dim, ' to Stop: '
	db	Esc, Bright, '$'

CrLf:	db	cr,lf,'$'
	page

;----------------------------------------------------------------------
; Error Messages (5_Feb_84)
;--------------------------
;
Err1:	db	cr,lf,'Wrong Version of Cbios'
	db	cr,lf,'This version of HDL Requires CP/M vers 3.0 Cbios rev '
	db	ccl shr 4 + 30h,'$'

Err2:	db	cr,lf,'ERROR: This is NOT the proper disk$'

Err3:	db	cr,lf,'ERROR: There is insufficient space in the ims buffer$'
	page

;----------------------------------------------------------------------
; General Parameters (5_Feb_84)
;------------------------------
;
Fcb:	ds	32,0
SaveBC:	dw	0		;Save Location for the BC register pair
SaveDE:	dw	0		; "      "      "   "  DE    "      "
SaveHL:	dw	0		; "      "      "   "  HL    "      "
LocBuf:	ds	128,0

	end