| Code: ORG #8100-512
DB "EXE" ;EXE ID DB #00 ;EXE VERSION DW #0200 ;CODE OFFSET LOW DW #0000 ;CODE OFFSET HIGH DW #0000 ;END-BEG ;PRIMARY LOADER DW #0000 ; DW #0000 ;RESERVED DW #0000 ; DW #8100 ;LOAD ADDRESS DW #8100 ;START ADDRESS DW #C000 ;STACK ADDRESS DS 490
ABUF equ 4000h SBUF equ 4000h
start: push ix ; save address of arguments
ld c,#51 rst 10h ld c,a push bc pop hl ld (oldmode),hl
ld a,81h ld c,#50 ld b,0 rst 10h
pop hl ; address of arguments ld a,(hl) ; arguments length push af
bmp1: inc hl ld a,(hl) cp #20 jp z,bmp1 ld de,name_ pop af call acopy call loadsvs
ld c,#30 rst 10h
exit: ld hl,(oldmode) push hl pop bc ld a,c ld c,#50 rst 10h ld c,#41 rst 10h ret
oldmode dw 0 oldwin_ db 0 handle_ db 0 mem db 0 xcoord dw 0
name_ ds 16 pal_ ds 1024
loadsvs: ld hl,name_ ld c,11h ld a,1 rst 10h jr c,any_error_3 ld (handle_),a ld c,15h ld a,(handle_) ld b,0 ld hl,0 ld ix,10h rst 10h jr c,any_error_2
ld b,1 ld c,3Dh rst 10h jr c,any_error_2 ld (mem),a ld b,0 ld c,39h rst 10h jr c,any_error_2
in a,(0E2h) ld (oldwin_),a ld a,50h out (0E2h),a loopr: ld c,13h ld a,(handle_) ld de,SBUF ld hl,ABUF rst 10h jr c,any_error_1 ld hl,ABUF loopp: ld a,(hl) inc hl call SVS ld a,h or a jr nz,loopp
any_error_1:
ld a,(oldwin_) out (0E2h),a
any_error_2:
ld c,12h ld a,(handle_) rst 10h jr c,any_error_3
any_error_3:
ld a,#FF out (89h),a
ret
; a - number ; hl - source ; de - destination
acopy: ld (acopyn+1),a di ld d,d acopyn: ld a,0 ld b,b ld l,l ld a,(hl) ld (de),a ld b,b ei ret
; a - number ; save hl
svs_fill: ld c,(hl) inc hl push hl ld (svs_fi1+1),a ld hl,(xcoord) di ld d,d svs_fi1 ld a,0 ld b,b ld a,c ld e,e ld (hl),a ld b,b ei pop hl ret
; a - number ; save hl
svs_copy: push hl ld d,0 ld e,a or a jr nz,svs_copy1 inc d svs_copy1: add hl,de pop de push hl ld (svs_co1+1),a ld hl,(xcoord) ex de,hl di ld d,d svs_co1 ld a,0 ld b,b ld l,l ld a,(hl) ld b,b ld a,a ld (de),a ld b,b ei pop hl ret
; save hl
svs_vcopym1: push hl ld hl,(xcoord) ld d,h ld e,l dec hl di ld d,d ld a,0 ld b,b ld a,a ld a,(hl) ld (de),a ld b,b ei pop hl ret
; a - number ; save hl
svs_xadd: push hl ld hl,(xcoord) ld d,0 ld e,a or a jr nz,svs_xadd1 inc d svs_xadd1: add hl,de ld (xcoord),hl pop hl xor a out (89h),a ret
; a - number ; save hl
svs_yadd: ld c,a in a,(89h) add a,c out (89h),a ret
; a - number ; save hl
svs_pal: ld b,a ld c,(hl) inc hl ld de,pal_ svs_pal1: push af ld a,(hl) ex de,hl ld (hl),a ex de,hl inc hl inc de ld a,(hl) ex de,hl ld (hl),a ex de,hl inc hl inc de ld a,(hl) ex de,hl ld (hl),a inc hl inc de ld (hl),0 ex de,hl inc de pop af dec a jp nz,svs_pal1 push hl ld d,b ld e,c ld bc,#FFA4 ld hl,pal_ rst #08 pop hl ret
svs_err: ex de,hl ld hl,svs_err1 inc hl ld (hl),e inc hl ld (hl),d svs_err1: ld bc,0 ld h,0 ret
; a - command
SVS: ex de,hl ld c,a ld b,0 ld hl,SVSBASE add hl,bc add hl,bc add hl,bc jp (hl)
SVSBASE: jp SVS_00 jp SVS_01 jp SVS_02 jp SVS_03 jp SVS_04 jp SVS_05 jp SVS_06 jp SVS_07 jp SVS_08 jp SVS_09 jp SVS_0A jp SVS_0B jp SVS_0C jp SVS_0D jp SVS_0E jp SVS_0F jp SVS_10 jp SVS_11 jp SVS_12 jp SVS_13 jp SVS_14 jp SVS_15 jp SVS_16 jp SVS_17 jp SVS_18 jp SVS_19 jp SVS_1A jp SVS_1B jp SVS_1C jp SVS_1D jp SVS_1E jp SVS_1F jp SVS_20 jp SVS_21 jp SVS_22 jp SVS_23 jp SVS_24 jp SVS_25 jp SVS_26 jp SVS_27 jp SVS_28 jp SVS_29 jp SVS_2A jp SVS_2B jp SVS_2C jp SVS_2D jp SVS_2E jp SVS_2F jp SVS_30 jp SVS_31 jp SVS_32 jp SVS_33 jp SVS_34 jp SVS_35 jp SVS_36 jp SVS_37 jp SVS_38 jp SVS_39 jp SVS_3A jp SVS_3B jp SVS_3C jp SVS_3D jp SVS_3E jp SVS_3F jp SVS_40 jp SVS_41 jp SVS_42 jp SVS_43 jp SVS_44 jp SVS_45 jp SVS_46 jp SVS_47 jp SVS_48 jp SVS_49 jp SVS_4A jp SVS_4B jp SVS_4C jp SVS_4D jp SVS_4E jp SVS_4F jp SVS_50 jp SVS_51 jp SVS_52 jp SVS_53 jp SVS_54 jp SVS_55 jp SVS_56 jp SVS_57 jp SVS_58 jp SVS_59 jp SVS_5A jp SVS_5B jp SVS_5C jp SVS_5D jp SVS_5E jp SVS_5F jp SVS_60 jp SVS_61 jp SVS_62 jp SVS_63 jp SVS_64 jp SVS_65 jp SVS_66 jp SVS_67 jp SVS_68 jp SVS_69 jp SVS_6A jp SVS_6B jp SVS_6C jp SVS_6D jp SVS_6E jp SVS_6F jp SVS_70 jp SVS_71 jp SVS_72 jp SVS_73 jp SVS_74 jp SVS_75 jp SVS_76 jp SVS_77 jp SVS_78 jp SVS_79 jp SVS_7A jp SVS_7B jp SVS_7C jp SVS_7D jp SVS_7E jp SVS_7F jp SVS_80 jp SVS_81 jp SVS_82 jp SVS_83 jp SVS_84 jp SVS_85 jp SVS_86 jp SVS_87 jp SVS_88 jp SVS_89 jp SVS_8A jp SVS_8B jp SVS_8C jp SVS_8D jp SVS_8E jp SVS_8F jp SVS_90 jp SVS_91 jp SVS_92 jp SVS_93 jp SVS_94 jp SVS_95 jp SVS_96 jp SVS_97 jp SVS_98 jp SVS_99 jp SVS_9A jp SVS_9B jp SVS_9C jp SVS_9D jp SVS_9E jp SVS_9F jp SVS_A0 jp SVS_A1 jp SVS_A2 jp SVS_A3 jp SVS_A4 jp SVS_A5 jp SVS_A6 jp SVS_A7 jp SVS_A8 jp SVS_A9 jp SVS_AA jp SVS_AB jp SVS_AC jp SVS_AD jp SVS_AE jp SVS_AF jp SVS_B0 jp SVS_B1 jp SVS_B2 jp SVS_B3 jp SVS_B4 jp SVS_B5 jp SVS_B6 jp SVS_B7 jp SVS_B8 jp SVS_B9 jp SVS_BA jp SVS_BB jp SVS_BC jp SVS_BD jp SVS_BE jp SVS_BF jp SVS_C0 jp SVS_C1 jp SVS_C2 jp SVS_C3 jp SVS_C4 jp SVS_C5 jp SVS_C6 jp SVS_C7 jp SVS_C8 jp SVS_C9 jp SVS_CA jp SVS_CB jp SVS_CC jp SVS_CD jp SVS_CE jp SVS_CF jp SVS_D0 jp SVS_D1 jp SVS_D2 jp SVS_D3 jp SVS_D4 jp SVS_D5 jp SVS_D6 jp SVS_D7 jp SVS_D8 jp SVS_D9 jp SVS_DA jp SVS_DB jp SVS_DC jp SVS_DD jp SVS_DE jp SVS_DF jp SVS_E0 jp SVS_E1 jp SVS_E2 jp SVS_E3 jp SVS_E4 jp SVS_E5 jp SVS_E6 jp SVS_E7 jp SVS_E8 jp SVS_E9 jp SVS_EA jp SVS_EB jp SVS_EC jp SVS_ED jp SVS_EE jp SVS_EF jp SVS_F0 jp SVS_F1 jp SVS_F2 jp SVS_F3 jp SVS_F4 jp SVS_F5 jp SVS_F6 jp SVS_F7 jp SVS_F8 jp SVS_F9 jp SVS_FA jp SVS_FB jp SVS_FC jp SVS_FD jp SVS_FE jp SVS_FF
SVS_00: ex de,hl ld a,(hl) inc hl jp svs_fill
SVS_01: ex de,hl ld a,1 jp svs_fill
SVS_02: ex de,hl ld a,2 jp svs_fill
SVS_03: ex de,hl ld a,3 jp svs_fill
SVS_04: ex de,hl ld a,4 jp svs_fill
SVS_05: ex de,hl ld a,5 jp svs_fill
SVS_06: ex de,hl ld a,6 jp svs_fill
SVS_07: ex de,hl ld a,7 jp svs_fill
SVS_08: ex de,hl ld a,8 jp svs_fill
SVS_09: ex de,hl ld a,9 jp svs_fill
SVS_0A: ex de,hl ld a,10 jp svs_fill
SVS_0B: ex de,hl ld a,11 jp svs_fill
SVS_0C: ex de,hl ld a,12 jp svs_fill
SVS_0D: ex de,hl ld a,13 jp svs_fill
SVS_0E: ex de,hl ld a,14 jp svs_fill
SVS_0F: ex de,hl ld a,15 jp svs_fill
SVS_10: ex de,hl ld a,(hl) inc hl jp svs_copy
SVS_11: ex de,hl ld a,1 jp svs_copy
SVS_12: ex de,hl ld a,2 jp svs_copy
SVS_13: ex de,hl ld a,3 jp svs_copy
SVS_14: ex de,hl ld a,4 jp svs_copy
SVS_15: ex de,hl ld a,5 jp svs_copy
SVS_16: ex de,hl ld a,6 jp svs_copy
SVS_17: ex de,hl ld a,7 jp svs_copy
SVS_18: ex de,hl ld a,8 jp svs_copy
SVS_19: ex de,hl ld a,9 jp svs_copy
SVS_1A: ex de,hl ld a,10 jp svs_copy
SVS_1B: ex de,hl ld a,11 jp svs_copy
SVS_1C: ex de,hl ld a,12 jp svs_copy
SVS_1D: ex de,hl ld a,13 jp svs_copy
SVS_1E: ex de,hl ld a,14 jp svs_copy
SVS_1F: ex de,hl ld a,15 jp svs_copy
SVS_20: ex de,hl ld a,#20 jp svs_err
SVS_21: ex de,hl jp svs_vcopym1
SVS_22: ex de,hl ld a,#22 jp svs_err
SVS_23: ex de,hl ld a,#23 jp svs_err
SVS_24: ex de,hl ld a,#24 jp svs_err
SVS_25: ex de,hl ld a,#25 jp svs_err
SVS_26: ex de,hl ld a,#26 jp svs_err
SVS_27: ex de,hl ld a,#27 jp svs_err
SVS_28: ex de,hl ld a,#28 jp svs_err
SVS_29: ex de,hl ld a,#29 jp svs_err
SVS_2A: ex de,hl ld a,#2A jp svs_err
SVS_2B: ex de,hl ld a,#2B jp svs_err
SVS_2C: ex de,hl ld a,#2C jp svs_err
SVS_2D: ex de,hl ld a,#2D jp svs_err
SVS_2E: ex de,hl ld a,#2E jp svs_err
SVS_2F: ex de,hl ld a,#2F jp svs_err
SVS_30: ex de,hl ld a,#30 jp svs_err
SVS_31: ex de,hl ld a,#31 jp svs_err
SVS_32: ex de,hl ld a,#32 jp svs_err
SVS_33: ex de,hl ld a,#33 jp svs_err
SVS_34: ex de,hl ld a,#34 jp svs_err
SVS_35: ex de,hl ld a,#35 jp svs_err
SVS_36: ex de,hl ld a,#36 jp svs_err
SVS_37: ex de,hl ld a,#37 jp svs_err
SVS_38: ex de,hl ld a,#38 jp svs_err
SVS_39: ex de,hl ld a,#39 jp svs_err
SVS_3A: ex de,hl ld a,#3A jp svs_err
SVS_3B: ex de,hl ld a,#3B jp svs_err
SVS_3C: ex de,hl ld a,#3C jp svs_err
SVS_3D: ex de,hl ld a,#3D jp svs_err
SVS_3E: ex de,hl ld a,#3E jp svs_err
SVS_3F: ex de,hl ld a,#3F jp svs_err
SVS_40: ex de,hl ld a,#40 jp svs_err
SVS_41: ex de,hl ld a,#41 jp svs_err
SVS_42: ex de,hl ld a,#42 jp svs_err
SVS_43: ex de,hl ld a,#43 jp svs_err
SVS_44: ex de,hl ld a,#44 jp svs_err
SVS_45: ex de,hl ld a,#45 jp svs_err
SVS_46: ex de,hl ld a,#46 jp svs_err
SVS_47: ex de,hl ld a,#47 jp svs_err
SVS_48: ex de,hl ld a,#48 jp svs_err
SVS_49: ex de,hl ld a,#49 jp svs_err
SVS_4A: ex de,hl ld a,#4A jp svs_err
SVS_4B: ex de,hl ld a,#4B jp svs_err
SVS_4C: ex de,hl ld a,#4C jp svs_err
SVS_4D: ex de,hl ld a,#4D jp svs_err
SVS_4E: ex de,hl ld a,#4E jp svs_err
SVS_4F: ex de,hl ld a,#4F jp svs_err
SVS_50: ex de,hl ld a,#50 jp svs_err
SVS_51: ex de,hl ld a,#51 jp svs_err
SVS_52: ex de,hl ld a,#52 jp svs_err
SVS_53: ex de,hl ld a,#53 jp svs_err
SVS_54: ex de,hl ld a,#54 jp svs_err
SVS_55: ex de,hl ld a,#55 jp svs_err
SVS_56: ex de,hl ld a,#56 jp svs_err
SVS_57: ex de,hl ld a,#57 jp svs_err
SVS_58: ex de,hl ld a,#58 jp svs_err
SVS_59: ex de,hl ld a,#59 jp svs_err
SVS_5A: ex de,hl ld a,#5A jp svs_err
SVS_5B: ex de,hl ld a,#5B jp svs_err
SVS_5C: ex de,hl ld a,#5C jp svs_err
SVS_5D: ex de,hl ld a,#5D jp svs_err
SVS_5E: ex de,hl ld a,#5E jp svs_err
SVS_5F: ex de,hl ld a,#5F jp svs_err
SVS_60: ex de,hl ld a,(hl) inc hl jp svs_xadd
SVS_61: ex de,hl ld a,1 jp svs_xadd
SVS_62: ex de,hl ld a,2 jp svs_xadd
SVS_63: ex de,hl ld a,3 jp svs_xadd
SVS_64: ex de,hl ld a,4 jp svs_xadd
SVS_65: ex de,hl ld a,5 jp svs_xadd
SVS_66: ex de,hl ld a,6 jp svs_xadd
SVS_67: ex de,hl ld a,7 jp svs_xadd
SVS_68: ex de,hl ld a,8 jp svs_xadd
SVS_69: ex de,hl ld a,9 jp svs_xadd
SVS_6A: ex de,hl ld a,10 jp svs_xadd
SVS_6B: ex de,hl ld a,11 jp svs_xadd
SVS_6C: ex de,hl ld a,12 jp svs_xadd
SVS_6D: ex de,hl ld a,13 jp svs_xadd
SVS_6E: ex de,hl ld a,14 jp svs_xadd
SVS_6F: ex de,hl ld a,15 jp svs_xadd
SVS_70: ex de,hl ld a,(hl) inc hl jp svs_yadd
SVS_71: ex de,hl ld a,1 jp svs_yadd
SVS_72: ex de,hl ld a,2 jp svs_yadd
SVS_73: ex de,hl ld a,3 jp svs_yadd
SVS_74: ex de,hl ld a,4 jp svs_yadd
SVS_75: ex de,hl ld a,5 jp svs_yadd
SVS_76: ex de,hl ld a,6 jp svs_yadd
SVS_77: ex de,hl ld a,7 jp svs_yadd
SVS_78: ex de,hl ld a,8 jp svs_yadd
SVS_79: ex de,hl ld a,9 jp svs_yadd
SVS_7A: ex de,hl ld a,10 jp svs_yadd
SVS_7B: ex de,hl ld a,11 jp svs_yadd
SVS_7C: ex de,hl ld a,12 jp svs_yadd
SVS_7D: ex de,hl ld a,13 jp svs_yadd
SVS_7E: ex de,hl ld a,14 jp svs_yadd
SVS_7F: ex de,hl ld a,15 jp svs_yadd
SVS_80: ex de,hl ld a,(hl) inc hl jp svs_pal
SVS_81: ex de,hl ld a,1 jp svs_pal
SVS_82: ex de,hl ld a,2 jp svs_pal
SVS_83: ex de,hl ld a,3 jp svs_pal
SVS_84: ex de,hl ld a,4 jp svs_pal
SVS_85: ex de,hl ld a,5 jp svs_pal
SVS_86: ex de,hl ld a,6 jp svs_pal
SVS_87: ex de,hl ld a,7 jp svs_pal
SVS_88: ex de,hl ld a,8 jp svs_pal
SVS_89: ex de,hl ld a,9 jp svs_pal
SVS_8A: ex de,hl ld a,10 jp svs_pal
SVS_8B: ex de,hl ld a,11 jp svs_pal
SVS_8C: ex de,hl ld a,12 jp svs_pal
SVS_8D: ex de,hl ld a,13 jp svs_pal
SVS_8E: ex de,hl ld a,14 jp svs_pal
SVS_8F: ex de,hl ld a,15 jp svs_pal
SVS_90: ex de,hl ld a,#90 jp svs_err
SVS_91: ex de,hl ld a,#91 jp svs_err
SVS_92: ex de,hl ld a,#92 jp svs_err
SVS_93: ex de,hl ld a,#93 jp svs_err
SVS_94: ex de,hl ld a,#94 jp svs_err
SVS_95: ex de,hl ld a,#95 jp svs_err
SVS_96: ex de,hl ld a,#96 jp svs_err
SVS_97: ex de,hl ld a,#97 jp svs_err
SVS_98: ex de,hl ld a,#98 jp svs_err
SVS_99: ex de,hl ld a,#99 jp svs_err
SVS_9A: ex de,hl ld a,#9A jp svs_err
SVS_9B: ex de,hl ld a,#9B jp svs_err
SVS_9C: ex de,hl ld a,#9C jp svs_err
SVS_9D: ex de,hl ld a,#9D jp svs_err
SVS_9E: ex de,hl ld a,#9E jp svs_err
SVS_9F: ex de,hl ld a,#9F jp svs_err
SVS_A0: ex de,hl ld a,#A0 jp svs_err
SVS_A1: ex de,hl ld a,#A1 jp svs_err
SVS_A2: ex de,hl ld a,#A2 jp svs_err
SVS_A3: ex de,hl ld a,#A3 jp svs_err
SVS_A4: ex de,hl ld a,#A4 jp svs_err
SVS_A5: ex de,hl ld a,#A5 jp svs_err
SVS_A6: ex de,hl ld a,#A6 jp svs_err
SVS_A7: ex de,hl ld a,#A7 jp svs_err
SVS_A8: ex de,hl ld a,#A8 jp svs_err
SVS_A9: ex de,hl ld a,#A9 jp svs_err
SVS_AA: ex de,hl ld a,#AA jp svs_err
SVS_AB: ex de,hl ld a,#AB jp svs_err
SVS_AC: ex de,hl ld a,#AC jp svs_err
SVS_AD: ex de,hl ld a,#AD jp svs_err
SVS_AE: ex de,hl ld a,#AE jp svs_err
SVS_AF: ex de,hl ld a,#AF jp svs_err
SVS_B0: ex de,hl ld a,#B0 jp svs_err
SVS_B1: ex de,hl ld a,#B1 jp svs_err
SVS_B2: ex de,hl ld a,#B2 jp svs_err
SVS_B3: ex de,hl ld a,#B3 jp svs_err
SVS_B4: ex de,hl ld a,#B4 jp svs_err
SVS_B5: ex de,hl ld a,#B5 jp svs_err
SVS_B6: ex de,hl ld a,#B6 jp svs_err
SVS_B7: ex de,hl ld a,#B7 jp svs_err
SVS_B8: ex de,hl ld a,#B8 jp svs_err
SVS_B9: ex de,hl ld a,#B9 jp svs_err
SVS_BA: ex de,hl ld a,#BA jp svs_err
SVS_BB: ex de,hl ld a,#BB jp svs_err
SVS_BC: ex de,hl ld a,#BC jp svs_err
SVS_BD: ex de,hl ld a,#BD jp svs_err
SVS_BE: ex de,hl ld a,#BE jp svs_err
SVS_BF: ex de,hl ld a,#BF jp svs_err
SVS_C0: ex de,hl ld a,#C0 jp svs_err
SVS_C1: ex de,hl ld a,#C1 jp svs_err
SVS_C2: ex de,hl ld a,#C2 jp svs_err
SVS_C3: ex de,hl ld a,#C3 jp svs_err
SVS_C4: ex de,hl ld a,#C4 jp svs_err
SVS_C5: ex de,hl ld a,#C5 jp svs_err
SVS_C6: ex de,hl ld a,#C6 jp svs_err
SVS_C7: ex de,hl ld a,#C7 jp svs_err
SVS_C8: ex de,hl ld a,#C8 jp svs_err
SVS_C9: ex de,hl ld a,#C9 jp svs_err
SVS_CA: ex de,hl ld a,#CA jp svs_err
SVS_CB: ex de,hl ld a,#CB jp svs_err
SVS_CC: ex de,hl ld a,#CC jp svs_err
SVS_CD: ex de,hl ld a,#CD jp svs_err
SVS_CE: ex de,hl ld a,#CE jp svs_err
SVS_CF: ex de,hl ld a,#CF jp svs_err
SVS_D0: ex de,hl ld a,#D0 jp svs_err
SVS_D1: ex de,hl ld a,#D1 jp svs_err
SVS_D2: ex de,hl ld a,#D2 jp svs_err
SVS_D3: ex de,hl ld a,#D3 jp svs_err
SVS_D4: ex de,hl ld a,#D4 jp svs_err
SVS_D5: ex de,hl ld a,#D5 jp svs_err
SVS_D6: ex de,hl ld a,#D6 jp svs_err
SVS_D7: ex de,hl ld a,#D7 jp svs_err
SVS_D8: ex de,hl ld a,#D8 jp svs_err
SVS_D9: ex de,hl ld a,#D9 jp svs_err
SVS_DA: ex de,hl ld a,#DA jp svs_err
SVS_DB: ex de,hl ld a,#DB jp svs_err
SVS_DC: ex de,hl ld a,#DC jp svs_err
SVS_DD: ex de,hl ld a,#DD jp svs_err
SVS_DE: ex de,hl ld a,#DE jp svs_err
SVS_DF: ex de,hl ld a,#DF jp svs_err
SVS_E0: ex de,hl ld a,#E0 jp svs_err
SVS_E1: ex de,hl ld a,#E1 jp svs_err
SVS_E2: ex de,hl ld a,#E2 jp svs_err
SVS_E3: ex de,hl ld a,#E3 jp svs_err
SVS_E4: ex de,hl ld a,#E4 jp svs_err
SVS_E5: ex de,hl ld a,#E5 jp svs_err
SVS_E6: ex de,hl ld a,#E6 jp svs_err
SVS_E7: ex de,hl ld a,#E7 jp svs_err
SVS_E8: ex de,hl ld a,#E8 jp svs_err
SVS_E9: ex de,hl ld a,#E9 jp svs_err
SVS_EA: ex de,hl ld a,#EA jp svs_err
SVS_EB: ex de,hl ld a,#EB jp svs_err
SVS_EC: ex de,hl ld a,#EC jp svs_err
SVS_ED: ex de,hl ld a,#ED jp svs_err
SVS_EE: ld h,0 ret
SVS_EF: ex de,hl ld a,#EF jp svs_err
SVS_F0: ex de,hl inc hl inc hl inc hl push hl xor a out (89h),a ld hl,xcoord ld (hl),a inc hl ld (hl),0C0h pop hl ret
SVS_F1: ex de,hl ld a,#F1 jp svs_err
SVS_F2: ex de,hl ld a,#F2 jp svs_err
SVS_F3: ex de,hl ld a,#F3 jp svs_err
SVS_F4: ex de,hl ld a,#F4 jp svs_err
SVS_F5: ex de,hl ld a,#F5 jp svs_err
SVS_F6: ex de,hl ld a,#F6 jp svs_err
SVS_F7: ex de,hl ld a,#F7 jp svs_err
SVS_F8: ex de,hl ld a,#F8 jp svs_err
SVS_F9: ex de,hl ld a,#F9 jp svs_err
SVS_FA: ex de,hl ld a,#FA jp svs_err
SVS_FB: ex de,hl ld a,#FB jp svs_err
SVS_FC: ex de,hl ld a,#FC jp svs_err
SVS_FD: ex de,hl ld a,#FD jp svs_err
SVS_FE: ex de,hl ld a,#FE jp svs_err
SVS_FF: ld c,13h ld a,(handle_) ld de,SBUF ld hl,ABUF rst 10h ld hl,ABUF ret
| |