Members/kono/nitros9-code: 3rdparty/packages/subsim/sub1.asm annotate

annotate 3rdparty/packages/subsim/sub1.asm @ 1496:ae1f95eb053b

Removed more modules, fixed others

author	boisy
date	Tue, 23 Dec 2003 23:51:23 +0000
parents	0de024ea86cd
children

rev	line source
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1 ********************************************************************
1357 0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	2 * sub1 - Sub1 Sub Battle Simulator subroutine
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	3 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	4 * $Id$
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	5 *
1357 0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	6 * There is a lot of extraneous and unneccessary instructions throughout
0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	7 * the code. But since we use the jump table at module enter be careful
0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	8 * when removing any thing and adjust it accordingly.
0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	9 * No explicit edition byte in source.
0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	10 *
0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	11 * Edt/Rev YYYY/MM/DD Modified by
0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	12 * Comment
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	13 * ------------------------------------------------------------------
1357 0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	14 * 0 2003/03/29 Paul W. Zibaila
0de024ea86cd Added new style comments boisy parents: 1174 diff changeset	15 * Disassembly of original distribution.
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	16
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	17 nam sub1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	18 ttl Sub1 Sub Battle Simulator subroutine
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	19
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	20 ifp1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	21 use defsfile
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	22 endc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	23
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	24 * I/O path definitions
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	25 StdIn equ 0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	26 StdOut equ 1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	27 StdErr equ 2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	28
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	29
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	30
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	31 * defines for 5 bit zero offset instructions
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	32 Zldb_u equ $E640
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	33 Zldb_x equ $E600
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	34 Zsta_x equ $A700
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	35 Zclr_u equ $6F40
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	36 Zclr_x equ $6F00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	37
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	38 * misc defines for SUB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	39 SinTblSz equ $0169
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	40 CntrlSz equ $1666
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	41
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	42 SinDat equ $0126
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	43 CntrlDat equ $1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	44
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	45 * class D external label equates
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	46
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	47 D0001 equ $0001
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	48 D0002 equ $0002
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	49 D0003 equ $0003
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	50 D0004 equ $0004
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	51 D0005 equ $0005
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	52 D0006 equ $0006
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	53 D0007 equ $0007
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	54 D0009 equ $0009
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	55 D000D equ $000D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	56 D000E equ $000E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	57 D0010 equ $0010
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	58 D0012 equ $0012
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	59 D0013 equ $0013
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	60 D0015 equ $0015
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	61 D0030 equ $0030
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	62
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	63 * class X external label equates
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	64
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	65 X0107 equ $0107 address of subroutine module entry point
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	66 X0291 equ $0291
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	67 X0295 equ $0295
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	68 X0296 equ $0296
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	69 X0297 equ $0297
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	70 X0298 equ $0298
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	71 X029A equ $029A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	72 X029C equ $029C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	73 X02A3 equ $02A3 side FF = german 23 = American
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	74 X0355 equ $0355
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	75 X04F0 equ $04F0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	76 X04F2 equ $04F2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	77 X04F4 equ $04F4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	78 X04F5 equ $04F5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	79 X04F7 equ $04F7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	80 X04F8 equ $04F8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	81 X04F9 equ $04F9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	82 X04FA equ $04FA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	83 X04FB equ $04FB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	84 X04FC equ $04FC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	85 X04FD equ $04FD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	86 X04FE equ $04FE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	87 X04FF equ $04FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	88 X0500 equ $0500
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	89 X05CE equ $05CE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	90 X1D3F equ $1D3F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	91 X1D41 equ $1D41
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	92 X1D44 equ $1D44
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	93 X1D46 equ $1D46
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	94 X1D47 equ $1D47
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	95 X1D49 equ $1D49 IT.EKO original value (echo)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	96 X1D4A equ $1D4A IT.PAU original value (end of page pause)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	97 X1D6D equ $1D6D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	98 X1D76 equ $1D76
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	99 X1D88 equ $1D88
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	100 X1D89 equ $1D89
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	101 X1D8B equ $1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	102 X1D8F equ $1D8F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	103 X1D91 equ $1D91
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	104 X1D93 equ $1D93
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	105 X1D95 equ $1D95
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	106 X1DA5 equ $1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	107 X1DA7 equ $1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	108 X1DAD equ $1DAD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	109 X1DAF equ $1DAF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	110 X1DB9 equ $1DB9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	111 X1DD9 equ $1DD9 temp storage for path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	112 X1DDA equ $1DDA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	113 X1DF6 equ $1DF6
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	114 X1DF9 equ $1DF9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	115 X1E13 equ $1E13
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	116 X1E16 equ $1E16 year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	117 X1E17 equ $1E17
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	118 X1E1D equ $1E1D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	119 X1E1E equ $1E1E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	120 X1E20 equ $1E20
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	121 X1E22 equ $1E22
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	122 X1E23 equ $1E23
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	123 X1E24 equ $1E24
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	124 X4265 equ $4265
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	125 X4C75 equ $4C75 side 0=German 1=US
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	126 X4C76 equ $4C76 game type
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	127 X4C77 equ $4C77 game level
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	128 X4C78 equ $4C78
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	129 X4C7A equ $4C7A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	130 X4C80 equ $4C80
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	131 X4C81 equ $4C81
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	132 X4C82 equ $4C82
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	133 X4C83 equ $4C83
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	134 X4C84 equ $4C84
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	135 X4C85 equ $4C85
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	136 X4C87 equ $4C87
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	137 X4C88 equ $4C88
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	138 X4C90 equ $4C90
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	139 X4CA0 equ $4CA0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	140 X4CA1 equ $4CA1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	141 X4CA4 equ $4CA4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	142 X4CA6 equ $4CA6
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	143 X4CA8 equ $4CA8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	144 X4CA9 equ $4CA9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	145 X4CAA equ $4CAA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	146 X4CAB equ $4CAB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	147 X4CAC equ $4CAC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	148 X4CB1 equ $4CB1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	149 X4CB2 equ $4CB2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	150 X4CB3 equ $4CB3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	151 X4CB4 equ $4CB4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	152 X4CBD equ $4CBD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	153 X4CCC equ $4CCC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	154 X4CCD equ $4CCD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	155 X4CCE equ $4CCE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	156 X4CCF equ $4CCF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	157 X4CE0 equ $4CE0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	158 X4CEE equ $4CEE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	159 X4CEF equ $4CEF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	160 X4CF1 equ $4CF1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	161 X4CF3 equ $4CF3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	162 X4CF5 equ $4CF5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	163 X4CF7 equ $4CF7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	164 X4CF9 equ $4CF9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	165 X4CFB equ $4CFB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	166 X4CFD equ $4CFD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	167 X4CFF equ $4CFF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	168 X4D00 equ $4D00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	169 X4D01 equ $4D01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	170 X4D02 equ $4D02
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	171 X4D03 equ $4D03
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	172 X4D04 equ $4D04
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	173 X4D11 equ $4D11
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	174 X4D12 equ $4D12
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	175 X4D13 equ $4D13
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	176 X4D1B equ $4D1B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	177 X4D1D equ $4D1D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	178 X4D1F equ $4D1F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	179 X4D21 equ $4D21
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	180 X4D22 equ $4D22
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	181 X4D27 equ $4D27
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	182 X4D28 equ $4D28
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	183 X4D29 equ $4D29
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	184 X4D2B equ $4D2B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	185 X4D2E equ $4D2E radio status
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	186 X4D3B equ $4D3B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	187 X4D3C equ $4D3C new side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	188 X4D3D equ $4D3D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	189 X4D3E equ $4D3E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	190 X71B1 equ $71B1
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	191
be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	192 * subroutines in sub6 that get loaded into the data area
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	193 X72C3 equ $72C3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	194 X72F3 equ $72F3 seems to proceed character strings
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	195 X7304 equ $7304 calcs an integer based on input in d
be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	196 X735B equ $735B Change palette routine
be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	197 X7477 equ $7477 some sort of copy routine accepts acsii between $20-$5F ???
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	198 X74CC equ $74CC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	199 X74D9 equ $74D9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	200 X7691 equ $7691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	201 X76A4 equ $76A4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	202 X76B9 equ $76B9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	203 X7747 equ $7747
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	204 X77E5 equ $77E5
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	205 X782E equ $782E 2 place formatted integer output based on input in b
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	206 X7843 equ $7843
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	207 X7866 equ $7866
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	208 X7BF4 equ $7BF4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	209
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	210
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	211
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	212 tylg set SbRtn+Objct
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	213 atrv set ReEnt+rev
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	214 rev set $01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	215 *edition set $01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	216
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	217 mod eom,name,tylg,atrv,start,size
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	218
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	219
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	220
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	221 * OS9 data area definitions
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	222 size equ .
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	223
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	224 name fcs "sub1"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	225 * fcb edition no edition byte included in orig code
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	226
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	227 * b contains an offset passed by call to smap
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	228 start leax >JumpTbl,pcr
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	229 ldd b,x index to subroutine offset
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	230 ldx X0107 holds the address of start from smap call
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	231 jmp d,x nuttin' to it but to jump to it
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	232
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	233 JumpTbl
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	234 L001C fdb GoOpts-start $0023
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	235 fdb GameSetup-start $0FC5
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	236 fdb Read_mission-start $0A05
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	237 fdb MakeFile-start $0880
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	238 fdb ReadNewFile-start $08BC
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	239 fdb L0479-start $0468
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	240 fdb Read_mission2-start $0B42
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	241 fdb SetParms2-start $0547
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	242 fdb XmtSOS-start $0DF1
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	243 fdb Return2Sea-start $1243
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	244 fdb TransferTorp-start $145C
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	245 fdb XmtPOS-start $0E3C
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	246
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	247 GoOpts lbsr GetOPts
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	248
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	249
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	250 ldd #$0073
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	251 std X1DAF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	252
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	253 ldd #$00F4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	254 std X1DAD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	255
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	256 * Open Path - Opens a path to the an existing file or device
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	257 * as specified by the path list
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	258 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	259 * a -> access mode (D S PE PW PR E W R)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	260 * x -> address of the path list
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	261 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	262 * exit:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	263 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	264 * x -> address of the last btye of the path list + 1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	265 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	266 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	267 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	268 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	269
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	270 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	271 leax >SinTbl,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	272 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	273 pshs a save that path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	274
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	275 * Read - Reads n bytes from the specified path
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	276 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	277 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	278 * x -> address in which to store the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	279 * y -> is the number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	280 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	281 * exit:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	282 * y -> number of bytes read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	283 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	284 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	285 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	286 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	287
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	288 ldx #SinDat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	289 ldy #SinTblSz
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	290 os9 I$Read load it in data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	291
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	292 puls a clean up stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	293
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	294 * Close Path - Terminates I/O path
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	295 * (performs an impledd I$Detach call)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	296 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	297 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	298 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	299 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	300 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	301 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	302
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	303 os9 I$Close
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	304
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	305
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	306 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	307 leax >Font,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	308 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	309 pshs a No need for this here
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	310
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	311 * Seek - Repositions a file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	312 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	313 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	314 * x -> MS 16 bits of the desired file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	315 * u -> LS 16 bits of the desired file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	316 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	317 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	318 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	319 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	320
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	321 ldx #0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	322 ldy #0 No need for this here
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	323 ldu #$0103 file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	324 os9 I$Seek
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	325
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	326 ldx #$4D3F save address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	327 ldy #$0308 num of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	328 lda ,s get the path ?? should still be set
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	329 os9 I$Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	330
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	331 puls a get that same path number no need
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	332 os9 I$Close close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	333 inc X4C75 increment side ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	334
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	335 lbsr GetMisDat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	336 lbsr GetSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	337 lbsr GetShipmap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	338 lbsr GetMap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	339 lbsr GetConvoy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	340 lbsr SetParams
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	341 lbsr SetMorePars
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	342
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	343 lda #2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	344 sta X05CE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	345
1174 2006350d24f0 continued commenting pwz parents: 1134 diff changeset	346 ldd #$0004
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	347 std X1D44
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	348
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	349 ldd #$1234
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	350 std X1D3F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	351 std X1D41
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	352
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	353 lbra GetControl1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	354
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	355 os9 F$Exit
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	356
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	357 GetMap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	358 L00B8 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	359 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	360 tst X4C75 test the side value 0=German 1=US
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	361 bne MapUS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	362
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	363 leax >Germap,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	364 ldy #$0A9D number of bytes to read when the file is open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	365 bra LoadMap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	366
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	367 MapUS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	368 L00CB leax >USAmap,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	369 ldy #$094E number of bytes to read when the file is open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	370
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	371 LoadMap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	372 L00D3 pshs y number of bytes to read when the file is open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	373 os9 I$Open open it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	374 ldy ,s once again number of bytes to read when the file is open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	375 pshs a save the path
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	376 ldx #CntrlDat Set the addr to store the info
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	377 lda ,s get the path ???
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	378 os9 I$Read do the read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	379 puls a pull the path
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	380 os9 I$Close close the path
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	381
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	382 * decode and put it in memory
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	383 puls y get that number of bytes to read when the file is open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	384 leay -$01,y drop it by one
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	385 ldx #CntrlDat address where stored (from addr)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	386 ldu #$05CF destination address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	387 lbsr Decode_copy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	388 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	389
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	390
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	391 GetMisDat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	392 L00F9 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	393 lbsr Set_75
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	394 clr X4D27
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	395
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	396 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	397 leax >Mis_dat,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	398 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	399 sta X1DD9 stow path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	400
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	401 lbsr L019A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	402
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	403 ldb X02A3 load the Side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	404 lda #$33
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	405 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	406 tfr d,u LS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	407 ldx #0 MS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	408 lda X1DD9 get our path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	409 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	410
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	411 ldx #$4C8A address to store the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	412 ldy #$0033 number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	413 lda X1DD9 get the path number (not needed)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	414 os9 I$Read read the data from the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	415
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	416 lda X1DD9 get the path number again (not needed)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	417 os9 I$Close close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	418
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	419 ldb X4CA8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	420 decb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	421 lslb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	422 leax >ByteTbl4,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	423 ldd b,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	424 addb X4CA9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	425 adca #0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	426 std X1E17
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	427
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	428 ldb X4CAA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	429 stb X1E16 year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	430
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	431 ldb X4CAB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	432 tst X4C76 test game type value once
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	433 bne L015A not target practice
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	434 lbsr L021B was target practice
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	435
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	436 ldb #$10 on return load b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	437 L015A stb X4D22 always stow b either from X4CAB or a fixed value of $10
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	438
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	439 tst X4C76 test that game type value again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	440 beq Ext_MD if zero we're done
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	441
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	442 ldb X4CA0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	443 lbmi Ext_MD2 if negative were done
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	444 lda #$09 otherwise multiply by 9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	445 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	446 leax >ByteTbl3,pcr load pointer to bytetable
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	447 leax d,x index into it and use that as copy from addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	448 ldy #$4C63 set destination address to copy to
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	449 bsr Copy_9 copy 9 bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	450
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	451 ldb X4CA1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	452 bmi Ext_MD2 if negative we're done
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	453 lda #$09 same as above for 9 more bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	454 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	455 leax >ByteTbl3,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	456 leax d,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	457 ldy #$4C6C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	458 bsr Copy_9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	459
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	460 Ext_MD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	461 L018C puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	462
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	463
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	464 Copy_9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	465 L018E lda #$09 for the use only twice I would have inlined this snippet
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	466
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	467 Loop_9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	468 L0190 ldb ,x+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	469 stb ,y+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	470 deca
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	471 bne Loop_9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	472 rts
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	473
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	474
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	475 Ext_MD2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	476 L0198 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	477
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	478
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	479 L019A pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	480 ldb X4C76 check that game type value again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	481 cmpb #$02 is it a 2 War Time Command ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	482 lbeq inc2 if so head for inc & inc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	483
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	484 tst X4C76 check that game type value again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	485 bne L01B9 not target practice branch
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	486
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	487 ldb #$24 set some men loactaions with $
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	488 stb X02A3 the side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	489 stb X4D3B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	490
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	491 lda #$01 US
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	492 sta X4C75 set side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	493 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	494
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	495
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	496 L01B9 ldb X1E16 year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	497 cmpb X4D3D new year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	498 bne L01D7 not equal branch to next sub
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	499
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	500 ldb X4C75 side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	501 cmpb X4D3C new side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	502 bne L01D7 not equal branch to next sub
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	503
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	504 ldb X02A3 Side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	505 incb bump it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	506 cmpb X4D3B compare to mate
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	507 beq L01D7 if equal branch to next sub
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	508 stb X02A3 if not stow b at side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	509 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	510
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	511
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	512 L01D7 ldb X4C75 side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	513 stb X4D3C new side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	514
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	515 ldb X1E16 year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	516 stb X4D3D new year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	517
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	518 subb #39 start year german b used as index below
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	519
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	520 lda X4C75 side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	521 cmpa #0 German ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	522 bne Loadtb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	523
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	524 leax >ByteTblA,pcr German
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	525 bra Gotta
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	526
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	527 Loadtb leax >ByteTblB,pcr American
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	528 Gotta lda b,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	529 sta X02A3 side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	530
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	531 incb bump b by one
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	532 lda b,x index into x again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	533 sta X4D3B stow that
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	534 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	535
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	536
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	537 inc2 inc X02A3 side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	538 inc X4D3B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	539 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	540
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	541
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	542 ByteTblA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	543 L020B fcb $00,$02,$09,$0F,$15,$1B,$21,$24
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	544
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	545 ByteTblB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	546 L0213 fcb $00,$00,$00,$24,$2E,$32,$39,$3C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	547
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	548
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	549 L021B pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	550
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	551 ldb #$FF set b to $FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	552 ldx #$4C8A start address to set bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	553 Loop25 stb ,x+ set byte and bump pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	554 cmpx #$4CA4 have we moved 25 bytes?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	555 blo Loop25 nope loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	556
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	557 ldd #0000 I'm sure there is a reason these
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	558 std X4CA4 jump all over the place
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	559 std X4CA6 but it sure isn't self evident
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	560
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	561 clr X4C90
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	562
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	563 ldb #$05
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	564 stb X4CB1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	565
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	566 ldb #$10
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	567 stb X4CAB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	568
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	569 clr X4CB3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	570 clr X4CB4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	571
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	572 ldx #$0579
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	573 ldb #$06
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	574 stb $01,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	575
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	576 lda #$60
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	577 sta $02,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	578 sta X1DF6
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	579
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	580 ldd #$0064
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	581 std $03,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	582
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	583 lda #$7F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	584 sta $05,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	585 sta X1DF9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	586
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	587 ldd #$3FFF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	588 std $06,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	589
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	590 clr $12,x this gets overwritten below
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	591 clr $08,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	592 * $09.x is not manipulated
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	593
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	594 leax $0A,x so now x is pointed to $0583
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	595
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	596 ldd #$0108 this is cute a=$01 b=$08
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	597 Set8 sta ,x+ set 8 bytes to 1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	598 decb dec the counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	599 bne Set8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	600
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	601 * so when we're finished here starting $0580 we have
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	602 * 0580 $06,$60,$00,$64,$7F,$3F,$FF,$00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	603 * 0588 ??,$01,$01,$01,$01,$01,$01,$01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	604 * 0590 $01,$01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	605
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	606 clr X0296
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	607
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	608 ldd #$0320
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	609 std X1D6D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	610
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	611 lbsr L0479 branch down and set some more based at $0579
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	612 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	613
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	614
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	615 GetSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	616 L0281 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	617 lda #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	618 sta X0295
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	619
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	620 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	621 leax >SubStat,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	622 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	623
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	624 sta X1DD9 stow the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	625
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	626 lda X4CB1 First read of sub stats
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	627 ldb #$22
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	628 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	629 ldx #0 MS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	630 tfr d,u LS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	631 lda X1DD9 get the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	632 os9 I$Seek reset file pointer to the head of the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	633
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	634 ldx #$4CCC destination address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	635 ldy #$0022 number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	636 lda X1DD9 get that pesky path number (not needed)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	637 os9 I$Read read the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	638
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	639 lda X4CB2 second read of sub stats
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	640 ldb #$0D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	641 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	642 addd #$00CC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	643 ldx #0 MS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	644 tfr d,u LS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	645 lda X1DD9 get path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	646 os9 I$Seek position the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	647
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	648 ldx #$4CBD destination address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	649 ldy #$000D number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	650 lda X1DD9 get the path num (not needed)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	651 os9 I$Read read the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	652
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	653 lda X4C75 test side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	654 cmpa #0 is it zero? German
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	655 beq Geroff if so branch to get next file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	656 ldu #$0134 LS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	657 bra SetMS1 go get the MS word
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	658 Geroff ldu #$01AC LS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	659 SetMS1 ldx #$0000 MS 16 bits of file position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	660 lda X1DD9 get path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	661 os9 I$Seek position the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	662
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	663 ldx #$0501 destination addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	664 ldy #$0078 number bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	665 lda X1DD9 get path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	666 os9 I$Read read the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	667
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	668 lda X4C75 test side for next read value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	669 cmpa #0 German ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	670 beq Geroff2 set up next seek
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	671 ldu #$0224 LS word of pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	672 bra SetMS2 go set MS word
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	673 Geroff2 ldu #$02A2 LS word of pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	674 SetMS2 ldx #$0000 MS word of pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	675 lda X1DD9 get the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	676 os9 I$Seek set the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	677
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	678 ldx #$02B7 destination address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	679 ldy #$007E number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	680 lda X1DD9 get the path num (not needed)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	681 os9 I$Read fetch the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	682
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	683 lda X1DD9 get the path num (not needed)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	684 os9 I$Close close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	685
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	686 ldx #$4A80 load base addr for offset index addressing
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	687 ldu #$02B7 load base addr for offset index addressing
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	688
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	689 ldb #$06
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	690 pshs b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	692 Transtat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	693 L032D fdb Zclr_x clr 0,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	694
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	695 lda $01,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	696 sta $03,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	697
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	698 ldd $02,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	699 std $04,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	700
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	701 lda $04,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	702 sta $06,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	703
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	704 ldd $05,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	705 std $07,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	706
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	707 ldd #0 set up to clr word
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	708 std $01,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	709 std $09,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	710
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	711 leax $15,x bump pointer by 21
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	712 leau $15,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	713 dec ,s dec the counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	714 bne Transtat gone 6 times ? nope loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	715
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	716 puls b clean up stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	717
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	718 lda #$05
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	719 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	720
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	721 ldb X1E16 load year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	722 tst X4C75 test side value 0=German 1=US
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	723 lbne tst2A test value not zero skip to compare b $2A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	724 cmpb #$27 is it 39 ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	725 bne tst28 nope goto next test
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	726 lda #2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	727 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	728 lda #3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	729 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	730 lda #4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	731 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	732 lbra ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	733
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	734 tst28 cmpb #$28 is it 40 ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	735 bne tst29 nope go to next test
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	736 lda #2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	737 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	738
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	739 ldd X1E17
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	740 cmpd #$005A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	741 lbgt ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	742
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	743 lda #3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	744 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	745 lbra ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	746
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	747 tst29 cmpb #$29 is it 41 ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	748 bne tst2a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	749 lbra ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	750
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	751 tst2a cmpb #$2A is it 42 ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	752 bne tst2b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	753 lbra ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	754
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	755 tst2b cmpb #$2B is it 43 ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	756 bne tst2c
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	757 tst X4C75 test side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	758 beq ExtSubStat german ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	759
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	760 lda #4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	761 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	762 lbra ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	763
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	764 tst2c cmpb #$2C is it 44 ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	765 bne tstlst
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	766 tst X4C75
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	767 lbne ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	768 ldd X1E17
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	769 cmpd #$0099
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	770 lbls ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	771
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	772 L03C8 lda #2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	773 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	774 lda #4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	775 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	776 lda #3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	777 lbsr SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	778 lbra ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	779
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	780 tstlst tst X4C75
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	781 beq L03C8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	782 lda #5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	783 ldb #$15
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	784 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	785 ldx #$4A80
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	786 leax d,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	787 fdb Zclr_x clr 0,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	788
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	789 ExtSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	790 L03EB puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	791
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	792
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	793 * a is passed by caller
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	794 * Calcs an offset from base addr and sets it to FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	795 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	796 SetByte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	797 L03ED pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	798 ldb #$15
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	799 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	800 ldx #$4A80
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	801 leax d,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	802 lda #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	803 fdb Zsta_x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	804 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	805
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	806
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	807 GetConvoy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	808 L03FD pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	809 lda X4C76 check the game type byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	810 bne ReadConvoy not target practice
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	811 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	812
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	813
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	814 ReadConvoy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	815 L0406 leax >Convoys,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	816 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	817 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	818 sta X1DD9 save that path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	819 ldx #$4C90 set up destination addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	820 ldy #$0579 addr for inner loop RCLop2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	821
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	822 ldb #4 loop counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	823 pshs b push on the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	824 RCloop ldb ,x+ get the first byte at 4C90 and bump the pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	825 lbmi RCLend go to loop end
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	826 lda #$16 calc the seek position
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	827 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	828 tfr d,u LS Word file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	829 pshs x,y save destination and bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	830 ldx #0 MS Word file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	831 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	832 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	833 ldx $02,s get the val off the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	834 ldy #$0016 bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	835 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	836 os9 I$Read fetch the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	837
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	838 puls x,y grab the old x and y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	839 ldb #3 set up an inner loop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	840
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	841 RCLop2 pshs b push the counter on the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	842 ldb $02,y get the third byte at y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	843 addb #$3B add to it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	844 tst X4C75 test side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	845 beq RCx1 if zero (german) stow it and get new thing to work on
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	846 addb #$15 otherwise add some more to it then
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	847 RCx1 stb $02,y stow it back
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	848 ldb $05,y get the next one to work with
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	849 addb #$27 add to it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	850 tst X4C75 check that side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	851 beq RCx2 if zero (german) stow that and cycle the loop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	852 addb #$0B otherwise add some more then
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	853 RCx2 stb $05,y stow it back
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	854 leay $01,y bump pointer +1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	855 puls b pull the loop counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	856 decb decrement it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	857 bne RCLop2 loop if we haven't gone 3 times
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	858
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	859 leay -$03,y after 3 loops move y back to start of inner loop value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	860 RCLend leay $16,y set y up for the next $16 byte read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	861 dec ,s dec the outer loop counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	862 bne RCloop not gone four times ? loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	863
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	864 puls b otherwise clean up stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	865
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	866 lda X1DD9 get that good old path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	867 os9 I$Close and close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	868 puls a,b,x,y,u,pc return
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	869
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	870
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	871 * what do I do in the great scheme of things???
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	872 L0479 pshs a,b,x,y,u our generic save all
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	873
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	874 ldb X0296
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	875 lda #$16
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	876 mul calc an offset
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	877 ldx #$0579 get the base address
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	878 leax d,x set the pointer to base + offset
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	879 lda $04,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	880 bpl PosVal is it positive ? branch
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	881 lda $02,x otherwise shift a couple bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	882 sta $04,x first then go on
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	883 lda $05,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	884 sta $07,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	885
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	886 PosVal lda #$01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	887 sta $08,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	888
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	889 ldb X0296
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	890 lbsr L04AF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	891
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	892 lda #$07 outer loop counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	893 leau $0A,x load u with x+10
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	894
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	895 Outloop ldb a,u load b with u+counter (inner counter)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	896 beq Decout is it zero branch out
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	897 In_loop lbsr L04DA not zero
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	898 decb dec inner counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	899 bne In_loop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	900 Decout deca
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	901 bpl Outloop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	902 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	903
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	904
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	905 * value passed in b from caller
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	906 L04AF pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	907 ldu #$4A02 set base offset
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	908 lda #$15 compute offset
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	909 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	910 leau d,u set base + offset
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	911 fdb Zclr_u clear the byte at u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	912 clr $10,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	913
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	914 ldd X1DF6
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	915 std $03,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	916
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	917 ldd X1DF9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	918 std $06,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	919
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	920 ldd X1D6D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	921 std $09,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	922
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	923 ldb 1,x could have pulled x off the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	924 clra instead of mucking around with u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	925 std $01,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	926
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	927 stx $12,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	928
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	929 stu X71B1 stow $4a02 at 71b1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	930 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	931
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	932
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	933 L04DA pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	934 ldb #$41
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	935 stb X1E13
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	936
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	937 ldu #$42B5 set base address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	938 L04E4 fdb Zldb_u ldb ,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	939 bpl L053D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	940
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	941 pshs x we've pushed it once
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	942 leax >ByteTblF,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	943 lda a,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	944 sta $12,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	945 puls x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	946
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	947 fdb Zclr_u clr ,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	948 clr $10,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	949
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	950 ldd X1DF6
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	951 std $03,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	952
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	953 ldd #$1FFF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	954 jsr X76A4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	955 addd $04,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	956 std $04,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	957
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	958 ldd X1DF9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	959 std $06,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	960 ldd #$1FFD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	961 jsr X76A4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	962 addd $07,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	963 std $07,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	964
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	965 ldd X1D6D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	966 std $09,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	967 ldb $01,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	968 clra
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	969 std $01,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	970
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	971 ldd X71B1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	972 std $13,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	973
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	974 pshs u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	975 leay $03,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	976 ldu #$4C84
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	977 jsr X74D9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	978 tfr u,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	979 puls u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	980
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	981 sty $0E,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	982 sta $0D,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	983 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	984
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	985
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	986 L053D leau $15,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	987 dec X1E13
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	988 lbne L04E4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	989
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	990 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	991
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	992
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	993 * reads a byte from std in not explicitly called
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	994 N0549 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	995 clra
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	996 ldx #$1DDA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	997 ldy #1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	998 os9 I$Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	999 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1001
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1002 SetParms2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1003 L0558 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1004 lda X4C80
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1005 cmpa #3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1006 beq ExtSP2 if three were done
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1007 inca bump a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1008 sta X4C80 and save it back
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1009 ldx #$4CA4 set up index
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1010 tst a,x test
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1011 bne SetP2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1012
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1013 lda #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1014 sta X4C80
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1015 bra ExtSP2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1016
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1017 SetP2 lda #4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1018 sta X4C81
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1019 ExtSP2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1020 L0578 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1021
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1022
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1023 * Not labeled by the disassembler
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1024 N057A pshs y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1025 ldy #$1E0D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1026 ldu #$4C84
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1027 jsr X74D9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1028 lsra
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1029 lsra
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1030 puls y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1031
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1032
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1033 SetParams
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1034 L058A pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1035 ldd #0 zero (clear) these words
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1036 std X4C78
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1037 std X4C7A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1038
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1039 ldb #$FF set these bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1040 stb X4D2B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1041 stb X4C80
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1042
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1043 lda #$FF switching from accb to acca makes no sense
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1044 sta X4D28
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1045
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1046 clr X4D11 clear these bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1047 clr X4D29
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1048 clr X4C82
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1049 clr X0500
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1050
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1051 clrb now we clear an acc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1052 stb X4CEE and store the val at these
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1053 stb X0355
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1054 stb X0298
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1055
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1056 lbsr SetParms2 call a sub to set some others
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1057
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1058 lda #$0A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1059 sta X1D47
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1060
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1061 lda #1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1062 sta X1D46
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1063
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1064 lda #$3C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1065 sta X1D76
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1066
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1067 ldb #$63
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1068 stb X4D12
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1069 stb X4D13
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1070
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1071 ldd #$6300
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1072 std X4D1F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1073 std X4D1B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1074 std X4D1D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1075
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1076 lda X4CE0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1077 sta X4D21
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1078
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1079 ldb X4CCF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1080 stb X4D00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1081
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1082 ldb X4CCE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1083 stb X4CFF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1084
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1085 addb X4CCF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1086 cmpb X4CAC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1087
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1088 bls Setpar2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1089
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1090 ldb X4CCD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1091 stb X4D00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1092
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1093 lda X4CAC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1094 suba X4CCD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1095 sta X4CFF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1096
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1097 Setpar2 lda X4CCC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1098 sta X4D01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1099
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1100 lda X4CCD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1101 sta X4D02
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1102
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1103 clr X4D03
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1104 clr X4D04
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1105
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1106 ldd #1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1107 std X1E1E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1108 std X1E20
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1109
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1110 stb X1E22
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1111
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1112 clr X1E1D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1113
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1114 ldy #0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1115 SPLoop clr $4D2D,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1116 leay 1,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1117 cmpy #$000E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1118 bcs SPLoop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1119
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1120 clr X4CEE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1121
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1122 tst X4C76 test game type value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1123 bne Setpar3 not target practice
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1124
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1125 clr X4C81
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1126
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1127 lda #$5F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1128 sta X4C84
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1129
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1130 lda #$7F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1131 sta X4C87
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1132
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1133 ldd #$E678
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1134 std X4C85
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1135
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1136 ldd #$4E20
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1137 std X4C88
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1138
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1139 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1140
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1141
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1142 Setpar3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1143 L065B ldb X4CB3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1144 lda #$15
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1145 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1146 ldx #$02B7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1147 leax d,x calc an index
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1148 fdb Zldb_x to calc an index
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1149 lda #$04
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1150 mul
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1151 std X4CFB stow that value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1152 std X4CF3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1153 std X4CFD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1154 std X4CF5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1155
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1156 ldb $01,x get bytes at the pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1157 stb X4C84 and save them elsewhere
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1158
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1159 ldd $02,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1160 std X4C85
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1161
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1162 ldb $04,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1163 stb X4C87
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1164
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1165 ldd $05,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1166 std X4C88
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1167
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1168 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1169
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1170 SetMorePars
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1171 L068D pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1172 ldx #$4A56
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1173 lda #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1174 fdb Zsta_x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1175
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1176 leax $15,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1177 fdb Zsta_x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1178
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1179 lda X4C77 game level
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1180 leax >ByteTblC,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1181 ldb a,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1182 stb X1E23
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1183
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1184 leax >Gstring,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1185 ldb a,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1186 stb X1E24 always a G
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1187
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1188 ldd X4CBD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1189 ldu #3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1190 jsr X76B9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1191 std X1DDA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1192
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1193 ldb X4C77 game level
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1194 clra zero ms byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1195 tfr d,y transfer game level to y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1196 ldd X4CBD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1197 cmpy #$0003 Expert level ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1198 beq ExtSMP
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1199
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1200 addd X1DDA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1201 cmpy #$0002 Advanced level ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1202 beq ExtSMP1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1203
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1204 addd X1DDA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1205 cmpy #$0001 Intermediate level ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1206 beq ExtSMP1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1207
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1208 addd X1DDA must be Novice
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1209
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1210 ExtSMP1 std X4CBD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1211
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1212 ExtSMP
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1213 L06E3 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1214
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1215
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1216 ByteTblC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1217 L06E5 fcb $14,$19,$1E,$2D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1218
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1219
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1220 Gstring
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1221 L06E9 fcc "GGGG" all bytes $47
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1222
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1223
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1224 GetShipmap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1225 L06ED pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1226 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1227 leax >Shipmap,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1228 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1229 sta X1DD9 stow the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1230
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1231 ldx #$5041 destination address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1232 ldy #$0050 number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1233 os9 I$Read fetch the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1234
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1235 pshs a,x,u why ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1236 ldx #0 MS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1237 ldu #$0C9D LS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1238 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1239 os9 I$Seek reset file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1240 puls a,x,u pull what we just saved and then over write it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1241
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1242 ldx #$5091 destination address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1243 ldy #$1135 bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1244 lda X1DD9 get the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1245 os9 I$Read fetch the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1246
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1247 tst X4C75 test side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1248 bne Shpmap2 Not German
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1249
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1250 pshs a,x,u duh
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1251 ldx #0 MS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1252 ldu #$0080 LS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1253 lda X1DD9 load the same path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1254 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1255
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1256 puls a,x,u pull em and overwrite em ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1257 ldx #$61C6 destination
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1258 ldy #$0C1D number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1259 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1260 os9 I$Read fetch the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1261
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1262 pshs a,x,u duh
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1263 ldx #0 MS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1264 ldu #$2A9C LS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1265 lda X1DD9 get that path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1266 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1267
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1268 puls a,x,u pull em and over write them duh
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1269 ldx #$6DE3 destination addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1270 ldy #$0230 number of byets to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1271 lda X1DD9 same path num again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1272 os9 I$Read fetch the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1273
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1274 bra Shpmap3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1275
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1276 Shpmap2 pshs a,x,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1277 ldx #0 MW Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1278 ldu #$0050 LS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1279 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1280 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1281
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1282 puls a,x,u waste of time
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1283 ldx #$5061 destination addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1284 ldy #$0030 number of byets to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1285 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1286 os9 I$Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1287
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1288 pshs a,x,u waste of time
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1289 ldx #0 MW Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1290 ldu #$1DD2 LS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1291 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1292 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1293
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1294 puls a,x,u waste of time
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1295 ldx #$61C6 destination addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1296 ldy #$0CCA number of byets to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1297 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1298 os9 I$Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1299
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1300 pshs a,x,u waste of time
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1301 ldx #0 MW Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1302 ldu #$2CCC LS Word of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1303 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1304 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1305
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1306 puls a,x,u waste of time
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1307 ldx #$6E90 destination addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1308 ldy #$02CA number of byets to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1309 lda X1DD9 path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1310 os9 I$Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1311
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1312 Shpmap3 lda X1DD9 its the same stinking path num all along ...
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1313 os9 I$Close
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1314
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1315 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1316
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1317
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1318 GetFile pshs a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1319 ldd #0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1320 jsr X77E5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1321
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1322 jsr X7747
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1323
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1324 ldd #$0039
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1325 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1326
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1327 ldd #$0050
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1328 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1329
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1330 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1331 fcc "Enter Filename: "
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1332 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1333 fcb $CC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1334 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1335 fcb $45
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1336
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1337 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1338
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1339 ldd #$0056
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1340 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1341
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1342 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1343 fcc "->"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1344 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1345
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1346 clr X4265
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1347 lbsr GetKBinp
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1348 puls a,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1349
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1350
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1351 GetKBinp
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1352 L0807 pshs a,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1353 ldx #$4265 base addr to store data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1354 jsr X74CC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1355
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1356 leax -$01,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1357 ReadKey lbsr L087F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1358
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1359 clra set path stdin
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1360 pshs x address to store data ($4264)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1361 ldy #$01 get one byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1362 os9 I$Read fetch the byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1363 puls x no need for this
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1364 ldb ,x load b with the keyboard value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1365
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1366 cmpb #C$BSP is it a back space ? (ctrl-h)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1367 lbeq IsBSP
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1368
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1369 cmpb #C$EOF is it an ESC (ctrl-break)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1370 lbeq IsEOF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1371
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1372 cmpb #C$QUIT is it ENQ (ctrl-e)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1373 lbeq IsEOF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1374
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1375 tst X029C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1376 lbne IsEOF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1377
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1378 cmpb #C$CR carriage return
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1379 lbeq EndKey
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1380
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1381 * argument passed in b to this routine
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1382 jsr X7477 some sort of copy routine ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1383 cmpx #$4275 so we read 16 bytes ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1384 blo NextKey bump x and read again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1385
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1386 ldy X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1387 leay -$08,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1388 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1389 lbra ReadKey
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1390
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1391 NextKey leax $01,x bump x by one
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1392 lbra ReadKey read the next key press
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1393
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1394 IsBSP cmpx #$4265
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1395 lbeq ReadKey
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1396 leax -$01,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1397
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1398 ldb #C$SPAC
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1399 * argument passed in b to this routine
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1400 jsr X7477 some sort of copy routine ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1401 ldy X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1402 leay -16,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1403 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1404 lbra ReadKey
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1405
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1406 EndKey clr X029C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1407 puls a,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1408
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1409
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1410 IsEOF ldb #C$EOF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1411 bra EndKey
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1412
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1413 L087F pshs a,b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1414 ldb #'_ $5F
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1415 * argument passed in b to this routine
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1416 jsr X7477 some sort of copy routine ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1417
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1418 ldd X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1419 subd #$08
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1420 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1421
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1422 puls a,b,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1423
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1424
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1425 * Not explicitly called not labeled by disasm
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	1426 MakeFile
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1427 N0891 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1428 lbsr GetFile
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1429 cmpb #C$EOF
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	1430 lbeq DontMake
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1431
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1432 * Delete File - Deletes a specified disk file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1433 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1434 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1435 * x -> address of the path list
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1436 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1437 * exit:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1438 * x -> address of the last btye of the path list + 1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1439 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1440 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1441 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1442 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1443
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1444 ldx #$4265 pointer to file name string
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1445 os9 I$Delete delete file if exsits
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1446
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1447
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1448 * Create File - Creates and opens a disk file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1449 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1450 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1451 * a -> access mode (write (2) or update (3))
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1452 * b -> file attributes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1453 * Bit Definition
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1454 * 0 Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1455 * 1 Write
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1456 * 2 Execute
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1457 * 3 Public Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1458 * 4 Public Write
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1459 * 5 Public Execute
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1460 * 6 Shareable file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1461 * x -> address of the path list
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1462 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1463 * exit:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1464 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1465 * x -> address of the last btye of the path list + 1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1466 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1467 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1468 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1469 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1470
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1471 ldx #$4265 pointer to file name string
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1472 ldd #(WRITE.*$100)+READ.+WRITE.+PREAD.+PWRIT.+SHARE. $025B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1473 os9 I$Create create the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1474 bcs CallErr if error occured call error handler
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1475 sta X1DD9 store the path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1476
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1477
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1478 * Write - Writes to a file or device
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1479 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1480 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1481 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1482 * x -> starting address of the data to write
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1483 * y -> number of bytes to write
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1484 * exit:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1485 * y -> number of bytes written
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1486 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1487 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1488 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1489 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1490
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1491 * path still set from create call
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1492 ldx #$0109 starting address of data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1493 ldy #$7E04 number of bytes to write
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1494 os9 I$Write move the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1495 bcs CallErr if error occured call error handler
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1496 lbra NoError
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1497
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1498 CallErr lbsr ErrMsg
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1499 NoError lda X1DD9 load the path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1500 os9 I$Close close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1501
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	1502 DontMake
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1503 L08C8 inc X0297
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1504 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1505
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1506
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	1507 ReadNewFile
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1508 N08CD pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1509 lbsr GetFile
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1510 cmpb #C$EOF
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	1511 lbeq NoFile
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1512
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1513 ldu X1D8B we overwrite this below
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1514 pshs u so we save it now
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1515
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1516 ldx #$4265 address of path list
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1517 lda #READ. access mode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1518 os9 I$Open open the filr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1519 bcs CallEr2 if error occured call error handler
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1520 sta X1DD9 stow the path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1521
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1522
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1523 * Get status - Returns the status of a file or device
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1524 * Wildcard call exit status differs based on cal code
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1525 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1526 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1527 * b -> function code 2 (SS.Size)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1528 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1529 * exit:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1530 * x -> MS 16 bits of the current file size
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1531 * u -> LS 16 bits of the current file size
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1532 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1533 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1534 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1535 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1536 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1537
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1538 ldb #SS.Size get the curent file size
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1539 os9 I$GetStt make the call
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1540 tfr u,x move u to x but why ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1541 cmpu #$7E04 check the file size
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1542 beq Readfile if it's the right size go read it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1543 ldb #E$Btyp otherwise wrong type error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1544 lbra CallEr2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1545
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1546 ReadFile
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1547 L08FC lda X1DD9 load the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1548 ldx #$0109 addr to stow data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1549 ldy #$7E04 bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1550 os9 I$Read make the call
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1551 bcs CallEr2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1552 lbra NoErr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1553 CallEr2 lbsr ErrMsg
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1554
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1555 NoErr puls u get our old value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1556 stu X1D8B and return it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1557
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1558 ldx #$1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1559 stx X1D89
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1560
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1561 lda X1DD9 l Looks like this gets overwriten too?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1562 * $0109 + $7E04 = $7F0D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1563 os9 I$Close close the file
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	1564 NoFile inc X0297
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1565 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1566
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1567 * b contains error code from calling routine
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1568 ErrMsg pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1569 ldx #$0050
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1570 stx X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1571
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1572 ldx #$0039
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1573 leax 16,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1574 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1575
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1576 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1577 fcc "ERROR #"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1578 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1579
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1580 pshs b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1581 clra
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1582 jsr X7304 calcs a integer based on input in d
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1583
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1584 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1585 fcc " : "
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1586 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1587
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1588 puls b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1589 cmpb #E$Btyp bad type ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1590 bne ChkBPth
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1591
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1592 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1593 fcc "WRONG FILE TYPE"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1594 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1595 fcb C$CLSALL flag to skip # of bytes after next null
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1596 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1597 fcb $54
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1598
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1599 ChkBPth cmpb #E$BPNam bad path name
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1600 bne ChkPNF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1601 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1602 fcc "BAD PATHNAME"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1603 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1604 fcb C$CLSALL flag to skip # of bytes after next null
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1605 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1606 fcb $3D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1607
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1608 ChkPNF cmpb #E$PNNF path not found
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1609 bne ChkDrv
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1610 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1611 fcc "FILE NOT FOUND"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1612 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1613 fcb C$CLSALL flag to skip # of bytes after next null
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1614 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1615 fcb $24
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1616
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1617 ChkDrv cmpb #E$Unit Illegal drive num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1618 blt SomERR none of the above and less than E$Unit
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1619 * E$Unit and greater yields disk error of some kind
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1620 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1621 fcc "DISK ERROR"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1622 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1623 fcb $20
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1624 fcb $10 this will skip over SomERR msg string
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1625
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1626 SomERR jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1627 fcc "SYSTEM ERROR"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1628 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1629
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1630 ldx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1631 leax 16,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1632 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1633
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1634 ldx #$0060
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1635 stx X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1636
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1637 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1638 fcc "Press any key to continue"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1639 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1640
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1641 * after a string write byte after second null sends to here
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1642 clra set stdin
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1643 ldx #$1DDA addr to save byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1644 ldy #$01 only need one
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1645 os9 I$Read get the input
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1646 puls a,b,x,y,u,pc we're done here return to caller
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1647
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1648
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1649 Zero_txt_area
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1650 L09F9 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1651 ldx #$1E25 clears $2440 bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1652 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1653 ClrLoop std ,x++
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1654 cmpx #$4265
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1655 blt ClrLoop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1656
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1657 ldd #$0008
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1658 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1659
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1660 ldd #$0002
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1661 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1662
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1663 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1664
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1665 Read_mission
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1666 L0A16 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1667 lbsr Zero_txt_area clear mission text area
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1668 leax >Mis_txt,pcr get the name of the file to open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1669 lda #READ. in read only mode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1670 os9 I$Open open the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1671 sta X1DD9 path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1672
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1673 ldu #$4CB5 base addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1674 ldb X0298 get value stored
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1675 lslb multiply by 2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1676 tst X4C76 check that game type byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1677 bne L0A35 not target practice use this byte as offset
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1678 ldb #$06 is target practice use a +6 offset
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1679 L0A35 ldu b,u LS Word of file seek
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1680 ldx #$0000 MS Word of file seek
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1681 lda X1DD9 get the path number which should still be in a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1682 os9 I$Seek repostion file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1683
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1684 ldx X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1685 pshs x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1686 ldx #$1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1687 stx X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1688
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1689 L0A4B ldx #$4265 addr to stow the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1690 ldy #$01 number of bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1691 lda X1DD9 load the path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1692 os9 I$Read read one byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1693 ldb X4265 put that byte in b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1694 cmpb #'@ is it an @ $40
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1695 lbeq L0A8D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1696
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1697 cmpb #'% is it a % $25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1698 lbeq L0A8D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1699
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1700 cmpb #C$CR is it a carriage return ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1701 beq L0A74
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1702
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1703 cmpb #C$LF is it a line feed
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1704 beq L0A7D
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1705
be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1706 * argument passed in b to this routine
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1707 jsr X7477 nope then some sort of copy routine ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1708 bra L0A4B loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1709
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1710 L0A74 ldd #$0008
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1711 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1712 lbra L0A4B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1713
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1714 L0A7D ldx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1715 leax $08,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1716 cmpx #$006B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1717 bge L0A74
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1718
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1719 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1720 lbra L0A4B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1721
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1722 L0A8D lda X1DD9 get the path num and
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1723 os9 I$Close close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1724
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1725 puls x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1726 stx X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1727
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1728 bsr SetandSwap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1729
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1730 lbsr MVMissn
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1731
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1732 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1733
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1734
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1735 SetandSwap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1736 L0A9F pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1737 lda #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1738 sta X0297
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1739
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1740 lda #$03
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1741 sta X1D88
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1742
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1743 ldd X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1744 pshs d
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1745
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1746 ldd #$1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1747 std X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1748
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1749 ldd X1DAD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1750 pshs d
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1751
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1752 ldd #$013F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1753 std X1DAD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1754
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1755 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1756 std X1D8F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1757 std X1D91
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1758 std X1D95
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1759
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1760 ldd #$013F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1761 std X1D93
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1762 jsr X7BF4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1763 std X1D93
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1764
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1765 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1766 std X1D8F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1767
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1768 ldd #$0073
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1769 std X1D91
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1770 std X1D95
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1771 jsr X7BF4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1772
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1773 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1774 std X1D8F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1775 std X1D91
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1776 std X1D93
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1777
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1778 ldd #$0073
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1779 std X1D95
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1780 jsr X7BF4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1781 std X1D95
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1782
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1783 ldd #$013F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1784 std X1D8F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1785 std X1D93
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1786
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1787 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1788 std X1D91
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1789 jsr X7BF4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1790
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1791 puls d,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1792 std X1DAD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1793 stx X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1794
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1795 ldx #$1E25 address 1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1796 ldu X1D8B address 2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1797 ldy #$2440 number of bytes to swap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1798 L0B27 ldb ,x get a byte from each
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1799 lda ,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1800 stb ,u+ swap them and bump pointers
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1801 sta ,x+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1802 leay -$01,y decrement the counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1803 bne L0B27 loop till we are finished
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1804
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1805 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1806
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1807
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1808 MVMissn pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1809 clra stdin path
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1810 ldx #$4265 address to save data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1811 ldy #$01 bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1812 os9 I$Read read byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1813
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1814 ldu X1D8B get save address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1815 ldx #$1E25 get from address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1816 MVLoop ldd ,x++ load a word from x and bump by a word
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1817 std ,u++ stow that word at u and bump by a word
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1818 cmpx #$4265 have we gotten to the end ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1819 blt MVLoop nope loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1820
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1821 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1822
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1823
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1824 * Not explicitly called not labeled by disasm
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1825 * similar to Read_mission at L0A16
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	1826 Read_mission2
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1827 N0B53 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1828 lda #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1829 sta X0297
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1830
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1831 clr X4D3E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1832
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1833 ldx #$1E25 clear the bytes between $1E25 - $4265
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1834 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1835 L0B63 std ,x++
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1836 cmpx #$4265
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1837 blt L0B63
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1838
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1839 lbsr SetandSwap so now we swap the cleared bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1840
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1841 ldd #$0008
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1842 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1843
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1844 ldd #$0002
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1845 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1846
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1847 leax >Mis_txt,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1848 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1849 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1850 sta X1DD9 save path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1851
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1852 ldu #$4CB5 base address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1853 ldb X0298 get stored value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1854 lslb multiply by two
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1855 tst X4C76 check that game type byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1856 bne L0B93 not target practice use this value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1857 ldb #$06 otherwise is target practice use a +6 offset
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1858 L0B93 ldu b,u LS word of file position to seek
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1859 ldx #$0000 MS word of file positioin to seek
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1860 lda X1DD9 get the path num that is still in a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1861 os9 I$Seek reset the file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1862
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1863 L0B9E ldx #$4265 addr to stow data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1864 ldy #$01 get one byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1865 lda X1DD9 get that path numm that's already there
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1866 os9 I$Read read a byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1867
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1868 ldb X4265 load it in b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1869 cmpb #'@ is it an @ $40
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1870 lbeq ClsMisTx
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1871
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1872 cmpb #'% is it a % $25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1873 lbeq ClsMisTx
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1874
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1875 cmpb #C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1876 beq L0BD5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1877
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1878 cmpb #C$LF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1879 beq L0BDE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1880
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1881 tst X4D3E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1882 bne L0BD0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1883
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1884 lbsr InpReady
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1885 sta X4D3E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1886
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1887 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1888
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1889 * argument passed in b to this routine
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1890 L0BD0 jsr X7477 some sort of copy routine ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1891 bra L0B9E loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1892
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1893 L0BD5 ldd #$0008
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1894 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1895 lbra L0B9E loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1896
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1897 L0BDE ldx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1898 leax $08,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1899 cmpx #$006B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1900 bge L0BD5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1901 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1902 lbra L0B9E loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1903
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1904 ClsMisTx
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1905 L0BEE lda X1DD9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1906 os9 I$Close
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1907 lbsr MVMissn
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1908 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1909
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1910 InpReady
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1911 L0BF9 pshs b,x,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1912 clra set path stdin
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1913 ldb #SS.Ready test if data available
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1914 os9 I$GetStt make the call
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1915 bcc ReadKey2 if ready go read it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1916 clra not read clear a again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1917 puls b,x,y,pc pull b back over any error code
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1918
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1919 ReadKey2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1920 L0C06 clra set path stdin
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1921 ldx #$1DDA set address to hold data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1922 ldy #$01 read one byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1923 os9 I$Read make the call
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1924 lda X1DDA load the data in a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1925 cmpa #C$INTR is it a key board interrupt (ctrl-C)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1926 beq EndKey2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1927 cmpa #C$QUIT is it a keyboard abort (ctrl-E)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1928 beq EndKey2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1929 tst X029C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1930 bne EndKey2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1931 puls b,x,y,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1932
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1933
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1934 EndKey2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1935 L0C23 clr X029C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1936 lda #C$EOF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1937 puls b,x,y,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1938
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1939
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1940 Set_75
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1941 L0C2A pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1942 ldy #$0075 number of bytes to set
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1943 ldx #$42B5 base address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1944 lda #$FF value to set them to
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1945 Loop75 fdb Zsta_x sta ,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1946 leax $15,x bump x by $15
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1947 leay -$01,y decrement the counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1948 lbne Loop75 are we done ? nope loop again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1949 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1950
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1951
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1952 GetControl1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1953 L0C42 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1954
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1955 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1956 leax >Control1,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1957 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1958
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1959 ldx #CntrlDat address to store
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1960 ldy #CntrlSz bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1961 os9 I$Read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1962
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1963 os9 I$Close close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1964
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1965 ldx #CntrlDat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1966 ldy #CntrlSz
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1967 ldu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1968 lbsr Decode_copy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1969
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1970 ldd #$0109 PRN,CTN
be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1971 jsr X735B call Change palette
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1972
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1973 ldd #$0236 PRN,CTN
be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	1974 jsr X735B call Change palette
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1975
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1976 lda #$03
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1977 sta X1D88
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1978
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1979 ldx X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1980 stx X1D89
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1981
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1982 clra make a zero
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1983 GCloop pshs a push it on the stack for a counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1984 ldx #$0020 huh ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1985 leax -$0C,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1986 stx X1DA5 stow that
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1987
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1988 leax >ByteTbl1,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1989 ldb a,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1990 clra make a zero again (still)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1991 addd #$04 add four to value loaded from ByteTbl1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1992 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1993
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1994 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1995 fcc "000"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1996 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1997
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1998 puls a pull our counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	1999 inca bump it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2000 cmpa #Tbl1sz made 4 loops ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2001 bne GCloop nope go again
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2002
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2003 clra clear a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2004 leax >ByteTbl1,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2005 ldy #$02A7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2006
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2007 GClop2 pshs a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2008 ldb #C$SPAC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2009 stb $08,y save it once
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2010 stb ,y+ save it twice
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2011 ldb ,x+ get the ByteTbl1 byte and bump pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2012 subb #$14 subtract $14
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2013 stb $08,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2014 stb ,y+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2015 puls a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2016 inca
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2017 cmpa #Tbl1sz
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2018 bne GClop2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2019
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2020 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2021 std X4CFD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2022 std X4CF9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2023 std X4CFB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2024 std X4CF7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2025 std X4CF5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2026 std X4CF1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2027 std X4CF3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2028 std X4CEF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2029
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2030 lbsr SetandJsr1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2031 lbsr SetandJsr2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2032 lbsr SetandJsr3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2033 lbsr SetandJsr4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2034
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2035 jsr X7843
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2036
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2037 jsr X7866
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2038
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2039 lda #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2040 sta X4D28
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2041
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2042 lda #READ.
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2043 leax >Diesel,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2044 os9 I$Open
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2045
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2046 sta X1DD9 stow the path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2047 ldx #$0000 MS 16 bits of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2048 ldu #$0072 LS 16 bits of file pos
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2049 os9 I$Seek move file pointer
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2050
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2051 ldd X1D8B start with some value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2052 addd #$2D63 add a big offset to it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2053 tfr d,x move it to x in prep for the read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2054
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2055 ldb #$08 Loop counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2056 DRloop pshs b,x push em
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2057
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2058 lda X1DD9 get the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2059 ldy #$000C read 12 bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2060 os9 I$Read copy the bytes
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2061
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2062 puls b,x get the counter and orig destination addr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2063 leax $50,x bump it by 80
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2064 decb dec the counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2065 bne DRloop go again if not zero
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2066
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2067 lda X1DD9 get the path num
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2068 os9 I$Close close the file
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2069
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2070 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2071
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2072
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2073 Diesel
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2074 L0D31 fcc "sub/diesel.dat"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2075 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2076
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2077 SetandJsr1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2078 L0D40 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2079 ldd #$0092
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2080 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2081
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2082 ldd #$00C8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2083 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2084
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2085 ldb X4D11
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	2086 jsr X782E 2 place formatted output
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2087
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2088 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2089
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2090 SetandJsr2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2091 L0D56 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2092 ldd #$00A2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2093 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2094
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2095 ldd #$00C8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2096 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2097
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2098 ldb X4D12
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	2099 jsr X782E 2 place formatted output
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2100 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2101
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2102
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2103 * Decodes ??? and copies data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2104 * x -> from address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2105 * u -> to address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2106 Decode_copy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2107 L0D6C pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2108
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2109 Decotr lda ,x+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2110 bpl Declp2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2111 anda #$7F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2112 leay -1,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2113 ldb ,x+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2114
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2115 Declp1 stb ,u+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2116 deca
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2117 bne Declp1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2118
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2119 bra Dectr1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2120
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2121 Declp2 ldb ,x+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2122 stb ,u+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2123 leay -1,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2124 deca
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2125 bne Declp2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2126 Dectr1 leay -1,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2127 bne Decotr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2128
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2129 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2130
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2131 SetandJsr3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2132 L0D8E pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2133 ldd #$00B2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2134 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2135
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2136 ldd #$00C8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2137 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2138
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2139 ldb X4D13
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	2140 jsr X782E 2 place formatted output
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2141 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2142
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2143
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2144 SetandJsr4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2145 L0DA4 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2146 ldd #$0092
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2147 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2148
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2149 ldd #$0112
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2150 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2151
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2152 clra
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2153
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2154 ldb X1E1D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2155 leax >ByteTblE,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2156 ldb b,x
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	2157 jsr X782E 2 place formatted output
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2158
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2159 ldx #$0128
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2160 stx X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2161
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2162 leax >ByteTblD,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2163 ldb X1E1D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2164 ldb b,x
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	2165 * argument passed in b to this routine
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2166 jsr X7477 some sort of copy routine ??
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2167
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2168 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2169
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2170
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2171 ByteTblD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2172 L0DD3 fcb $53,$53,$53,$4D,$48 SSSMH
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2173
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2174
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2175 ByteTblE
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2176 L0DD8 fcb $01,$05,$1E,$0A,$04
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2177
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2178
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2179
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2180 * Get Status - Returns the status of a file or device
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2181 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2182 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2183 * b -> SS.Opt (function code 00)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2184 * Reads the option section of the path descriptor,
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2185 * copies it to the 32 byte area pointed to by x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2186 * x -> address to receive data packet
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2187 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2188 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2189 * CC -> Carry set on error
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2190 * b -> error code (if any)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2191
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2192 GetOpts
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2193 L0DDD pshs a,b,x,y
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2194 ldd #(StdOut*$100)+SS.Opt
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2195 ldx #$4265
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2196 pshs x unneeded
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2197 os9 I$GetStt
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2198 puls x unneeded
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2199 lda $04,x IT.EKO
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2200 sta X1D49 save orig
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2201 clr $04,x set it to NO echo
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2202 lda $07,x IT.PAU
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2203 sta X1D4A save orig value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2204 clr $07,x set it to NO pause
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2205
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2206 ldd #(StdOut*$100)+SS.Opt
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2207
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2208 os9 I$SetStt reset them
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2209 puls a,b,x,y,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2210
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2211
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2212 XmtSOS
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2213 N0E02 tst X4D2E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2214 beq SendSOS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2215 jsr X72C3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2216 fcc "The radio is out, Sir"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2217 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2218 rts
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2219
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2220 SendSOS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2221 L0E21 jsr X72C3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2222 fcc "Sending S.O.S., Sir"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2223 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2224
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2225 ldb #'S
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2226 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2227
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2228 ldb #'O
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2229 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2230
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2231 ldb #'S
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2232 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2233
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2234 ldb #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2235 stb X4C83
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2236 rts
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2237
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2238 XmtPOS
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2239 N0E4D tst X4D2E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2240 beq SendPOS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2241 jsr X72C3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2242 fcc "The radio is out, Sir"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2243 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2244 rts
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2245
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2246 SendPOS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2247 L0E6C jsr X72C3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2248 fcc "Radioing position, Sir"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2249 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2250
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2251 ldb X4C84
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2252 jsr X7691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2253 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2254
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2255 jsr X7691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2256 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2257
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2258 jsr X7691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2259 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2260
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2261 ldb X4C87
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2262 jsr X7691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2263 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2264
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2265 jsr X7691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2266 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2267
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2268 jsr X7691
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2269 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2270
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2271
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2272 ldb #'E cute litte Easter Egg :-)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2273 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2274
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2275 ldb #'P
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2276 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2277
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2278 ldb #'Y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2279 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2280
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2281 ldb #'X
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2282 lbsr MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2283
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2284 ldb #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2285 stb X4C83
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2286 rts
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2287
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2288
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2289 * Set Status - Sets the status of a file or device
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2290 * entry:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2291 * a -> path number
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2292 * b -> SS.Tone (function code 98) Sound through termional output device
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2293 * x -> duration and amplitude of the tone
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2294 * LSB duration in ticks (60 sec) in the range of 0-255
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2295 * MSB amplitude of the tone in the range of 0-63
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2296 * y -> relative frequency counter (0 = low, 4095 = high)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2297 * exit:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2298 * Same as entry
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2299 * error:
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2300 * There are no error conditions set
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2301 *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2302 * Therefore duration and amplitude passed in accd
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2303 * freq is passed in y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2304
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2305 SoundGen
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2306 L0ECA pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2307 tfr d,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2308 ldd #(StdOut*$100)+SS.Tone
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2309 os9 I$SetStt
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2310 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2311
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2312 * Looks like a morse code generator based on character input
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2313 MCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2314 L0ED6 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2315 cmpb #C$SPAC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2316 bne L0EED not a space process more
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2317 lbsr TimeDly1 otherwise appropriate dead time
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2318 lbsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2319 lbsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2320 lbsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2321 lbsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2322 ExtMCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2323 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2324
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2325
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2326
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2327 L0EED cmpb #'' is it a tick $27
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2328 blt ExtMcode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2329 cmpb #'a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2330 blt L0EF7 whats wrong with this logic?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2331 subb #$20 make upper case
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2332 L0EF7 cmpb #'z this should have been Uppercase Z
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2333 * can't be less than a but greater than z
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2334 bgt ExtMCode
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2335 subb #$27 now we subtract the position of the '
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2336 * to be zero based in the table
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2337 leax >ByteTbl2,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2338 ldb b,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2339 lda #$08
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2340
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2341 L0F05 deca
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2342 lslb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2343 bcc L0F05
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2344
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2345 Sndloop lslb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2346 bcc L0F20
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2347 pshs a,b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2348 ldd #$3F04 setup sound amplitude/duration
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2349 tfr d,x move it to x where it should have been
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2350 ldy #$0FD7 load the freq value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2351 lbsr SoundGen make the noise
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2352 bsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2353 puls a,b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2354 bra Sndcntr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2355
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2356 L0F20 pshs a,b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2357 ldd #$3F0C setup sound amplitude/duration
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2358 tfr d,x move that to x where it should have been in the first place
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2359 ldy #$0FD7 load with freq value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2360 lbsr SoundGen make the noise
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2361 bsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2362 puls a,b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2363
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2364 Sndcntr deca
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2365 bne Sndloop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2366
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2367 bsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2368 bsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2369 bsr TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2370 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2371
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2372
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2373 TimeDly1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2374 L0F3D pshs x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2375 ldx #$2710
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2376 TD1loop leax -1,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2377 bne TD1Loop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2378 puls x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2379 rts
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2380
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2381 * caller passes a pointer to string data in x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2382 MenuSelect
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2383 L0F49 pshs a,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2384 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2385 std X1DB9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2386
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2387 jsr X77E5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2388
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2389 ldu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2390 pshs u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2391
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2392 ldu #$1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2393 stu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2394 stu X1D89
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2395
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2396 ldy #$0006
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2397 sty X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2398
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2399 ldy #$0030
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2400 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2401
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2402 ldb ,x+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2403 pshs b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2404 pshs b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2405 jsr X74CC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2406
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2407 lbsr L0FC3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2408 lbsr L0FC3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2409
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2410 L0F81 jsr X74CC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2411 lbsr L0FC3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2412 dec ,s
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2413 bne L0F81
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2414
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2415 puls a,b,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2416 stu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2417
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2418 ldu #$1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2419 stu X1D89
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2420
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2421 jsr X7747
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2422
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2423 addb #$30
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2424 pshs b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2425
1174 2006350d24f0 continued commenting pwz parents: 1134 diff changeset	2426 ChkInp lbsr InpReady
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2427 tsta not ready a = 0
1174 2006350d24f0 continued commenting pwz parents: 1134 diff changeset	2428 beq ChkInp loop till we get an input
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2429
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2430 tfr a,b move the returned value to b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2431 clra
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2432 cmpb #C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2433 beq L0FBA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2434
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2435 cmpb #C$EOF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2436 beq L0FBD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2437
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2438 cmpb #'1 Looking for input 1 - 7 max depending on menu
1174 2006350d24f0 continued commenting pwz parents: 1134 diff changeset	2439 blt ChkInp less than 1 loop again
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2440
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2441 cmpb ,s
1174 2006350d24f0 continued commenting pwz parents: 1134 diff changeset	2442 bgt ChkInp
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2443
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2444 subb #'1 subtract "one" ($31) from it so we are now zero based
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2445 bra L0FBF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2446
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2447 L0FBA clrb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2448 bra L0FBF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2449
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2450 L0FBD ldb #$FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2451 L0FBF leas $01,s
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2452 puls a,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2453
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2454
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2455 L0FC3 ldy #$0030
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2456 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2457
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2458 ldy X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2459 leay $0C,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2460 sty X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2461 rts
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2462
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2463
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2464 GameSetup
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2465 N0FD6 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2466 lda X4C75 current side
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2467 sta X4D3C new side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2468
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2469 lda X1E16 current year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2470 sta X4D3D new year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2471
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2472 ldd #$0000 make room for 4 items
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2473 pshs d
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2474 pshs d
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2475
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2476 leax >GameType,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2477 lbsr MenuSelect
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2478 tstb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2479 lbmi Ex_GS minus value returned were outa here
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2480 cmpb #$00 1 was selected (target practice)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2481 lbeq CaptName go prompt for capt name
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2482 stb ,s push value on the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2483
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2484 leax >GameLev,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2485 lbsr MenuSelect
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2486 tstb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2487 lbmi Ex_GS minus value returned were outa here
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2488 stb $03,s push that value on the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2489
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2490 leax >SideChoose,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2491 lbsr MenuSelect
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2492 tstb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2493 lbmi Ex_GS minus value returned were outa here
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2494 stb $01,s push that on the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2495
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2496 lda ,s get the game type from stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2497 cmpa #$02 3 selected War time command ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2498 beq WTCmnd
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2499
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2500 cmpb #$01 check side American ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2501 beq USAin
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2502 leax >YearChoose,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2503 bra YrSel
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2504 USAin leax >YearChoose2,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2505 YrSel lbsr MenuSelect
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2506 tstb
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2507 lbmi Ex_GS minus value returned were outa here
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2508 stb $02,s push on stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2509 bra CaptName
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2510
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2511 WTCmnd
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2512 L103B clr $02,s clear the year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2513 pshs a push game type
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2514 cmpb #$01 check side American ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2515 beq Ameri
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2516 lda #$FF German
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2517 sta X02A3 side vlaue
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2518 bra L104F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2519 Ameri lda #$23 American
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2520 sta X02A3 side value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2521 L104F puls a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2522
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2523 CaptName
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2524 L1051 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2525 jsr X77E5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2526 jsr X7747
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2527
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2528 ldd #$0039
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2529 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2530
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2531 ldd #$0050
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2532 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2533
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2534 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2535 fcc "Enter Captain's Name: "
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2536 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2537 fcb $CC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2538 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2539 fcb $45
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2540
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2541 std X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2542
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2543 ldd #$0056
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2544 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2545
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2546 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2547 fcc "->"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2548 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2549
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2550 * copies in the current captains name
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2551 ldx #$4265 destination address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2552 ldy #$0335 source address
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2553 lda #$19 bytes to read
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2554 L109B ldb ,y+ get the byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2555 beq L10A4 if we find a zero exit loop
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2556 stb ,x+ not zero move the data
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2557 deca decrement the loop counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2558 bne L109B loop till done
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2559
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2560 L10A4 clr ,x clear the byte at x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2561 lbsr GetKBinp get keyboard input
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2562 cmpb #C$EOF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2563 lbeq Ex_GS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2564
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2565 lda X4265 base address of keyboard input
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2566 cmpa #C$CR a carriage return ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2567 bne HaveNam anything else must be a name
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2568 leax >Nameless,pcr was a CR no name chosen
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2569 bra CopyNam
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2570 HaveNam ldx #$4265 set base address for name string
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2571 CopyNam lda #$19 max bytes to copy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2572 ldy #$0335 captains name storage
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2573 Cpy2Nam ldb ,x+ get byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2574 cmpb #C$CR is it a carriage return?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2575 beq NMDone if so were done
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2576 stb ,y+ otherwise move the byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2577 deca dec the counter
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2578 bne Cpy2Nam
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2579
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2580
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2581 NMDone clr ,y
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2582
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2583 puls a,b
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2584 sta X4C76 game type
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2585 stb X4C75 side
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2586 puls a year
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2587 cmpb #$00 test side German ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2588 beq GRyear
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2589
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2590 USyear adda #42 US first year
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2591 bra SavYear
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2592
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2593 GRyear adda #39 German first year
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2594 SavYear sta X1E16 save the year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2595
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2596 puls a
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2597 sta X4C77 game level
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2598
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2599 lda #$03
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2600 sta X05CE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2601
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2602 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2603 std X04F0
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2604 std X04F2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2605 std X04F4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2606 std X04F5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2607 std X029A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2608
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2609 clr X04F7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2610 clr X04F8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2611 clr X04F9
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2612 clr X04FA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2613 clr X04FB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2614 clr X04FC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2615 clr X04FD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2616 clr X04FE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2617 clr X04FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2618
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2619 lbsr GetMisDat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2620 lbsr GetSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2621 lbsr GetShipmap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2622 lbsr GetMap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2623 lbsr GetConvoy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2624 lbsr SetParams
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2625 lbsr GetControl1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2626 lbsr SetMorePars
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2627
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2628 lda X4C76 test the game type value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2629 cmpa #$02 is it war time command ?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2630 lbne GetMission no then get your mission
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2631
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2632 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2633 jsr X77E5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2634
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2635 ldu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2636 pshs u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2637 ldu #$1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2638 stu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2639
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2640 ldy #$0029
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2641 sty X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2642
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2643 ldy #$0010
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2644 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2645
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2646 tst X4C75 test side value 0 = German 1 = US
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2647 bne ImUSA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2648
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2649 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2650 fcc "It is the year 1939, and"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2651 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2652
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2653 ldy #$0032
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2654 sty X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2655
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2656 ldy #$0010
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2657 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2658
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2659 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2660 fcc "Germany has started"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2661 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2662 fcb C$CLSALL flag to skip # of bytes after next null
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2663 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2664 fcb $4D bytes to skip (US opening message)
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2665
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2666 ImUSA jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2667 fcc "It is the year 1942, and the"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2668 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2669
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2670 ldy #$0032
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2671 sty X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2672
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2673 ldy #$0010
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2674 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2675
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2676 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2677 fcc "United States has entered"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2678 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2679 * ends up here at the null after germay started string
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2680
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2681 ldy #$003A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2682 sty X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2683
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2684 ldy #$0010
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2685 sty X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2686
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2687 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2688 fcc "World War II."
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2689 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2690
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2691 ldx #$0063
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2692 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2693
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2694 ldx #$0048
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2695 stx X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2696
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2697 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2698 fcc "Press any key"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2699 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2700
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2701 puls u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2702 stu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2703 jsr X7747
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2704
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2705
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2706 clra set path to StdIn
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2707 ldx #$1DDA place to store input
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2708 ldy #1 get one byte
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2709 os9 I$Read go fetch it
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2710
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2711 GetMission
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2712 L124B lbsr Read_Mission
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2713 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2714
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2715 Ex_GS
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2716 L1250 leas $04,s clean up the stack
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2717 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2718
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2719
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2720
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2721 Return2Sea
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2722 N1254 pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2723 ldd #$0000
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2724 std X029A
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2725
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2726 clr X04FA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2727 clr X04FB
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2728 clr X04FC
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2729 clr X04FD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2730 clr X04FE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2731 clr X04FF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2732
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2733 lda #$03
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2734 sta X05CE
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2735
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2736 ldx X1E17
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2737 ldb X1E16 year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2738 pshs b,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2739
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2740 lbsr GetMisDat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2741 lbsr GetSubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2742 lbsr GetShipmap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2743 lbsr GetMap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2744 lbsr GetConvoy
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2745 lbsr SetParams
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2746 lbsr GetControl1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2747 lbsr SetMorePars
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2748 lbsr Zero_txt_area
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2749
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2750 ldx #$0029
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2751 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2752
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2753 ldx #$0038
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2754 stx X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2755
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2756 ldy X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2757
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2758 ldu #$1E25
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2759 stu X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2760
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2761 ldx X1E17
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2762 ldb X1E16 year value
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2763 cmpb ,s+
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2764 beq L12BA
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2765 leax 365,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2766 L12BA tfr x,d
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2767 subd ,s++
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2768 cmpd #1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2769 bge L12C7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2770 ldd #1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2771
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2772 L12C7 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2773 fcc "After a leave of "
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2774 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2775
1128 be44f1d43a07 minor comment additions pwz parents: 1109 diff changeset	2776 jsr X7304 calcs a integer based on input passed in d
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2777
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2778 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2779 fcc " days,"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2780 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2781
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2782 ldx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2783 leax 9,x
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2784 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2785
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2786 ldd #$0038
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2787 std X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2788
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2789 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2790 fcc "you get a new mission."
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2791 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2792
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2793 ldx #$0063
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2794 stx X1DA7
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2795
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2796 ldx #$0068
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2797 stx X1DA5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2798
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2799 jsr X72F3 this writes the strings?
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2800 fcc "Press any key"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2801 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2802
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2803 sty X1D8B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2804
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2805 lbsr SetandSwap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2806 lbsr MVMissn
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2807 lbsr Read_Mission
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2808 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2809
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2810
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2811 GameType
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2812 L133D fcb $03 seems to flag number of choices
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2813 fcc " SELECT GAME TYPE"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2814 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2815 fcc "1. Target practice"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2816 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2817 fcc "2. Single mission"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2818 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2819 fcc "3. Wartime command"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2820 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2821
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2822 GameLev
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2823 L1388 fcb $04 seems to flag number of choices
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2824 fcc " SELECT GAME LEVEL"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2825 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2826 fcc "1. Novice"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2827 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2828 fcc "2. Intermediate"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2829 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2830 fcc "3. Advanced"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2831 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2832 fcc "4. Expert"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2833 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2834
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2835
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2836 SideChoose
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2837 L13CC fcb $02 seems to flag number of choices
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2838 fcc " CHOOSE A SIDE"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2839 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2840 fcc "1. German"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2841 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2842 fcc "2. American"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2843 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2844
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2845
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2846 YearChoose
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2847 L13F3 fcb $07 seems to flag number of choices
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2848 fcc " CHOOSE A YEAR"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2849 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2850 fcc "1. 1939"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2851 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2852 fcc "2. 1940"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2853 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2854 fcc "3. 1941"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2855 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2856 fcc "4. 1942"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2857 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2858 fcc "5. 1943"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2859 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2860 fcc "6. 1944"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2861 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2862 fcc "7. 1945"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2863 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2864
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2865
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2866 YearChoose2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2867 L143C fcb $04 seems to flag number of choices
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2868 fcc " CHOOSE A YEAR"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2869 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2870 fcc "1. 1942"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2871 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2872 fcc "2. 1943"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2873 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2874 fcc "3. 1944"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2875 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2876 fcc "4. 1945"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2877 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2878
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2879
1134 8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2880
8b0ecedcdbfb resolved jump table addresses pwz parents: 1128 diff changeset	2881 TransferTorp
1109 5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2882 N146D pshs a,b,x,y,u
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2883 leax >TorpTrans,pcr
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2884 lbsr MenuSelect
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2885 stb X0291
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2886 inc X0297
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2887 puls a,b,x,y,u,pc
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2888
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2889
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2890 TorpTrans
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2891 L147E fcb $02 seems to flag number of choices
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2892 fcc " TRANSFER A TORPEDO"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2893 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2894 fcc "1. Forward to Aft"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2895 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2896 fcc "2. Aft to Forward"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2897 fcb C$NULL
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2898
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2899
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2900 ByteTblF
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2901 L14B8 fcb $04,$05,$06,$07,$00,$01
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2902 fcb $02,$03
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2903
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2904
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2905 Convoys
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2906 L14C0 fcc "sub/convoys.dat"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2907 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2908
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2909
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2910 Mis_dat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2911 L14D0 fcc "sub/missions.dat"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2912 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2913
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2914
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2915 Mis_txt
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2916 L14E1 fcc "sub/mission.txt"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2917 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2918
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2919
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2920 SubStat
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2921 L14F1 fcc "sub/substats.dat"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2922 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2923
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2924
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2925 Font
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2926 L1502 fcc "sub/fonts.dat"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2927 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2928
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2929
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2930 Shipmap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2931 L1510 fcc "sub/shipmap2.dat"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2932 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2933
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2934
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2935 Invert
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2936 fcc "sub/invert.pic" had no disasm generated label
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2937 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2938
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2939
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2940 Control1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2941 L1530 fcc "sub/control1.cmp"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2942 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2943
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2944
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2945 Germap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2946 L1541 fcc "sub/germap.cmp"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2947 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2948
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2949
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2950 USAmap
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2951 L1550 fcc "sub/usamap.cmp"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2952 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2953
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2954
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2955 ByteTbl1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2956 L155F fcb $18,$49,$78,$A8
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2957 Tbl1sz equ *-ByteTbl1
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2958
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2959 ByteTbl2
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2960 L1563 fcb $61,$52,$52,$73,$73,$4C
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2961 fcb $5E,$6A,$2D,$20,$30,$38
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2962 fcb $3C,$3E,$3F,$2F,$27,$23
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2963 fcb $21,$47,$55,$73,$73,$73
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2964 fcb $73,$73,$06,$17,$15,$0B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2965 fcb $03,$1D,$09,$1F,$07,$18
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2966 fcb $0A,$1B,$04,$05,$08,$19
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2967 fcb $12,$0D,$0F,$02,$0E,$1E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2968 fcb $0C,$16,$14,$13
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2969
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2970
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2971 ByteTbl3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2972 L1597 fcb $01,$72,$40,$00,$45,$FD
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2973 fcb $E8,$00,$14,$00,$7E,$00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2974 fcb $00,$37,$40,$00,$FF,$14
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2975 fcb $00,$75,$00,$00,$73,$00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2976 fcb $00,$FF,$1E,$00,$75,$00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2977 fcb $00,$73,$00,$00,$FF,$24
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2978 fcb $00,$77,$17,$B4,$56,$2F
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2979 fcb $68,$FF,$24,$00,$77,$F5
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2980 fcb $CB,$56,$18,$92,$FF,$28
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2981 fcb $00,$5F,$00,$00,$55,$00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2982 fcb $00,$FF,$18,$00,$60,$00
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2983 fcb $00,$55,$00,$00,$FF,$1E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2984
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2985
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2986 ByteTbl4
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2987 L15DF fcb $00,$00,$00,$1F,$00,$3B
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2988 fcb $00,$5A,$00,$78,$00,$97
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2989 fcb $00,$B5,$00,$D4,$00,$F3
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2990 fcb $01,$11,$01,$30,$01,$4E
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2991 fcb $01,$6D
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2992
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2993
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2994 Nameless
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2995 L15F9 fcc "Nameless"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2996 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2997
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2998 SinTbl
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	2999 L1602 fcc "sub/sintbl.dat"
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	3000 fcb C$CR
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	3001
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	3002 emod
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	3003 eom
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	3004 L1614 equ *
5a9158e64763 Original disassembly and commenting. Assembles byte for byte to original. pwz parents: 792 diff changeset	3005 end

Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/packages/subsim/sub1.asm @ 1496:ae1f95eb053b