mirror of
https://github.com/Tolik-Trek/Spectrum.EXE.git
synced 2026-06-15 00:51:36 +03:00
73 lines
1.1 KiB
Plaintext
73 lines
1.1 KiB
Plaintext
;
|
||
MACRO FRAM_ON
|
||
IN A,(FastRAM_ON)
|
||
IF Emulator
|
||
PUSH BC
|
||
PUSH AF
|
||
LD BC,#1FFD
|
||
XOR A
|
||
OUT (C),A
|
||
OUT (FastRam_BANK0),A
|
||
POP AF
|
||
POP BC
|
||
ENDIF
|
||
ENDM
|
||
|
||
MACRO FRAM_OFF
|
||
IN A,(FastRAM_OFF)
|
||
IF Emulator
|
||
PUSH BC
|
||
PUSH AF
|
||
LD BC,#1FFD
|
||
LD A,1
|
||
OUT (C),A
|
||
XOR A
|
||
OUT (FastRam_BANK0),A
|
||
POP AF
|
||
POP BC
|
||
ENDIF
|
||
ENDM
|
||
;
|
||
;
|
||
MACRO PrintProc
|
||
|
||
MODULE PrintF
|
||
;---------------------------------------
|
||
printstr:
|
||
; ¢ ॣ. HL ¤à¥á ¯¥ç â ¥¬ë© ¡ãä¥à
|
||
LD C,Dss.PChars
|
||
jp ToDSS
|
||
;---------------------------------------
|
||
|
||
;---------------------------------------
|
||
; ¢ ॣ. A ç¨á«® ¯¥ç â ¥¬®¥ ª ª hex
|
||
printhex:
|
||
LD D,A
|
||
RRCA
|
||
RRCA
|
||
RRCA
|
||
RRCA
|
||
AND #0F
|
||
ADD A,#30
|
||
CP #3A
|
||
JR C,.PRNH1
|
||
ADD A,7
|
||
.PRNH1:
|
||
CALL .PRINT_CHAR
|
||
LD A,D
|
||
AND #0F
|
||
ADD A,#30
|
||
CP #3A
|
||
JP C,.PRINT_CHAR
|
||
ADD A,7
|
||
JP .PRINT_CHAR
|
||
; ¢ ॣ¨áâॠA ᨬ¢®« ¤«ï ¯¥ç â¨
|
||
.PRINT_CHAR:
|
||
LD BC,#0182
|
||
JP ToBIOS
|
||
;---------------------------------------
|
||
ENDMODULE
|
||
|
||
ENDM
|
||
;
|
||
; |