43 lines
529 B
NASM
43 lines
529 B
NASM
|
jmp main
|
||
|
|
|
||
|
|
%include "print.inc"
|
||
|
|
%include "symbols.inc"
|
||
|
|
|
||
|
|
; OUT cx value of '$' label
|
||
|
|
asmcur mov cx, 0
|
||
|
|
ret
|
||
|
|
|
||
|
|
; IN cx runtime address
|
||
|
|
; OUT es:bx address in binary
|
||
|
|
asmptr mov bx, ds
|
||
|
|
mov es, bx
|
||
|
|
mov bx, cx
|
||
|
|
add bx, buf
|
||
|
|
ret
|
||
|
|
|
||
|
|
main call putsh
|
||
|
|
db "Normal read-back... ", 0
|
||
|
|
|
||
|
|
mov dx, "LA"
|
||
|
|
mov si, "BE"
|
||
|
|
mov di, "L1"
|
||
|
|
mov cx, 0x1234
|
||
|
|
call s_set
|
||
|
|
xor cx, cx
|
||
|
|
|
||
|
|
call s_get
|
||
|
|
cmp cx, 0x1234
|
||
|
|
call testz
|
||
|
|
|
||
|
|
ret
|
||
|
|
|
||
|
|
testz jnz .fail
|
||
|
|
call putsh
|
||
|
|
db "OK", 0x0A, 0x0D, 0
|
||
|
|
ret
|
||
|
|
.fail call putsh
|
||
|
|
db "FAIL", 0x0A, 0x0D, 0
|
||
|
|
ret
|
||
|
|
|
||
|
|
buf times 0x100 db 0
|