⟦4699b5a4e⟧

TextFile

; TEST TTY-INPUT TIL BSØGE 21.11.82 FORMELLE FEJL RETTET !!

; CSØGE //; OTILA AKTIVISERET PL 21.11.82
; BSØGE = P4ASG FÆRDIG 13.11.82 KL 17
; BSØGE (VERS 4(B)) RETTET 13.11.82 EFTERM ; VERSIN 4 AF ASØGE 13.11.82 
; RETTET (FÆRDIG) PL 12.11.82 TIDL AFTEN / INDTAST UDELADT NYT
; 3.V3RESION AF SØGE VALGFRI LPT/TTY O.A.; PL 12.11.82 AFTEN
; SØGE TIL TTY / ADR OSSE OCTALT / PL 6.11.82
; P1ASG SØGEPROGRAM SØGER EN TEXT = 1.PARAMETER (LIGE ANTAL BYTE)
; SUPPLERER OP TIL LIGE MED <0>
; VIRKER KORREKT (?) !!!
; SØGEPROGRAM RETTET 15.5.82
 ; PL PROGRAM TIL AT SØGE VILK TEXT I CORE
; TEXTEN INDTASTESSOM PARAMETER
; OG SUPPLERES AUTOMATISK MED <0> TIL LIGE ANTAL BYTES
         .TITL   TEST 
         .NREL 
         .RDXO   10 
         .RDX    10 
         .TXTM   1 
         .TXTN   1 
PGDS:    1B0+1B5+1B15 
         LAB00 
         0 
         PCDS-PGDS 
         .TXT    'TEST<0>' 
LAB00: 
LPZON:   .TXT     'LPT<0><0>'
         Z 
         0 
         1 
         65535 
         DEAD 
         1 
         1 
         0 
         LPS0 
         83 
         0 
         0 
         LPB0*2 
         LPB0*2 
         LPS0 
         152 
         0 
         .BLK    ZAUX 
LPS0:    0 
         0 
         0 
         0 
         LPS0 
         0 
         LPB0*2 
LPB0:    .BLK    76 

TTZON: .TXT *TTY<0><0>*
  Z
  0
  1
  65535
  DEAD
  1
  1
  0
  TTS0
  83
  0
  0
  TTB0*2
  TTB0*2
  TTS0
  152
  0
  .BLK ZAUX
TTS0: 0
  0
  0
  0
  0
TTS0
  0
  TTB0*2
TTB0:  .BLK 76
 
TX: .+1*2
.TXT *  <10>  PL TEST / SØGEPROGRAM  21.11.82  <0>*
ADTAL: 32600
AD: 0
GODK: 0
MSYV: -7
TGAD: 0
LGAD: 0
LGMA: 0
LG: 0

GGG: 19712 ; M*256
TTG1: .+1
 .TXT *TTY<0>*
DEAD1: DEAD
 ZONI: TTZON
«ff»
; SIDESKIFT 21.11.82 (ENESTE)
BYTE1: 0
BYTE2: 0
.TXT *TTYINPUT*


BIRTH:

STA 1,TGAD
MOV 1,2
 LDA 3,5,2 ; FLG VERSION 3
 INC 3,3 ; RETTET 12.11
 MOVZR 3,3
 ADD 1,3 ; ADR X
 LDA 1,MSYV
 SUB 1,3 ; ADRESSE PÅ ET EVT T
 LDA 1,0,3
 LDA 3,GGG
 SL  3,1
  JMP EJJ
 LDA 3,TTG1
LDA 0,0,3 ; TT
LDA 1,1,3 ; Y<0>
 LDA 3,ZONAD
 STA 0,0,3
 STA 1,1,3
 LDA 0,.6
 STA 0,TOLV
 
 EJJ:

LDA 0,5,2
MOVZR 0,0,SNR
JMP DEAD1 @
STA 0,LGMA
DSZ LGMA
DSZ LGMA

LDA 0,.3
LDA 2,ZONAD
OPEN
  LDA 0,TX
  OUTTEXT
  LDA 1,.0
  LDA 2,CUR
  LDA 0,10,2
  JSR @ UDSK5 ;;;

  OUTSP
  LDA 0,TGAD
  SUB 1,1
  JSR @ UDSK5 ;;;
  LDA 3,CUR
  LDA 0,10,3
  OUTOCTAL
  OUTSP
  LDA 0,TGAD
  OUTOCTAL
  OUTNL
  OUTNL

LDA 0,.1
LDA 2,ZONI
OPEN	; NYT TEST 21.11.82 / TILF. I FLG!

LDA 2,CUR
NEXTOPERATION
JMP .+1 ; ELLER TEST1 Z(GENTAG UDSKRIFT OVERSKRIFT)
JMP .+1 ; ELLER TIL NXT ????

 LDA 1,ADDRE,2
 MOVZL 1,1
 GETBYTE
 STA 0,BYTE1
 INC 1,1
 GETBYTE
 STA 0,BYTE2
 LDA 1,BYTE1
 MOVS 1,1
 ADD 1,0
 STA 0,AD
 LDA 1,ADTAL
 SUB 0,1
 STA 1,ADTAL
 LDA 2,ZONAD
 OUTOCTAL
 LDA 0,AD
 OUTOCTAL
 OUTSP
 LDA 0,AD
 OUTOCTAL
OUTSP
LDA 0,ADTAL
OUTOCTAL
OUTNL
OUTNL
OUTNL
  JMP NST
   UDSK5: UDSKR
   ZONAD: LPZON
   TOLV:  10

NST:

LDA 2,LGMA
STA 2,LG
LDA 2,TGAD
ISZ AD
DSZ ADTAL
JMP .+2
JMP DEAD

LDA 3,AD

FORTS:
LDA 1,0,3
LDA 0,7,2
SE 0,1
JMP NST

INC 3,3
INC 2,2
DSZ LG
JMP FORTS

LDA 0,AD
STA 0,ADUD
SUB 1,1
JSR UDSKR
  OUTSP
  LDA 0,ADUD
  OUTOC
 OUTSP ; TILF I VERS 3 FLG
 LDA 3,TGAD
 LDA 0,6,3
 LDA 1,.1
 SUB # 0,1,SNR
 JMP .+5
 LDA 0,.7
 ADDZL 3,0 ; BYAD
 OUTTEXT
 JMP .+3
 LDA 0,7,3
«ff»
 OUTOC

OUTNL

LDA 3,ADUD
LDA 2,.5
SUB 2,3
STA 3,ADUD
STA 3,ADUD2
STA 3,ADUD3
LDA 2,TOLV ; RETTET 6.11 82 FRA 16
STA 2,TALLE
NR22:
  SUB 1,1
LDA 3,ADUD
LDA 0,0,3
JSR UDSKR
OUTSP
OUTSP
ISZ ADUD
DSZ TALLE
JMP NR22
 OUTNL
LDA 3,TOLV
STA 3,TALLE
 LDA 0,.10
 SL 0,3 ; 3.VERS
 JMP NST
NR33:
LDA 3,ADUD2
LDA 0,0,3
LDA 2,ZONAD
OUTOCTAL
OUTSP
ISZ ADUD2
DSZ TALLE
JMP NR33
OUTNL
JMP .+2
 JMP EJBYT
LDA 3,ADUD3 ; FLG TILFØJET 12.11.82 INAKTIVT
LDA 2,TOLV
STA 2,TALLE
NR44:
LDA 3,ADUD3
LDA 0,0,3
LDA 3,.255
MOVS 3,3
ANDS 3,0
 JSR OTILA ; (MIDL 13.11.81)
LDA 1,.2
JSR UDSKR
LDA 3,ADUD3
LDA 0,0,3
LDA 3,.255
AND 3,0
 JSR  OTILA ;(MIDL 13.11.81) (MIDL 13.11.81)
LDA 1,.2
JSR UDSKR
OUTSP
ISZ ADUD3
DSZ TALLE
JMP NR44 ; SLUT 12.11.82
OUTNL

EJBYT:

OUTNL
JMP NST

UDSKR:
STA 3,TILBA
STA 1,NO5
LDA 1 ,BYAD2
LDA 2,CUR
BINDEC
LDA 1,BYAD2
LDA 0,NO5
ADD 1,0
LDA 2,ZONA4
OUTTEXT
LDA 1,NO5
JMP @ TILBA
TILBA: 0
TALLE: 0
ADUD: 0
ADUD2: 0
ADUD3: 0
 0
BYAD: 0
BYA4:      0
      0
      0
BYAD1:BYAD
BYAD2: BYAD*2
NO5  : 0
BEGN: BIRTH
DEAD:
  ISZ SNDN8
  LDA 1,.1
  LDA 2,ZONA4
  CLOSE
  LDA 1,ADR
  LDA 2,NADR
  SENDMESSAGE
  ISZ SNDN9
         LDA     2,CUR 
         STOPP 
         JMP     @ BEGN 
ADR:     .+1 
         1B8 
         0 
         0 
         0 
NADR:    .+1 
         .TXT    'S' 
0
0
  OTILA: ; NYT 12.11.82 (MIDL INAKTIVT)
STA 3,OTADR
LDA 1,.48
LDA 3,BYA4
ADD 3,1
STA 1,BYA4
JSR @ OTADR
OTADR: 0
ZONA4: LPZON
BUFF1:   .+0 
         .-1 
         BUFF2 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
BUFF2:   .+0 
         .-1 
         0 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
  SNDN8: 0

  SNDN9: 0
  SNDN7: 0
SLUT1: -3
PCDS:    .+0 
.-1

0
0
.TXT (TEST<0>(
.+0
.-1
BUFF1
PGDS
0
0
14000
DEAD
0
0
0
0
BIRTH*2
0
1
2
3
4
5
6
7
8
9
10
.END PCDS
«ff»
«nul»
DataMuseum.dk

RegneCentralen RC3600/RC7000

⟦4699b5a4e⟧ TextFile

Derivation

TextFile
