mirror of
https://github.com/Tolik-Trek/Shared_Includes.git
synced 2026-06-15 17:11:33 +03:00
...
This commit is contained in:
parent
6eacd64752
commit
639cc1e69d
@ -1,6 +1,9 @@
|
|||||||
;
|
;
|
||||||
DEFDEVICE SPRINTER, #4000, 256
|
DEFDEVICE SPRINTER, #4000, 256
|
||||||
|
|
||||||
|
DEFINE SLOT? +(SLOT0 | ((#C0 & high $)>>>1))
|
||||||
|
DEFINE OFFSET? +(SLOT3 ^ SLOT?)*512
|
||||||
|
|
||||||
IFNDEF _includedSP2000 : DEFINE _includedSP2000 : ENDIF
|
IFNDEF _includedSP2000 : DEFINE _includedSP2000 : ENDIF
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
; <EFBFBD>à¥àë¢ ¨ï ;
|
; <EFBFBD>à¥àë¢ ¨ï ;
|
||||||
@ -388,7 +391,6 @@ SCR_SyncPort EQU #FE
|
|||||||
;---------------------------------------
|
;---------------------------------------
|
||||||
;
|
;
|
||||||
|
|
||||||
DEFINE SLOT? +( SLOT0 | ((#C0 & high $)>>>1) )
|
|
||||||
SLOT0 EQU #82 ; ®¬¥à ¡ ª¨ 0
|
SLOT0 EQU #82 ; ®¬¥à ¡ ª¨ 0
|
||||||
.MEM_ADDR EQU #00
|
.MEM_ADDR EQU #00
|
||||||
SLOT1 EQU #A2 ; ®¬¥à ¡ ª¨ 1
|
SLOT1 EQU #A2 ; ®¬¥à ¡ ª¨ 1
|
||||||
@ -2051,6 +2053,22 @@ REG:
|
|||||||
;=======================================================================;
|
;=======================================================================;
|
||||||
|
|
||||||
;__________________________________________________________________________________________________________#
|
;__________________________________________________________________________________________________________#
|
||||||
|
; MACRO _mGET_FAT_START slot_num
|
||||||
|
; .correct EQU (SLOT3 and slot_num)*2
|
||||||
|
|
||||||
|
; IN A,(slot_num)
|
||||||
|
; LD B,A
|
||||||
|
; LD A,SYS_PAGE
|
||||||
|
; OUT (slot_num),A
|
||||||
|
; LD HL,SYS_PAGE.RAMD_FAT - .correct
|
||||||
|
|
||||||
|
; DISPLAY "CORRECT = ",/h,.correct
|
||||||
|
; ENDM
|
||||||
|
|
||||||
|
; MACRO _mGET_FAT_END slot_num
|
||||||
|
; OUT (slot_num),A
|
||||||
|
; ENDM
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;
|
;
|
||||||
; DW #FEFF ; Sprinter-2000
|
; DW #FEFF ; Sprinter-2000
|
||||||
;
|
;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user