programs/tools/src/asr-test.asm

   1 * ASR-TESTPROGRAMM
   2 *
   3 *
   4 *
   5 *
   6 *STARTE BEI '1000:
   7         ORG     '1000
   8         LOAD
   9 *
  10 *ERSTMAL WEGSPRINGEN
  11         JMP     MAIN
  12 *
  13 MOTD    BCI     10,ASR-TEST 2004-11-16
  14         DEC     13,10
  15 EMO     DEC     0
  16 SP      DAC     MOTD
  17 EP      DAC     EMO
  18 VAR     DEC     0
  19 *
  20 *
  21 ******************************************************************
  22 *                       AUSGABEROUTINE                           *
  23 ******************************************************************
  24 PRT     DAC     **
  25 *
  26 *ASR ANSTELLEN:
  27         OCP     '0104
  28         SKS     '104
  29         JMP     *-1
  30 *
  31 *INDEX AKTIVIEREN:
  32         LDA*    SP
  33         STA     0
  34 *
  35 *SPIEL BEGINNT:
  36 RND     LDA     0
  37         SUB     EP
  38         SNZ
  39 * SKIP WENN SP=EP >> FERTIG
  40         JMP*    PRT
  41 *
  42 *
  43         LDA*    0
  44 *
  45         ICA
  46         OTA     '0004
  47         JMP     *-1
  48 *
  49         ICA
  50         OTA     '0004
  51         JMP     *-1
  52 *
  53         IRS     0
  54         NOP
  55         JMP     RND
  56 *****************************************************
  57 *PAUSE
  58 CYC     DEC     0
  59 CNT     DEC     **
  60 PAUS    DAC     **
  61         LDA     CYC
  62         STA     CNT
  63 CYST    NOP
  64         NOP
  65         NOP
  66         NOP
  67         NOP
  68         NOP
  69         NOP
  70         IRS     CNT
  71         JMP     CYST
  72         JMP*    PAUS
  73 *****************************************************
  74 *TTY1
  75 TTY1    DAC     **
  76         OTA     4
  77         JMP     *-1
  78         JMP*    TTY1
  79 *****************************************************
  80 *          MAIN ROUTINE
  81 *
  82 MAIN    SR1
  83 MAIN2   JST     PRT
  84         SR2
  85         JST     PAUS
  86         SR3
  87         JST     TTY1
  88         SR4
  89         HLT
  90         IAB
  91         AOA
  92         IAB
  93         JMP     MAIN
  94         END
  95 *****************************************************
  96 .