;
; PONGII - Help & One Player option, 5/8/88
;

	SEARCH	SYS
	SEARCH	SYSSYM

	RADIX	16.

.ofini	^h14			; old value
.ofdef	OnePlayer,1
.ofdef	BadOpt,1
.ofdef	PaddleFlag,2
.ofsiz	impsiz

	VMAJOR=1.
	VMINOR=0.
	VSUB=0.
	VEDIT=101.		; 5/8/88 Finally What I wanted in this game
	VWHO=0.

PONG:	PHDR	-1,0,PH$REE!PH$REU
	GETIMP	impsiz,A5
	MOV	#02EE,8(A5)	; set default 'normal speed'
10$:	BYP
	trm
	beq	start
	MOVB	(A2)+,D7
	CMPB	D7,#'/
	BNE	START
	MOVB	(A2)+,D7
	CMPB	D7,#'?
	JEQ	HELP
	CMPB	D7,#'F		; fast option ?
	BNE	20$
	MOV	#015E,8(A5)	; set fast speed variable
	BR	10$		; scan again
20$:	CMPB	D7,#'S		; slow option ?
	BNE	30$		;
	MOV	#04E2,8(A5)	; set slow speed variable
	BR	10$		; scan again
30$:	CMPB	D7,#'O		; One Player Option ?
	BNE	40$
	SETB	OnePlayer(A5)	; set both paddle action
	BR	10$
40$:	SETB	BadOpt(a5)	; set invalid option flag
	JMP	HELP		; give'em help

START:	MOVW	#-0100,D1	; 54	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 56	^O177400 ^H0FF00    65280.  '..' [:2 ]
	TCRT			; 58	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0FF,D1	; 5A	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 5C	^O177401 ^H0FF01    65281.  '..' [:2A]
	TCRT			; 5E	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E9,D1	; 60	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 62	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; 64	^O120110 ^H0A048    41032.  'H.' [YY2]
; set noechoing
	JOBIDX	A0		; 66	^O120152 ^H0A06A    41066.  'j.' [YZZ]
				; 68	^O020116 ^H0204E     8270.  'N ' [EF0]
	MOV	038(A0),A4	; 6A	^O024150 ^H02868    10344.  'h(' [FRX]
				; 6C	^O000070 ^H00038       56.  '8.' [ AP]
	ORW	#3,@A4		; 6E	^O000124 ^H00054       84.  'T.' [ BD]
				; 70	^O000003 ^H00003        3.  '..' [  C]
	MOVB	#0B,0C(A5)	; 72	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 74	^O000013 ^H0000B       11.  '..' [  K]
				; 76	^O000014 ^H0000C       12.  '..' [  L]
	MOVB	#0B,0D(A5)	; 78	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 7A	^O000013 ^H0000B       11.  '..' [  K]
				; 7C	^O000015 ^H0000D       13.  '..' [  M]
	CALL	L06E4		; 7E	^O047272 ^H04EBA    20154.  '.N' [LW4]
				; 80	^O003144 ^H00664     1636.  'd.' [A 6]
	CALL	L070C		; 82	^O047272 ^H04EBA    20154.  '.N' [LW4]
				; 84	^O003210 ^H00688     1672.  '..' [AA2]
	MOVB	#0C,D1		; 86	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 88	^O000014 ^H0000C       12.  '..' [  L]
	ROLW	D1,#8		; 8A	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#2,D1		; 8C	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 8E	^O000002 ^H00002        2.  '..' [  B]
	TCRT			; 90	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 92	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 94	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 96	^O120110 ^H0A048    41032.  'H.' [YY2]
	LEA	A0,L0734	; 98	^O040772 ^H041FA    16890.  '.A' [JVJ]
				; 9A	^O003232 ^H0069A     1690.  '..' [ABJ]
	CLR	D2		; 9C	^O041202 ^H04282    17026.  '.B' [JYZ]
L09E:	MOVB	(A0)+,D1	; 9E	^O011030 ^H01218     4632.  '..' [B52]
	BEQ	L0BC		; A0	^O063432 ^H0671A    26394.  '.g' [PS4]
	INC	D2		; A2	^O051202 ^H05282    21122.  '.R' [MHB]
	TTY			; A4	^O120012 ^H0A00A    40970.  '..' [YXJ]
	MOV	#01F4,D6	; A6	^O026074 ^H02C3C    11324.  '<,' [GCD]
				; A8	^O000000 ^H00000        0.  '..' [   ]
				; AA	^O000764 ^H001F4      500.  '..' [ LT]
	SLEEP			; AC	^O120106 ^H0A046    41030.  'F.' [YY0]
	TYPESP	<>
	MOV	#01F4,D6	; B2	^O026074 ^H02C3C    11324.  '<,' [GCD]
				; B4	^O000000 ^H00000        0.  '..' [   ]
				; B6	^O000764 ^H001F4      500.  '..' [ LT]
	SLEEP			; B8	^O120106 ^H0A046    41030.  'F.' [YY0]
	BR	L09E		; BA	^O060342 ^H060E2    24802.  '.`' [OTB]
L0BC:	MOV	#01D4C,D6	; BC	^O026074 ^H02C3C    11324.  '<,' [GCD]
				; BE	^O000000 ^H00000        0.  '..' [   ]
				; C0	^O016514 ^H01D4C     7500.  'L.' [D$T]
	SLEEP			; C2	^O120106 ^H0A046    41030.  'F.' [YY0]
	MOVB	#0C,D1		; C4	^O011074 ^H0123C     4668.  '<.' [B6.]
				; C6	^O000014 ^H0000C       12.  '..' [  L]
	ROLW	D1,#8		; C8	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#2,D1		; CA	^O011074 ^H0123C     4668.  '<.' [B6.]
				; CC	^O000002 ^H00002        2.  '..' [  B]
	TCRT			; CE	^O120110 ^H0A048    41032.  'H.' [YY2]
L0D0:	TYPESP	< >
	DEC	D2		; D6	^O051602 ^H05382    21378.  '.S' [MNR]
	BNE	L0D0		; D8	^O063366 ^H066F6    26358.  '.f' [PR8]
	MOVW	#-0E9,D1	; DA	^O031074 ^H0323C    12860.  '<2' [HAT]
				; DC	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; DE	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E3,D1	; E0	^O031074 ^H0323C    12860.  '<2' [HAT]
				; E2	^O177435 ^H0FF1D    65309.  '..' [:2%]
	TCRT			; E4	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOV	#1,D0		; E6	^O070001 ^H07001    28673.  '.p' [Q63]
L0E8:	MOVB	D0,D1		; E8	^O011000 ^H01200     4608.  '..' [B5H]
	ROLW	D1,#8		; EA	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#028,D1		; EC	^O011074 ^H0123C     4668.  '<.' [B6.]
				; EE	^O000050 ^H00028       40.  '(.' [ A ]
	TCRT			; F0	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0D1,D1	; F2	^O031074 ^H0323C    12860.  '<2' [HAT]
				; F4	^O177457 ^H0FF2F    65327.  '/.' [:3G]
	TCRT			; F6	^O120110 ^H0A048    41032.  'H.' [YY2]
	INC	D0		; F8	^O051200 ^H05280    21120.  '.R' [MH ]
	CMP	D0,#018		; FA	^O130274 ^H0B0BC    45244.  '..' [.KD]
				; FC	^O000000 ^H00000        0.  '..' [   ]
				; FE	^O000030 ^H00018       24.  '..' [  X]
	BLE	L0E8		; 100	^O067746 ^H06FE6    28646.  '.o' [Q6F]
	MOVB	#018,D1		; 102	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 104	^O000030 ^H00018       24.  '..' [  X]
	ROLW	D1,#8		; 106	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 108	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 10A	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 10C	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 10E	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 110	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 112	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPE	<LEFT: W=UP, Z=DOWN     SPACE=SERVE>
	MOVB	#018,D1		; 13A	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 13C	^O000030 ^H00018       24.  '..' [  X]
	ROLW	D1,#8		; 13E	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#02E,D1		; 140	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 142	^O000056 ^H0002E       46.  '..' [ AF]
	TCRT			; 144	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPE	<ESC=EXIT    RIGHT: ^K=UP, ^J=DOWN>
	MOVW	#-0E9,D1	; 16A	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 16C	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; 16E	^O120110 ^H0A048    41032.  'H.' [YY2]
L0170:	TST	012(A4)		; 170	^O045254 ^H04AAC    19116.  '.J' [K76]
				; 172	^O000022 ^H00012       18.  '..' [  R]
	BEQ	L0170		; 174	^O063772 ^H067FA    26618.  '.g' [PYR]
	MOVB	#018,D1		; 176	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 178	^O000030 ^H00018       24.  '..' [  X]
	ROLW	D1,#8		; 17A	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 17C	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 17E	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 180	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0F7,D1	; 182	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 184	^O177411 ^H0FF09    65289.  '..' [:2I]
	TCRT			; 186	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVB	#018,D1		; 188	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 18A	^O000030 ^H00018       24.  '..' [  X]
	ROLW	D1,#8		; 18C	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#028,D1		; 18E	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 190	^O000050 ^H00028       40.  '(.' [ A ]
	TCRT			; 192	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0D1,D1	; 194	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 196	^O177457 ^H0FF2F    65327.  '/.' [:3G]
	TCRT			; 198	^O120110 ^H0A048    41032.  'H.' [YY2]
L019A:	CALL	L03C2		; 19A	^O047272 ^H04EBA    20154.  '.N' [LW4]
				; 19C	^O001046 ^H00226      550.  '&.' [ M0]
	TST	012(A4)		; 19E	^O045254 ^H04AAC    19116.  '.J' [K76]
				; 1A0	^O000022 ^H00012       18.  '..' [  R]
	BNE	L01AC		; 1A2	^O063010 ^H06608    26120.  '.f' [PM ]
	MOV	8(A5),D6	; 1A4	^O026055 ^H02C2D    11309.  '-,' [GB%]
				; 1A6	^O000010 ^H00008        8.  '..' [  H]
	SLEEP			; 1A8	^O120106 ^H0A046    41030.  'F.' [YY0]
	BR	L019A		; 1AA	^O060356 ^H060EE    24814.  '.`' [OTN]
L01AC:	KBD			; 1AC	^O120010 ^H0A008    40968.  '..' [YXH]
	LEA	A6,EndGame	; 1AE	^O046772 ^H04DFA    19962.  '.M' [LSB]
				; 1B0	^O000762 ^H001F2      498.  '..' [ LR]
	CTRLC			; 1B2	^O120034 ^H0A01C    40988.  '..' [YX.]
	UCS			; 1B4	^O120300 ^H0A0C0    41152.  '..' [Y.2]
	LEA	A0,L01DE	; 1B6	^O040772 ^H041FA    16890.  '.A' [JVJ]
				; 1B8	^O000046 ^H00026       38.  '&.' [  8]
	MOV	#-2,D0		; 1BA	^O070376 ^H070FE    28926.  '.p' [RCF]
L01BC:	TSTB	@A0		; 1BC	^O045020 ^H04A10    18960.  '.J' [K4 ]
	JEQ	L019A		; 1BE	^O063400 ^H06700    26368.  '.g' [PSH]
				; 1C0	^O177732 ^H0FFDA    65498.  '..' [:7R]
	ADD	#2,D0		; 1C2	^O052200 ^H05480    21632.  '.T' [MT2]
	MOVB	(A0)+,D7	; 1C4	^O017030 ^H01E18     7704.  '..' [D2X]
	CMPB	D7,D1		; 1C6	^O137001 ^H0BE01    48641.  '..' [0PA]
	BNE	L01BC		; 1C8	^O063362 ^H066F2    26354.  '.f' [PR4]
	CLRB	PaddleFlag(A5)	; 
	MOVW	keyTable[~D0],D0
	JMP	KeyTable[~D0]	; 1CE	^O047373 ^H04EFB    20219.  '.N' [LYS]
				; 1D0	^O000002 ^H00002        2.  '..' [  B]
KeyTable:
	WORD	LftPadUp-KeyTable	; 1D2	Left paddle UP
	WORD	LftPadDwn-KeyTable	; 1D4	Left paddle DOWN
	WORD	RgtPadUp-KeyTable	; 1D6	Right paddle UP
	WORD	RgtPadDwn-KeyTable	; 1D8	Right paddle DOWN
	WORD	EndGame-KeyTable	; 1DA	End game
	WORD	ReleaseBall-KeyTable	; 1DC	Release ball

L01DE:	BYTE	'W
	BYTE	'Z
	BYTE	'K-'@
	BYTE	'J-'@
	BYTE	27.
	BYTE	32.
	BYTE	0		; end of list
	EVEN

; release ball
ReleaseBall:
	TSTB	0E(A5)		; 1E6	^O045055 ^H04A2D    18989.  '-J' [K4%]
				; 1E8	^O000016 ^H0000E       14.  '..' [  N]
	JNE	L019A		; 1EA	^O063000 ^H06600    26112.  '.f' [PL2]
				; 1EC	^O177656 ^H0FFAE    65454.  '..' [:6N]
	MOV	@A5,D0		; 1EE	^O020025 ^H02015     8213.  '. ' [EEM]
	MOV	4(A5),D7	; 1F0	^O027055 ^H02E2D    11821.  '-.' [GOU]
				; 1F2	^O000004 ^H00004        4.  '..' [  D]
	ADD	D7,D0		; 1F4	^O150207 ^H0D087    53383.  '..' [3NW]
	BTST	#0,D0		; 1F6	^O004000 ^H00800     2048.  '..' [AKH]
				; 1F8	^O000000 ^H00000        0.  '..' [   ]
	BEQ	L023E		; 1FA	^O063502 ^H06742    26434.  'Bg' [PT4]
	MOVB	#1,0E(A5)	; 1FC	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 1FE	^O000001 ^H00001        1.  '..' [  A]
				; 200	^O000016 ^H0000E       14.  '..' [  N]
	MOVB	#04D,0F(A5)	; 202	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 204	^O000115 ^H0004D       77.  'M.' [ A7]
				; 206	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#1,010(A5)	; 208	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 20A	^O000001 ^H00001        1.  '..' [  A]
				; 20C	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#2,011(A5)	; 20E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 210	^O000002 ^H00002        2.  '..' [  B]
				; 212	^O000021 ^H00011       17.  '..' [  Q]
	MOVB	#1,012(A5)	; 214	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 216	^O000001 ^H00001        1.  '..' [  A]
				; 218	^O000022 ^H00012       18.  '..' [  R]
	CLRB	013(A5)		; 21A	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 21C	^O000023 ^H00013       19.  '..' [  S]
	MOVB	0E(A5),D1	; 21E	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 220	^O000016 ^H0000E       14.  '..' [  N]
	ROLW	D1,#8		; 222	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	0F(A5),D1	; 224	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 226	^O000017 ^H0000F       15.  '..' [  O]
	TCRT			; 228	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 22A	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 22C	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 22E	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPE	<o>
	MOVW	#-0E9,D1	; 234	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 236	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; 238	^O120110 ^H0A048    41032.  'H.' [YY2]
	JMP	L019A		; 23A	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 23C	^O177536 ^H0FF5E    65374.  '^.' [:4N]
L023E:	MOVB	#1,0E(A5)	; 23E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 240	^O000001 ^H00001        1.  '..' [  A]
				; 242	^O000016 ^H0000E       14.  '..' [  N]
	MOVB	#2,0F(A5)	; 244	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 246	^O000002 ^H00002        2.  '..' [  B]
				; 248	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#1,010(A5)	; 24A	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 24C	^O000001 ^H00001        1.  '..' [  A]
				; 24E	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#2,011(A5)	; 250	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 252	^O000002 ^H00002        2.  '..' [  B]
				; 254	^O000021 ^H00011       17.  '..' [  Q]
	MOVB	#1,012(A5)	; 256	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 258	^O000001 ^H00001        1.  '..' [  A]
				; 25A	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#1,013(A5)	; 25C	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 25E	^O000001 ^H00001        1.  '..' [  A]
				; 260	^O000023 ^H00013       19.  '..' [  S]
	MOVB	0E(A5),D1	; 262	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 264	^O000016 ^H0000E       14.  '..' [  N]
	ROLW	D1,#8		; 266	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	0F(A5),D1	; 268	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 26A	^O000017 ^H0000F       15.  '..' [  O]
	TCRT			; 26C	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 26E	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 270	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 272	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPE	<o>
	MOVW	#-0E9,D1	; 278	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 27A	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; 27C	^O120110 ^H0A048    41032.  'H.' [YY2]
	JMP	L019A		; 27E	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 280	^O177432 ^H0FF1A    65306.  '..' [:2Z]
; left paddle UP
LftPadUp:
	MOVB	0C(A5),D7	; 282	^O017055 ^H01E2D     7725.  '-.' [D3E]
				; 284	^O000014 ^H0000C       12.  '..' [  L]
	CMPB	D7,#1		; 286	^O137074 ^H0BE3C    48700.  '<.' [0QT]
				; 288	^O000001 ^H00001        1.  '..' [  A]
	JEQ	L019A		; 28A	^O063400 ^H06700    26368.  '.g' [PSH]
				; 28C	^O177416 ^H0FF0E    65294.  '..' [:2N]
	CLR	D0		; 28E	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0C(A5),D0	; 290	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 292	^O000014 ^H0000C       12.  '..' [  L]
	ADD	#3,D0		; 294	^O053200 ^H05680    22144.  '.V' [M3X]
	MOVB	D0,D1		; 296	^O011000 ^H01200     4608.  '..' [B5H]
	ROLW	D1,#8		; 298	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 29A	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 29C	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 29E	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPESP	<>
	DECB	0C(A5)		; 2A4	^O051455 ^H0532D    21293.  '-S' [MLM]
				; 2A6	^O000014 ^H0000C       12.  '..' [  L]
	MOVB	0C(A5),D1	; 2A8	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 2AA	^O000014 ^H0000C       12.  '..' [  L]
	ROLW	D1,#8		; 2AC	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 2AE	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 2B0	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 2B2	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0CF,D1	; 2B4	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 2B6	^O177461 ^H0FF31    65329.  '1.' [:3I]
	TCRT			; 2B8	^O120110 ^H0A048    41032.  'H.' [YY2]
	CLR	D0		; 2BA	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0C(A5),D0	; 2BC	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 2BE	^O000014 ^H0000C       12.  '..' [  L]
	BTST	#0,D0		; 2C0	^O004000 ^H00800     2048.  '..' [AKH]
				; 2C2	^O000000 ^H00000        0.  '..' [   ]
	BEQ	LftPadUp		; 2C4	^O063674 ^H067BC    26556.  '.g' [PW6]
	tstb	OnePlayer(a5)	; one player ?
	jeq	L019A		; nope
	xorb	#1,PaddleFlag(a5)	; both paddles moved ?
	jeq	L019A
;	jmp	RgtPadUp		; nope, go move other paddle

; right paddle UP
RgtPadUp:	MOVB	0D(A5),D7	; 312	^O017055 ^H01E2D     7725.  '-.' [D3E]
				; 314	^O000015 ^H0000D       13.  '..' [  M]
	CMPB	D7,#1		; 316	^O137074 ^H0BE3C    48700.  '<.' [0QT]
				; 318	^O000001 ^H00001        1.  '..' [  A]
	JEQ	L019A		; 31A	^O063400 ^H06700    26368.  '.g' [PSH]
				; 31C	^O177176 ^H0FE7E    65150.  '~.' [:.0]
	CLR	D0		; 31E	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0D(A5),D0	; 320	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 322	^O000015 ^H0000D       13.  '..' [  M]
	ADD	#3,D0		; 324	^O053200 ^H05680    22144.  '.V' [M3X]
	MOVB	D0,D1		; 326	^O011000 ^H01200     4608.  '..' [B5H]
	ROLW	D1,#8		; 328	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#04F,D1		; 32A	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 32C	^O000117 ^H0004F       79.  'O.' [ A9]
	TCRT			; 32E	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPESP	<>
	DECB	0D(A5)		; 334	^O051455 ^H0532D    21293.  '-S' [MLM]
				; 336	^O000015 ^H0000D       13.  '..' [  M]
	MOVB	0D(A5),D1	; 338	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 33A	^O000015 ^H0000D       13.  '..' [  M]
	ROLW	D1,#8		; 33C	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#04F,D1		; 33E	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 340	^O000117 ^H0004F       79.  'O.' [ A9]
	TCRT			; 342	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0CF,D1	; 344	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 346	^O177461 ^H0FF31    65329.  '1.' [:3I]
	TCRT			; 348	^O120110 ^H0A048    41032.  'H.' [YY2]
	CLR	D0		; 34A	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0D(A5),D0	; 34C	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 34E	^O000015 ^H0000D       13.  '..' [  M]
	BTST	#0,D0		; 350	^O004000 ^H00800     2048.  '..' [AKH]
				; 352	^O000000 ^H00000        0.  '..' [   ]
	BEQ	RgtPadUp		; 354	^O063674 ^H067BC    26556.  '.g' [PW6]
	tstb	OnePlayer(a5)	; one player ?
	jeq	L019A		; nope
	xorb	#1,PaddleFlag(a5)	; both paddles moved ?
	jeq	L019A
	jmp	LftPadUp		; nope, go move other paddle

; left paddle DOWN
LftPadDwn:
	MOVB	0C(A5),D7	; 2CA	^O017055 ^H01E2D     7725.  '-.' [D3E]
				; 2CC	^O000014 ^H0000C       12.  '..' [  L]
	CMPB	D7,#015		; 2CE	^O137074 ^H0BE3C    48700.  '<.' [0QT]
				; 2D0	^O000025 ^H00015       21.  '..' [  U]
	JEQ	L019A		; 2D2	^O063400 ^H06700    26368.  '.g' [PSH]
				; 2D4	^O177306 ^H0FEC6    65222.  '..' [:0V]
	MOVB	0C(A5),D1	; 2D6	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 2D8	^O000014 ^H0000C       12.  '..' [  L]
	ROLW	D1,#8		; 2DA	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 2DC	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 2DE	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 2E0	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPESP	<>
	INCB	0C(A5)		; 2E6	^O051055 ^H0522D    21037.  '-R' [ME7]
				; 2E8	^O000014 ^H0000C       12.  '..' [  L]
	CLR	D0		; 2EA	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0C(A5),D0	; 2EC	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 2EE	^O000014 ^H0000C       12.  '..' [  L]
	ADD	#3,D0		; 2F0	^O053200 ^H05680    22144.  '.V' [M3X]
	MOVB	D0,D1		; 2F2	^O011000 ^H01200     4608.  '..' [B5H]
	ROLW	D1,#8		; 2F4	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 2F6	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 2F8	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 2FA	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0CF,D1	; 2FC	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 2FE	^O177461 ^H0FF31    65329.  '1.' [:3I]
	TCRT			; 300	^O120110 ^H0A048    41032.  'H.' [YY2]
	CLR	D0		; 302	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0C(A5),D0	; 304	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 306	^O000014 ^H0000C       12.  '..' [  L]
	BTST	#0,D0		; 308	^O004000 ^H00800     2048.  '..' [AKH]
				; 30A	^O000000 ^H00000        0.  '..' [   ]
	BEQ	LftPadDwn		; 30C	^O063674 ^H067BC    26556.  '.g' [PW6]
	tstb	OnePlayer(a5)	; one player ?
	jeq	L019A		; nope
	xorb	#1,PaddleFlag(a5)	; both paddles moved ?
	jeq	L019A
;	jmp	RgtPadDwn		; nope, go move other paddle

; right paddle DOWN
RgtPadDwn:	MOVB	0D(A5),D7	; 35A	^O017055 ^H01E2D     7725.  '-.' [D3E]
				; 35C	^O000015 ^H0000D       13.  '..' [  M]
	CMPB	D7,#015		; 35E	^O137074 ^H0BE3C    48700.  '<.' [0QT]
				; 360	^O000025 ^H00015       21.  '..' [  U]
	JEQ	L019A		; 362	^O063400 ^H06700    26368.  '.g' [PSH]
				; 364	^O177066 ^H0FE36    65078.  '6.' [:Z8]
	MOVB	0D(A5),D1	; 366	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 368	^O000015 ^H0000D       13.  '..' [  M]
	ROLW	D1,#8		; 36A	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#04F,D1		; 36C	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 36E	^O000117 ^H0004F       79.  'O.' [ A9]
	TCRT			; 370	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPESP	<>
	INCB	0D(A5)		; 376	^O051055 ^H0522D    21037.  '-R' [ME7]
				; 378	^O000015 ^H0000D       13.  '..' [  M]
	CLR	D0		; 37A	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0D(A5),D0	; 37C	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 37E	^O000015 ^H0000D       13.  '..' [  M]
	ADD	#3,D0		; 380	^O053200 ^H05680    22144.  '.V' [M3X]
	MOVB	D0,D1		; 382	^O011000 ^H01200     4608.  '..' [B5H]
	ROLW	D1,#8		; 384	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#04F,D1		; 386	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 388	^O000117 ^H0004F       79.  'O.' [ A9]
	TCRT			; 38A	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0CF,D1	; 38C	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 38E	^O177461 ^H0FF31    65329.  '1.' [:3I]
	TCRT			; 390	^O120110 ^H0A048    41032.  'H.' [YY2]
	CLR	D0		; 392	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0D(A5),D0	; 394	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 396	^O000015 ^H0000D       13.  '..' [  M]
	BTST	#0,D0		; 398	^O004000 ^H00800     2048.  '..' [AKH]
				; 39A	^O000000 ^H00000        0.  '..' [   ]
	BEQ	RgtPadDwn		; 39C	^O063674 ^H067BC    26556.  '.g' [PW6]
	tstb	OnePlayer(a5)	; one player ?
	jeq	L019A		; nope
	xorb	#1,PaddleFlag(a5)	; both paddles moved ?
	jeq	L019A
	jmp	LftPadDwn		; nope, go move other paddle

; End game
EndGame:	MOVB	#018,D1		; 3A2	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 3A4	^O000030 ^H00018       24.  '..' [  X]
	ROLW	D1,#8		; 3A6	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 3A8	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 3AA	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 3AC	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0F7,D1	; 3AE	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 3B0	^O177411 ^H0FF09    65289.  '..' [:2I]
	TCRT			; 3B2	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E4,D1	; 3B4	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 3B6	^O177434 ^H0FF1C    65308.  '..' [:2.]
	TCRT			; 3B8	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 3BA	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 3BC	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 3BE	^O120110 ^H0A048    41032.  'H.' [YY2]
	EXIT			; 3C0	^O120022 ^H0A012    40978.  '..' [YXR]
L03C2:	TSTB	0E(A5)		; 3C2	^O045055 ^H04A2D    18989.  '-J' [K4%]
				; 3C4	^O000016 ^H0000E       14.  '..' [  N]
	BNE	L03CA		; 3C6	^O063002 ^H06602    26114.  '.f' [PL4]
	RTN			; 3C8	^O047165 ^H04E75    20085.  'uN' [LVE]
L03CA:	MOVB	0E(A5),D1	; 3CA	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 3CC	^O000016 ^H0000E       14.  '..' [  N]
	ROLW	D1,#8		; 3CE	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	0F(A5),D1	; 3D0	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 3D2	^O000017 ^H0000F       15.  '..' [  O]
	TCRT			; 3D4	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVB	0F(A5),D7	; 3D6	^O017055 ^H01E2D     7725.  '-.' [D3E]
				; 3D8	^O000017 ^H0000F       15.  '..' [  O]
	CMPB	D7,#028		; 3DA	^O137074 ^H0BE3C    48700.  '<.' [0QT]
				; 3DC	^O000050 ^H00028       40.  '(.' [ A ]
	BEQ	L03E6		; 3DE	^O063406 ^H06706    26374.  '.g' [PSN]
	TYPESP	<>
	BR	L03EC		; 3E4	^O060006 ^H06006    24582.  '.`' [ONV]
L03E6:	MOVW	#-0D1,D1	; 3E6	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 3E8	^O177457 ^H0FF2F    65327.  '/.' [:3G]
	TCRT			; 3EA	^O120110 ^H0A048    41032.  'H.' [YY2]
L03EC:	TSTB	012(A5)		; 3EC	^O045055 ^H04A2D    18989.  '-J' [K4%]
				; 3EE	^O000022 ^H00012       18.  '..' [  R]
	BNE	L0406		; 3F0	^O063024 ^H06614    26132.  '.f' [PML]
	MOVB	010(A5),D0	; 3F2	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 3F4	^O000020 ^H00010       16.  '..' [  P]
	SUBB	D0,0E(A5)	; 3F6	^O110455 ^H0912D    37165.  '-.' [WIE]
				; 3F8	^O000016 ^H0000E       14.  '..' [  N]
	CMPB	0E(A5),#1	; 3FA	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 3FC	^O000001 ^H00001        1.  '..' [  A]
				; 3FE	^O000016 ^H0000E       14.  '..' [  N]
	JLT	L0496		; 400	^O066400 ^H06D00    27904.  '.m' [QQX]
				; 402	^O000224 ^H00094      148.  '..' [ C.]
	BR	L0418		; 404	^O060022 ^H06012    24594.  '.`' [ON4]
L0406:	MOVB	010(A5),D0	; 406	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 408	^O000020 ^H00010       16.  '..' [  P]
	ADDB	D0,0E(A5)	; 40A	^O150455 ^H0D12D    53549.  '-.' [3R%]
				; 40C	^O000016 ^H0000E       14.  '..' [  N]
	CMPB	0E(A5),#018	; 40E	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 410	^O000030 ^H00018       24.  '..' [  X]
				; 412	^O000016 ^H0000E       14.  '..' [  N]
	JGT	L0488		; 414	^O067000 ^H06E00    28160.  '.n' [QX ]
				; 416	^O000162 ^H00072      114.  'r.' [ B4]
L0418:	TSTB	013(A5)		; 418	^O045055 ^H04A2D    18989.  '-J' [K4%]
				; 41A	^O000023 ^H00013       19.  '..' [  S]
	BNE	L0444		; 41C	^O063046 ^H06626    26150.  '&f' [PM0]
	CMPB	0F(A5),#2	; 41E	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 420	^O000002 ^H00002        2.  '..' [  B]
				; 422	^O000017 ^H0000F       15.  '..' [  O]
	JLE	L04A6		; 424	^O067400 ^H06F00    28416.  '.o' [Q0P]
				; 426	^O000200 ^H00080      128.  '..' [ CH]
	MOVB	011(A5),D0	; 428	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 42A	^O000021 ^H00011       17.  '..' [  Q]
	SUBB	D0,0F(A5)	; 42C	^O110455 ^H0912D    37165.  '-.' [WIE]
				; 42E	^O000017 ^H0000F       15.  '..' [  O]
	CMPB	0F(A5),#2	; 430	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 432	^O000002 ^H00002        2.  '..' [  B]
				; 434	^O000017 ^H0000F       15.  '..' [  O]
	JGE	L0464		; 436	^O066000 ^H06C00    27648.  '.l' [QKH]
				; 438	^O000054 ^H0002C       44.  ',.' [ AD]
	MOVB	#2,0F(A5)	; 43A	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 43C	^O000002 ^H00002        2.  '..' [  B]
				; 43E	^O000017 ^H0000F       15.  '..' [  O]
	JMP	L0464		; 440	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 442	^O000042 ^H00022       34.  '".' [  4]
L0444:	CMPB	0F(A5),#04E	; 444	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 446	^O000116 ^H0004E       78.  'N.' [ A8]
				; 448	^O000017 ^H0000F       15.  '..' [  O]
	JGE	L05CE		; 44A	^O066000 ^H06C00    27648.  '.l' [QKH]
				; 44C	^O000602 ^H00182      386.  '..' [ IZ]
	MOVB	011(A5),D0	; 44E	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 450	^O000021 ^H00011       17.  '..' [  Q]
	ADDB	D0,0F(A5)	; 452	^O150455 ^H0D12D    53549.  '-.' [3R%]
				; 454	^O000017 ^H0000F       15.  '..' [  O]
	CMPB	0F(A5),#04E	; 456	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 458	^O000116 ^H0004E       78.  'N.' [ A8]
				; 45A	^O000017 ^H0000F       15.  '..' [  O]
	BLE	L0464		; 45C	^O067406 ^H06F06    28422.  '.o' [Q0V]
	MOVB	#04E,0F(A5)	; 45E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 460	^O000116 ^H0004E       78.  'N.' [ A8]
				; 462	^O000017 ^H0000F       15.  '..' [  O]
L0464:	MOVB	0E(A5),D1	; 464	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 466	^O000016 ^H0000E       14.  '..' [  N]
	ROLW	D1,#8		; 468	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	0F(A5),D1	; 46A	^O011055 ^H0122D     4653.  '-.' [B6M]
				; 46C	^O000017 ^H0000F       15.  '..' [  O]
	TCRT			; 46E	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 470	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 472	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 474	^O120110 ^H0A048    41032.  'H.' [YY2]
	TYPE	<o>
	MOVW	#-0E9,D1	; 47A	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 47C	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; 47E	^O120110 ^H0A048    41032.  'H.' [YY2]
	RTN			; 480	^O047165 ^H04E75    20085.  'uN' [LVE]
L0482:	CLRB	0E(A5)		; 482	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 484	^O000016 ^H0000E       14.  '..' [  N]
	RTN			; 486	^O047165 ^H04E75    20085.  'uN' [LVE]
L0488:	MOVB	#018,0E(A5)	; 488	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 48A	^O000030 ^H00018       24.  '..' [  X]
				; 48C	^O000016 ^H0000E       14.  '..' [  N]
	CLRB	012(A5)		; 48E	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 490	^O000022 ^H00012       18.  '..' [  R]
	JMP	L0418		; 492	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 494	^O177604 ^H0FF84    65412.  '..' [:5L]
L0496:	MOVB	#1,0E(A5)	; 496	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 498	^O000001 ^H00001        1.  '..' [  A]
				; 49A	^O000016 ^H0000E       14.  '..' [  N]
	MOVB	#1,012(A5)	; 49C	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 49E	^O000001 ^H00001        1.  '..' [  A]
				; 4A0	^O000022 ^H00012       18.  '..' [  R]
	JMP	L0418		; 4A2	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 4A4	^O177564 ^H0FF74    65396.  't.' [:46]
L04A6:	CLR	D0		; 4A6	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0C(A5),D0	; 4A8	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 4AA	^O000014 ^H0000C       12.  '..' [  L]
	DECB	D0		; 4AC	^O051400 ^H05300    21248.  '.S' [MKH]
	BEQ	L04B8		; 4AE	^O063410 ^H06708    26376.  '.g' [PSP]
	CMPB	D0,0E(A5)	; 4B0	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 4B2	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L0514		; 4B4	^O063400 ^H06700    26368.  '.g' [PSH]
				; 4B6	^O000136 ^H0005E       94.  '^.' [ BN]
L04B8:	INCB	D0		; 4B8	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 4BA	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 4BC	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L0514		; 4BE	^O063400 ^H06700    26368.  '.g' [PSH]
				; 4C0	^O000124 ^H00054       84.  'T.' [ BD]
	INCB	D0		; 4C2	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 4C4	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 4C6	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L0534		; 4C8	^O063400 ^H06700    26368.  '.g' [PSH]
				; 4CA	^O000152 ^H0006A      106.  'j.' [ BZ]
	INCB	D0		; 4CC	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 4CE	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 4D0	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L055E		; 4D2	^O063400 ^H06700    26368.  '.g' [PSH]
				; 4D4	^O000212 ^H0008A      138.  '..' [ CR]
	INCB	D0		; 4D6	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 4D8	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 4DA	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L05AC		; 4DC	^O063400 ^H06700    26368.  '.g' [PSH]
				; 4DE	^O000316 ^H000CE      206.  '..' [ EF]
	INCB	D0		; 4E0	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 4E2	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 4E4	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L05AC		; 4E6	^O063400 ^H06700    26368.  '.g' [PSH]
				; 4E8	^O000304 ^H000C4      196.  '..' [ D6]
	INC	4(A5)		; 4EA	^O051255 ^H052AD    21165.  '.R' [MIE]
				; 4EC	^O000004 ^H00004        4.  '..' [  D]
	MOVB	#1,D1		; 4EE	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 4F0	^O000001 ^H00001        1.  '..' [  A]
	ROLW	D1,#8		; 4F2	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#04B,D1		; 4F4	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 4F6	^O000113 ^H0004B       75.  'K.' [ A5]
	TCRT			; 4F8	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 4FA	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 4FC	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 4FE	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOV	4(A5),D1	; 500	^O021055 ^H0222D     8749.  '-"' [ER%]
				; 502	^O000004 ^H00004        4.  '..' [  D]
	MOVW	#0200,D6	; 504	^O036074 ^H03C3C    15420.  '<<' [IYT]
				; 506	^O001000 ^H00200      512.  '..' [ L2]
	OCVT			; 508	^O120024 ^H0A014    40980.  '..' [YXT]
	MOVW	#-0E9,D1	; 50A	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 50C	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; 50E	^O120110 ^H0A048    41032.  'H.' [YY2]
	JMP	L0482		; 510	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 512	^O177560 ^H0FF70    65392.  'p.' [:42]
L0514:	MOVB	#2,0F(A5)	; 514	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 516	^O000002 ^H00002        2.  '..' [  B]
				; 518	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#2,010(A5)	; 51A	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 51C	^O000002 ^H00002        2.  '..' [  B]
				; 51E	^O000020 ^H00010       16.  '..' [  P]
	CLRB	012(A5)		; 520	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 522	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 524	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 526	^O000002 ^H00002        2.  '..' [  B]
				; 528	^O000021 ^H00011       17.  '..' [  Q]
	MOVB	#1,013(A5)	; 52A	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 52C	^O000001 ^H00001        1.  '..' [  A]
				; 52E	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 530	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 532	^O177462 ^H0FF32    65330.  '2.' [:3J]
L0534:	CMPB	010(A5),#2	; 534	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 536	^O000002 ^H00002        2.  '..' [  B]
				; 538	^O000020 ^H00010       16.  '..' [  P]
	JLT	L058A		; 53A	^O066400 ^H06D00    27904.  '.m' [QQX]
				; 53C	^O000116 ^H0004E       78.  'N.' [ A8]
	MOVB	#2,0F(A5)	; 53E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 540	^O000002 ^H00002        2.  '..' [  B]
				; 542	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#1,010(A5)	; 544	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 546	^O000001 ^H00001        1.  '..' [  A]
				; 548	^O000020 ^H00010       16.  '..' [  P]
	CLRB	012(A5)		; 54A	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 54C	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 54E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 550	^O000002 ^H00002        2.  '..' [  B]
				; 552	^O000021 ^H00011       17.  '..' [  Q]
	MOVB	#1,013(A5)	; 554	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 556	^O000001 ^H00001        1.  '..' [  A]
				; 558	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 55A	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 55C	^O177410 ^H0FF08    65288.  '..' [:2H]
; MOVE
L055E:	CMPB	010(A5),#2	; 55E	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 560	^O000002 ^H00002        2.  '..' [  B]
				; 562	^O000020 ^H00010       16.  '..' [  P]
	JLT	L058A		; 564	^O066400 ^H06D00    27904.  '.m' [QQX]
				; 566	^O000044 ^H00024       36.  '$.' [  6]
	MOVB	#2,0F(A5)	; 568	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 56A	^O000002 ^H00002        2.  '..' [  B]
				; 56C	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#1,010(A5)	; 56E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 570	^O000001 ^H00001        1.  '..' [  A]
				; 572	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#1,012(A5)	; 574	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 576	^O000001 ^H00001        1.  '..' [  A]
				; 578	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 57A	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 57C	^O000002 ^H00002        2.  '..' [  B]
				; 57E	^O000021 ^H00011       17.  '..' [  Q]
	MOVB	#1,013(A5)	; 580	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 582	^O000001 ^H00001        1.  '..' [  A]
				; 584	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 586	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 588	^O177334 ^H0FEDC    65244.  '..' [:1D]
; MOVE
L058A:	MOVB	#2,0F(A5)	; 58A	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 58C	^O000002 ^H00002        2.  '..' [  B]
				; 58E	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#0,010(A5)	; 590	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 592	^O000000 ^H00000        0.  '..' [   ]
				; 594	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#1,012(A5)	; 596	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 598	^O000001 ^H00001        1.  '..' [  A]
				; 59A	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 59C	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 59E	^O000002 ^H00002        2.  '..' [  B]
				; 5A0	^O000021 ^H00011       17.  '..' [  Q]
	MOVB	#1,013(A5)	; 5A2	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 5A4	^O000001 ^H00001        1.  '..' [  A]
				; 5A6	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 5A8	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 5AA	^O177272 ^H0FEBA    65210.  '..' [:0J]
; MOVE
L05AC:	MOVB	#2,0F(A5)	; 5AC	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 5AE	^O000002 ^H00002        2.  '..' [  B]
				; 5B0	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#2,010(A5)	; 5B2	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 5B4	^O000002 ^H00002        2.  '..' [  B]
				; 5B6	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#1,012(A5)	; 5B8	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 5BA	^O000001 ^H00001        1.  '..' [  A]
				; 5BC	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 5BE	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 5C0	^O000002 ^H00002        2.  '..' [  B]
				; 5C2	^O000021 ^H00011       17.  '..' [  Q]
	MOVB	#1,013(A5)	; 5C4	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 5C6	^O000001 ^H00001        1.  '..' [  A]
				; 5C8	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 5CA	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 5CC	^O177230 ^H0FE98    65176.  '..' [:%P]
; SCORE ???
L05CE:	CLR	D0		; 5CE	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0D(A5),D0	; 5D0	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 5D2	^O000015 ^H0000D       13.  '..' [  M]
	DECB	D0		; 5D4	^O051400 ^H05300    21248.  '.S' [MKH]
	BEQ	L05E0		; 5D6	^O063410 ^H06708    26376.  '.g' [PSP]
	CMPB	D0,0E(A5)	; 5D8	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 5DA	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L0638		; 5DC	^O063400 ^H06700    26368.  '.g' [PSH]
				; 5DE	^O000132 ^H0005A       90.  'Z.' [ BJ]
L05E0:	INCB	D0		; 5E0	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 5E2	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 5E4	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L0638		; 5E6	^O063400 ^H06700    26368.  '.g' [PSH]
				; 5E8	^O000120 ^H00050       80.  'P.' [ B ]
	INCB	D0		; 5EA	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 5EC	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 5EE	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L0656		; 5F0	^O063400 ^H06700    26368.  '.g' [PSH]
				; 5F2	^O000144 ^H00064      100.  'd.' [ BT]
	INCB	D0		; 5F4	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 5F6	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 5F8	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L067C		; 5FA	^O063400 ^H06700    26368.  '.g' [PSH]
				; 5FC	^O000200 ^H00080      128.  '..' [ CH]
	INCB	D0		; 5FE	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 600	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 602	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L06C4		; 604	^O063400 ^H06700    26368.  '.g' [PSH]
				; 606	^O000276 ^H000BE      190.  '..' [ D0]
	INCB	D0		; 608	^O051000 ^H05200    20992.  '.R' [MD2]
	CMPB	D0,0E(A5)	; 60A	^O130055 ^H0B02D    45101.  '-.' [.GU]
				; 60C	^O000016 ^H0000E       14.  '..' [  N]
	JEQ	L06C4		; 60E	^O063400 ^H06700    26368.  '.g' [PSH]
				; 610	^O000264 ^H000B4      180.  '..' [ DT]
	INC	@A5		; 612	^O051225 ^H05295    21141.  '.R' [MHU]
	MOVB	#1,D1		; 614	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 616	^O000001 ^H00001        1.  '..' [  A]
	ROLW	D1,#8		; 618	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#3,D1		; 61A	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 61C	^O000003 ^H00003        3.  '..' [  C]
	TCRT			; 61E	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0E8,D1	; 620	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 622	^O177430 ^H0FF18    65304.  '..' [:2X]
	TCRT			; 624	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOV	@A5,D1		; 626	^O021025 ^H02215     8725.  '."' [ERE]
	MOVW	#0200,D6	; 628	^O036074 ^H03C3C    15420.  '<<' [IYT]
				; 62A	^O001000 ^H00200      512.  '..' [ L2]
	OCVT			; 62C	^O120024 ^H0A014    40980.  '..' [YXT]
	MOVW	#-0E9,D1	; 62E	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 630	^O177427 ^H0FF17    65303.  '..' [:2W]
	TCRT			; 632	^O120110 ^H0A048    41032.  'H.' [YY2]
	JMP	L0482		; 634	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 636	^O177114 ^H0FE4C    65100.  'L.' [:$T]
; MOVE
L0638:	MOVB	#04E,0F(A5)	; 638	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 63A	^O000116 ^H0004E       78.  'N.' [ A8]
				; 63C	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#2,010(A5)	; 63E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 640	^O000002 ^H00002        2.  '..' [  B]
				; 642	^O000020 ^H00010       16.  '..' [  P]
	CLRB	012(A5)		; 644	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 646	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 648	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 64A	^O000002 ^H00002        2.  '..' [  B]
				; 64C	^O000021 ^H00011       17.  '..' [  Q]
	CLRB	013(A5)		; 64E	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 650	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 652	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 654	^O177020 ^H0FE10    65040.  '..' [:Z ]
; MOVE
L0656:	CMPB	010(A5),#2	; 656	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 658	^O000002 ^H00002        2.  '..' [  B]
				; 65A	^O000020 ^H00010       16.  '..' [  P]
	BLT	L06A4		; 65C	^O066506 ^H06D46    27974.  'Fm' [QSN]
	MOVB	#04E,0F(A5)	; 65E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 660	^O000116 ^H0004E       78.  'N.' [ A8]
				; 662	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#1,010(A5)	; 664	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 666	^O000001 ^H00001        1.  '..' [  A]
				; 668	^O000020 ^H00010       16.  '..' [  P]
	CLRB	012(A5)		; 66A	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 66C	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 66E	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 670	^O000002 ^H00002        2.  '..' [  B]
				; 672	^O000021 ^H00011       17.  '..' [  Q]
	CLRB	013(A5)		; 674	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 676	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 678	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 67A	^O176752 ^H0FDEA    65002.  '..' [:YB]
; MOVE
L067C:	CMPB	010(A5),#2	; 67C	^O006055 ^H00C2D     3117.  '-.' [A77]
				; 67E	^O000002 ^H00002        2.  '..' [  B]
				; 680	^O000020 ^H00010       16.  '..' [  P]
	BLT	L06A4		; 682	^O066440 ^H06D20    27936.  ' m' [QRP]
	MOVB	#04E,0F(A5)	; 684	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 686	^O000116 ^H0004E       78.  'N.' [ A8]
				; 688	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#1,010(A5)	; 68A	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 68C	^O000001 ^H00001        1.  '..' [  A]
				; 68E	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#1,012(A5)	; 690	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 692	^O000001 ^H00001        1.  '..' [  A]
				; 694	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 696	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 698	^O000002 ^H00002        2.  '..' [  B]
				; 69A	^O000021 ^H00011       17.  '..' [  Q]
	CLRB	013(A5)		; 69C	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 69E	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 6A0	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 6A2	^O176702 ^H0FDC2    64962.  '..' [:XB]
; MOVE
L06A4:	MOVB	#04E,0F(A5)	; 6A4	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6A6	^O000116 ^H0004E       78.  'N.' [ A8]
				; 6A8	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#0,010(A5)	; 6AA	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6AC	^O000000 ^H00000        0.  '..' [   ]
				; 6AE	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#1,012(A5)	; 6B0	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6B2	^O000001 ^H00001        1.  '..' [  A]
				; 6B4	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 6B6	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6B8	^O000002 ^H00002        2.  '..' [  B]
				; 6BA	^O000021 ^H00011       17.  '..' [  Q]
	CLRB	013(A5)		; 6BC	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 6BE	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 6C0	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 6C2	^O176642 ^H0FDA2    64930.  '..' [:WJ]
; MOVE
L06C4:	MOVB	#04E,0F(A5)	; 6C4	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6C6	^O000116 ^H0004E       78.  'N.' [ A8]
				; 6C8	^O000017 ^H0000F       15.  '..' [  O]
	MOVB	#2,010(A5)	; 6CA	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6CC	^O000002 ^H00002        2.  '..' [  B]
				; 6CE	^O000020 ^H00010       16.  '..' [  P]
	MOVB	#1,012(A5)	; 6D0	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6D2	^O000001 ^H00001        1.  '..' [  A]
				; 6D4	^O000022 ^H00012       18.  '..' [  R]
	MOVB	#2,011(A5)	; 6D6	^O015574 ^H01B7C     7036.  '|.' [DO6]
				; 6D8	^O000002 ^H00002        2.  '..' [  B]
				; 6DA	^O000021 ^H00011       17.  '..' [  Q]
	CLRB	013(A5)		; 6DC	^O041055 ^H0422D    16941.  '-B' [JWU]
				; 6DE	^O000023 ^H00013       19.  '..' [  S]
	JMP	L0464		; 6E0	^O047372 ^H04EFA    20218.  '.N' [LYR]
				; 6E2	^O176602 ^H0FD82    64898.  '..' [:VR]
; SBR
L06E4:	SAVE	D0,D2		; 6E4	^O044347 ^H048E7    18663.  '.H' [KZW]
				; 6E6	^O120000 ^H0A000    40960.  '..' [YX ]
	CLR	D0		; 6E8	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0C(A5),D0	; 6EA	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 6EC	^O000014 ^H0000C       12.  '..' [  L]
	MOV	#4,D2		; 6EE	^O072004 ^H07404    29700.  '.t' [RVT]
L06F0:	MOVB	D0,D1		; 6F0	^O011000 ^H01200     4608.  '..' [B5H]
	ROLW	D1,#8		; 6F2	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#1,D1		; 6F4	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 6F6	^O000001 ^H00001        1.  '..' [  A]
	TCRT			; 6F8	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0CF,D1	; 6FA	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 6FC	^O177461 ^H0FF31    65329.  '1.' [:3I]
	TCRT			; 6FE	^O120110 ^H0A048    41032.  'H.' [YY2]
	INC	D0		; 700	^O051200 ^H05280    21120.  '.R' [MH ]
	DEC	D2		; 702	^O051602 ^H05382    21378.  '.S' [MNR]
	BNE	L06F0		; 704	^O063352 ^H066EA    26346.  '.f' [PRZ]
	REST	D2,D0		; 706	^O046337 ^H04CDF    19679.  '.L' [LK9]
				; 708	^O000005 ^H00005        5.  '..' [  E]
	RTN			; 70A	^O047165 ^H04E75    20085.  'uN' [LVE]
; SBR
L070C:	SAVE	D0,D2		; 70C	^O044347 ^H048E7    18663.  '.H' [KZW]
				; 70E	^O120000 ^H0A000    40960.  '..' [YX ]
	CLR	D0		; 710	^O041200 ^H04280    17024.  '.B' [JYX]
	MOVB	0D(A5),D0	; 712	^O010055 ^H0102D     4141.  '-.' [BWU]
				; 714	^O000015 ^H0000D       13.  '..' [  M]
	MOV	#4,D2		; 716	^O072004 ^H07404    29700.  '.t' [RVT]
L0718:	MOVB	D0,D1		; 718	^O011000 ^H01200     4608.  '..' [B5H]
	ROLW	D1,#8		; 71A	^O160531 ^H0E159    57689.  'Y.' [6BI]
	MOVB	#04F,D1		; 71C	^O011074 ^H0123C     4668.  '<.' [B6.]
				; 71E	^O000117 ^H0004F       79.  'O.' [ A9]
	TCRT			; 720	^O120110 ^H0A048    41032.  'H.' [YY2]
	MOVW	#-0CF,D1	; 722	^O031074 ^H0323C    12860.  '<2' [HAT]
				; 724	^O177461 ^H0FF31    65329.  '1.' [:3I]
	TCRT			; 726	^O120110 ^H0A048    41032.  'H.' [YY2]
	INC	D0		; 728	^O051200 ^H05280    21120.  '.R' [MH ]
	DEC	D2		; 72A	^O051602 ^H05382    21378.  '.S' [MNR]
	BNE	L0718		; 72C	^O063352 ^H066EA    26346.  '.f' [PRZ]
	REST	D2,D0		; 72E	^O046337 ^H04CDF    19679.  '.L' [LK9]
				; 730	^O000005 ^H00005        5.  '..' [  E]
	RTN			; 732	^O047165 ^H04E75    20085.  'uN' [LVE]
; String...
L0734:
	ASCII	/           PONG II by UltraSoft/
	BYTE	0
	EVEN

HELP:
	TSTB	BadOpt(a5)	; any invalid options ?
	BEQ	10$
	TTYI
	ASCII	"%Invalid Option: - "
	BYTE	7,13.,0
	EVEN
10$:	TTYI
	BYTE	13.
	ASCII	"           >PONG II - Help Menu<"
	BYTE	13.,13.
	ASCII	"Default:"
	BYTE	13.
	ASCII	"      Two Players/Normal Playing Speed"
	BYTE	13.,13.
	ASCII	"Options:"
	BYTE	13.
	ASCII	"      /? - This Menu (of course?)"
	BYTE	13.
	ASCII	"      /F - Fast Play (the UltraChallenge)"
	BYTE	13.
	ASCII	"      /O - One Player (move both paddles!)"
	BYTE	13.
	ASCII	"      /S - Slow Play (Novice)"
	BYTE	13.
	BYTE	0		
	EVEN
	EXIT
	END

.