mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
131 lines
3.8 KiB
ArmAsm
131 lines
3.8 KiB
ArmAsm
*
|
||
* CP/M-68K table driven file search module
|
||
* ========================================
|
||
*
|
||
|
||
* GLOBALS
|
||
|
||
|
||
.globl _load_tbl * loader table
|
||
.globl _load68k * default load program
|
||
.globl init_tbl * initializes table on COLD BOOT
|
||
|
||
.text
|
||
*************************************************************************
|
||
* *
|
||
* This is the DUAL PROCESSOR,ROMABLE version of CP/M-68K *
|
||
* ====================================================== *
|
||
* *
|
||
* (c) Copyright Digital Research 1983 *
|
||
* all rights reserved *
|
||
* *
|
||
*************************************************************************
|
||
|
||
*
|
||
* The following code allows CP/M-68K to be ROM-able.
|
||
* -------------------------------------------------
|
||
*
|
||
|
||
init_tbl:
|
||
move.l #typ1,typ1p
|
||
move.l #typ2,typ2p * init the pointers to the filetypes
|
||
move.l #typ3,typ3p
|
||
move.l #null,typ4p
|
||
|
||
move.l #_load68k,pgld1
|
||
move.l #_load68k,pgld2 * init the pointers to the loaders
|
||
move.l #_load68k,pgld3
|
||
move.l #_load68k,pgld4
|
||
|
||
rts
|
||
.bss
|
||
.even
|
||
.page
|
||
*************************************************************************
|
||
* *
|
||
* CP/M-68K LOADER TABLE *
|
||
* ===================== *
|
||
* *
|
||
*-----------------------------------------------------------------------*
|
||
* *
|
||
* STRUCTURE OF A LOADER TABLE ENTRY: *
|
||
* ================================= *
|
||
* *
|
||
* (1) LONG WORD pointer to a filetype *
|
||
* (2) LONG WORD address of the program loader for the above type *
|
||
* (3) BYTE flag #1 *
|
||
* (4) BYTE flag #2 *
|
||
* *
|
||
*************************************************************************
|
||
|
||
|
||
_load_tbl:
|
||
typ1p: .ds.l 1
|
||
pgld1: .ds.l 1
|
||
.ds.b 1
|
||
.ds.b 1
|
||
typ2p: .ds.l 1
|
||
pgld2: .ds.l 1
|
||
.ds.b 1
|
||
.ds.b 1
|
||
typ3p: .ds.l 1
|
||
pgld3: .ds.l 1
|
||
.ds.b 1
|
||
.ds.b 1
|
||
typ4p: .ds.l 1
|
||
pgld4: .ds.l 1
|
||
.ds.b 1
|
||
.ds.b 1
|
||
|
||
|
||
*****************************************
|
||
* *
|
||
* FILETYPE TABLE *
|
||
* ============== *
|
||
* *
|
||
*****************************************
|
||
|
||
|
||
.data
|
||
.even
|
||
typ1: .dc.b '68K',0
|
||
.even
|
||
typ2: .dc.b ' ',0
|
||
.even
|
||
typ3: .dc.b 'SUB',0
|
||
.even
|
||
null: .dc.l 0
|
||
.end
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
.b 'SUB',0
|
||
.even
|
||
null: .dc.l 0
|
||
.end
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
.b 'SUB',0
|
||
.even
|
||
null: .dc.l 0
|
||
.end
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|