c08e22bb |
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 | * |
45 | LDA* 0 |
46 | * |
47 | ICA |
48 | OTA '0004 |
49 | JMP *-1 |
50 | * |
51 | ICA |
52 | OTA '0004 |
53 | JMP *-1 |
54 | * |
55 | IRS 0 |
56 | NOP |
57 | JMP RND |
58 | ***************************************************** |
59 | ***************************************************** |
60 | * MAIN ROUTINE |
61 | * |
62 | MAIN JST PRT |
63 | IAB |
64 | AOA |
65 | IAB |
66 | SR1 |
67 | JMP *-1 |
68 | JMP MAIN |
69 | END |
70 | ***************************************************** |
71 | |
72 | |
73 | |