mirror of
https://github.com/Tolik-Trek/ZX-SP-ROMs.git
synced 2026-06-15 09:21:45 +03:00
57 lines
1.1 KiB
Plaintext
Executable File
57 lines
1.1 KiB
Plaintext
Executable File
DEVICE ZXSPECTRUM128
|
|
org #4000
|
|
|
|
defarray nKeys #1A,#1B,#1C,#1D,#1E,#1F,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#00,#01,#02,#03,#04,#05,#06,#07,#08,#09,#0A,#0B,#0C,#0D,#0E,#0F,#10,#11,#12,#13,#14,#15,#16,#17,#18,#19
|
|
|
|
/*
|
|
;⥪áâ á«®¢ «¨§ â®à
|
|
MACRO Word text
|
|
;.nTxt = $
|
|
; db text
|
|
;.eTxt = $
|
|
; org .nTxt
|
|
LUA
|
|
sj.add_byte(sj.get_byte(sj.current_address) + 128)
|
|
ENDLUA
|
|
; org .eTxt
|
|
ENDM
|
|
*/
|
|
|
|
;⥪áâ á«®¢ «¨§ â®à
|
|
MACRO Word text
|
|
LUA
|
|
sj.add_byte(sj.get_byte(sj.current_address) + 128)
|
|
ENDLUA
|
|
ENDM
|
|
|
|
|
|
;¤¥áªà¨¯â®à ®¯æ¨¨
|
|
;=0 æ¨äà /¡ãª¢ ¢ë¡®à ®¯æ¨¨ 0-5/A-Z
|
|
;=1 ®¬¥à âਡã⮢ ¢ â ¡«¨æ¥
|
|
;=2 ¤à¥á ¯/¯ ®¯à¥¤¥«¥¨ï ¤®áâ㯮á⨠®¯æ¨¨
|
|
;=3 ¤à¥á ¯/¯
|
|
MACRO dOption Key, nAttr, Proc1, Proc2
|
|
.tKey DEFL Key-#30
|
|
db nAttr*#20+nKeys[.tKey]
|
|
db (Proc1-#8DD)/#100*#04+(Proc2-#468)/#100*#10
|
|
db (Proc1-#8DD)%#100
|
|
db (Proc2-#468)%#100
|
|
ENDM
|
|
|
|
|
|
; dOption "0",0,#947,#533
|
|
|
|
/*
|
|
.nTxt1 equ $
|
|
db "TEXT"
|
|
.eTxt1 equ $
|
|
org .nTxt1
|
|
LUA
|
|
sj.add_byte(sj.get_byte(sj.current_address) + 128)
|
|
ENDLUA
|
|
org .eTxt1
|
|
*/
|
|
|
|
Word "NOP1"
|
|
|