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_8ey10, 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' 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