DataMuseum.dk

top - download

    Length: 2169 (0x879)
    Types: TextFile
    Names: »TELE.SRC«

└─⟦b678e5579⟧ Bits:30005502 8" CR80 Floppy CR80FD_0031 ( TELECINE BACKUP )
└─⟦b678e5579⟧ Intel_ISIS_II
    └─ ⟦this⟧ »TELE.SRC« 

TextFile

PRINT:\r
DO;\r
\r
DECLARE BUF1(*) BYTE DATA(' 1200'),\r
        BUF2(*) BYTE DATA(' 300'),\r
        BUF3(*) BYTE DATA(' 2400'),\r
        BUF4(*) BYTE DATA(' 4800'),\r
        BUF5(*) BYTE DATA(' 9600'),\r
        Q BYTE,\r
        BCODE BYTE,\r
        BMUL BYTE,\r
        BUFFER(7) BYTE,\r
        ACTUAL  ADDRESS,\r
        STATUS  ADDRESS,\r
        I       ADDRESS;\r
\r
READ:PROCEDURE(AFT,BUFFER,COUNT,ACTUAL,STATUS) EXTERNAL;\r
DECLARE(AFT,BUFFER,COUNT,ACTUAL,STATUS)ADDRESS;\r
END READ;\r
\r
EXIT:PROCEDURE EXTERNAL;\r
DECLARE STATUS ADDRESS;\r
END EXIT;\r
\r
ERROR:PROCEDURE(ERRNUM)EXTERNAL;\r
DECLARE(ERRNUM,STATUS)ADDRESS;\r
END ERROR;\r
\r
\r
   CALL READ(1,.BUFFER,7,.ACTUAL,.STATUS);\r
   IF STATUS<>0\r
   THEN DO;\r
           CALL ERROR(STATUS);\r
           CALL EXIT;\r
        END;\r
   Q=0;\r
   DO I=1 TO 2 BY 1;\r
      IF BUFFER(I)=BUF4(I)\r
      THEN DO;\r
              BCODE=010H; /*4800 BAUD*/\r
              BMUL =07AH;\r
              Q=1;\r
           END;\r
      IF BUFFER(I)=BUF5(I)\r
      THEN DO;\r
              BCODE=08H; /*9600 BAUD*/\r
              BMUL =07AH;\r
              Q=1;\r
           END;\r
      IF BUFFER(I)=BUF3(I)\r
      THEN DO;\r
              BCODE=020H; /*2400 BAUD*/\r
              BMUL= 07AH;\r
              Q=1;\r
           END;\r
      IF BUFFER(I)=BUF1(I)\r
      THEN DO;\r
              BCODE=010H; /*1200 BAUD*/\r
              BMUL= 07BH;\r
              Q=1;\r
           END;\r
   END;\r
   IF Q=1\r
   THEN DO;\r
           OUTPUT(0F5H)=040H;\r
           OUTPUT(0F3H)=036H;\r
           OUTPUT(0F0H)=BCODE;\r
           CALL TIME(5);\r
           OUTPUT(0F0H)=000H;\r
           OUTPUT(0F5H)=BMUL;\r
           CALL TIME(5);\r
           OUTPUT(0F5H)=025H;\r
           CALL EXIT;\r
        END;\r
   I=0;\r
   DO WHILE (BUFFER(I)=BUF2(I)) AND I<=3;\r
      I=I+1;\r
   END;\r
   IF I=4\r
   THEN DO;\r
           OUTPUT(0F5H)=040H;\r
           OUTPUT(0F3H)=036H;\r
           OUTPUT(0F0H)=040H; /*300 BAUD*/\r
           CALL TIME(5);\r
           OUTPUT(0F0H)=000H;\r
           OUTPUT(0F5H)=04FH;\r
           CALL TIME(5);\r
           OUTPUT(0F5H)=025H;\r
           CALL EXIT;\r
        END;\r
    I=065H;\r
    STATUS=.I;\r
    CALL ERROR(STATUS);\r
    CALL EXIT;\r
END;\r