API tools faq
paste
Advertisement
Guest User

V9958_Hello_World_blurry.S

a guest
Aug 21st, 2018
159
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 16.87 KB | None | 0 0
raw download clone embed print report
  1. ;This program is supposed to set the v9958 with none blinking cursor (but if they where they would be blue), ;green background, black text and it should say "HELLO WORLD!" on the top left.
  2. ;assemble with z80asm (1.8 version confirmed working http://savannah.nongnu.org/projects/z80asm )
  3. ;change the following value being set to bc to the base address of the V9958
  4. ld bc,0x10
  5.  
  6. ;some macros
  7. write0: macro TVAL
  8.  ld a,TVAL
  9.  out (c),a
  10.  endm
  11.  
  12. write1: macro AVAL
  13.  inc bc
  14.  ld a,AVAL
  15.  out (c),a
  16.  dec bc
  17.  endm
  18.  
  19. write2: macro VAL
  20.  inc bc
  21.  inc bc
  22.  ld a,VAL
  23.  out (c),a
  24.  dec bc
  25.  dec bc
  26.  endm
  27.  
  28. writereg: macro VAL REG
  29.  inc bc
  30.  ld a,VAL
  31.  out (c),a
  32.  ld a,REG | 0x80
  33.  out (c),a
  34.  dec bc
  35.  endm
  36.  
  37. ;actual code:
  38.  writereg 00000100b 25
  39.  
  40.  writereg 00000100b  0
  41.  writereg 01010001b  1
  42.  writereg 00100010b  8
  43.  writereg 00001100b  9
  44.  
  45. ;;;;;;;;;;;; Writing font  ;;;;;;;;;;;;;;
  46.  writereg 00000000b 45
  47.  writereg 00000000b 14 ; 0 0 0 0 0 A16 A15 A14
  48.  write1   00000000b    ; A7 - A0
  49.  write1   01000000b    ; 0 !R/W A13 - A8
  50.  
  51.  write0 00000000b
  52.  write0 00000000b
  53.  write0 00000000b
  54.  write0 00000000b
  55.  write0 00000000b
  56.  write0 00000000b
  57.  write0 00000000b
  58.  write0 00000000b
  59.  write0 00010000b
  60.  write0 00010000b
  61.  write0 00010000b
  62.  write0 00010000b
  63.  write0 00000000b
  64.  write0 00000000b
  65.  write0 00010000b
  66.  write0 00000000b
  67.  write0 00101000b
  68.  write0 00101000b
  69.  write0 00101000b
  70.  write0 00000000b
  71.  write0 00000000b
  72.  write0 00000000b
  73.  write0 00000000b
  74.  write0 00000000b
  75.  write0 00101000b
  76.  write0 00101000b
  77.  write0 01111100b
  78.  write0 00101000b
  79.  write0 01111100b
  80.  write0 00101000b
  81.  write0 00101000b
  82.  write0 00000000b
  83.  write0 00010000b
  84.  write0 00111100b
  85.  write0 01010000b
  86.  write0 00111000b
  87.  write0 00010100b
  88.  write0 01111000b
  89.  write0 00010000b
  90.  write0 00000000b
  91.  write0 01100000b
  92.  write0 01100100b
  93.  write0 00001000b
  94.  write0 00010000b
  95.  write0 00100000b
  96.  write0 01001100b
  97.  write0 00001100b
  98.  write0 00000000b
  99.  write0 00110000b
  100.  write0 01001000b
  101.  write0 01010000b
  102.  write0 00100000b
  103.  write0 01010100b
  104.  write0 01001000b
  105.  write0 00110100b
  106.  write0 00000000b
  107.  write0 00110000b
  108.  write0 00010000b
  109.  write0 00100000b
  110.  write0 00000000b
  111.  write0 00000000b
  112.  write0 00000000b
  113.  write0 00000000b
  114.  write0 00000000b
  115.  write0 00001000b
  116.  write0 00010000b
  117.  write0 00100000b
  118.  write0 00100000b
  119.  write0 00100000b
  120.  write0 00010000b
  121.  write0 00001000b
  122.  write0 00000000b
  123.  write0 00100000b
  124.  write0 00010000b
  125.  write0 00001000b
  126.  write0 00001000b
  127.  write0 00001000b
  128.  write0 00010000b
  129.  write0 00100000b
  130.  write0 00000000b
  131.  write0 00000000b
  132.  write0 00010000b
  133.  write0 01010100b
  134.  write0 00111000b
  135.  write0 01010100b
  136.  write0 00010000b
  137.  write0 00000000b
  138.  write0 00000000b
  139.  write0 00000000b
  140.  write0 00010000b
  141.  write0 00010000b
  142.  write0 01111100b
  143.  write0 00010000b
  144.  write0 00010000b
  145.  write0 00000000b
  146.  write0 00000000b
  147.  write0 00000000b
  148.  write0 00000000b
  149.  write0 00000000b
  150.  write0 00000000b
  151.  write0 00110000b
  152.  write0 00010000b
  153.  write0 00100000b
  154.  write0 00000000b
  155.  write0 00000000b
  156.  write0 00000000b
  157.  write0 00000000b
  158.  write0 01111100b
  159.  write0 00000000b
  160.  write0 00000000b
  161.  write0 00000000b
  162.  write0 00000000b
  163.  write0 00000000b
  164.  write0 00000000b
  165.  write0 00000000b
  166.  write0 00000000b
  167.  write0 00000000b
  168.  write0 00110000b
  169.  write0 00110000b
  170.  write0 00000000b
  171.  write0 00000000b
  172.  write0 00000100b
  173.  write0 00001000b
  174.  write0 00010000b
  175.  write0 00100000b
  176.  write0 01000000b
  177.  write0 00000000b
  178.  write0 00000000b
  179.  write0 00111000b
  180.  write0 01000100b
  181.  write0 01001100b
  182.  write0 01010100b
  183.  write0 01100100b
  184.  write0 01000100b
  185.  write0 00111000b
  186.  write0 00000000b
  187.  write0 00010000b
  188.  write0 00110000b
  189.  write0 00010000b
  190.  write0 00010000b
  191.  write0 00010000b
  192.  write0 00010000b
  193.  write0 00111000b
  194.  write0 00000000b
  195.  write0 00111000b
  196.  write0 01000100b
  197.  write0 00000100b
  198.  write0 00001000b
  199.  write0 00010000b
  200.  write0 00100000b
  201.  write0 01111100b
  202.  write0 00000000b
  203.  write0 01111100b
  204.  write0 00001000b
  205.  write0 00010000b
  206.  write0 00001000b
  207.  write0 00000100b
  208.  write0 01000100b
  209.  write0 00111000b
  210.  write0 00000000b
  211.  write0 00001000b
  212.  write0 00011000b
  213.  write0 00101000b
  214.  write0 01001000b
  215.  write0 01111100b
  216.  write0 00001000b
  217.  write0 00001000b
  218.  write0 00000000b
  219.  write0 01111100b
  220.  write0 01000000b
  221.  write0 01000000b
  222.  write0 01111000b
  223.  write0 00000100b
  224.  write0 01000100b
  225.  write0 00111000b
  226.  write0 00000000b
  227.  write0 00011000b
  228.  write0 00100000b
  229.  write0 01000000b
  230.  write0 01111000b
  231.  write0 01000100b
  232.  write0 01000100b
  233.  write0 00111000b
  234.  write0 00000000b
  235.  write0 01111100b
  236.  write0 00000100b
  237.  write0 00001000b
  238.  write0 00010000b
  239.  write0 00100000b
  240.  write0 00100000b
  241.  write0 00100000b
  242.  write0 00000000b
  243.  write0 00111000b
  244.  write0 01000100b
  245.  write0 01000100b
  246.  write0 00111000b
  247.  write0 01000100b
  248.  write0 01000100b
  249.  write0 00111000b
  250.  write0 00000000b
  251.  write0 00111000b
  252.  write0 01000100b
  253.  write0 01000100b
  254.  write0 00111100b
  255.  write0 00000100b
  256.  write0 00001000b
  257.  write0 00110000b
  258.  write0 00000000b
  259.  write0 00000000b
  260.  write0 00110000b
  261.  write0 00110000b
  262.  write0 00000000b
  263.  write0 00110000b
  264.  write0 00110000b
  265.  write0 00000000b
  266.  write0 00000000b
  267.  write0 00000000b
  268.  write0 00110000b
  269.  write0 00110000b
  270.  write0 00000000b
  271.  write0 00110000b
  272.  write0 00010000b
  273.  write0 00100000b
  274.  write0 00000000b
  275.  write0 00001000b
  276.  write0 00010000b
  277.  write0 00100000b
  278.  write0 01000000b
  279.  write0 00100000b
  280.  write0 00010000b
  281.  write0 00001000b
  282.  write0 00000000b
  283.  write0 00000000b
  284.  write0 00000000b
  285.  write0 01111100b
  286.  write0 00000000b
  287.  write0 01111100b
  288.  write0 00000000b
  289.  write0 00000000b
  290.  write0 00000000b
  291.  write0 01000000b
  292.  write0 00100000b
  293.  write0 00010000b
  294.  write0 00001000b
  295.  write0 00010000b
  296.  write0 00100000b
  297.  write0 01000000b
  298.  write0 00000000b
  299.  write0 00111000b
  300.  write0 01000100b
  301.  write0 00000100b
  302.  write0 00001000b
  303.  write0 00010000b
  304.  write0 00000000b
  305.  write0 00010000b
  306.  write0 00000000b
  307.  write0 00111000b
  308.  write0 01000100b
  309.  write0 00000100b
  310.  write0 00110100b
  311.  write0 01010100b
  312.  write0 01010100b
  313.  write0 00111000b
  314.  write0 00000000b
  315.  write0 00111000b
  316.  write0 01000100b
  317.  write0 01000100b
  318.  write0 01000100b
  319.  write0 01111100b
  320.  write0 01000100b
  321.  write0 01000100b
  322.  write0 00000000b
  323.  write0 01111000b
  324.  write0 01000100b
  325.  write0 01000100b
  326.  write0 01111000b
  327.  write0 01000100b
  328.  write0 01000100b
  329.  write0 01111000b
  330.  write0 00000000b
  331.  write0 00111000b
  332.  write0 01000100b
  333.  write0 01000000b
  334.  write0 01000000b
  335.  write0 01000000b
  336.  write0 01000100b
  337.  write0 00111000b
  338.  write0 00000000b
  339.  write0 01110000b
  340.  write0 01001000b
  341.  write0 01000100b
  342.  write0 01000100b
  343.  write0 01000100b
  344.  write0 01001000b
  345.  write0 01110000b
  346.  write0 00000000b
  347.  write0 01111100b
  348.  write0 01000000b
  349.  write0 01000000b
  350.  write0 01111000b
  351.  write0 01000000b
  352.  write0 01000000b
  353.  write0 01111100b
  354.  write0 00000000b
  355.  write0 01111100b
  356.  write0 01000000b
  357.  write0 01000000b
  358.  write0 01111000b
  359.  write0 01000000b
  360.  write0 01000000b
  361.  write0 01000000b
  362.  write0 00000000b
  363.  write0 00111000b
  364.  write0 01000100b
  365.  write0 01000000b
  366.  write0 01011100b
  367.  write0 01000100b
  368.  write0 01000100b
  369.  write0 00111100b
  370.  write0 00000000b
  371.  write0 01000100b
  372.  write0 01000100b
  373.  write0 01000100b
  374.  write0 01111100b
  375.  write0 01000100b
  376.  write0 01000100b
  377.  write0 01000100b
  378.  write0 00000000b
  379.  write0 00111000b
  380.  write0 00010000b
  381.  write0 00010000b
  382.  write0 00010000b
  383.  write0 00010000b
  384.  write0 00010000b
  385.  write0 00111000b
  386.  write0 00000000b
  387.  write0 00011100b
  388.  write0 00001000b
  389.  write0 00001000b
  390.  write0 00001000b
  391.  write0 00001000b
  392.  write0 01001000b
  393.  write0 00110000b
  394.  write0 00000000b
  395.  write0 01000100b
  396.  write0 01001000b
  397.  write0 01010000b
  398.  write0 01100000b
  399.  write0 01010000b
  400.  write0 01001000b
  401.  write0 01000100b
  402.  write0 00000000b
  403.  write0 01000000b
  404.  write0 01000000b
  405.  write0 01000000b
  406.  write0 01000000b
  407.  write0 01000000b
  408.  write0 01000000b
  409.  write0 01111100b
  410.  write0 00000000b
  411.  write0 01000100b
  412.  write0 01101100b
  413.  write0 01010100b
  414.  write0 01010100b
  415.  write0 01000100b
  416.  write0 01000100b
  417.  write0 01000100b
  418.  write0 00000000b
  419.  write0 01000100b
  420.  write0 01000100b
  421.  write0 01100100b
  422.  write0 01010100b
  423.  write0 01001100b
  424.  write0 01000100b
  425.  write0 01000100b
  426.  write0 00000000b
  427.  write0 00111000b
  428.  write0 01000100b
  429.  write0 01000100b
  430.  write0 01000100b
  431.  write0 01000100b
  432.  write0 01000100b
  433.  write0 00111000b
  434.  write0 00000000b
  435.  write0 01111000b
  436.  write0 01000100b
  437.  write0 01000100b
  438.  write0 01111000b
  439.  write0 01000000b
  440.  write0 01000000b
  441.  write0 01000000b
  442.  write0 00000000b
  443.  write0 00111000b
  444.  write0 01000100b
  445.  write0 01000100b
  446.  write0 01000100b
  447.  write0 01010100b
  448.  write0 01001000b
  449.  write0 00110100b
  450.  write0 00000000b
  451.  write0 01111000b
  452.  write0 01000100b
  453.  write0 01000100b
  454.  write0 01111000b
  455.  write0 01010000b
  456.  write0 01001000b
  457.  write0 01000100b
  458.  write0 00000000b
  459.  write0 00111100b
  460.  write0 01000000b
  461.  write0 01000000b
  462.  write0 00111000b
  463.  write0 00000100b
  464.  write0 00000100b
  465.  write0 01111000b
  466.  write0 00000000b
  467.  write0 01111100b
  468.  write0 00010000b
  469.  write0 00010000b
  470.  write0 00010000b
  471.  write0 00010000b
  472.  write0 00010000b
  473.  write0 00010000b
  474.  write0 00000000b
  475.  write0 01000100b
  476.  write0 01000100b
  477.  write0 01000100b
  478.  write0 01000100b
  479.  write0 01000100b
  480.  write0 01000100b
  481.  write0 00111000b
  482.  write0 00000000b
  483.  write0 01000100b
  484.  write0 01000100b
  485.  write0 01000100b
  486.  write0 01000100b
  487.  write0 01000100b
  488.  write0 00101000b
  489.  write0 00010000b
  490.  write0 00000000b
  491.  write0 01000100b
  492.  write0 01000100b
  493.  write0 01000100b
  494.  write0 01010100b
  495.  write0 01010100b
  496.  write0 01010100b
  497.  write0 00101000b
  498.  write0 00000000b
  499.  write0 01000100b
  500.  write0 01000100b
  501.  write0 00101000b
  502.  write0 00010000b
  503.  write0 00101000b
  504.  write0 01000100b
  505.  write0 01000100b
  506.  write0 00000000b
  507.  write0 01000100b
  508.  write0 01000100b
  509.  write0 01000100b
  510.  write0 00101000b
  511.  write0 00010000b
  512.  write0 00010000b
  513.  write0 00010000b
  514.  write0 00000000b
  515.  write0 01111100b
  516.  write0 00000100b
  517.  write0 00001000b
  518.  write0 00010000b
  519.  write0 00100000b
  520.  write0 01000000b
  521.  write0 01111100b
  522.  write0 00000000b
  523.  write0 00111000b
  524.  write0 00100000b
  525.  write0 00100000b
  526.  write0 00100000b
  527.  write0 00100000b
  528.  write0 00100000b
  529.  write0 00111000b
  530.  write0 00000000b
  531.  write0 01000100b
  532.  write0 00101000b
  533.  write0 01111100b
  534.  write0 00010000b
  535.  write0 01111100b
  536.  write0 00010000b
  537.  write0 00010000b
  538.  write0 00000000b
  539.  write0 00111000b
  540.  write0 00001000b
  541.  write0 00001000b
  542.  write0 00001000b
  543.  write0 00001000b
  544.  write0 00001000b
  545.  write0 00111000b
  546.  write0 00000000b
  547.  write0 00010000b
  548.  write0 00101000b
  549.  write0 01000100b
  550.  write0 00000000b
  551.  write0 00000000b
  552.  write0 00000000b
  553.  write0 00000000b
  554.  write0 00000000b
  555.  write0 00000000b
  556.  write0 00000000b
  557.  write0 00000000b
  558.  write0 00000000b
  559.  write0 00000000b
  560.  write0 00000000b
  561.  write0 01111100b
  562.  write0 00000000b
  563.  write0 00100000b
  564.  write0 00010000b
  565.  write0 00001000b
  566.  write0 00000000b
  567.  write0 00000000b
  568.  write0 00000000b
  569.  write0 00000000b
  570.  write0 00000000b
  571.  write0 00000000b
  572.  write0 00000000b
  573.  write0 00111000b
  574.  write0 00000100b
  575.  write0 00111100b
  576.  write0 01000100b
  577.  write0 00111100b
  578.  write0 00000000b
  579.  write0 01000000b
  580.  write0 01000000b
  581.  write0 01011000b
  582.  write0 01100100b
  583.  write0 01000100b
  584.  write0 01000100b
  585.  write0 01111000b
  586.  write0 00000000b
  587.  write0 00000000b
  588.  write0 00000000b
  589.  write0 00111000b
  590.  write0 01000000b
  591.  write0 01000000b
  592.  write0 01000100b
  593.  write0 00111000b
  594.  write0 00000000b
  595.  write0 00000100b
  596.  write0 00000100b
  597.  write0 00110100b
  598.  write0 01001100b
  599.  write0 01000100b
  600.  write0 01000100b
  601.  write0 00111100b
  602.  write0 00000000b
  603.  write0 00000000b
  604.  write0 00000000b
  605.  write0 00111000b
  606.  write0 01000100b
  607.  write0 01111100b
  608.  write0 01000000b
  609.  write0 00111000b
  610.  write0 00000000b
  611.  write0 00011000b
  612.  write0 00100100b
  613.  write0 00100000b
  614.  write0 01110000b
  615.  write0 00100000b
  616.  write0 00100000b
  617.  write0 00100000b
  618.  write0 00000000b
  619.  write0 00000000b
  620.  write0 00000000b
  621.  write0 00111100b
  622.  write0 01000100b
  623.  write0 01000100b
  624.  write0 00111100b
  625.  write0 00000100b
  626.  write0 00111000b
  627.  write0 01000000b
  628.  write0 01000000b
  629.  write0 01011000b
  630.  write0 01100100b
  631.  write0 01000100b
  632.  write0 01000100b
  633.  write0 01000100b
  634.  write0 00000000b
  635.  write0 00010000b
  636.  write0 00000000b
  637.  write0 00110000b
  638.  write0 00010000b
  639.  write0 00010000b
  640.  write0 00010000b
  641.  write0 00111000b
  642.  write0 00000000b
  643.  write0 00001000b
  644.  write0 00000000b
  645.  write0 00011000b
  646.  write0 00001000b
  647.  write0 00001000b
  648.  write0 01001000b
  649.  write0 00110000b
  650.  write0 00000000b
  651.  write0 00100000b
  652.  write0 00100000b
  653.  write0 00100100b
  654.  write0 00101000b
  655.  write0 00110000b
  656.  write0 00101000b
  657.  write0 00100100b
  658.  write0 00000000b
  659.  write0 00110000b
  660.  write0 00010000b
  661.  write0 00010000b
  662.  write0 00010000b
  663.  write0 00010000b
  664.  write0 00010000b
  665.  write0 00111000b
  666.  write0 00000000b
  667.  write0 00000000b
  668.  write0 00000000b
  669.  write0 01101000b
  670.  write0 01010100b
  671.  write0 01010100b
  672.  write0 01000100b
  673.  write0 01000100b
  674.  write0 00000000b
  675.  write0 00000000b
  676.  write0 00000000b
  677.  write0 01111000b
  678.  write0 01000100b
  679.  write0 01000100b
  680.  write0 01000100b
  681.  write0 01000100b
  682.  write0 00000000b
  683.  write0 00000000b
  684.  write0 00000000b
  685.  write0 00111000b
  686.  write0 01000100b
  687.  write0 01000100b
  688.  write0 01000100b
  689.  write0 00111000b
  690.  write0 00000000b
  691.  write0 00000000b
  692.  write0 00000000b
  693.  write0 01111000b
  694.  write0 01000100b
  695.  write0 01000100b
  696.  write0 01111000b
  697.  write0 01000000b
  698.  write0 01000000b
  699.  write0 00000000b
  700.  write0 00000000b
  701.  write0 00110100b
  702.  write0 01001100b
  703.  write0 01000100b
  704.  write0 00111100b
  705.  write0 00000100b
  706.  write0 00000100b
  707.  write0 00000000b
  708.  write0 00000000b
  709.  write0 01011000b
  710.  write0 01100100b
  711.  write0 01000000b
  712.  write0 01000000b
  713.  write0 01000000b
  714.  write0 00000000b
  715.  write0 00000000b
  716.  write0 00000000b
  717.  write0 00111000b
  718.  write0 01000000b
  719.  write0 00111000b
  720.  write0 00000100b
  721.  write0 01111000b
  722.  write0 00000000b
  723.  write0 00100000b
  724.  write0 00100000b
  725.  write0 01110000b
  726.  write0 00100000b
  727.  write0 00100000b
  728.  write0 00100100b
  729.  write0 00011000b
  730.  write0 00000000b
  731.  write0 00000000b
  732.  write0 00000000b
  733.  write0 01000100b
  734.  write0 01000100b
  735.  write0 01000100b
  736.  write0 01001100b
  737.  write0 00110100b
  738.  write0 00000000b
  739.  write0 00000000b
  740.  write0 00000000b
  741.  write0 01000100b
  742.  write0 01000100b
  743.  write0 01000100b
  744.  write0 00101000b
  745.  write0 00010000b
  746.  write0 00000000b
  747.  write0 00000000b
  748.  write0 00000000b
  749.  write0 01000100b
  750.  write0 01000100b
  751.  write0 01000100b
  752.  write0 01010100b
  753.  write0 00101000b
  754.  write0 00000000b
  755.  write0 00000000b
  756.  write0 00000000b
  757.  write0 01000100b
  758.  write0 00101000b
  759.  write0 00010000b
  760.  write0 00101000b
  761.  write0 01000100b
  762.  write0 00000000b
  763.  write0 00000000b
  764.  write0 00000000b
  765.  write0 01000100b
  766.  write0 01000100b
  767.  write0 00111100b
  768.  write0 00000100b
  769.  write0 00111000b
  770.  write0 00000000b
  771.  write0 00000000b
  772.  write0 00000000b
  773.  write0 01111100b
  774.  write0 00001000b
  775.  write0 00010000b
  776.  write0 00100000b
  777.  write0 01111100b
  778.  write0 00000000b
  779.  write0 00001000b
  780.  write0 00010000b
  781.  write0 00010000b
  782.  write0 00100000b
  783.  write0 00010000b
  784.  write0 00010000b
  785.  write0 00001000b
  786.  write0 00000000b
  787.  write0 00010000b
  788.  write0 00010000b
  789.  write0 00010000b
  790.  write0 00010000b
  791.  write0 00010000b
  792.  write0 00010000b
  793.  write0 00010000b
  794.  write0 00000000b
  795.  write0 00100000b
  796.  write0 00010000b
  797.  write0 00010000b
  798.  write0 00001000b
  799.  write0 00010000b
  800.  write0 00010000b
  801.  write0 00100000b
  802.  write0 00000000b
  803.  write0 00000000b
  804.  write0 00000000b
  805.  write0 00100000b
  806.  write0 01010100b
  807.  write0 00001000b
  808.  write0 00000000b
  809.  write0 00000000b
  810.  write0 00000000b
  811.  write0 00000000b
  812.  write0 00000000b
  813.  write0 00000000b
  814.  write0 00000000b
  815.  write0 00000000b
  816.  write0 00000000b
  817.  write0 00000000b
  818.  write0 00000000b
  819.  
  820.  writereg 00000000b  4 ; pattern gen table base 0 0 A16 ... A11
  821. ;;;;;;;;;;  Write Text ;;;;;;;;;;;;;;;;;;;;
  822.  writereg 00000000b 45
  823.  writereg 00000100b 14 ; 0 0 0 0 0 a16 a15 a14
  824.  write1   00000000b    ; a7 - a0
  825.  write1   01000000b    ; 0 !r/w a13 - a8
  826.  
  827.  write0 0x28
  828.  write0 0x25
  829.  write0 0x2c
  830.  write0 0x2c
  831.  write0 0x2f
  832.  write0 0x00
  833.  write0 0x37
  834.  write0 0x2f
  835.  write0 0x32
  836.  write0 0x2c
  837.  write0 0x24
  838.  write0 0x01
  839. ;To clear the rest of the screen :
  840. ;ld hl,0x700
  841. ;loop:
  842. ; write0 0x00
  843. ; dec hl
  844. ; ld a,h
  845. ;xor 0
  846. ;jr nz,loop
  847. ;ld a,l
  848. ;xor 0
  849. ;jr nz,loop
  850.  
  851.  writereg 00100011b  2 ; pattern name table base [ 0 A16 A15 A14 A13 A12 1 1 ]
  852. ;;;;;;;;;;;;;;write color ;;;;;;;;;;;;;;;;;;;;
  853.  
  854.  writereg 00000001b  16
  855.  write2   00000000b ;0RRR0BBB
  856.  write2   00000111b ;00000GGG
  857.  
  858.  writereg 00000000b  16
  859.  write2   00000111b ;0RRR0BBB
  860.  write2   00000000b ;00000GGG
  861.  
  862.  writereg 00000010b  16
  863.  write2   01110000b ;0RRR0BBB
  864.  write2   00000000b ;00000GGG
  865.  
  866.  writereg 00000011b  16
  867.  write2   00000000b ;0RRR0BBB
  868.  write2   00000000b ;00000GGG
  869.  
  870.  writereg 00110001b  7
  871. ;;;;;;;;;;;;;write blink ;;;;;;;;;;;;;;;;;;;
  872.  writereg 00000000b 45
  873.  writereg 00000000b 14 ; 0 0 0 0 0 a16 a15 a14
  874.  write1   00000000b    ; a7 - a0
  875.  write1   01001010b    ; 0 !r/w a13 - a8
  876.  
  877.  
  878. ld hl,0x100
  879. loop1:
  880.  write0 0x00
  881.  dec hl
  882.  ld a,h
  883. xor 0
  884. jr nz,loop1
  885. ld a,l
  886. xor 0
  887. jr nz,loop1
  888.  
  889.  
  890. writereg 00101111b 3 ; A13 A12 A11 A9 1 1 1
  891. writereg 00000000b 10; 0 0 0 0 0 A16 A15 A14
  892. writereg 00110000b 12; alt colors for blink
  893. writereg 00100010b 13; blink on/off
  894. ;;;;;;; please work ;;;;;;;
  895.  
  896. ;ld bc,0
  897. ;ld a,0xBB
  898. ;out (c),a
  899.  
  900. di
  901. halt
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!