c08e22bb |
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 | . |