URL
https://opencores.org/ocsvn/tv80/tv80/trunk
Subversion Repositories tv80
[/] [tv80/] [trunk/] [tests/] [alu_optest.ast] - Rev 115
Go to most recent revision | Compare with Previous | Blame | View Log
; Test of load opcodes;; Goes through most varieties of load opcode and tests for; correct behavior..module load_optest;--------------------------------------------------------; special function registers;--------------------------------------------------------_sim_ctl_port = 0x0080_msg_port = 0x0081_timeout_port = 0x0082_max_timeout_low = 0x0083_max_timeout_high = 0x0084_intr_cntdwn = 0x0090_cksum_value = 0x0091_cksum_accum = 0x0092_inc_on_read = 0x0093stack_end = 0xFFFF.area INIT (ABS).org 0jp initinit:ld sp, #stack_endjp startpassed:ld a, #0x0out (_sim_ctl_port), ahaltfailed:ld a, #0x0out (_sim_ctl_port), ahalt;; subroutine to print a message;; called from within the "print" macro;; expects address to be printed in hl;; preserves all other registersprint_sub:push bcld b, aprint_sub_loop:ld a, (hl)cp #0x0jp z, print_sub_exitout (_msg_port), ainc hljp print_sub_loopprint_sub_exit:ld a, bpop bcret;; print a hex number between 0-255, stored in the A registerprint_number:push bcld b, a ; store number to be printed in band #0xF0sra asra asra asra acp a, #10jp p, alpha_0add #48 ; ordinal value of '0'out (_msg_port), ajp second_digitalpha_0:add #55 ; 'A' - 10out (_msg_port), asecond_digit:ld a, band #0x0Fcp a, #10jp p, alpha_1add #48out (_msg_port), ajp print_number_exitalpha_1:add #55 ; 'A' - 10out (_msg_port), aprint_number_exit:pop bcretfail_text: .ascii "Test failed at checkpoint #".db #0x0; expects failing message number in Bfail_routine:ld hl, #fail_textcall print_sub ; print out boilerplate textld a, bcall print_number ; print out error numberld a, #0x0a ; print carriage returnout (_msg_port), ajp failedstarting_test: .ascii "Starting test".db 0x0A .db 0x00push_message: .ascii "push_0".db 0xa.db 0x0msg_ex_0: .ascii "ex_0" .db 0xa .db 0x0msg_add_0: .ascii "add_0" .db 0xa .db 0x0msg_adc_0: .ascii "adc_0" .db 0xa .db 0x0msg_sub_0: .ascii "sub_0" .db 0xa .db 0x0msg_sbc_0: .ascii "sbc_0" .db 0xa .db 0x0msg_and_0: .ascii "and_0" .db 0xa .db 0x0msg_or_0: .ascii "or_0" .db 0xa .db 0x0msg_xor_0: .ascii "xor_0" .db 0xa .db 0x0msg_cp_0: .ascii "cp_0" .db 0xa .db 0x0msg_inc: .ascii "inc" .db 0xa .db 0x0msg_dec: .ascii "dec" .db 0xa .db 0x0msg_neg: .ascii "neg" .db 0xa .db 0x0error_cnt:.db 0;; Ordering of segments for the linker..area _HOME.area _CODE.area _GSINIT.area _GSFINAL.area _DATA.area _BSS.area _HEAP.area _CODE;------------------------------------------------------------; Beginning of test;------------------------------------------------------------start:ld hl, #starting_testcall print_subld a, #0x1ld hl,#error_cntld (hl),a ;clear error countpush_0: ld sp,#stack_endld hl, #push_messagecall print_subld bc,#0x1234push bcld bc,#0pop bcld a,#0x12 ;bjp was >#0x1234cp bjr z,push_1ld b, #0jp fail_routinepush_1: ld a,#0x34 ;bjp was >#0x1234cp cjr z,push_2ld b, #1jp fail_routinepush_2: ld de,#0x55aapush deld de,#0pop deld a,#0x55cp djr z,push_3ld b, #2jp fail_routinepush_3: ld a,#0xaacp ejr z,push_4ld b, #3jp fail_routinepush_4: ld hl,#0x7fffpush hlld hl,#0pop hlld a,#0x7fcp hjr z,push_5ld b, #4jp fail_routinepush_5: ld a,#0xffcp ljr z,push_6ld b, #5jp fail_routinepush_6: ld a,#0x80push af ;f depends on previous compareld hl,#0pop hlcp hjr z,push_7ld b, #6jp fail_routinepush_7: ld a,lcp #0x42jr z,push_8push_8: ld h,#0x55ld l,#0x80+#0x41ld a,#0push hlpop afjp m,push_9ld b, #8jp fail_routinepush_9: jr z,push_10ld b, #9jp fail_routinepush_10: jr c,push_11ld b, #10jp fail_routinepush_11: cp #0x55jr z,push_12ld b, #11jp fail_routinepush_12: ld ix,#0xaa55ld bc,#0push ixpop bcld a,#0xaacp bjr z,push_13ld b, #12jp fail_routinepush_13: ld a,#0x55cp cjr z,push_14ld b, #13jp fail_routinepush_14: ld iy,#0x7fffld de,#0push iypop deld a,#0x7fcp djr z,push_15ld b, #14jp fail_routinepush_15: ld a,#0xffcp ejr z,push_16ld b, #15jp fail_routinepush_16: ld de,#0x1234ld ix,#0ld hl,#0push depop ixld sp,ixadd hl,spld a,#0x12 ;bjp was >#0x1234cp hjr z,push_17ld b, #16jp fail_routinepush_17: ld a,#0x34 ;bjp was >#0x1234cp ljr z,push_18ld b, #17jp fail_routinepush_18: ld sp,#stack_endld bc,#0x55aald iy,#0ld hl,#0push bcpop iyld sp,iyadd hl,spld a,#0x55cp hjr z,push_19ld b, #18jp fail_routinepush_19: ld a,#0xaacp ljr z,push_20ld b, #19jp fail_routinepush_20: ld sp,#stack_endld hl, #msg_ex_0call print_subex_0: ld de,#0x1234ld hl,#0xffffex de,hlld a,#0xffcp djr z,ex_1ld b, #0jp fail_routineex_1: cp ejr z,ex_2ld b, #1jp fail_routineex_2: ld a,#0x12 ;bjp was >#0x1234cp hjr z,ex_3ld b, #2jp fail_routineex_3: ld a,#0x34 ;bjp was >#0x1234cp ljr z,ex_4ld b, #3jp fail_routineex_4: ld h,#0ld l,#0push hlpop afex af,af'ld h,#0x7fld l,#0x80+#0x41push hlpop afex af,af'cp #0jr z,ex_5ld b, #4jp fail_routineex_5: ex af,af'jp m,ex_6ld b, #5jp fail_routineex_6: jr z,ex_7ld b, #6jp fail_routineex_7: cp #0x7fjr z,ex_8ld b, #7jp fail_routineex_8: ld hl,#0ld bc,#0ld de,#0exxld hl,#0x1234ld bc,#0x7fffld de,#0xaa55exxld a,#0cp hjr z,ex_9ld b, #8jp fail_routineex_9: cp ljr z,ex_10ld b, #9jp fail_routineex_10: cp djr z,ex_11ld b, #10jp fail_routineex_11: cp ejr z,ex_12ld b, #11jp fail_routineex_12: cp bjr z,ex_13ld b, #12jp fail_routineex_13: cp cjr z,ex_14ld b, #13jp fail_routineex_14: exxld a,#0x12 ;bjp was >#0x1234cp hjr z,ex_15ld b, #14jp fail_routineex_15: ld a,#0x34 ;bjp was >#0x1234cp ljr z,ex_16ld b, #15jp fail_routineex_16: ld a,#0xaacp djr z,ex_17ld b, #16jp fail_routineex_17: ld a,#0x55cp ejr z,ex_18ld b, #17jp fail_routineex_18: ld a,#0x7fcp bjr z,ex_19ld b, #18jp fail_routineex_19: ld a,#0xffcp cjr z,ex_20ld b, #19jp fail_routineex_20: ld bc,#0x55aald hl,#0x7fffpush bcex (sp),hlpop bcld a,#0x7fcp bjr z,ex_21ld b, #20jp fail_routineex_21: ld a,#0xffcp cjr z,ex_22ld b, #21jp fail_routineex_22: ld a,#0x55cp hjr z,ex_23ld b, #22jp fail_routineex_23: ld a,#0xaacp ljr z,ex_24ld b, #23jp fail_routineex_24: ld bc,#0xffffld ix,#0x8000ld hl,#0push bcex (sp),ixpop bcld sp,ixadd hl,spld a,#0x80cp bjr z,ex_25ld b, #24jp fail_routineex_25: ld a,#0cp cjr z,ex_26ld b, #25jp fail_routineex_26: ld a,#0xffcp hjr z,ex_27ld b, #26jp fail_routineex_27: cp ljr z,ex_28ld b, #27jp fail_routineex_28: ld sp,#stack_endld bc,#0x1234ld iy,#0x7fffld hl,#0push bcex (sp),iypop bcld sp,iyadd hl,spld a,#0x7fcp bjr z,ex_29ld b, #28jp fail_routineex_29: ld a,#0xffcp cjr z,ex_30ld b, #29jp fail_routineex_30: ld a,#0x12 ;bjp was >#0x1234cp hjr z,ex_31ld b, #30jp fail_routineex_31: ld a,#0x34 ;bjp was >#0x1234cp ljr z,add_0ld b, #31jp fail_routineadd_0: ld sp,#stack_end ; reset stack after EX operationsld hl, #msg_add_0call print_subld a,#0ld b,#0x7fadd a,bcp #0x7fjr z,add_1ld b, #0jp fail_routineadd_1: ld a,#0ld b,#0add a,bjr z,add_2ld b, #1jp fail_routineadd_2: ld b,#0x55add a,bjr nz,add_3ld b, #2jp fail_routineadd_3: cp #0x55jr z,add_4ld b, #3jp fail_routineadd_4: ld a,#0xffld b,#1add a,bjr c,add_5ld b, #4jp fail_routineadd_5: add a,bjr nc,add_6ld b, #5jp fail_routineadd_6: ld a,#0xffld b,#0add a,bjp m,add_7ld b, #6jp fail_routineadd_7: ld b,#1add a,bjp p,add_8ld b, #7jp fail_routineadd_8: ld a,#0x7fld b,#1add a,bjp pe,add_9ld b, #8jp fail_routineadd_9: add a,bjp po,add_10ld b, #9jp fail_routineadd_10: ld a,#0x55ld c,#2add a,ccp #0x55+2jr z,add_11ld b, #10jp fail_routineadd_11: ld a,#0x80add a,ccp #0x80+2jr z,add_12ld b, #11jp fail_routineadd_12: ld a,#0xaald d,#0x55add a,dcp #0xaa+0x55jr z,add_13ld b, #12jp fail_routineadd_13: ld a,#0xaald e,#2add a,ecp #0xaa+2jr z,add_14ld b, #13jp fail_routineadd_14: ld a,#0x55ld h,#24add a,hcp #0x55+24jr z,add_15ld b, #14jp fail_routineadd_15: ld a,#0x7f-10ld l,#10add a,lcp #0x7fjr z,add_16ld b, #15jp fail_routineadd_16: ld a,#1add a,#0x7fjp pe,add_17ld b, #16jp fail_routineadd_17: jp m,add_18ld b, #17jp fail_routineadd_18: jr nz,add_19ld b, #18jp fail_routineadd_19: cp #0x80jr z,add_20ld b, #19jp fail_routineadd_20: ld a,#0x55add a,#1jp po,add_21ld b, #20jp fail_routineadd_21: jp p,add_22ld b, #21jp fail_routineadd_22: jr nc,add_23ld b, #22jp fail_routineadd_23: cp #0x55+1jr z,add_24ld b, #23jp fail_routineadd_24: ld a,#0xffadd a,#1jr c,add_25ld b, #24jp fail_routineadd_25: jr z,add_26ld b, #25jp fail_routineadd_26: add a,#1jr nc,add_27ld b, #26jp fail_routineadd_27: jr nz,add_28ld b, #27jp fail_routineadd_28: cp #1jr z,add_29ld b, #28jp fail_routineadd_29: ld hl,#var2ld a,#2add a,(hl)jp po,add_30ld b, #29jp fail_routineadd_30: jp p,add_31ld b, #30jp fail_routineadd_31: jr nz,add_32ld b, #31jp fail_routineadd_32: jr nc,add_33ld b, #32jp fail_routineadd_33: cp #0x55+2jr z,add_34ld b, #33jp fail_routineadd_34: ld hl,#var1ld a,#1add a,(hl)jr c,add_35ld b, #34jp fail_routineadd_35: jr z,add_36ld b, #35jp fail_routineadd_36: ld hl,#var5ld a,#1add a,(hl)jp m,add_37ld b, #36jp fail_routineadd_37: jp pe,add_38ld b, #37jp fail_routineadd_38: cp #0x80jr z,add_39ld b, #38jp fail_routineadd_39: ld ix,#var3ld a,#1add a,-1(ix)jp po,add_40ld b, #39jp fail_routineadd_40: jp p,add_41ld b, #40jp fail_routineadd_41: jr nz,add_42ld b, #41jp fail_routineadd_42: jr nc,add_43ld b, #42jp fail_routineadd_43: cp #0x55+1jr z,add_44ld b, #43jp fail_routineadd_44: ld a,#1add a,2(ix)jp pe,add_45ld b, #44jp fail_routineadd_45: jp m,add_46ld b, #45jp fail_routineadd_46: cp #0x80jr z,add_47ld b, #46jp fail_routineadd_47: ld a,#1add a,-2(ix)jr c,add_48ld b, #47jp fail_routineadd_48: jr z,add_49ld b, #48jp fail_routineadd_49: add a,#1jr nc,add_50ld b, #49jp fail_routineadd_50: jr nz,add_51ld b, #50jp fail_routineadd_51: cp #1jr z,add_52ld b, #51jp fail_routineadd_52: ld iy,#var3ld a,#10add a,-1(iy)jp po,add_53ld b, #52jp fail_routineadd_53: jp p,add_54ld b, #53jp fail_routineadd_54: jr nz,add_55ld b, #54jp fail_routineadd_55: jr nc,add_56ld b, #55jp fail_routineadd_56: cp #0x55+10jr z,add_57ld b, #56jp fail_routineadd_57: ld a,#1add a,2(iy)jp pe,add_58ld b, #57jp fail_routineadd_58: jp m,add_59ld b, #58jp fail_routineadd_59: add a,#1jp po,add_60ld b, #59jp fail_routineadd_60: cp #0x80+1jr z,add_61ld b, #60jp fail_routineadd_61: ld a,#1add a,-2(iy)jr z,add_62ld b, #61jp fail_routineadd_62: jr c,add_63ld b, #62jp fail_routineadd_63: add a,#1jr nc,add_64ld b, #63jp fail_routineadd_64: jr nz,add_65ld b, #64jp fail_routineadd_65: cp #1jr z,add_66ld b, #65jp fail_routineadd_66: ld a,#0xffadd a,#0x80jp p,add_67ld b, #66jp fail_routineadd_67: jp pe,add_68ld b, #67jp fail_routineadd_68: jr c,add_69ld b, #68jp fail_routineadd_69: add a,#1jp pe,add_70ld b, #69jp fail_routineadd_70: jp m,add_71ld b, #70jp fail_routineadd_71: jr nc,add_72ld b, #71jp fail_routineadd_72: add a,#1jp po,add_73ld b, #72jp fail_routineadd_73: cp #0x80+1jr z,adc_0ld b, #73jp fail_routineadc_0: nopld hl, #msg_adc_0call print_subld a,#0 ;clear cryadd a,#0ld b,#0x7fadc a,b ;a=7f cry=0jp p,adc_1ld b, #0jp fail_routineadc_1: jp po,adc_2ld b, #1jp fail_routineadc_2: jr nc,adc_3ld b, #2jp fail_routineadc_3: jr nz,adc_4ld b, #3jp fail_routineadc_4: ld b,#1adc a,b ;a=80 cry=0jp pe,adc_5 ;jp oflld b, #4jp fail_routineadc_5: jp m,adc_6ld b, #5jp fail_routineadc_6: cp #0x80jr z,adc_7 ;z=0 ofl=0 cry=0 (borrow)ld b, #6jp fail_routineadc_7: ld a,#0xffld b,#1adc a,b ;ff+1+0jr c,adc_8ld b, #7jp fail_routineadc_8: jr z,adc_9ld b, #8jp fail_routineadc_9: adc a,bjr nc,adc_10ld b, #9jp fail_routineadc_10: jr nz,adc_11ld b, #10jp fail_routineadc_11: cp #2jr z,adc_12ld b, #11jp fail_routineadc_12: ld a,#0xffld c,#0adc a,cjp m,adc_13ld b, #12jp fail_routineadc_13: jr nc,adc_14ld b, #13jp fail_routineadc_14: ld c,#2adc a,cjp p,adc_15ld b, #14jp fail_routineadc_15: jr c,adc_16ld b, #15jp fail_routineadc_16: ld c,#0adc a,ccp #2jr z,adc_17ld b, #16jp fail_routineadc_17: ld a,#0xffld d,#1adc a,djr c,adc_18ld b, #17jp fail_routineadc_18: ld d,#0adc a,djr nc,adc_19ld b, #18jp fail_routineadc_19: cp #1jr z,adc_20ld b, #19jp fail_routineadc_20: ld a,#0xaald e,#0x7fadc a,ejr c,adc_21ld b, #20jp fail_routineadc_21: ld e,#0x2adc a,ecp #0x55jr z,adc_22ld b, #21jp fail_routineadc_22: ld a,#0xffld h,#1adc a,hjr c,adc_23ld b, #22jp fail_routineadc_23: adc a,hcp #2jr z,adc_24ld b, #23jp fail_routineadc_24: ld a,#0xffld l,#1adc a,ljr c,adc_25ld b, #24jp fail_routineadc_25: adc a,lcp #2jr z,adc_26ld b, #25jp fail_routineadc_26: ld a,#0adc a,#0x7fjp po,adc_27ld b, #26jp fail_routineadc_27: jp p,adc_28ld b, #27jp fail_routineadc_28: jr nc,adc_29ld b, #28jp fail_routineadc_29: jr nz,adc_30ld b, #29jp fail_routineadc_30: adc a,#1jp pe,adc_31ld b, #30jp fail_routineadc_31: jp m,adc_32ld b, #31jp fail_routineadc_32: cp #0x80jr z,adc_33ld b, #32jp fail_routineadc_33: ld a,#0xffadc a,#1jr c,adc_34ld b, #33jp fail_routineadc_34: jr z,adc_35ld b, #34jp fail_routineadc_35: adc a,#1jr nc,adc_36ld b, #35jp fail_routineadc_36: jr nz,adc_37ld b, #36jp fail_routineadc_37: cp #2jr z,adc_38ld b, #37jp fail_routineadc_38: ld hl,#var5ld a,#0adc a,(hl)jp p,adc_39ld b, #38jp fail_routineadc_39: jp po,adc_40ld b, #39jp fail_routineadc_40: jr nz,adc_41ld b, #40jp fail_routineadc_41: jr nc,adc_42ld b, #41jp fail_routineadc_42: ld a,#1adc a,(hl)jp m,adc_43ld b, #42jp fail_routineadc_43: jp pe,adc_44ld b, #43jp fail_routineadc_44: cp #0x80jr z,adc_45ld b, #44jp fail_routineadc_45: ld hl,#var1ld a,#1adc a,(hl)jr z,adc_46ld b, #45jp fail_routineadc_46: jr c,adc_47ld b, #46jp fail_routineadc_47: ld hl,#var2adc a,(hl)jr nc,adc_48ld b, #47jp fail_routineadc_48: jr nz,adc_49ld b, #48jp fail_routineadc_49: cp #0x55+1jr z,adc_50ld b, #49jp fail_routineadc_50: ld ix,#var3ld a,#0adc a,2(ix)jp p,adc_51ld b, #50jp fail_routineadc_51: jp po,adc_52ld b, #51jp fail_routineadc_52: jr nc,adc_53ld b, #52jp fail_routineadc_53: jr nz,adc_54ld b, #53jp fail_routineadc_54: ld a,#1adc a,2(ix)jp m,adc_55ld b, #54jp fail_routineadc_55: jp pe,adc_56ld b, #55jp fail_routineadc_56: cp #0x80jr z,adc_57ld b, #56jp fail_routineadc_57: ld a,#1adc a,-2(ix)jr c,adc_58ld b, #57jp fail_routineadc_58: jr z,adc_59ld b, #58jp fail_routineadc_59: adc a,-1(ix)jr nc,adc_60ld b, #59jp fail_routineadc_60: jr nz,adc_61ld b, #60jp fail_routineadc_61: cp #0x55+1jr z,adc_62ld b, #61jp fail_routineadc_62: ld iy,#var3ld a,#0adc a,2(ix)jp p,adc_63ld b, #62jp fail_routineadc_63: jp po,adc_64ld b, #63jp fail_routineadc_64: jr nc,adc_65ld b, #64jp fail_routineadc_65: jr nz,adc_66ld b, #65jp fail_routineadc_66: ld a,#1adc a,2(iy)jp m,adc_67ld b, #66jp fail_routineadc_67: jp pe,adc_68ld b, #67jp fail_routineadc_68: cp #0x80jr z,adc_69ld b, #68jp fail_routineadc_69: ld a,#1adc a,-2(iy)jr c,adc_70ld b, #69jp fail_routineadc_70: jr z,adc_71ld b, #70jp fail_routineadc_71: adc a,-1(iy)jr nc,adc_72ld b, #71jp fail_routineadc_72: jr nz,adc_73ld b, #72jp fail_routineadc_73: cp #0x55+1jr z,adc_74ld b, #73jp fail_routineadc_74: ld a,#0xffadd a,#0adc a,#0x80jp p,adc_75ld b, #74jp fail_routineadc_75: jp pe,adc_76ld b, #75jp fail_routineadc_76: jr nz,adc_77ld b, #76jp fail_routineadc_77: adc a,#0jp m,adc_78ld b, #77jp fail_routineadc_78: jp pe,adc_79ld b, #78jp fail_routineadc_79: adc a,#1jp po,adc_80ld b, #79jp fail_routineadc_80: cp #0x80+1jr z,sub_0ld b, #80jp fail_routinesub_0: nopld hl, #msg_sub_0call print_subld a,#0ld b,#1sub a,bjp m,sub_1ld b, #0jp fail_routinesub_1: jp po,sub_2ld b, #1jp fail_routinesub_2: jr c,sub_3ld b, #2jp fail_routinesub_3: jr nz,sub_4ld b, #3jp fail_routinesub_4: sub a,bjr nc,sub_5ld b, #4jp fail_routinesub_5: cp #0xff-1jr z,sub_6ld b, #5jp fail_routinesub_6: ld a,#1ld b,#0sub a,bjr nz,sub_7ld b, #6jp fail_routinesub_7: jp p,sub_8ld b, #7jp fail_routinesub_8: ld b,#1sub a,bjr z,sub_9ld b, #8jp fail_routinesub_9: sub a,bjp m,sub_10ld b, #9jp fail_routinesub_10: cp #0xffjr z,sub_11ld b, #10jp fail_routinesub_11: ld a,#0x80ld b,#0x7fsub a,bjp pe,sub_12ld b, #11jp fail_routinesub_12: sub a,bjp po,sub_13ld b, #12jp fail_routinesub_13: cp #0x80+2jr z,sub_14ld b, #13jp fail_routinesub_14: ld a,#0x55ld c,#0x55sub a,cjr z,sub_15ld b, #14jp fail_routinesub_15: ld c,#1sub a,cjp m,sub_16ld b, #15jp fail_routinesub_16: jr c,sub_17ld b, #16jp fail_routinesub_17: cp #0xffjr z,sub_18ld b, #17jp fail_routinesub_18: ld a,#0x55ld d,#0x7fsub a,djr c,sub_19ld b, #18jp fail_routinesub_19: cp #0x55-0x7fjr z,sub_20ld b, #19jp fail_routinesub_20: ld a,#0ld e,#0xffsub a,ejr c,sub_21ld b, #20jp fail_routinesub_21: cp #1jr z,sub_22ld b, #21jp fail_routinesub_22: ld a,#0xffld h,#0x80sub a,hjp p,sub_23ld b, #22jp fail_routinesub_23: cp #0x7fjr z,sub_24ld b, #23jp fail_routinesub_24: ld a,#0xaald l,#0xffsub a,ljr c,sub_25ld b, #24jp fail_routinesub_25: cp #0xaa+1jr z,sub_26ld b, #25jp fail_routinesub_26: ld a,#0x7fsub a,#0xffjp pe,sub_27ld b, #26jp fail_routinesub_27: jp m,sub_28ld b, #27jp fail_routinesub_28: sub a,#1jp p,sub_29ld b, #28jp fail_routinesub_29: sub a,#1jp po,sub_30ld b, #29jp fail_routinesub_30: jr nz,sub_31ld b, #30jp fail_routinesub_31: sub a,#0x7f-1jr z,sub_32ld b, #31jp fail_routinesub_32: ld a,#0sub a,#0xffjr c,sub_33ld b, #32jp fail_routinesub_33: sub a,#1jr z,sub_34ld b, #33jp fail_routinesub_34: jr nc,sub_35ld b, #34jp fail_routinesub_35: ld hl,#var1ld a,#0x7fsub a,(hl)jp m,sub_36ld b, #35jp fail_routinesub_36: jp pe,sub_37ld b, #36jp fail_routinesub_37: jr c,sub_38ld b, #37jp fail_routinesub_38: ld hl,#var3sub a,(hl)jp p,sub_39ld b, #38jp fail_routinesub_39: jp po,sub_40ld b, #39jp fail_routinesub_40:jr nc,sub_41ld b, #40jp fail_routinesub_41:jr z,sub_42ld b, #40jp fail_routinesub_42: ld hl,#var2sub a,(hl)jr nz,sub_43ld b, #42jp fail_routinesub_43: cp #0xaa+1jr z,sub_44ld b, #43jp fail_routinesub_44: ld ix,#var3ld a,#0x7fsub a,-2(ix)jp m,sub_45ld b, #44jp fail_routinesub_45: jp pe,sub_46ld b, #45jp fail_routinesub_46: jr c,sub_47ld b, #46jp fail_routinesub_47: sub a,(ix)jp p,sub_48ld b, #47jp fail_routinesub_48: jp po,sub_49ld b, #48jp fail_routinesub_49: jr nc,sub_50ld b, #49jp fail_routinesub_50: jr z,sub_51ld b, #50jp fail_routinesub_51: sub a,2(ix)jr nz,sub_52ld b, #51jp fail_routinesub_52: cp #0x80+1jr z,sub_53ld b, #52jp fail_routinesub_53: ld iy,#var3ld a,#0x7fsub a,-2(iy)jp m,sub_54ld b, #53jp fail_routinesub_54: jp pe,sub_55ld b, #54jp fail_routinesub_55: jr c,sub_56ld b, #55jp fail_routinesub_56: jr nz,sub_57ld b, #56jp fail_routinesub_57: sub a,(iy)jp p,sub_58ld b, #57jp fail_routinesub_58: jp po,sub_59ld b, #58jp fail_routinesub_59: jr nc,sub_60ld b, #59jp fail_routinesub_60: jr z,sub_61ld b, #60jp fail_routinesub_61: sub a,2(iy)jr nz,sub_62ld b, #61jp fail_routinesub_62: cp #0x80+1jr z,sbc_0ld b, #62jp fail_routinesbc_0: nopld hl, #msg_sbc_0call print_subld a,#0x7fld b,#0sub a,b ;clear carry flagld b,#0xffsbc a,bjp m,sbc_1ld b, #0jp fail_routinesbc_1: jp pe,sbc_2ld b, #1jp fail_routinesbc_2: jr c,sbc_3ld b, #2jp fail_routinesbc_3: jr nz,sbc_4ld b, #3jp fail_routinesbc_4: ld b,#0x7fsbc a,bjp p,sbc_5ld b, #4jp fail_routinesbc_5: jp pe,sbc_6ld b, #5jp fail_routinesbc_6: jr nc,sbc_7ld b, #6jp fail_routinesbc_7: jr z,sbc_8ld b, #7jp fail_routinesbc_8: ld b,#0xffsbc a,bjp po,sbc_9ld b, #8jp fail_routinesbc_9: jr nz,sbc_10ld b, #9jp fail_routinesbc_10: ld b,#0sbc a,bjr z,sbc_11ld b, #10jp fail_routinesbc_11: ld a,#0xaald c,#0xffsbc a,cjr c,sbc_12ld b, #11jp fail_routinesbc_12: ld c,#0sbc a,cjr nc,sbc_13ld b, #12jp fail_routinesbc_13: cp #0xaajr z,sbc_14ld b, #13jp fail_routinesbc_14: ld a,#0x55ld d,#0xffsbc a,djr c,sbc_15ld b, #14jp fail_routinesbc_15: ld d,#0sbc a,djr nc,sbc_16ld b, #15jp fail_routinesbc_16: cp #0x55jr z,sbc_17ld b, #16jp fail_routinesbc_17: ld a,#0xaald e,#0xffsbc a,ejr c,sbc_18ld b, #17jp fail_routinesbc_18: ld e,#0sbc a,ejr nc,sbc_19ld b, #18jp fail_routinesbc_19: cp #0xaajr z,sbc_20ld b, #19jp fail_routinesbc_20: ld a,#0x55ld h,#0xffsbc a,hjr c,sbc_21ld b, #20jp fail_routinesbc_21: ld h,#0sbc a,hjr nc,sbc_22ld b, #21jp fail_routinesbc_22: cp #0x55jr z,sbc_23ld b, #22jp fail_routinesbc_23: ld a,#0xaald l,#0xffsbc a,ljr c,sbc_24ld b, #23jp fail_routinesbc_24: ld l,#0sbc a,ljr nc,sbc_25ld b, #24jp fail_routinesbc_25: cp #0xaajr z,sbc_26ld b, #25jp fail_routinesbc_26: ld a,#0x7fsbc a,#0xffjp m,sbc_27ld b, #26jp fail_routinesbc_27: jp pe,sbc_28ld b, #27jp fail_routinesbc_28: jr c,sbc_29ld b, #28jp fail_routinesbc_29: jr nz,sbc_30ld b, #29jp fail_routinesbc_30: sbc a,#0x7fjp p,sbc_31ld b, #30jp fail_routinesbc_31: jp pe,sbc_32ld b, #31jp fail_routinesbc_32: jr nc,sbc_33ld b, #32jp fail_routinesbc_33: jr z,sbc_34ld b, #33jp fail_routinesbc_34: sbc a,#0xffjr nz,sbc_35ld b, #34jp fail_routinesbc_35: cp #1jr z,sbc_36ld b, #35jp fail_routinesbc_36: ld hl,#var1ld a,#0x7fsbc a,(hl)jp m,sbc_37ld b, #36jp fail_routinesbc_37: jp pe,sbc_38ld b, #37jp fail_routinesbc_38: jr c,sbc_39ld b, #38jp fail_routinesbc_39: jr nz,sbc_40ld b, #39jp fail_routinesbc_40: ld hl,#var5sbc a,(hl)jp p,sbc_41ld b, #40jp fail_routinesbc_41: jp pe,sbc_42ld b, #41jp fail_routinesbc_42: jr nc,sbc_43ld b, #42jp fail_routinesbc_43: jr z,sbc_44ld b, #43jp fail_routinesbc_44: ld hl,#var2sbc a,(hl)jr nz,sbc_45ld b, #44jp fail_routinesbc_45: cp #0xaa+1jr z,sbc_46ld b, #45jp fail_routinesbc_46: ld ix,#var3ld a,#0x7fsbc a,-2(ix)jp m,sbc_47ld b, #46jp fail_routinesbc_47: jp pe,sbc_48ld b, #47jp fail_routinesbc_48: jr c,sbc_49ld b, #48jp fail_routinesbc_49: jr nz,sbc_50ld b, #49jp fail_routinesbc_50: sbc a,2(ix)jp p,sbc_51ld b, #50jp fail_routinesbc_51: jp pe,sbc_52ld b, #51jp fail_routinesbc_52: jr nc,sbc_53ld b, #52jp fail_routinesbc_53: jr z,sbc_54ld b, #53jp fail_routinesbc_54: sbc a,-1(ix)jr nz,sbc_55ld b, #54jp fail_routinesbc_55: cp #0xaa+1jr z,sbc_56ld b, #55jp fail_routinesbc_56: ld iy,#var3ld a,#0x7fsbc a,-2(ix)jp m,sbc_57ld b, #56jp fail_routinesbc_57: jp pe,sbc_58ld b, #57jp fail_routinesbc_58: jr c,sbc_59ld b, #58jp fail_routinesbc_59: jr nz,sbc_60ld b, #59jp fail_routinesbc_60: sbc a,2(ix)jp p,sbc_61ld b, #60jp fail_routinesbc_61: jp pe,sbc_62ld b, #61jp fail_routinesbc_62: jr nc,sbc_63ld b, #62jp fail_routinesbc_63: jr z,sbc_64ld b, #63jp fail_routinesbc_64: sbc a,1(ix)jr nz,sbc_65ld b, #64jp fail_routinesbc_65: cp #0x55+1jr z,and_0ld b, #65jp fail_routineand_0: nopld hl, #msg_and_0call print_subld a,#0xffadd a,#1 ;set carryld a,#0xffld b,#0xaaand a,bjr nc,and_1ld b, #0jp fail_routineand_1: jp m,and_2ld b, #1jp fail_routineand_2: jp pe,and_3ld b, #2jp fail_routineand_3: jr nz,and_4ld b, #3jp fail_routineand_4: ld b,#0x55and a,bjp p,and_5ld b, #4jp fail_routineand_5: jr z,and_6ld b, #5jp fail_routineand_6: ld a,#0xffld b,#0x7fand a,bjp po,and_7ld b, #6jp fail_routineand_7: ld b,#0x55and a,bjp pe,and_8ld b, #7jp fail_routineand_8: ld a,#0xffld c,#0x80and a,cjp m,and_9ld b, #8jp fail_routineand_9: cp #0x80jr z,and_10ld b, #9jp fail_routineand_10: ld a,#0xffld d,#0x7fand a,djp p,and_11ld b, #10jp fail_routineand_11: cp #0x7fjr z,and_12ld b, #11jp fail_routineand_12: ld a,#0xffld e,#0xaaand a,ejp m,and_13ld b, #12jp fail_routineand_13: cp #0xaajr z,and_14ld b, #13jp fail_routineand_14: ld a,#0xffld h,#0x55and a,hjp p,and_15ld b, #14jp fail_routineand_15: cp #0x55jr z,and_16ld b, #15jp fail_routineand_16: ld a,#0xffld l,#0xaaand a,ljp m,and_17ld b, #16jp fail_routineand_17: cp #0xaajr z,and_18ld b, #17jp fail_routineand_18: ld a,#0xffand a,#0xaajp m,and_19ld b, #18jp fail_routineand_19: jr nz,and_20ld b, #19jp fail_routineand_20: and a,#0x55jp p,and_21ld b, #20jp fail_routineand_21: jr z,and_22ld b, #21jp fail_routineand_22: ld a,#0xffand a,#0x7fjp po,and_23ld b, #22jp fail_routineand_23: and a,#0x55jp pe,and_24ld b, #23jp fail_routineand_24: jr nz,and_25ld b, #24jp fail_routineand_25: and a,#0xaajr z,and_26ld b, #25jp fail_routineand_26: ld a,#0xffand a,#0xaacp #0xaajr z,and_27ld b, #26jp fail_routineand_27: ld hl,#var4ld a,#0xffand a,(hl)jp m,and_28ld b, #27jp fail_routineand_28: jr nz,and_29ld b, #28jp fail_routineand_29: ld hl,#var2and a,(hl)jp p,and_30ld b, #29jp fail_routineand_30: jr z,and_31ld b, #30jp fail_routineand_31: ld a,#0xffld hl,#var5and a,(hl)jp po,and_32ld b, #31jp fail_routineand_32: ld hl,#var2and a,(hl)jp pe,and_33ld b, #32jp fail_routineand_33: cp #0x55jr z,and_34ld b, #33jp fail_routineand_34: ld ix,#var3ld a,#0xffand a,1(ix)jp m,and_35ld b, #34jp fail_routineand_35: jr nz,and_36ld b, #35jp fail_routineand_36: and a,-1(ix)jp p,and_37ld b, #36jp fail_routineand_37: jr z,and_38ld b, #37jp fail_routineand_38: ld a,#0xffand a,2(ix)jp po,and_39ld b, #38jp fail_routineand_39: and a,-1(ix)jp pe,and_40ld b, #39jp fail_routineand_40: cp #0x55jr z,and_41ld b, #40jp fail_routineand_41: ld iy,#var3ld a,#0xffand a,1(iy)jp m,and_42ld b, #41jp fail_routineand_42: jr nz,and_43ld b, #42jp fail_routineand_43: and a,-1(iy)jp p,and_44ld b, #43jp fail_routineand_44: jr z,and_45ld b, #44jp fail_routineand_45: ld a,#0xffand a,2(iy)jp po,and_46ld b, #45jp fail_routineand_46: and a,-1(iy)jp pe,and_47ld b, #46jp fail_routineand_47: cp #0x55jr z,or_0ld b, #47jp fail_routineor_0: nopld hl, #msg_or_0call print_subld a,#0ld b,#0x7for a,bjp p,or_1ld b, #0jp fail_routineor_1: jp po,or_2ld b, #1jp fail_routineor_2: ld b,#0x80or a,bjp m,or_3ld b, #2jp fail_routineor_3: jp pe,or_4ld b, #3jp fail_routineor_4: cp #0xffjr z,or_5ld b, #4jp fail_routineor_5: ld a,#0ld b,#0or a,bjr z,or_6ld b, #5jp fail_routineor_6: ld b,#0x55or a,bjr nz,or_7ld b, #6jp fail_routineor_7: cp #0x55jr z,or_8ld b, #7jp fail_routineor_8: ld a,#0xffadd a,#1jr c,or_9ld b, #8jp fail_routineor_9: ld b,#0x7for a,bjr nc,or_10ld b, #9jp fail_routineor_10: cp #0x7fjr z,or_11ld b, #10jp fail_routineor_11: ld a,#0ld c,#0x55or a,ccp #0x55jr z,or_12ld b, #11jp fail_routineor_12: ld c,#0xaaor a,ccp #0xffjr z,or_13ld b, #12jp fail_routineor_13: ld a,#0ld d,#0xaaor a,dcp #0xaajr z,or_14ld b, #13jp fail_routineor_14: ld e,#0x55or a,ecp #0xffjr z,or_15ld b, #14jp fail_routineor_15: ld a,#0ld h,#0x80or a,hcp #0x80jr z,or_16ld b, #15jp fail_routineor_16: ld l,#0x7for a,lcp #0xffjr z,or_17ld b, #16jp fail_routineor_17: ld a,#0or a,#0x7fjp p,or_18ld b, #17jp fail_routineor_18: jp po,or_19ld b, #18jp fail_routineor_19: or a,#0x80jp m,or_20ld b, #19jp fail_routineor_20: jp pe,or_21ld b, #20jp fail_routineor_21: cp #0xffjr z,or_22ld b, #21jp fail_routineor_22: ld a,#0or a,#0jr z,or_23ld b, #22jp fail_routineor_23: or a,#0x7fjr nz,or_24ld b, #23jp fail_routineor_24: ld a,#0xffadd a,#1jr c,or_25ld b, #24jp fail_routineor_25: or a,#0x55jr nc,or_26ld b, #25jp fail_routineor_26: cp #0x55jr z,or_27ld b, #26jp fail_routineor_27: ld hl,#var5ld a,#0or a,(hl)jp p,or_28ld b, #27jp fail_routineor_28: jp po,or_29ld b, #28jp fail_routineor_29: ld hl,#var3or a,(hl)jp m,or_30ld b, #29jp fail_routineor_30: jp pe,or_31ld b, #30jp fail_routineor_31: cp #0xffjr z,or_32ld b, #31jp fail_routineor_32: ld hl,#t_var1ld a,#0ld (hl),aor a,(hl)jr z,or_33ld b, #32jp fail_routineor_33: ld hl,#var2or a,(hl)jr nz,or_34ld b, #33jp fail_routineor_34: cp #0x55jr z,or_35ld b, #34jp fail_routineor_35: ld ix,#var3ld a,#0or a,2(ix)jp p,or_36ld b, #35jp fail_routineor_36: jp po,or_37ld b, #36jp fail_routineor_37: or a,(ix)jp m,or_38ld b, #37jp fail_routineor_38: jp pe,or_39ld b, #38jp fail_routineor_39: cp #0xffjr z,or_40ld b, #39jp fail_routineor_40: ld ix,#t_var3ld a,#0ld -2(ix),aor a,-2(ix)jr z,or_41ld b, #40jp fail_routineor_41: ld 2(ix),#0xaaor a,2(ix)jr nz,or_42ld b, #41jp fail_routineor_42: cp #0xaajr z,or_43ld b, #42jp fail_routineor_43: ld iy,#var3ld a,#0or a,2(iy)jp p,or_44ld b, #43jp fail_routineor_44: jp po,or_45ld b, #44jp fail_routineor_45: or a,(iy)jp m,or_46ld b, #45jp fail_routineor_46: jp pe,or_47ld b, #46jp fail_routineor_47: cp #0xffjr z,or_48ld b, #47jp fail_routineor_48: ld iy,#t_var3ld a,#0ld -2(iy),aor a,-2(iy)jr z,or_49ld b, #48jp fail_routineor_49: ld 2(iy),#0x55or a,2(iy)jr nz,or_50ld b, #49jp fail_routineor_50: cp #0x55jr z,xor_0ld b, #50jp fail_routinexor_0: nopld hl, #msg_xor_0call print_subld a,#0xffld b,#0x55xor a,bjp m,xor_1ld b, #0jp fail_routinexor_1: jp pe,xor_2ld b, #1jp fail_routinexor_2: ld b,#0x80xor a,bjp p,xor_3ld b, #2jp fail_routinexor_3: jp po,xor_4ld b, #3jp fail_routinexor_4: cp #0x2jr z,xor_5ld b, #4jp fail_routinexor_5: ld a,#0xffld b,#0xffxor a,bjr z,xor_6ld b, #5jp fail_routinexor_6: ld b,#0x55xor a,bjr nz,xor_7ld b, #6jp fail_routinexor_7: cp #0x55jr z,xor_8ld b, #7jp fail_routinexor_8: ld a,#0xffadd a,#1jr c,xor_9ld b, #8jp fail_routinexor_9: ld b,#0xaaxor a,bjr nc,xor_10ld b, #9jp fail_routinexor_10: cp #0xaajr z,xor_11ld b, #10jp fail_routinexor_11: ld a,#0xffld c,#0x7fxor a,cjp m,xor_12ld b, #11jp fail_routinexor_12: cp #0x80jr z,xor_13ld b, #12jp fail_routinexor_13: ld a,#0xffld d,#0x55xor a,djp m,xor_14ld b, #13jp fail_routinexor_14: cp #0xaajr z,xor_15ld b, #14jp fail_routinexor_15: ld e,#0x55xor a,ejp m,xor_16ld b, #15jp fail_routinexor_16: cp #0xffjr z,xor_17ld b, #16jp fail_routinexor_17: ld a,#0xffld h,#0x7fxor a,hjp po,xor_18ld b, #17jp fail_routinexor_18: ld l,#0x7fxor a,ljp pe,xor_19ld b, #18jp fail_routinexor_19: cp #0xffjr z,xor_20ld b, #19jp fail_routinexor_20: ld a,#0xffadd a,#1jr c,xor_21ld b, #20jp fail_routinexor_21: ld b,#0x7fxor a,bjr nc,xor_22ld b, #21jp fail_routinexor_22: cp #0x7fjr z,xor_23ld b, #22jp fail_routinexor_23: ld a,#0xffxor a,#0x7fjp po,xor_24ld b, #23jp fail_routinexor_24: jp m,xor_25ld b, #24jp fail_routinexor_25: xor a,#0x7fjp pe,xor_26ld b, #25jp fail_routinexor_26: jp m,xor_27ld b, #26jp fail_routinexor_27: xor a,#0xaajp p,xor_28ld b, #27jp fail_routinexor_28: cp #0x55jr z,xor_29ld b, #28jp fail_routinexor_29: ld a,#0xffxor a,#0xffjr z,xor_30ld b, #29jp fail_routinexor_30: xor a,#0x80jr nz,xor_31ld b, #30jp fail_routinexor_31: cp #0x80jr z,xor_32ld b, #31jp fail_routinexor_32: ld hl,#var5ld a,#0xffxor a,(hl)jp m,xor_33ld b, #32jp fail_routinexor_33: jp po,xor_34ld b, #33jp fail_routinexor_34: xor a,(hl)jp m,xor_35ld b, #34jp fail_routinexor_35: jp pe,xor_36ld b, #35jp fail_routinexor_36: ld hl,#var3xor a,(hl)jp p,xor_37ld b, #36jp fail_routinexor_37: cp #0x7fjr z,xor_38ld b, #37jp fail_routinexor_38: ld hl,#var1ld a,#0xffxor a,(hl)jr z,xor_39ld b, #38jp fail_routinexor_39: ld hl,#var2xor a,(hl)jr nz,xor_40ld b, #39jp fail_routinexor_40: cp #0x55jr z,xor_41ld b, #40jp fail_routinexor_41: ld ix,#var3ld a,#0xffxor a,2(ix)jp m,xor_42ld b, #41jp fail_routinexor_42: jp po,xor_43ld b, #42jp fail_routinexor_43: xor a,2(ix)jp m,xor_44ld b, #43jp fail_routinexor_44: jp pe,xor_45ld b, #44jp fail_routinexor_45: xor a,1(ix)jp p,xor_46ld b, #45jp fail_routinexor_46: cp #0x55jr z,xor_47ld b, #46jp fail_routinexor_47: ld a,#0xffxor a,-2(ix)jr z,xor_48ld b, #47jp fail_routinexor_48: xor a,1(ix)jr nz,xor_49ld b, #48jp fail_routinexor_49: cp #0xaajr z,xor_50ld b, #49jp fail_routinexor_50: ld iy,#var3ld a,#0xffxor a,2(iy)jp m,xor_51ld b, #50jp fail_routinexor_51: jp po,xor_52ld b, #51jp fail_routinexor_52: xor a,2(iy)jp m,xor_53ld b, #52jp fail_routinexor_53: jp pe,xor_54ld b, #53jp fail_routinexor_54: xor a,1(iy)jp p,xor_55ld b, #54jp fail_routinexor_55: cp #0x55jr z,xor_56ld b, #55jp fail_routinexor_56: ld a,#0xffxor a,-2(iy)jr z,xor_57ld b, #56jp fail_routinexor_57: xor a,-1(iy)jr nz,xor_58ld b, #57jp fail_routinexor_58: cp #0x55jr z,cp_0ld b, #58jp fail_routinecp_0: nopld hl, #msg_cp_0call print_subld a,#0ld b,#0cp a,bjr z,cp_1ld b, #0jp fail_routinecp_1: jp p,cp_2ld b, #1jp fail_routinecp_2: jr nc,cp_3ld b, #2jp fail_routinecp_3: ld b,#0x55cp a,bjr nz,cp_4ld b, #3jp fail_routinecp_4: jp m,cp_5ld b, #4jp fail_routinecp_5: jr c,cp_6ld b, #5jp fail_routinecp_6: ld a,#0x80ld b,#0x7fcp a,bjp pe,cp_7ld b, #6jp fail_routinecp_7: jr nc,cp_8ld b, #7jp fail_routinecp_8: ld a,#0x7fld b,#0x80cp a,bjp pe,cp_9ld b, #8jp fail_routinecp_9: jr c,cp_10ld b, #9jp fail_routinecp_10: ld b,#0cp a,bjp po,cp_11ld b, #10jp fail_routinecp_11: jr nc,cp_12ld b, #11jp fail_routinecp_12: ld a,#0x80ld c,#0cp a,cjp m,cp_13ld b, #12jp fail_routinecp_13: ld c,#0x80cp a,cjr z,cp_14ld b, #13jp fail_routinecp_14: ld a,#0x7fld d,#0x55cp a,djp p,cp_15ld b, #14jp fail_routinecp_15: jr nz,cp_16ld b, #15jp fail_routinecp_16: ld e,#0x7fcp a,ejr z,cp_17ld b, #16jp fail_routinecp_17: ld a,#0x80ld h,#0xffcp a,hjp m,cp_18ld b, #17jp fail_routinecp_18: jr c,cp_19ld b, #18jp fail_routinecp_19: ld l,#0x80cp a,ljr z,cp_20ld b, #19jp fail_routinecp_20: ld a,#0x80cp a,#0x7fjp p,cp_21ld b, #20jp fail_routinecp_21: jp pe,cp_22ld b, #21jp fail_routinecp_22: jr nz,cp_23ld b, #22jp fail_routinecp_23: cp a,#0x80jp p,cp_24ld b, #23jp fail_routinecp_24: jp po,cp_25ld b, #24jp fail_routinecp_25: jr z,cp_26ld b, #25jp fail_routinecp_26: ld a,#0x55cp a,#0x7fjr c,cp_27ld b, #26jp fail_routinecp_27: jp m,cp_28ld b, #27jp fail_routinecp_28: cp a,#0x55jr nc,cp_29ld b, #28jp fail_routinecp_29: jr z,cp_30ld b, #29jp fail_routinecp_30: ld a,#0x80ld hl,#var5cp a,(hl)jp p,cp_31ld b, #30jp fail_routinecp_31: jp pe,cp_32ld b, #31jp fail_routinecp_32: jr nz,cp_33ld b, #32jp fail_routinecp_33: ld hl,#var3cp a,(hl)jp p,cp_34ld b, #33jp fail_routinecp_34: jp po,cp_35ld b, #34jp fail_routinecp_35: jr z,cp_36ld b, #35jp fail_routinecp_36: ld a,#0x55ld hl,#var5cp a,(hl)jr c,cp_37ld b, #36jp fail_routinecp_37: jp m,cp_38ld b, #37jp fail_routinecp_38: ld hl,#var2cp a,(hl)jr nc,cp_39ld b, #38jp fail_routinecp_39: jp p,cp_40ld b, #39jp fail_routinecp_40: jr z,cp_41ld b, #40jp fail_routinecp_41: ld a,#0x80ld ix,#var3cp a,2(ix)jp p,cp_42ld b, #41jp fail_routinecp_42: jp pe,cp_43ld b, #42jp fail_routinecp_43: jr nz,cp_44ld b, #43jp fail_routinecp_44: cp a,(ix)jp p,cp_45ld b, #44jp fail_routinecp_45: jp po,cp_46ld b, #45jp fail_routinecp_46: jr z,cp_47ld b, #46jp fail_routinecp_47: ld a,#0x55cp a,-2(ix)jr nz,cp_48ld b, #47jp fail_routinecp_48: jr c,cp_49ld b, #48jp fail_routinecp_49: cp a,-1(ix)jr z,cp_50ld b, #49jp fail_routinecp_50: jr nc,cp_51ld b, #50jp fail_routinecp_51: ld iy,#var3ld a,#0x80cp a,2(iy)jp p,cp_52ld b, #51jp fail_routinecp_52: jp pe,cp_53ld b, #52jp fail_routinecp_53: jr nz,cp_54ld b, #53jp fail_routinecp_54: cp a,(iy)jp p,cp_55ld b, #54jp fail_routinecp_55: jp po,cp_56ld b, #55jp fail_routinecp_56: jr z,cp_57ld b, #56jp fail_routinecp_57: ld a,#0x55cp a,-2(iy)jr nz,cp_58ld b, #57jp fail_routinecp_58: jr c,cp_59ld b, #58jp fail_routinecp_59: cp a,-1(iy)jr z,cp_60ld b, #59jp fail_routinecp_60: jr nc,inc_0ld b, #60jp fail_routineinc_0: nopld hl, #msg_inccall print_subld a,#0x7fcp a,#0x7fjr z,inc_1ld b, #0jp fail_routineinc_1: inc ajp pe,inc_2ld b, #1jp fail_routineinc_2: jp m,inc_3ld b, #2jp fail_routineinc_3: jr nz,inc_4ld b, #3jp fail_routineinc_4: ld a,#0x55inc ajp po,inc_5ld b, #4jp fail_routineinc_5: jp p,inc_6ld b, #5jp fail_routineinc_6: cp a,#0x55+1jr z,inc_7ld b, #6jp fail_routineinc_7: ld a,#0xff-1inc ajr nz,inc_8ld b, #7jp fail_routineinc_8: jp m,inc_9ld b, #8jp fail_routineinc_9: inc ajr z,inc_10ld b, #9jp fail_routineinc_10: ld b,#0xaainc bjp m,inc_11ld b, #10jp fail_routineinc_11: ld a,bcp a,#0xaa+1jr z,inc_12ld b, #11jp fail_routineinc_12: ld c,#0x80inc cjp m,inc_13ld b, #12jp fail_routineinc_13: ld a,ccp a,#0x80+1jr z,inc_14ld b, #13jp fail_routineinc_14: ld d,#0xffinc djr z,inc_15ld b, #14jp fail_routineinc_15: ld e,#0x55inc ejp p,inc_16ld b, #15jp fail_routineinc_16: ld a,ecp a,#0x55+1jr z,inc_17ld b, #16jp fail_routineinc_17: ld h,#0x7finc hjp pe,inc_18ld b, #17jp fail_routineinc_18: ld a,hcp a,#0x80jr z,inc_19ld b, #18jp fail_routineinc_19: ld l,#0xaainc ljp m,inc_20ld b, #19jp fail_routineinc_20: ld a,lcp a,#0xaa+1jr z,inc_21ld b, #20jp fail_routineinc_21: ld hl,#t_var1ld a,#0x7fld (hl),acp a,(hl)jr z,inc_22ld b, #21jp fail_routineinc_22: inc (hl)jp m,inc_23ld b, #22jp fail_routineinc_23: jp pe,inc_24ld b, #23jp fail_routineinc_24: ld a,#0x55ld (hl),ainc (hl)jp p,inc_25ld b, #24jp fail_routineinc_25: jp po,inc_26ld b, #25jp fail_routineinc_26: ld a,(hl)cp a,#0x55+1jr z,inc_27ld b, #26jp fail_routineinc_27: ld a,#0xffld (hl),ainc (hl)jr z,inc_28ld b, #27jp fail_routineinc_28: inc (hl)jr nz,inc_29ld b, #28jp fail_routineinc_29: ld a,(hl)cp a,#1jr z,inc_30ld b, #29jp fail_routineinc_30: ld a,#0xaald (hl),ainc (hl)jp m,inc_31ld b, #30jp fail_routineinc_31: ld a,(hl)cp a,#0xaa+1jr z,inc_32ld b, #31jp fail_routineinc_32: ld ix,#t_var3ld a,#0x7fld -2(ix),acp a,#0x7fjr z,inc_33ld b, #32jp fail_routineinc_33: inc -2(ix)jp m,inc_34ld b, #33jp fail_routineinc_34: jp pe,inc_35ld b, #34jp fail_routineinc_35: ld a,#0x55ld 2(ix),ainc 2(ix)jp p,inc_36ld b, #35jp fail_routineinc_36: jp po,inc_37ld b, #36jp fail_routineinc_37: ld a,2(ix)cp a,#0x55+1jr z,inc_38ld b, #37jp fail_routineinc_38: ld a,#0xffld -1(ix),ainc -1(ix)jr z,inc_39ld b, #38jp fail_routineinc_39: inc -1(ix)jr nz,inc_40ld b, #39jp fail_routineinc_40: ld a,-1(ix)cp a,#1jr z,inc_41ld b, #40jp fail_routineinc_41: ld a,#0xaald 1(ix),ainc 1(ix)jp m,inc_42ld b, #41jp fail_routineinc_42: ld a,1(ix)cp a,#0xaa+1jr z,inc_43ld b, #42jp fail_routineinc_43: ld iy,#t_var3ld a,#0x7fld 2(iy),acp a,#0x7fjr z,inc_44ld b, #43jp fail_routineinc_44: inc 2(iy)jp m,inc_45ld b, #44jp fail_routineinc_45: jp pe,inc_46ld b, #45jp fail_routineinc_46: ld a,#0x55ld -2(iy),ainc -2(iy)jp p,inc_47ld b, #46jp fail_routineinc_47: jp po,inc_48ld b, #47jp fail_routineinc_48: ld a,-2(iy)cp a,#0x55+1jr z,inc_49ld b, #48jp fail_routineinc_49: ld a,#0xffld 1(iy),ainc 1(iy)jr z,inc_50ld b, #49jp fail_routineinc_50: inc 1(iy)jr nz,inc_51ld b, #50jp fail_routineinc_51: ld a,1(iy)cp a,#1jr z,inc_52ld b, #51jp fail_routineinc_52: ld a,#0x80ld -1(iy),ainc -1(iy)jp m,inc_53ld b, #52jp fail_routineinc_53: ld a,-1(iy)cp a,#0x80+1jr z,dec_0ld b, #53jp fail_routinedec_0: nopld hl, #msg_deccall print_subld a,#0x80cp a,#0x80jr z,dec_1ld b, #0jp fail_routinedec_1: dec ajp p,dec_2ld b, #1jp fail_routinedec_2: jp pe,dec_3ld b, #2jp fail_routinedec_3: ld a,#0dec ajp m,dec_4ld b, #3jp fail_routinedec_4: jp po,dec_5ld b, #4jp fail_routinedec_5: cp a,#0xffjr z,dec_6ld b, #5jp fail_routinedec_6: ld a,#1dec ajr z,dec_7ld b, #6jp fail_routinedec_7: dec ajr nz,dec_8ld b, #7jp fail_routinedec_8: cp a,#0xffjr z,dec_9ld b, #8jp fail_routinedec_9: ld a,#0xaadec acp a,#0xaa-1jr z,dec_10ld b, #9jp fail_routinedec_10: ld b,#0x7fdec bld a,bcp a,#0x7f-1jr z,dec_11ld b, #10jp fail_routinedec_11: ld c,#0x55dec cld a,ccp a,#0x55-1jr z,dec_12ld b, #11jp fail_routinedec_12: ld d,#0xaadec dld a,dcp a,#0xaa-1jr z,dec_13ld b, #12jp fail_routinedec_13: ld e,#0x80dec eld a,ecp a,#0x80-1jr z,dec_14ld b, #13jp fail_routinedec_14: ld h,#0xffdec hld a,hcp a,#0xff-1jr z,dec_15ld b, #14jp fail_routinedec_15: ld l,#0x55dec lld a,lcp a,#0x55-1jr z,dec_16ld b, #15jp fail_routinedec_16: ld hl,#t_var5ld a,#0x80ld (hl),acp a,(hl)jr z,dec_17ld b, #16jp fail_routinedec_17: dec (hl)jp p,dec_18ld b, #17jp fail_routinedec_18: jp pe,dec_19ld b, #18jp fail_routinedec_19: ld a,#0ld (hl),adec (hl)jp m,dec_20ld b, #19jp fail_routinedec_20: jp po,dec_21ld b, #20jp fail_routinedec_21: ld a,(hl)cp a,#0xffjr z,dec_22ld b, #21jp fail_routinedec_22: ld a,#1ld (hl),adec (hl)jr z,dec_23ld b, #22jp fail_routinedec_23: dec (hl)jr nz,dec_24ld b, #23jp fail_routinedec_24: ld a,(hl)cp a,#0xffjr z,dec_25ld b, #24jp fail_routinedec_25: ld a,#0xaald (hl),adec (hl)ld a,(hl)cp a,#0xaa-1jr z,dec_26ld b, #25jp fail_routinedec_26: ld ix,#t_var3ld a,#0x80ld -2(ix),acp a,-2(ix)jr z,dec_27ld b, #26jp fail_routinedec_27: dec -2(ix)jp p,dec_28ld b, #27jp fail_routinedec_28: jp pe,dec_29ld b, #28jp fail_routinedec_29: ld a,#0ld 2(ix),adec 2(ix)jp m,dec_30ld b, #29jp fail_routinedec_30: jp po,dec_31ld b, #30jp fail_routinedec_31: ld a,2(ix)cp a,#0xffjr z,dec_32ld b, #31jp fail_routinedec_32: ld a,#1ld -1(ix),adec -1(ix)jr z,dec_33ld b, #32jp fail_routinedec_33: dec -1(ix)jr nz,dec_34ld b, #33jp fail_routinedec_34: ld a,-1(ix)cp a,#0xffjr z,dec_35ld b, #34jp fail_routinedec_35: ld a,#0x7fld 1(ix),adec 1(ix)ld a,1(ix)cp a,#0x7f-1jr z,dec_36ld b, #35jp fail_routinedec_36: ld iy,#t_var3ld a,#0x80ld -2(iy),acp a,-2(iy)jr z,dec_37ld b, #36jp fail_routinedec_37: dec -2(iy)jp p,dec_38ld b, #37jp fail_routinedec_38: jp pe,dec_39ld b, #38jp fail_routinedec_39: ld a,#0ld 2(iy),adec 2(iy)jp m,dec_40ld b, #39jp fail_routinedec_40: jp po,dec_41ld b, #40jp fail_routinedec_41: ld a,2(iy)cp a,#0xffjr z,dec_42ld b, #41jp fail_routinedec_42: ld a,#1ld 1(iy),adec 1(iy)jr z,dec_43ld b, #42jp fail_routinedec_43: dec 1(iy)jr nz,dec_44ld b, #43jp fail_routinedec_44: ld a,1(iy)cp a,#0xffjr z,dec_45ld b, #44jp fail_routinedec_45: ld a,#0xaald -1(iy),adec -1(iy)ld a,-1(iy)cp a,#0xaa-1jr z,cpl_0ld b, #45jp fail_routinecpl_0: ld a,#0xffcplcp a,#0jr z,cpl_1ld b, #0jp fail_routinecpl_1: ld a,#0xaacplcp a,#0x55jr z,cpl_2ld b, #1jp fail_routinecpl_2: cplcp a,#0xaajr z,neg_0ld b, #2jp fail_routineneg_0: nopld hl, #msg_negcall print_subld a,#0x80cp a,#0x80jp po,neg_1ld b, #0jp fail_routineneg_1: negjp pe,neg_2ld b, #1jp fail_routineneg_2: jr nz,neg_3ld b, #2jp fail_routineneg_3: jr c,neg_4ld b, #3jp fail_routineneg_4: ld a,#0negjp po,neg_5ld b, #4jp fail_routineneg_5: jr z,neg_6ld b, #5jp fail_routineneg_6: jr nc,neg_7ld b, #6jp fail_routineneg_7: ld a,#0x55cp a,#0x55jp p,neg_8ld b, #7jp fail_routineneg_8: negjp m,neg_9ld b, #8jp fail_routineneg_9: negjp p,neg_10ld b, #9jp fail_routineneg_10: cp a,#0x55jr z,end_of_testld b, #10jp fail_routineend_of_test:jp passedvar1: .db #0x0var2: .db #0x0var3: .db #0x0var4: .db #0x0var5: .db #0x0w_var1: .dw #0x0w_var2: .dw #0x0w_var3: .dw #0x0w_var4: .dw #0x0w_var5: .dw #0x0w_var6: .dw #0x0.area _DATAt_var1: .db 0t_var2: .db 0t_var3: .db 0t_var4: .db 0t_var5: .db 0tw_var1: .dw 0tw_var2: .dw 0tw_var3: .dw 0tw_var4: .dw 0tw_var5: .dw 0tw_var6: .dw 0tw_var7: .dw 0
Go to most recent revision | Compare with Previous | Blame | View Log