|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Names: »DOMPM«
└─⟦45bd0f8dd⟧ Bits:30000464 DOMUS disk image
└─ ⟦this⟧ »/DOMPM«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/DOMPM«
└─⟦a2e222af0⟧ Bits:30001626 DOMUS disk image
└─ ⟦this⟧ »/DOMPM«
0x0000…0020 2a 2a 0d 2a 2a 09 2e 50 55 53 48 20 20 20 20 20 2e 4e 4f 43 4f 4e 0d 2a 2a 09 2e 4e 4f 43 4f 4e ┆** ** .PUSH .NOCON ** .NOCON┆ 0x0020…0040 20 20 20 20 31 0d 2a 2a 0d 2a 2a 09 46 49 58 3d 09 2d 31 0d 2a 2a 09 46 4c 4f 41 54 3d 09 46 49 ┆ 1 ** ** FIX= -1 ** FLOAT= FI┆ 0x0040…0060 58 2d 31 0d 2a 2a 09 46 41 44 44 3d 09 46 4c 4f 41 54 2d 31 0d 2a 2a 09 46 53 55 42 3d 09 46 41 ┆X-1 ** FADD= FLOAT-1 ** FSUB= FA┆ 0x0060…0080 44 44 2d 31 0d 2a 2a 09 46 4d 50 59 3d 09 46 53 55 42 2d 31 0d 2a 2a 09 46 44 49 56 3d 09 46 4d ┆DD-1 ** FMPY= FSUB-1 ** FDIV= FM┆ 0x0080…00a0 50 59 2d 31 0d 2a 2a 09 49 4d 50 59 3d 09 46 44 49 56 2d 31 0d 2a 2a 09 49 4d 50 59 41 3d 09 49 ┆PY-1 ** IMPY= FDIV-1 ** IMPYA= I┆ 0x00a0…00c0 4d 50 59 2d 31 0d 2a 2a 09 49 44 49 56 3d 09 49 4d 50 59 41 2d 31 0d 2a 2a 09 49 4f 45 52 52 3d ┆MPY-1 ** IDIV= IMPYA-1 ** IOERR=┆ 0x00c0…00e0 09 49 44 49 56 2d 31 0d 2a 2a 0d 2a 2a 09 2e 44 4f 09 20 20 20 81 3d 3d 46 49 58 0d 09 4c 44 41 ┆ IDIV-1 ** ** .DO ==FIX LDA┆ 0x00e0…0100 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 0d 09 4a 53 52 40 09 20 20 20 2b 30 2c 33 0d 2a 2a ┆ 3 U.S21,3 JSR@ +0,3 **┆ 0x0100…0120 09 2e 45 4e 44 43 09 20 20 20 4f 4b 0d 2a 2a 0d 2a 2a 09 2e 44 4f 09 20 20 20 81 3d 3d 46 4c 4f ┆ .ENDC OK ** ** .DO ==FLO┆ 0x0120…0140 41 54 0d 09 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 0d 09 4a 53 52 40 09 20 20 20 ┆AT LDA 3 U.S21,3 JSR@ ┆ 0x0140…0160 2b 31 2c 33 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 4f 4b 0d 2a 2a 0d 2a 2a 09 2e 44 4f 09 20 20 ┆+1,3 ** .ENDC OK ** ** .DO ┆ 0x0160…0180 20 81 3d 3d 46 41 44 44 0d 09 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 0d 09 4a 53 ┆ ==FADD LDA 3 U.S21,3 JS┆ 0x0180…01a0 52 40 09 20 20 20 2b 32 2c 33 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 4f 4b 0d 2a 2a 0d 2a 2a 09 ┆R@ +2,3 ** .ENDC OK ** ** ┆ 0x01a0…01c0 2e 44 4f 09 20 20 20 81 3d 3d 46 53 55 42 0d 09 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 ┆.DO ==FSUB LDA 3 U.S21┆ 0x01c0…01e0 2c 33 0d 09 4a 53 52 40 09 20 20 20 2b 33 2c 33 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 4f 4b 0d ┆,3 JSR@ +3,3 ** .ENDC OK ┆ 0x01e0…0200 2a 2a 0d 2a 2a 09 2e 44 4f 09 20 20 20 81 3d 3d 46 4d 50 59 0d 09 4c 44 41 20 20 20 20 33 20 20 ┆** ** .DO ==FMPY LDA 3 ┆ 0x0200…0220 20 55 2e 53 32 31 2c 33 0d 09 4a 53 52 40 09 20 20 20 2b 34 2c 33 0d 2a 2a 09 2e 45 4e 44 43 09 ┆ U.S21,3 JSR@ +4,3 ** .ENDC ┆ 0x0220…0240 20 20 20 4f 4b 0d 2a 2a 0d 0d 2a 2a 0d 2a 2a 09 2e 44 4f 09 20 20 20 81 3d 3d 46 44 49 56 0d 09 ┆ OK ** ** ** .DO ==FDIV ┆ 0x0240…0260 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 0d 09 4a 53 52 40 09 20 20 20 2b 35 2c 33 ┆LDA 3 U.S21,3 JSR@ +5,3┆ 0x0260…0280 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 4f 4b 0d 2a 2a 0d 2a 2a 09 2e 44 4f 09 20 20 20 81 3d 3d ┆ ** .ENDC OK ** ** .DO ==┆ 0x0280…02a0 49 4d 50 59 0d 09 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 0d 09 4a 53 52 40 09 20 ┆IMPY LDA 3 U.S21,3 JSR@ ┆ 0x02a0…02c0 20 20 2b 36 2c 33 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 4f 4b 0d 2a 2a 0d 2a 2a 09 2e 44 4f 09 ┆ +6,3 ** .ENDC OK ** ** .DO ┆ 0x02c0…02e0 20 20 20 81 3d 3d 49 4d 50 59 41 0d 09 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 0d ┆ ==IMPYA LDA 3 U.S21,3 ┆ 0x02e0…0300 09 4a 53 52 40 09 20 20 20 2b 37 2c 33 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 4f 4b 0d 2a 2a 0d ┆ JSR@ +7,3 ** .ENDC OK ** ┆ 0x0300…0320 2a 2a 09 2e 44 4f 09 20 20 20 81 3d 3d 49 44 49 56 0d 09 4c 44 41 20 20 20 20 33 20 20 20 55 2e ┆** .DO ==IDIV LDA 3 U.┆ 0x0320…0340 53 32 31 2c 33 0d 09 4a 53 52 40 09 20 20 20 2b 38 2c 33 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 ┆S21,3 JSR@ +8,3 ** .ENDC ┆ 0x0340…0360 4f 4b 0d 2a 2a 0d 2a 2a 09 2e 44 4f 09 20 20 20 81 3d 3d 49 4f 45 52 52 0d 09 4c 44 41 20 20 20 ┆OK ** ** .DO ==IOERR LDA ┆ 0x0360…0380 20 33 20 20 20 55 2e 53 32 31 2c 33 0d 09 4a 53 52 40 09 20 20 20 2b 39 2c 33 0d 2a 2a 09 2e 45 ┆ 3 U.S21,3 JSR@ +9,3 ** .E┆ 0x0380…03a0 4e 44 43 09 20 20 20 4f 4b 0d 2a 2a 0d 2a 2a 09 2e 50 55 53 48 09 20 20 20 2e 4e 4f 4d 41 43 0d ┆NDC OK ** ** .PUSH .NOMAC ┆ 0x03a0…03c0 2a 2a 09 2e 4e 4f 4d 41 43 09 20 20 20 30 0d 2a 2a 0d 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆** .NOMAC 0 ** ;*************┆ 0x03c0…03e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 3b 0d 3b 20 45 ┆************************** ; ; E┆ 0x03e0…0400 52 52 4f 52 2c 20 55 4e 4b 4e 4f 57 4e 3a 20 81 0d 3b 0d 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RROR, UNKNOWN: ; ;************┆ 0x0400…0420 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 2a 2a 09 2e ┆*************************** ** .┆ 0x0420…0440 4e 4f 4d 41 43 09 20 20 20 2e 50 4f 50 0d 2a 2a 5b 4f 4b 5d 0d 2a 2a 09 2e 4e 4f 43 4f 4e 09 20 ┆NOMAC .POP **ÆOKÅ ** .NOCON ┆ 0x0440…0460 20 20 2e 50 4f 50 0d 00 0d 2e 54 49 54 4c 09 55 43 41 30 31 09 3b 20 55 53 45 52 2d 43 4f 44 45 ┆ .POP .TITL UCA01 ; USER-CODE┆ 0x0460…0480 44 20 53 55 42 52 4f 55 54 49 4e 45 53 20 20 20 37 38 2e 30 35 2e 30 31 0d 2e 4e 52 45 4c 0d 2e ┆D SUBROUTINES 78.05.01 .NREL .┆ 0x0480…04a0 52 44 58 09 31 30 09 3b 20 52 41 44 49 58 20 31 30 0d 2e 54 58 54 4d 09 31 09 3b 20 50 41 43 4b ┆RDX 10 ; RADIX 10 .TXTM 1 ; PACK┆ 0x04a0…04c0 45 44 20 46 52 4f 4d 20 4c 45 46 54 20 54 4f 20 52 49 47 48 54 0d 2e 54 58 54 4e 09 31 09 3b 20 ┆ED FROM LEFT TO RIGHT .TXTN 1 ; ┆ 0x04c0…04e0 4e 4f 20 4e 55 4c 4c 2d 42 59 54 45 53 20 49 46 20 45 56 45 4e 20 4e 55 4d 42 45 52 20 4f 46 20 ┆NO NULL-BYTES IF EVEN NUMBER OF ┆ 0x04e0…0500 42 59 54 45 53 0d 0d 50 50 30 30 3a 09 09 09 3b 20 50 52 4f 47 52 41 4d 20 53 54 41 52 54 0d 09 ┆BYTES PP00: ; PROGRAM START ┆ 0x0500…0520 31 42 30 2b 31 42 31 35 09 3b 20 44 45 53 43 52 49 50 54 4f 52 0d 09 50 50 30 35 09 09 3b 20 53 ┆1B0+1B15 ; DESCRIPTOR PP05 ; S┆ 0x0520…0540 54 41 52 54 0d 09 30 09 09 3b 20 43 48 41 49 4e 0d 09 50 50 31 30 2d 50 50 30 30 09 3b 20 53 49 ┆TART 0 ; CHAIN PP10-PP00 ; SI┆ 0x0540…0560 5a 45 0d 2a 2a 09 2e 50 55 53 48 09 2e 4e 4f 43 4f 4e 0d 2a 2a 09 2e 4e 4f 43 4f 4e 09 31 0d 09 ┆ZE ** .PUSH .NOCON ** .NOCON 1 ┆ 0x0560…0580 2a 2a 09 2e 44 4f 09 20 20 20 27 81 27 3d 3d 27 52 43 27 0d 09 2e 54 58 54 09 2e 52 43 41 4c 4c ┆** .DO ' '=='RC' .TXT .RCALL┆ 0x0580…05a0 2e 09 3b 20 4e 41 4d 45 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 45 4c 53 45 0d 09 2e 54 58 54 09 ┆. ; NAME ** .ENDC ELSE .TXT ┆ 0x05a0…05c0 2e 55 43 41 4c 4c 2e 09 3b 20 4e 41 4d 45 0d 2a 2a 09 5b 45 4c 53 45 5d 0d 0d 2a 2a 09 2e 4e 4f ┆.UCALL. ; NAME ** ÆELSEÅ ** .NO┆ 0x05c0…05e0 43 4f 4e 09 2e 50 4f 50 0d 50 50 30 35 3a 09 09 09 3b 0d 09 53 54 4f 50 50 52 4f 43 45 53 53 09 ┆CON .POP PP05: ; STOPPROCESS ┆ 0x05e0…0600 3b 0d 09 4a 4d 50 09 50 50 30 35 09 3b 0d 0d 00 0d 2a 2a 09 2e 50 55 53 48 09 2e 4e 4f 43 4f 4e ┆; JMP PP05 ; ** .PUSH .NOCON┆ 0x0600…0620 0d 2a 2a 09 2e 4e 4f 43 4f 4e 09 31 0d 50 50 31 30 3a 09 09 09 3b 20 50 52 4f 43 45 53 53 44 45 ┆ ** .NOCON 1 PP10: ; PROCESSDE┆ 0x0620…0640 53 43 52 49 50 54 4f 52 3a 0d 09 30 09 09 3b 20 4e 45 58 54 0d 09 30 09 09 3b 20 50 52 45 56 0d ┆SCRIPTOR: 0 ; NEXT 0 ; PREV ┆ 0x0640…0660 09 30 09 09 3b 20 43 48 41 49 4e 0d 09 50 50 31 35 2d 50 50 31 30 09 3b 20 53 49 5a 45 0d 2a 2a ┆ 0 ; CHAIN PP15-PP10 ; SIZE **┆ 0x0660…0680 09 2e 44 4f 09 20 20 20 27 81 27 3d 3d 27 52 43 27 0d 09 2e 54 58 54 09 2e 52 43 41 4c 4c 2e 09 ┆ .DO ' '=='RC' .TXT .RCALL. ┆ 0x0680…06a0 3b 20 4e 41 4d 45 0d 2a 2a 09 2e 45 4e 44 43 09 20 20 20 45 4c 53 45 0d 09 2e 54 58 54 09 2e 55 ┆; NAME ** .ENDC ELSE .TXT .U┆ 0x06a0…06c0 43 41 4c 4c 2e 09 3b 20 4e 41 4d 45 0d 2a 2a 09 5b 45 4c 53 45 5d 0d 09 2e 2b 30 09 09 3b 20 46 ┆CALL. ; NAME ** ÆELSEÅ .+0 ; F┆ 0x06c0…06e0 49 52 53 54 20 45 56 45 4e 54 0d 09 2e 2d 31 09 09 3b 20 4c 41 53 54 20 45 56 45 4e 54 0d 09 30 ┆IRST EVENT .-1 ; LAST EVENT 0┆ 0x06e0…0700 09 09 3b 20 42 55 46 46 45 0d 09 50 50 30 30 09 09 3b 20 50 52 4f 47 52 41 4d 0d 09 30 09 09 3b ┆ ; BUFFE PP00 ; PROGRAM 0 ;┆ 0x0700…0720 20 53 54 41 54 45 0d 09 30 09 09 3b 20 54 49 4d 45 52 0d 09 31 09 09 3b 20 50 52 49 4f 52 49 54 ┆ STATE 0 ; TIMER 1 ; PRIORIT┆ 0x0720…0740 59 0d 09 50 50 30 35 09 09 3b 20 42 52 45 41 4b 0d 09 50 50 31 30 09 09 3b 20 41 43 30 0d 09 30 ┆Y PP05 ; BREAK PP10 ; AC0 0┆ 0x0740…0760 09 09 3b 20 41 43 31 0d 09 50 50 31 30 09 09 3b 20 41 43 32 0d 09 30 09 09 3b 20 41 43 33 0d 09 ┆ ; AC1 PP10 ; AC2 0 ; AC3 ┆ 0x0760…0780 50 50 30 35 2a 32 09 09 3b 20 50 53 57 0d 09 30 09 09 3b 20 53 41 56 45 0d 0d 50 50 31 35 3a 09 ┆PP05*2 ; PSW 0 ; SAVE PP15: ┆ 0x0780…07a0 09 09 3b 0d 09 09 2e 45 4e 44 09 50 50 31 30 0d 2a 2a 09 2e 4e 4f 43 4f 4e 09 2e 50 4f 50 0d 00 ┆ ; .END PP10 ** .NOCON .POP ┆ 0x07a0…07c0 2e 50 55 53 48 09 2e 4e 4f 4c 4f 43 0d 2e 4e 4f 4c 4f 43 09 31 0d 0d 2e 49 46 45 09 83 0d 2a 2a ┆.PUSH .NOLOC .NOLOC 1 .IFE **┆ 0x07c0…07e0 2a 20 3b 20 49 4c 4c 45 47 41 4c 20 4e 4f 20 4f 46 20 42 55 46 46 45 52 53 20 3b 20 2a 2a 2a 0d ┆* ; ILLEGAL NO OF BUFFERS ; *** ┆ 0x07e0…0800 2e 47 4f 54 4f 09 46 49 4e 0d 2e 45 4e 44 43 0d 0d 2e 50 55 53 48 09 2e 54 58 54 4d 0d 2e 54 58 ┆.GOTO FIN .ENDC .PUSH .TXTM .TX┆ 0x0800…0820 54 4d 09 31 0d 2e 50 55 53 48 09 2e 54 58 54 4e 0d 2e 54 58 54 4e 09 30 0d 2e 50 55 53 48 09 2e ┆TM 1 .PUSH .TXTN .TXTN 0 .PUSH .┆ 0x0820…0840 52 44 58 0d 2e 52 44 58 09 38 0d 0d 2e 49 46 4c 09 2e 41 52 47 43 54 2d 39 2e 0d 2e 50 55 53 48 ┆RDX .RDX 8 .IFL .ARGCT-9. .PUSH┆ 0x0840…0860 09 30 0d 2e 45 4e 44 43 09 45 4e 44 45 0d 2e 50 55 53 48 09 89 0d 5b 45 4e 44 45 5d 0d 0d 0d 2e ┆ 0 .ENDC ENDE .PUSH ÆENDEÅ .┆ 0x0860…0880 44 4f 09 27 85 27 3d 3d 27 55 27 0d 2e 50 55 53 48 09 30 0d 2e 47 4f 54 4f 09 4e 45 58 54 0d 2e ┆DO ' '=='U' .PUSH 0 .GOTO NEXT .┆ 0x0880…08a0 45 4e 44 43 0d 0d 2e 44 4f 09 27 85 27 3d 3d 27 55 42 27 0d 2e 50 55 53 48 09 31 0d 2e 47 4f 54 ┆ENDC .DO ' '=='UB' .PUSH 1 .GOT┆ 0x08a0…08c0 4f 09 4e 45 58 54 0d 2e 45 4e 44 43 0d 0d 2e 44 4f 09 27 85 27 3d 3d 27 46 27 0d 2e 50 55 53 48 ┆O NEXT .ENDC .DO ' '=='F' .PUSH┆ 0x08c0…08e0 09 32 0d 2e 47 4f 54 4f 09 4e 45 58 54 0d 2e 45 4e 44 43 0d 0d 2e 44 4f 09 27 85 27 3d 3d 27 46 ┆ 2 .GOTO NEXT .ENDC .DO ' '=='F┆ 0x08e0…0900 42 27 0d 2e 50 55 53 48 09 33 0d 2e 47 4f 54 4f 09 4e 45 58 54 0d 2e 45 4e 44 43 0d 0d 2e 44 4f ┆B' .PUSH 3 .GOTO NEXT .ENDC .DO┆ 0x0900…0920 09 27 85 27 3d 3d 27 56 27 0d 2e 50 55 53 48 09 34 0d 2e 47 4f 54 4f 09 4e 45 58 54 0d 2e 45 4e ┆ ' '=='V' .PUSH 4 .GOTO NEXT .EN┆ 0x0920…0940 44 43 0d 0d 2e 44 4f 09 27 85 27 3d 3d 27 56 42 27 0d 2e 50 55 53 48 09 35 0d 2e 47 4f 54 4f 09 ┆DC .DO ' '=='VB' .PUSH 5 .GOTO ┆ 0x0940…0960 4e 45 58 54 0d 2e 45 4e 44 43 0d 0d 2a 2a 2a 20 3b 20 49 4c 4c 45 47 41 4c 20 52 45 43 4f 52 44 ┆NEXT .ENDC *** ; ILLEGAL RECORD┆ 0x0960…0980 20 46 4f 52 4d 41 54 20 3b 20 2a 2a 2a 0d 2e 47 4f 54 4f 09 46 49 4e 0d 0d 5b 4e 45 58 54 5d 0d ┆ FORMAT ; *** .GOTO FIN ÆNEXTÅ ┆ 0x0980…09a0 0d 2e 49 46 4c 09 2e 41 52 47 43 54 2d 38 2e 0d 2e 50 55 53 48 09 30 0d 2e 45 4e 44 43 09 45 4e ┆ .IFL .ARGCT-8. .PUSH 0 .ENDC EN┆ 0x09a0…09c0 44 45 0d 2e 50 55 53 48 09 88 0d 5b 45 4e 44 45 5d 0d 0d 2e 49 46 4c 09 2e 41 52 47 43 54 2d 37 ┆DE .PUSH ÆENDEÅ .IFL .ARGCT-7┆ 0x09c0…09e0 2e 0d 2e 50 55 53 48 09 31 37 37 37 37 37 0d 2e 45 4e 44 43 09 45 4e 44 45 0d 2e 50 55 53 48 09 ┆. .PUSH 177777 .ENDC ENDE .PUSH ┆ 0x09e0…0a00 87 0d 5b 45 4e 44 45 5d 0d 0d 2e 50 55 53 48 09 2e 0d 2e 54 58 54 09 27 81 27 09 09 09 3b 20 5a ┆ ÆENDEÅ .PUSH . .TXT ' ' ; Z┆ 0x0a00…0a20 4e 41 4d 45 0d 2e 49 46 4e 09 2e 2d 2e 50 4f 50 2d 33 0d 2a 2a 2a 20 3b 20 49 4c 4c 45 47 41 4c ┆NAME .IFN .-.POP-3 *** ; ILLEGAL┆ 0x0a20…0a40 20 4e 41 4d 45 20 4c 45 4e 47 54 48 20 3b 20 2a 2a 2a 0d 2e 45 4e 44 43 0d 09 5a 09 09 09 3b 20 ┆ NAME LENGTH ; *** .ENDC Z ; ┆ 0x0a40…0a60 53 49 5a 45 0d 09 30 09 09 09 3b 20 5a 4d 4f 44 45 0d 09 82 09 09 09 3b 20 5a 4b 49 4e 44 0d 09 ┆SIZE 0 ; ZMODE ; ZKIND ┆ 0x0a60…0a80 2e 50 4f 50 09 09 09 3b 20 5a 4d 41 53 4b 0d 09 86 09 09 09 3b 20 5a 47 49 56 45 0d 09 31 09 09 ┆.POP ; ZMASK ; ZGIVE 1 ┆ 0x0a80…0aa0 09 3b 20 5a 46 49 4c 45 0d 09 31 09 09 09 3b 20 5a 42 4c 4f 43 4b 0d 09 2e 50 4f 50 2a 32 09 09 ┆ ; ZFILE 1 ; ZBLOCK .POP*2 ┆ 0x0aa0…0ac0 09 3b 20 5a 43 4f 4e 56 0d 09 2e 2b 5a 2d 5a 42 55 46 46 09 09 3b 20 5a 42 55 46 46 0d 09 84 2f ┆ ; ZCONV .+Z-ZBUFF ; ZBUFF /┆ 0x0ac0…0ae0 32 2b 53 53 49 5a 45 09 09 3b 20 5a 53 49 5a 45 0d 09 2e 50 4f 50 09 09 09 3b 20 5a 46 4f 52 4d ┆2+SSIZE ; ZSIZE .POP ; ZFORM┆ 0x0ae0…0b00 0d 09 2e 50 4f 50 09 09 09 3b 20 5a 4c 45 4e 47 54 48 0d 09 2e 2b 5a 2b 53 53 49 5a 45 2d 5a 46 ┆ .POP ; ZLENGTH .+Z+SSIZE-ZF┆ 0x0b00…0b20 49 52 53 2a 32 09 3b 20 5a 46 49 52 53 54 0d 09 2e 2b 5a 2b 53 53 49 5a 45 2d 5a 54 4f 50 2a 32 ┆IRS*2 ; ZFIRST .+Z+SSIZE-ZTOP*2┆ 0x0b20…0b40 09 3b 20 5a 54 4f 50 0d 09 2e 2b 5a 2d 5a 55 53 45 44 09 09 3b 20 5a 55 53 45 44 0d 09 84 09 09 ┆ ; ZTOP .+Z-ZUSED ; ZUSED ┆ 0x0b40…0b60 09 3b 20 5a 53 48 41 52 45 4c 0d 09 30 09 09 09 3b 20 5a 52 45 4d 0d 2e 42 4c 4b 09 5a 41 55 58 ┆ ; ZSHAREL 0 ; ZREM .BLK ZAUX┆ 0x0b60…0b80 09 09 09 3b 20 5a 30 0d 0d 2e 50 55 53 48 09 2e 0d 2e 50 55 53 48 09 31 0d 2e 44 4f 09 83 0d 2e ┆ ; Z0 .PUSH . .PUSH 1 .DO .┆ 0x0b80…0ba0 4e 4f 4c 4f 43 09 30 0d 0d 2e 4e 4f 4c 4f 43 09 31 0d 09 30 09 09 09 3b 20 53 4f 50 45 52 0d 09 ┆NOLOC 0 .NOLOC 1 0 ; SOPER ┆ 0x0ba0…0bc0 30 09 09 09 3b 20 53 43 4f 55 4e 54 0d 09 30 09 09 09 3b 20 53 41 44 44 52 0d 09 30 09 09 09 3b ┆0 ; SCOUNT 0 ; SADDR 0 ;┆ 0x0bc0…0be0 20 53 53 50 45 43 0d 2e 49 46 4e 09 83 2d 2e 54 4f 50 0d 09 2e 2b 53 53 49 5a 45 2b 28 84 2f 32 ┆ SSPEC .IFN -.TOP .+SSIZE+( /2┆ 0x0be0…0c00 29 2d 53 4e 45 58 54 09 3b 20 53 4e 45 58 54 0d 2e 45 4e 44 43 09 45 4e 44 45 0d 2e 4e 4f 4c 4f ┆)-SNEXT ; SNEXT .ENDC ENDE .NOLO┆ 0x0c00…0c20 43 09 2e 50 4f 50 09 09 09 3b 20 44 55 4d 4d 59 0d 09 2e 50 4f 50 09 09 09 3b 20 53 4e 45 58 54 ┆C .POP ; DUMMY .POP ; SNEXT┆ 0x0c20…0c40 0d 2e 50 55 53 48 09 83 2d 31 0d 5b 45 4e 44 45 5d 0d 09 30 09 09 09 3b 20 53 53 54 41 54 0d 09 ┆ .PUSH -1 ÆENDEÅ 0 ; SSTAT ┆ 0x0c40…0c60 2e 2b 31 2a 32 09 09 09 3b 20 53 46 49 52 53 0d 2e 42 4c 4b 09 84 2f 32 09 09 09 3b 20 42 55 46 ┆.+1*2 ; SFIRS .BLK /2 ; BUF┆ 0x0c60…0c80 46 45 52 0d 2e 50 55 53 48 09 2e 50 4f 50 2b 31 0d 2e 45 4e 44 43 0d 2e 4e 4f 4c 4f 43 09 2e 50 ┆FER .PUSH .POP+1 .ENDC .NOLOC .P┆ 0x0c80…0ca0 4f 50 09 09 09 3b 20 44 55 4d 4d 59 0d 2e 52 44 58 09 2e 50 4f 50 0d 2e 54 58 54 4e 09 2e 50 4f ┆OP ; DUMMY .RDX .POP .TXTN .PO┆ 0x0ca0…0cc0 50 0d 2e 54 58 54 4d 09 2e 50 4f 50 0d 5b 46 49 4e 5d 0d 2e 4e 4f 4c 4f 43 09 2e 50 4f 50 0d 00 ┆P .TXTM .POP ÆFINÅ .NOLOC .POP ┆ 0x0cc0…0ce0 09 43 4f 4d 09 81 2c 81 0d 09 41 4e 44 09 81 2c 82 0d 09 41 44 43 09 81 2c 82 0d 00 00 00 00 00 ┆ COM , AND , ADC , ┆ 0x0ce0…0d00 2e 50 55 53 48 09 2e 4e 4f 4c 4f 43 0d 2e 4e 4f 4c 4f 43 09 31 0d 0d 2e 50 55 53 48 09 2e 54 58 ┆.PUSH .NOLOC .NOLOC 1 .PUSH .TX┆ 0x0d00…0d20 54 4d 0d 2e 54 58 54 4d 09 31 0d 2e 50 55 53 48 09 2e 54 58 54 4e 0d 2e 54 58 54 4e 09 30 0d 0d ┆TM .TXTM 1 .PUSH .TXTN .TXTN 0 ┆ 0x0d20…0d40 0d 09 2e 2b 30 09 09 3b 20 4e 45 58 54 0d 09 2e 2d 31 09 09 3b 20 50 52 45 56 0d 09 30 09 09 3b ┆ .+0 ; NEXT .-1 ; PREV 0 ;┆ 0x0d40…0d60 20 43 48 41 49 4e 0d 09 30 09 09 3b 20 43 41 52 52 59 0d 2e 50 55 53 48 09 2e 0d 2e 54 58 54 09 ┆ CHAIN 0 ; CARRY .PUSH . .TXT ┆ 0x0d60…0d80 27 81 27 09 09 3b 20 4e 41 4d 45 0d 2e 49 46 4e 09 2e 2d 2e 50 4f 50 2d 33 0d 2a 2a 2a 20 3b 20 ┆' ' ; NAME .IFN .-.POP-3 *** ; ┆ 0x0d80…0da0 49 4c 4c 45 47 41 4c 20 4e 41 4d 45 20 4c 45 4e 47 54 48 20 3b 20 2a 2a 2a 0d 2e 45 4e 44 43 0d ┆ILLEGAL NAME LENGTH ; *** .ENDC ┆ 0x0da0…0dc0 09 2e 2b 30 09 09 3b 20 45 56 45 4e 54 0d 09 2e 2d 31 09 09 3b 20 45 56 45 4e 54 0d 09 82 09 09 ┆ .+0 ; EVENT .-1 ; EVENT ┆ 0x0dc0…0de0 3b 20 42 55 46 46 45 52 0d 09 83 09 09 3b 20 50 52 4f 47 52 41 4d 0d 09 31 42 30 09 09 3b 20 53 ┆; BUFFER ; PROGRAM 1B0 ; S┆ 0x0de0…0e00 54 41 54 45 0d 09 30 09 09 3b 20 54 49 4d 45 52 0d 09 84 09 09 3b 20 50 52 49 4f 52 49 54 59 0d ┆TATE 0 ; TIMER ; PRIORITY ┆ 0x0e00…0e20 09 85 09 09 3b 20 42 52 45 41 4b 0d 09 30 09 09 3b 20 41 43 30 0d 09 30 09 09 3b 20 41 43 31 0d ┆ ; BREAK 0 ; AC0 0 ; AC1 ┆ 0x0e20…0e40 09 2e 2d 41 43 32 09 09 3b 20 41 43 32 0d 09 30 09 09 3b 20 41 43 33 0d 09 86 2a 32 09 09 3b 20 ┆ .-AC2 ; AC2 0 ; AC3 *2 ; ┆ 0x0e40…0e60 50 53 57 0d 09 30 09 09 3b 20 53 41 56 45 0d 0d 2e 54 58 54 4e 09 2e 50 4f 50 0d 2e 54 58 54 4d ┆PSW 0 ; SAVE .TXTN .POP .TXTM┆ 0x0e60…0e80 09 2e 50 4f 50 0d 2e 4e 4f 4c 4f 43 09 2e 50 4f 50 0d 00 00 00 00 00 00 2e 50 55 53 48 09 2e 4e ┆ .POP .NOLOC .POP .PUSH .N┆ 0x0e80…0ea0 4f 4c 4f 43 0d 0d 0d 09 09 09 3b 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 53 0d 0d 2e 4e 4f ┆OLOC ; MESSAGE BUFFERS .NO┆ 0x0ea0…0ec0 4c 4f 43 09 31 0d 2e 50 55 53 48 09 2e 52 44 58 0d 2e 52 44 58 09 31 30 0d 2e 50 55 53 48 09 31 ┆LOC 1 .PUSH .RDX .RDX 10 .PUSH 1┆ 0x0ec0…0ee0 0d 2e 44 4f 09 82 0d 2e 49 46 45 09 2e 54 4f 50 2d 28 2e 54 4f 50 2f 34 2a 34 29 2d 31 0d 2e 49 ┆ .DO .IFE .TOP-(.TOP/4*4)-1 .I┆ 0x0ee0…0f00 46 4e 09 2e 54 4f 50 2d 31 0d 2e 45 4a 45 43 0d 2e 45 4e 44 43 0d 2e 45 4e 44 43 0d 2e 4e 4f 4c ┆FN .TOP-1 .EJEC .ENDC .ENDC .NOL┆ 0x0f00…0f20 4f 43 09 30 0d 0d 2e 4e 4f 4c 4f 43 09 31 0d 09 2e 2b 30 09 09 3b 20 4e 45 58 54 0d 09 2e 2d 31 ┆OC 0 .NOLOC 1 .+0 ; NEXT .-1┆ 0x0f20…0f40 09 09 3b 20 50 52 45 56 0d 09 2e 2b 42 53 49 5a 45 2d 43 48 41 49 4e 09 3b 20 43 48 41 49 4e 0d ┆ ; PREV .+BSIZE-CHAIN ; CHAIN ┆ 0x0f40…0f60 09 42 53 49 5a 45 09 09 3b 20 53 49 5a 45 0d 09 81 09 09 3b 20 53 45 4e 44 45 52 0d 09 30 09 09 ┆ BSIZE ; SIZE ; SENDER 0 ┆ 0x0f60…0f80 3b 20 52 45 43 45 49 56 45 52 0d 09 30 09 09 3b 20 4d 45 53 53 30 0d 09 30 09 09 3b 20 4d 45 53 ┆; RECEIVER 0 ; MESS0 0 ; MES┆ 0x0f80…0fa0 53 31 0d 09 30 09 09 3b 20 4d 45 53 53 32 0d 09 30 09 09 3b 20 4d 45 53 53 33 0d 2e 50 55 53 48 ┆S1 0 ; MESS2 0 ; MESS3 .PUSH┆ 0x0fa0…0fc0 09 2e 50 4f 50 2b 31 0d 2e 45 4e 44 43 0d 2e 4e 4f 4c 4f 43 09 2e 50 4f 50 0d 2e 52 44 58 09 2e ┆ .POP+1 .ENDC .NOLOC .POP .RDX .┆ 0x0fc0…0fe0 50 4f 50 0d 2e 4e 4f 4c 4f 43 09 2e 50 4f 50 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆POP .NOLOC .POP ┆ 0x0fe0…1000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆