|
|
@ -422,7 +422,7 @@ GOROM1: LD E,(HL) ; (1) EXEC ADR |
|
|
CALL NEWLINE2 |
|
|
CALL NEWLINE2 |
|
|
LD DE,BID_USR ; TARGET BANK ID |
|
|
LD DE,BID_USR ; TARGET BANK ID |
|
|
PUSH DE ; ... ON STACK |
|
|
PUSH DE ; ... ON STACK |
|
|
DI ; ENTER WITH INTS DISABLED |
|
|
|
|
|
|
|
|
;DI ; ENTER WITH INTS DISABLED |
|
|
JP $FFF7 ; UNA INTER-PAGE EXEC CHAIN |
|
|
JP $FFF7 ; UNA INTER-PAGE EXEC CHAIN |
|
|
#ELSE |
|
|
#ELSE |
|
|
; |
|
|
; |
|
|
@ -464,7 +464,7 @@ GOROM2: LD B,BF_SYSSETCPY ; HBIOS FUNC: SETUP BANK COPY |
|
|
CALL NEWLINE2 |
|
|
CALL NEWLINE2 |
|
|
LD A,BID_USR ; ACTIVATE USER BANK |
|
|
LD A,BID_USR ; ACTIVATE USER BANK |
|
|
POP HL ; RECOVER EXEC ADDRESS |
|
|
POP HL ; RECOVER EXEC ADDRESS |
|
|
DI ; ENTER WITH INTS DISABLED |
|
|
|
|
|
|
|
|
;DI ; ENTER WITH INTS DISABLED |
|
|
CALL HB_BNKCALL ; AND GO |
|
|
CALL HB_BNKCALL ; AND GO |
|
|
HALT ; WE SHOULD NEVER RETURN!!! |
|
|
HALT ; WE SHOULD NEVER RETURN!!! |
|
|
#ENDIF |
|
|
#ENDIF |
|
|
@ -619,7 +619,7 @@ GOBOOTDISK: |
|
|
PUSH HL ; PUT ON STACK FOR UNA CHAIN FUNC |
|
|
PUSH HL ; PUT ON STACK FOR UNA CHAIN FUNC |
|
|
LD DE,BID_USR ; TARGET BANK ID IS USER BANK |
|
|
LD DE,BID_USR ; TARGET BANK ID IS USER BANK |
|
|
PUSH DE ; PUT ON STACK FOR UNA CHAIN FUNC |
|
|
PUSH DE ; PUT ON STACK FOR UNA CHAIN FUNC |
|
|
DI ; ENTER WITH INTS DISABLED |
|
|
|
|
|
|
|
|
;DI ; ENTER WITH INTS DISABLED |
|
|
JP $FFF7 ; UNA INTER-PAGE EXEC CHAIN |
|
|
JP $FFF7 ; UNA INTER-PAGE EXEC CHAIN |
|
|
; |
|
|
; |
|
|
#ELSE |
|
|
#ELSE |
|
|
@ -655,7 +655,7 @@ GOBOOTDISK: |
|
|
; JUMP TO COLD BOOT ENTRY |
|
|
; JUMP TO COLD BOOT ENTRY |
|
|
LD A,BID_USR ; ACTIVATE USER BANK |
|
|
LD A,BID_USR ; ACTIVATE USER BANK |
|
|
LD HL,(BB_CPMENT) ; OS ENTRY ADDRESS |
|
|
LD HL,(BB_CPMENT) ; OS ENTRY ADDRESS |
|
|
DI ; ENTER WITH INTS DISABLED |
|
|
|
|
|
|
|
|
;DI ; ENTER WITH INTS DISABLED |
|
|
CALL HB_BNKCALL ; AND GO |
|
|
CALL HB_BNKCALL ; AND GO |
|
|
HALT ; WE SHOULD NEVER RETURN!!! |
|
|
HALT ; WE SHOULD NEVER RETURN!!! |
|
|
; |
|
|
; |
|
|
|