;.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

	CALL MOBOUT1
	CALL MOBOUT2
	INT 20H
MOBOUT1 PROC
			  ;VIEW CHR1
	MOV SI,OFFSET MOB
	MOV DI,0+320*(100-5)
	CALL MOBOUT
	RET
MOBOUT1 ENDP

MOBOUT2 PROC
			  ;VIEW CHR2
	MOV SI,OFFSET MOB+198
	MOV DI,0+320*(100-5)+319-22
	CALL MOBOUT
	RET
MOBOUT2 ENDP
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
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