DataMuseum.dk

top - download

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »QQAF0«

└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
    └─ ⟦this⟧ »/QQAF0« 

TextFile

.RDXO 10
PRDE1 RC
GCHAR
.TXT @CGETCHAR@
0
; HANS THOMSEN/QQ 830326
; CALL RUTINE DER LÆSER EN CHAR FRA EN TXT FILE
; ENDVIDRE CONVERTERE DEN LOWERCASE TIL UPPERCASE
;
; PDTA+0    : 1.WORD OF REAL
;     +1      :2.WORD OF REAL
;     +2   :  BYTEADR
;
GCHAR:2
      REAL
      STRING+REFER
      STA 2,ADRPA        ; STORE PARAMETER ADR.
      LDA 0,+0,2           ; LOAD 1.WORD OF REAL
      LDA 1,+1,2           ; LOAD 2.WORD OF REAL
      BCALL FIX
      ADD 1,3              ; ADR. OF ZONE ADR.
      LDA 0,U.UCH,3        ; LOAD ZONEADR.
      LDA 2,CUR
      F.ICHAR              ; GET CHAR
      JMP ERFUN            ; JUMP IF ERROR
      LDA 0,MASK1
      AND 1,0
      STA 1,BYTE
      LDA 1,MASK2
      ANDZ 1,0 SNC         ; SKIP IF CARRY
      JMP OUTPU            ; IF LOWER CASE THEN OUTPUT
      LDA 0,BYTE          
      LDA 1,MASK3
      AND 0,1
      STA 1,BYTE           ; CONVERTET TO UPPERCASE
OUTPU:LDA 0,BYTE           ; LOAD CHAR
      LDA 3,ADRPA          ; LOAD ADR. OF PARAMETERE
      LDA 1,+2,3           ; LOAD BYTE ADR.
      A.PBYTE              ; PUTBYTE
      1                    ; SEGMENT
      RET1                 ; RETURN TO COPS
ERFUN:ERROR
       90
 BYTE:0
ADRPA:0
.RDX 2
MASK1:0000000001100000
MASK2:1111111110100000
MASK3:1111111111011111
.RDX 7
PRDE2 RC«ff»
«nul»