11
2 8080 MACRO ASSEMBLER, VER 3.0        ERRORS = 0
3+                                                      19:38  05/13/2017
4+                                                                                      PAGE 1
5
6
7
8                   ;
9                   ; MINIMAL BOOTSTRAP PROGRAM FOR TARBELL SD CONTROLLER
10                   ; SUITABLE FOR FAST 82S123 ROM OR ENTERING PER FRONT PANEL
11                   ;
12   00FC            WAIT    EQU  0FCH
13   00F8            DCOM    EQU  0F8H
14   00FB            DDATA   EQU  0FBH
15   00F8            STAT    EQU  0F8H
16   00FA            SECT    EQU  0FAH
17
18   FE00                    ORG  0FE00H             ;FOR EXTERNAL BOOT ROM, 0 FOR ONBOARD ROM
19
20   FE00   DBFC             IN   WAIT               ;WAIT FOR HOME
21   FE02   AF               XRA  A                  ;SETS A TO 0
22   FE03   6F               MOV  L,A                ;START LOCATION IN RAM = 0
23   FE04   67               MOV  H,A
24   FE05   3C               INR  A                  ;SETS A TO 1
25   FE06   D3FA             OUT  SECT               ;SET SECTOR REGISTER
26   FE08   3E8C             MVI  A,08CH             ;GET READ COMMAND
27   FE0A   D3F8             OUT  DCOM               ;ISSUE COMMAND TO 1771
28   FE0C   DBFC     NEXT:   IN   WAIT               ;WAIT FOR INTRQ OR DRQ
29   FE0E   B7               ORA  A                  ;SET FLAGS
30   FE0F   F219FE           JP   DONE               ;DONE IF INTRQ
31   FE12   DBFB             IN   DDATA              ;READ BYTE FROM CONTROLLER
32   FE14   77               MOV  M,A                ;MOVE IT TO RAM
33   FE15   23               INX  H                  ;ADVANCE ONE BYTE
34   FE16   C30CFE           JMP  NEXT               ;READ NEXT BYTE
35   FE19   DBF8     DONE:   IN   STAT               ;READ DISK STATUS
36   FE1B   B7               ORA  A                  ;SET FLAGS
37   FE1C   CA7D00           JZ   7DH                ;GO TO SBOOT IF ZERO
38   FE1F   76               HLT                     ;ERROR - HALT
39
40                           END
41 NO PROGRAM ERRORS
421
43 8080 MACRO ASSEMBLER, VER 3.0        ERRORS = 0
44+                                                      19:38  05/13/2017
45+                                                                                      PAGE 2
46
47
48
49                        SYMBOL TABLE
50
51  * 01
52
53  A      0007      B      0000      C      0001      D      0002
54  DCOM   00F8      DDATA  00FB      DONE   FE19      E      0003
55  H      0004      L      0005      M      0006      NEXT   FE0C
56  PSW    0006      SECT   00FA      SP     0006      STAT   00F8
57  WAIT   00FC
58
59