URL
https://opencores.org/ocsvn/wb_z80/wb_z80/trunk
Subversion Repositories wb_z80
[/] [wb_z80/] [trunk/] [asm/] [BJS80TST.ASM] - Rev 36
Go to most recent revision | Compare with Previous | Blame | View Log
; bjp modified to assemble on as80 assembler (needs different syntax).; minor mods to account for changes in interrupt structure and I/O; all such are flagged with my initials.....;; The origional code used operators < and > on symbols to extract the; lower and higher bytes respectively. It appears that as80 has no equivalent.; I have hand coded such ---- hopefully correctly.; This is only a significant issue with such constructs as <stack_end.; My solution forces the stack to remain in its present location.;; WARNING If you must move the stack -- check comments and fix code for my kludges;; Origional Code also had a pretty strange "passed" macro. Removed it and; output a more useful message. along with the bist controls;;z80 simulator test routine;total error count is left in a at end of test routine;codeorg #0000;rst_0000: jp rst_0000_1;org #0008;rst_0008: ld a,2ret;org #0010;rst_0010: ld a,3ret;org #0018;rst_0018: ld a,4ret;org #0020;rst_0020: ld a,5ret;org #0028;rst_0028: ld a,6ret;org #0030;rst_0030: ld a,7ret;org #0038;rst_0038: ld a,8ret;code;in_port: equ #20out_port: equ #20bist_adr: equ #ffff ;last memory address for bist controll registerbist_ack: equ #01bist_err: equ #02bist_ei: equ #04 ;interrupt enable register for bist;data_55: equ #55data_7f: equ #7fdata_80: equ #80data_aa: equ #aadata_ff: equ #ff;data_1234: equ #1234data_55aa: equ #55aadata_7fff: equ #7fffdata_8000: equ #8000data_aa55: equ #aa55data_ffff: equ #ffffcr: equ #0dlf: equ #0abell: equ #07;;inc_error_cnt macro ;bjp change for initial test to halt on error; ld hl,error_cnt; inc (hl); endminc_error_cnt macrohaltendm;;passed macro; push bc; ld bc,(pass); ld (message_addr),bc; ld bc,(pass+2); ld (message_addr+2),bc; ld bc,(pass+4); ld (message_addr+4),bc; pop bc; endm;;failed macro; push bc; ld bc,(fail); ld (message_addr),bc; ld bc,(fail+2); ld (message_addr+2),bc; ld bc,(fail+4); ld (message_addr+4),bc; pop bc; endm;;start: xor ald (pass_count),ald hl,error_cntld (hl),a ;clear error countnop_1: nopnopld_167: ld a,data_55cp data_55jr z,ld_1inc_error_cntld_1: ld b,data_7fld a,data_7fcp bjr z,ld_2inc_error_cntld_2: ld c,data_80ld a,data_80cp cjr z,ld_3inc_error_cntld_3: ld d,data_aald a,data_aacp djr z,ld_4inc_error_cntld_4: ld e,data_55ld a,data_55cp ejr z,ld_5inc_error_cntld_5: ld h,data_7fld a,data_7fcp hjr z,ld_6inc_error_cntld_6: ld l,data_80ld a,data_80cp ljr z,ld_7inc_error_cntld_7: ld a,data_55ld b,acp bjr z,ld_8inc_error_cntld_8: ld c,bcp cjr z,ld_9inc_error_cntld_9: ld d,ccp djr z,ld_10inc_error_cntld_10: ld e,dcp ejr z,ld_11inc_error_cntld_11: ld h,ecp hjr z,ld_12inc_error_cntld_12: ld l,hcp ljr z,ld_13inc_error_cntld_13: ld l,data_80ld a,lcp ljr z,ld_14inc_error_cntld_14: ld h,lcp hjr z,ld_15inc_error_cntld_15: ld e,hcp ejr z,ld_16inc_error_cntld_16: ld d,ecp djr z,ld_17inc_error_cntld_17: ld c,dcp cjr z,ld_18inc_error_cntld_18: ld b,ccp bjr z,ld_19inc_error_cntld_19: ld hl,var1ld a,(hl)cp data_ffjr z,ld_20inc_error_cntld_20: ld hl,var2ld a,data_55ld b,(hl)cp bjr z,ld_21inc_error_cntld_21: ld hl,var1ld c,(hl)ld a,(hl)cp cjr z,ld_22inc_error_cntld_22: ld hl,var2ld d,(hl)ld a,(hl)cp djr z,ld_23inc_error_cntld_23: ld hl,var1ld e,(hl)ld a,(hl)cp ejr z,ld_24inc_error_cntld_24: ld hl,var2ld a,(hl)ld h,(hl)cp hjr z,ld_25inc_error_cntld_25: ld hl,var1ld a,(hl)ld l,(hl)cp ljr z,ld_26inc_error_cntld_26: ld ix,var3ld a,(ix-2)cp data_ffjr z,ld_27inc_error_cntld_27: ld a,(ix+2)cp data_7fjr z,ld_28inc_error_cntld_28: ld a,(ix-1)ld b,(ix-1)cp bjr z,ld_29inc_error_cntld_29: cp data_55jr z,ld_30inc_error_cntld_30: ld a,(ix+1)ld c,(ix+1)cp cjr z,ld_31inc_error_cntld_31: cp data_aajr z,ld_32inc_error_cntld_32: ld d,(ix-2)ld a,(ix-2)cp djr z,ld_33inc_error_cntld_33: cp data_ffjr z,ld_34inc_error_cntld_34: ld e,(ix+2)ld a,(ix+2)cp ejr z,ld_35inc_error_cntld_35: cp data_7fjr z,ld_36inc_error_cntld_36: ld h,(ix+0)ld a,(ix+0)cp hjr z,ld_37inc_error_cntld_37: cp data_80jr z,ld_38inc_error_cntld_38: ld l,(ix-1)ld a,(ix-1)cp ljr z,ld_39inc_error_cntld_39: cp data_55jr z,ld_40inc_error_cntld_40: ld iy,var3ld a,(iy-2)cp data_ffjr z,ld_41inc_error_cntld_41: ld a,(iy+2)cp data_7fjr z,ld_42inc_error_cntld_42: ld b,(iy-1)ld a,(iy-1)cp bjr z,ld_43inc_error_cntld_43: cp data_55jr z,ld_44inc_error_cntld_44: ld c,(iy+1)ld a,(iy+1)cp cjr z,ld_45inc_error_cntld_45: cp data_aajr z,ld_46inc_error_cntld_46: ld d,(iy-2)ld a,(iy-2)cp djr z,ld_47inc_error_cntld_47: cp data_ffjr z,ld_48inc_error_cntld_48: ld e,(iy+2)ld a,(iy+2)cp ejr z,ld_49inc_error_cntld_49: cp data_7fjr z,ld_50inc_error_cntld_50: ld h,(iy+0)ld a,(iy+0)cp hjr z,ld_51inc_error_cntld_51: cp data_80jr z,ld_52inc_error_cntld_52: ld l,(iy-2)ld a,(iy-2)cp ljr z,ld_53inc_error_cntld_53: cp data_ffjr z,ld_54inc_error_cntld_54: ld hl,t_var1ld a,data_aa+1ld (hl),ald b,(hl)cp bjr z,ld_55inc_error_cntld_55: cp data_aa+1jr z,ld_56inc_error_cntld_56: ld b,data_80+1ld (hl),bld a,(hl)cp bjr z,ld_57inc_error_cntld_57: cp data_80+1jr z,ld_58inc_error_cntld_58: ld c,data_55-1ld (hl),cld a,(hl)cp cjr z,ld_59inc_error_cntld_59: cp data_55-1jr z,ld_60inc_error_cntld_60: ld d,data_ff-1ld (hl),dld a,(hl)cp djr z,ld_61inc_error_cntld_61: cp data_ff-1jr z,ld_62inc_error_cntld_62: ld e,data_55+1ld (hl),eld a,(hl)cp ejr z,ld_63inc_error_cntld_63: cp data_55+1jr z,ld_64inc_error_cntld_64: ld (hl),hld a,(hl)cp hjr z,ld_65inc_error_cntld_65: cp #70 ;bjp guess >t_var1jr z,ld_66inc_error_cntld_66: ld (hl),lld a,(hl)cp ljr z,ld_67inc_error_cntld_67: cp a, #00 ;bjp guess <t_var1jr z,ld_68inc_error_cntld_68: ld ix,t_var3ld a,data_55ld (ix-2),ald a,0ld a,(ix-2)cp data_55jr z,ld_69inc_error_cntld_69: ld a,data_80ld (ix+2),ald a,0ld a,(ix+2)cp data_80jr z,ld_70inc_error_cntld_70: ld b,data_7fld (ix-1),bld a,(ix-1)cp bjr z,ld_71inc_error_cntld_71: cp data_7fjr z,ld_72inc_error_cntld_72: ld c,data_aald (ix+1),cld a,(ix+1)cp cjr z,ld_73inc_error_cntld_73: cp data_aajr z,ld_74inc_error_cntld_74: ld d,data_80ld (ix+0),dld a,(ix+0)cp djr z,ld_75inc_error_cntld_75: cp data_80jr z,ld_76inc_error_cntld_76: ld e,data_55+2ld (ix-2),eld a,(ix-2)cp ejr z,ld_77inc_error_cntld_77: cp data_55+2jr z,ld_78inc_error_cntld_78: ld h,data_aa-2ld (ix+2),hld a,(ix+2)cp hjr z,ld_79inc_error_cntld_79: cp data_aa-2jr z,ld_80inc_error_cntld_80: ld l,data_aa+2ld (ix-1),lld a,(ix-1)cp ljr z,ld_81inc_error_cntld_81: cp data_aa+2jr z,ld_82inc_error_cntld_82: ld iy,t_var3ld a,data_ffld (iy-2),ald a,0ld a,(iy-2)cp data_ffjr z,ld_83inc_error_cntld_83: ld a,data_7fld (iy+2),ald a,0ld a,(iy+2)cp data_7fjr z,ld_84inc_error_cntld_84: ld b,data_55ld (iy-1),bld a,(iy-1)cp bjr z,ld_85inc_error_cntld_85: cp data_55jr z,ld_86inc_error_cntld_86: ld c,data_aald (iy+1),cld a,(iy+1)cp cjr z,ld_87inc_error_cntld_87: cp data_aajr z,ld_88inc_error_cntld_88: ld d,data_80ld (iy+0),dld a,(iy+0)cp djr z,ld_89inc_error_cntld_89: cp data_80jr z,ld_90inc_error_cntld_90: ld e,data_ff-2ld (iy-2),eld a,(iy-2)cp ejr z,ld_91inc_error_cntld_91: cp data_ff-2jr z,ld_92inc_error_cntld_92: ld h,data_7f-3ld (iy+2),hld a,(iy+2)cp hjr z,ld_93inc_error_cntld_93: cp data_7f-3jr z,ld_94inc_error_cntld_94: ld l,data_55-5ld (iy-1),lld a,(iy-1)cp ljr z,ld_95inc_error_cntld_95: cp data_55-5jr z,ld_96inc_error_cntld_96: ld hl,t_var1ld (hl),data_80+10ld a,(hl)cp data_80+10jr z,ld_97inc_error_cntld_97: ld ix,t_var3ld (ix-2),data_55-10ld a,(ix-2)cp data_55-10jr z,ld_98inc_error_cntld_98: ld (ix+2),data_55+10ld a,(ix+2)cp data_55+10jr z,ld_99inc_error_cntld_99: ld iy,t_var2ld (iy-1),data_80+17ld a,(iy-1)cp data_80+17jr z,ld_100inc_error_cntld_100: ld (iy+1),data_80-17ld a,(iy+1)cp data_80-17jr z,ld_101inc_error_cntld_101: ld hl,t_var5ld bc,t_var5ld (hl),data_aa-10ld a,(bc)cp data_aa-10jr z,ld_102inc_error_cntld_102: ld hl,t_var3ld de,t_var3ld (hl),data_aa+10ld a,(de)cp data_aa+10jr z,ld_103inc_error_cntld_103: ld hl,t_var2ld (hl),data_7f-25ld a,(t_var2)cp data_7f-25jr z,ld_104inc_error_cntld_104: ld hl,t_var4ld bc,t_var4ld a,data_55-20ld (bc),ald b,(hl)cp bjr z,ld_105inc_error_cntld_105: ld a,bcp data_55-20jr z,ld_106inc_error_cntld_106: ld hl,t_var5ld de,t_var5ld a,data_55+20ld (de),ald c,(hl)cp cjr z,ld_107inc_error_cntld_107: ld a,ccp data_55+20jr z,ld_108inc_error_cntld_108: ld hl,t_var4ld a,data_ff-24ld (t_var4),ald e,(hl)cp ejr z,ld_109inc_error_cntld_109: ld a,ecp data_ff-24jr z,ld_110inc_error_cntld_110: ld a,data_55ld i,ald a,0ld a,ijr nz,ld_111inc_error_cntld_111: jp p,ld_112inc_error_cntld_112: cp data_55jr z,ld_113inc_error_cntld_113: ld a,data_80ld i,ald a,0ld a,ijr nz,ld_114inc_error_cntld_114: jp m,ld_115inc_error_cntld_115: cp data_80jr z,ld_116inc_error_cntld_116: ld a,0ld i,ald a,data_55ld a,ijr z,ld_125inc_error_cnt; refresh register not implemented; test for ie ?;ld_117: ld a,data_55; ld r,a; ld a,0; ld a,r; jp p,ld_118; inc_error_cnt;ld_118: jr nz,ld_119; inc_error_cnt;ld_119: ld a,data_ff; ld r,a; ld a,0; ld a,r; jp m,ld_120; inc_error_cnt;ld_120: ld a,4 ;totally sequence dependent; ld r,a; ld a,data_55; ld a,r; jr z,ld_121; inc_error_cnt;ld_121: ei ;set iff2; ld a,i; jp pe,ld_122 ;iff2 was set; inc_error_cnt;ld_122: di ;clear iff2; ld a,i; jp po,ld_123 ;iff2 was cleared; inc_error_cnt;ld_123: ei ;set iff2; ld a,r; jp pe,ld_124 ;iff2 was set; inc_error_cnt;ld_124: di ;clear iff2; ld a,r; jp po,ld_125 ;iff2 was cleared; inc_error_cnt;ld_125: ld bc,data_1234ld a, #12 ;bjp guess >data_1234cp bjr z,ld_126inc_error_cntld_126: ld a, #34 ;bjp guess <data_1234cp cjr z,ld_127inc_error_cntld_127: ld de,data_55aald a,data_55cp djr z,ld_128inc_error_cntld_128: ld a,data_aacp ejr z,ld_129inc_error_cntld_129: ld hl,data_7fffld a,data_7fcp hjr z,ld_130inc_error_cntld_130: ld a,data_ffcp ljr z,ld_131inc_error_cntld_131: ld sp,data_aa55ld hl,0add hl,spld a,data_aacp hjr z,ld_132inc_error_cntld_132: ld a,data_55cp ljr z,ld_133inc_error_cntld_133: ld ix,data_ffffld hl,0ld sp,ixadd hl,spld a,data_ffcp hjr z,ld_134inc_error_cntld_134: cp ljr z,ld_135inc_error_cntld_135: ld iy,data_1234ld hl,0ld sp,iyadd hl,spld a,#12 ;bjp was >data_1234cp hjr z,ld_136inc_error_cntld_136: ld a,#34 ;bjp was >data_1234cp ljr z,ld_137inc_error_cntld_137: ld hl,(w_var2)ld a,data_55cp hjr z,ld_138inc_error_cntld_138: ld a,data_aacp ljr z,ld_139inc_error_cntld_139: ld bc,(w_var1)ld a,#12 ;bjp was >data_1234cp bjr z,ld_140inc_error_cntld_140: ld a,#34 ;bjp was >data_1234cp cjr z,ld_141inc_error_cntld_141: ld de,(w_var3)ld a,data_7fcp djr z,ld_142inc_error_cntld_142: ld a,data_ffcp ejr z,ld_143inc_error_cntld_143: ld hl,(w_var4)ld a,data_80cp hjr z,ld_144inc_error_cntld_144: ld a,0cp ljr z,ld_145inc_error_cntld_145: ld sp,(w_var5)ld hl,0add hl,spld a,data_aacp hjr z,ld_146inc_error_cntld_146: ld a,data_55cp ljr z,ld_147inc_error_cntld_147: ld ix,(w_var6)ld hl,0ld sp,ixadd hl,spld a,data_ffcp hjr z,ld_148inc_error_cntld_148: cp ljr z,ld_149inc_error_cntld_149: ld iy,(w_var1)ld hl,0ld sp,iyadd hl,spld a,#12 ;bjp was >data_1234cp hjr z,ld_150inc_error_cntld_150: ld a,#34 ;bjp was >data_1234cp ljr z,ld_151inc_error_cntld_151: ld hl,data_1234ld (tw_var1),hlld bc,(tw_var1)ld a,#12 ;bjp was >data_1234cp bjr z,ld_152inc_error_cntld_152: ld a,#34 ;bjp was >data_1234cp cjr z,ld_153inc_error_cntld_153: ld bc,data_55aald (tw_var2),bcld hl,(tw_var2)ld a,data_55cp hjr z,ld_154inc_error_cntld_154: ld a,data_aacp ljr z,ld_155inc_error_cntld_155: ld de,data_7fffld (tw_var3),deld hl,(tw_var3)ld a,data_7fcp hjr z,ld_156inc_error_cntld_156: ld a,data_ffcp ljr z,ld_157inc_error_cntld_157: ld hl,data_8000ld (tw_var4),hlld bc,(tw_var4)ld a,data_80cp bjr z,ld_158inc_error_cntld_158: ld a,0cp cjr z,ld_159inc_error_cntld_159: ld sp,data_aa55ld (tw_var5),spld hl,(tw_var5)ld a,data_aacp hjr z,ld_160inc_error_cntld_160: ld a,data_55cp ljr z,ld_161inc_error_cntld_161: ld ix,data_ffffld (tw_var6),ixld hl,(tw_var6)ld a,data_ffcp hjr z,ld_162inc_error_cntld_162: cp ljr z,ld_163inc_error_cntld_163: ld iy,data_1234ld (tw_var7),iyld hl,(tw_var7)ld a,#12 ;bjp was >data_1234cp hjr z,ld_164inc_error_cntld_164: ld a,#34 ;bjp was >data_1234cp ljr z,ld_165inc_error_cntld_165: ld hl,data_55aald sp,hlld hl,0add hl,spld a,data_55cp hjr z,ld_166inc_error_cntld_166: ld a,data_aacp ljr z,push_0inc_error_cntpush_0: ld sp,stack_endld bc,data_1234push bcld bc,0pop bcld a,#12 ;bjp was >data_1234cp bjr z,push_1inc_error_cntpush_1: ld a,#34 ;bjp was >data_1234cp cjr z,push_2inc_error_cntpush_2: ld de,data_55aapush deld de,0pop deld a,data_55cp djr z,push_3inc_error_cntpush_3: ld a,data_aacp ejr z,push_4inc_error_cntpush_4: ld hl,data_7fffpush hlld hl,0pop hlld a,data_7fcp hjr z,push_5inc_error_cntpush_5: ld a,data_ffcp ljr z,push_6inc_error_cntpush_6: ld a,data_80push af ;f depends on previous compareld hl,0pop hlcp hjr z,push_7inc_error_cntpush_7: ld a,lcp #42jr z,push_8push_8: ld h,data_55ld l,data_80+#41ld a,0push hlpop afjp m,push_9inc_error_cntpush_9: jr z,push_10inc_error_cntpush_10: jr c,push_11inc_error_cntpush_11: cp data_55jr z,push_12inc_error_cntpush_12: ld ix,data_aa55ld bc,0push ixpop bcld a,data_aacp bjr z,push_13inc_error_cntpush_13: ld a,data_55cp cjr z,push_14inc_error_cntpush_14: ld iy,data_7fffld de,0push iypop deld a,data_7fcp djr z,push_15inc_error_cntpush_15: ld a,data_ffcp ejr z,push_16inc_error_cntpush_16: ld de,data_1234ld ix,0ld hl,0push depop ixld sp,ixadd hl,spld a,#12 ;bjp was >data_1234cp hjr z,push_17inc_error_cntpush_17: ld a,#34 ;bjp was >data_1234cp ljr z,push_18inc_error_cntpush_18: ld sp,stack_endld bc,data_55aald iy,0ld hl,0push bcpop iyld sp,iyadd hl,spld a,data_55cp hjr z,push_19inc_error_cntpush_19: ld a,data_aacp ljr z,push_20inc_error_cntpush_20: ld sp,stack_endex_0: ld de,data_1234ld hl,data_55aa ; 10/2/2007 was ffff need to check all bytes (missed a bug)ex de,hlld a,data_55cp djr z,ex_1inc_error_cntex_1: ld a,data_aacp ejr z,ex_2inc_error_cntex_2: ld a,#12 ;bjp was >data_1234cp hjr z,ex_3inc_error_cntex_3: ld a,#34 ;bjp was >data_1234cp ljr z,ex_4inc_error_cntex_4: ld h,0ld l,0push hlpop afex af,af'ld h,data_7fld l,data_80+#41push hlpop afex af,af'cp 0jr z,ex_5inc_error_cntex_5: ex af,af'jp m,ex_6inc_error_cntex_6: jr z,ex_7inc_error_cntex_7: cp data_7fjr z,ex_8inc_error_cntex_8: ld hl,0ld bc,0ld de,0exxld hl,data_1234ld bc,data_7fffld de,data_aa55exxld a,0cp hjr z,ex_9inc_error_cntex_9: cp ljr z,ex_10inc_error_cntex_10: cp djr z,ex_11inc_error_cntex_11: cp ejr z,ex_12inc_error_cntex_12: cp bjr z,ex_13inc_error_cntex_13: cp cjr z,ex_14inc_error_cntex_14: exxld a,#12 ;bjp was >data_1234cp hjr z,ex_15inc_error_cntex_15: ld a,#34 ;bjp was >data_1234cp ljr z,ex_16inc_error_cntex_16: ld a,data_aacp djr z,ex_17inc_error_cntex_17: ld a,data_55cp ejr z,ex_18inc_error_cntex_18: ld a,data_7fcp bjr z,ex_19inc_error_cntex_19: ld a,data_ffcp cjr z,ex_20inc_error_cntex_20: ld bc,data_55aald hl,data_7fffpush bcex (sp),hlpop bcld a,data_7fcp bjr z,ex_21inc_error_cntex_21: ld a,data_ffcp cjr z,ex_22inc_error_cntex_22: ld a,data_55cp hjr z,ex_23inc_error_cntex_23: ld a,data_aacp ljr z,ex_24inc_error_cntex_24: ld bc,data_ffffld ix,data_8000ld hl,0push bcex (sp),ixpop bcld sp,ixadd hl,spld a,data_80cp bjr z,ex_25inc_error_cntex_25: ld a,0cp cjr z,ex_26inc_error_cntex_26: ld a,data_ffcp hjr z,ex_27inc_error_cntex_27: cp ljr z,ex_28inc_error_cntex_28: ld sp,stack_endld bc,data_1234ld iy,data_7fffld hl,0push bcex (sp),iypop bcld sp,iyadd hl,spld a,data_7fcp bjr z,ex_29inc_error_cntex_29: ld a,data_ffcp cjr z,ex_30inc_error_cntex_30: ld a,#12 ;bjp was >data_1234cp hjr z,ex_31inc_error_cntex_31: ld a,#34 ;bjp was >data_1234cp ljr z,add_0inc_error_cntadd_0: ld a,0ld b,data_7fadd a,bcp data_7fjr z,add_1inc_error_cntadd_1: ld a,0ld b,0add a,bjr z,add_2inc_error_cntadd_2: ld b,data_55add a,bjr nz,add_3inc_error_cntadd_3: cp data_55jr z,add_4inc_error_cntadd_4: ld a,data_ffld b,1add a,bjr c,add_5inc_error_cntadd_5: add a,bjr nc,add_6inc_error_cntadd_6: ld a,data_ffld b,0add a,bjp m,add_7inc_error_cntadd_7: ld b,1add a,bjp p,add_8inc_error_cntadd_8: ld a,data_7fld b,1add a,bjp pe,add_9inc_error_cntadd_9: add a,bjp po,add_10inc_error_cntadd_10: ld a,data_55ld c,2add a,ccp data_55+2jr z,add_11inc_error_cntadd_11: ld a,data_80add a,ccp data_80+2jr z,add_12inc_error_cntadd_12: ld a,data_aald d,data_55add a,dcp data_aa+data_55jr z,add_13inc_error_cntadd_13: ld a,data_aald e,2add a,ecp data_aa+2jr z,add_14inc_error_cntadd_14: ld a,data_55ld h,24add a,hcp data_55+24jr z,add_15inc_error_cntadd_15: ld a,data_7f-10ld l,10add a,lcp data_7fjr z,add_16inc_error_cntadd_16: ld a,1add a,data_7fjp pe,add_17inc_error_cntadd_17: jp m,add_18inc_error_cntadd_18: jr nz,add_19inc_error_cntadd_19: cp data_80jr z,add_20inc_error_cntadd_20: ld a,data_55add a,1jp po,add_21inc_error_cntadd_21: jp p,add_22inc_error_cntadd_22: jr nc,add_23inc_error_cntadd_23: cp data_55+1jr z,add_24inc_error_cntadd_24: ld a,data_ffadd a,1jr c,add_25inc_error_cntadd_25: jr z,add_26inc_error_cntadd_26: add a,1jr nc,add_27inc_error_cntadd_27: jr nz,add_28inc_error_cntadd_28: cp 1jr z,add_29inc_error_cntadd_29: ld hl,var2ld a,2add a,(hl)jp po,add_30inc_error_cntadd_30: jp p,add_31inc_error_cntadd_31: jr nz,add_32inc_error_cntadd_32: jr nc,add_33inc_error_cntadd_33: cp data_55+2jr z,add_34inc_error_cntadd_34: ld hl,var1ld a,1add a,(hl)jr c,add_35inc_error_cntadd_35: jr z,add_36inc_error_cntadd_36: ld hl,var5ld a,1add a,(hl)jp m,add_37inc_error_cntadd_37: jp pe,add_38inc_error_cntadd_38: cp data_80jr z,add_39inc_error_cntadd_39: ld ix,var3ld a,1add a,(ix-1)jp po,add_40inc_error_cntadd_40: jp p,add_41inc_error_cntadd_41: jr nz,add_42inc_error_cntadd_42: jr nc,add_43inc_error_cntadd_43: cp data_55+1jr z,add_44inc_error_cntadd_44: ld a,1add a,(ix+2)jp pe,add_45inc_error_cntadd_45: jp m,add_46inc_error_cntadd_46: cp data_80jr z,add_47inc_error_cntadd_47: ld a,1add a,(ix-2)jr c,add_48inc_error_cntadd_48: jr z,add_49inc_error_cntadd_49: add a,1jr nc,add_50inc_error_cntadd_50: jr nz,add_51inc_error_cntadd_51: cp 1jr z,add_52inc_error_cntadd_52: ld iy,var3ld a,10add a,(iy-1)jp po,add_53inc_error_cntadd_53: jp p,add_54inc_error_cntadd_54: jr nz,add_55inc_error_cntadd_55: jr nc,add_56inc_error_cntadd_56: cp data_55+10jr z,add_57inc_error_cntadd_57: ld a,1add a,(iy+2)jp pe,add_58inc_error_cntadd_58: jp m,add_59inc_error_cntadd_59: add a,1jp po,add_60inc_error_cntadd_60: cp data_80+1jr z,add_61inc_error_cntadd_61: ld a,1add a,(iy-2)jr z,add_62inc_error_cntadd_62: jr c,add_63inc_error_cntadd_63: add a,1jr nc,add_64inc_error_cntadd_64: jr nz,add_65inc_error_cntadd_65: cp 1jr z,add_66inc_error_cntadd_66: ld a,data_ffadd a,data_80jp p,add_67inc_error_cntadd_67: jp pe,add_68inc_error_cntadd_68: jr c,add_69inc_error_cntadd_69: add a,1jp pe,add_70inc_error_cntadd_70: jp m,add_71inc_error_cntadd_71: jr nc,add_72inc_error_cntadd_72: add a,1jp po,add_73inc_error_cntadd_73: cp data_80+1jr z,adc_0inc_error_cntadc_0: ld a,0 ;clear cryadd a,0ld b,data_7fadc a,b ;a=7f cry=0jp p,adc_1inc_error_cntadc_1: jp po,adc_2inc_error_cntadc_2: jr nc,adc_3inc_error_cntadc_3: jr nz,adc_4inc_error_cntadc_4: ld b,1adc a,b ;a=80 cry=0jp pe,adc_5 ;jp oflinc_error_cntadc_5: jp m,adc_6inc_error_cntadc_6: cp data_80jr z,adc_7 ;z=0 ofl=0 cry=0 (borrow)inc_error_cntadc_7: ld a,data_ffld b,1adc a,b ;ff+1+0jr c,adc_8inc_error_cntadc_8: jr z,adc_9inc_error_cntadc_9: adc a,bjr nc,adc_10inc_error_cntadc_10: jr nz,adc_11inc_error_cntadc_11: cp 2jr z,adc_12inc_error_cntadc_12: ld a,data_ffld c,0adc a,cjp m,adc_13inc_error_cntadc_13: jr nc,adc_14inc_error_cntadc_14: ld c,2adc a,cjp p,adc_15inc_error_cntadc_15: jr c,adc_16inc_error_cntadc_16: ld c,0adc a,ccp 2jr z,adc_17inc_error_cntadc_17: ld a,data_ffld d,1adc a,djr c,adc_18inc_error_cntadc_18: ld d,0adc a,djr nc,adc_19inc_error_cntadc_19: cp 1jr z,adc_20inc_error_cntadc_20: ld a,data_aald e,data_7fadc a,ejr c,adc_21inc_error_cntadc_21: ld e,#2badc a,ecp data_55jr z,adc_22inc_error_cntadc_22: ld a,data_ffld h,1adc a,hjr c,adc_23inc_error_cntadc_23: adc a,hcp 2jr z,adc_24inc_error_cntadc_24: ld a,data_ffld l,1adc a,ljr c,adc_25inc_error_cntadc_25: adc a,lcp 2jr z,adc_26inc_error_cntadc_26: ld a,0adc a,data_7fjp po,adc_27inc_error_cntadc_27: jp p,adc_28inc_error_cntadc_28: jr nc,adc_29inc_error_cntadc_29: jr nz,adc_30inc_error_cntadc_30: adc a,1jp pe,adc_31inc_error_cntadc_31: jp m,adc_32inc_error_cntadc_32: cp data_80jr z,adc_33inc_error_cntadc_33: ld a,data_ffadc a,1jr c,adc_34inc_error_cntadc_34: jr z,adc_35inc_error_cntadc_35: adc a,1jr nc,adc_36inc_error_cntadc_36: jr nz,adc_37inc_error_cntadc_37: cp 2jr z,adc_38inc_error_cntadc_38: ld hl,var5ld a,0adc a,(hl)jp p,adc_39inc_error_cntadc_39: jp po,adc_40inc_error_cntadc_40: jr nz,adc_41inc_error_cntadc_41: jr nc,adc_42inc_error_cntadc_42: ld a,1adc a,(hl)jp m,adc_43inc_error_cntadc_43: jp pe,adc_44inc_error_cntadc_44: cp data_80jr z,adc_45inc_error_cntadc_45: ld hl,var1ld a,1adc a,(hl)jr z,adc_46inc_error_cntadc_46: jr c,adc_47inc_error_cntadc_47: ld hl,var2adc a,(hl)jr nc,adc_48inc_error_cntadc_48: jr nz,adc_49inc_error_cntadc_49: cp data_55+1jr z,adc_50inc_error_cntadc_50: ld ix,var3ld a,0adc a,(ix+2)jp p,adc_51inc_error_cntadc_51: jp po,adc_52inc_error_cntadc_52: jr nc,adc_53inc_error_cntadc_53: jr nz,adc_54inc_error_cntadc_54: ld a,1adc a,(ix+2)jp m,adc_55inc_error_cntadc_55: jp pe,adc_56inc_error_cntadc_56: cp data_80jr z,adc_57inc_error_cntadc_57: ld a,1adc a,(ix-2)jr c,adc_58inc_error_cntadc_58: jr z,adc_59inc_error_cntadc_59: adc a,(ix-1)jr nc,adc_60inc_error_cntadc_60: jr nz,adc_61inc_error_cntadc_61: cp data_55+1jr z,adc_62inc_error_cntadc_62: ld iy,var3ld a,0adc a,(ix+2)jp p,adc_63inc_error_cntadc_63: jp po,adc_64inc_error_cntadc_64: jr nc,adc_65inc_error_cntadc_65: jr nz,adc_66inc_error_cntadc_66: ld a,1adc a,(iy+2)jp m,adc_67inc_error_cntadc_67: jp pe,adc_68inc_error_cntadc_68: cp data_80jr z,adc_69inc_error_cntadc_69: ld a,1adc a,(iy-2)jr c,adc_70inc_error_cntadc_70: jr z,adc_71inc_error_cntadc_71: adc a,(iy-1)jr nc,adc_72inc_error_cntadc_72: jr nz,adc_73inc_error_cntadc_73: cp data_55+1jr z,adc_74inc_error_cntadc_74: ld a,data_ffadd a,0adc a,data_80jp p,adc_75inc_error_cntadc_75: jp pe,adc_76inc_error_cntadc_76: jr nz,adc_77inc_error_cntadc_77: adc a,0jp m,adc_78inc_error_cntadc_78: jp pe,adc_79inc_error_cntadc_79: adc a,1jp po,adc_80inc_error_cntadc_80: cp data_80+1jr z,sub_0inc_error_cntsub_0: ld a,0ld b,1sub a,bjp m,sub_1inc_error_cntsub_1: jp po,sub_2inc_error_cntsub_2: jr c,sub_3inc_error_cntsub_3: jr nz,sub_4inc_error_cntsub_4: sub a,bjr nc,sub_5inc_error_cntsub_5: cp data_ff-1jr z,sub_6inc_error_cntsub_6: ld a,1ld b,0sub a,bjr nz,sub_7inc_error_cntsub_7: jp p,sub_8inc_error_cntsub_8: ld b,1sub a,bjr z,sub_9inc_error_cntsub_9: sub a,bjp m,sub_10inc_error_cntsub_10: cp data_ffjr z,sub_11inc_error_cntsub_11: ld a,data_80ld b,data_7fsub a,bjp pe,sub_12inc_error_cntsub_12: sub a,bjp po,sub_13inc_error_cntsub_13: cp data_80+2jr z,sub_14inc_error_cntsub_14: ld a,data_55ld c,data_55sub a,cjr z,sub_15inc_error_cntsub_15: ld c,1sub a,cjp m,sub_16inc_error_cntsub_16: jr c,sub_17inc_error_cntsub_17: cp data_ffjr z,sub_18inc_error_cntsub_18: ld a,data_55ld d,data_7fsub a,djr c,sub_19inc_error_cntsub_19: cp data_55-data_7fjr z,sub_20inc_error_cntsub_20: ld a,0ld e,data_ffsub a,ejr c,sub_21inc_error_cntsub_21: cp 1jr z,sub_22inc_error_cntsub_22: ld a,data_ffld h,data_80sub a,hjp p,sub_23inc_error_cntsub_23: cp data_7fjr z,sub_24inc_error_cntsub_24: ld a,data_aald l,data_ffsub a,ljr c,sub_25inc_error_cntsub_25: cp data_aa+1jr z,sub_26inc_error_cntsub_26: ld a,data_7fsub a,data_ffjp pe,sub_27inc_error_cntsub_27: jp m,sub_28inc_error_cntsub_28: sub a,1jp p,sub_29inc_error_cntsub_29: sub a,1jp po,sub_30inc_error_cntsub_30: jr nz,sub_31inc_error_cntsub_31: sub a,data_7f-1jr z,sub_32inc_error_cntsub_32: ld a,0sub a,data_ffjr c,sub_33inc_error_cntsub_33: sub a,1jr z,sub_34inc_error_cntsub_34: jr nc,sub_35inc_error_cntsub_35: ld hl,var1ld a,data_7fsub a,(hl)jp m,sub_36inc_error_cntsub_36: jp pe,sub_37inc_error_cntsub_37: jr c,sub_38inc_error_cntsub_38: ld hl,var3sub a,(hl)jp p,sub_39inc_error_cntsub_39: jp po,sub_40inc_error_cntsub_40: jr nc,sub_41inc_error_cntsub_41 jr z,sub_42inc_error_cntsub_42: ld hl,var2sub a,(hl)jr nz,sub_43inc_error_cntsub_43: cp data_aa+1jr z,sub_44inc_error_cntsub_44: ld ix,var3ld a,data_7fsub a,(ix-2)jp m,sub_45inc_error_cntsub_45: jp pe,sub_46inc_error_cntsub_46: jr c,sub_47inc_error_cntsub_47: sub a,(ix+0)jp p,sub_48inc_error_cntsub_48: jp po,sub_49inc_error_cntsub_49: jr nc,sub_50inc_error_cntsub_50: jr z,sub_51inc_error_cntsub_51: sub a,(ix+2)jr nz,sub_52inc_error_cntsub_52: cp data_80+1jr z,sub_53inc_error_cntsub_53: ld iy,var3ld a,data_7fsub a,(iy-2)jp m,sub_54inc_error_cntsub_54: jp pe,sub_55inc_error_cntsub_55: jr c,sub_56inc_error_cntsub_56: jr nz,sub_57inc_error_cntsub_57: sub a,(iy+0)jp p,sub_58inc_error_cntsub_58: jp po,sub_59inc_error_cntsub_59: jr nc,sub_60inc_error_cntsub_60: jr z,sub_61inc_error_cntsub_61: sub a,(iy+2)jr nz,sub_62inc_error_cntsub_62: cp data_80+1jr z,sbc_0inc_error_cntsbc_0: ld a,data_7fld b,0sub a,b ;clear carry flagld b,data_ffsbc a,bjp m,sbc_1inc_error_cntsbc_1: jp pe,sbc_2inc_error_cntsbc_2: jr c,sbc_3inc_error_cntsbc_3: jr nz,sbc_4inc_error_cntsbc_4: ld b,data_7fsbc a,bjp p,sbc_5inc_error_cntsbc_5: jp pe,sbc_6inc_error_cntsbc_6: jr nc,sbc_7inc_error_cntsbc_7: jr z,sbc_8inc_error_cntsbc_8: ld b,data_ffsbc a,bjp po,sbc_9inc_error_cntsbc_9: jr nz,sbc_10inc_error_cntsbc_10: ld b,0sbc a,bjr z,sbc_11inc_error_cntsbc_11: ld a,data_aald c,data_ffsbc a,cjr c,sbc_12inc_error_cntsbc_12: ld c,0sbc a,cjr nc,sbc_13inc_error_cntsbc_13: cp data_aajr z,sbc_14inc_error_cntsbc_14: ld a,data_55ld d,data_ffsbc a,djr c,sbc_15inc_error_cntsbc_15: ld d,0sbc a,djr nc,sbc_16inc_error_cntsbc_16: cp data_55jr z,sbc_17inc_error_cntsbc_17: ld a,data_aald e,data_ffsbc a,ejr c,sbc_18inc_error_cntsbc_18: ld e,0sbc a,ejr nc,sbc_19inc_error_cntsbc_19: cp data_aajr z,sbc_20inc_error_cntsbc_20: ld a,data_55ld h,data_ffsbc a,hjr c,sbc_21inc_error_cntsbc_21: ld h,0sbc a,hjr nc,sbc_22inc_error_cntsbc_22: cp data_55jr z,sbc_23inc_error_cntsbc_23: ld a,data_aald l,data_ffsbc a,ljr c,sbc_24inc_error_cntsbc_24: ld l,0sbc a,ljr nc,sbc_25inc_error_cntsbc_25: cp data_aajr z,sbc_26inc_error_cntsbc_26: ld a,data_7fsbc a,data_ffjp m,sbc_27inc_error_cntsbc_27: jp pe,sbc_28inc_error_cntsbc_28: jr c,sbc_29inc_error_cntsbc_29: jr nz,sbc_30inc_error_cntsbc_30: sbc a,data_7fjp p,sbc_31inc_error_cntsbc_31: jp pe,sbc_32inc_error_cntsbc_32: jr nc,sbc_33inc_error_cntsbc_33: jr z,sbc_34inc_error_cntsbc_34: sbc a,data_ffjr nz,sbc_35inc_error_cntsbc_35: cp 1jr z,sbc_36inc_error_cntsbc_36: ld hl,var1ld a,data_7fsbc a,(hl)jp m,sbc_37inc_error_cntsbc_37: jp pe,sbc_38inc_error_cntsbc_38: jr c,sbc_39inc_error_cntsbc_39: jr nz,sbc_40inc_error_cntsbc_40: ld hl,var5sbc a,(hl)jp p,sbc_41inc_error_cntsbc_41: jp pe,sbc_42inc_error_cntsbc_42: jr nc,sbc_43inc_error_cntsbc_43: jr z,sbc_44inc_error_cntsbc_44: ld hl,var2sbc a,(hl)jr nz,sbc_45inc_error_cntsbc_45: cp data_aa+1jr z,sbc_46inc_error_cntsbc_46: ld ix,var3ld a,data_7fsbc a,(ix-2)jp m,sbc_47inc_error_cntsbc_47: jp pe,sbc_48inc_error_cntsbc_48: jr c,sbc_49inc_error_cntsbc_49: jr nz,sbc_50inc_error_cntsbc_50: sbc a,(ix+2)jp p,sbc_51inc_error_cntsbc_51: jp pe,sbc_52inc_error_cntsbc_52: jr nc,sbc_53inc_error_cntsbc_53: jr z,sbc_54inc_error_cntsbc_54: sbc a,(ix-1)jr nz,sbc_55inc_error_cntsbc_55: cp data_aa+1jr z,sbc_56inc_error_cntsbc_56: ld iy,var3ld a,data_7fsbc a,(ix-2)jp m,sbc_57inc_error_cntsbc_57: jp pe,sbc_58inc_error_cntsbc_58: jr c,sbc_59inc_error_cntsbc_59: jr nz,sbc_60inc_error_cntsbc_60: sbc a,(ix+2)jp p,sbc_61inc_error_cntsbc_61: jp pe,sbc_62inc_error_cntsbc_62: jr nc,sbc_63inc_error_cntsbc_63: jr z,sbc_64inc_error_cntsbc_64: sbc a,(ix+1)jr nz,sbc_65inc_error_cntsbc_65: cp data_55+1jr z,and_0inc_error_cntand_0: ld a,data_ffadd a,1 ;set carryld a,data_ffld b,data_aaand a,bjr nc,and_1inc_error_cntand_1: jp m,and_2inc_error_cntand_2: jp pe,and_3inc_error_cntand_3: jr nz,and_4inc_error_cntand_4: ld b,data_55and a,bjp p,and_5inc_error_cntand_5: jr z,and_6inc_error_cntand_6: ld a,data_ffld b,data_7fand a,bjp po,and_7inc_error_cntand_7: ld b,data_55and a,bjp pe,and_8inc_error_cntand_8: ld a,data_ffld c,data_80and a,cjp m,and_9inc_error_cntand_9: cp data_80jr z,and_10inc_error_cntand_10: ld a,data_ffld d,data_7fand a,djp p,and_11inc_error_cntand_11: cp data_7fjr z,and_12inc_error_cntand_12: ld a,data_ffld e,data_aaand a,ejp m,and_13inc_error_cntand_13: cp data_aajr z,and_14inc_error_cntand_14: ld a,data_ffld h,data_55and a,hjp p,and_15inc_error_cntand_15: cp data_55jr z,and_16inc_error_cntand_16: ld a,data_ffld l,data_aaand a,ljp m,and_17inc_error_cntand_17: cp data_aajr z,and_18inc_error_cntand_18: ld a,data_ffand a,data_aajp m,and_19inc_error_cntand_19: jr nz,and_20inc_error_cntand_20: and a,data_55jp p,and_21inc_error_cntand_21: jr z,and_22inc_error_cntand_22: ld a,data_ffand a,data_7fjp po,and_23inc_error_cntand_23: and a,data_55jp pe,and_24inc_error_cntand_24: jr nz,and_25inc_error_cntand_25: and a,data_aajr z,and_26inc_error_cntand_26: ld a,data_ffand a,data_aacp data_aajr z,and_27inc_error_cntand_27: ld hl,var4ld a,data_ffand a,(hl)jp m,and_28inc_error_cntand_28: jr nz,and_29inc_error_cntand_29: ld hl,var2and a,(hl)jp p,and_30inc_error_cntand_30: jr z,and_31inc_error_cntand_31: ld a,data_ffld hl,var5and a,(hl)jp po,and_32inc_error_cntand_32: ld hl,var2and a,(hl)jp pe,and_33inc_error_cntand_33: cp data_55jr z,and_34inc_error_cntand_34: ld ix,var3ld a,data_ffand a,(ix+1)jp m,and_35inc_error_cntand_35: jr nz,and_36inc_error_cntand_36: and a,(ix-1)jp p,and_37inc_error_cntand_37: jr z,and_38inc_error_cntand_38: ld a,data_ffand a,(ix+2)jp po,and_39inc_error_cntand_39: and a,(ix-1)jp pe,and_40inc_error_cntand_40: cp data_55jr z,and_41inc_error_cntand_41: ld iy,var3ld a,data_ffand a,(iy+1)jp m,and_42inc_error_cntand_42: jr nz,and_43inc_error_cntand_43: and a,(iy-1)jp p,and_44inc_error_cntand_44: jr z,and_45inc_error_cntand_45: ld a,data_ffand a,(iy+2)jp po,and_46inc_error_cntand_46: and a,(iy-1)jp pe,and_47inc_error_cntand_47: cp data_55jr z,or_0inc_error_cntor_0: ld a,0ld b,data_7for a,bjp p,or_1inc_error_cntor_1: jp po,or_2inc_error_cntor_2: ld b,data_80or a,bjp m,or_3inc_error_cntor_3: jp pe,or_4inc_error_cntor_4: cp data_ffjr z,or_5inc_error_cntor_5: ld a,0ld b,0or a,bjr z,or_6inc_error_cntor_6: ld b,data_55or a,bjr nz,or_7inc_error_cntor_7: cp data_55jr z,or_8inc_error_cntor_8: ld a,data_ffadd a,1jr c,or_9inc_error_cntor_9: ld b,data_7for a,bjr nc,or_10inc_error_cntor_10: cp data_7fjr z,or_11inc_error_cntor_11: ld a,0ld c,data_55or a,ccp data_55jr z,or_12inc_error_cntor_12: ld c,data_aaor a,ccp data_ffjr z,or_13inc_error_cntor_13: ld a,0ld d,data_aaor a,dcp data_aajr z,or_14inc_error_cntor_14: ld e,data_55or a,ecp data_ffjr z,or_15inc_error_cntor_15: ld a,0ld h,data_80or a,hcp data_80jr z,or_16inc_error_cntor_16: ld l,data_7for a,lcp data_ffjr z,or_17inc_error_cntor_17: ld a,0or a,data_7fjp p,or_18inc_error_cntor_18: jp po,or_19inc_error_cntor_19: or a,data_80jp m,or_20inc_error_cntor_20: jp pe,or_21inc_error_cntor_21: cp data_ffjr z,or_22inc_error_cntor_22: ld a,0or a,0jr z,or_23inc_error_cntor_23: or a,data_7fjr nz,or_24inc_error_cntor_24: ld a,data_ffadd a,1jr c,or_25inc_error_cntor_25: or a,data_55jr nc,or_26inc_error_cntor_26: cp data_55jr z,or_27inc_error_cntor_27: ld hl,var5ld a,0or a,(hl)jp p,or_28inc_error_cntor_28: jp po,or_29inc_error_cntor_29: ld hl,var3or a,(hl)jp m,or_30inc_error_cntor_30: jp pe,or_31inc_error_cntor_31: cp data_ffjr z,or_32inc_error_cntor_32: ld hl,t_var1ld a,0ld (hl),aor a,(hl)jr z,or_33inc_error_cntor_33: ld hl,var2or a,(hl)jr nz,or_34inc_error_cntor_34: cp data_55jr z,or_35inc_error_cntor_35: ld ix,var3ld a,0or a,(ix+2)jp p,or_36inc_error_cntor_36: jp po,or_37inc_error_cntor_37: or a,(ix+0)jp m,or_38inc_error_cntor_38: jp pe,or_39inc_error_cntor_39: cp data_ffjr z,or_40inc_error_cntor_40: ld ix,t_var3ld a,0ld (ix-2),aor a,(ix-2)jr z,or_41inc_error_cntor_41: ld (ix+2),data_aaor a,(ix+2)jr nz,or_42inc_error_cntor_42: cp data_aajr z,or_43inc_error_cntor_43: ld iy,var3ld a,0or a,(iy+2)jp p,or_44inc_error_cntor_44: jp po,or_45inc_error_cntor_45: or a,(iy+0)jp m,or_46inc_error_cntor_46: jp pe,or_47inc_error_cntor_47: cp data_ffjr z,or_48inc_error_cntor_48: ld iy,t_var3ld a,0ld (iy-2),aor a,(iy-2)jr z,or_49inc_error_cntor_49: ld (iy+2),data_55or a,(iy+2)jr nz,or_50inc_error_cntor_50: cp data_55jr z,xor_0inc_error_cntxor_0: ld a,data_ffld b,data_55xor a,bjp m,xor_1inc_error_cntxor_1: jp pe,xor_2inc_error_cntxor_2: ld b,data_80xor a,bjp p,xor_3inc_error_cntxor_3: jp po,xor_4inc_error_cntxor_4: cp #2ajr z,xor_5inc_error_cntxor_5: ld a,data_ffld b,data_ffxor a,bjr z,xor_6inc_error_cntxor_6: ld b,data_55xor a,bjr nz,xor_7inc_error_cntxor_7: cp data_55jr z,xor_8inc_error_cntxor_8: ld a,data_ffadd a,1jr c,xor_9inc_error_cntxor_9: ld b,data_aaxor a,bjr nc,xor_10inc_error_cntxor_10: cp data_aajr z,xor_11inc_error_cntxor_11: ld a,data_ffld c,data_7fxor a,cjp m,xor_12inc_error_cntxor_12: cp data_80jr z,xor_13inc_error_cntxor_13: ld a,data_ffld d,data_55xor a,djp m,xor_14inc_error_cntxor_14: cp data_aajr z,xor_15inc_error_cntxor_15: ld e,data_55xor a,ejp m,xor_16inc_error_cntxor_16: cp data_ffjr z,xor_17inc_error_cntxor_17: ld a,data_ffld h,data_7fxor a,hjp po,xor_18inc_error_cntxor_18: ld l,data_7fxor a,ljp pe,xor_19inc_error_cntxor_19: cp data_ffjr z,xor_20inc_error_cntxor_20: ld a,data_ffadd a,1jr c,xor_21inc_error_cntxor_21: ld b,data_7fxor a,bjr nc,xor_22inc_error_cntxor_22: cp data_7fjr z,xor_23inc_error_cntxor_23: ld a,data_ffxor a,data_7fjp po,xor_24inc_error_cntxor_24: jp m,xor_25inc_error_cntxor_25: xor a,data_7fjp pe,xor_26inc_error_cntxor_26: jp m,xor_27inc_error_cntxor_27: xor a,data_aajp p,xor_28inc_error_cntxor_28: cp data_55jr z,xor_29inc_error_cntxor_29: ld a,data_ffxor a,data_ffjr z,xor_30inc_error_cntxor_30: xor a,data_80jr nz,xor_31inc_error_cntxor_31: cp data_80jr z,xor_32inc_error_cntxor_32: ld hl,var5ld a,data_ffxor a,(hl)jp m,xor_33inc_error_cntxor_33: jp po,xor_34inc_error_cntxor_34: xor a,(hl)jp m,xor_35inc_error_cntxor_35: jp pe,xor_36inc_error_cntxor_36: ld hl,var3xor a,(hl)jp p,xor_37inc_error_cntxor_37: cp data_7fjr z,xor_38inc_error_cntxor_38: ld hl,var1ld a,data_ffxor a,(hl)jr z,xor_39inc_error_cntxor_39: ld hl,var2xor a,(hl)jr nz,xor_40inc_error_cntxor_40: cp data_55jr z,xor_41inc_error_cntxor_41: ld ix,var3ld a,data_ffxor a,(ix+2)jp m,xor_42inc_error_cntxor_42: jp po,xor_43inc_error_cntxor_43: xor a,(ix+2)jp m,xor_44inc_error_cntxor_44: jp pe,xor_45inc_error_cntxor_45: xor a,(ix+1)jp p,xor_46inc_error_cntxor_46: cp data_55jr z,xor_47inc_error_cntxor_47: ld a,data_ffxor a,(ix-2)jr z,xor_48inc_error_cntxor_48: xor a,(ix+1)jr nz,xor_49inc_error_cntxor_49: cp data_aajr z,xor_50inc_error_cntxor_50: ld iy,var3ld a,data_ffxor a,(iy+2)jp m,xor_51inc_error_cntxor_51: jp po,xor_52inc_error_cntxor_52: xor a,(iy+2)jp m,xor_53inc_error_cntxor_53: jp pe,xor_54inc_error_cntxor_54: xor a,(iy+1)jp p,xor_55inc_error_cntxor_55: cp data_55jr z,xor_56inc_error_cntxor_56: ld a,data_ffxor a,(iy-2)jr z,xor_57inc_error_cntxor_57: xor a,(iy-1)jr nz,xor_58inc_error_cntxor_58: cp data_55jr z,cp_0inc_error_cntcp_0: ld a,0ld b,0cp a,bjr z,cp_1inc_error_cntcp_1: jp p,cp_2inc_error_cntcp_2: jr nc,cp_3inc_error_cntcp_3: ld b,data_55cp a,bjr nz,cp_4inc_error_cntcp_4: jp m,cp_5inc_error_cntcp_5: jr c,cp_6inc_error_cntcp_6: ld a,data_80ld b,data_7fcp a,bjp pe,cp_7inc_error_cntcp_7: jr nc,cp_8inc_error_cntcp_8: ld a,data_7fld b,data_80cp a,bjp pe,cp_9inc_error_cntcp_9: jr c,cp_10inc_error_cntcp_10: ld b,0cp a,bjp po,cp_11inc_error_cntcp_11: jr nc,cp_12inc_error_cntcp_12: ld a,data_80ld c,0cp a,cjp m,cp_13inc_error_cntcp_13: ld c,data_80cp a,cjr z,cp_14inc_error_cntcp_14: ld a,data_7fld d,data_55cp a,djp p,cp_15inc_error_cntcp_15: jr nz,cp_16inc_error_cntcp_16: ld e,data_7fcp a,ejr z,cp_17inc_error_cntcp_17: ld a,data_80ld h,data_ffcp a,hjp m,cp_18inc_error_cntcp_18: jr c,cp_19inc_error_cntcp_19: ld l,data_80cp a,ljr z,cp_20inc_error_cntcp_20: ld a,data_80cp a,data_7fjp p,cp_21inc_error_cntcp_21: jp pe,cp_22inc_error_cntcp_22: jr nz,cp_23inc_error_cntcp_23: cp a,data_80jp p,cp_24inc_error_cntcp_24: jp po,cp_25inc_error_cntcp_25: jr z,cp_26inc_error_cntcp_26: ld a,data_55cp a,data_7fjr c,cp_27inc_error_cntcp_27: jp m,cp_28inc_error_cntcp_28: cp a,data_55jr nc,cp_29inc_error_cntcp_29: jr z,cp_30inc_error_cntcp_30: ld a,data_80ld hl,var5cp a,(hl)jp p,cp_31inc_error_cntcp_31: jp pe,cp_32inc_error_cntcp_32: jr nz,cp_33inc_error_cntcp_33: ld hl,var3cp a,(hl)jp p,cp_34inc_error_cntcp_34: jp po,cp_35inc_error_cntcp_35: jr z,cp_36inc_error_cntcp_36: ld a,data_55ld hl,var5cp a,(hl)jr c,cp_37inc_error_cntcp_37: jp m,cp_38inc_error_cntcp_38: ld hl,var2cp a,(hl)jr nc,cp_39inc_error_cntcp_39: jp p,cp_40inc_error_cntcp_40: jr z,cp_41inc_error_cntcp_41: ld a,data_80ld ix,var3cp a,(ix+2)jp p,cp_42inc_error_cntcp_42: jp pe,cp_43inc_error_cntcp_43: jr nz,cp_44inc_error_cntcp_44: cp a,(ix+0)jp p,cp_45inc_error_cntcp_45: jp po,cp_46inc_error_cntcp_46: jr z,cp_47inc_error_cntcp_47: ld a,data_55cp a,(ix-2)jr nz,cp_48inc_error_cntcp_48: jr c,cp_49inc_error_cntcp_49: cp a,(ix-1)jr z,cp_50inc_error_cntcp_50: jr nc,cp_51inc_error_cntcp_51: ld iy,var3ld a,data_80cp a,(iy+2)jp p,cp_52inc_error_cntcp_52: jp pe,cp_53inc_error_cntcp_53: jr nz,cp_54inc_error_cntcp_54: cp a,(iy+0)jp p,cp_55inc_error_cntcp_55: jp po,cp_56inc_error_cntcp_56: jr z,cp_57inc_error_cntcp_57: ld a,data_55cp a,(iy-2)jr nz,cp_58inc_error_cntcp_58: jr c,cp_59inc_error_cntcp_59: cp a,(iy-1)jr z,cp_60inc_error_cntcp_60: jr nc,inc_0inc_error_cntinc_0: ld a,data_7fcp a,data_7fjr z,inc_1inc_error_cntinc_1: inc ajp pe,inc_2inc_error_cntinc_2: jp m,inc_3inc_error_cntinc_3: jr nz,inc_4inc_error_cntinc_4: ld a,data_55inc ajp po,inc_5inc_error_cntinc_5: jp p,inc_6inc_error_cntinc_6: cp a,data_55+1jr z,inc_7inc_error_cntinc_7: ld a,data_ff-1inc ajr nz,inc_8inc_error_cntinc_8: jp m,inc_9inc_error_cntinc_9: inc ajr z,inc_10inc_error_cntinc_10: ld b,data_aainc bjp m,inc_11inc_error_cntinc_11: ld a,bcp a,data_aa+1jr z,inc_12inc_error_cntinc_12: ld c,data_80inc cjp m,inc_13inc_error_cntinc_13: ld a,ccp a,data_80+1jr z,inc_14inc_error_cntinc_14: ld d,data_ffinc djr z,inc_15inc_error_cntinc_15: ld e,data_55inc ejp p,inc_16inc_error_cntinc_16: ld a,ecp a,data_55+1jr z,inc_17inc_error_cntinc_17: ld h,data_7finc hjp pe,inc_18inc_error_cntinc_18: ld a,hcp a,data_80jr z,inc_19inc_error_cntinc_19: ld l,data_aainc ljp m,inc_20inc_error_cntinc_20: ld a,lcp a,data_aa+1jr z,inc_21inc_error_cntinc_21: ld hl,t_var1ld a,data_7fld (hl),acp a,(hl)jr z,inc_22inc_error_cntinc_22: inc (hl)jp m,inc_23inc_error_cntinc_23: jp pe,inc_24inc_error_cntinc_24: ld a,data_55ld (hl),ainc (hl)jp p,inc_25inc_error_cntinc_25: jp po,inc_26inc_error_cntinc_26: ld a,(hl)cp a,data_55+1jr z,inc_27inc_error_cntinc_27: ld a,data_ffld (hl),ainc (hl)jr z,inc_28inc_error_cntinc_28: inc (hl)jr nz,inc_29inc_error_cntinc_29: ld a,(hl)cp a,1jr z,inc_30inc_error_cntinc_30: ld a,data_aald (hl),ainc (hl)jp m,inc_31inc_error_cntinc_31: ld a,(hl)cp a,data_aa+1jr z,inc_32inc_error_cntinc_32: ld ix,t_var3ld a,data_7fld (ix-2),acp a,data_7fjr z,inc_33inc_error_cntinc_33: inc (ix-2)jp m,inc_34inc_error_cntinc_34: jp pe,inc_35inc_error_cntinc_35: ld a,data_55ld (ix+2),ainc (ix+2)jp p,inc_36inc_error_cntinc_36: jp po,inc_37inc_error_cntinc_37: ld a,(ix+2)cp a,data_55+1jr z,inc_38inc_error_cntinc_38: ld a,data_ffld (ix-1),ainc (ix-1)jr z,inc_39inc_error_cntinc_39: inc (ix-1)jr nz,inc_40inc_error_cntinc_40: ld a,(ix-1)cp a,1jr z,inc_41inc_error_cntinc_41: ld a,data_aald (ix+1),ainc (ix+1)jp m,inc_42inc_error_cntinc_42: ld a,(ix+1)cp a,data_aa+1jr z,inc_43inc_error_cntinc_43: ld iy,t_var3ld a,data_7fld (iy+2),acp a,data_7fjr z,inc_44inc_error_cntinc_44: inc (iy+2)jp m,inc_45inc_error_cntinc_45: jp pe,inc_46inc_error_cntinc_46: ld a,data_55ld (iy-2),ainc (iy-2)jp p,inc_47inc_error_cntinc_47: jp po,inc_48inc_error_cntinc_48: ld a,(iy-2)cp a,data_55+1jr z,inc_49inc_error_cntinc_49: ld a,data_ffld (iy+1),ainc (iy+1)jr z,inc_50inc_error_cntinc_50: inc (iy+1)jr nz,inc_51inc_error_cntinc_51: ld a,(iy+1)cp a,1jr z,inc_52inc_error_cntinc_52: ld a,data_80ld (iy-1),ainc (iy-1)jp m,inc_53inc_error_cntinc_53: ld a,(iy-1)cp a,data_80+1jr z,dec_0inc_error_cntdec_0: ld a,data_80cp a,data_80jr z,dec_1inc_error_cntdec_1: dec ajp p,dec_2inc_error_cntdec_2: jp pe,dec_3inc_error_cntdec_3: ld a,0dec ajp m,dec_4inc_error_cntdec_4: jp po,dec_5inc_error_cntdec_5: cp a,data_ffjr z,dec_6inc_error_cntdec_6: ld a,1dec ajr z,dec_7inc_error_cntdec_7: dec ajr nz,dec_8inc_error_cntdec_8: cp a,data_ffjr z,dec_9inc_error_cntdec_9: ld a,data_aadec acp a,data_aa-1jr z,dec_10inc_error_cntdec_10: ld b,data_7fdec bld a,bcp a,data_7f-1jr z,dec_11inc_error_cntdec_11: ld c,data_55dec cld a,ccp a,data_55-1jr z,dec_12inc_error_cntdec_12: ld d,data_aadec dld a,dcp a,data_aa-1jr z,dec_13inc_error_cntdec_13: ld e,data_80dec eld a,ecp a,data_80-1jr z,dec_14inc_error_cntdec_14: ld h,data_ffdec hld a,hcp a,data_ff-1jr z,dec_15inc_error_cntdec_15: ld l,data_55dec lld a,lcp a,data_55-1jr z,dec_16inc_error_cntdec_16: ld hl,t_var5ld a,data_80ld (hl),acp a,(hl)jr z,dec_17inc_error_cntdec_17: dec (hl)jp p,dec_18inc_error_cntdec_18: jp pe,dec_19inc_error_cntdec_19: ld a,0ld (hl),adec (hl)jp m,dec_20inc_error_cntdec_20: jp po,dec_21inc_error_cntdec_21: ld a,(hl)cp a,data_ffjr z,dec_22inc_error_cntdec_22: ld a,1ld (hl),adec (hl)jr z,dec_23inc_error_cntdec_23: dec (hl)jr nz,dec_24inc_error_cntdec_24: ld a,(hl)cp a,data_ffjr z,dec_25inc_error_cntdec_25: ld a,data_aald (hl),adec (hl)ld a,(hl)cp a,data_aa-1jr z,dec_26inc_error_cntdec_26: ld ix,t_var3ld a,data_80ld (ix-2),acp a,(ix-2)jr z,dec_27inc_error_cntdec_27: dec (ix-2)jp p,dec_28inc_error_cntdec_28: jp pe,dec_29inc_error_cntdec_29: ld a,0ld (ix+2),adec (ix+2)jp m,dec_30inc_error_cntdec_30: jp po,dec_31inc_error_cntdec_31: ld a,(ix+2)cp a,data_ffjr z,dec_32inc_error_cntdec_32: ld a,1ld (ix-1),adec (ix-1)jr z,dec_33inc_error_cntdec_33: dec (ix-1)jr nz,dec_34inc_error_cntdec_34: ld a,(ix-1)cp a,data_ffjr z,dec_35inc_error_cntdec_35: ld a,data_7fld (ix+1),adec (ix+1)ld a,(ix+1)cp a,data_7f-1jr z,dec_36inc_error_cntdec_36: ld iy,t_var3ld a,data_80ld (iy-2),acp a,(iy-2)jr z,dec_37inc_error_cntdec_37: dec (iy-2)jp p,dec_38inc_error_cntdec_38: jp pe,dec_39inc_error_cntdec_39: ld a,0ld (iy+2),adec (iy+2)jp m,dec_40inc_error_cntdec_40: jp po,dec_41inc_error_cntdec_41: ld a,(iy+2)cp a,data_ffjr z,dec_42inc_error_cntdec_42: ld a,1ld (iy+1),adec (iy+1)jr z,dec_43inc_error_cntdec_43: dec (iy+1)jr nz,dec_44inc_error_cntdec_44: ld a,(iy+1)cp a,data_ffjr z,dec_45inc_error_cntdec_45: ld a,data_aald (iy-1),adec (iy-1)ld a,(iy-1)cp a,data_aa-1jr z,cpl_0inc_error_cntcpl_0: ld a,data_ffcplcp a,0jr z,cpl_1inc_error_cntcpl_1: ld a,data_aacplcp a,data_55jr z,cpl_2inc_error_cntcpl_2: cplcp a,data_aajr z,neg_0inc_error_cntneg_0: ld a,data_80cp a,data_80jp po,neg_1inc_error_cntneg_1: negjp pe,neg_2inc_error_cntneg_2: jr nz,neg_3inc_error_cntneg_3: jr c,neg_4inc_error_cntneg_4: ld a,0negjp po,neg_5inc_error_cntneg_5: jr z,neg_6inc_error_cntneg_6: jr nc,neg_7inc_error_cntneg_7: ld a,data_55cp a,data_55jp p,neg_8inc_error_cntneg_8: negjp m,neg_9inc_error_cntneg_9: negjp p,neg_10inc_error_cntneg_10: cp a,data_55jr z,ccf_0inc_error_cntccf_0: scfjr c,ccf_1inc_error_cntccf_1: ccfjr nc,ccf_2inc_error_cntccf_2: ccfjr c,im_0inc_error_cntim_0: im 0im 1im 2daa_0: ld a,#99ld b,#1add a,bdaajr c,daa_1inc_error_cntdaa_1: jr z,daa_2inc_error_cntdaa_2: add a,bjr nc,daa_3inc_error_cntdaa_3: jr nz,daa_4inc_error_cntdaa_4: cp a,1jr z,daa_5inc_error_cntdaa_5: ld a,#98ld b,1add a,bdaajp m,daa_6inc_error_cntdaa_6: add a,bdaajp p,daa_7inc_error_cntdaa_7: ld a,1ld b,1add a,bdaajp po,daa_8inc_error_cntdaa_8: add a,bdaajp pe,daa_9inc_error_cntdaa_9: cp a,3jr z,add_74inc_error_cntadd_74: ld hl,data_1234add hl,hljr nc,add_75inc_error_cntadd_75: ld a,hcp a,#24jr z,add_76inc_error_cntadd_76: ld a,lcp a,#68jr z,add_77inc_error_cntadd_77: ld hl,data_7fffld bc,data_8000add hl,bcjr nc,add_78inc_error_cntadd_78: ld bc,1add hl,bcjr c,add_79inc_error_cntadd_79: ld a,hcp a,0jr z,add_80inc_error_cntadd_80: ld a,lcp a,0jr z,add_81inc_error_cntadd_81: ld hl,data_aa55ld de,data_ffffadd hl,dejr c,add_82inc_error_cntadd_82: ld a,hcp a,data_aajr z,add_83inc_error_cntadd_83: ld a,lcp a,data_55-1jr z,add_84inc_error_cntadd_84: ld hl,data_aa55ld sp,data_8000add hl,spjr c,add_85inc_error_cntadd_85: ld a,hcp a,#2ajr z,add_86inc_error_cntadd_86: ld a,lcp a,data_55jr z,add_87inc_error_cntadd_87: ld sp,stack_endld hl,data_1234scfccfadc hl,hljr nz,add_88inc_error_cntadd_88: jr nc,add_89inc_error_cntadd_89: jp p,add_90inc_error_cntadd_90: jp po,add_91inc_error_cntadd_91: ld bc,data_8000adc hl,bcjp m,add_92inc_error_cntadd_92: jr nc,add_93inc_error_cntadd_93: jp po,add_94inc_error_cntadd_94: jp nz,add_95inc_error_cntadd_95: adc hl,bcjp p,add_96inc_error_cntadd_96: jp pe,add_97inc_error_cntadd_97: jr c,add_98inc_error_cntadd_98: jr nz,add_99inc_error_cntadd_99: ld de,#db97adc hl,dejr z,add_100inc_error_cntadd_100: jr c,add_101inc_error_cntadd_101: jp po,add_102inc_error_cntadd_102: ld de,0adc hl,dejr nc,add_103inc_error_cntadd_103: jr nz,add_104inc_error_cntadd_104: ld a,hcp a,0jr z,add_105inc_error_cntadd_105: ld a,lcp a,1jr z,add_106inc_error_cntadd_106: ld hl,data_1234ld sp,data_ffffadc hl,spjr c,add_107inc_error_cntadd_107: ld a,hcp a,#12jr z,add_108inc_error_cntadd_108: ld a,lcp a,#33jr z,sbc_66inc_error_cntsbc_66: ld sp,stack_endscfccfld hl,data_1234sbc hl,hljr z,sbc_67inc_error_cntsbc_67: jp p,sbc_68inc_error_cntsbc_68: jp po,sbc_69inc_error_cntsbc_69: jr nc,sbc_70inc_error_cntsbc_70: ld bc,data_1234sbc hl,bcjr nz,sbc_71inc_error_cntsbc_71: jr c,sbc_72inc_error_cntsbc_72: jp m,sbc_73inc_error_cntsbc_73: jp po,sbc_74inc_error_cntsbc_74: ld de,data_7fffsbc hl,dejr nz,sbc_75inc_error_cntsbc_75: jr nc,sbc_76inc_error_cntsbc_76: jp p,sbc_77inc_error_cntsbc_77: jp pe,sbc_78inc_error_cntsbc_78: ld sp,data_1234sbc hl,spjr nz,sbc_79inc_error_cntsbc_79: ld a,hcp a,#5bjr z,sbc_80inc_error_cntsbc_80: ld a,lcp a,#98jr z,add_109inc_error_cntadd_109: ld sp,stack_endld ix,0add ix,spjr nc,add_110inc_error_cntadd_110: push ixpop hlld a,hcp a,#71 ; >stack_endjr z,add_111inc_error_cntadd_111: ld a,lcp a,#80 ; <stack_endjr z,add_112inc_error_cntadd_112: ld ix,data_7fffld bc,data_aa55add ix,bcjr c,add_113inc_error_cntadd_113: add ix,bcjr nc,add_114inc_error_cntadd_114: push ixpop hlld a,hcp a,#d4jr z,add_115inc_error_cntadd_115: ld a,lcp a,#a9jr z,add_116inc_error_cntadd_116: ld ix,data_1234ld de,data_1234add ix,depush ixpop hlld a,hcp a,#24 ;>(data_1234+data_1234)jr z,add_117inc_error_cntadd_117: ld a,lcp a,#68 ;<(data_1234+data_1234)jr z,add_118inc_error_cntadd_118: ld ix,data_1234add ix,ixpush ixpop bcld a,bcp a,#24 ;>(data_1234+data_1234)jr z,add_119inc_error_cntadd_119: ld a,ccp a,#68 ;<(data_1234+data_1234)jr z,add_120inc_error_cntadd_120: ld sp,stack_endld iy,0add iy,spjr nc,add_121inc_error_cntadd_121: push iypop hlld a,hcp a,#71 ;>stack_endjr z,add_122inc_error_cntadd_122: ld a,lcp a,#80 ;<stack_endjr z,add_123inc_error_cntadd_123: ld iy,data_7fffld bc,data_aa55add iy,bcjr c,add_124inc_error_cntadd_124: add iy,bcjr nc,add_125inc_error_cntadd_125: push iypop hlld a,hcp a,#d4jr z,add_126inc_error_cntadd_126: ld a,lcp a,#a9jr z,add_127inc_error_cntadd_127: ld iy,data_1234ld de,data_1234add iy,depush iypop hlld a,hcp a,#24 ;>(data_1234+data_1234)jr z,add_128inc_error_cntadd_128: ld a,lcp a,#68 ;<(data_1234+data_1234)jr z,add_129inc_error_cntadd_129: ld iy,data_1234add iy,iypush iypop bcld a,bcp a,#24 ;>(data_1234+data_1234)jr z,add_130inc_error_cntadd_130: ld a,ccp a,#68 ;<(data_1234+data_1234)jr z,inc_54inc_error_cntinc_54: ld bc,data_1234inc bcld a,bcp a,#12 ;bjp was >data_1234jr z,inc_55inc_error_cntinc_55: ld a,ccp a,#34+1 ;bjp was >data_1234+1jr z,inc_56inc_error_cntinc_56: ld de,data_55aainc deld a,dcp a,#55 ;>data_55aajr z,inc_57inc_error_cntinc_57: ld a,ecp a,#ab ;<data_55aa+1jr z,inc_58inc_error_cntinc_58: ld hl,data_7fffinc hlld a,hcp a,#80 ;>data_7fff+1jr z,inc_59inc_error_cntinc_59: ld a,lcp a,#00 ;<data_7fff+1jr z,inc_60inc_error_cntinc_60: ld hl,0inc spadd hl,spld sp,stack_endld a,hcp a,#71 ;>stack_end+1jr z,inc_61inc_error_cntinc_61: ld a,lcp a,#81 ;<stack_end+1jr z,inc_62inc_error_cntinc_62: ld ix,data_8000inc ixpush ixpop deld a,dcp a,#80 ;>data_8000jr z,inc_63inc_error_cntinc_63: ld a,ecp a,#01 ;<data_8000+1jr z,inc_64inc_error_cntinc_64: ld iy,data_7fffinc iypush iypop bcld a,bcp a,#80 ;>data_7fff+1jr z,inc_65inc_error_cntinc_65: ld a,ccp a,#00 ;<data_7fff+1jr z,dec_46inc_error_cntdec_46: ld bc,data_1234dec bcld a,bcp a,#12 ;bjp was >data_1234jr z,dec_47inc_error_cntdec_47: ld a,ccp a,#34-1 ;bjp was >data_1234-1jr z,dec_48inc_error_cntdec_48: ld de,data_8000dec deld a,dcp a,#7f ;>data_7fffjr z,dec_49inc_error_cntdec_49: ld a,ecp a,#ff ;<data_7fffjr z,dec_50inc_error_cntdec_50: ld hl,data_aa55dec hlld a,hcp a,#aa ;>data_aa55jr z,dec_51inc_error_cntdec_51: ld a,lcp a,#54 ;<data_aa55-1jr z,dec_52inc_error_cntdec_52: ld hl,0dec spadd hl,spld a,hcp a,#71 ;>stack_end-1jr z,dec_53inc_error_cntdec_53: ld a,lcp a,#7f ;<stack_end-1jr z,dec_54inc_error_cntdec_54: ld sp,stack_endld ix,data_ffffdec ixpush ixpop bcld a,bcp a,#ff ;>data_ffffjr z,dec_55inc_error_cntdec_55: ld a,ccp a,#fe ;<data_ffff-1jr z,dec_56inc_error_cntdec_56: ld iy,data_aa55dec iypush iypop deld a,dcp a,#aa ;>data_aa55jr z,dec_57inc_error_cntdec_57: ld a,ecp a,#54 ;<data_aa55-1jr z,rlca_0inc_error_cnt; bjp don't see any further mucking with sp after the load above.; perhaps it is now safe to enable interrupts. and test them a littlerlca_0: ld hl, bist_adr ; enable interruptsld (hl), bist_eild a, #72 ;bjp this is >int_tbl - if you move int_tbl changeld i, aeild a,data_80rlcajr c,rlca_1inc_error_cntrlca_1: rlcajr nc,rlca_2inc_error_cntrlca_2: cp a,2jr z,rlca_3inc_error_cntrlca_3: ld a,data_55rlcacp a,data_aajr z,rla_0inc_error_cntrla_0: scfccfld a,data_80rlajr c,rla_1inc_error_cntrla_1: rlajr nc,rla_2inc_error_cntrla_2: cp a,1jr z,rla_3inc_error_cntrla_3: ld a,data_7frlacp a,data_ff-1jr z,rrca_0inc_error_cntrrca_0: di ; disable interrupts we want to enable at specific ptsscfccfld a,1rrcajr c,rrca_1inc_error_cntrrca_1: rrcajr nc,rrca_2inc_error_cntrrca_2: cp a,data_7f-#3fjr z,rrca_3inc_error_cntrrca_3: ld a,data_aarrcacp a,data_55jr z,rra_0inc_error_cntrra_0: scfccfld a,1rrajr c,rra_1inc_error_cntrra_1: rrajr nc,rra_2inc_error_cntrra_2: cp a,data_80jr z,rra_3inc_error_cntrra_3: ld a,data_aarracp a,data_55jr z,rlc_0inc_error_cntrlc_0: ld a,data_80rlc ajr c,rlc_1inc_error_cntrlc_1: jp p,rlc_2inc_error_cntrlc_2: jr nz,rlc_3inc_error_cntrlc_3: jp po,rlc_4inc_error_cntrlc_4: rlc ajr nc,rlc_5inc_error_cntrlc_5: rlc arlc arlc arlc arlc arlc ajp m,rlc_6inc_error_cntrlc_6: ld a,data_55rlc ajp m,rlc_7inc_error_cntrlc_7: jp pe,rlc_8inc_error_cntrlc_8: cp a,data_aajr z,rlc_9inc_error_cntrlc_9: ld a,0rlc ajr z,rlc_10inc_error_cntrlc_10: ld b,data_7frlc bld a,bcp a,data_ff-1jr z,rlc_11inc_error_cntrlc_11: ld c,data_aarlc cjr c,rlc_12inc_error_cntrlc_12: ld a,ccp a,data_55jr z,rlc_13inc_error_cntrlc_13: ld d,data_80rlc djr c,rlc_14inc_error_cntrlc_14: ld a,dcp a,1jr z,rlc_15inc_error_cntrlc_15: ld e,data_ffrlc ejr c,rlc_16inc_error_cntrlc_16: ld a,ecp a,data_ffjr z,rlc_17inc_error_cntrlc_17: ld h,data_55rlc hjp m,rlc_18inc_error_cntrlc_18: ld a,hcp a,data_aajr z,rlc_19inc_error_cntrlc_19: ld l,data_80rlc ljp p,rlc_20inc_error_cntrlc_20: ld a,lcp a,1jr z,rlc_21inc_error_cntrlc_21: ld hl,t_var1ld a,data_55ld (hl),arlc (hl)jp m,rlc_22inc_error_cntrlc_22: jp pe,rlc_23inc_error_cntrlc_23: jr nc,rlc_24inc_error_cntrlc_24: jr nz,rlc_25inc_error_cntrlc_25: rlc (hl)jp p,rlc_26inc_error_cntrlc_26: jr c,rlc_27inc_error_cntrlc_27: ld a,(hl)cp a,data_55jr z,rlc_28inc_error_cntrlc_28: ld a,data_7fld (hl),arlc (hl)jp po,rlc_29inc_error_cntrlc_29: ld a,(hl)cp a,data_ff-1jr z,rlc_30inc_error_cntrlc_30: ld a,0ld (hl),arlc (hl)jr z,rlc_31inc_error_cntrlc_31: ld ix,t_var3ld a,data_55ld (ix-2),arlc (ix-2)jp m,rlc_32inc_error_cntrlc_32: jp pe,rlc_33inc_error_cntrlc_33: jr nz,rlc_34inc_error_cntrlc_34: jr nc,rlc_35inc_error_cntrlc_35: rlc (ix-2)jp p,rlc_36inc_error_cntrlc_36: jr c,rlc_37inc_error_cntrlc_37: ld a,(ix-2)cp a,data_55jr z,rlc_38inc_error_cntrlc_38: ld a,data_7fld (ix+2),arlc (ix+2)jp po,rlc_39inc_error_cntrlc_39: ld a,(ix+2)cp a,data_ff-1jr z,rlc_40inc_error_cntrlc_40: ld a,0ld (ix-1),arlc (ix-1)jr z,rlc_41inc_error_cntrlc_41: ld iy,t_var3ld a,data_55ld (iy+2),arlc (iy+2)jp m,rlc_42inc_error_cntrlc_42: jp pe,rlc_43inc_error_cntrlc_43: jr nc,rlc_44inc_error_cntrlc_44: jr nz,rlc_45inc_error_cntrlc_45: rlc (iy+2)jp p,rlc_46inc_error_cntrlc_46: jr c,rlc_47inc_error_cntrlc_47: ld a,(iy+2)cp a,data_55jr z,rlc_48inc_error_cntrlc_48: ld a,data_7fld (iy-2),arlc (iy-2)jp po,rlc_49inc_error_cntrlc_49: ld a,(iy-2)cp a,data_ff-1jr z,rlc_50inc_error_cntrlc_50: ld a,0ld (iy+1),arlc (iy+1)jr z,rl_0inc_error_cntrl_0: scfccfld a,data_55rl ajp m,rl_1inc_error_cntrl_1: jp pe,rl_2inc_error_cntrl_2: jr nc,rl_3inc_error_cntrl_3: jr nz,rl_4inc_error_cntrl_4: rl ajp p,rl_5inc_error_cntrl_5: jp po,rl_6inc_error_cntrl_6: jr c,rl_7inc_error_cntrl_7: rl acp a,data_aa-1jr z,rl_8inc_error_cntrl_8: ld a,0rl ajr z,rl_9inc_error_cntrl_9: ld b,data_aald c,data_7frl bjr c,rl_10inc_error_cntrl_10: rl cjr nc,rl_11inc_error_cntrl_11: ld a,bcp a,data_55-1jr z,rl_12inc_error_cntrl_12: ld a,ccp a,data_ffjr z,rl_13inc_error_cntrl_13: ld d,data_ffld e,data_80rl ejr c,rl_14inc_error_cntrl_14: rl djr c,rl_15inc_error_cntrl_15: ld a,dcp a,data_ffjr z,rl_16inc_error_cntrl_16: ld a,ecp a,0jr z,rl_17inc_error_cntrl_17: ld h,data_7fld l,data_55rl hjp m,rl_18inc_error_cntrl_18: rl ljp m,rl_19inc_error_cntrl_19: ld a,hcp a,data_ff-1jr z,rl_20inc_error_cntrl_20: ld a,lcp a,data_aajr z,rl_21inc_error_cntrl_21: ld hl,t_var5ld a,data_55ld (hl),arl (hl)jp m,rl_22inc_error_cntrl_22: jp pe,rl_23inc_error_cntrl_23: jr nc,rl_24inc_error_cntrl_24: jr nz,rl_25inc_error_cntrl_25: rl (hl)jp p,rl_26inc_error_cntrl_26: jp po,rl_27inc_error_cntrl_27: jr c,rl_28inc_error_cntrl_28: ld a,(hl)cp a,data_55-1jr z,rl_29inc_error_cntrl_29: ld a,0ld (hl),arl (hl)jr z,rl_30inc_error_cntrl_30: ld ix,t_var3ld a,data_55ld (ix-2),arl (ix-2)jp m,rl_31inc_error_cntrl_31: jp pe,rl_32inc_error_cntrl_32: jr nc,rl_33inc_error_cntrl_33: jr nz,rl_34inc_error_cntrl_34: rl (ix-2)jp p,rl_35inc_error_cntrl_35: jp po,rl_36inc_error_cntrl_36: jr c,rl_37inc_error_cntrl_37: ld a,(ix-2)cp a,data_55-1jr z,rl_38inc_error_cntrl_38: ld a,0ld (ix+2),arl (ix+2)jr z,rl_39rl_39: ld iy,t_var3ld a,data_55ld (iy-1),arl (iy-1)jp m,rl_40inc_error_cntrl_40: jp pe,rl_41inc_error_cntrl_41: jr nc,rl_42inc_error_cntrl_42: jr nz,rl_43inc_error_cntrl_43: rl (iy-1)jp p,rl_44inc_error_cntrl_44: jp po,rl_45inc_error_cntrl_45: jr c,rl_46inc_error_cntrl_46: ld a,(iy-1)cp a,data_55-1jr z,rl_47inc_error_cntrl_47: ld a,0ld (iy+1),arl (iy+1)jr z,rrc_0inc_error_cntrrc_0: ld a,data_aarrc ajp p,rrc_1inc_error_cntrrc_1: jp pe,rrc_2inc_error_cntrrc_2: jr nz,rrc_3inc_error_cntrrc_3: jr nc,rrc_4inc_error_cntrrc_4: rrc ajp m,rrc_5inc_error_cntrrc_5: jr c,rrc_6inc_error_cntrrc_6: cp a,data_aajr z,rrc_7inc_error_cntrrc_7: ld a,1rrc ajr c,rrc_8inc_error_cntrrc_8: cp a,data_80jr z,rrc_9inc_error_cntrrc_9: ld a,data_7frrc ajp po,rrc_10inc_error_cntrrc_10: cp a,#bfjr z,rrc_11inc_error_cntrrc_11: ld b,data_80ld c,data_55rrc bjr nc,rrc_12inc_error_cntrrc_12: rrc cjr c,rrc_13inc_error_cntrrc_13: ld a,bcp a,#40jr z,rrc_14inc_error_cntrrc_14: ld a,ccp a,data_aajr z,rrc_15inc_error_cntrrc_15: ld d,data_aald e,1rrc djp p,rrc_16inc_error_cntrrc_16: rrc ejp m,rrc_17inc_error_cntrrc_17: ld a,dcp a,data_55jr z,rrc_18inc_error_cntrrc_18: ld a,ecp a,data_80jr z,rrc_19inc_error_cntrrc_19: ld h,data_55ld l,data_ffrrc hjr c,rrc_20inc_error_cntrrc_20: rrc ljr c,rrc_21inc_error_cntrrc_21: ld a,hcp a,data_aajr z,rrc_22inc_error_cntrrc_22: ld a,lcp a,data_ffjr z,rrc_23inc_error_cntrrc_23: ld hl,t_var4ld (hl),data_aarrc (hl)jp p,rrc_24inc_error_cntrrc_24: jp pe,rrc_25inc_error_cntrrc_25: jr nz,rrc_26inc_error_cntrrc_26: jr nc,rrc_27inc_error_cntrrc_27: rrc (hl)jp m,rrc_28inc_error_cntrrc_28: jr c,rrc_29inc_error_cntrrc_29: ld a,(hl)cp a,data_aajr z,rrc_30inc_error_cntrrc_30: ld (hl),data_7frrc (hl)jp po,rrc_31inc_error_cntrrc_31: ld a,(hl)cp a,#bfjr z,rrc_32inc_error_cntrrc_32: ld (hl),0rrc (hl)jr z,rrc_33inc_error_cntrrc_33: ld ix,t_var3ld a,data_aald (ix+2),arrc (ix+2)jp p,rrc_34inc_error_cntrrc_34: jp pe,rrc_35inc_error_cntrrc_35: jr nc,rrc_36inc_error_cntrrc_36: jr nz,rrc_37inc_error_cntrrc_37: rrc (ix+2)jp m,rrc_38inc_error_cntrrc_38: jr c,rrc_39inc_error_cntrrc_39: ld a,(ix+2)cp a,data_aajr z,rrc_40inc_error_cntrrc_40: ld a,1ld (ix-2),arrc (ix-2)jp po,rrc_41inc_error_cntrrc_41: ld a,(ix-2)cp a,data_80jr z,rrc_42inc_error_cntrrc_42: ld a,0ld (ix+1),arrc (ix+1)jr z,rrc_43inc_error_cntrrc_43: ld iy,t_var3ld a,data_aald (iy+2),arrc (iy+2)jp p,rrc_44inc_error_cntrrc_44: jp pe,rrc_45inc_error_cntrrc_45: jr nc,rrc_46inc_error_cntrrc_46: jr nz,rrc_47inc_error_cntrrc_47: rrc (iy+2)jp m,rrc_48inc_error_cntrrc_48: jr c,rrc_49inc_error_cntrrc_49: ld a,(iy+2)cp a,data_aajr z,rrc_50inc_error_cntrrc_50: ld a,1ld (iy-2),arrc (iy-2)jp po,rrc_51inc_error_cntrrc_51: ld a,(iy-2)cp a,data_80jr z,rrc_52inc_error_cntrrc_52: ld a,0ld (iy+1),arrc (iy+1)jr z,rr_0inc_error_cntrr_0: scfccfld a,data_aarr ajp p,rr_1inc_error_cntrr_1: jp pe,rr_2inc_error_cntrr_2: jr nc,rr_3inc_error_cntrr_3: jr nz,rr_4inc_error_cntrr_4: rr ajr c,rr_5inc_error_cntrr_5: jp po,rr_6inc_error_cntrr_6: cp a,#2ajr z,rr_7inc_error_cntrr_7: scfld a,0rr ajp m,rr_8inc_error_cntrr_8: cp a,data_80jr z,rr_9inc_error_cntrr_9: ld a,0rr ajr z,rr_10inc_error_cntrr_10: ld b,data_55ld c,data_aarr bjr c,rr_11inc_error_cntrr_11: rr cjr nc,rr_12inc_error_cntrr_12: ld a,bcp a,#2ajr z,rr_13inc_error_cntrr_13: ld a,ccp a,#d5jr z,rr_14inc_error_cntrr_14: ld d,data_7fld e,data_80rr djr c,rr_15inc_error_cntrr_15: rr ejr nc,rr_16inc_error_cntrr_16: ld a,dcp a,#3fjr z,rr_17inc_error_cntrr_17: ld a,ecp a,#c0jr z,rr_18inc_error_cntrr_18: ld hl,t_var2ld (hl),data_55rr (hl)jp p,rr_19inc_error_cntrr_19: jp po,rr_20inc_error_cntrr_20: jr c,rr_21inc_error_cntrr_21: jr nz,rr_22inc_error_cntrr_22: rr (hl)jp m,rr_23inc_error_cntrr_23: jp pe,rr_24inc_error_cntrr_24: jr nc,rr_25inc_error_cntrr_25: ld a,(hl)cp a,#95jr z,rr_26inc_error_cntrr_26: ld (hl),0rr (hl)jr z,rr_27inc_error_cntrr_27: ld ix,t_var3ld a,data_55ld (ix-2),arr (ix-2)jp p,rr_28inc_error_cntrr_28: jp po,rr_29inc_error_cntrr_29: jr c,rr_30inc_error_cntrr_30: jr nz,rr_31inc_error_cntrr_31: rr (ix-2)jp m,rr_32inc_error_cntrr_32: jp pe,rr_33inc_error_cntrr_33: jr nc,rr_34inc_error_cntrr_34: ld a,(ix-2)cp a,#95jr z,rr_35inc_error_cntrr_35: ld a,0ld (ix+2),arr (ix+2)jr z,rr_36inc_error_cntrr_36: ld iy,t_var3ld a,data_55ld (iy+2),arr (iy+2)jp p,rr_37inc_error_cntrr_37: jp po,rr_38inc_error_cntrr_38: jr c,rr_39inc_error_cntrr_39: jr nz,rr_40inc_error_cntrr_40: rr (iy+2)jp m,rr_41inc_error_cntrr_41: jp pe,rr_42inc_error_cntrr_42: jr nc,rr_43inc_error_cntrr_43: ld a,(iy+2)cp a,#95jr z,rr_44inc_error_cntrr_44: ld a,0ld (iy-1),arr (iy-1)jr z,sla_0inc_error_cntsla_0: ld a,data_55sla ajp m,sla_1inc_error_cntsla_1: jp pe,sla_2inc_error_cntsla_2: jr nc,sla_3inc_error_cntsla_3: jr nz,sla_4inc_error_cntsla_4: sla ajp p,sla_5inc_error_cntsla_5: jp po,sla_6inc_error_cntsla_6: jr c,sla_7inc_error_cntsla_7: cp a,data_55-1jr z,sla_8inc_error_cntsla_8: ld a,0sla ajr z,sla_9inc_error_cntsla_9: ld b,data_80ld c,data_7fsla bjr c,sla_10inc_error_cntsla_10: ld a,bcp a,0jr z,sla_11inc_error_cntsla_11: sla cjp m,sla_12inc_error_cntsla_12: ld a,ccp a,data_ff-1jr z,sla_13inc_error_cntsla_13: ld d,data_aald e,data_55sla djr c,sla_14inc_error_cntsla_14: ld a,dcp a,data_55-1jr z,sla_15inc_error_cntsla_15: sla ejp m,sla_16inc_error_cntsla_16: ld a,ecp a,data_aajr z,sla_17inc_error_cntsla_17: ld h,#12 ;bjp was >data_1234ld l,#34 ;bjp was >data_1234sla hjp p,sla_18inc_error_cntsla_18: ld a,hcp a,#24jr z,sla_19inc_error_cntsla_19: sla ljp p,sla_20inc_error_cntsla_20: ld a,lcp a,#68jr z,sla_21inc_error_cntsla_21: ld hl,t_var3ld (hl),data_55sla (hl)jp m,sla_22inc_error_cntsla_22: jp pe,sla_23inc_error_cntsla_23: jr nc,sla_24inc_error_cntsla_24: jr nz,sla_25inc_error_cntsla_25: sla (hl)jp p,sla_26inc_error_cntsla_26: jp po,sla_27inc_error_cntsla_27: jr c,sla_28inc_error_cntsla_28: ld a,(hl)cp a,data_55-1jr z,sla_29inc_error_cntsla_29: ld (hl),0sla (hl)jr z,sla_30inc_error_cntsla_30: ld ix,t_var3ld a,data_55ld (ix-2),asla (ix-2)jp m,sla_31inc_error_cntsla_31: jp pe,sla_32inc_error_cntsla_32: jr nc,sla_33inc_error_cntsla_33: jr nz,sla_34inc_error_cntsla_34: sla (ix-2)jp p,sla_35inc_error_cntsla_35: jp po,sla_36inc_error_cntsla_36: jr c,sla_37inc_error_cntsla_37: ld a,(ix-2)cp a,data_55-1jr z,sla_38inc_error_cntsla_38: ld a,data_80ld (ix+2),asla (ix+2)jr z,sla_39inc_error_cntsla_39: jr c,sla_40inc_error_cntsla_40: ld iy,t_var3ld a,data_55ld (iy+2),asla (iy+2)jp m,sla_41inc_error_cntsla_41: jp pe,sla_42inc_error_cntsla_42: jr nc,sla_43inc_error_cntsla_43: jr nz,sla_44inc_error_cntsla_44: sla (iy+2)jp p,sla_45inc_error_cntsla_45: jp po,sla_46inc_error_cntsla_46: jr c,sla_47inc_error_cntsla_47: ld a,(iy+2)cp a,data_55-1jr z,sla_48inc_error_cntsla_48: ld a,data_80ld (iy-2),asla (iy-2)jr z,sla_49inc_error_cntsla_49: jr c,sra_0inc_error_cntsra_0: ld a,data_55sra ajp p,sra_1inc_error_cntsra_1: jp po,sra_2inc_error_cntsra_2: jr c,sra_3inc_error_cntsra_3: jr nz,sra_4inc_error_cntsra_4: sra ajp po,sra_5inc_error_cntsra_5: jr nc,sra_6inc_error_cntsra_6: sra ajp pe,sra_7inc_error_cntsra_7: cp a,#0a ;data_aa.and.#0fjr z,sra_8inc_error_cntsra_8: ld a,1sra ajr c,sra_9inc_error_cntsra_9: jr z,sra_10inc_error_cntsra_10: ld a,data_80sra ajp m,sra_11inc_error_cntsra_11: cp a,#c0jr z,sra_12inc_error_cntsra_12: ld b,data_7fld c,data_aasra bjr c,sra_13inc_error_cntsra_13: ld a,bcp a,#3fjr z,sra_14inc_error_cntsra_14: sra cjr nc,sra_15inc_error_cntsra_15: ld a,ccp a,#d5jr z,sra_16inc_error_cntsra_16: ld d,data_55ld e,data_ffsra djr c,sra_17inc_error_cntsra_17: ld a,dcp a,#2ajr z,sra_18inc_error_cntsra_18: sra ejp m,sra_19inc_error_cntsra_19: ld a,ecp a,data_ffjr z,sra_20inc_error_cntsra_20: ld h,data_aald l,data_7fsra hjp m,sra_21inc_error_cntsra_21: ld a,hcp a,#d5jr z,sra_22inc_error_cntsra_22: sra ljr c,sra_23inc_error_cntsra_23: ld a,lcp a,#3fjr z,sra_24inc_error_cntsra_24: ld hl,t_var1ld (hl),data_55sra (hl)jp p,sra_25inc_error_cntsra_25: jp po,sra_26inc_error_cntsra_26: jr c,sra_27inc_error_cntsra_27: jr nz,sra_28inc_error_cntsra_28: sra (hl)jr nc,sra_29inc_error_cntsra_29: sra (hl)jp pe,sra_30inc_error_cntsra_30: ld a,(hl)cp a,#0a ;data_aa.and.#0fjr z,sra_31inc_error_cntsra_31: ld (hl),data_80sra (hl)jp m,sra_32inc_error_cntsra_32: ld a,(hl)cp a,#c0jr z,sra_33inc_error_cntsra_33: ld (hl),1sra (hl)jr c,sra_34inc_error_cntsra_34: jr z,sra_35inc_error_cntsra_35: ld ix,t_var3ld a,data_55ld (ix-2),asra (ix-2)jp p,sra_36inc_error_cntsra_36: jp po,sra_37inc_error_cntsra_37: jr c,sra_38inc_error_cntsra_38: jr nz,sra_39inc_error_cntsra_39: sra (ix-2)jr nc,sra_40inc_error_cntsra_40: sra (ix-2)jp pe,sra_41inc_error_cntsra_41: ld a,(ix-2)cp a,#0a ;data_aa.and.#0fjr z,sra_42inc_error_cntsra_42: ld a,data_80ld (ix+2),asra (ix+2)jp m,sra_43inc_error_cntsra_43: ld a,(ix+2)cp a,#c0jr z,sra_44inc_error_cntsra_44: ld a,1ld (ix-1),asra (ix-1)jr c,sra_45inc_error_cntsra_45: jr z,sra_46inc_error_cntsra_46: ld iy,t_var3ld a,data_55ld (iy-2),asra (iy-2)jp p,sra_47inc_error_cntsra_47: jp po,sra_48inc_error_cntsra_48: jr c,sra_49inc_error_cntsra_49: jr nz,sra_50inc_error_cntsra_50: sra (iy-2)jr nc,sra_51inc_error_cntsra_51: sra (iy-2)jp pe,sra_52inc_error_cntsra_52: ld a,(iy-2)cp a,#0a ;data_aa.and.#0fjr z,sra_53inc_error_cntsra_53: ld a,data_80ld (iy+2),asra (iy+2)jp m,sra_54inc_error_cntsra_54: ld a,(iy+2)cp a,#c0jr z,sra_55inc_error_cntsra_55: ld a,1ld (iy-1),asra (iy-1)jr c,sra_56inc_error_cntsra_56: jr z,srl_0inc_error_cntsrl_0: ld a,data_55srl ajr c,srl_1inc_error_cntsrl_1: jp po,srl_2inc_error_cntsrl_2: srl ajr nc,srl_3inc_error_cntsrl_3: srl ajp pe,srl_4inc_error_cntsrl_4: cp a,#0a ;data_aa.and.#0fjr z,srl_5inc_error_cntsrl_5: ld a,data_80and ajp m,srl_6inc_error_cntsrl_6: srl ajp p,srl_7inc_error_cntsrl_7: ld a,2srl ajr nz,srl_8inc_error_cntsrl_8: srl ajr z,srl_9inc_error_cntsrl_9: jr c,srl_10inc_error_cntsrl_10: ld b,data_aasrl bjp p,srl_11inc_error_cntsrl_11: ld a,bcp a,data_55jr z,srl_12inc_error_cntsrl_12: ld c,data_7fsrl cjr c,srl_13inc_error_cntsrl_13: ld a,ccp a,#3fjr z,srl_14inc_error_cntsrl_14: ld d,data_55srl djr c,srl_15inc_error_cntsrl_15: ld a,dcp a,#2ajr z,srl_16inc_error_cntsrl_16: ld e,data_ffsrl ejr c,srl_17inc_error_cntsrl_17: ld a,ecp a,data_7fjr z,srl_18inc_error_cntsrl_18: ld h,#12 ;bjp was >data_1234srl hjr nc,srl_19inc_error_cntsrl_19: ld a,hcp a,9jr z,srl_20inc_error_cntsrl_20: ld l,#34 ;bjp was >data_1234srl ljr nc,srl_21inc_error_cntsrl_21: ld a,lcp a,#1ajr z,srl_22inc_error_cntsrl_22: ld hl,t_var1ld (hl),data_55srl (hl)jr c,srl_23inc_error_cntsrl_23: jp po,srl_24inc_error_cntsrl_24: srl (hl)jr nc,srl_25inc_error_cntsrl_25: srl (hl)jp pe,srl_26inc_error_cntsrl_26: ld a,(hl)cp a,#0a ;data_aa.and.#0fjr z,srl_27inc_error_cntsrl_27: ld (hl),data_80and (hl)jp z,srl_28inc_error_cntsrl_28: srl (hl)jp p,srl_29inc_error_cntsrl_29: ld a,(hl)cp a,#40jr z,srl_30inc_error_cntsrl_30: ld (hl),2srl (hl)jr nz,srl_31inc_error_cntsrl_31: srl (hl)jr z,srl_32inc_error_cntsrl_32: jr c,srl_33inc_error_cntsrl_33: ld ix,t_var3ld a,data_55ld (ix+2),asrl (ix+2)jr c,srl_34inc_error_cntsrl_34: jp po,srl_35inc_error_cntsrl_35: srl (ix+2)jr nc,srl_36inc_error_cntsrl_36: srl (ix+2)jp pe,srl_37inc_error_cntsrl_37: ld a,(ix+2)cp a,#0a ;data_aa.and.#0fjr z,srl_38inc_error_cntsrl_38: ld a,data_80ld (ix-2),aand (ix-2)jp m,srl_39inc_error_cntsrl_39: srl (ix-2)jp p,srl_40inc_error_cntsrl_40: ld a,(ix-2)cp a,#40jr z,srl_41inc_error_cntsrl_41: ld a,2ld (ix+1),asrl (ix+1)jr nz,srl_42inc_error_cntsrl_42: srl (ix+1)jr z,srl_43inc_error_cntsrl_43: jr c,srl_44inc_error_cntsrl_44: ld iy,t_var3ld a,data_55ld (iy+2),asrl (iy+2)jr c,srl_45inc_error_cntsrl_45: jp po,srl_46inc_error_cntsrl_46: srl (iy+2)jr nc,srl_47inc_error_cntsrl_47: srl (iy+2)jp pe,srl_48inc_error_cntsrl_48: ld a,(iy+2)cp a,#0a ;data_aa.and.#0fjr z,srl_49inc_error_cntsrl_49: ld a,data_80ld (iy-2),aand (iy-2)jp m,srl_50inc_error_cntsrl_50: srl (iy-2)jp p,srl_51inc_error_cntsrl_51: ld a,(iy-2)cp a,#40jr z,srl_52inc_error_cntsrl_52: ld a,2ld (iy+1),asrl (iy+1)jr nz,srl_53inc_error_cntsrl_53: srl (iy+1)jr z,srl_54inc_error_cntsrl_54: jr c,rld_0inc_error_cntrld_0: ld hl,t_var5ld a,data_55ld (hl),data_aarldjp p,rld_1inc_error_cntrld_1: cp a,data_55+5jr z,rld_2inc_error_cntrld_2: ld a,(hl)cp a,data_aa-5jr z,rld_3inc_error_cntrld_3: ld (hl),data_7fld a,data_80rldjp m,rld_4inc_error_cntrld_4: jp pe,rld_5inc_error_cntrld_5: rldjp po,rld_6inc_error_cntrld_6: cp a,data_80+15jr z,rld_7inc_error_cntrld_7: ld a,(hl)cp a,7jr z,rld_8inc_error_cntrld_8: ld a,#05 ;data_55.and.#0fld (hl),#0a ;data_aa.and.#0frldjr z,rld_9inc_error_cntrld_9: ld a,(hl)cp a,#a5jr z,rrd_0inc_error_cntrrd_0: ld hl,t_var3ld a,data_55ld (hl),data_aarrdjp p,rrd_1inc_error_cntrrd_1: jp pe,rrd_2inc_error_cntrrd_2: jr nz,rrd_3inc_error_cntrrd_3: cp a,data_55+5jr z,rrd_4inc_error_cntrrd_4: ld a,(hl)cp a,data_55+5jr z,rrd_5inc_error_cntrrd_5: ld (hl),data_7fld a,data_80rrdjp m,rrd_6inc_error_cntrrd_6: jp po,rrd_7inc_error_cntrrd_7: cp a,data_80+15jr z,rrd_8inc_error_cntrrd_8: ld a,(hl)cp a,7jr z,rrd_9inc_error_cntrrd_9: ld a,8ld (hl),0rrdjr z,rrd_10inc_error_cntrrd_10: ld a,(hl)cp a,data_80jr z,bit_0inc_error_cntbit_0: ld a,data_ffbit 0,ajr nz,bit_1inc_error_cntbit_1: bit 1,ajr nz,bit_2inc_error_cntbit_2: bit 2,ajr nz,bit_3inc_error_cntbit_3: bit 3,ajr nz,bit_4inc_error_cntbit_4: bit 4,ajr nz,bit_5inc_error_cntbit_5: bit 5,ajr nz,bit_6inc_error_cntbit_6: bit 6,ajr nz,bit_7inc_error_cntbit_7: bit 7,ajr nz,bit_8inc_error_cntbit_8: ld a,0bit 0,ajr z,bit_9inc_error_cntbit_9: bit 1,ajr z,bit_10inc_error_cntbit_10: bit 2,ajr z,bit_11inc_error_cntbit_11: bit 3,ajr z,bit_12inc_error_cntbit_12: bit 4,ajr z,bit_13inc_error_cntbit_13: bit 5,ajr z,bit_14inc_error_cntbit_14: bit 6,ajr z,bit_15inc_error_cntbit_15: bit 7,ajr z,bit_16inc_error_cntbit_16: ld b,data_80bit 2,bjr z,bit_17inc_error_cntbit_17: bit 7,bjr nz,bit_18inc_error_cntbit_18: ld c,data_55bit 7,cjr z,bit_19inc_error_cntbit_19: bit 0,cjr nz,bit_20inc_error_cntbit_20: ld d,data_aabit 7,djr nz,bit_21inc_error_cntbit_21: bit 4,djr z,bit_22inc_error_cntbit_22: ld e,data_7fbit 7,ejr z,bit_23inc_error_cntbit_23: bit 3,ejr nz,bit_24inc_error_cntbit_24: ld h,#12 ;bjp was >data_1234bit 4,hjr nz,bit_25inc_error_cntbit_25: bit 2,hjr z,bit_26inc_error_cntbit_26: ld l,#34 ;bjp was >data_1234bit 3,ljr z,bit_27inc_error_cntbit_27: bit 2,ljr nz,bit_28inc_error_cntbit_28: ld hl,t_var4ld (hl),data_55bit 0,(hl)jr nz,bit_29inc_error_cntbit_29: bit 1,(hl)jr z,bit_30inc_error_cntbit_30: bit 2,(hl)jr nz,bit_31inc_error_cntbit_31: bit 3,(hl)jr z,bit_32inc_error_cntbit_32: bit 4,(hl)jr nz,bit_33inc_error_cntbit_33: bit 5,(hl)jr z,bit_34inc_error_cntbit_34: bit 6,(hl)jr nz,bit_35inc_error_cntbit_35: bit 7,(hl)jr z,bit_36inc_error_cntbit_36: ld ix,t_var3ld a,data_aald (ix-2),abit 0,(ix-2)jr z,bit_37inc_error_cntbit_37: bit 1,(ix-2)jr nz,bit_38inc_error_cntbit_38: bit 2,(ix-2)jr z,bit_39inc_error_cntbit_39: bit 3,(ix-2)jr nz,bit_40inc_error_cntbit_40: bit 4,(ix-2)jr z,bit_41inc_error_cntbit_41: bit 5,(ix-2)jr nz,bit_42inc_error_cntbit_42: bit 6,(ix-2)jr z,bit_43inc_error_cntbit_43: bit 7,(ix-2)jr nz,bit_44inc_error_cntbit_44: ld iy,t_var3ld a,data_55ld (iy+2),abit 0,(iy+2)jr nz,bit_45inc_error_cntbit_45: bit 1,(iy+2)jr z,bit_46inc_error_cntbit_46: bit 2,(iy+2)jr nz,bit_47inc_error_cntbit_47: bit 3,(iy+2)jr z,bit_48inc_error_cntbit_48: bit 4,(iy+2)jr nz,bit_49inc_error_cntbit_49: bit 5,(iy+2)jr z,bit_50inc_error_cntbit_50: bit 6,(iy+2)jr nz,bit_51inc_error_cntbit_51: bit 7,(iy+2)jr z,set_0inc_error_cntset_0: ld a,0set 0,aset 2,aset 4,aset 6,acp a,data_55jr z,set_1inc_error_cntset_1: set 1,aset 3,aset 5,aset 7,acp a,data_ffjr z,set_2inc_error_cntset_2: ld b,0set 1,bset 3,bld a,bcp a,#0a ;data_aa.and.#0fjr z,set_3inc_error_cntset_3: ld c,0set 1,cset 4,cld a,ccp a,#12 ;bjp was >data_1234jr z,set_4inc_error_cntset_4: ld d,0set 2,dset 4,dset 5,dld a,dcp a,#34 ;bjp was >data_1234jr z,set_5inc_error_cntset_5: ld e,0set 7,eld a,ecp a,data_80jr z,set_6inc_error_cntset_6: ld h,0set 0,hset 2,hset 4,hset 6,hld a,hcp a,data_55jr z,set_7inc_error_cntset_7: ld l,0set 1,lset 3,lset 5,lset 7,lld a,lcp a,data_aajr z,set_8inc_error_cntset_8: ld hl,t_var5ld (hl),0set 0,(hl)set 2,(hl)set 4,(hl)set 6,(hl)ld a,(hl)cp a,data_55jr z,set_9inc_error_cntset_9: ld (hl),0set 1,(hl)set 3,(hl)set 5,(hl)set 7,(hl)ld a,(hl)cp a,data_aajr z,set_10inc_error_cntset_10: ld ix,t_var3ld a,0ld (ix-2),ald (ix+2),aset 0,(ix-2)set 2,(ix-2)set 4,(ix-2)set 6,(ix-2)ld a,(ix-2)cp a,data_55jr z,set_11inc_error_cntset_11: set 1,(ix+2)set 3,(ix+2)set 5,(ix+2)set 7,(ix+2)ld a,(ix+2)cp a,data_aajr z,set_12inc_error_cntset_12: ld iy,t_var3ld a,0ld (iy-1),ald (iy+1),aset 0,(iy-1)set 2,(iy-1)set 4,(iy-1)set 6,(iy-1)ld a,(iy-1)cp a,data_55jr z,set_13inc_error_cntset_13: set 1,(iy+1)set 3,(iy+1)set 5,(iy+1)set 7,(iy+1)ld a,(iy+1)cp a,data_aajr z,res_0inc_error_cntres_0: ld a,data_ffres 7,acp a,data_7fjr z,res_1inc_error_cntres_1: res 5,ares 3,ares 1,acp a,data_55jr z,res_2inc_error_cntres_2: ld a,data_ffres 0,ares 2,ares 4,ares 6,acp a,data_aajr z,res_3inc_error_cntres_3: ld b,data_ffres 7,bld a,bcp a,data_7fjr z,res_4inc_error_cntres_4: ld c,data_ffres 0,cres 1,cres 2,cres 3,cres 4,cres 5,cres 6,cld a,ccp a,data_80jr z,res_5inc_error_cntres_5: ld d,data_ffres 0,dres 2,dres 4,dres 6,dld a,dcp a,data_aajr z,res_6inc_error_cntres_6: ld e,data_ffres 1,eres 3,eres 5,eres 7,eld a,ecp a,data_55jr z,res_7inc_error_cntres_7: ld h,data_ffres 0,hres 2,hres 3,hres 5,hres 6,hres 7,hld a,hcp a,#12 ;bjp was >data_1234jr z,res_8inc_error_cntres_8: ld l,data_ffres 0,lres 1,lres 3,lres 6,lres 7,lld a,lcp a,#34 ;bjp was >data_1234jr z,res_9inc_error_cntres_9: ld hl,t_var3ld (hl),data_ffres 0,(hl)res 2,(hl)res 4,(hl)res 6,(hl)ld a,(hl)cp a,data_aajr z,res_10inc_error_cntres_10: res 1,(hl)res 3,(hl)res 5,(hl)res 7,(hl)ld a,(hl)cp a,0jr z,res_11inc_error_cntres_11: ld ix,t_var3ld a,data_ffld (ix-2),ald (ix+2),ares 1,(ix-2)res 3,(ix-2)res 5,(ix-2)res 7,(ix-2)ld a,(ix-2)cp a,data_55jr z,res_12inc_error_cntres_12: res 0,(ix+2)res 2,(ix+2)res 4,(ix+2)res 6,(ix+2)ld a,(ix+2)cp a,data_aajr z,res_13inc_error_cntres_13: ld iy,t_var3ld a,data_ffld (iy-1),ald (iy+1),ares 1,(iy-1)res 3,(iy-1)res 5,(iy-1)res 7,(iy-1)ld a,(iy-1)cp a,data_55jr z,res_14inc_error_cntres_14: res 0,(iy+1)res 2,(iy+1)res 4,(iy+1)res 6,(iy+1)ld a,(iy+1)cp a,data_aajr z,jp_0inc_error_cntjp_0: jp jp_1nopnopinc_error_cntjp_1: ld a,0and ajp z,jp_2inc_error_cntjp_2: jp nc,jp_3inc_error_cntjp_3: ld b,1sub a,bjp nz,jp_4inc_error_cntjp_4: jp c,jp_5inc_error_cntjp_5: jp jp_7inc_error_cntjp_6: jp jr_0inc_error_cntjp_7: jp jp_6inc_error_cntjr_0: jr jr_2inc_error_cntjr_1: jr jr_3inc_error_cntjr_2: jr jr_1inc_error_cntjr_3: ld hl,jp_9jp (hl)inc_error_cntjp_8: ld ix,jp_10jp (ix)inc_error_cntjp_9: jp jp_8inc_error_cntjp_10: ld iy,djnz_0jp (iy)inc_error_cntdjnz_0: ld b,5ld a,0djnz_1: inc adjnz djnz_1cp a,5jr z,call_0inc_error_cntcall_0: ld a,0call sub1cp a,data_7fjr z,call_1inc_error_cntcall_1: ld a,0and acall z,sub2cp a,data_55jr z,call_2inc_error_cntcall_2: ld a,data_aaand acall nz,sub3cp a,data_aa+1jr z,call_3inc_error_cntcall_3: ld a,0cp a,0call nc,sub4cp a,data_ffjr z,call_4inc_error_cntcall_4: ld a,0sub a,1call c,sub5cp a,data_ff-1jr z,call_5inc_error_cntcall_5: ld a,data_7fsla acall po,sub6cp a,data_7fjr z,call_6inc_error_cntcall_6: ld a,data_aasrl acall pe,sub7cp a,data_aajr z,call_7inc_error_cntcall_7: ld a,data_80sra acall m,sub8cp a,data_80jr z,call_8inc_error_cntcall_8: ld a,data_7fsra acall p,sub9cp a,data_7fjr z,rst_0inc_error_cntrst_0: rst #00cp a,1jr z,rst_1inc_error_cntrst_1: rst #08cp a,2jr z,rst_2inc_error_cntrst_2: rst #10cp a,3jr z,rst_3inc_error_cntrst_3: rst #18cp a,4jr z,rst_4inc_error_cntrst_4: rst #20cp a,5jr z,rst_5inc_error_cntrst_5: rst #28cp a,6jr z,rst_6inc_error_cntrst_6: rst #30cp a,7jr z,rst_7inc_error_cntrst_7: rst #38cp a,8jr z,in_0inc_error_cntin_0: in a,(in_port)cp a,data_7fjr z,in_1inc_error_cntin_1: ld c,in_portin a,(c)jr nz,in_2inc_error_cntin_2: jp p,in_3inc_error_cntin_3: jp pe,in_4inc_error_cntin_4: cp a,data_55jr z,in_5inc_error_cntin_5: in a,(c)jp m,in_6inc_error_cntin_6: jp po,in_7inc_error_cntin_7: jr nz,in_8inc_error_cntin_8: cp a,data_80jr z,in_9inc_error_cntin_9: in a,(c)jr z,in_10inc_error_cntin_10: in b,(c)jp m,in_11inc_error_cntin_11: ld a,bcp a,data_ffjr z,in_12inc_error_cntin_12: in d,(c)jp pe,in_13inc_error_cntin_13: ld a,dcp a,data_aajr z,in_14inc_error_cntin_14: in e,(c)jp p,in_15inc_error_cntin_15: ld a,ecp a,data_7fjr z,in_16inc_error_cntin_16: in h,(c)jp pe,in_17inc_error_cntin_17: ld a,hcp a,data_55jr z,in_18inc_error_cntin_18: in l,(c)jp m,in_19inc_error_cntin_19: ld a,lcp a,data_80jr z,in_20inc_error_cntin_20: in c,(c)jr z,in_21inc_error_cntin_21: ld c,in_portld b,2ld hl,t_var1inijr nz,in_22inc_error_cntin_22: inijr z,in_23inc_error_cntin_23: ld hl,t_var1ld a,(hl)cp a,data_ffjr z,in_24inc_error_cntin_24: inc hlld a,(hl)cp a,data_aajr z,in_25inc_error_cntin_25: ld b,5ld c,in_portld hl,t_var1inirjr z,in_26inc_error_cntin_26: ld hl,t_var1ld a,(hl)cp a,data_7fjr z,in_27inc_error_cntin_27: inc hlld a,(hl)cp a,data_55jr z,in_28inc_error_cntin_28: inc hlld a,(hl)cp a,data_80jr z,in_29inc_error_cntin_29: inc hlld a,(hl)cp a,0jr z,in_30inc_error_cntin_30: inc hlld a,(hl)cp a,data_ffjr z,in_31inc_error_cntin_31: ld b,2ld c,in_portld hl,t_var5indjr nz,in_32inc_error_cntin_32: indjr z,in_33inc_error_cntin_33: ld hl,t_var5ld a,(hl)cp a,data_aajr z,in_34inc_error_cntin_34: dec hlld a,(hl)cp a,data_7fjr z,in_35inc_error_cntin_35: ld b,5ld c,in_portld hl,t_var5indrjr z,in_36inc_error_cntin_36: ld hl,t_var5ld a,(hl)cp a,data_55jr z,in_37inc_error_cntin_37: dec hlld a,(hl)cp a,data_80jr z,in_38inc_error_cntin_38: dec hlld a,(hl)cp a,0jr z,in_39inc_error_cntin_39: dec hlld a,(hl)cp a,data_ffjr z,in_40inc_error_cntin_40: dec hlld a,(hl)cp a,data_aajr z,in_41inc_error_cnt; 10,09,2007 Test for Howard Hart's IN bugin_41: ld hl, t_var1ld a, #34 ; something not in the input sequencerin a,(in_port)ld (hl), a ; 10/12/2007 previously this instruction got skippedld a, #34ld a,(hl)cp a,data_7fjr z,ldi_0inc_error_cntldi_0: ld hl,t_var1ld a,#12 ;bjp was >data_1234ld (hl),ainc hlld a,#34 ;bjp was >data_1234ld (hl),adec hlld de,t_var3ld bc,2ldijp pe,ldi_1inc_error_cntldi_1: ldijp po,ldi_2inc_error_cntldi_2: ld hl,t_var3ld a,(hl)cp a,#12 ;bjp was >data_1234jr z,ldi_3inc_error_cntldi_3: inc hlld a,(hl)cp a,#34 ;bjp was >data_1234jr z,ldir_0inc_error_cntldir_0: ld hl,var1ld de,t_var1ld bc,5ei ;bjp be sure we can interrupt this instructionldirjp po,ldir_1inc_error_cntldir_1: ld hl,t_var1ld a,(hl)cp a,data_ffjr z,ldir_2inc_error_cntldir_2: inc hlld a,(hl)cp a,data_55jr z,ldir_3inc_error_cntldir_3: inc hlld a,(hl)cp a,data_80jr z,ldir_4inc_error_cntldir_4: inc hlld a,(hl)cp a,data_aajr z,ldir_5inc_error_cntldir_5: inc hlld a,(hl)cp a,data_7fjr z,ldd_0inc_error_cntldd_0: ld hl,t_var5ld a,#12 ;bjp was >data_1234ld (hl),adec hlld a,#34 ;bjp was >data_1234ld (hl),ainc hlld bc,2ld de,t_var3lddjp pe,ldd_1inc_error_cntldd_1: lddjp po,ldd_2inc_error_cntldd_2: ld hl,t_var3ld a,(hl)cp a,#12 ;bjp was >data_1234jr z,ldd_3inc_error_cntldd_3: dec hlld a,(hl)cp a,#34 ;bjp was >data_1234jr z,lddr_0inc_error_cntlddr_0: ld bc,5ld hl,var5ld de,t_var5lddrjp po,lddr_1inc_error_cntlddr_1: ld hl,t_var1ld a,(hl)cp a,data_ffjr z,lddr_2inc_error_cntlddr_2: inc hlld a,(hl)cp a,data_55jr z,lddr_3inc_error_cntlddr_3: inc hlld a,(hl)cp a,data_80jr z,lddr_4inc_error_cntlddr_4: inc hlld a,(hl)cp a,data_aajr z,lddr_5inc_error_cntlddr_5: inc hlld a,(hl)cp a,data_7fjr z,cpi_0inc_error_cntcpi_0: ld hl,t_var1ld bc,5ld a,data_7fcpijp pe,cpi_1inc_error_cntcpi_1: jp m,cpi_2inc_error_cntcpi_2: jr nz,cpi_3inc_error_cntcpi_3: cpijp pe,cpi_4inc_error_cntcpi_4: jp p,cpi_5inc_error_cntcpi_5: jr nz,cpi_6inc_error_cntcpi_6: cpijp pe,cpi_7inc_error_cntcpi_7: jp m,cpi_8inc_error_cntcpi_8: jr nz,cpi_9inc_error_cntcpi_9: cpijp pe,cpi_10inc_error_cntcpi_10: jp m,cpi_11inc_error_cntcpi_11: jr nz,cpi_12inc_error_cntcpi_12: cpijp po,cpi_13inc_error_cntcpi_13: jp p,cpi_14inc_error_cntcpi_14: jr z,cpir_0inc_error_cntcpir_0: ld a,data_aald hl,var1ld bc,5cpirjr z,cpir_1inc_error_cntcpir_1: jp pe,cpir_2inc_error_cntcpir_2: ld a,bcp a,0jr z,cpir_3inc_error_cntcpir_3: ld a,ccp a,1jr z,cpir_4inc_error_cntcpir_4: ld a,data_7fld hl,var1ld bc,5cpirjp po,cpir_5inc_error_cntcpir_5: jr z,cpir_6inc_error_cntcpir_6: ld a,#34 ;bjp was >data_1234ld hl,var1ld bc,5cpirjp po,cpir_7inc_error_cntcpir_7: jr nz,cpir_8inc_error_cntcpir_8: jp m,cpir_9inc_error_cntcpir_9: ld a,data_aald hl,var1ld bc,3cpirjp po,cpir_10inc_error_cntcpir_10: jp p,cpir_11inc_error_cntcpir_11: jr nz,cpd_0inc_error_cntcpd_0: ld a,data_ffld hl,var5ld bc,5cpdjp m,cpd_1inc_error_cntcpd_1: jp pe,cpd_2inc_error_cntcpd_2: jr nz,cpd_3inc_error_cntcpd_3: cpdjp p,cpd_4inc_error_cntcpd_4: jp pe,cpd_5inc_error_cntcpd_5: jr nz,cpd_6inc_error_cntcpd_6: cpdjp p,cpd_7inc_error_cntcpd_7: jp pe,cpd_8inc_error_cntcpd_8: jr nz,cpd_9inc_error_cntcpd_9: cpdjp m,cpd_10inc_error_cntcpd_10: jp pe,cpd_11inc_error_cntcpd_11: jr nz,cpd_12inc_error_cntcpd_12: cpdjp p,cpd_13inc_error_cntcpd_13: jp po,cpd_14inc_error_cntcpd_14: jr z,cpdr_0inc_error_cntcpdr_0: ld a,data_80ld hl,var5ld bc,5cpdrjp pe,cpdr_1inc_error_cntcpdr_1: jp p,cpdr_2inc_error_cntcpdr_2: jr z,cpdr_3inc_error_cntcpdr_3: ld a,bcp a,0jr z,cpdr_4inc_error_cntcpdr_4: ld a,ccp a,2jr z,cpdr_5inc_error_cntcpdr_5: ld a,#34 ;bjp was >data_1234ld hl,var5ld bc,5cpdrjp po,cpdr_6inc_error_cntcpdr_6: jr nz,cpdr_7inc_error_cntcpdr_7: jp p,cpdr_8inc_error_cntcpdr_8: ld a,#34 ;bjp was >data_1234ld hl,var5ld bc,3cpdrjp po,cpdr_9inc_error_cntcpdr_9: jr nz,cpdr_10inc_error_cntcpdr_10: jp m,c_ret_finc_error_cnt;add a test for the Stephen Warren bug; first cut didn't do it. Lots of insts actually work. Gotta be something; basically executed from ir1 - like pushc_ret_f: dild de, #1122push depop afld hl, 0xaa55ld a,7cp 0ret zpush hlpop afcp a, data_aajp z, out_0inc_error_cnt;;the file portfe.xxx must be examined to see if the proper output is generated;out_0: di ; interrupts are tested, don't muck up outputld a,#30out (out_port),ald c,out_portld a,#31out (c),ald b,#32out (c),bld d,#33out (c),dld e,#34out (c),eld h,#35out (c),hld l,#36out (c),lout (c),c ;output value dividerouti_0: ld a,#31 ;set up output valuesld b,5ld hl,t_var1outi_1: ld (hl),ainc ainc hldjnz outi_1outi_2: ld c,out_portld b,5ld hl,t_var1outi_3: outijr nz,outi_3otir_0: out (c),c ;output value dividerld hl,t_var1ld b,5otirjr z,outd_0inc_error_cntoutd_0: out (c),cld hl,t_var5ld b,5outd_1: outdjr nz,outd_1otdr_0: out (c),cld b,5ld hl,t_var5otdrjr z,otdr_1inc_error_cntotdr_1: out (c),cld a,#0dout (c),ald a,#0aout (c),ainc_pass: ld a,(pass_count)inc ald (pass_count),ald hl,error_cntld a,(hl)cp a,0jr z,workedfailed: ld hl,fail_msgld b,27otirld hl, bist_adrld (hl), bist_ack+bist_errhaltnopnop;worked: passed ;???? bjpworked: ld hl,match_msgld b,33otirld hl,pass_msgld b,45otirld hl, bist_adrld (hl), bist_ackstop: haltnopnopnopint_start: push hlpush bcpush af ; bj -- this stuff gronks f as wellld hl, int_msgld b, 1ld c, out_portotirpop afpop bcpop hlreti;subroutine 1, must load a with #7f;sub1: ld a,data_7fret;;;subroutine 2, must load a with #55;sub2: ld a,data_55cp a,data_55ret z;;subroutine 3, increments a;sub3: inc aand aret nz;;subroutine 4, subtracts 1 from a;sub4: sub a,1ret c;;subroutine 5, subtracts 1 from a;sub5: sub a,1ret nc;;subroutine 6, shifts a right logically;sub6: srl aret po;;subroutine 7, shifts a left arithmetically;sub7: sla aret pe;;subroutine 8, shifts a left arithmetically;sub8: sla aret m;;subroutine 9, rotates a left;sub9: rl aret p;;restart 0 routine;rst_0000_1: ld a,(pass_count)or ajp nz,startld a,1ret;; data;fail_msg: db cr,lf,'instruction test failed',cr,lfmatch_msg: db lf,'0123456 12345 12345 54321 54321',lfpass_msg: db 'If above lines match instruction test passed',lfint_msg: db bell;message_addr: equ #be58var1: db data_ffvar2: db data_55var3: db data_80var4: db data_aavar5: db data_7f;org #7000t_var1: db 0t_var2: db 0t_var3: db 0t_var4: db 0t_var5: db 0;w_var1: dw data_1234w_var2: dw data_55aaw_var3: dw data_7fffw_var4: dw data_8000w_var5: dw data_aa55w_var6: dw data_ffff;tw_var1: dw 0tw_var2: dw 0tw_var3: dw 0tw_var4: dw 0tw_var5: dw 0tw_var6: dw 0tw_var7: dw 0;error_cnt: db 0pass_count: db 1;org #7100stack: ds 128stack_end: equ $;end start; only a single pointer in the interrupt tableorg #7200int_tbl: dw 0org #72feint_ptr: dw int_start
Go to most recent revision | Compare with Previous | Blame | View Log