; HDT C4 BOOT PROM

; partly 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,
; and has all described functionality.

; Processor:        WD9000
; Target assembler: P-Code Pseudo Assembler
; Note: this is no valid assembler and not intended to be 
; converted back into machine code.


BOOT:0000F400                 ; START OF SEGMENT
BOOT:0000F400                 .WORD   $f401           ; start address as returned by FC68
BOOT:0000F400                                         ; Note: the PDQ address decoder enables address 0 of ROM
BOOT:0000F400                                         ; which then returns the ROM start address.
BOOT:0000F402                 .WORD   $f404           ; word F401: CTP
BOOT:0000F404                 .WORD   $f410           ; word F402: SegDict
BOOT:0000F406                 .WORD   $fc00           ; word F403: RQP
BOOT:0000F408                                         ; ----TIB----
BOOT:0000F408                 .WORD   $fc00           ; word F404: Waitq
BOOT:0000F40A                 .WORD   $00ff           ; word F405: prior/flags
BOOT:0000F40C                 .WORD   $0000           ; word F406: SPlow
BOOT:0000F40E                 .WORD   $0150           ; word F407: SPupr
BOOT:0000F410                 .WORD   $0137           ; word F408: SP
BOOT:0000F412                 .WORD   $0137           ; word F409: MP
BOOT:0000F414                 .WORD   $0137           ; word F40a: BP
BOOT:0000F416                 .WORD   $0300           ; word F40b: IPC
BOOT:0000F418                 .WORD   $f418           ; word F40c: Segb
BOOT:0000F41A                 .WORD   $fc00           ; word F40d: hangp
BOOT:0000F41C                 .WORD   $0000           ; word F40e: iorslt
BOOT:0000F41E                 .WORD   $fc00           ; word F40F: ^sibsvec
BOOT:0000F420                                         ; Segdict
BOOT:0000F420                 .WORD   $fc00           ; word F410: segment 80
BOOT:0000F422                 .WORD   $f412           ; word F411: segment 81
BOOT:0000F424                 .WORD   $f418           ; word F412: start of segment 81
BOOT:0000F426                 .WORD   $01e7           ; word F413: length of segment 81
BOOT:0000F428                 .WORD   $0001           ; word F414: reference count
BOOT:0000F42A                 .WORD   $0000           ; word F415:
BOOT:0000F42C                 .WORD   $0000           ; word F416:
BOOT:0000F42E                 .WORD   $0000           ; word F417:
BOOT:0000F42E                 ; END OF SEGMENT

HDT:0000                 ; START OF SEGMENT
HDT:0000                 .WPTR   proctbl
HDT:0002                 .CPTR   exitic_proc3
HDT:0004 proc3           .WORD   $0000
HDT:0006                 LOD     1,1
HDT:0009                 LDCI    $4153
HDT:000C                 LOD     1,2
HDT:000F                 ADI
HDT:0010                 STO
HDT:0011 loc_F441
HDT:0011                 LOD     1,1
HDT:0014                 SIND    0
HDT:0015                 BNOT
HDT:0016                 FJP     loc_F441
HDT:0018 loc_F448
HDT:0018                 LOD     1,1
HDT:001B                 LDCI    $41D0
HDT:001E loc_F44E
HDT:001E                 LOD     1,2
HDT:0021                 ADI
HDT:0022                 STO
HDT:0023                 LOD     1,1
HDT:0026                 INC     4
HDT:0028                 SLDC    0
HDT:0029                 STO
HDT:002A                 LOD     1,1
HDT:002D                 INC     5
HDT:002F                 SLDC    0
HDT:0030                 STO
HDT:0031                 LOD     1,1
HDT:0034                 SIND    0
HDT:0035                 BNOT
HDT:0036                 FJP     loc_F448
HDT:0038 exitic_proc3
HDT:0038                 RPU     0
HDT:003A                 .CPTR   loc_F4DE
HDT:003C proc2           .WORD   $0005
HDT:003E                 LDCI    $100
HDT:0041                 SLDL    7
HDT:0042                 MPI
HDT:0043                 STL     2
HDT:0045                 LLA     1
HDT:0047                 LDCI    $3CC
HDT:004A                 NGI
HDT:004B                 STO
HDT:004C loc_F47C
HDT:004C                 CPL     3
HDT:004E                 CPL     3
HDT:0050                 CPL     3
HDT:0052                 SLDL    1
HDT:0053                 LDCI    $410F
HDT:0056                 SLDL    2
HDT:0057                 ADI
HDT:0058                 STO
HDT:0059 loc_F489
HDT:0059                 SLDC    3
HDT:005A                 SLDC    4
HDT:005B                 MPI
HDT:005C                 STL     7
HDT:005E                 SLDL    1
HDT:005F                 SIND    0
HDT:0060                 BNOT
HDT:0061                 FJP     loc_F489
HDT:0063                 SLDL    1
HDT:0064                 INC     6
HDT:0066                 SLDC    0
HDT:0067                 STO
HDT:0068                 SLDL    1
HDT:0069                 INC     7
HDT:006B                 SLDC    $D
HDT:006C                 NGI
HDT:006D                 STO
HDT:006E                 SLDL    1
HDT:006F                 INC     8
HDT:0071                 SLDL    6
HDT:0072                 SLDL    6
HDT:0073                 ADI
HDT:0074                 STO
HDT:0075                 SLDL    1
HDT:0076                 INC     9
HDT:0078                 SLDL    6
HDT:0079                 SLDL    6
HDT:007A                 ADI
HDT:007B                 LDCI    $100
HDT:007E                 DVI
HDT:007F                 STO
HDT:0080                 SLDL    1
HDT:0081                 INC     $A
HDT:0083                 SLDC    0
HDT:0084                 STO
HDT:0085                 SLDL    1
HDT:0086                 INC     5
HDT:0088                 SLDC    0
HDT:0089                 STO
HDT:008A                 SLDL    1
HDT:008B                 INC     4
HDT:008D                 SLDC    $11
HDT:008E                 STO
HDT:008F                 SLDL    1
HDT:0090                 INC     2
HDT:0092                 SLDC    1
HDT:0093                 STO
HDT:0094                 SLDL    1
HDT:0095                 LDCI    $4194
HDT:0098                 SLDL    2
HDT:0099                 ADI
HDT:009A                 STO
HDT:009B loc_F4CB
HDT:009B                 SLDL    1
HDT:009C                 SIND    5
HDT:009D                 SLDC    $A
HDT:009E                 LAND
HDT:009F                 SLDC    0
HDT:00A0                 NEQI
HDT:00A1                 FJP     loc_F4CB
HDT:00A3                 SLDL    1
HDT:00A4                 SIND    5
HDT:00A5                 SLDC    8
HDT:00A6                 LAND
HDT:00A7                 SLDC    0
HDT:00A8                 EQUI
HDT:00A9                 FJP     loc_F4DE
HDT:00AB                 UJPL    loc_F47C
HDT:00AE loc_F4DE
HDT:00AE                 RPU     7
HDT:00B0                 .CPTR   loc_F4F4
HDT:00B2 proc4           .WORD   $0003
HDT:00B4 loc_F4E4
HDT:00B4                 SLDO    4
HDT:00B5                 SIND    2
HDT:00B6                 SLDC    1
HDT:00B7                 LAND
HDT:00B8                 SLDC    0
HDT:00B9                 EQUI
HDT:00BA                 FJP     loc_F4E4
HDT:00BC                 SLDO    4
HDT:00BD                 INC     3
HDT:00BF                 LDCB    $FF
HDT:00C1                 SLDL    4
HDT:00C2                 SBI
HDT:00C3                 STO
HDT:00C4 loc_F4F4
HDT:00C4                 RPU     4
HDT:00C6                 .CPTR   loc_F51B
HDT:00C8 proc5           .WORD   $0000
HDT:00CA loc_F4FA
HDT:00CA                 SLDO    4
HDT:00CB                 SIND    2
HDT:00CC                 SLDC    2
HDT:00CD                 LAND
HDT:00CE                 SLDC    0
HDT:00CF                 EQUI
HDT:00D0                 FJP     loc_F4FA
HDT:00D2                 LDCB    $7F
HDT:00D4                 SLDO    4
HDT:00D5                 SIND    3
HDT:00D6                 LDCB    $7F
HDT:00D8                 LAND
HDT:00D9                 SBI
HDT:00DA                 SRO     1
HDT:00DC                 SLDO    1
HDT:00DD                 LDCB    $61
HDT:00DF                 GEQI
HDT:00E0                 FJP     loc_F518
HDT:00E2                 SLDO    1
HDT:00E3                 LDCB    $20
HDT:00E5                 SBI
HDT:00E6                 SRO     1
HDT:00E8 loc_F518
HDT:00E8                 SLDO    1
HDT:00E9                 CPG     4
HDT:00EB loc_F51B
HDT:00EB                 RPU     0
HDT:00ED                 .ALIGN
HDT:00EE                 .CPTR   loc_F54D
HDT:00F0 proc6           .WORD   $0004
HDT:00F2                 SLDL    5
HDT:00F3                 STL     1
HDT:00F5                 LAO     9
HDT:00F7                 LLA     1
HDT:00F9                 SLDC    4
HDT:00FA                 SLDC    $C
HDT:00FB                 LDP
HDT:00FC                 LDB
HDT:00FD                 CPG     4
HDT:00FF                 LAO     9
HDT:0101                 LLA     1
HDT:0103                 SLDC    4
HDT:0104                 SLDC    8
HDT:0105                 LDP
HDT:0106                 LDB
HDT:0107                 CPG     4
HDT:0109                 LAO     9
HDT:010B                 LLA     1
HDT:010D                 SLDC    4
HDT:010E                 SLDC    4
HDT:010F                 LDP
HDT:0110                 LDB
HDT:0111                 CPG     4
HDT:0113                 LAO     9
HDT:0115                 LLA     1
HDT:0117                 SLDC    4
HDT:0118                 SLDC    0
HDT:0119                 LDP
HDT:011A                 LDB
HDT:011B                 CPG     4
HDT:011D loc_F54D
HDT:011D                 RPU     5
HDT:011F                 .ALIGN
HDT:0120                 .CPTR   loc_F563
HDT:0122 proc7           .WORD   $0000
HDT:0124                 SLDO    5
HDT:0125                 CPG     6
HDT:0127                 LDCB    $2F
HDT:0129                 CPG     4
HDT:012B                 SLDO    5
HDT:012C                 SIND    0
HDT:012D                 CPG     6
HDT:012F                 LDCB    $20
HDT:0131                 CPG     4
HDT:0133 loc_F563
HDT:0133                 RPU     0
HDT:0135                 .ALIGN
HDT:0136                 .CPTR   loc_F5B6
HDT:0138 proc8           .WORD   $0004
HDT:013A                 SLDC    0
HDT:013B                 STL     1
HDT:013D loc_F56D
HDT:013D                 LLA     1
HDT:013F                 SLDC    4
HDT:0140                 SLDC    $C
HDT:0141                 LLA     1
HDT:0143                 SLDC    4
HDT:0144                 SLDC    8
HDT:0145                 LDP
HDT:0146                 STP
HDT:0147                 LLA     1
HDT:0149                 SLDC    4
HDT:014A                 SLDC    8
HDT:014B                 LLA     1
HDT:014D                 SLDC    4
HDT:014E                 SLDC    4
HDT:014F                 LDP
HDT:0150                 STP
HDT:0151                 LLA     1
HDT:0153                 SLDC    4
HDT:0154                 SLDC    4
HDT:0155                 LLA     1
HDT:0157                 SLDC    4
HDT:0158                 SLDC    0
HDT:0159                 LDP
HDT:015A                 STP
HDT:015B                 SLDO    1
HDT:015C                 LDCB    $39
HDT:015E                 LEQI
HDT:015F                 FJP     loc_F59C
HDT:0161                 LLA     1
HDT:0163                 SLDC    4
HDT:0164                 SLDC    0
HDT:0165                 SLDO    1
HDT:0166                 LDCB    $30
HDT:0168                 SBI
HDT:0169                 STP
HDT:016A                 UJP     loc_F5A7
HDT:016C loc_F59C
HDT:016C                 LLA     1
HDT:016E                 SLDC    4
HDT:016F                 SLDC    0
HDT:0170                 SLDO    1
HDT:0171                 LDCB    $41
HDT:0173                 SBI
HDT:0174                 SLDC    $A
HDT:0175                 ADI
HDT:0176                 STP
HDT:0177 loc_F5A7
HDT:0177                 CPG     5
HDT:0179                 SLDO    1
HDT:017A                 LAO     $11
HDT:017C                 LDM     5
HDT:017E                 SLDC    5
HDT:017F                 INN
HDT:0180                 BNOT
HDT:0181                 FJP     loc_F56D
HDT:0183                 SLDL    1
HDT:0184                 STL     5
HDT:0186 loc_F5B6
HDT:0186                 RPU     4
HDT:0188                 .CPTR   loc_F5E2
HDT:018A proc9           .WORD   $0001
HDT:018C                 SLDO    3
HDT:018D                 BNOT
HDT:018E                 FJP     loc_F5C3
HDT:0190                 SLDC    0
HDT:0191                 SRO     2
HDT:0193 loc_F5C3
HDT:0193                 LDCI    $2000
HDT:0196                 STL     1
HDT:0198                 SLDO    8
HDT:0199                 SLDO    2
HDT:019A                 STO
HDT:019B                 SLDO    2
HDT:019C                 SLDL    1
HDT:019D                 CPG     2
HDT:019F                 SLDL    1
HDT:01A0                 SLDC    8
HDT:01A1                 ADI
HDT:01A2                 SRO     5
HDT:01A4                 SLDO    5
HDT:01A5                 SLDO    5
HDT:01A6                 SIND    0
HDT:01A7                 SLDC    $C
HDT:01A8                 ADI
HDT:01A9                 STO
HDT:01AA                 LDCI    -3
HDT:01AD                 SLDL    1
HDT:01AE                 SPR
HDT:01AF                 LAO     6
HDT:01B1                 WAIT
HDT:01B2 loc_F5E2
HDT:01B2                 RPU     1
HDT:01B4 word_F5E4       .WORD   $0000           ; case low index
HDT:01B6                 .WORD   $0007           ; case high index
HDT:01B8                 .WORD   $0002           ; case idx 0 loc_F6A2
HDT:01BA                 .WORD   $0007           ; case idx 1 loc_F6A7
HDT:01BC                 .WORD   $000c           ; case idx 2 loc_F6AC
HDT:01BE                 .WORD   $0011           ; case idx 3 loc_F6B1
HDT:01C0                 .WORD   $0016           ; case idx 4 loc_F6B6
HDT:01C2                 .WORD   $001c           ; case idx 5 loc_F6BC
HDT:01C4                 .WORD   $0022           ; case idx 6 loc_F6C2
HDT:01C6                 .WORD   $0028           ; case idx 7 loc_F6C8
HDT:01C8 a0123456789abcd .ASC    '0123456789ABCDEF'
HDT:01D8 word_F608       .WORD   $0000
HDT:01DA                 .WORD   $0000
HDT:01DC                 .WORD   $0000
HDT:01DE                 .WORD   $03ff
HDT:01E0                 .WORD   $007e
HDT:01E2                 .CPTR   loc_F726
HDT:01E4 proc10          .WORD   $0004
HDT:01E6 loc_F616
HDT:01E6                 LAO     6
HDT:01E8                 DUP1
HDT:01E9                 SLDC    0
HDT:01EA                 STO
HDT:01EB                 INC     1
HDT:01ED                 LDCN
HDT:01EE                 STO
HDT:01EF                 LDCI    $3F0
HDT:01F2                 NGI
HDT:01F3                 STL     4
HDT:01F5                 SLDL    4
HDT:01F6                 SRO     4
HDT:01F8                 SLDO    4
HDT:01F9                 IND     8
HDT:01FB                 LDCB    $80
HDT:01FD                 LAND
HDT:01FE                 SLDC    0
HDT:01FF                 EQUI
HDT:0200                 FJP     loc_F647
HDT:0202                 LDCI    $FFFD
HDT:0205                 LDCI    $4000
HDT:0208                 LDCI    $401
HDT:020B                 SLDO    4
HDT:020C                 IND     8
HDT:020E                 LDCB    $20
HDT:0210                 LAND
HDT:0211                 MPI
HDT:0212                 ADI
HDT:0213                 SPR
HDT:0214                 LAO     6
HDT:0216                 WAIT
HDT:0217 loc_F647
HDT:0217                 LDCB    $22
HDT:0219                 SRO     8
HDT:021B                 SLDO    8
HDT:021C                 SIND    0
HDT:021D                 SLDO    8
HDT:021E                 SIND    1
HDT:021F                 ADI
HDT:0220                 LDCI    $4005
HDT:0223                 NGI
HDT:0224                 EQUI
HDT:0225                 STL     3
HDT:0227                 SLDL    3
HDT:0228                 FJP     loc_F666
HDT:022A                 LDCI    $FFFE
HDT:022D                 SLDO    8
HDT:022E                 SIND    2
HDT:022F                 SPR
HDT:0230                 LDCI    $FFFD
HDT:0233                 SLDO    8
HDT:0234                 SIND    3
HDT:0235                 SPR
HDT:0236 loc_F666
HDT:0236                 SLDL    3
HDT:0237                 BNOT
HDT:0238                 SLDO    8
HDT:0239                 SIND    0
HDT:023A                 LOR
HDT:023B                 FJPL    loc_F70F
HDT:023E                 LDCI    $3E0
HDT:0241                 NGI
HDT:0242                 STL     4
HDT:0244                 SLDL    4
HDT:0245                 INC     4
HDT:0247                 LDCB    $80
HDT:0249                 STO
HDT:024A                 SLDL    4
HDT:024B                 INC     4
HDT:024D                 SLDC    1
HDT:024E                 STO
HDT:024F                 SLDL    4
HDT:0250                 INC     3
HDT:0252                 LDCB    $34
HDT:0254                 STO
HDT:0255                 SLDL    4
HDT:0256                 INC     3
HDT:0258                 LDCB    $70
HDT:025A                 STO
HDT:025B                 SLDL    4
HDT:025C                 INC     3
HDT:025E                 LDCB    $B0
HDT:0260                 STO
HDT:0261                 SLDC    0
HDT:0262                 STL     1
HDT:0264                 LDCB    $58
HDT:0266                 STL     2
HDT:0268                 SLDO    4
HDT:0269                 IND     8
HDT:026B                 SLDC    7
HDT:026C                 LAND
HDT:026D                 XJP     word_F5E4
HDT:0270 loc_F6A0
HDT:0270                 UJP     loc_F6D5
HDT:0272 loc_F6A2
HDT:0272                 SLDL    4
HDT:0273                 SLDC    2
HDT:0274                 STO
HDT:0275                 UJP     loc_F6D5
HDT:0277 loc_F6A7
HDT:0277                 SLDL    4
HDT:0278                 SLDC    4
HDT:0279                 STO
HDT:027A                 UJP     loc_F6D5
HDT:027C loc_F6AC
HDT:027C                 SLDL    4
HDT:027D                 SLDC    8
HDT:027E                 STO
HDT:027F                 UJP     loc_F6D5
HDT:0281 loc_F6B1
HDT:0281                 SLDL    4
HDT:0282                 SLDC    $10
HDT:0283                 STO
HDT:0284                 UJP     loc_F6D5
HDT:0286 loc_F6B6
HDT:0286                 SLDL    4
HDT:0287                 LDCB    $21
HDT:0289                 STO
HDT:028A                 UJP     loc_F6D5
HDT:028C loc_F6BC
HDT:028C                 SLDL    4
HDT:028D                 LDCB    $41
HDT:028F                 STO
HDT:0290                 UJP     loc_F6D5
HDT:0292 loc_F6C2
HDT:0292                 SLDL    4
HDT:0293                 LDCB    $82
HDT:0295                 STO
HDT:0296                 UJP     loc_F6D5
HDT:0298 loc_F6C8
HDT:0298                 SLDL    4
HDT:0299                 LDCB    $5D
HDT:029B                 STO
HDT:029C                 SLDC    1
HDT:029D                 STL     1
HDT:029F                 LDCB    $78
HDT:02A1                 STL     2
HDT:02A3                 UJP     loc_F6D5
HDT:02A5 loc_F6D5
HDT:02A5                 SLDL    4
HDT:02A6                 SLDL    1
HDT:02A7                 STO
HDT:02A8                 SLDL    4
HDT:02A9                 INC     1
HDT:02AB                 SLDC    1
HDT:02AC                 STO
HDT:02AD                 SLDL    4
HDT:02AE                 INC     1
HDT:02B0                 SLDC    0
HDT:02B1                 STO
HDT:02B2                 SLDL    4
HDT:02B3                 INC     2
HDT:02B5                 SLDC    1
HDT:02B6                 STO
HDT:02B7                 SLDL    4
HDT:02B8                 INC     2
HDT:02BA                 SLDC    0
HDT:02BB                 STO
HDT:02BC                 SLDO    4
HDT:02BD                 INC     2
HDT:02BF                 SLDO    4
HDT:02C0                 SIND    2
HDT:02C1                 STO
HDT:02C2                 SLDO    4
HDT:02C3                 SLDL    2
HDT:02C4                 STO
HDT:02C5                 SLDO    4
HDT:02C6                 INC     1
HDT:02C8                 LDCB    $FE
HDT:02CA                 STO
HDT:02CB                 SLDL    3
HDT:02CC                 FJP     loc_F701
HDT:02CE                 LAO     6
HDT:02D0                 WAIT
HDT:02D1 loc_F701
HDT:02D1                 SLDL    4
HDT:02D2                 SIND    4
HDT:02D3                 LDCB    $80
HDT:02D5                 LAND
HDT:02D6                 SLDC    0
HDT:02D7                 EQUI
HDT:02D8                 FJP     loc_F70F
HDT:02DA                 SLDC    0
HDT:02DB                 SRO     3
HDT:02DD                 CPG     9
HDT:02DF loc_F70F
HDT:02DF                 SLDO    8
HDT:02E0                 INC     1
HDT:02E2                 SLDC    0
HDT:02E3                 STO
HDT:02E4                 LAO     9
HDT:02E6                 LCA     a0123456789abcd
HDT:02E9                 MOV     8
HDT:02EB                 LAO     $11
HDT:02ED                 LDC     word_F608,5
HDT:02F1                 SLDC    5
HDT:02F2                 ADJ     5
HDT:02F4                 STM     5
HDT:02F6 loc_F726
HDT:02F6                 RPU     4
HDT:02F8                 .CPTR   algn_F7E3
HDT:02FA proc1           .WORD   $0015
HDT:02FC                 SLDC    6
HDT:02FD                 LSL     0
HDT:02FF                 SPR
HDT:0300                 CPG     $A
HDT:0302 loc_F732
HDT:0302                 SLDC    $D
HDT:0303                 CPG     4
HDT:0305                 SLDC    $A
HDT:0306                 CPG     4
HDT:0308                 LDCB    $23
HDT:030A                 CPG     4
HDT:030C loc_F73C
HDT:030C                 SLDC    0
HDT:030D                 STL     2
HDT:030F                 SLDC    0
HDT:0310                 STL     3
HDT:0312                 CPG     5
HDT:0314                 SLDL    1
HDT:0315                 LLA     $11
HDT:0317                 LDM     5
HDT:0319                 SLDC    5
HDT:031A                 INN
HDT:031B                 FJP     loc_F755
HDT:031D                 SLDC    0
HDT:031E                 CPG     8
HDT:0320                 STL     2
HDT:0322                 SLDC    1
HDT:0323                 STL     3
HDT:0325 loc_F755
HDT:0325                 SLDL    1
HDT:0326                 LDCB    'R'
HDT:0328                 EQUI
HDT:0329                 FJP     loc_F75D
HDT:032B                 CPG     9
HDT:032D loc_F75D
HDT:032D                 SLDL    1
HDT:032E                 LDCB    'P'
HDT:0330                 EQUI
HDT:0331                 FJP     loc_F766
HDT:0333                 LLA     6
HDT:0335                 WAIT
HDT:0336 loc_F766
HDT:0336                 SLDL    1
HDT:0337                 SLDC    $D
HDT:0338                 EQUI
HDT:0339                 FJP     loc_F774
HDT:033B                 SLDL    3
HDT:033C                 FJP     loc_F771
HDT:033E                 SLDL    5
HDT:033F                 SLDL    2
HDT:0340                 STO
HDT:0341 loc_F771
HDT:0341                 UJPL    loc_F732
HDT:0344 loc_F774
HDT:0344                 SLDL    1
HDT:0345                 LDCB    '/'
HDT:0347                 EQUI
HDT:0348                 FJP     loc_F78B
HDT:034A                 SLDL    3
HDT:034B                 FJP     loc_F780
HDT:034D                 SLDL    2
HDT:034E                 STL     5
HDT:0350 loc_F780
HDT:0350                 SLDL    5
HDT:0351                 SIND    0
HDT:0352                 CPG     6
HDT:0354                 LDCB    $20
HDT:0356                 CPG     4
HDT:0358                 UJPL    loc_F73C
HDT:035B loc_F78B
HDT:035B                 SLDL    1
HDT:035C                 LDCB    '@'
HDT:035E                 EQUI
HDT:035F                 FJP     loc_F7A8
HDT:0361                 SLDL    3
HDT:0362                 FJP     loc_F799
HDT:0364                 SLDL    2
HDT:0365                 STL     5
HDT:0367                 UJP     loc_F79D
HDT:0369 loc_F799
HDT:0369                 SLDL    5
HDT:036A                 SIND    0
HDT:036B                 STL     5
HDT:036D loc_F79D
HDT:036D                 SLDC    $D
HDT:036E                 CPG     4
HDT:0370                 SLDC    $A
HDT:0371                 CPG     4
HDT:0373                 CPG     7
HDT:0375                 UJPL    loc_F73C
HDT:0378 loc_F7A8
HDT:0378                 SLDL    1
HDT:0379                 SLDC    $A
HDT:037A                 EQUI
HDT:037B                 FJP     loc_F7C0
HDT:037D                 SLDL    3
HDT:037E                 FJP     loc_F7B3
HDT:0380                 SLDL    5
HDT:0381                 SLDL    2
HDT:0382                 STO
HDT:0383 loc_F7B3
HDT:0383                 SLDL    5
HDT:0384                 SLDC    1
HDT:0385                 ADI
HDT:0386                 STL     5
HDT:0388                 SLDC    $D
HDT:0389                 CPG     4
HDT:038B                 CPG     7
HDT:038D                 UJPL    loc_F73C
HDT:0390 loc_F7C0
HDT:0390                 SLDL    1
HDT:0391                 LDCB    '^'
HDT:0393                 EQUI
HDT:0394                 FJP     loc_F7DC
HDT:0396                 SLDL    3
HDT:0397                 FJP     loc_F7CC
HDT:0399                 SLDL    5
HDT:039A                 SLDL    2
HDT:039B                 STO
HDT:039C loc_F7CC
HDT:039C                 SLDL    5
HDT:039D                 SLDC    1
HDT:039E                 SBI
HDT:039F                 STL     5
HDT:03A1                 SLDC    $D
HDT:03A2                 CPG     4
HDT:03A4                 SLDC    $A
HDT:03A5                 CPG     4
HDT:03A7                 CPG     7
HDT:03A9                 UJPL    loc_F73C
HDT:03AC loc_F7DC
HDT:03AC                 LDCB    '?'
HDT:03AE                 CPG     4
HDT:03B0                 UJPL    loc_F732
HDT:03B3 algn_F7E3       .ALIGN
HDT:03B4                 .WORD   $1803
HDT:03B6                 .WORD   $1596
HDT:03B8                                         ; procedure dictionary
HDT:03B8                 .WPTR   proc10
HDT:03BA                 .WPTR   proc9
HDT:03BC                 .WPTR   proc8
HDT:03BE                 .WPTR   proc7
HDT:03C0                 .WPTR   proc6
HDT:03C2                 .WPTR   proc5
HDT:03C4                 .WPTR   proc4
HDT:03C6                 .WPTR   proc3
HDT:03C8                 .WPTR   proc2
HDT:03CA                 .WPTR   proc1
HDT:03CC proctbl         .BYTE   $01
HDT:03CD                 .BYTE   $0a
HDT:03CE                 .WORD   $0068           ; CPU serial number
HDT:03CE                 ; END OF SEGMENT

