Leds

wattr 1Fh
curs 0,19
wprintf"{        }            {        }"
row=0;col=31;wattr 1ah;wprint"08/10/24"
Command ShowLeds
    // BSY INDX CORR DREQ DRSC WRFT DRDY ERR     AMNF T0NF ABRT MCR IDNF MC UNCR BBK
    // Screen Attributes
    // Blink	087h
    // Bright	00Fh
    // Normal	007h
    // Reverse	070h

    //wattr 7 // Window Text Attribute byte
    //curs 25,0 // Set user window cursor to given row and column
    //wprintf"                                                                                "
    rtf // Read all task file registers & update the screen

    // 7.2.13 Status register
    // +=======-=======-=======-=======-=======-=======-=======-=======+
    // |   7   |   6   |   5   |   4   |   3   |   2   |   1   |   0   |
    // |-------+-------+-------+-------+-------+-------+-------+-------|
    // |  BSY  | DRDY  |  DWF  |  DSC  |  DRQ  | CORR  |  IDX  |  ERR  |
    // +===============================================================+
    curs 0,27
    if (rStat Bit 0)
	  wattr 4Fh
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,26
    if (rStat Bit 1)
	  wattr 1Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,25
    if (rStat Bit 2)
	  wattr 1Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,24
    if (rStat Bit 3)
	  wattr 1Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,23
    if (rStat Bit 4)
	  wattr 1Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,22
    if (rStat Bit 5)
	  wattr 1Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,21
    if (rStat Bit 6)
	  wattr 1Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,20
    if (rStat Bit 7)
	  wattr 1Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif


    // 7.2.9 Error register
    // +=====-=====-=====-=====-=====-=====-=====-=====+
    // |  7  |  6  |  5  |  4  |  3  |  2  |  1  |  0  |
    // |-----+-----+-----+-----+-----+-----+-----+-----|
    // | BBK | UNC |  MC | IDNF| MCR | ABRT|TK0NF|AMNF |
    // +===============================================+
    curs 0,42
    if (rErr Bit 0)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,43
    if (rErr Bit 1)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,44
    if (rErr Bit 2)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,45
    if (rErr Bit 3)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,46
    if (rErr Bit 4)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,47
    if (rErr Bit 5)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,48
    if (rErr Bit 6)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
    curs 0,49
    if (rErr Bit 7)
	  wattr 4Ah
      wprintf"#"
    else
	  wattr 7
      wprintf"#"
    eif
Ecommand


uvar Leds=0

OnScrnUpd //Begin Screen Update Event Handler
  ShowLeds
end;

OnVClk // This event handler will be called each time the VClk is updated (approximately every 200ms)
 if (Leds>250)
   ShowLeds
   Leds=0
 eif
 Leds += 1
end;