; MACRO INVEN para NMP
; 1993 (C) NM Soft


push 1 100
push 1 101 ; Apilo flags que voy a usar

objat 254 100
jz qwert 100  ; Si no llevo nada salto a ver si llevo algo puesto
mes 3
xlistat 254  ; Listo lo que llevo
ascii 32
label qwert
objat 253 101
jz trewq 101  ; Si no llevo nada puesto salto a comprobaci¢n final
mes 6
xlistat 253
label trewq
jnz poiuy 100
jnz poiuy 101
message 0   ; Si no llevo nada de nada pues lo digo
label poiuy
pop 1 101
pop 1 100     ; recupero flags