Title Load List For an M16 (3_Aug_84)
;
;	Copyright (c), 1983, 1984,
;	Morrow Designs, Inc.
;	600 McCormick
;	San Leandro, Ca. 94577


;----------------------------------------------------------------------
; External Defintions (3_Aug_84)
;-------------------------------
;
Public	LodLen
Public	LodLst

;----------------------------------------------------------------------
; Drive Designations for Key filespec prompt strings
;---------------------------------------------------
;
X_Drive		equ	0		;Current Drive
A_Drive		equ	1		;Drive A:
B_Drive		equ	2		;Drive B:
C_Drive		equ	3		;Drive C:
Null		equ	0FFh		;Null Key filespec prompt
		page	60

;----------------------------------------------------------------------
; Program Load List for an M16 (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 (3_Aug_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,'GENCPM  COM',0
	db	'CP/M 3 Distribution Diskette Master II$'

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

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

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

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

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

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

Key11:	db	NOT Null
	db	B_Drive,'PEARLI  LIB',0
	db	'Personal Pearl Distribution Diskette (Disk 2 of 2)$'
	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:
	end