|
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 - metrics - download
Length: 25600 (0x6400)
Types: TextFile
Names: »DIS24«
└─⟦a137c8bca⟧ Bits:30001766 PL FAERD ASCII NR 9
└─⟦this⟧ »/DIS24«
.TITL DIS14 .NREL .RDXO 16 .RDX 10 .TXTM 1 .TXTN 1 .NOLOC 1 TYP=0 ; 0=DISPA, 1=DISFI .MACRO CASE .IFE TYP ^1 .ENDC .IFN TYP ^2 .ENDC % .MACRO PAPER .IFE TYP % .MACRO FILE .ENDC .IFN TYP % .MACRO CONT .ENDC % .MACRO SYMB LA$=. ^1 .TXT @^1@ .DO LA$+4-. 0 .ENDC % «ff» PGD: 1B0+1B5+1B15 PGD0 0 PCD-PGD CASE .TXT @DISPA@,.TXT @DISFI@ PGD0: BUFF: .+0 .-1 BUF0 10 PCD 0 0 0 0 0 BUF0: .+0 .-1 BUF1 10 PCD 0 0 0 0 0 BUF1: .+0 .-1 0 10 PCD 0 0 0 0 0«ff» FZO: .TXT @<0><0><0><0><0>@ Z 0 1B14+1B13+1B12+1B11 65535 END 1 1 0 FZO0 263 0 0 FZO1*2 FZO1*2 FZO0 512 0 .BLK ZAUX FZO0: 0 0 0 0 FZO0 0 FZO1*2 FZO1: .BLK 256 LZO: .TXT @LPT<0><0>@ Z 0 1 65535 END 1 1 0 LZO0 47 0 0 LZO1*2 LZO1*2 LZO0 80 0 .BLK ZAUX LZO0: 0 0 0 0 LZO0 0 LZO1*2 LZO1: .BLK 40«ff» BEG0: LZO BEG1: FZO BEG2: 0 BEG: STA 1,BEG2 LDA 0,.3 LDA 2,BEG0 OPEN LDA 2,BEG2 LDA 0,6,2 LDA 2,CUR MOV 0,0,SZR TERM LDA 2,BEG2 LDA 3,BEG1 LDA 0,7,2 STA 0,0,3 LDA 0,8,2 STA 0,1,3 LDA 0,9,2 STA 0,2,3 LDA 0,.1 MOV 3,2 OPEN LDA 2,CUR PASS1«ff» PAS10: FZO PAS1: LDA 0,.0 LDA 1,.1 LDA 2,PAS10 SETPO LDA 2,CUR CASE OFF, GNBL1«ff» NBL1: IWD PAPER LDA 1,.3 SNE 0,1 GBL31 LDA 1,.5 SNE 0,1 GBL51 CONT LDA 1,.2 SNE 0,1 GBL21 PAPER LDA 1,.7 SNE 0,1 GBL71 LDA 1,.6 SNE 0,1 GBL61 CONT MOV 0,0,SNR PASS2 PAPER OHXD OSP CONT IWD STA 0,CNT,2 DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 NBL10: IWD PAPER OHXW OSP CONT ISZ CNT,2 JMP NBL10 CASE OLN, JMP NBL1«ff» PAPER BL51: IWD STA 0,CNT,2 IWD IWD IWD IWD BL510: IWD STA 0,ADR,2 IWD STA 0,DATA,2 LDA 0,BL511 OTXT OLAB IWD OLN ISZ CNT,2 ISZ CNT,2 ISZ CNT,2 JMP BL510 GNBL1 BL511: .+1 .TXT @.EXTN <0>@ BL512: .+1 .TXT @ <0>@ CONT«ff» PAPER BL31: IWD STA 0,CNT,2 IWD IWD IWD IWD BL310: IWD STA 0,ADR,2 IWD STA 0,DATA,2 LDA 0,BL311 OTXT OLAB IWD OLN ISZ CNT,2 ISZ CNT,2 ISZ CNT,2 JMP BL310 GNBL1 BL311: .+1 .TXT @.ENT <0>@ BL312: .+1 .TXT @ <0>@ CONT«ff» PAPER BL710: .+1 .TXT @.TITL <0>@ BL71: LDA 0,BL710 OTXT IWD IWD IWD IWD IWD IWD STA 0,ADR,2 IWD STA 0,DATA,2 OLAB IWD OLN GNBL1 CONT«ff» PAPER BL610: .+1 .TXT @.END <0>@ BL61: LDA 0,BL610 OTXT IWD IWD MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 STA 0,AREL,2 IWD IWD IWD IWD OHXW LDA 0,AREL,2 OREL OLN GNBL1 CONT«ff» BL21: IWD STA 0,CNT,2 IWD STA 0,REL0,2 IWD STA 0,REL1,2 IWD STA 0,REL2,2 IWD IWD STA 0,ADR,2 CASE OHXW, LDA 0,REL0,2 LDA 1,REL1,2 LDA 3,REL2,2 MOVR 0,0 MOVR 1,1 MOVL 3,3 MOVL 1,1 MOVL 3,3 MOVL 1,1 MOVL 0,0 STA 0,REL0,2 STA 1,REL1,2 STA 3,REL2,2 STA 0,BL210 STA 1,BL211 STA 3,BL212 IREL STA 0,AREL,2 PAPER OREL ISZ CNT,2 JMP .+3 OLN GNBL1 OSP LDA 0,BL219 STA 0,BL213 BL214: IREL OREL DSZ BL213 JMP BL214 OSP LDA 0,BL210 STA 0,REL0,2 LDA 0,BL211 STA 0,REL1,2 LDA 0,BL212 STA 0,REL2,2 IREL CONT BL215: IWD STA 0,DATA,2 IREL STA 0,DREL,2 LDA 1,.1 SNE 0,1 JMP BL216 LDA 3,DATA,2 LDA 0,DREL,2 LDA 1,.3 SNE 0,1 MOVZR 3,3 STA 3,DATA,2 SNE 0,1 LDA 0,.2 STA 0,DREL,2 CLAB PAPER OSP OSP CONT JMP BL217 BL216: LDA 0,DATA,2 PAPER MOVS 0,0 OASC LDA 0,DATA,2 OASC CONT LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.7 AND 1,0 LDA 1,.3 SLS 0,1 JMP BL217 LDA 0,DATA,2 MOVS 0,1 LDA 3,.3 AND 3,1 LDA 3,.1 SEQ 3,1 JMP BL217 LDA 1,.255 AND 1,0 MOVS 0,0 MOVL # 0,0,SZC ADD 1,0 MOVS 0,0 LDA 3,ADR,2 ADDZ 3,0 STA 0,DATA,2 LDA 0,AREL,2 STA 0,DREL,2 CLAB BL217: ISZ ADR,2 ISZ CNT,2 JMP BL215 CASE OLN, GNBL1 BL210: 0 BL211: 0 BL212: 0 BL213: 0 BL219: 14«ff» PAS24: 0 PAS21: LATAB PAS20: FZO PAS2: OFF PAPER LDA 1,PAS21 PAS23: MOV 1,3 LDA 0,+0,3 INC # 0,0,SNR JMP PAS22 STA 1,PAS24 MOV 0,1 LDA 3,PAS24 LDA 0,+1,3 LDA 3,.7 AND 3,0 OMRK OLN LDA 1,PAS24 INC 1,1 INC 1,1 JMP PAS23 CONT PAS22: LDA 0,.0 LDA 1,.1 LDA 2,PAS20 SETPO LDA 2,CUR CASE OFF, GNBLC«ff» NBLC: IWD MOV 0,0,SNR TERMC LDA 1,.2 SNE 0,1 GBLC2 LDA 1,.7 SNE 0,1 GBLC7 LDA 1,.6 SNE 0,1 GBLC6 LDA 1,.3 SNE 0,1 GBLC3 LDA 1,.5 SNE 0,1 GBLC5 GUBLC«ff» BLC5: IWD STA 0,CNT,2 IWD STA 0,REL0,2 IWD STA 0,REL1,2 IWD STA 0,REL2,2 IWD LDA 0,REL0,2 LDA 1,REL1,2 LDA 3,REL2,2 MOVR 0,0 MOVR 1,1 MOVL 3,3 MOVL 1,1 MOVL 3,3 MOVL 1,1 MOVL 0,0 STA 0,REL0,2 STA 1,REL1,2 STA 3,REL2,2 BLC50: IWD STA 0,ADR,2 IWD STA 0,DATA,2 LDA 0,BLC51 OTXT OLAB PAPER LDA 0,BLC52 OTXT IWD OHXW IREL OREL LDA 0,BLC53 OCHR CONT OLN ISZ CNT,2 ISZ CNT,2 ISZ CNT,2 JMP BLC50 GNBLC BLC51: .+1 .TXT @ .EXTN <0>@ BLC52: .+1 .TXT @ (AT:<0>@ BLC53: ")«ff» BLC3: IWD STA 0,CNT,2 IWD STA 0,REL0,2 IWD STA 0,REL1,2 IWD STA 0,REL2,2 IWD LDA 0,REL0,2 LDA 1,REL1,2 LDA 3,REL2,2 MOVR 0,0 MOVR 1,1 MOVL 3,3 MOVL 1,1 MOVL 3,3 MOVL 1,1 MOVL 0,0 STA 0,REL0,2 STA 1,REL1,2 STA 3,REL2,2 BLC30: IWD STA 0,ADR,2 IWD STA 0,DATA,2 LDA 0,BLC31 OTXT OLAB PAPER LDA 0,BLC32 OTXT IWD OHXW IREL OREL LDA 0,BLC33 OCHR CONT OLN ISZ CNT,2 ISZ CNT,2 ISZ CNT,2 JMP BLC30 GNBLC BLC31: .+1 .TXT @ .ENT <0>@ BLC32: .+1 .TXT @ (=<0>@ BLC33: ")«ff» BLC2: IWD STA 0,CNT,2 IWD STA 0,REL0,2 IWD STA 0,REL1,2 IWD STA 0,REL2,2 IWD IWD LDA 1,ADR,2 SEQ 0,1 JSR BLC29 STA 0,ADR,2 ISZ CNT,2 JMP BLC20 GNBLC BLC20: LDA 0,REL0,2 LDA 1,REL1,2 LDA 3,REL2,2 MOVR 0,0 MOVR 1,1 MOVL 3,3 MOVL 1,1 MOVL 3,3 MOVL 1,1 MOVL 0,0 STA 0,REL0,2 STA 1,REL1,2 STA 3,REL2,2 IREL STA 0,AREL,2 BLC21: PAPER LDA 0,ADR,2 OSP OHXW LDA 0,AREL,2 OREL CONT LDA 0,AREL,2 STA 0,DREL,2 LDA 0,ADR,2 STA 0,DATA,2 CASE OSP, FLAB STA 0,BLC28 ISZ ADR,2 IWD STA 0,DATA,2 CASE OHXW, IREL STA 0,DREL,2 PAPER OREL OSP OSP CONT LDA 1,DATA,2 MOVS 1,0 LDA 1,DREL,2 LDA 3,.1 STA 3,BLCF,2 PAPER SEQ 3,1 LDA 0,.32 OASC LDA 0,DATA,2 LDA 3,.1 SEQ 3,1 LDA 0,.32 OASC BLC22: OSP OSP CONT LDA 1,BLC28 MOV # 1,1,SZR JMP BLC2C LDA 0,BLC25 OTXT JMP BLC2H BLC2C: LDA 1,ADR,2 LDA 0,.1 SUBZ 0,1 LDA 0,AREL,2 OMRK LDA 0,BLC2E OCHR BLC2H: LDA 0,DREL,2 LDA 1,.1 SEQ 0,1 JMP BLC2D DISA BLC24: OLN ISZ CNT,2 JMP BLC21 GNBLC BLC2D: LDA 0,DREL,2 LDA 1,.3 SEQ 0,1 JMP BLC2I LDA 0,DATA,2 MOVZR 0,1 LDA 0,.2 OMRK LDA 0,BLC27 OTXT JMP BLC24 BLC2I: LDA 1,DATA,2 LDA 0,DREL,2 OMRK JMP BLC24 BLC23: .+1 .TXT @ <0>@ BLC25: .+1 .TXT @ <0>@ BLC27: .+1 .TXT @*2<0>@ BLC28: 0 BLC29: STA 0,DATA,2 STA 3,BLC2B LDA 3,BLCF,2 MOV # 3,3,SNR JMP BLC2G SUB 1,0 STA 0,DREL,2 LDA 0,BLC2A OTXT LDA 0,DREL,2 OHXW OLN BLC2G: LDA 0,DATA,2 JMP @ BLC2B BLC2A: .+1 .TXT @ .BLK <0>@ BLC2B: 0 BLC2E: ": «ff» BLC70: .+1 .TXT @ .TITL <0>@ BLC7: LDA 0,BLC70 OTXT LDA 0,.0 STA 0,BLCF,2 IWD IWD IWD IWD IWD IWD STA 0,ADR,2 IWD STA 0,DATA,2 OLAB IWD OLN GNBLC«ff» BLC60: .+1 .TXT @ .END <0>@ BLC6: LDA 0,BLC60 OTXT IWD IWD MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 STA 0,AREL,2 IWD IWD IWD IWD LDA 1,.32768 SNE 0,1 JMP BLC61 MOV 0,1 LDA 0,AREL,2 OMRK BLC61: OLN GNBLC«ff» UBLC0: 0 UBLC1: 42 UBLC: STA 0,UBLC0 PAPER LDA 0,UBLC1 OCHR LDA 0,UBLC0 OHXW OSP CONT IWD STA 0,CNT,2 PAPER OHXW OSP CONT DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 UBLC2: IWD PAPER OHXW OSP CONT ISZ CNT,2 JMP UBLC2 CASE OLN, GNBLC «ff» END0: .+1 1B8 0 0 0 0 END1: .+1 .TXT @S<0><0><0><0>@ END2: FZO END3: LZO ENDC: LDA 2,END2 LDA 1,.1 CLOSE LDA 2,END3 LDA 1,.12 OUTEN LDA 1,.1 CLOSE END: LDA 1,END0 LDA 2,END1 SENDM LDA 2,CUR STOPP JMP END«ff» DISS0: 0 DISS: STA 3,DISS0 LDA 0,DATA,2 MOVZL 0,0,SZC DALUI MOVL 0,0 MOVL 0,0 MOVL 0,0 LDA 1,.3 AND 1,0,SNR DJJID SEQ 0,1 DLDST DIOIN DISSE: JMP @ DISS0«ff» ALUI0: .+1 .TXT @COM<0>NEG<0>MOV<0>INC<0>ADC<0>SUB<0>ADD<0>AND@ ALUI1: .+1*2 .TXT @ ZOC@ ALUI2: .+1*2 .TXT @ LRS@ ALUI3: .+1 .TXT @ <0>SKP<0>SZC<0>SNC<0>SZR<0>SNR<0>SEZ<0>SBN@ ALUI: LDA 0,DATA,2 MOVS 0,0 LDA 1,.7 AND 1,0 MOVZL 0,0 LDA 1,ALUI0 ADD 1,0 OTXT LDA 0,DATA,2 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0,SNR JMP ALUI4 LDA 1,ALUI1 ADD 0,1 GETBY OCHR ALUI4: LDA 0,DATA,2 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0,SNR JMP ALUI5 LDA 1,ALUI2 ADD 0,1 GETBY OCHR ALUI5: OSP LDA 0,DATA,2 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 3,.32 LDA 1,.3 MOVR 0,0,SNC JMP ALUI6 ADD 1,3 MOV 3,0 OCHR OSP ALUI6: LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0 LDA 1,.48 ADD 1,0 OCHR OKOM LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0 LDA 1,.48 ADD 1,0 OCHR LDA 0,DATA,2 LDA 1,.7 AND 1,0,SNR EDISS OKOM LDA 1,ALUI3 MOVZL 0,0 ADD 1,0 OTXT EDISS«ff» LDST0: . 0 .TXT @LDA<0>STA@ LDST: LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0 MOVZL 0,0 LDA 1,LDST0 ADD 1,0 OTXT OSP LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0,SNC JMP LDST1 LDA 0,.64 OCHR OSP LDST1: LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0 LDA 1,.48 ADD 1,0 OCHR OKOM LDA 0,DATA,2 MOVS 0,0 LDA 1,.3 AND 1,0 LDA 1,.1 SNE 1,0 JMP LDST5 LDA 0,DATA,2 MOVS 0,0 LDA 1,.3 AND 1,0,SZR JMP LDST6 LDA 0,DATA,2 MOVL 0,0 MOVL 0,0,SZC JMP LDST6 LDA 0,DATA,2 LDA 1,.255 AND 1,0 LDA 3,LDST7 LDA 1,0,3 LDST8: SNE 0,1 JMP LDST9 INC 3,3 INC 3,3 INC 3,3 INC 3,3 LDA 1,0,3 MOV 1,1,SZR JMP LDST8 JMP LDST6 LDST9: INC 3,0 ONAM EDISS LDST7: LDTAB LDST6: LDA 0,DATA,2 MOVS 0,0 MOVL 0,0,SNC JMP LDST2 LDA 0,LDST3 OCHR LDA 1,.255 LDA 0,DATA,2 AND 1,0 INC 1,1 SUB 0,1 MOV 1,0 CASE OHXB,ODB JMP LDST4 LDST3: 45 LDST2: LDA 0,DATA,2 LDA 1,.255 AND 1,0 CASE OHXB,ODB LDST4: OKOM LDA 0,DATA,2 MOVS 0,0 LDA 1,.3 AND 1,0 LDA 1,.48 ADD 1,0 OCHR EDISS LDST5: LDA 0,DATA,2 LDA 1,.255 AND 1,0 MOVS 0,0 MOVL # 0,0,SZC ADD 1,0 MOVS 0,0 LDA 3,ADR,2 LDA 1,.1 SUBZ 1,3 ADDZ 3,0 MOV 0,1 LDA 0,AREL,2 OMRK EDISS «ff» JJID0: .+1 .TXT @JMP<0>JSR<0>ISZ<0>DSZ@ JJID6: JJTAB JJID: LDA 0,DATA,2 LDA 3,JJID6 LDA 1,0,3 JJID7: SNE 0,1 JMP JJID8 INC 3,3 INC 3,3 INC 3,3 INC 3,3 LDA 1,0,3 MOV 1,1,SZR JMP JJID7 JMP JJID9 JJID8: INC 3,0 ONAM EDISS JJIDA: LDA 0,DATA,2 CASE OHXW,ODW EDISS JJID9: LDA 0,DATA,2 MOVS 0,0 LDA 1,.3 AND # 1,0,SNR JMP JJIDA MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0 MOVZL 0,0 LDA 1,JJID0 ADD 1,0 OTXT OSP LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0,SNC JMP JJID1 LDA 0,.64 OCHR OSP JJID1: LDA 0,DATA,2 MOVS 0,0 LDA 1,.3 AND 1,0 LDA 1,.1 SNE 0,1 JMP JJID5 LDA 0,DATA,2 MOVS 0,0 MOVL 0,0,SNC JMP JJID2 LDA 0,JJID3 OCHR LDA 1,.255 LDA 0,DATA,2 AND 1,0 INC 1,1 SUB 0,1 MOV 1,0 CASE OHXB,ODB JMP JJID4 JJID3: 45 JJID2: LDA 0,DATA,2 LDA 1,.255 AND 1,0 CASE OHXB,ODB JJID4: OKOM LDA 0,DATA,2 MOVS 0,0 LDA 1,.3 AND 1,0 LDA 1,.48 ADD 1,0 OCHR EDISS JJID5: LDA 0,DATA,2 LDA 1,.255 AND 1,0 MOVS 0,0 MOVL # 0,0,SZC ADD 1,0 MOVS 0,0 LDA 3,ADR,2 LDA 1,.1 SUBZ 1,3 ADDZ 3,0 MOV 0,1 LDA 0,AREL,2 OMRK EDISS«ff» IOIN0: .+1 .TXT @NIO<0>DIA<0>DIB<0>DIC<0>DOA<0>DOB<0>DOC<0>SKP@ IOIN1: .+1*2 .TXT @ SCP@ IOIN2: .+1 .TXT @BNBZDNDZ@ IOIN: LDA 0,DATA,2 MOVS 0,0 LDA 1,.7 AND 1,0 MOVZL 0,0 LDA 1,IOIN0 ADD 1,0 OTXT LDA 0,DATA,2 MOVS 0,0 LDA 1,.7 AND 1,0 SNE 1,0 JMP IOIN3 LDA 0,DATA,2 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0,SNR JMP IOIN4 LDA 1,IOIN1 ADD 0,1 GETBY OCHR JMP IOIN4 IOIN3: LDA 0,DATA,2 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0 LDA 1,IOIN2 ADD 1,0 MOV 0,3 LDA 0,0,3 MOV 0,1 MOVS 0,0 OCHR MOV 1,0 OCHR OSP JMP IOIN5 IOIN4: OSP LDA 0,DATA,2 MOVS 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 LDA 1,.3 AND 1,0 LDA 1,.48 ADD 1,0 OCHR OKOM IOIN5: LDA 0,DATA,2 LDA 1,.63 AND 1,0 PAPER LDA 1,IOIN6 MOVZL 0,3 ADDZ 3,0 ADD 1,0 ONAM EDISS IOIN6: .+1 .TXT @000 <0>EXMEM<0>002 <0>003 <0>004 <0>ASL <0>006 <0>007 @ .TXT @TTI <0>TTO <0>PTR <0>PTP <0>RTC <0>PLT <0>CDR <0>LPT @ .TXT @DSC <0>SPC <0>SPC1 <0>PTR1 <0>TMX10<0>TMX11<0>TMX0 <0>TMX1 @ .TXT @MT <0>PTP1 <0>OCPOB<0>OCPIB<0>OCPKI<0>DISP <0>OCPAL<0>LPS @ .TXT @REC <0>XMT <0>REC1 <0>XMT1 <0>MT1 <0>CLP <0>FPAR <0>FPAX @ .TXT @TTI1 <0>TTO1 <0>AMX <0>AMX1 <0>HLCR <0>HLCX <0>CDR1 <0>LPT1 @ .TXT @SMX <0>FDD <0>CRP <0>CLP1 <0>FDD1 <0>053 <0>054 <0>LPS1 @ .TXT @DST <0>DOT <0>CNT <0>DKP <0>FPAR2<0>FPAX2<0>062 <0>CPU @ FILE ODB EDISS CONT«ff» PLN0: 0 PLN1: 0 PLN: STA 0,PLN0 STA 3,PLN1 LDA 0,.10 OCHR LDA 0,.13 OCHR LDA 0,PLN0 DSZ LINE,2 JMP @ PLN1 OFF JMP @ PLN1 PFF0: 0 PFF1: 0 PFF2: 0 PFF3: .+1 .TXT @<27>=<12><27>3<0>@ PFF4: FZO PFF5: .+1 .TXT @ BINARY FILE DISASSEMBLER REV.01.04 <0>@ PFF6: .+1*2 .TXT @ <0>@ PFF7: .+1 .TXT @<27>4<10><13><10><10><0>@ PFF: STA 0,PFF0 STA 1,PFF1 STA 3,PFF2 PAPER LDA 0,PFF3 OTXT LDA 1,.64 STA 1,LINE,2 LDA 0,PFF4 ONAM LDA 0,PFF5 OTXT ISZ PAGE,2 LDA 0,PAGE,2 ODB LDA 0,PFF7 OTXT FILE LDA 1,.56 STA 1,LINE,2 LDA 0,.12 OCHR CONT LDA 1,PFF1 LDA 0,PFF0 JMP @ PFF2 PRAD0: 0 PRAD1: 0 PRAD2: 0 PRAD3: .+1*2 .TXT @ 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ.? @ PRAD: STA 0,PRAD0 STA 1,PRAD1 STA 3,PRAD2 LDA 1,PRAD3 ADD 0,1 GETBY OASC LDA 0,PRAD0 LDA 1,PRAD1 JMP @ PRAD2«ff» PDW0: 0 PDW1: 0 PDW2: 0 PDW3: .+1*2 .TXT @ <0>@ PDW: STA 3,PDW0 STA 1,PDW1 STA 0,PDW2 LDA 1,PDW3 BINDE LDA 0,PDW3 MOVZR 0,0 OTXT LDA 0,PDW2 LDA 1,PDW1 LDA 3,PDW0 JMP +0,3 PDB0: 0 PDB1: 0 PDB2: 0 PDB3: .+1*2 .TXT @ <0>@ PDB: STA 3,PDB0 STA 1,PDB1 STA 0,PDB2 LDA 1,PDB3 BINDE LDA 0,PDB3 MOVZR 0,0 INC 0,0 OTXT LDA 0,PDB2 LDA 1,PDB1 LDA 3,PDB0 JMP +0,3«ff» PLAB0: 0 PLAB1: 0 PLAB2: 0 PLAB: STA 3,PLAB2 LDA 0,ADR,2 LDA 1,.40,2 DIVID STA 3,PLAB0 DIVID STA 3,PLAB1 ORAD LDA 0,PLAB1 ORAD LDA 0,PLAB0 ORAD LDA 0,DATA,2 MOVZR 0,0 MOVZR 0,0 MOVZR 0,0 MOVZR 0,0 MOVZR 0,0 DIVID STA 3,PLAB0 ORAD LDA 0,PLAB0 ORAD JMP @ PLAB2 PTXT0: 0 PTXT1: 0 PTXT2: 0 PTXT: MOVZL 0,0 STA 0,PTXT0 STA 1,PTXT1 STA 3,PTXT2 PTXT3: LDA 1,PTXT0 GETBY MOV 0,0,SNR JMP PTXT4 OCHR ISZ PTXT0 JMP PTXT3 PTXT4: LDA 1,PTXT1 JMP @ PTXT2 PNAM0: 0 PNAM1: 0 PNAM2: 0 PNAM3: 0 PNAM: STA 1,PNAM0 STA 3,PNAM1 LDA 1,.5 STA 1,PNAM2 MOVZL 0,0 STA 0,PNAM3 PNAM4: LDA 1,PNAM3 GETBY OASC ISZ PNAM3 DSZ PNAM2 JMP PNAM4 LDA 1,PNAM0 JMP @ PNAM1«ff» GWD0: 0 GWD1: 0 GWD2: 0 GWD3: FZO GWD: STA 1,GWD0 STA 3,GWD1 LDA 2,GWD3 INCHA STA 1,GWD2 INCHA MOVZS 1,1 LDA 0,GWD2 ADD 1,0 LDA 1,GWD0 LDA 2,CUR JMP @ GWD1 PREL0: 0 PREL1: 0 PREL2: .+1*2 .TXT @ '"-=$*@ PREL: STA 1,PREL0 STA 3,PREL1 LDA 1,.7 AND 1,0 LDA 1,PREL2 ADD 0,1 GETBY OCHR LDA 1,PREL0 JMP @ PREL1 PASC0: 0 PASC1: 0 PASC: STA 1,PASC0 STA 3,PASC1 LDA 1,.255 AND 1,0 LDA 1,.127 SLS 0,1 LDA 0,.32 LDA 1,.32 SL 1,0 LDA 0,.32 OCHR LDA 1,PASC0 JMP @ PASC1 PMRK0: 0 PMRK1: 0 PMRK2: 0 PMRK3: .+1*2 .TXT @0AN3456X@ PMRK: STA 0,PMRK0 STA 1,PMRK1 STA 3,PMRK2 LDA 1,.7 AND 1,0 LDA 1,PMRK3 ADD 0,1 GETBY OCHR LDA 0,PMRK1 OHXW LDA 0,PMRK0 LDA 1,PMRK1 JMP @ PMRK2«ff» GREL0: 0 GREL1: 0 GREL2: 0 GREL: STA 1,GREL0 STA 3,GREL1 LDA 3,REL2,2 LDA 1,REL1,2 LDA 0,REL0,2 STA 0,GREL2 MOVL 3,3 MOVL 1,1 MOVL 0,0 MOVL 3,3 MOVL 1,1 MOVL 0,0 MOVL 3,3 MOVL 1,1 MOVL 0,0 STA 0,REL0,2 STA 1,REL1,2 STA 3,REL2,2 LDA 3,GREL2 MOVS 3,3 MOVR 3,3 MOVR 3,3 MOVR 3,3 MOVR 3,3 MOVR 3,3 LDA 0,.7 AND 3,0 LDA 1,GREL0 LDA 2,CUR JMP @ GREL1 PSP0: 0 PSP1: 0 PSP2: 0 PSP: STA 0,PSP0 STA 1,PSP1 STA 3,PSP2 LDA 0,.32 OCHR LDA 1,PSP1 LDA 0,PSP0 JMP @ PSP2 PKOM0: 0 PKOM1: 0 PKOM2: 0 PKOM3: 44 PKOM: STA 0,PKOM0 STA 1,PKOM1 STA 3,PKOM2 LDA 0,PKOM3 OCHR LDA 0,PKOM0 LDA 1,PKOM1 JMP @ PKOM2«ff» PHXD0: 0 PHXD1: 0 PHXD2: .+1*2 .TXT @0123456789ABCDEF@ PHXD: STA 1,PHXD0 STA 3,PHXD1 LDA 1,.15 AND 1,0 LDA 1,PHXD2 ADD 0,1 GETBY OCHR LDA 1,PHXD0 JMP @ PHXD1 PHXB0: 0 PHXB1: 0 PHXB2: 0 PHXB: STA 1,PHXB0 STA 3,PHXB1 STA 0,PHXB2 MOVR 0,0 MOVR 0,0 MOVR 0,0 MOVR 0,0 OHXD LDA 0,PHXB2 OHXD LDA 1,PHXB0 JMP @ PHXB1 PHXW0: 0 PHXW1: 0 PHXW2: 0 PHXW: STA 0,PHXW0 STA 1,PHXW1 STA 3,PHXW2 MOVS 0,0 OHXB LDA 0,PHXW0 OHXB LDA 1,PHXW1 LDA 0,PHXW0 JMP @ PHXW2 PCHR0: LZO PCHR1: 0 PCHR2: 0 PCHR: STA 3,PCHR2 STA 1,PCHR1 LDA 2,PCHR0 MOV 0,1 OUTEN LDA 2,CUR LDA 1,PCHR1 JMP @ PCHR2«ff» SLAB0: LATAB SLAB: STA 3,SLAB1 LDA 3,SLAB0 SLAB2: LDA 0,+0,3 LDA 1,DATA,2 INC # 0,0,SZR JMP SLAB3 LDA 0,+1,3 LDA 1,.7 AND 1,0,SNR JMP SLAB4 LDA 0,+0,3 LDA 1,DATA,2 SLAB3: SEQ 0,1 JMP SLAB5 LDA 0,+1,3 LDA 1,.7 AND 1,0 LDA 1,DREL,2 SEQ 0,1 JMP SLAB6 LDA 1,.M4 MOVZL 1,1 AND 1,0 INC 0,0 JMP @ SLAB1 SLAB6: LDA 0,+0,3 LDA 1,DATA,2 SLAB5: SGE 1,0 JMP SLAB4 INC 3,3 INC 3,3 JMP SLAB2 SLAB4: SUB 0,0 JMP @ SLAB1 SLAB1: 0«ff» MLAB0: LATAB MLAB1: 0 MLAB: STA 3,MLAB1 FLAB MOV 0,0,SZR JMP @ MLAB1 LDA 3,MLAB0 LDA 0,DATA,2 MLAB2: LDA 1,+0,3 SG 0,1 JMP MLAB3 INC 3,3 INC 3,3 JMP MLAB2 MLAB3: LDA 0,MLAB0 LDA 1,.4096 ADD 1,0 LDA 1,.2 SUB 1,0 MOV 0,2 MLAB4: SNE 2,3 JMP MLAB5 LDA 0,-2,2 STA 0,0,2 LDA 0,-1,2 STA 0,1,2 SUB 1,2 JMP MLAB4 MLAB5: LDA 2,CUR LDA 0,DATA,2 STA 0,+0,3 LDA 0,DREL,2 STA 0,+1,3 JMP @ MLAB1«ff» LATAB: 65535 0 .BLK 4094«ff» .DUSR GETAD=3236 .DUSR RET0=1185 .DUSR RET1=1186 .DUSR RET2=1187 JJTAB: SYMB BINDE SYMB GETAD SYMB RET0 SYMB RET1 SYMB RET2 SYMB BREAK SYMB CDELA SYMB CHANG SYMB CLOSE SYMB COMON SYMB CONBY SYMB CPASS SYMB CPRIN SYMB CREAT SYMB CSEND SYMB CTEST SYMB CTOUT SYMB CWANS SYMB DECBI SYMB DIVID SYMB ERROR SYMB EXECU SYMB FREEC SYMB FREES SYMB GETAD SYMB GETBY SYMB GETPO SYMB GETRE SYMB GOTO SYMB INBLO SYMB INCHA SYMB INITC SYMB INNAM SYMB INTPR SYMB LOOKU SYMB MOVE SYMB MULTI SYMB NEWCA SYMB NEXTO SYMB OPEN SYMB OUTBL SYMB OUTCH SYMB OUTEN SYMB OUTNL SYMB OUTOC SYMB OUTSP SYMB OUTTE SYMB PUTBY SYMB PUTRE SYMB RECHA SYMB REMOV SYMB RETUR SYMB SEARC SYMB SENDA SYMB SENDM SYMB SETCO SYMB SETEN SYMB SETIN SYMB SETPO SYMB SETRE SYMB SIGCH SYMB SIGGE SYMB SIGNA SYMB START SYMB STOPP SYMB TRANS SYMB WAIT SYMB WAITA SYMB WAITC SYMB WAITE SYMB WAITG SYMB WAITI SYMB WAITO SYMB WAITS SYMB WAITT SYMB WAITZ SYMB .CLEA SYMB .CLOS SYMB .CONB SYMB .DIVI SYMB .FREE SYMB .GETB SYMB .GETR SYMB .INBL SYMB .INCH SYMB .MULT SYMB .NEXT SYMB .OPEN SYMB .OUTB SYMB .OUTC SYMB .OUTE SYMB .OUTN SYMB .OUTO SYMB .OUTS SYMB .OUTT SYMB .PUTB SYMB .PUTR SYMB .REPE SYMB .RETU SYMB .SETC SYMB .SETI SYMB .SETP SYMB .SETR SYMB .TRAN SYMB .WAIT 0 0 0 0«ff» LDTAB: SYMB CUR SYMB TABLE SYMB TOPTA SYMB PFIRS SYMB RUNNI SYMB EXIT SYMB EFIRS SYMB FFIRS SYMB DELAY SYMB AREAP SYMB AFIRS SYMB FREQU SYMB MASK SYMB CORES SYMB PROGR SYMB RTIME SYMB POWIN SYMB CDUMP SYMB CPUTY SYMB .0 SYMB .1 SYMB .2 SYMB .3 SYMB .4 SYMB .5 SYMB .6 SYMB .7 SYMB .8 SYMB .9 SYMB .10 SYMB .12 SYMB .13 SYMB .15 SYMB .16 SYMB .24 SYMB .25 SYMB .32 SYMB .40 SYMB .48 SYMB .56 SYMB .60 SYMB .63 SYMB .64 SYMB .120 SYMB .127 SYMB .128 SYMB .255 SYMB .256 SYMB .512 SYMB .1024 SYMB .2048 SYMB .4096 SYMB .8192 SYMB .1638 SYMB .3276 SYMB .M3 SYMB .M4 SYMB .M16 SYMB .M256 0 0 0 0«ff» PDB PDW 0 PMRK SLAB MLAB BL51 BL31 BL61 BL71 PAS2 BL21 NBL1 PAS1 BLC5 BLC3 0 0 PFF BLC6 DISSE LDST IOIN JJID ALUI DISS UBLC BLC2 BLC7 NBLC 40 PTXT PNAM PLAB PRAD PLN 0 0 0 0 0 0 0 0 0 END ENDC GREL GWD PASC PREL PHXW PHXB PHXD PKOM PSP PCHR«ff» .DUSR OCHR =JSR @ -1,2 .DUSR OSP =JSR @ -2,2 .DUSR OKOM =JSR @ -3,2 .DUSR OHXD =JSR @ -4,2 .DUSR OHXB =JSR @ -5,2 .DUSR OHXW =JSR @ -6,2 .DUSR OREL =JSR @ -7,2 .DUSR OASC =JSR @ -8,2 .DUSR IWD =JSR @ -9,2 .DUSR IREL =JSR @ -10,2 .DUSR TERMC =JMP @ -11,2 .DUSR TERM =JMP @ -12,2 .DUSR REL0 =-13 .DUSR REL1 =-14 .DUSR REL2 =-15 .DUSR AREL =-16 .DUSR DREL =-17 .DUSR ADR =-18 .DUSR DATA =-19 .DUSR BLCK =-20 .DUSR CNT =-21 .DUSR OLN =JSR @ -22,2 .DUSR ORAD =JSR @ -23,2 .DUSR OLAB =JSR @ -24,2 .DUSR ONAM =JSR @ -25,2 .DUSR OTXT =JSR @ -26,2 .DUSR .40 =-27 .DUSR GNBLC =JMP @ -28,2 .DUSR GBLC7 =JMP @ -29,2 .DUSR GBLC2 =JMP @ -30,2 .DUSR GUBLC =JMP @ -31,2 .DUSR DISA =JSR @ -32,2 .DUSR DALUI =JMP @ -33,2 .DUSR DJJID =JMP @ -34,2 .DUSR DIOIN =JMP @ -35,2 .DUSR DLDST =JMP @ -36,2 .DUSR EDISS =JMP @ -37,2 .DUSR GBLC6 =JMP @ -38,2 .DUSR OFF =JSR @ -39,2 .DUSR LINE =-40 .DUSR PAGE =-41 .DUSR GBLC3 =JMP @ -42,2 .DUSR GBLC5 =JMP @ -43,2 .DUSR PASS1 =JMP @ -44,2 .DUSR GNBL1 =JMP @ -45,2 .DUSR GBL21 =JMP @ -46,2 .DUSR PASS2 =JMP @ -47,2 .DUSR GBL71 =JMP @ -48,2 .DUSR GBL61 =JMP @ -49,2 .DUSR GBL31 =JMP @ -50,2 .DUSR GBL51 =JMP @ -51,2 .DUSR CLAB =JSR @ -52,2 .DUSR FLAB =JSR @ -53,2 .DUSR OMRK =JSR @ -54,2 .DUSR BLCF =-55 .DUSR ODW =JSR @ -56,2 .DUSR ODB =JSR @ -57,2«ff» PCD: .+0 .-1 0 0 CASE .TXT @DISPA@,.TXT @DISFI@ .+0 .-1 BUFF PGD 0 0 42 END 0 0 0 0 BEG*2 0 0 0 0 0 0 0 0 0 0 0 .END PCD «ff» «nul»