32 lines
587 B
ActionScript
32 lines
587 B
ActionScript
;---------------------------------------
|
|
PITEM:
|
|
; HL - item's address
|
|
LD E,(HL) ; x-coordinate
|
|
INC HL
|
|
LD D,(HL) ; y-coordinate
|
|
INC HL ; address of next parametr
|
|
CALL LOCAT ; set position of item
|
|
CALL PRINTZ ; print item's name
|
|
LD A,(HL) ; address of next parametr
|
|
CALL READCMS ; read item`s value from cmos
|
|
INC HL
|
|
LD B,(HL) ; item's value mask
|
|
INC HL
|
|
INC HL
|
|
AND B
|
|
RRLP:
|
|
RRCA
|
|
RRC B
|
|
JR NC,RRLP
|
|
RLCA
|
|
OR A
|
|
JP Z,PRINTZ
|
|
LD B,A
|
|
XOR A
|
|
NIT:
|
|
LD C,#FF
|
|
CPIR
|
|
RET NZ
|
|
DJNZ NIT
|
|
JP PRINTZ
|
|
;--------------------------------------- |