mirror of
https://github.com/Tolik-Trek/Spectrum.EXE.git
synced 2026-11-07 09:29:54 +03:00
73 lines
1006 B
Plaintext
73 lines
1006 B
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
|
|
;
|
|
; |