Re: Anders lagar en gammal dator (-relaterad pryl)
Postat: 29 september 2026, 19:10:39
Jag använde lite AI när jag satt ute i lokalen och höll på för att komma någonstans så jag testade faktiskt det du föreslog, men det verkade saknas någon fil. Sen har jag inte dubbelkollat mot manulen, det är nog läge för det. Det var AI:n som föreslog att jag skulle kolla efter "SYSMAC.SML" när jag klippe in felet. För dessa typer av fel litar jag inte helt på bottarna, det finns inte så mycket data att träna på...
Kod: Markera allt
.MACRO/OBJECT:PC PC.MAC
U 1 .MCALL .MODULE
OQ 2 000000 .MODULE PC,VERSION=07,COMMENT=<Paper Tape Handler>,AUDIT=YES
U 3 .MCALL .DRDEF
OQ 8 000000 .DRDEF PC,7,<PR11$X*RONLY$>,0,177550,70,DMA=NO
A 14 000002 000000G 000000G 000000 .DREST CLASS=DVC.SB ;Rdr/Punch is Device Class Serial Bidirectional
A 17 000002 PCB == PC$CSR+2 ;DATA REGISTER
A 20 000004 .IIF NDF PP$VEC, PP$VEC == PC$VEC+4 ;PUNCH VECTOR ADDR
A 21 000004 .IIF NDF PP$CSR, PP$CSR == PC$CSR+4 ;PUNCH CONTROL REGISTER
A 22 000006 PPB = PP$CSR+2 ;PUNCH DATA BUFFER
A 3 000010 000000G 000007 .DRBEG PC ;DEFINE ENTRY POINT AND QUEUE HEADS
A 10 000056 000000G 000007 000000G .DRVTB PC,PC$VEC,PCINT
000064 000000G
A 15 000074 000000G 000046' 000004 .DRAST PP,4,PCDONE
000102 000232'
A 20 .IF EQ MMG$T
A 3 000146 000000G 000007 000004 .DRAST PC,4,PCDONE
000154 000232'
A 5 .IF EQ MMG$T
A 11 .IF EQ MMG$T
A 25 000216 000000G 000252' .FORK PCFBLK ;REQUEST SYSTEM PROCESS
A 27 .IF EQ MMG$T
A 42 000246 000000G 000007 PCFIN: .DRFIN PC ;GO TO I/O COMPLETION
A 46 000262 000000G 000007 .DREND PC
?MACRO-E-Errors detected: 20
DK:PC=DK:PC.MAC
.DIR SYSMAC.SML
0 Files, 0 Blocks
4433 Free blocks
.