mirror of
https://github.com/callapple/GBBS.git
synced 2026-04-19 17:16:40 +00:00
paulhlee1967
caf6ddd745
All files refreshed. Config now shows uppercase when using a ][+ Minor bug fixes in logon.seg.s Newer XDOS external with bug fixes
38 lines
501 B
ArmAsm
38 lines
501 B
ArmAsm
PAG
|
|
********************************
|
|
* *
|
|
* ACOS.OBJ - Copyright Encode *
|
|
* *
|
|
********************************
|
|
|
|
ORG $300
|
|
|
|
COPCODE LDA #<COPNOT
|
|
STA TEMP
|
|
LDA #>COPNOT
|
|
STA TEMP+1
|
|
LDY #COPEND-COPNOT
|
|
DEY
|
|
:LOOP LDA (TEMP),Y
|
|
ROL A
|
|
EOR #COPEND-COPNOT
|
|
STA (TEMP),Y
|
|
DEY
|
|
BPL :LOOP
|
|
|
|
LDA #<SERNUM
|
|
STA TEMP
|
|
LDA #>SERNUM
|
|
STA TEMP+1
|
|
LDY #SEREND-SERNUM
|
|
DEY
|
|
:LOOP2 LDA (TEMP),Y
|
|
ROL A
|
|
EOR #SEREND-SERNUM
|
|
STA (TEMP),Y
|
|
DEY
|
|
BPL :LOOP2
|
|
RTS
|
|
|
|
|