API tools faq
paste
Advertisement
MMBC

Untitled

MMBC
Jun 17th, 2017
107
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 6.81 KB | None | 0 0
raw download clone embed print report
  1.     org 00100h
  2.  
  3.     ld hl,(0542ah)
  4.     ld c,c 
  5.     jr c,$+53
  6.     ld b,(hl)  
  7.     ld hl,(00a1ah)
  8.     nop
  9.     ld d,b 
  10.     ld (hl),d  
  11.     ld l,a 
  12.     ld (hl),h  
  13.     ld d,b 
  14.     ld (hl),d  
  15.     ld l,a 
  16.     ld h,a 
  17.     ld (hl),d  
  18.     ld h,c 
  19.     ld l,l 
  20.     jr nz,$+104
  21.     ld l,c 
  22.     ld l,h 
  23.     ld h,l 
  24.     jr nz,$+50
  25.     ld (hl),02fh
  26.     ld sp,02f37h
  27.     ld sp,02c37h
  28.     jr nz,$+51
  29.     ld sp,0303ah
  30.     add hl,sp  
  31.     nop
  32.     nop
  33.     nop
  34.     nop
  35.     nop
  36.     nop
  37.     nop
  38.     nop
  39.     nop
  40.     nop
  41.     sub (hl)   
  42.     inc bc 
  43.     dec c  
  44.     nop
  45.     add a,l
  46.     inc bc 
  47.     ld b,045h
  48.     ld d,b 
  49.     ld d,d 
  50.     ld b,l 
  51.     ld d,l 
  52.     ld d,(hl)  
  53.     ld b,l 
  54.     ld (00000h),a
  55.     add a,l
  56.     inc bc 
  57.     add a,e
  58.     inc bc 
  59.     cp e   
  60.     ld l,l 
  61.     set 7,(iy+014h)
  62.     rst 28h
  63.     ret nc 
  64.     ld c,e 
  65.     ld hl,00019h
  66.     ld (086d7h),hl
  67.     ld hl,00005h
  68.     ld a,l 
  69.     ld (086d8h),a
  70.     ld hl,0a0edh
  71.     rst 28h
  72.     ld h,c 
  73.     ld b,l 
  74.     ld hl,00018h
  75.     push hl
  76.     ld hl,0000eh
  77.     push hl
  78.     ld hl,00048h
  79.     push hl
  80.     ld hl,0000eh
  81.     call 0a006h
  82.     ld hl,00000h
  83.     ld (090f1h),hl
  84.     ld hl,00000h
  85.     ld (09101h),hl
  86.     ld hl,00014h
  87.     ld (09103h),hl
  88.     ld hl,(09101h)
  89.     push hl
  90.     ld hl,(09103h)
  91.     push hl
  92.     ld hl,0a0ddh
  93.     call 09f8eh
  94.     rst 28h
  95.     jr $+66
  96.     ld h,000h
  97.     ld l,a 
  98.     ld (090e7h),hl
  99.     ld a,l 
  100.     sub 003h
  101.     or h   
  102.     add a,0ffh
  103.     sbc hl,hl
  104.     inc hl 
  105.     ld a,h 
  106.     or l   
  107.     jp z,09e1bh
  108.     ld hl,(09101h)
  109.     ld de,00008h
  110.     add hl,de  
  111.     ld (09101h),hl
  112.     ld hl,(090f1h)
  113.     inc hl 
  114.     ld (090f1h),hl
  115.     ld hl,(09101h)
  116.     ld de,0fff8h
  117.     add hl,de  
  118.     push hl
  119.     ld hl,(09103h)
  120.     push hl
  121.     ld hl,0a0e5h
  122.     call 09f8eh
  123.     ld hl,(090e7h)
  124.     dec l  
  125.     ld a,l 
  126.     dec a  
  127.     or h   
  128.     jr z,$+4
  129.     sbc hl,hl
  130.     ld a,h 
  131.     or l   
  132.     jp z,09e4eh
  133.     ld hl,(09101h)
  134.     ld de,0fff8h
  135.     add hl,de  
  136.     ld (09101h),hl
  137.     ld hl,(090f1h)
  138.     dec hl 
  139.     ld (090f1h),hl
  140.     ld hl,(09101h)
  141.     ld de,00008h
  142.     add hl,de  
  143.     push hl
  144.     ld hl,(09103h)
  145.     push hl
  146.     ld hl,0a0e5h
  147.     call 09f8eh
  148.     ld hl,(090e7h)
  149.     ld a,l 
  150.     sub 004h
  151.     or h   
  152.     add a,0ffh
  153.     sbc hl,hl
  154.     inc hl 
  155.     ld a,h 
  156.     or l   
  157.     jp z,09e67h
  158.     ld hl,(090f1h)
  159.     ld de,0a0c1h
  160.     add hl,de  
  161.     dec (hl)   
  162.     ld hl,(090e7h)
  163.     ld a,l 
  164.     dec a  
  165.     or h   
  166.     jr z,$+4
  167.     sbc hl,hl
  168.     ld a,h 
  169.     or l   
  170.     jp z,09e7eh
  171.     ld hl,(090f1h)
  172.     ld de,0a0c1h
  173.     add hl,de  
  174.     inc (hl)   
  175.     ld hl,00000h
  176.     jr $+6
  177.     ld hl,(090e3h)
  178.     inc hl 
  179.     ld (090e3h),hl
  180.     ex de,hl   
  181.     ld hl,00006h
  182.     or a   
  183.     sbc hl,de
  184.     jp c,09ebbh
  185.     ld hl,(090e3h)
  186.     add hl,hl  
  187.     add hl,hl  
  188.     add hl,hl  
  189.     ld (086d7h),hl
  190.     ld hl,00014h
  191.     ld a,l 
  192.     ld (086d8h),a
  193.     ld hl,(090e3h)
  194.     ld de,0a0c1h
  195.     add hl,de  
  196.     ld l,(hl)  
  197.     ld h,000h
  198.     ld de,0a0a5h
  199.     add hl,de  
  200.     ld l,(hl)  
  201.     ld h,000h
  202.     ld a,l 
  203.     rst 28h
  204.     ld e,(hl)  
  205.     ld b,l 
  206.     jr $-54
  207.     call 09f48h
  208.     ld hl,(090e7h)
  209.     ld a,l 
  210.     sub 009h
  211.     or h   
  212.     add a,0ffh
  213.     sbc hl,hl
  214.     inc hl 
  215.     ld a,h 
  216.     or l   
  217.     jp z,09dd3h
  218.     ld hl,00000h
  219.     jr $+6
  220.     ld hl,(090e5h)
  221.     inc hl 
  222.     ld (090e5h),hl
  223.     ex de,hl   
  224.     ld hl,00006h
  225.     or a   
  226.     sbc hl,de
  227.     jp c,09f05h
  228.     ld hl,(090e5h)
  229.     ld de,0a0c1h
  230.     add hl,de  
  231.     ld l,(hl)  
  232.     ld h,000h
  233.     push hl
  234.     ld hl,(090e5h)
  235.     inc hl 
  236.     pop de 
  237.     ex de,hl   
  238.     or a   
  239.     sbc hl,de
  240.     push hl
  241.     ld hl,(090e5h)
  242.     ld de,0a0c1h
  243.     add hl,de  
  244.     pop de 
  245.     ld (hl),e  
  246.     jr $-47
  247.     ld hl,0a0c1h
  248.     ex de,hl   
  249.     ld hl,0a0cfh
  250.     call 0a09ah
  251.     ld a,l 
  252.     or h   
  253.     jr z,$+5
  254.     ld hl,00001h
  255.     ld a,h 
  256.     or l   
  257.     jp z,09f31h
  258.     ld hl,00001h
  259.     ld (086d7h),hl
  260.     ld hl,00028h
  261.     ld a,l 
  262.     ld (086d8h),a
  263.     ld hl,0a0fbh
  264.     rst 28h
  265.     ld h,c 
  266.     ld b,l 
  267.     jp 09f44h
  268.     ld hl,00001h
  269.     ld (086d7h),hl
  270.     ld hl,00028h
  271.     ld a,l 
  272.     ld (086d8h),a
  273.     ld hl,0a101h
  274.     rst 28h
  275.     ld h,c 
  276.     ld b,l 
  277.     call 09f48h
  278.     ret
  279.     ld hl,09340h
  280.     ld a,080h
  281.     out (010h),a
  282.     call 09f73h
  283.     push af
  284.     ld a,01fh
  285.     inc a  
  286.     out (010h),a
  287.     cp 02bh
  288.     ld bc,08011h
  289.     push hl
  290.     inc de 
  291.     push af
  292.     ld de,0000bh
  293.     outi
  294.     add hl,de  
  295.     pop af 
  296.     djnz $-8
  297.     pop hl 
  298.     inc hl 
  299.     jr c,$-22
  300.     pop af 
  301.     out (020h),a
  302.     ret c  
  303.     ei 
  304.     ret
  305.     in a,(002h)
  306.     rla
  307.     sbc a,a
  308.     jr z,$+4
  309.     in a,(020h)
  310.     ld b,a 
  311.     xor a  
  312.     out (020h),a
  313.     push af
  314.     pop af 
  315.     ld a,i
  316.     di 
  317.     ld a,b 
  318.     ret pe 
  319.     dec sp 
  320.     dec sp 
  321.     pop af 
  322.     or a   
  323.     ld a,b 
  324.     ret nz 
  325.     scf
  326.     ret
  327.     push hl
  328.     pop ix
  329.     ld hl,09340h
  330.     pop af 
  331.     pop de 
  332.     pop bc 
  333.     push af
  334.     ld b,007h
  335.     ld a,03fh
  336.     sub e  
  337.     jr nc,$+10
  338.     ld a,e 
  339.     add a,b
  340.     ret nc 
  341.     inc ix
  342.     inc e  
  343.     jr nz,$-3
  344.     cp b   
  345.     jr nc,$+3
  346.     ld b,a 
  347.     inc b  
  348.     ld a,c 
  349.     add a,007h
  350.     cp 067h
  351.     ret nc 
  352.     ld d,000h
  353.     sla e
  354.     sla e
  355.     add hl,de  
  356.     rra
  357.     add hl,de  
  358.     rra
  359.     add hl,de  
  360.     rra
  361.     ld e,a 
  362.     add hl,de  
  363.     ld a,c 
  364.     and 007h
  365.     jr z,$+55
  366.     ld e,c 
  367.     ld c,a 
  368.     ld a,e 
  369.     cp 0f9h
  370.     jr nc,$+8
  371.     inc d  
  372.     cp 059h
  373.     jr nc,$+3
  374.     inc d  
  375.     push bc
  376.     ld b,c 
  377.     ld c,(ix+000h)
  378.     xor a  
  379.     ld e,0ffh
  380.     srl c
  381.     rr e
  382.     rra
  383.     djnz $-5
  384.     dec d  
  385.     jr z,$+7
  386.     ld b,a 
  387.     or (hl)
  388.     and e  
  389.     ld (hl),a  
  390.     ld a,b 
  391.     dec hl 
  392.     inc d  
  393.     jr z,$+5
  394.     and (hl)   
  395.     or c   
  396.     ld (hl),a  
  397.     ld bc,0000dh
  398.     add hl,bc  
  399.     inc ix
  400.     pop bc 
  401.     djnz $-37
  402.     ret
  403.     ld e,00ch
  404.     ld a,(ix+000h)
  405.     ld (hl),a  
  406.     inc ix
  407.     add hl,de  
  408.     djnz $-7
  409.     ret
  410.     ld ix,09340h
  411.     call 0a040h
  412.     ret nc 
  413.     jr nz,$+26
  414.     push af
  415.     ld a,(ix+000h)
  416.     or c   
  417.     ld (ix+000h),a
  418.     pop af 
  419.     add ix,de
  420.     sub h  
  421.     jr nc,$+9
  422.     add a,l
  423.     rrc c
  424.     jr nc,$+4
  425.     inc ix
  426.     djnz $-21
  427.     ret
  428.     push af
  429.     ld a,(ix+000h)
  430.     or c   
  431.     ld (ix+000h),a
  432.     pop af 
  433.     rrc c
  434.     jr nc,$+4
  435.     inc ix
  436.     sub l  
  437.     jr nc,$+5
  438.     add a,h
  439.     add ix,de
  440.     djnz $-21
  441.     ret
  442.     ld a,l 
  443.     pop bc 
  444.     pop hl 
  445.     pop de 
  446.     ex (sp),hl 
  447.     ld d,l 
  448.     pop hl 
  449.     ex (sp),hl 
  450.     push bc
  451.     cp 040h
  452.     ret nc 
  453.     ld h,a 
  454.     ld a,d 
  455.     cp 040h
  456.     ret nc 
  457.     ld a,l 
  458.     cp 060h
  459.     ret nc 
  460.     ld a,e 
  461.     cp 060h
  462.     ret nc 
  463.     sub l  
  464.     jr nc,$+5
  465.     ex de,hl   
  466.     neg
  467.     push af
  468.     ld a,l 
  469.     rra
  470.     rra
  471.     rra
  472.     and 01fh
  473.     ld c,a 
  474.     ld b,000h
  475.     add ix,bc
  476.     ld a,d 
  477.     add a,a
  478.     add a,a
  479.     ld c,a 
  480.     add ix,bc
  481.     add ix,bc
  482.     add ix,bc
  483.     ld a,l 
  484.     and 007h
  485.     inc a  
  486.     ld b,a 
  487.     ld a,001h
  488.     rrca   
  489.     djnz $-1
  490.     ld c,a 
  491.     ld a,h 
  492.     sub d  
  493.     ld de,0000ch
  494.     jr nc,$+7
  495.     ld de,0fff4h
  496.     neg
  497.     pop hl 
  498.     ld l,a 
  499.     cp h   
  500.     jr nc,$+3
  501.     ld a,h 
  502.     ld b,a 
  503.     inc b  
  504.     cp l   
  505.     scf
  506.     ccf
  507.     rra
  508.     scf
  509.     ret
  510.     ld a,(de)  
  511.     cp (hl)
  512.     ret nz 
  513.     inc hl 
  514.     inc de 
  515.     or a   
  516.     jr nz,$-6
  517.     ld h,a 
  518.     ld l,a 
  519.     ret
  520.     jr nz,$+67
  521.     ld b,d 
  522.     ld b,e 
  523.     ld b,h 
  524.     ld b,l 
  525.     ld b,(hl)  
  526.     ld b,a 
  527.     ld c,b 
  528.     ld c,c 
  529.     ld c,d 
  530.     ld c,e 
  531.     ld c,h 
  532.     ld c,l 
  533.     ld c,(hl)  
  534.     ld c,a 
  535.     ld d,b 
  536.     ld d,c 
  537.     ld d,d 
  538.     ld d,e 
  539.     ld d,h 
  540.     ld d,l 
  541.     ld d,(hl)  
  542.     ld d,a 
  543.     ld e,b 
  544.     ld e,c 
  545.     ld e,d 
  546.     ld e,e 
  547.     ld bc,00101h
  548.     ld bc,00101h
  549.     nop
  550.     ld b,001h
  551.     inc c  
  552.     inc de 
  553.     dec b  
  554.     nop
  555.     nop
  556.     ld (de),a  
  557.     rlca   
  558.     add hl,bc  
  559.     ld (de),a  
  560.     nop
  561.     inc c  
  562.     nop
  563.     inc c  
  564.     rrca   
  565.     dec d  
  566.     djnz $+7
  567.     nop
  568.     nop
  569.     nop
  570.     nop
  571.     nop
  572.     nop
  573.     nop
  574.     nop
  575.     nop
  576.     ret p  
  577.     nop
  578.     nop
  579.     nop
  580.     nop
  581.     nop
  582.     nop
  583.     nop
  584.     nop
  585.     ld b,l 
  586.     ld c,(hl)  
  587.     ld d,h 
  588.     ld d,d 
  589.     ld b,l 
  590.     jr nz,$+78
  591.     ld b,l 
  592.     jr nz,$+82
  593.     ld b,c 
  594.     ld d,e 
  595.     ld d,e 
  596.     nop
  597.     ld c,h 
  598.     ld c,a 
  599.     ld d,l 
  600.     ld d,b 
  601.     ld b,l 
  602.     nop
  603.     ld b,d 
  604.     ld d,d 
  605.     ld b,c 
  606.     ld d,(hl)  
  607.     ld c,a 
  608.     jr nz,$+71
  609.     ld c,(hl)  
  610.     ld d,(hl)  
  611.     ld c,a 
  612.     ld c,c 
  613.     ld b,l 
  614.     jr nz,$+78
  615.     ld b,l 
  616.     jr nz,$+82
  617.     ld b,c 
  618.     ld d,e 
  619.     ld d,e 
  620.     nop
  621.     defb 0c3h,071h
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!