00001 *************************
00002 *
00003 * BTGL.ASM
00004 * MDJ 01-25-91
00005 *
00006 * BAUD RATE TOGGLE
00007 *
00008 *************************
00009 *
00010 XCURS   EQU     $F3
00011 YCURS   EQU     $F5
00012 DOTF    EQU     $4F46
00013 SPACE   EQU     $4EBD
00014 BCODE   EQU     $96
00015         ORG     $5C18
00016 BTGL    PSHS    A,B
00017         LDA     BCODE   GET BAUD RATE CODE
00018         CMPA    #1      IS IT 9600 BAUD?
00019         BEQ     BT96    GO IF YES
00020         CMPA    #7      IS IT 4800 BAUD?
00021         BEQ     BT48    GO IF YES
00022         CMPA    #18     IS IT 2400 BAUD?
00023         BEQ     BT24    GO IF YES
00024         CMPA    #41     IS IT 1200 BAUD
00025         BEQ     BT12    GO IF YES
00026         CMPA    #87     IS IT 600 BAUD?
00027         BEQ     BT6     GO IF YES
00028         LDA     #87     SET 600 BAUD
00029         BRA     BTA
00030 BT6     LDA     #41     SET 1200 BAUD
00031         BRA     BTA
00032 BT12    LDA     #18     SET 2400 BAUD
00033         BRA     BTA
00034 BT24    LDA     #7      SET 4800 BAUD
00035         BRA     BTA
00036 BT48    LDA     #1      SET 9600 BAUD
00037         BRA     BTA
00038 BT96    LDA     #180    SET 300 BAUD
00039 BTA     STA     BCODE
00040 BTGLT   LDD     #120    SET Y-LOCATION
00041         STD     YCURS
00042         LDD     #120    SET X-LOCATION
00043         STD     XCURS
00044         JSR     SPACE   CLEAR FIELD
00045         JSR     SPACE
00046         JSR     SPACE
00047         JSR     SPACE
00048         STD     XCURS   RESET X-LOCATION
00049         LDA     BCODE   LOAD BAUD RATE CODE
00050         CMPA    #1      IS IT 9600 BAUD?
00051         BEQ     BTT96   GO IF YES
00052         CMPA    #7      IS IT 4800 BAUD?
00053         BEQ     BTT48   GO IF YES
00054         CMPA    #18     IS IT 2400 BAUD?
00055         BEQ     BTT24   GO IF YES
00056         CMPA    #41     IS IT 1200 BAUD?
00057         BEQ     BTT12   GO IF YES
00058         CMPA    #180    IS IT 300 BAUD?
 
 
 
 
 
 
 
 
00059         BEQ     BTT3    GO IF YES
00060         LDD     #600    TYPE 600 BAUD
00061         BRA     BTB
00062 BTT3    LDD     #300    TYPE 300 BAUD
00063         BRA     BTB
00064 BTT12   LDD     #1200   TYPE 1200 BAUD
00065         BRA     BTB
00066 BTT24   LDD     #2400   TYPE 2400 BAUD
00067         BRA     BTB
00068 BTT48   LDD     #4800   TYPE 4800 BAUD
00069         BRA     BTB
00070 BTT96   LDD     #9600   TYPE 9600 BAUD
00071 BTB     PSHU    A,B
00072         JSR     DOTF    TYPE BAUD RATE TO SCREEN
00073         PULS    A,B
00074 ZEND    RTS
00075         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
