Members/kono/nitros9-code: level1/cmds/debug.asm annotate

annotate level1/cmds/debug.asm @ 1347:89572d423498

Made case fixes

author	boisy
date	Wed, 17 Sep 2003 17:40:49 +0000
parents	84ea83668304
children	04bd37a4ba38

rev	line source
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1 ********************************************************************
1166 bb618bed0bdc Miscellaneous source improvements boisy parents: 924 diff changeset	2 * debug - 6809/6309 debugger
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	3 *
a32b730f4c71 Added debug.asm boisy parents: diff changeset	4 * $Id$
a32b730f4c71 Added debug.asm boisy parents: diff changeset	5 *
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	7 * Comment
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	8 * ------------------------------------------------------------------
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	9 * 6 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	10 * From Tandy OS-9 Level Two VR 02.00.01.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	11 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	12 * 9 2003/01/03 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	13 * From Tandy OS-9 Level Two Development System, back-ported to
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	14 * OS-9 Level One.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	15 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	16 * 10 2003/01/05 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	17 * Start of optimizations, works under NitrOS-9.
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	18
a32b730f4c71 Added debug.asm boisy parents: diff changeset	19 nam debug
1166 bb618bed0bdc Miscellaneous source improvements boisy parents: 924 diff changeset	20 ttl 6809/6309 debugger
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	21
a32b730f4c71 Added debug.asm boisy parents: diff changeset	22 * Disassembled 02/07/06 13:05:58 by Disasm v1.6 (C) 1988 by RML
a32b730f4c71 Added debug.asm boisy parents: diff changeset	23
a32b730f4c71 Added debug.asm boisy parents: diff changeset	24 ifp1
a32b730f4c71 Added debug.asm boisy parents: diff changeset	25 use defsfile
a32b730f4c71 Added debug.asm boisy parents: diff changeset	26 endc
a32b730f4c71 Added debug.asm boisy parents: diff changeset	27
924 c155aac72190 Made cosmetic changes boisy parents: 735 diff changeset	28 * Changable settings
c155aac72190 Made cosmetic changes boisy parents: 735 diff changeset	29 NumBrkPt equ 12 number of breakpoints
c155aac72190 Made cosmetic changes boisy parents: 735 diff changeset	30 BuffSiz equ $145
c155aac72190 Made cosmetic changes boisy parents: 735 diff changeset	31 UnknSiz equ 80
c155aac72190 Made cosmetic changes boisy parents: 735 diff changeset	32
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	33 tylg set Prgrm+Objct
a32b730f4c71 Added debug.asm boisy parents: diff changeset	34 atrv set ReEnt+rev
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 1166 diff changeset	35 rev set $00
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	36 edition set 10
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	37
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	38 L0000 mod eom,name,tylg,atrv,start,size
a32b730f4c71 Added debug.asm boisy parents: diff changeset	39
924 c155aac72190 Made cosmetic changes boisy parents: 735 diff changeset	40 org 0
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	41 curraddr rmb 2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	42 u0002 rmb 2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	43 u0004 rmb 2
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	44 buffptr rmb 2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	45 u0008 rmb 2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	46 prevaddr rmb 2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	47 bptable rmb 2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	48 isnarrow rmb 1
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	49 * extra memory allocated at start
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	50 rmb (NumBrkPt*3)
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	51 rmb UnknSiz
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	52 rmb BuffSiz
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	53 rmb R$Size
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	54 rmb 44
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	55 size equ .
a32b730f4c71 Added debug.asm boisy parents: diff changeset	56
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	57 * Debugger Errors
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	58 E$BadCnt equ 0 illegal constant
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	59 E$ZerDiv equ 1 divide by zero
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	60 E$MulOvf equ 2 product > 65535
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	61 E$OpMsng equ 3 operator not follwed by legal operand
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	62 E$RParen equ 4 right paren missing
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	63 E$RBrckt equ 5 right bracket missing
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	64 E$RABrkt equ 6 right angle bracket > missing
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	65 E$IllReg equ 7 illegal register
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	66 E$BytOvf equ 8 value > 255 for byte
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	67 E$CmdErr equ 9 illegal command
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	68 E$NotRAM equ 10 memory is ROM
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	69 E$BPTFull equ 11 breakpoint table full
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	70 E$NoBkPt equ 12 breakpoint not found
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	71 E$BadSWI equ 13 Illegal SWI
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	72
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	73 name fcs /debug/
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 116 diff changeset	74 fcb edition
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	75
a32b730f4c71 Added debug.asm boisy parents: diff changeset	76 L0013 bsr L0021
a32b730f4c71 Added debug.asm boisy parents: diff changeset	77 bra L0019
a32b730f4c71 Added debug.asm boisy parents: diff changeset	78 L0017 bsr L0027
a32b730f4c71 Added debug.asm boisy parents: diff changeset	79 L0019 pshs a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	80 lda #C$SPAC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	81 sta ,x+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	82 puls pc,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	83 L0021 exg a,b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	84 bsr L0027
a32b730f4c71 Added debug.asm boisy parents: diff changeset	85 tfr a,b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	86 L0027 pshs b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	87 andb #$F0
a32b730f4c71 Added debug.asm boisy parents: diff changeset	88 lsrb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	89 lsrb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	90 lsrb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	91 lsrb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	92 bsr L0035
a32b730f4c71 Added debug.asm boisy parents: diff changeset	93 puls b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	94 andb #$0F
a32b730f4c71 Added debug.asm boisy parents: diff changeset	95 L0035 cmpb #$09
a32b730f4c71 Added debug.asm boisy parents: diff changeset	96 bls L003B
a32b730f4c71 Added debug.asm boisy parents: diff changeset	97 addb #$07
a32b730f4c71 Added debug.asm boisy parents: diff changeset	98 L003B addb #$30
a32b730f4c71 Added debug.asm boisy parents: diff changeset	99 stb ,x+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	100 rts
a32b730f4c71 Added debug.asm boisy parents: diff changeset	101 L0040 pshs u,y,b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	102 leau <L0065,pcr
a32b730f4c71 Added debug.asm boisy parents: diff changeset	103 ldy #$0005
a32b730f4c71 Added debug.asm boisy parents: diff changeset	104 L0049 clr ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	105 L004B subd ,u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	106 bcs L0053
a32b730f4c71 Added debug.asm boisy parents: diff changeset	107 inc ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	108 bra L004B
a32b730f4c71 Added debug.asm boisy parents: diff changeset	109 L0053 addd ,u++
a32b730f4c71 Added debug.asm boisy parents: diff changeset	110 pshs b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	111 ldb $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	112 addb #$30
a32b730f4c71 Added debug.asm boisy parents: diff changeset	113 stb ,x+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	114 puls b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	115 leay -$01,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	116 bne L0049
a32b730f4c71 Added debug.asm boisy parents: diff changeset	117 puls pc,u,y,b
a32b730f4c71 Added debug.asm boisy parents: diff changeset	118
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	119 L0065 fdb $2710,$03e8,$0064,$000a,$0001
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	120
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	121 L006F lbsr EatSpace skip spaces
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	122 leax $01,x point after byte in A
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	123 cmpa #'# decimal specifier?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	124 beq DoDec branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	125 cmpa #'% binary specifier?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	126 beq DoBin branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	127 cmpa #'$ hex specifier?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	128 beq DoHex branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	129 leax -$01,x back up
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	130
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	131 * Make hex number
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	132 DoHex leas -$04,s make room on stack for hex
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	133 bsr Clr4 clear bytes on stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	134 L0086 bsr AtoInt get integer value at ,X
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	135 bcc L00A0 branch if ok
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	136 cmpb #'A may be hex digit.. check for
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	137 lbcs L0110 branch if not
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	138 cmpb #'F check upperbound
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	139 bls L009E branch if ok
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	140 cmpb #'a now check lowercase
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	141 bcs L0110 branch if not
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	142 cmpb #'f check upperbound
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	143 bhi L0110 branch if not ok
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	144 subb #$20 else make uppercase
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	145 L009E subb #$37 and get value
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	146 L00A0 stb ,s save value on stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	147 ldd $02,s get two bytes from stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	148 bita #$F0 upper nibble set?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	149 bne L0123 branch if so
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	150 IFNE H6309
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	151 lsld
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	152 lsld
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	153 lsld
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	154 lsld
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	155 ELSE
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	156 lslb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	157 rola
a32b730f4c71 Added debug.asm boisy parents: diff changeset	158 lslb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	159 rola
a32b730f4c71 Added debug.asm boisy parents: diff changeset	160 lslb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	161 rola
a32b730f4c71 Added debug.asm boisy parents: diff changeset	162 lslb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	163 rola
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	164 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	165 addb ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	166 adca #$00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	167 std $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	168 inc $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	169 bra L0086
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	170
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	171 * Make decimal number
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	172 DoDec leas -$04,s make room on stack
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	173 bsr Clr4 clear it
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	174 L00BE bsr AtoInt convert ASCII char in A
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	175 bcs L0110
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	176 stb ,s save integer char
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	177 ldd $02,s get word on stack
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	178 IFNE H6309
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	179 lsld
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	180 ELSE
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	181 lslb
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	182 rola D * 2
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	183 ENDC
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	184 std $02,s save
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	185 IFNE H6309
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	186 lsld
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	187 lsld
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	188 ELSE
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	189 lslb
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	190 rola D * 4
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	191 lslb
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	192 rola D * 8
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	193 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	194 bcs L0123
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	195 addd $02,s add to word on stack
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	196 bcs L0123
a32b730f4c71 Added debug.asm boisy parents: diff changeset	197 addb ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	198 adca #$00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	199 bcs L0123
a32b730f4c71 Added debug.asm boisy parents: diff changeset	200 std $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	201 inc $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	202 bra L00BE
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	203
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	204 * Make binary number
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	205 DoBin leas -$04,s make room on stack
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	206 bsr Clr4 clear it
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	207 L00E4 ldb ,x+ get char at X
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	208 subb #'0 subtract ASCII 0
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	209 bcs L0110 branch if lower
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	210 lsrb divide by 2
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	211 bne L0110 branch if not zero
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	212 rol $03,s multiply 2,s * 2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	213 rol $02,s
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	214 bcs L0123 branch if carry set
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	215 inc $01,s
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	216 bra L00E4 get next char
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	217
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	218 * Clear 4 bytes on stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	219 * Exit:
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	220 * A,B = 0
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	221 Clr4 equ *
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	222 IFNE H6309
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	223 clrd
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	224 ELSE
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	225 clra
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	226 clrb
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	227 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	228 std $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	229 std $04,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	230 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	231
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	232 * ASCII to Integer
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	233 * Entry:
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	234 * X = address where byte is
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	235 * Exit:
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	236 * X = address + 1
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	237 * Carry = clear: B = integer
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	238 * Carry = set: B = ASCII char value
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	239 AtoInt ldb ,x+ get char at X
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	240 cmpb #'0 zero?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	241 bcs L0108 branch if lower
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	242 cmpb #'9 9?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	243 bls L010B branch if lower/same
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	244 L0108 orcc #Carry else set carry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	245 rts and return
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	246 L010B subb #'0 get real value
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	247 andcc #^Carry clear carry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	248 rts return
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	249
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	250 L0110 leax -$01,x back up X by 1
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	251 tst $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	252 beq L011C
a32b730f4c71 Added debug.asm boisy parents: diff changeset	253 ldd $02,s
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	254 andcc #^Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	255 bra L0120
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	256 L011C orcc #Zero
6c363f0afba7 Made more changes boisy parents: 115 diff changeset	257 L011E orcc #Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	258 L0120 leas $04,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	259 rts
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	260 L0123 andcc #^Zero
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	261 bra L011E
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	262
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	263 * Eat spaces
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	264 EatSpace lda ,x+
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	265 cmpa #C$SPAC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	266 beq EatSpace
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	267 leax -$01,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	268 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	269
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	270 L0130 pshs x,b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	271 lda $03,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	272 mul
a32b730f4c71 Added debug.asm boisy parents: diff changeset	273 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	274 lda $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	275 ldb $04,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	276 mul
a32b730f4c71 Added debug.asm boisy parents: diff changeset	277 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	278 lda $04,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	279 ldb $07,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	280 bsr L0157
a32b730f4c71 Added debug.asm boisy parents: diff changeset	281 lda $05,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	282 ldb $06,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	283 bsr L0157
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	284 andcc #^Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	285 ldd $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	286 ldx ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	287 beq L0154
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	288 orcc #Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	289 L0154 leas $08,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	290 rts
a32b730f4c71 Added debug.asm boisy parents: diff changeset	291 L0157 mul
a32b730f4c71 Added debug.asm boisy parents: diff changeset	292 addd $03,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	293 std $03,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	294 bcc L0160
a32b730f4c71 Added debug.asm boisy parents: diff changeset	295 inc $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	296 L0160 rts
a32b730f4c71 Added debug.asm boisy parents: diff changeset	297 L0161 pshs y,x,b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	298 ldd ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	299 bne L016B
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	300 orcc #Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	301 bra L018B
a32b730f4c71 Added debug.asm boisy parents: diff changeset	302 L016B ldd #$0010
a32b730f4c71 Added debug.asm boisy parents: diff changeset	303 stb $04,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	304 clrb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	305 L0171 lsl $03,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	306 rol $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	307 rolb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	308 rola
a32b730f4c71 Added debug.asm boisy parents: diff changeset	309 subd ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	310 bmi L017F
a32b730f4c71 Added debug.asm boisy parents: diff changeset	311 inc $03,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	312 bra L0181
a32b730f4c71 Added debug.asm boisy parents: diff changeset	313 L017F addd ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	314 L0181 dec $04,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	315 bne L0171
a32b730f4c71 Added debug.asm boisy parents: diff changeset	316 tfr d,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	317 ldd $02,s
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	318 andcc #^Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	319 L018B leas $06,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	320 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	321
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	322 * Copy from Y to X until byte zero is encountered
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	323 L018E sta ,x+
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	324 CopyY2X lda ,y+
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	325 bne L018E
a32b730f4c71 Added debug.asm boisy parents: diff changeset	326 rts
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	327
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	328 L0195 pshs u,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	329 tfr s,u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	330 bsr L01A7
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	331 andcc #^Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	332 puls pc,u,y
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	333
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	334 L019F tfr u,s
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	335 orcc #Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	336 puls pc,u,y
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	337
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	338 L01A5 leax $01,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	339 L01A7 bsr L01C9
a32b730f4c71 Added debug.asm boisy parents: diff changeset	340 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	341 L01AB bsr L021D
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	342 cmpa #'- subtract?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	343 bne L01B9
a32b730f4c71 Added debug.asm boisy parents: diff changeset	344 bsr L01C7
a32b730f4c71 Added debug.asm boisy parents: diff changeset	345 nega
a32b730f4c71 Added debug.asm boisy parents: diff changeset	346 negb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	347 sbca #$00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	348 bra L01BF
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	349 L01B9 cmpa #'+ add?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	350 bne L01C5
a32b730f4c71 Added debug.asm boisy parents: diff changeset	351 bsr L01C7
a32b730f4c71 Added debug.asm boisy parents: diff changeset	352 L01BF addd ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	353 std ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	354 bra L01AB
a32b730f4c71 Added debug.asm boisy parents: diff changeset	355 L01C5 puls pc,b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	356 L01C7 leax $01,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	357 L01C9 bsr L01FD
a32b730f4c71 Added debug.asm boisy parents: diff changeset	358 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	359 L01CD bsr L021D
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	360 cmpa #'* multiply?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	361 bne L01E2
a32b730f4c71 Added debug.asm boisy parents: diff changeset	362 bsr L01FB
a32b730f4c71 Added debug.asm boisy parents: diff changeset	363 pshs x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	364 ldx $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	365 lbsr L0130
a32b730f4c71 Added debug.asm boisy parents: diff changeset	366 bcc L01F5
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	367 ldb #E$MulOvf
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	368 bra L019F
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	369 L01E2 cmpa #'/ divide?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	370 bne L01C5
a32b730f4c71 Added debug.asm boisy parents: diff changeset	371 bsr L01FB
a32b730f4c71 Added debug.asm boisy parents: diff changeset	372 pshs x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	373 ldx $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	374 lbsr L0161
a32b730f4c71 Added debug.asm boisy parents: diff changeset	375 bcc L01F5
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	376 ldb #E$ZerDiv
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	377 bra L019F
a32b730f4c71 Added debug.asm boisy parents: diff changeset	378 L01F5 puls x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	379 std ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	380 bra L01CD
a32b730f4c71 Added debug.asm boisy parents: diff changeset	381 L01FB leax $01,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	382 L01FD bsr L0222
a32b730f4c71 Added debug.asm boisy parents: diff changeset	383 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	384 L0201 bsr L021D
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	385 cmpa #'& logical and?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	386 bne L020F
a32b730f4c71 Added debug.asm boisy parents: diff changeset	387 bsr L0220
a32b730f4c71 Added debug.asm boisy parents: diff changeset	388 andb $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	389 anda ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	390 bra L0219
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	391 L020F cmpa #'! logical or?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	392 bne L01C5
a32b730f4c71 Added debug.asm boisy parents: diff changeset	393 bsr L0220
a32b730f4c71 Added debug.asm boisy parents: diff changeset	394 orb $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	395 ora ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	396 L0219 std ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	397 bra L0201
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	398 L021D lbra EatSpace
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	399 L0220 leax $01,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	400 L0222 bsr L021D
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	401 cmpa #'^ logical not?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	402 bne L022E
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	403 bsr ParsExp
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	404 comb not B
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	405 coma not A
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	406 bra L0238
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	407 L022E cmpa #'- negate?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	408 bne L023B
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	409 bsr ParsExp
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	410 nega
a32b730f4c71 Added debug.asm boisy parents: diff changeset	411 negb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	412 sbca #$00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	413 L0238 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	414
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	415 ParsExp leax $01,x
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	416 L023B bsr L021D
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	417 cmpa #'( open paren?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	418 bne L0250
a32b730f4c71 Added debug.asm boisy parents: diff changeset	419 lbsr L01A5
a32b730f4c71 Added debug.asm boisy parents: diff changeset	420 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	421 bsr L021D
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	422 cmpa #') close paren?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	423 beq L0282
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	424 ldb #E$RParen
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	425 bra L0265
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	426 L0250 cmpa #'[
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	427 bne L026A
a32b730f4c71 Added debug.asm boisy parents: diff changeset	428 lbsr L01A5
a32b730f4c71 Added debug.asm boisy parents: diff changeset	429 tfr d,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	430 ldd ,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	431 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	432 bsr L021D
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	433 cmpa #']
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	434 beq L0282
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	435 ldb #E$RBrckt
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	436 L0265 leas $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	437 L0267 lbra L019F
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	438 L026A cmpa #'<
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	439 bne L0286
a32b730f4c71 Added debug.asm boisy parents: diff changeset	440 lbsr L01A5
a32b730f4c71 Added debug.asm boisy parents: diff changeset	441 tfr d,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	442 clra
a32b730f4c71 Added debug.asm boisy parents: diff changeset	443 ldb ,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	444 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	445 bsr L021D
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	446 cmpa #'>
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	447 beq L0282
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	448 ldb #E$RABrkt
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	449 bra L0265
a32b730f4c71 Added debug.asm boisy parents: diff changeset	450 L0282 leax $01,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	451 puls pc,b,a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	452
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	453 L0286 cmpa #C$PERD
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	454 bne L028F
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	455 ldd <curraddr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	456 leax $01,x
a32b730f4c71 Added debug.asm boisy parents: diff changeset	457 rts
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	458
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	459 L028F cmpa #'' ASCII byte?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	460 bne L0297
a32b730f4c71 Added debug.asm boisy parents: diff changeset	461 ldd ,x++
a32b730f4c71 Added debug.asm boisy parents: diff changeset	462 clra
a32b730f4c71 Added debug.asm boisy parents: diff changeset	463 rts
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	464
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	465 L0297 cmpa #'" ASCII word?
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	466 bne L02A0
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	467 leax $01,x point past quote char
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	468 ldd ,x++
a32b730f4c71 Added debug.asm boisy parents: diff changeset	469 rts
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	470
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	471 L02A0 cmpa #':
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	472 bne L02B4
a32b730f4c71 Added debug.asm boisy parents: diff changeset	473 leax $01,x
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	474 bsr GetReg get register that follows :
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	475 bcs L0267 branch if error
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	476 tsta is this byte or word register?
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	477 bmi L02B1 branch if word
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	478 clra else clear hi byte
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	479 ldb ,y and get byte at offset
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	480 rts
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	481 L02B1 ldd ,y get word at offset
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	482 L02B3 rts return
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	483
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	484 L02B4 lbsr L006F
a32b730f4c71 Added debug.asm boisy parents: diff changeset	485 bcc L02B3
a32b730f4c71 Added debug.asm boisy parents: diff changeset	486 beq L02BF
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	487 ldb #E$OpMsng
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	488 bra L0267
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	489 L02BF ldb #E$BadCnt
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	490 bra L0267
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	491
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	492 * Parse individual register
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	493 * Entry:
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	494 * X = address of register to find
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	495 * Exit:
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	496 * A = register offset value in table
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	497 * Y = ptr to register offset in stack
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	498 GetReg ldb #RegEnts get number of register entries
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	499 pshs b
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	500 ldd ,x get first two chars in D
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	501 cmpd #$7370 sp?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	502 beq L02D5 branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	503 cmpd #$5350 SP?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	504 bne L02E2 branch if not
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	505 L02D5 leax $02,x move past two chars
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	506 ldd #$0002
a32b730f4c71 Added debug.asm boisy parents: diff changeset	507 tfr dp,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	508 tfr d,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	509 lda #$80
a32b730f4c71 Added debug.asm boisy parents: diff changeset	510 bra L0314
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	511 L02E2 leay >RegList,pcr
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	512 L02E6 lda ,y get first char of register entry
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	513 ldb $01,y get second char of register entry
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	514 bne L02F8 branch if two chars
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	515 cmpa ,x same as user input?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	516 beq L0307 yes, a match
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	517 adda #$20 make lowercase
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	518 cmpa ,x same as user input?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	519 beq L0307 yes, a match
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	520 bra L0318
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	521 L02F8 cmpd ,x same as user input?
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	522 beq L0305 yes, a match
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	523 addd #$2020 make uppercase
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	524 cmpd ,x same as user input?
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	525 bne L0318 branch if not
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	526 L0305 leax $01,x point X to next char
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	527 L0307 leax $01,x point X to next char
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	528 lda $02,y get offset
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	529 tfr a,b transfer to B
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	530 andb #$0F mask off hi nibble
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	531 ldy <u0002 get stack in Y
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	532 leay b,y move Y to offset in stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	533 L0314 andcc #^Carry clear carry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	534 puls pc,b return
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	535
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	536 L0318 leay $03,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	537 dec ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	538 bne L02E6
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	539 orcc #Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	540 puls pc,b
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	541
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	542 * Register list for 6809/6309
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	543 RegList fcc "CC"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	544 fcb R$CC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	545 fcc "DP"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	546 fcb R$DP
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	547 fcc "PC"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	548 fcb $80+R$PC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	549 fcc "A"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	550 fcb $00,R$A
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	551 fcc "B"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	552 fcb $00,R$B
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	553 fcc "D"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	554 fcb $00,$80+R$A
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	555 IFNE H6309
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	556 fcc "E"
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	557 fcb $00,R$E
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	558 fcc "F"
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	559 fcb $00,R$F
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	560 fcc "W"
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	561 fcb $00,$80+R$E
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	562 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	563 fcc "X"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	564 fcb $00,$80+R$X
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	565 fcc "Y"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	566 fcb $00,$80+R$Y
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	567 fcc "U"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	568 fcb $00,$80+R$U
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	569 RegEnts equ (*-RegList)/3
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	570
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	571 start leas >size,u point S to end of memory
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	572 leas -R$Size,s back off size of register stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	573 sts <u0002 save off
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	574 sts <u0004
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	575 leay >DefBrk,pcr
691 ddf512f635d2 Ever so closer boisy parents: 687 diff changeset	576 sty R$PC,s
ddf512f635d2 Ever so closer boisy parents: 687 diff changeset	577 lda #Entire
ddf512f635d2 Ever so closer boisy parents: 687 diff changeset	578 sta R$CC,s
ddf512f635d2 Ever so closer boisy parents: 687 diff changeset	579 tfr s,x X = size-R$Size
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	580 leax >-BuffSiz,x back off appropriate byte count
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	581 stx <buffptr and save off ptr for line buffer
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	582 leax <-UnknSiz,x back off more
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	583 stx <u0008
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	584 leax <-NumBrkPt*3,x
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	585 stx <bptable save pointer to breakpoint table
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	586 clr <curraddr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	587 clr <curraddr+1
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	588 clr <isnarrow
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	589 pshs y,x,b,a
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	590 lda #$01 stdout
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	591 ldb #SS.ScSiz get screen size
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	592 os9 I$GetStt do it!
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	593 bcc L0380
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	594 cmpb #E$UnkSvc
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	595 beq L0387
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	596 puls x,y,b,a
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	597 lbra L0735
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	598 L0380 cmpx #80 80 columns?
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	599 beq L0387 branch if so
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	600 inc <isnarrow
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	601 L0387 puls x,y,b,a
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	602 * Clear breakpoint table
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	603 L036A clr ,x+
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	604 cmpx <buffptr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	605 bcs L036A
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	606 leax >IcptRtn,pcr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	607 lda #$01 SSWI Vector 1
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	608 os9 F$SSWi set software interrupt routine
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	609 os9 F$Icpt set intercept routine
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	610 lbsr WritCR write carriage return
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	611 ldx <buffptr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	612 leay >Title,pcr point to title
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	613 * bsr L03C2 print it
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	614 lbsr CopyY2X print it
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	615 lbsr WritCR2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	616
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	617 * Show prompt and get input from standard input to process
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	618 GetInput leay >Prompt,pcr point to prompt
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	619 lbsr PrintY print it
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	620 lbsr ReadLine read line from std input
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	621 leay >CmdTbl,pcr point to command table
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	622 lda ,x get character from read buffer
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	623 cmpa #'a compare against lowercase a
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	624 bcs L03A2 branch if lower
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	625 suba #$20 make uppercase
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	626 sta ,x and save
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	627 L03A2 leay $03,y walk through table
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	628 lda ,y get char to compare against in A
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	629 beq SyntxErr branch if done
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	630 cmpa ,x same?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	631 bne L03A2 if not, get next
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	632 * Here we have a command match, dispatch it
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	633 leax $01,x move past char
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	634 ldd $01,y get handle address
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	635 leau >L0000,pcr point to start of module
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	636 jsr d,u and branch to subroutine
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	637 bra GetInput
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	638
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	639 * Command wasn't recognized
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	640 SyntxErr ldb #E$CmdErr
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	641 bsr ShowErr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	642 bra GetInput
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	643
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	644 ShowErr os9 F$PErr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	645 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	646
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	647 *L03C2 lbra CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	648
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	649 * Show byte at current memptr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	650 DotCmd lda ,x get byte after cmd byte
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	651 cmpa #C$PERD is it a period?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	652 bne L03CF branch if not
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	653 ldd <prevaddr else get previous address
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	654 bra L03DC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	655 L03CF cmpa #C$CR cr?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	656 bne L03D7 branch if not
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	657 L03D3 ldd <curraddr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	658 bra L03DC
a32b730f4c71 Added debug.asm boisy parents: diff changeset	659 L03D7 lbsr L0195
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	660 bcs ShowErr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	661 L03DC ldx <curraddr get current memory loc
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	662 stx <prevaddr store in previous memory loc
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	663 std <curraddr and save D in new memory loc
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	664 pshs b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	665 bsr L0415
a32b730f4c71 Added debug.asm boisy parents: diff changeset	666 ldd ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	667 lbsr L0013
a32b730f4c71 Added debug.asm boisy parents: diff changeset	668 puls y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	669 ldb ,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	670 lbsr L0027
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	671 lbra WritCR2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	672
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	673 * Show previous byte
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	674 PrevByte ldd <curraddr get current memory address
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	675 IFNE H6309
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	676 decd
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	677 ELSE
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	678 subd #$0001 subtract 1
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	679 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	680 bra L03DC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	681
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	682 * Set byte at current location
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	683 SetLoc bsr L043F
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	684 bcs ShowErr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	685 ldx <curraddr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	686 stb ,x store byte at curraddr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	687 cmpb ,x compare (in case it is ROM)
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	688 beq NextByte branch if equal
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	689 ldb #E$NotRAM else load B with error
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	690 bsr ShowErr and show it
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	691 bra L03D3
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	692
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	693 * Show next byte
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	694 NextByte ldd <curraddr get current memory address
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	695 IFNE H6309
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	696 incd
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	697 ELSE
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	698 addd #$0001 add one to it
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	699 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	700 bra L03DC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	701 L0415 ldx <buffptr load X with buffer pointer
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	702 pshs b,a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	703 leay >Spaces,pcr point to spaces
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	704 * bsr L03C2
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	705 lbsr CopyY2X
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	706 puls pc,b,a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	707
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	708 * Calc expression
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	709 Calc lbsr L0195
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	710 bcs ShowErr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	711 bsr L0415
a32b730f4c71 Added debug.asm boisy parents: diff changeset	712 pshs b,a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	713 lda #'$ hex prefix
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	714 sta ,x+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	715 lda ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	716 lbsr L0013
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	717 lda #'# decimal prefix
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	718 sta ,x+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	719 puls b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	720 lbsr L0040
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	721 lbra WritCR2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	722 L043F lbsr L0195
a32b730f4c71 Added debug.asm boisy parents: diff changeset	723 bcs L044B
a32b730f4c71 Added debug.asm boisy parents: diff changeset	724 tsta
a32b730f4c71 Added debug.asm boisy parents: diff changeset	725 beq L044B
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	726 ldb #E$BytOvf
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	727 orcc #Carry
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	728 L044B rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	729
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	730 * Show all registers
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	731 ShowRegs lbsr L0512
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	732 beq L04AF
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	733 lbsr GetReg
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	734 lbcs ShowErr
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	735 pshs y,a save pointer to register and offset
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	736 lbsr L0512
a32b730f4c71 Added debug.asm boisy parents: diff changeset	737 bne L0475
a32b730f4c71 Added debug.asm boisy parents: diff changeset	738 bsr L0415
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	739 puls y,a retreive pointer to register and offset
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	740 tsta test A
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	741 bpl L046D branch if positive, means one byte3
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	742 ldd ,y load D with two bytes
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	743 lbsr L0021
a32b730f4c71 Added debug.asm boisy parents: diff changeset	744 bra L0472
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	745 L046D ldb ,y load B with one byte
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	746 lbsr L0027
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	747 L0472 lbra WritCR2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	748 L0475 lda ,s+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	749 bpl L0485
a32b730f4c71 Added debug.asm boisy parents: diff changeset	750 lbsr L0195
a32b730f4c71 Added debug.asm boisy parents: diff changeset	751 puls y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	752 lbcs L054E
a32b730f4c71 Added debug.asm boisy parents: diff changeset	753 std ,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	754 rts
a32b730f4c71 Added debug.asm boisy parents: diff changeset	755 L0485 bsr L043F
a32b730f4c71 Added debug.asm boisy parents: diff changeset	756 puls y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	757 lbcs L054E
a32b730f4c71 Added debug.asm boisy parents: diff changeset	758 stb ,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	759 rts
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	760
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	761 ShrtHdr fcc "PC="
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	762 fcb $00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	763 fcc "A="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	764 fcb $00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	765 fcc "B="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	766 fcb $00
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	767 IFNE H6309
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	768 fcc "E="
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	769 fcb $00
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	770 fcc "F="
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	771 fcb $00
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	772 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	773 fcc "CC="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	774 fcb $00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	775 fcc "DP="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	776 fcb $00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	777 fcc "SP="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	778 fcb $00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	779 fcc "X="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	780 fcb $00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	781 fcc "Y="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	782 fcb $00
a32b730f4c71 Added debug.asm boisy parents: diff changeset	783 fcc "U="
a32b730f4c71 Added debug.asm boisy parents: diff changeset	784 fcb $00
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	785
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	786 L04AF tst <isnarrow wide screen?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	787 beq WidRegs branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	788 pshs u save U
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	789 ldx <buffptr point to buffer
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	790 leay <ShrtHdr,pcr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	791 ldu <u0002
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	792 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	793 ldd R$PC,u
720 fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	794 IFNE H6309
fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	795 lbsr L0505
fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	796 ELSE
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	797 bsr L0505
720 fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	798 ENDC
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	799 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	800 ldb R$A,u
720 fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	801 IFNE H6309
fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	802 lbsr L050F
fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	803 ELSE
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	804 bsr L050F
720 fd335d32b9f8 Put in needed long branches for 6309 boisy parents: 719 diff changeset	805 ENDC
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	806 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	807 ldb R$B,u
735 98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	808 IFNE H6309
98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	809 lbsr L050F
98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	810 ELSE
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	811 bsr L050F
735 98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	812 ENDC
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	813 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	814 IFNE H6309
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	815 ldb R$E,u
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	816 bsr L050F
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	817 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	818 ldb R$F,u
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	819 bsr L050F
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	820 pshs y
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	821 lbsr WritCR2
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	822 puls y
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	823 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	824 ENDC
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	825 ldb R$CC,u
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	826 bsr L050F
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	827 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	828 ldb R$DP,u
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	829 bsr L050F
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	830 IFEQ H6309
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	831 pshs y
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	832 lbsr WritCR2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	833 puls y
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	834 ENDC
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	835 lbsr CopyY2X
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	836 tfr u,d
a32b730f4c71 Added debug.asm boisy parents: diff changeset	837 bsr L0505
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	838 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	839 ldd R$X,u
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	840 bsr L0505
735 98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	841 IFNE H6309
98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	842 pshs y
98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	843 lbsr WritCR2
98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	844 puls y
98acb7c3a708 Added code to allow printing of registers in 6309 mode on a narrow screen boisy parents: 729 diff changeset	845 ENDC
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	846 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	847 ldd R$Y,u
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	848 bsr L0505
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	849 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	850 ldd R$U,u
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	851 bsr L0505
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	852 lbsr WritCR2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	853 puls pc,u
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	854 * Show registers in wide form
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	855 WidRegs lbsr L0415
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	856 leay >RegHdr,pcr
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	857 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	858 lbsr WritCR2
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	859 lbsr L0415
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	860 ldd <u0002
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	861 bsr L0505 show SP
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	862 ldy <u0002
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	863 bsr L050D show CC
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	864 bsr L050D show A
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	865 bsr L050D show B
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	866 IFNE H6309
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	867 bsr L050D show E
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	868 bsr L050D show F
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	869 ENDC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	870 bsr L050D show DP
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	871 bsr L0550 show X
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	872 bsr L0550 show Y
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	873 bsr L0550 show U
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	874 bsr L0550 show PC
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	875 lbra WritCR2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	876
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	877 L0550 ldd ,y++
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	878 L0505 lbra L0013
a32b730f4c71 Added debug.asm boisy parents: diff changeset	879 L0508 ldd ,y++
a32b730f4c71 Added debug.asm boisy parents: diff changeset	880 lbra L0021
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	881 L050D ldb ,y+
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	882 L050F lbra L0017
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	883
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	884 * Eat spaces and compare char with CR
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	885 L0512 lbsr EatSpace
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	886 cmpa #C$CR
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	887 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	888
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	889 * Set/show breakpoints
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	890 SetBkpt bsr L0512 any parameters?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	891 bne L0538 branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	892 * Here we show all breakpoints
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	893 lbsr L0415
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	894 ldy <bptable get breakpoints base
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	895 ldb #NumBrkPt get breakpoint count
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	896 pshs b save on stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	897 L0526 ldd ,y empty?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	898 beq L052D branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	899 lbsr L0013 else show breakpoint at Y
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	900 L052D leay $03,y
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	901 dec ,s dec breakpoint count
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	902 bne L0526 continue searching
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	903 leas $01,s kill byte on stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	904 lbra WritCR2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	905 * Set breakpoint here
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	906 L0538 lbsr L0195
a32b730f4c71 Added debug.asm boisy parents: diff changeset	907 bcs L054E
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	908 pshs b,a save desired breakpoint address
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	909 bsr SrchBkpt search to see if it is already in table
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	910 beq L0551 if duplicate, just exit
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	911 IFNE H6309
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	912 clrd else load D with empty address
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	913 ELSE
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	914 ldd #$0000 else load D with empty address
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	915 ENDC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	916 bsr SrchBkpt search for empty
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	917 beq L0551 branch if found
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	918 ldb #E$BPTFull else table is full
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	919 leas $02,s clean up stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	920 L054E lbra ShowErr and show error
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	921 L0551 puls b,a get breakpoint address off stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	922 std ,y and save it at breakpoint entry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	923 rts then return
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	924
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	925 * Search for existing breakpoint that matches address in D
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	926 SrchBkpt pshs u save U
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	927 tfr d,u transfer addr to search in U
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	928 ldb #NumBrkPt get number of breakpoints
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	929 ldy <bptable point Y to base of breakpoints
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	930 L055F cmpu ,y match?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	931 beq L056D branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	932 leay $03,y else move to next entry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	933 decb dec couner
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	934 bne L055F if not 0, continue search
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	935 ldb #E$NoBkPt
116 6c363f0afba7 Made more changes boisy parents: 115 diff changeset	936 andcc #^Zero
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	937 L056D puls pc,u
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	938
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	939 * Kill breakpoint(s)
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	940 KillBkpt bsr L0512 any parameters?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	941 beq KillAll branch if none
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	942 lbsr L0195 else get parameter
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	943 bcs L054E branch if error
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	944 bsr SrchBkpt
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	945 bne L054E
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	946 IFNE H6309
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	947 clrd
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	948 ELSE
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	949 clra
a32b730f4c71 Added debug.asm boisy parents: diff changeset	950 clrb
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	951 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	952 std ,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	953 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	954 * Kill all breakpoints
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	955 KillAll ldy <bptable
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	956 ldb #NumBrkPt*3
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	957 L0586 clr ,y+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	958 decb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	959 bne L0586
a32b730f4c71 Added debug.asm boisy parents: diff changeset	960 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	961
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	962 * Go at address
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	963 GoPC bsr L0512 any parameters?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	964 beq L059A branch if none
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	965 lbsr L0195
a32b730f4c71 Added debug.asm boisy parents: diff changeset	966 bcs L054E
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	967 ldy <u0002 get execution stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	968 std R$PC,y save new PC
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	969 * Now we set up all breakpoints in memory
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	970 L059A ldy <bptable
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	971 ldb #R$Size get register size
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	972 ldx <u0002 point to registers
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	973 ldx R$PC,x get PC
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	974 L05A3 ldu ,y get breakpoint at entry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	975 beq L05B3 branch if empty
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	976 lda ,u get byte at breakpoint address
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	977 sta $02,y save in breakpoint entry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	978 cmpx ,y is breakpoint same as PC?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	979 beq L05B3 branch if so
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	980 lda #$3F else take SWI instruction
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	981 sta ,u and store it at address of breakpoint
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	982 L05B3 leay $03,y move to next breakpoint entry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	983 decb decrement
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	984 bne L05A3 branch if not complete
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	985 lds <u0002 get execution stack
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	986 rti run program
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	987
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	988 MemDump bsr L0613
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	989 bcs L054E
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	990 tst <isnarrow
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	991 bne L0615
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	992 orb #$0F
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	993 bra L0617
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	994 L0615 orb #$07
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	995 L0617 exg d,u
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	996 tst <isnarrow
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	997 bne L0621
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	998 andb #$F0
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	999 bra L0623
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1000 L0621 andb #$F8
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1001 L0623 pshs u,b,a
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1002 cmpd $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1003 bcc L05D9
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1004 L05CD ldy ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1005 leay -$01,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1006 cmpy $02,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1007 leay $01,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1008 bcs L05DB
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1009 L05D9 puls pc,u,b,a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1010 L05DB ldx <buffptr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1011 tfr y,d
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1012 lbsr L0013
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1013 tst <isnarrow
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1014 bne L0647
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1015 ldb #8
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1016 bra L0649
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1017 L0647 ldb #4
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1018 L0649 pshs b
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1019 L05E6 tst <isnarrow
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1020 bne L0654
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1021 lbsr L0550
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1022 bra L0657
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1023 L0654 lbsr L0508
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1024 L0657 dec ,s
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1025 bne L05E6
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1026 tst <isnarrow
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1027 bne L0663
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1028 ldb #16
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1029 bra L0668
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1030 L0663 lbsr L0019
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1031 ldb #8
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1032 L0668 stb ,s
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1033 ldy $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1034 L05F7 lda ,y+
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1035 cmpa #'~
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1036 bhi L0601
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1037 cmpa #C$SPAC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1038 bcc L0603
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1039 L0601 lda #'.
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1040 L0603 sta ,x+
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1041 dec ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1042 bne L05F7
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1043 leas $01,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1044 sty ,s
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1045 lbsr WritCR2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1046 bra L05CD
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1047 L0613 lbsr L0195
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1048 bcs L061D
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1049 tfr d,u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1050 lbsr L0195
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1051 L061D rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1052
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1053 ClearMem bsr L0613
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1054 lbcs ShowErr
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1055 pshs b,a save fill word
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1056 L0626 cmpu ,s
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1057 bls L062D
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1058 puls pc,b,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1059 L062D ldd #$8008
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1060 sta ,u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1061 L0632 cmpa ,u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1062 bne L063E
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1063 lsra
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1064 lsr ,u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1065 decb
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1066 bne L0632
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1067 bra L064E
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1068 L063E lbsr L0415
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1069 ldd #$2D20 dash, space
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1070 std ,x++
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1071 tfr u,d
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1072 lbsr L0021
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1073 lbsr WritCR2
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1074 L064E leau 1,u
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1075 bra L0626
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1076
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1077 * Intercept routine
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1078 IcptRtn equ *
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1079 IFNE H6309
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1080 tfr 0,dp
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1081 ELSE
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1082 clra
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1083 tfr a,dp
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1084 ENDC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1085 IFEQ Level-1
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1086 ldx <D.Proc get curr proc ptr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1087 lda P$ADDR,x get hi word of user addr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1088 tfr a,dp transfer it to DP
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1089 ENDC
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1090 sts <u0002
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1091 ldd R$PC,s
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	1092 IFNE H6309
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	1093 decd
dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	1094 ELSE
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1095 subd #$0001
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	1096 ENDC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1097 std R$PC,s
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1098 lds <u0004
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1099 lbsr SrchBkpt
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1100 beq L0672
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1101 ldb #E$BadSWI
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1102 lbsr ShowErr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1103 * Clear breakpoints in memory
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1104 L0672 ldy <bptable point to break point table
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1105 ldb #NumBrkPt get number of entries
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1106 L0677 ldx ,y get address in entry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1107 beq L067F branch if empty
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1108 lda $02,y get saved byte
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1109 sta ,x restore it
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1110 L067F leay $03,y move to next entry
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1111 decb dec counter
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1112 bne L0677 continue if not zero
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1113 lbsr WritCR
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1114 lbsr L0415
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1115 leay >L07A9,pcr
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1116 lbsr CopyY2X
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1117 lbsr WritCR2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1118 lbsr L04AF
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1119 lbra GetInput
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1120
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1121 LinkMod bsr LinkIt link to module
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1122 lbcs ShowErr branch if error
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1123 ldx <buffptr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1124 tfr u,d
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1125 pshs u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1126 lbsr L03DC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1127 lbsr WritCR2
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1128 puls u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1129 bra L06CC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1130
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	1131 LinkIt lbsr EatSpace skip over blank spaces at X
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1132 * lda #$00
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1133 clra
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	1134 os9 F$Link link to module name at X
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1135 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1136
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1137 * Prepare module for execution
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1138 PrepMod bsr LinkIt
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1139 lbcs ShowErr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1140 ldd M$Mem,u get memory requirements
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1141 addd #512 add an extra 512 bytes
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1142 os9 F$Mem allocate, Y = upperbound
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1143 bcc UnlinkIt branch if ok
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1144 lbsr ShowErr show error
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1145 L06CC equ *
63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1146 IFEQ Level-1
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1147 os9 F$UnLink
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1148 ENDC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1149 rts and return
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1150
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1151 UnlinkIt os9 F$UnLink unlink module
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1152 pshs u,y,x save u,y,x
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1153 L06D5 lda ,x+ get next parameter char
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1154 cmpa #C$CR carriage return?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1155 bne L06D5 branch if not
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1156 clrb start at zero
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1157 L06DC lda ,-x get parameter char
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1158 sta ,-y store in buffer
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1159 incb continue
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1160 cmpx ,s reached start of parameter?
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1161 bhi L06DC branch if not
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1162 sty -R$U,y
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1163 leay -R$Size,y
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1164 sty <u0002
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1165 clra
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1166 std R$A,y
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1167 puls u,x,b,a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1168 stx R$Y,y
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1169 ldd M$Exec,u get exec offset in D
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1170 leax d,u point X to execution address
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1171 stx R$PC,y save at PC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1172 tfr cc,a
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1173 ora #Entire
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1174 sta R$CC,y
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1175 tfr dp,a
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1176 adda #$02
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1177 clrb
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1178 std R$U,y
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1179 sta R$DP,y
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1180 lbra L04AF
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1181
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1182 * Fork program (default is shell)
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1183 ForkPrg lbsr EatSpace skip leading spaces
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1184 IFNE H6309
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1185 clrd
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1186 ELSE
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1187 clra
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1188 clrb
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1189 ENDC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1190 tfr x,u move param ptr to U
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1191 tfr d,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1192 L0715 leay $01,y
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1193 lda ,x+
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1194 cmpa #C$CR
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1195 bne L0715
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1196 clra
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1197 leax <ShellNam,pcr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1198 os9 F$Fork fork shell plus any parameters
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1199 bcs L0729 branch if error
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1200 os9 F$Wait wait for shell to finish
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1201 L0729 lbcs ShowErr branch if error
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1202 rts and return
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1203
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1204 ShellNam fcc "shell"
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1205 fcb $00
3e08691aa71f More source changes boisy parents: 200 diff changeset	1206
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1207 * Exit without error
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1208 ExitOk clrb
711 63a34e438dde Now assembles for L1 and L2 boisy parents: 691 diff changeset	1209 L0735 os9 F$Exit
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1210
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1211 * Search for byte or word from . to end address
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1212 * Syntax: S endaddr byte
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1213 * S endaddr word
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1214 SrchMem lbsr L0613
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1215 lbcs ShowErr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1216 pshs u
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1217 ldx <curraddr
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1218 tsta byte or word?
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1219 bne L0750 branch if word
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1220 L0746 cmpb ,x+ byte in B match byte at ,X?
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1221 beq L075C branch if so
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1222 cmpx ,s is X equal to end?
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1223 bne L0746 branch if not
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1224 puls pc,u else we're done
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1225 L0750 cmpd ,x+ byte in B match byte at ,X?
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1226 beq L075C branch if so
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1227 cmpx ,s
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1228 bne L0750 branch if not
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1229 puls pc,u
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1230 L075C leax -$01,x back up to mem location found
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1231 tfr x,d put memory location in D
edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1232 leas $02,s wipe out stack
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1233 lbra L03DC
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1234
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1235 DefBrk swi
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1236
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1237 Title fcc "Interactive Debugger"
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1238 fcb $00
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1239
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1240 Prompt fcc "DB: "
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1241 fcb $00
721 dcaff75a19d4 More 6309 optimizations boisy parents: 720 diff changeset	1242 Spaces fcc " "
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1243 fcb $00
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1244
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1245 IFNE H6309
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1246 RegHdr fcc " SP CC A B E F DP X Y U PC"
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1247 ELSE
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1248 RegHdr fcc " SP CC A B DP X Y U PC"
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1249 ENDC
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1250 fcb $00
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1251
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1252 L07A9 fcc "BKPT"
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1253 CmdTbl fcc ": "
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1254 fcb $00
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1255 fcc /./
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1256 fdb DotCmd
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1257 fcc /=/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1258 fdb SetLoc
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1259 fcb C$CR
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1260 fdb NextByte
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1261 fcb C$SPAC
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1262 fdb Calc
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1263 fcc /-/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1264 fdb PrevByte
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1265 fcc /:/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1266 fdb ShowRegs
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1267 fcc /K/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1268 fdb KillBkpt
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1269 fcc /M/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1270 fdb MemDump
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1271 fcc /C/
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1272 fdb ClearMem
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1273 fcc /B/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1274 fdb SetBkpt
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1275 fcc /G/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1276 fdb GoPC
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1277 fcc /L/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1278 fdb LinkMod
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1279 fcc /E/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1280 fdb PrepMod
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1281 fcc /$/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1282 fdb ForkPrg
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1283 fcc /Q/
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1284 fdb ExitOk
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1285 fcc /S/
722 edea65d8200b Fixed apparent bug in L-I code boisy parents: 721 diff changeset	1286 fdb SrchMem
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1287 fcb $00
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1288
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1289 * Append CR and write to std out
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1290 WritCR ldx <buffptr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1291 WritCR2 lda #C$CR
687 3e08691aa71f More source changes boisy parents: 200 diff changeset	1292 sta ,x+
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1293 ldx <buffptr
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1294 ldy #81
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1295 bra WrStdOut
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1296
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1297 PrintY tfr y,x
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1298 tfr y,u
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1299 ldy #$0000
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1300 PrintYL ldb ,u+ get next char
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1301 beq WrStdOut write it
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1302 leay $01,y increase Y
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1303 bra PrintYL get more
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1304
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1305 * Write To Standard Output
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1306 * Entry:
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1307 * X = address of buffer to write
729 29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1308 * Exit:
29036be0e9d8 Bumped to edition 10, made minor optimizations, needs testing boisy parents: 722 diff changeset	1309 * X = address of program's buffptr
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1310 WrStdOut lda #$01 stdout
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1311 os9 I$WritLn write it!
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1312 ldx <buffptr
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1313 rts
719 ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1314
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1315 * Read From To Standard Input
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1316 * Exit:
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1317 * X = address of buffer to data read
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1318 ReadLine ldx <buffptr point to buffer
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1319 ldy #80 read up to 80 chars
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1320 clra from stdin
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1321 os9 I$ReadLn do it!
ff559935b40a Major changes, incorporated ed #9 from Level Two to OS-9 Level One, added boisy parents: 711 diff changeset	1322 ldx <buffptr reload X with line
115 a32b730f4c71 Added debug.asm boisy parents: diff changeset	1323 rts
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1324
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1325 emod
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1326 eom equ *
a32b730f4c71 Added debug.asm boisy parents: diff changeset	1327 end

Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/debug.asm @ 1347:89572d423498