lib/hachti/src/oct.asm

   1 * OCT - TYPE OCTAL VALUE ON THE ASR
   2 *
   3 * TYPE OUT THE VALUE IN A. A STAYS UNCHANGED AFTERWARDS
   4 *
   5         SUBR    OCT
   6 *
   7 *
   8         REL
   9 OCT     DAC     **
  10         STA     ATMP
  11         SKS     '104
  12         JMP     *-1
  13         OCP     '104
  14         IAB             SAVE TO B
  15         STA     BTMP
  16         CRA
  17         LLR     1
  18         ADD     =48
  19         OTA     '4      ASR OUTPUT
  20         JMP     *-1
  21         CRA
  22         LLR     3
  23         ADD     =48
  24         OTA     4       ASR OUTPUT
  25         OTA     4
  26         JMP     *-1
  27         CRA
  28         LLR     3
  29         ADD     =48
  30         OTA     '4      ASR OUTPUT
  31         OTA     4
  32         JMP     *-1
  33         CRA
  34         LLR     3
  35         ADD     =48
  36         OTA     '4      ASR OUTPUT
  37         OTA     4
  38         JMP     *-1
  39         CRA
  40         LLR     3
  41         ADD     =48
  42         OTA     '4      ASR OUTPUT
  43         OTA     4
  44         JMP     *-1
  45         CRA
  46         LLR     3
  47         ADD     =48
  48         OTA     '4      ASR OUTPUT
  49         OTA     4
  50         JMP     *-1
  51 *
  52         LDA     =10
  53         OTA     '4
  54         JMP     *-1
  55         LDA     =13
  56         OTA     '4
  57         JMP     *-1
  58         LDA     =13
  59         OTA     '4
  60         JMP     *-1
  61 *
  62         LDA     BTMP
  63         IAB
  64         LDA     ATMP
  65         JMP*    OCT
  66 *
  67 ATMP    DAC     **      TEMPORARY STORAGE FOR A
  68 BTMP    DAC     **      TEMPORARY STORAGE FOR B
  69 *
  70 ********************************************************************************
  71 *
  72         END