📄 l51_bank.a51
字号:
ENDM
ENDIF
IF ?B_FIRSTBIT = 5
CONVBANKNO MACRO
SWAP A
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 6
CONVBANKNO MACRO
SWAP A
ENDM
ENDIF
IF ?B_FIRSTBIT = 7
CONVBANKNO MACRO
SWAP A
RR A
ENDM
ENDIF
; Macro code to select the 'N'
SWITCH MACRO N
ORG N * 4
PUBLIC ?B_SWITCH&N
?B_SWITCH&N:
MOV R0,#(BANK&N OR NOT ?B_MASK)
IF ?B_NBANKS > 32
IF (N < 32)
SJMP SWITCHBNK_H
ELSEIF (N = 32)
SWITCHBNK_H:
SJMP SWITCHBNK
ELSEIF (N <> ?B_NBANKS-1)
SJMP SWITCHBNK
ENDIF
ELSE
IF N <> (?B_NBANKS-1)
SJMP SWITCHBNK
ENDIF
ENDIF
ENDM
ENDIF
IF ?B_RTX = 0 AND ?B_NBANKS <= 32
; Convert Bank No in Accu to Address * 8
IF ?B_FIRSTBIT = 0
CONVBANKNO MACRO
SWAP A
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 1
CONVBANKNO MACRO
RL A
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 2
CONVBANKNO MACRO
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 3
CONVBANKNO MACRO
ENDM
ENDIF
IF ?B_FIRSTBIT = 4
CONVBANKNO MACRO
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 5
CONVBANKNO MACRO
RR A
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 6
CONVBANKNO MACRO
SWAP A
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 7
CONVBANKNO MACRO
SWAP A
ENDM
ENDIF
; Macro code to select the 'N'
SWITCH MACRO N
ORG N * 8
PUBLIC ?B_SWITCH&N
?B_SWITCH&N:
IF N <> 0
ORL ?B_CURRENTBANK,#?B_MASK
ENDIF
IF N <> (?B_NBANKS-1)
ANL ?B_CURRENTBANK,#(BANK&N OR NOT ?B_MASK)
ENDIF
RET
ENDM
ENDIF
SELECT MACRO N
LOCAL XLABEL, YLABEL
PUBLIC ?B_BANK&N
?B_BANK&N:
MOV A,?B_CURRENTBANK
ANL A,#?B_MASK
CONVBANKNO ; Convert Bank Number to Address
PUSH ACC
MOV A,#HIGH ?BANK?SWITCH
PUSH ACC
PUSH DPL
PUSH DPH
LJMP ?B_SWITCH&N
ENDM
?BANK?SELECT SEGMENT CODE
RSEG ?BANK?SELECT
CNT SET 0
REPT ?B_NBANKS
SELECT %CNT
CNT SET CNT+1
ENDM
?BANK?SWITCH SEGMENT CODE PAGE
RSEG ?BANK?SWITCH
CNT SET 0
REPT ?B_NBANKS
SWITCH %CNT
CNT SET CNT+1
ENDM
IF ?B_RTX = 0 AND ?B_NBANKS > 32
SWITCHBNK: XCH A,R0
ORL ?B_CURRENTBANK, #?B_MASK
ANL ?B_CURRENTBANK, A
MOV A,R0
RET
ELSEIF ?B_RTX = 1
SWITCHBNK: XCH A,R0
SWITCHBNK2: JBC EA,SWITCHBNK_EA1
ORL ?B_CURRENTBANK, #?B_MASK
ANL ?B_CURRENTBANK, A
MOV A,R0
RET
SWITCHBNK_EA1: ; interrupts where enabled
ORL ?B_CURRENTBANK, #?B_MASK
ANL ?B_CURRENTBANK, A
MOV A,R0
SETB EA ; enable interrupts again
RET
?B_RESTORE_BANK: ; entry for RTX-51 bank restore
ORL A,#NOT ?B_MASK
SJMP SWITCHBNK2
ENDIF
ENDIF ; close block IF ?B_MODE = 0 *******************************************
IF ?B_MODE = 1 ;***************************************************************
?B_FACTOR EQU 1 SHL ?B_FIRSTBIT
?B_MASK EQU MASK SHL ?B_FIRSTBIT
BANKN MACRO N
BANK&N EQU N SHL ?B_FIRSTBIT
ENDM
CNT SET 0
REPT ?B_NBANKS
BANKN %CNT
CNT SET CNT+1
ENDM
?C_INITSEG SEGMENT CODE ; Segment for Variable Initialization
RSEG ?C_INITSEG
DB 01H ; IData
DB ?B_CURRENTBANK ; Init Current Bank
DB 0 ; Set to Zero
DB 41H ; XData
DW ?B_XDATAPORT ; Init XDATA Port
DB 0 ; Set to Zero
PUBLIC ?B_XDATAPORT
?BANK?DATA SEGMENT DATA
RSEG ?BANK?DATA
?B_CURRENTBANK: DS 1
IF ?B_NBANKS > 16
; Convert Bank No in Accu to Address * 4
IF ?B_FIRSTBIT = 0
CONVBANKNO MACRO
RL A
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 1
CONVBANKNO MACRO
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 2
CONVBANKNO MACRO
ENDM
ENDIF
IF ?B_FIRSTBIT = 3
CONVBANKNO MACRO
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 4
CONVBANKNO MACRO
RR A
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 5
CONVBANKNO MACRO
SWAP A
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 6
CONVBANKNO MACRO
SWAP A
ENDM
ENDIF
IF ?B_FIRSTBIT = 7
CONVBANKNO MACRO
SWAP A
RR A
ENDM
ENDIF
; Macro code to select the 'N'
SWITCH MACRO N
ORG N * 4
PUBLIC ?B_SWITCH&N
?B_SWITCH&N:
MOV R0,#BANK&N
IF ?B_NBANKS > 32
IF (N < 32)
SJMP SWITCHBNK_H
ELSEIF (N = 32)
SWITCHBNK_H:
SJMP SWITCHBNK
ELSEIF (N <> ?B_NBANKS-1)
SJMP SWITCHBNK
ENDIF
ELSE
IF N <> (?B_NBANKS-1)
SJMP SWITCHBNK
ENDIF
ENDIF
ENDM
ENDIF
IF ?B_NBANKS <= 16
; Convert Bank No in Accu to Address * 16
IF ?B_FIRSTBIT = 0
CONVBANKNO MACRO
SWAP A
ENDM
ENDIF
IF ?B_FIRSTBIT = 1
CONVBANKNO MACRO
SWAP A
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 2
CONVBANKNO MACRO
RL A
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 3
CONVBANKNO MACRO
RL A
ENDM
ENDIF
IF ?B_FIRSTBIT = 4
CONVBANKNO MACRO
ENDM
ENDIF
IF ?B_FIRSTBIT = 5
CONVBANKNO MACRO
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 6
CONVBANKNO MACRO
RR A
RR A
ENDM
ENDIF
IF ?B_FIRSTBIT = 7
CONVBANKNO MACRO
SWAP A
RL A
ENDM
ENDIF
SWITCH MACRO N
ORG N * 16 ;N * 16 ;2006/12/25 06:00⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -