Title Load List For an M5e Upgrade (6_Nov_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 M10 (6_Nov_84)
;----------------------------------------
;
LodLen:	db	(LodEnd - LodLst)/4
LodLst:	dw	Key1, Ims1
	dw	Key2, Ims2
	dw	Key3, Ims3
	dw	Key4, Ims4
	dw	Key5, Ims5
LodEnd:
	page

;----------------------------------------------------------------------
; Key file Names and Prompt Strings (6_Nov_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	NOT Null
	db	B_Drive,'MBASIC  COM',0
	db	'Software Distribution Diskette - 2 (MBasic)$'

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

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

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

;----------------------------------------------------------------------
; Ims Strings (6_Nov_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	'era upgrade.sub;'
	db	'hdlpip;;'
	db	'hdl;'

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

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

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

Ims5:	db	(ImsN - Ims5) - 1
	db	'hdlpip A:=B:*.*;'
	db	'era hdlpip.com;'
	db	'era hld.com;'
	db	'pilot upgrade;'
ImsN:
	end