Subversion Repositories pentevo

Rev

Rev 277 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. .EQU    TVID_LCOUNT     =0
  2. .EQU    TVID_PTR_L      =1
  3. .EQU    TVID_PTR_H      =2
  4. ;
  5. ;--------------------------------------
  6. ;
  7. TESTVIDEO:
  8.         GETMEM  3
  9. ;
  10.         LDIZ    T_VID_VBAND*2
  11.         RCALL   T_VID_DRAWBAND
  12.         CALL    WAITKEY
  13.         CPI     DATA,KEY_ESC
  14.         BRNE    T_VID01
  15.         RJMP    T_VID99
  16. T_VID01:
  17. ;
  18.         LDIZ    T_VID_HBAND*2
  19.         RCALL   T_VID_DRAWBAND
  20.         CALL    WAITKEY
  21.         CPI     DATA,KEY_ESC
  22.         BREQ    T_VID99
  23. ;
  24.         MOV     DATA,MODE1
  25.         ANDI    DATA,0B00000001
  26.         ORI     DATA,0B11111100
  27.         LDI     TEMP,SCR_MODE
  28.         CALL    FPGA_REG
  29.         CALL    WAITKEY
  30.         PUSH    DATA
  31.         MOV     DATA,MODE1
  32.         ORI     DATA,0B11111110
  33.         LDI     TEMP,SCR_MODE
  34.         CALL    FPGA_REG
  35.         POP     DATA
  36.         CPI     DATA,KEY_ESC
  37.         BREQ    T_VID99
  38. ;
  39.         LDI     XL,0
  40.         LDI     XH,0
  41.         CALL    SCR_SET_CURSOR
  42.         LDIZ    442
  43. T_VID80:LDI     DATA,$C5        ;"┼"
  44.         LDI     TEMP,$09
  45.         LDI     COUNT,1
  46.         CALL    SCR_FILL_CHAR_ATTR
  47.         LDI     DATA,$C5        ;"┼"
  48.         LDI     TEMP,$0A
  49.         LDI     COUNT,1
  50.         CALL    SCR_FILL_CHAR_ATTR
  51.         LDI     DATA,$C5        ;"┼"
  52.         LDI     TEMP,$0C
  53.         LDI     COUNT,1
  54.         CALL    SCR_FILL_CHAR_ATTR
  55.         SBIW    ZL,1
  56.         BRNE    T_VID80
  57.         CALL    WAITKEY
  58. ;        CPI     DATA,KEY_ESC
  59. ;        BREQ    T_VID99
  60. ;
  61. T_VID99:FREEMEM  3
  62.         RET
  63. ;
  64. ;--------------------------------------
  65. ;
  66. T_VID_DRAWBAND:
  67.         LDI     XL,0
  68.         LDI     XH,0
  69.         CALL    SCR_SET_CURSOR
  70. T_VID15:LPM     COUNT,Z+
  71.         STH     TVID_PTR_L,ZL
  72.         STH     TVID_PTR_H,ZH
  73.         TST     COUNT
  74.         BREQ    T_VID19
  75. T_VID14:STH     TVID_LCOUNT,COUNT
  76.         LDH     ZL,TVID_PTR_L
  77.         LDH     ZH,TVID_PTR_H
  78. T_VID13:LPM     COUNT,Z+
  79.         TST     COUNT
  80.         BREQ    T_VID11
  81.         LPM     TEMP,Z+
  82.         LDI     DATA,$20        ;" "
  83.         CPI     TEMP,$10
  84.         BRCC    T_VID12
  85.         LDI     DATA,$DB        ;"█"
  86. T_VID12:CALL    SCR_FILL_CHAR_ATTR
  87.         RJMP    T_VID13
  88. T_VID11:LDH     COUNT,TVID_LCOUNT
  89.         DEC     COUNT
  90.         BRNE    T_VID14
  91.         RJMP    T_VID15
  92. T_VID19:RET
  93. ;
  94. ;--------------------------------------
  95. ;
  96. T_VID_VBAND:
  97.         .DB     3,  7,$70,7,$60,7,$50,7,$40,7,$30,7,$20,7,$10,4,$00 ,0
  98.         .DB     3,  7,$F0,7,$E0,7,$D0,7,$C0,7,$B0,7,$A0,7,$90,4,$00 ,0
  99.         .DB     13, 7,$0F,7,$0E,7,$0D,7,$0C,7,$0B,7,$0A,7,$09,4,$00 ,0
  100.         .DB     3,  7,$F0,7,$E0,7,$D0,7,$C0,7,$B0,7,$A0,7,$90,4,$00 ,0
  101.         .DB     3,  7,$70,7,$60,7,$50,7,$40,7,$30,7,$20,7,$10,4,$00 ,0
  102.         .DB     0,0
  103. T_VID_HBAND:
  104.         .DB     3,  53,$00                         ,0
  105.         .DB     3,  7,$10,7,$90,25,$09,7,$90,7,$10 ,0
  106.         .DB     3,  7,$20,7,$A0,25,$0A,7,$A0,7,$20 ,0
  107.         .DB     3,  7,$30,7,$B0,25,$0B,7,$B0,7,$30 ,0
  108.         .DB     3,  7,$40,7,$C0,25,$0C,7,$C0,7,$40 ,0
  109.         .DB     3,  7,$50,7,$D0,25,$0D,7,$D0,7,$50 ,0
  110.         .DB     3,  7,$60,7,$E0,25,$0E,7,$E0,7,$60 ,0
  111.         .DB     3,  7,$70,7,$F0,25,$0F,7,$F0,7,$70 ,0
  112.         .DB     1,  53,$00                         ,0
  113.         .DB     0,0
  114. ;
  115. ;--------------------------------------
  116. ;
  117.