|
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: 25600 (0x6400)
Types: TextFile
Names: »PAFDK«
└─⟦9eac10f8c⟧ Bits:30001801 SG0021 Floppy
└─⟦this⟧
; RETTET I BEG 20.3.84 ; FJERNET ENTRYLISTUDSKRIFT , BIAS-OPTION, FJERNET <27>, UDVIDET ENTRYBUFFER 19.3.84 ; PHK8403141519 HENSLÆNGT PÅ "GULDKORN" ; VERSION 1.13 LABELS OK. 1 PARAM: FILNAVN, UD PÅ LPT .TITL VAFDP .NREL .RDXO 16 .RDX 10 .TXTM 1 .TXTN 1 .NOLOC 1 PGD: 1B0+1B5+1B15 PGD0 0 PCD-PGD .TXT @VAFDP@ PGD0: .MACRO SYMB LA$=. ^1 .TXT @^1@ .DO LA$+4-. 0 .ENDC % 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 LDA 1,.0 LDA 3,10,2 MOV 3,3,SNR JMP BEG8 LDA 1,12,2 LDA 2,CUR STA 1,BIAS,2 BEG8: LDA 2,BEG1 OPEN LDA 2,CUR PASS1«ff» PAS10: FZO PAS1: LDA 0,.0 LDA 1,.1 LDA 2,PAS10 SETPO LDA 2,CUR OFF GNBL1«ff» NBL1: IWD LDA 1,.3 SNE 0,1 GBL31 LDA 1,.5 SNE 0,1 GBL51 LDA 1,.2 SNE 0,1 GBL21 LDA 1,.7 SNE 0,1 GBL71 LDA 1,.6 SNE 0,1 GBL61 MOV 0,0,SNR PASS2 OHXD OSP IWD STA 0,CNT,2 DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 NBL10: IWD OHXW OSP ISZ CNT,2 JMP NBL10 OLN JMP NBL1«ff» 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>@«ff» 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>@«ff» 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«ff» 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«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 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 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 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 OSP OSP JMP BL217 BL216: LDA 0,DATA,2 MOVS 0,0 OASC LDA 0,DATA,2 OASC 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 OLN GNBL1 BL210: 0 BL211: 0 BL212: 0 BL213: 0 BL219: 14«ff» PAS24: 0 PAS21: LATAB PAS20: FZO PAS2: JMP PAS22 ; UDELAD ENTRYLISTE (EVT OPTION SENERE) OFF 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 PAS22: LDA 0,.0 LDA 1,.1 LDA 2,PAS20 SETPO LDA 2,CUR 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 LDA 0,BLC52 OTXT IWD OHXW IREL OREL LDA 0,BLC53 OCHR 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 LDA 0,BLC32 OTXT IWD OHXW IREL OREL LDA 0,BLC33 OCHR 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: LDA 0,ADR,2 OSP OHXW LDA 0,AREL,2 OREL LDA 0,AREL,2 STA 0,DREL,2 LDA 0,ADR,2 STA 0,DATA,2 OSP FLAB STA 0,BLC28 ISZ ADR,2 IWD STA 0,DATA,2 OHXW IREL STA 0,DREL,2 OREL OSP OSP LDA 1,DATA,2 MOVS 1,0 LDA 1,DREL,2 LDA 3,.1 STA 3,BLCF,2 SEQ 3,1 LDA 0,.32 OASC LDA 0,DATA,2 LDA 3,.1 SEQ 3,1 LDA 0,.32 OASC BLC22: OSP OSP 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 LDA 0,UBLC1 OCHR LDA 0,UBLC0 OHXW OSP IWD STA 0,CNT,2 OHXW OSP DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 DSZ CNT,2 UBLC2: IWD OHXW OSP ISZ CNT,2 JMP UBLC2 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 OHXB JMP LDST4 LDST3: 45 LDST2: LDA 0,DATA,2 LDA 1,.255 AND 1,0 OHXB 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 OHXW 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 OHXB JMP JJID4 JJID3: 45 JJID2: LDA 0,DATA,2 LDA 1,.255 AND 1,0 OHXB 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 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 @«ff» ; BIAS OG <27> FJERNET PL 19.3.84 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 @<12><0>@ PFF4: FZO PFF5: .+1 .TXT @ BINARY FILE DISASSEMBLER REV.01.13 <0>@ PFF6: .+1*2 .TXT @ <0>@ PFF7: .+1 .TXT @<10><13><10><10><0>@ PFF: STA 0,PFF0 STA 1,PFF1 STA 3,PFF2 LDA 3,BIAS,2 LDA 0,PAGE,2 SGE 0,3 JMP PFF9 LDA 0,.0 STA 0,BIAS1,2 PFF9: 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 LDA 1,PFF6 BINDE LDA 0,PFF6 MOVZR 0,0 INC 0,0 OTXT LDA 0,PFF7 OTXT 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» 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 3,BIAS1,2 MOV # 3,3,SZR JMP @ PCHR2 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» MLAB9: 8192 ; UDVIDET ENTRYBUFFER 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,MLAB9 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 8192 ; UDVIDET BUFFER «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» 1 ; -57 BIAS1 0 ; -56 BIAS 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 BIAS = -56 .DUSR BIAS1= -57 «ff» PCD: .+0 .-1 0 0 .TXT @VAFDP@ .+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»