DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦903f8977d⟧ TextFile

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »lmitxt052«

Derivation

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦093e2ad1c⟧ 
        └─⟦this⟧ »lmitxt052« 

TextFile

;;
;; lmitxt052
;; ais
;;
.instruction rec0 , wrfetch   ;
                              ;
.instruction rec1             ;
.instruction rec2             ;
.instruction rec3             ;
.instruction rec4             ;
.instruction rec5             ;
.instruction rec6             ;
.instruction rec7             ;
.instruction rec8             ;
.instruction rec9             ;
.instruction rec10            ;
.instruction rec11            ;
.instruction rec12            ;
.instruction rec13            ;
.instruction rec14            ;
.instruction rec15            ;
   w3:=w0 and 0f,,            ;
   ,,cjp wrfetch              ;
                              ;
.instruction rechws           ;
   ,,cjs readbcont            ;
   w3:=w4,,cjp wrfetch        ;
                              ;
.instruction reagds , k , reagds1 ;
.instruction realds , k , realds1 ;
   ,,cjs readbcont            ;
   w3:=w4,,jmap not 8         ;
                              ;
.instruction revlbs , k , revxbfin ;
.instruction revlws , k , revxwfin ;
.instruction revlfs , k , revxffin ;
.instruction revlds , k , revxdfin ;
   w6:=spb,,cjs readbcont     ;
   w3:=w4,,cjp revls1         ;
.p                            ;
.instruction revgbs , k , revxbfin ;
.instruction revgws , k , revxwfin ;
.instruction revgfs , k , revxffin ;
.instruction revgds , k , revxdfin ;
   w6:=spb,,cjs readbcont     ;
   w3:=w4,,cjp revgs1         ;
                              ;
.instruction rvsb2 , k , revxbfin ;
.instruction rvsb4 , k , revxbfin ;
.instruction rvsb6 , k , revxbfin ;
.instruction rvsb12 , k , revxbfin ;
                              ;
.instruction rvsw2 , k , revxwfin ;
.instruction rvsw4 , k , revxwfin ;
.instruction rvsw6 , k , revxwfin ;
.instruction rvsw12 , k , revxwfin ;
                              ;
.instruction rvsf2 , k , revxffin ;
.instruction rvsf4 , k , revxffin ;
.instruction rvsf6 , k , revxffin ;
.instruction rvsf12 , k , revxffin ;
                              ;
.instruction rvsd2 , k , revxdfin ;
.instruction rvsd4 , k , revxdfin ;
.instruction rvsd6 , k , revxdfin ;
.instruction rvsd12 , k , revxdfin ;
   w3:=w0 and 0e,,            ;
                              ;
.instruction rvsb0 , k , revxbfin ;
.instruction rvsw0 , k , revxwfin ;
.instruction rvsf0 , k , revxffin ;
.instruction rvsd0 , k , revxdfin ;
   ,,cjs getsa1               ;
   ,,cjp revss1               ;
.p                            ;
.instruction stvlbs , k , stvxbfin ;
.instruction stvlws , k , stvxwfin ;
.instruction stvlfs , k , stvxffin ;
.instruction stvlds , k , stvxdfin ;
   w2:=slb,,cjs readbcont     ;
   w3:=w4,,cjp stvls1         ;
                              ;
.instruction svsb2 , k , stvsbfin ;
.instruction svsb4 , k , stvsbfin ;
.instruction svsb6 , k , stvsbfin ;
.instruction svsb28 , k , stvsbfin ;
.instruction svsb29 , k , stvsbfin ;
.instruction svsb30 , k , stvsbfin ;
.instruction svsb31 , k , stvsbfin ;
                              ;
.instruction svsw2 , k , stvswfin ;
.instruction svsw4 , k , stvswfin ;
.instruction svsw6 , k , stvswfin ;
.instruction svsw28 , k , stvswfin ;
.instruction svsw29 , k , stvswfin ;
.instruction svsw30 , k , stvswfin ;
.instruction svsw31 , k , stvswfin ;
                              ;
.instruction svsf2 , k , stvsffin ;
.instruction svsf4 , k , stvsffin ;
.instruction svsf6 , k , stvsffin ;
.instruction svsf28 , k , stvsffin ;
.instruction svsf29 , k , stvsffin ;
.instruction svsf30 , k , stvsffin ;
.instruction svsf31 , k , stvsffin ;
   w3:=w0 and 1f,,            ;
                              ;
.instruction svsb0 , k , stvsbfin ;
.instruction svsw0 , k , stvswfin ;
.instruction svsf0 , k , stvsffin ;
   ,,cjs readlucq             ;
   w4:=q,,cjs getsa1          ;
   ,,cjp stvss1               ;
.p
▶EOF◀