;.MODEL TINY
;YSS89, cont, ycont,Yss 1989-, sdD+J.
;------------------------------------
CSEG	SEGMENT PARA PUBLIC 'CODE'
ORG 100H
	ASSUME CS:CSEG,DS:CSEG
START	PROC FAR
;=============================================================
;SET SCREEN + ES
;=============================================================
	MOV AL,13H
	INT 10H
	MOV BH,0A0H
	MOV ES,BX

	MOV SI,OFFSET MOB
	MOV DI,0+320*(100-5)
	CALL MOBOUT

	MOV AX,X
	INT 20H

MOBOUT PROC
			  ;VIEW IMG IN SI
       MOV BP,9
M00:
       MOV CX,22/2
       CLD
       REP MOVSW
       ADD DI,320-22
       DEC BP
       JNE M00
       RET
MOBOUT ENDP
START	ENDP
X DW 0
MOB LABEL WORD
;22*9 IMAGES
;A+0 -> CHR FACING RIGHT
;A+198 -> CHR FACING LEFT


	  DW 2313, 2313, 2313, 2313, 2313, 2313, 2313, 9
	  DW 0, 0, 0, 2313, 1026, 1026, 1026, 516, 1028
	  DW 2306, 9, 3084, 12, 0, 2313, 1033, 1033, 1033
	  DW 2313, 2308, 2313, 9, 3084, 3084, 0, 2313, 514
	  DW 516, 514, 516, 1026, 2306, 265, 12, 0, 0
	  DW 2313, 2313, 2308, 1033, 2308, 1028, 2313, 265, 3084
	  DW 3084, 1036, 2313, 514, 2313, 2313, 521, 514, 2306
	  DW 265, 3084, 3084, 1036, 2313, 2313, 6409, 6425, 2313
	  DW 2313, 2313, 265, 6412, 6425, 1036, 0, 0, 6400
	  DW 6408, 0, 0, 0, 0, 6400, 6408, 0, 0
	  DW 0, 6400, 6425, 0, 0, 0, 0, 6400, 6425
	  DW 0, 0, 0, 0, 2304, 2313, 2313, 2313, 2313
	  DW 2313, 2313, 2313, 0, 3072, 3084, 2304, 521, 1026
	  DW 1028, 1026, 1026, 514, 2313, 0, 3084, 3084, 2304
	  DW 2313, 1033, 1033, 1033, 2308, 2313, 2313, 0, 0
	  DW 3072, 2305, 521, 1026, 1026, 1026, 516, 514, 2313
	  DW 3076, 3084, 3084, 2305, 2313, 1033, 1028, 1033, 1033
	  DW 2313, 2313, 3076, 3084, 3084, 2305, 521, 514, 2306
	  DW 2313, 2313, 514, 2313, 3076, 6425, 3097, 2305, 2313
	  DW 2313, 2313, 6425, 2329, 2313, 2313, 0, 2073, 25
	  DW 0, 0, 0, 0, 2073, 25, 0, 0, 0
	  DW 6425, 25, 0, 0, 0, 0, 6425, 25, 0
	  DW 0


CSEG	ENDS
     END START