{slcharasm1{bt›LISTING TWO›-----------›››; Character set movement subroutine›; Stored in MOVE$›; Call from Atari BASIC with:›; JUNK=USR(ADR(MOVE$),CH,57344)››ROM EQU $00D4 ; Address of ROM character set - should be $E000›RAM EQU $00D6 ; New location of character set from variable "CH"››INIT PLA ; Discard number of parameters from BASIC› PLA› STA RAM+1› PLA› STA RAM ; Store the address of the RAM set from the stack› PLA› STA ROM+1› PLA› STA ROM ; Do the same for the ROM set› LDX #04 ; 4 pages of memory to do›LOOP1 LDY #00 ; Zero the counter of bytes done›LOOP2 LDA (ROM),Y ; Get byte from ROM set› STA (RAM),Y ; And store it in the RAM set area› INY› BNE LOOP2 ; If not done with one page, do the next byte› INC RAM+1› INC ROM+1 ; Add one page› DEX ; Reduce counter of pages left to do› BNE LOOP1 ; If not zero, go back and do the next page› RTS ; All done, so go back to BASIC››{et›