Subversion Repositories pentevo

Rev

Rev 291 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1. .EQU    TVID_TST_CNT    =0
  2. ;
  3. ;--------------------------------------
  4. ;
  5. TESTVIDEO:
  6.         GETMEM  1
  7.  
  8.         LDI     XL,0
  9.         LDI     XH,0
  10.         CALL    SCR_SET_CURSOR
  11.         LDI     DATA,$00
  12.         LDI     TEMP,$00
  13.         LDIW    53*25
  14.         CALL    SCR_FILLLONG_CHAR_ATTR
  15.         LDI     XL,15
  16.         LDI     XH,4
  17.         CALL    SCR_SET_CURSOR
  18.         LDIZ    (MSG_TITLE2*2)+3
  19.         CALL    SCR_PRINTSTRZ
  20.  
  21. T_VID22:MOV     DATA,MODE1
  22.         ANDI    DATA,0B10000000
  23. T_VID21:INC     DATA
  24.         STH     TVID_TST_CNT,DATA
  25.         LDI     TEMP,SCR_MODE
  26.         CALL    FPGA_REG
  27.         CALL    WAITKEY
  28.         CPI     DATA,KEY_ESC
  29.         BREQ    T_VID99
  30.         LDH     DATA,TVID_TST_CNT
  31.         MOV     TEMP,DATA
  32.         ANDI    TEMP,$0F
  33.         CPI     TEMP,6
  34.         BRCS    T_VID21
  35.         RJMP    T_VID22
  36.  
  37. T_VID99:MOV     DATA,MODE1
  38.         ANDI    DATA,0B10000000
  39.         LDI     TEMP,SCR_MODE
  40.         CALL    FPGA_REG
  41.  
  42.         FREEMEM 1
  43.         RET
  44. ;
  45. ;--------------------------------------
  46. ;
  47.