programs/first-steps/src/spiel.asm

   1 ****
   2 *HACHTI'S AKTUELLES PROGRAMM.SAGT HALLO AUF DEM TELETYPE UND IST
   3 *AUCH SONST GANZ TOLL
   4 *
   5 *STARTE BEI '1000:
   6         ORG     '1000
   7 *
   8 *LOAD MODUS, DER ASSEMBLER VERBIETET SICH JEDE INTELLIGENZ
   9 *BEI DER ADRESSIERUNG
  10         LOAD
  11 *
  12 *ERSTMAL WEGSPRINGEN
  13         JMP     MAIN
  14 *
  15 *GELABER WAR SCHON IMMER MEINE STAERKE :-)
  16 MOTD    BCI     21,HEY, HIER IST HACHTI'S ERSTES PROGRAM :-)
  17         DEC     13,10,13,10
  18         BCI     9,DAS REICHT ERSTMAL
  19         DEC     13,10
  20 EMO     DEC     0
  21 SP      DAC     MOTD
  22 EP      DAC     EMO
  23 *
  24 *
  25 ******************************************************************
  26 *                       AUSGABEROUTINE                           *
  27 ******************************************************************
  28 PRT     DAC     **
  29 *
  30 *ASR ANSTELLEN:
  31         OCP     '0104
  32 *
  33 *INDEX AKTIVIEREN:
  34         LDA*    SP
  35         STA     0
  36 *
  37 *SPIEL BEGINNT:
  38 RND     LDA     0
  39         SUB     EP
  40         SNZ
  41 * SKIP WENN SP=EP >> FERTIG
  42         JMP*    PRT
  43 *
  44         LDA*    0
  45 *
  46         ICA
  47         OTA     '0004
  48         JMP     *-1
  49 *
  50         ICA
  51         OTA     '0004
  52         JMP     *-1
  53 *
  54         IRS     0
  55         NOP
  56         JMP     RND
  57 *****************************************************
  58 *****************************************************
  59 *          MAIN ROUTINE
  60 *
  61 MAIN    JST     PRT
  62         IAB
  63         AOA
  64         IAB
  65         SR1
  66         JMP     *-1
  67         JMP     MAIN
  68         END
  69 *****************************************************
  70
  71
  72