 
ô > SMFree 6ô List free memory in relocatable sideways modules : (Þ mc% 120,mem% 255 2)ROMSEL=&FE30:ç?&FFB2=&40:ROMSEL=&FE05 <ã P=0 ¸ 1:P%=mc%:[OPT P*2 F!TAX:LDA &F4:PHA:JSR SelectROM P%LDA #&BF:STA &A9:LDA #&FF:STA &A8 Z
LDY #0 d.lp1 n&LDA &8000,Y:STA mem%,Y:INY:BNE lp1 x.lp2 ‚#LDA (&A8),Y:CMP &BFFF:BNE found Œ$LDA &A8:BNE P%+4:DEC &A9:DEC &A8 –LDA &A9:BMI lp2  %LDA #&FF:STA &A8:LDA #&7F:STA &A9 ª
.found ´PLA:TAX:JSR SelectROM ¾LDA &A9:CMP #&BF:BCC return ÈLDA &A8:CMP #&F7:BCC return ÒLDA #&FE:STA &A8 Ü.return æLDA &A8:ADC #1:PHA ðLDA &A9:ADC #0:TAX úPLA:RTS.SelectROMLDA #12:STA &F4:STA ROMSELSTX &F4:STX ROMSEL:RTS"]í,free%=06(ã A%=15 ¸ 0 ˆ -1:ñ¤h0(&FFF0 „ A%,4);@Cspare%=(º mc%)€&FFFF:ñ ¤h0(spare%,4);" + ";¤h0(&C000-spare%,4);JKç mem%!(mem%?7)=&29432800:mem%?127=13:A$=$(mem%+9):ñ" ";ÀA$,§A$,½0)-1);T free%=free%+(&C000-spare%):ñ^í A%h0ñ "Total: ";¤h0(free%,8);", ";free%;" bytes"rà|#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%)ÿ