'*************************************************
'* Download this program and pull the Commit Pin *
'*      Data downloads at inverted 2400 baud     *
'*                  through pin 13               *
'*************************************************

' {$STAMP BS2pe}
' {$PBASIC 2.5}
' {$PORT COM6}


'***********************************
'* Near Space Easy Pin Definitions *
'***********************************
LCD             CON 0
CS              CON 1
DIO             CON 2
CLK             CON 3
Commit          CON 4
Servo1          CON 5
Servo2          CON 6
Servo3          CON 7
GPS             CON 8
MicroTrak       CON 9
D6              CON 10
D5              CON 11
D4              CON 12
D3              CON 13
D2              CON 14
D1              CON 15

'***********************************
'*    Near Space Easy Variables    *
'***********************************
I2400         CON 16780
DownloadPin   CON 13

Flights       VAR Word
Record        VAR Word
WordVariable  VAR Word
ByteVariable  VAR Byte
StoredData    VAR Byte
Index         VAR Nib
Analogs       VAR Nib
Digitals      VAR Nib
MaxRecord     VAR Word
MemoryBanks   VAR Nib                       ' maximum memory banks being used
MemoryBank    VAR Nib                       ' keep track of which memory bank is being read
Altitude      VAR Word
SkipBanks     VAR Nib

Read_NearSpace_Easy:

Begin:
  IF IN4 = 0 THEN Begin

Write_Title:
  SEROUT DownloadPin,I2400,["Record,Altitude,Orange,Red,Temp,940nm,850nm,IR-Temp,Sun",10,CR]

Read_Data:
  FOR Record = 1 TO 2048
    SEROUT DownloadPin,I2400,["R-", DEC4 Record]

Alt:
    MemoryBank = 2
    STORE MemoryBank
    READ Record,Altitude.BYTE0
    MemoryBank = 3
    STORE MemoryBank
    READ Record,Altitude.BYTE1
    SEROUT DownloadPin,I2400,[",", DEC Altitude]

Orange:
    MemoryBank = 4
    STORE MemoryBank
    READ Record,WordVariable.BYTE0
    MemoryBank = 5
    STORE MemoryBank
    READ Record,WordVariable.BYTE1
    SEROUT DownloadPin,I2400,[",", DEC WordVariable]

Red:
    MemoryBank = 6
    STORE MemoryBank
    READ Record,WordVariable.BYTE0
    MemoryBank = 7
    STORE MemoryBank
    READ Record,WordVariable.BYTE1
    SEROUT DownloadPin,I2400,[",", DEC WordVariable]

Temp:
    MemoryBank = 8
    STORE MemoryBank
    READ Record,WordVariable.BYTE0
    MemoryBank = 9
    STORE MemoryBank
    READ Record,WordVariable.BYTE1
    SEROUT DownloadPin,I2400,[",", DEC WordVariable]

IR940:
    MemoryBank = 10
    STORE MemoryBank
    READ Record,WordVariable.BYTE0
    MemoryBank = 11
    STORE MemoryBank
    READ Record,WordVariable.BYTE1
    SEROUT DownloadPin,I2400,[",", DEC WordVariable]

IR850:
    MemoryBank = 12
    STORE MemoryBank
    READ Record,WordVariable.BYTE0
    MemoryBank = 13
    STORE MemoryBank
    READ Record,WordVariable.BYTE1
    SEROUT DownloadPin,I2400,[",", DEC WordVariable]

IR_Temp:
    MemoryBank = 14
    STORE MemoryBank
    READ Record,WordVariable.BYTE0
    MemoryBank = 15
    STORE MemoryBank
    READ Record,WordVariable.BYTE1
    SEROUT DownloadPin,I2400,[",", DEC WordVariable]

Sun:
    MemoryBank = 16
    STORE MemoryBank
    READ Record,ByteVariable
    SEROUT DownloadPin,I2400,[",", ByteVariable,10,CR]
  NEXT
  END