; HDT C4 BOOT PROM ; commented by Holger Veit 2013 ; The file was produced from CPU-C5.BIN from bitsavers.org ; by a self-written IDA module. IDA is a software by Hexrays/Datarescue. ; ; This work is Creative Commons CC-BY-SA ; ; This is the ROM version of HDT. ; ; This ROM can boot from the built-in floppy drive ; as well as from a PRIAM QBUS HD controller. ; Functions to examine and modify memory locations ; are not present (were removed in favor of PRIAM boot code). ; Only commands 'R' and 'P' are present. ; ; Processor: WD9000 ; Target assembler: P-Code Pseudo Assembler ; Note: this is no valid assembler and not intended to be ; converted back into machine code. BOOTTIB:0000 ; START OF SEGMENT BOOTTIB:0000 .WORD $f401 ; fc68 points here - start of ROM, "MR" BOOTTIB:0002 .WORD $f404 ; MR=0: CTP BOOTTIB:0004 .WORD $f410 ; MR=1: SSV BOOTTIB:0006 .WORD $fc00 ; MR=2: RQ BOOTTIB:0008 .WORD $fc00 ; ---TIB--- BOOTTIB:0008 ; waitq BOOTTIB:000A .WORD $00ff ; flags/prior BOOTTIB:000C .WORD $0000 ; SPlow BOOTTIB:000E .WORD $0200 ; SPupr BOOTTIB:0010 .WORD $01e7 ; SP BOOTTIB:0012 .WORD $01e7 ; MP BOOTTIB:0014 .WORD $01e7 ; BP BOOTTIB:0016 .WORD $0368 ; IPC BOOTTIB:0018 .WORD $f418 ; SEGB BOOTTIB:001A .WORD $fc00 ; hangp BOOTTIB:001C .WORD $0000 ; iorslt BOOTTIB:001E .WORD $fc00 ; SIBS BOOTTIB:0020 .WORD $fc00 ; --seg dictionary--- BOOTTIB:0020 ; ^sib0 BOOTTIB:0022 .WORD $f412 ; ^sib1 BOOTTIB:0024 .WORD $f418 ; sib1^.segbase BOOTTIB:0026 .WORD $01df ; sib1^.segleng BOOTTIB:0028 .WORD $0001 ; sib1^.segrefs BOOTTIB:002A .WORD $0000 ; sib1^.segaddr BOOTTIB:002C .WORD $0000 ; sib1^.segunit BOOTTIB:002E .WORD $0000 ; sib1^.prevsp BOOTTIB:002E ; END OF SEGMENT HDT:0000 ; START OF SEGMENT HDT:0000 .WPTR proctbl HDT:0002 .CPTR exitic_boot_priam HDT:0004 boot_priam .WORD $0007 HDT:0006 LLA 6 HDT:0008 LLA 8 HDT:000A MOV 2 HDT:000C LDCI $FF20 HDT:000F STL 2 HDT:0011 SLDL 2 HDT:0012 STL 3 HDT:0014 SLDL 3 HDT:0015 STL 4 HDT:0017 SLDL 4 HDT:0018 STL 5 HDT:001A SLDL 4 HDT:001B STL 8 HDT:001D SLDL 3 HDT:001E INC 5 HDT:0020 STL 9 HDT:0022 loc_F452 HDT:0022 SLDL 9 HDT:0023 SLDC 0 HDT:0024 STO HDT:0025 SLDL 9 HDT:0026 SLDC 1 HDT:0027 SLDC $A HDT:0028 SLDC 1 HDT:0029 STP HDT:002A loc_F45A HDT:002A SLDL 8 HDT:002B INC 3 HDT:002D SLDC 1 HDT:002E SLDC 6 HDT:002F LDP HDT:0030 FJP loc_F46B HDT:0032 SLDL 8 HDT:0033 INC 3 HDT:0035 SLDC 8 HDT:0036 SLDC 0 HDT:0037 SLDC 0 HDT:0038 STP HDT:0039 UJP loc_F45A HDT:003B loc_F46B HDT:003B SLDL 9 HDT:003C SLDC 1 HDT:003D SLDC $B HDT:003E SLDC 1 HDT:003F STP HDT:0040 SLDL 9 HDT:0041 SLDC 1 HDT:0042 SLDC $B HDT:0043 SLDC 0 HDT:0044 STP HDT:0045 loc_F475 HDT:0045 SLDL 8 HDT:0046 INC 3 HDT:0048 SLDC 1 HDT:0049 SLDC 6 HDT:004A LDP HDT:004B FJP loc_F475 HDT:004D SLDL 8 HDT:004E INC 3 HDT:0050 SLDC 8 HDT:0051 SLDC 0 HDT:0052 SLDC 0 HDT:0053 STP HDT:0054 SLDL 9 HDT:0055 SLDC 1 HDT:0056 SLDC $A HDT:0057 SLDC 0 HDT:0058 STP HDT:0059 SLDL 5 HDT:005A INC 1 HDT:005C SLDC $16 HDT:005D STO HDT:005E SLDL 5 HDT:005F INC 2 HDT:0061 SLDC 0 HDT:0062 STO HDT:0063 SLDL 5 HDT:0064 INC 3 HDT:0066 SLDC 0 HDT:0067 STO HDT:0068 SLDL 9 HDT:0069 SLDC 1 HDT:006A SLDC $A HDT:006B SLDC 1 HDT:006C STP HDT:006D SLDL 8 HDT:006E SLDC 0 HDT:006F STO HDT:0070 SLDL 8 HDT:0071 INC 1 HDT:0073 SLDC 8 HDT:0074 SLDC 0 HDT:0075 SLDL 7 HDT:0076 SLDC $10 HDT:0077 MODI HDT:0078 STP HDT:0079 SLDL 3 HDT:007A INC 6 HDT:007C SLDL 6 HDT:007D SLDC 2 HDT:007E MPI HDT:007F SLDC 1 HDT:0080 SBI HDT:0081 STO HDT:0082 SLDL 3 HDT:0083 INC 7 HDT:0085 LDCI $D3FF HDT:0088 STO HDT:0089 SLDL 8 HDT:008A INC 3 HDT:008C SLDC 8 HDT:008D SLDC 0 HDT:008E LDCB $53 HDT:0090 STP HDT:0091 loc_F4C1 HDT:0091 SLDL 9 HDT:0092 SLDC 1 HDT:0093 SLDC $F HDT:0094 LDP HDT:0095 FJP loc_F4C1 HDT:0097 SLDL 8 HDT:0098 INC 1 HDT:009A SLDC 2 HDT:009B SLDC 4 HDT:009C LDP HDT:009D SLDC 0 HDT:009E EQUI HDT:009F FJP loc_F452 HDT:00A1 exitic_boot_priam HDT:00A1 RPU 9 HDT:00A3 .ALIGN HDT:00A4 .CPTR exitic_init_fd_dma HDT:00A6 init_fd_dma .WORD $0000 HDT:00A8 LOD 1,1 HDT:00AB LDCI $4153 HDT:00AE LOD 1,2 HDT:00B1 ADI HDT:00B2 STO HDT:00B3 loc_F4E3 HDT:00B3 LOD 1,1 HDT:00B6 SIND 0 HDT:00B7 BNOT HDT:00B8 FJP loc_F4E3 HDT:00BA loc_F4EA HDT:00BA LOD 1,1 HDT:00BD LDCI $41D0 HDT:00C0 LOD 1,2 HDT:00C3 ADI HDT:00C4 STO HDT:00C5 LOD 1,1 HDT:00C8 INC 4 HDT:00CA SLDC 0 HDT:00CB STO HDT:00CC LOD 1,1 HDT:00CF INC 5 HDT:00D1 SLDC 0 HDT:00D2 STO HDT:00D3 LOD 1,1 HDT:00D6 SIND 0 HDT:00D7 BNOT HDT:00D8 FJP loc_F4EA HDT:00DA exitic_init_fd_dma HDT:00DA RPU 0 HDT:00DC .CPTR exitic_boot_fd HDT:00DE boot_fd .WORD $0005 HDT:00E0 LDCI $100 HDT:00E3 SLDL 7 HDT:00E4 MPI HDT:00E5 STL 2 HDT:00E7 LLA 1 HDT:00E9 LDCI $3CC HDT:00EC NGI HDT:00ED STO HDT:00EE loc_F51E HDT:00EE CPL 4 HDT:00F0 CPL 4 HDT:00F2 CPL 4 HDT:00F4 SLDL 1 HDT:00F5 LDCI $410F HDT:00F8 SLDL 2 HDT:00F9 ADI HDT:00FA STO HDT:00FB loc_F52B HDT:00FB SLDC 3 HDT:00FC SLDC 4 HDT:00FD MPI HDT:00FE STL 7 HDT:0100 SLDL 1 HDT:0101 SIND 0 HDT:0102 BNOT HDT:0103 FJP loc_F52B HDT:0105 SLDL 1 HDT:0106 INC 6 HDT:0108 SLDC 0 HDT:0109 STO HDT:010A SLDL 1 HDT:010B INC 7 HDT:010D SLDC $D HDT:010E NGI HDT:010F STO HDT:0110 SLDL 1 HDT:0111 INC 8 HDT:0113 SLDL 6 HDT:0114 SLDL 6 HDT:0115 ADI HDT:0116 STO HDT:0117 SLDL 1 HDT:0118 INC 9 HDT:011A SLDL 6 HDT:011B SLDL 6 HDT:011C ADI HDT:011D LDCI $100 HDT:0120 DVI HDT:0121 STO HDT:0122 SLDL 1 HDT:0123 INC $A HDT:0125 SLDC 0 HDT:0126 STO HDT:0127 SLDL 1 HDT:0128 INC 5 HDT:012A SLDC 0 HDT:012B STO HDT:012C SLDL 1 HDT:012D INC 4 HDT:012F SLDC $11 HDT:0130 STO HDT:0131 SLDL 1 HDT:0132 INC 2 HDT:0134 SLDC 1 HDT:0135 STO HDT:0136 SLDL 1 HDT:0137 LDCI $4194 HDT:013A SLDL 2 HDT:013B ADI HDT:013C STO HDT:013D loc_F56D HDT:013D SLDL 1 HDT:013E SIND 5 HDT:013F SLDC $A HDT:0140 LAND HDT:0141 SLDC 0 HDT:0142 NEQI HDT:0143 FJP loc_F56D HDT:0145 SLDL 1 HDT:0146 SIND 5 HDT:0147 SLDC 8 HDT:0148 LAND HDT:0149 SLDC 0 HDT:014A EQUI HDT:014B FJP exitic_boot_fd HDT:014D UJPL loc_F51E HDT:0150 exitic_boot_fd HDT:0150 RPU 7 HDT:0152 .CPTR exitic_emit HDT:0154 emit .WORD $0003 HDT:0156 SLDO 4 HDT:0157 SIND 2 HDT:0158 SLDC 1 HDT:0159 LAND HDT:015A SLDC 0 HDT:015B EQUI HDT:015C FJP sub_F586 HDT:015E SLDO 4 HDT:015F INC 3 HDT:0161 LDCB $FF HDT:0163 SLDL 4 HDT:0164 SBI HDT:0165 STO HDT:0166 exitic_emit HDT:0166 RPU 4 HDT:0168 .CPTR exitic_inchar HDT:016A inchar .WORD $0000 HDT:016C SLDO 4 HDT:016D SIND 2 HDT:016E SLDC 2 HDT:016F LAND HDT:0170 SLDC 0 HDT:0171 EQUI HDT:0172 FJP sub_F59C HDT:0174 LDCB $7F HDT:0176 SLDO 4 HDT:0177 SIND 3 HDT:0178 LDCB $7F HDT:017A LAND HDT:017B SBI HDT:017C SRO 1 HDT:017E SLDO 1 HDT:017F LDCB $61 HDT:0181 GEQI HDT:0182 FJP loc_F5BA HDT:0184 SLDO 1 HDT:0185 LDCB $20 HDT:0187 SBI HDT:0188 SRO 1 HDT:018A loc_F5BA HDT:018A SLDO 1 HDT:018B CPG 5 HDT:018D exitic_inchar HDT:018D RPU 0 HDT:018F .ALIGN HDT:0190 .CPTR exitic_get_number HDT:0192 get_number .WORD $0004 HDT:0194 SLDC 0 HDT:0195 STL 1 HDT:0197 loc_F5C7 HDT:0197 LLA 1 HDT:0199 SLDC 4 HDT:019A SLDC $C HDT:019B LLA 1 HDT:019D SLDC 4 HDT:019E SLDC 8 HDT:019F LDP HDT:01A0 STP HDT:01A1 LLA 1 HDT:01A3 SLDC 4 HDT:01A4 SLDC 8 HDT:01A5 LLA 1 HDT:01A7 SLDC 4 HDT:01A8 SLDC 4 HDT:01A9 LDP HDT:01AA STP HDT:01AB LLA 1 HDT:01AD SLDC 4 HDT:01AE SLDC 4 HDT:01AF LLA 1 HDT:01B1 SLDC 4 HDT:01B2 SLDC 0 HDT:01B3 LDP HDT:01B4 loc_F5E4 HDT:01B4 STP HDT:01B5 SLDO 1 HDT:01B6 LDCB $39 HDT:01B8 LEQI HDT:01B9 FJP loc_F5F6 HDT:01BB LLA 1 HDT:01BD SLDC 4 HDT:01BE SLDC 0 HDT:01BF SLDO 1 HDT:01C0 LDCB $30 HDT:01C2 SBI HDT:01C3 STP HDT:01C4 UJP loc_F601 HDT:01C6 loc_F5F6 HDT:01C6 LLA 1 HDT:01C8 SLDC 4 HDT:01C9 SLDC 0 HDT:01CA SLDO 1 HDT:01CB LDCB $41 HDT:01CD SBI HDT:01CE SLDC $A HDT:01CF ADI HDT:01D0 STP HDT:01D1 loc_F601 HDT:01D1 CPG 6 HDT:01D3 SLDO 1 HDT:01D4 LAO $11 HDT:01D6 LDM 5 HDT:01D8 SLDC 5 HDT:01D9 INN HDT:01DA BNOT HDT:01DB FJP loc_F5C7 HDT:01DD SLDL 1 HDT:01DE loc_F60E HDT:01DE STL 5 HDT:01E0 exitic_get_number HDT:01E0 RPU 4 HDT:01E2 .CPTR exitic_reboot HDT:01E4 reboot .WORD $0001 HDT:01E6 SLDO 3 HDT:01E7 BNOT HDT:01E8 FJP loc_F61D HDT:01EA SLDC 0 HDT:01EB SRO 2 HDT:01ED loc_F61D HDT:01ED LDCI $2000 HDT:01F0 STL 1 HDT:01F2 SLDO 8 HDT:01F3 SLDO 2 HDT:01F4 STO HDT:01F5 SLDO 2 HDT:01F6 SLDC $10 HDT:01F7 DVI HDT:01F8 SLDC 0 HDT:01F9 EQUI HDT:01FA FJP loc_F632 HDT:01FC SLDO 2 HDT:01FD SLDL 1 HDT:01FE CPG 2 HDT:0200 UJP loc_F636 HDT:0202 loc_F632 HDT:0202 SLDO 2 HDT:0203 SLDL 1 HDT:0204 CPG 3 HDT:0206 loc_F636 HDT:0206 SLDL 1 HDT:0207 SLDC 8 HDT:0208 ADI HDT:0209 SRO 5 HDT:020B SLDO 5 HDT:020C SLDO 5 HDT:020D SIND 0 HDT:020E SLDC $C HDT:020F ADI HDT:0210 STO HDT:0211 LDCI $FFFD HDT:0214 SLDL 1 HDT:0215 SPR HDT:0216 LAO 6 HDT:0218 WAIT HDT:0219 exitic_reboot HDT:0219 RPU 1 HDT:021B .ALIGN HDT:021C word_F64C .WORD $0000 ; case low index HDT:021E .WORD $0007 ; case high index HDT:0220 .WORD $0002 ; case idx 0 loc_F70A HDT:0222 .WORD $0007 ; case idx 1 loc_F70F HDT:0224 .WORD $000c ; case idx 2 loc_F714 HDT:0226 .WORD $0011 ; case idx 3 loc_F719 HDT:0228 .WORD $0016 ; case idx 4 loc_F71E HDT:022A .WORD $001c ; case idx 5 loc_F724 HDT:022C .WORD $0022 ; case idx 6 loc_F72A HDT:022E .WORD $0028 ; case idx 7 loc_F730 HDT:0230 a0123456789abcd .ASC '0123456789ABCDEF' HDT:0240 word_F670 .WORD $0000 HDT:0242 .WORD $0000 HDT:0244 .WORD $0000 HDT:0246 .WORD $03ff HDT:0248 .WORD $007e HDT:024A .CPTR exitic_init HDT:024C init .WORD $0004 HDT:024E LAO 6 HDT:0250 DUP1 HDT:0251 SLDC 0 HDT:0252 STO HDT:0253 INC 1 HDT:0255 LDCN HDT:0256 STO HDT:0257 LDCI $3F0 HDT:025A NGI HDT:025B STL 4 HDT:025D SLDL 4 HDT:025E SRO 4 HDT:0260 SLDO 4 HDT:0261 IND 8 HDT:0263 LDCB $80 HDT:0265 LAND HDT:0266 SLDC 0 HDT:0267 EQUI HDT:0268 FJP loc_F6AF HDT:026A LDCI $FFFD HDT:026D LDCI $4000 HDT:0270 LDCI $401 HDT:0273 SLDO 4 HDT:0274 IND 8 HDT:0276 LDCB $20 HDT:0278 LAND HDT:0279 MPI HDT:027A ADI HDT:027B SPR HDT:027C LAO 6 HDT:027E WAIT HDT:027F loc_F6AF HDT:027F LDCB $22 HDT:0281 SRO 8 HDT:0283 SLDO 8 HDT:0284 SIND 0 HDT:0285 SLDO 8 HDT:0286 SIND 1 HDT:0287 ADI HDT:0288 LDCI $4005 HDT:028B NGI HDT:028C EQUI HDT:028D STL 3 HDT:028F SLDL 3 HDT:0290 FJP loc_F6CE HDT:0292 LDCI $FFFE HDT:0295 SLDO 8 HDT:0296 SIND 2 HDT:0297 SPR HDT:0298 LDCI $FFFD HDT:029B SLDO 8 HDT:029C SIND 3 HDT:029D SPR HDT:029E loc_F6CE HDT:029E SLDL 3 HDT:029F BNOT HDT:02A0 SLDO 8 HDT:02A1 SIND 0 HDT:02A2 LOR HDT:02A3 FJPL loc_F777 HDT:02A6 LDCI $3E0 HDT:02A9 NGI HDT:02AA STL 4 HDT:02AC SLDL 4 HDT:02AD INC 4 HDT:02AF LDCB $80 HDT:02B1 STO HDT:02B2 SLDL 4 HDT:02B3 INC 4 HDT:02B5 SLDC 1 HDT:02B6 STO HDT:02B7 SLDL 4 HDT:02B8 INC 3 HDT:02BA LDCB $34 HDT:02BC STO HDT:02BD SLDL 4 HDT:02BE INC 3 HDT:02C0 LDCB $70 HDT:02C2 STO HDT:02C3 SLDL 4 HDT:02C4 INC 3 HDT:02C6 LDCB $B0 HDT:02C8 STO HDT:02C9 SLDC 0 HDT:02CA STL 1 HDT:02CC LDCB $58 HDT:02CE STL 2 HDT:02D0 SLDO 4 HDT:02D1 IND 8 HDT:02D3 SLDC 7 HDT:02D4 LAND HDT:02D5 XJP word_F64C HDT:02D8 loc_F708 HDT:02D8 UJP loc_F73D HDT:02DA loc_F70A HDT:02DA SLDL 4 HDT:02DB SLDC 2 HDT:02DC STO HDT:02DD UJP loc_F73D HDT:02DF loc_F70F HDT:02DF SLDL 4 HDT:02E0 SLDC 4 HDT:02E1 STO HDT:02E2 UJP loc_F73D HDT:02E4 loc_F714 HDT:02E4 SLDL 4 HDT:02E5 SLDC 8 HDT:02E6 STO HDT:02E7 UJP loc_F73D HDT:02E9 loc_F719 HDT:02E9 SLDL 4 HDT:02EA SLDC $10 HDT:02EB STO HDT:02EC UJP loc_F73D HDT:02EE loc_F71E HDT:02EE SLDL 4 HDT:02EF LDCB $21 HDT:02F1 STO HDT:02F2 UJP loc_F73D HDT:02F4 loc_F724 HDT:02F4 SLDL 4 HDT:02F5 LDCB $41 HDT:02F7 STO HDT:02F8 UJP loc_F73D HDT:02FA loc_F72A HDT:02FA SLDL 4 HDT:02FB LDCB $82 HDT:02FD STO HDT:02FE UJP loc_F73D HDT:0300 loc_F730 HDT:0300 SLDL 4 HDT:0301 LDCB $5D HDT:0303 STO HDT:0304 SLDC 1 HDT:0305 STL 1 HDT:0307 LDCB $78 HDT:0309 STL 2 HDT:030B UJP loc_F73D HDT:030D loc_F73D HDT:030D SLDL 4 HDT:030E SLDL 1 HDT:030F STO HDT:0310 SLDL 4 HDT:0311 INC 1 HDT:0313 SLDC 1 HDT:0314 STO HDT:0315 SLDL 4 HDT:0316 INC 1 HDT:0318 SLDC 0 HDT:0319 STO HDT:031A SLDL 4 HDT:031B INC 2 HDT:031D SLDC 1 HDT:031E STO HDT:031F SLDL 4 HDT:0320 INC 2 HDT:0322 SLDC 0 HDT:0323 STO HDT:0324 SLDO 4 HDT:0325 INC 2 HDT:0327 SLDO 4 HDT:0328 SIND 2 HDT:0329 STO HDT:032A SLDO 4 HDT:032B SLDL 2 HDT:032C STO HDT:032D SLDO 4 HDT:032E INC 1 HDT:0330 LDCB $FE HDT:0332 STO HDT:0333 SLDL 3 HDT:0334 FJP loc_F769 HDT:0336 LAO 6 HDT:0338 WAIT HDT:0339 loc_F769 HDT:0339 SLDL 4 HDT:033A SIND 4 HDT:033B LDCB $80 HDT:033D LAND HDT:033E SLDC 0 HDT:033F EQUI HDT:0340 FJP loc_F777 HDT:0342 SLDC 0 HDT:0343 SRO 3 HDT:0345 CPG 8 HDT:0347 loc_F777 HDT:0347 SLDO 8 HDT:0348 INC 1 HDT:034A SLDC 0 HDT:034B STO HDT:034C LAO 9 HDT:034E LCA a0123456789abcd HDT:0351 MOV 8 HDT:0353 LAO $11 HDT:0355 LDC word_F670,5 HDT:0359 SLDC 5 HDT:035A ADJ 5 HDT:035C STM 5 HDT:035E exitic_init HDT:035E RPU 4 HDT:0360 .CPTR exitic_mainloop HDT:0362 mainloop .WORD $0015 HDT:0364 SLDC 6 HDT:0365 LSL 0 HDT:0367 SPR HDT:0368 CPG 9 HDT:036A loc_F79A HDT:036A SLDC $D HDT:036B CPG 5 HDT:036D SLDC $A HDT:036E CPG 5 HDT:0370 LDCB $23 HDT:0372 CPG 5 HDT:0374 SLDC 0 HDT:0375 STL 2 HDT:0377 SLDC 0 HDT:0378 STL 3 HDT:037A CPG 6 HDT:037C SLDL 1 HDT:037D LLA $11 HDT:037F LDM 5 HDT:0381 SLDC 5 HDT:0382 INN HDT:0383 FJP loc_F7BD HDT:0385 SLDC 0 HDT:0386 CPG 7 HDT:0388 STL 2 HDT:038A SLDC 1 HDT:038B STL 3 HDT:038D loc_F7BD HDT:038D SLDL 1 HDT:038E LDCB $52 HDT:0390 EQUI HDT:0391 FJP loc_F7C5 HDT:0393 CPG 8 HDT:0395 loc_F7C5 HDT:0395 SLDL 1 HDT:0396 LDCB $50 HDT:0398 EQUI HDT:0399 FJP loc_F7CE HDT:039B LLA 6 HDT:039D WAIT HDT:039E loc_F7CE HDT:039E LDCB $3F HDT:03A0 CPG 5 HDT:03A2 UJPL loc_F79A HDT:03A5 exitic_mainloop HDT:03A5 CXG 3,$18 HDT:03A8 RPU $15 HDT:03AA .WPTR init HDT:03AC .WPTR reboot HDT:03AE .WPTR get_number HDT:03B0 .WPTR inchar HDT:03B2 .WPTR emit HDT:03B4 .WPTR init_fd_dma HDT:03B6 .WPTR boot_fd HDT:03B8 .WPTR boot_priam HDT:03BA .WPTR mainloop HDT:03BC proctbl .BYTE $01 ; segment # HDT:03BD .BYTE $09 ; # of procs HDT:03BE .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ; padding HDT:03BE .BYTE HDT:03CE .WORD $00b4 ; CPU serial number HDT:03CE ; END OF SEGMENT